Follow-up Comment #1, task #7295 (project admin):
I forgot to tell that CAIA is an entirely bootstrapped system.
The GPL C source files contain generated code like
#include "dx.h"
void AJE0(void )
{int Y=0,V2=0,V1=0;
int EN,X,AT;
int WZ1,WZ2;
EN=pile[v[22]];X=pile[v[22]+1];AT=pile[v[22]+2];v[22]+=3;
WZ2=v[22]+2;WZ1=v[22]+1;
V2=x[EN];
l1:if((V2>0)) goto l2;
v[22]-=3;return;
l2:Y=s[V2];
V1=Y;
pile[v[22]]=V1;pile[WZ1]=AT;pile[WZ2]=X;
(*f[227])(); /*PLUSC2(V1,AT,X)*/
V2=t[V2];
goto l1;
}
This file was generated by CAIA from an expertise (= set of rules) which can
be listed by giving the L AJE command to CAIA.L AJE
kt ********************************* $AJE ************************
DATE:22-1-2011
EXPERTISE DE BASE
Y.APP.EO=>PLUS {AT}(X) Y
Y.APP.EN=>PLUS {AT}(X) Y
Y.APP.EC=>PLUS {AT}(X) Y
Y.APP.ES=>PLUS {AT}(X) Y
0 APPARAIT DANS [$FICTIF] DONNEES [`EN`,`X`,`AT`] RESULTATS VIDE
1 APPARAIT DANS [$FICTIF] DONNEES [`EC`,`X`,`AT`] RESULTATS VIDE
2 APPARAIT DANS [$FICTIF] DONNEES [`ES`,`X`,`AT`] RESULTATS VIDE
3 APPARAIT DANS [$CRINST,$APPRU,$REDUIT,"Z59Z,"Z54Z,"Z55Z,"Z56Z,"Z57Z,"Z66Z,
"Z69Z,"Z70Z,"Z71Z,"Z140Z,"Z141Z,"Z142Z,"Z143Z,"Z149Z,"Z150Z,"Z162Z,"Z166Z,
"Z259Z,"Z267Z,$DIVISION,$COPX,$QPR,ATOME91T,ATOME176T,$SUPG,$INFG,
$QUADRATIQUE] DONNEES [`EO`,`X`,`AT`] RESULTATS VIDE
VARIABLES GLOBALES [`EN`,`X`,`AT`,`EC`,`ES`,`EO`]
_______________________________________________________
Reply to this item at:
<http://gna.org/task/?7295>
_______________________________________________
Message sent via/by Gna!
http://gna.org/
_______________________________________________
Register mailing list
[email protected]
https://mail.gna.org/listinfo/register
