Extend your language: Difference between revisions

Content added Content deleted
Line 213: Line 213:


#defn Siambassonverdaderas(_X_,_Y_) ##CODEIF,__firstop__=0;#ATOM#CMPLX;cpy(__firstop__),\
#defn Siambassonverdaderas(_X_,_Y_) ##CODEIF,__firstop__=0;#ATOM#CMPLX;cpy(__firstop__),\
#ATOM#CMPLX;and;jnt(#ENDIF),
__secondop__=0;#ATOM#CMPLX;cpy(__secondop__);and;jnt(#ENDIF),
#defn Essólolaprimeraopción jmp(%%CODEIF), %ENDIF:, {__firstop__}, jnt(#ENDIF),
#defn Essólolaprimeraopción jmp(%%CODEIF), %ENDIF:, {__firstop__}, jnt(#ENDIF),
#defn Essólolasegundaopción jmp(%%CODEIF), %ENDIF:, {__secondop__}, jnt(#ENDIF),
#synon Else Essólolasegundaopción
#synon Else Noesningunaopción?
#synon EndIf FindelSi
#synon EndIf FindelSi


Main
Main
True(v), False(w)
False(v), True(w)
Si ambas son verdaderas ( v, w )
Si ambas son verdaderas ( v, w )
Printnl ("Son ambas opciones verdaderas")
Printnl ("Son ambas opciones verdaderas")
Line 229: Line 230:
Printnl ("La segunda opción es verdadera")
Printnl ("La segunda opción es verdadera")


No es ninguna opción?
Printnl ("Nada se cumple")
Fin del Si
Fin del Si

End
</syntaxhighlight>
End</syntaxhighlight>
{{out}}
{{out}}
<pre>La primera opción es verdadera</pre>
<pre>La segunda opción es verdadera</pre>


<p>Ejemplo #2:
<p>Ejemplo #2: