Return to setvariables.ccc CVS log

Up to [local] / OpenXM / src / k097 / lib

Annotation of OpenXM/src/k097/lib/setvariables.ccc, Revision 1.1.1.1

1.1       maekawa     1:
                      2:
                      3: /* lib/setvariables.ccc :  to generate sm1-package setvariables.sm1 */
                      4: /* sm1(" (incmac.sm1) run (slib.sm1) run ");
                      5:    sm1(" (factor-a.sm1) run  ");  run does not work!! */
                      6: sm1(" 0 @@@.indexMode ");  /* C-like notation of matrix. a[0], ... */
                      7:
                      8: def getxvar(i) {
                      9:   sm1( "[(x) (var) ", i , " ..int ] system_variable /FunctionValue set ");
                     10: }
                     11:
                     12: def getdvar(i) {
                     13:   sm1( "[(D) (var) ", i , " ..int ] system_variable /FunctionValue set ");
                     14: }
                     15:
                     16: def getvarn() {
                     17:   sm1( "[(N)] system_variable (universalNumber) dc /FunctionValue set ");
                     18: }
                     19:
                     20: def SetRingVariables() {
                     21:   /* Don't use local variables in this function,
                     22:      because we set global variables in this function.
                     23:      cf. SSWork/yacc/memo.txt,  1997,3/6 */
                     24:   Print("SetRingVariables() Setting the global variables : ");
                     25:   setRingVariables002(0,sm1( "[(CC)] system_variable (universalNumber) dc "));
                     26:   setRingVariables002(sm1( "[(C)] system_variable (universalNumber) dc "),
                     27:                       sm1( "[(LL)] system_variable (universalNumber) dc "));
                     28:   setRingVariables002(sm1( "[(L)] system_variable (universalNumber) dc "),
                     29:                       sm1( "[(MM)] system_variable (universalNumber) dc "));
                     30:   setRingVariables002(sm1( "[(M)] system_variable (universalNumber) dc "),
                     31:                       sm1( "[(NN)] system_variable (universalNumber) dc "));
                     32:   Ln();
                     33: }
                     34:
                     35: def void setRingVariables002(tmp002_p,tmp002_q) {
                     36:   /* tmp002_ must not be used as variables names. */
                     37:   local tmp002_i,tmp002_v,tmp002_str;
                     38:   for (tmp002_i=tmp002_p;tmp002_i<tmp002_q;tmp002_i++) {
                     39:     tmp002_v = getxvar(tmp002_i);
                     40:     Print(tmp002_v); Print(" ");
                     41:     str = AddString(["/",tmp002_v," $",tmp002_v,"$ expand def "]);
                     42:     sm1("[(parse) ",str," ] extension ");
                     43:     tmp002_v = getdvar(tmp002_i);
                     44:     Print(tmp002_v); Print(" ");
                     45:     str = AddString(["/",tmp002_v," $",tmp002_v,"$ expand def "]);
                     46:     sm1("[(parse) ",str," ] extension ");
                     47:   }
                     48: }