Return to incmac.sm1 CVS log

Up to [local] / OpenXM / src / k097

Annotation of OpenXM/src/k097/incmac.sm1, Revision 1.1

1.1     ! maekawa     1:
        !             2:
        !             3: %%  incmac.sm1 ,   1996, 4/2.
        !             4: %% macros for the translator.
        !             5: %%% /goto { pop } def  %% should be changed later.
        !             6: %( incmac.sm1: 4/16, 1997 ) messagen
        !             7: %% Note that you cannot use incmac.k as an argument of the local function.
        !             8: %% BUG: [/incmac.k] pushvarable was [/k] pushVariables, but it caused
        !             9: %% error when you try to run a program foo(k) { for (i=0; i<k; i++) ... }.
        !            10: /mapset {
        !            11:   /arg2 set /arg1 set
        !            12:   [/incmac.k ] pushVariables
        !            13:   0 1 arg1 length 1 {sub} primmsg {
        !            14:     /incmac.k set
        !            15:     arg1 incmac.k get
        !            16:     arg2 incmac.k get
        !            17:     set
        !            18:   } for
        !            19:   popVariables
        !            20: } def
        !            21:
        !            22: %%%  a [i] b Put  <=== a[i] = b;
        !            23: %%%  a [i] Get    <=== a[i]
        !            24: /a [[1 2] [3 4]] def
        !            25: /@@@.indexMode {
        !            26: 0 eq {  %%% C-style
        !            27:  /@@@.indexMode.flag  0 def
        !            28:  /Get {
        !            29:  /arg2 set
        !            30:  /arg1 set
        !            31:  [/incmac.k ] pushVariables
        !            32:  [
        !            33:    arg1
        !            34:    0 1 arg2 length 1 {sub} primmsg {
        !            35:       /incmac.k set
        !            36:       arg2 incmac.k get ..int get
        !            37:    } for
        !            38:    /arg1 set
        !            39:   ] pop
        !            40:   popVariables
        !            41:   arg1
        !            42:  } def
        !            43:
        !            44:  /Put {
        !            45:  /arg3 set
        !            46:  /arg2 set
        !            47:  /arg1 set
        !            48:  [/incmac.k ] pushVariables
        !            49:  arg1
        !            50:  [ 0 1 arg2 length 1 {sub} primmsg {
        !            51:      /incmac.k set
        !            52:      arg2 incmac.k get ..int
        !            53:    } for
        !            54:  ] arg3 put
        !            55:  popVariables
        !            56:  } def
        !            57: } { %% else
        !            58:   (Warning: Do not use indexmode 1.) message
        !            59:   (Warning: Do not use indexmode 1.) message
        !            60:  /@@@.indexMode.flag  1 def
        !            61:  /Get {
        !            62:  /arg1 set
        !            63:  [/incmac.k ] pushVariables
        !            64:  [
        !            65:    arg1 0 get load
        !            66:    1 1 arg1 length 1 {sub} primmsg {
        !            67:       /incmac.k set
        !            68:       arg1 incmac.k get ..int 1 {sub} primmsg get
        !            69:    } for
        !            70:    /arg1 set
        !            71:   ] pop
        !            72:   popVariables
        !            73:   arg1
        !            74:  } def
        !            75:
        !            76:  /Put {
        !            77:  /arg2 set
        !            78:  /arg1 set
        !            79:  [/incmac.k ] pushVariables
        !            80:  arg1 0 get load
        !            81:  [ 1 1 arg1 length 1 {sub} primmsg {
        !            82:      /incmac.k set
        !            83:      arg1 incmac.k get ..int 1 {sub} primmsg
        !            84:    } for
        !            85:  ] arg2 put
        !            86:  popVariables
        !            87:  } def
        !            88: } ifelse
        !            89: } def
        !            90:
        !            91: 0 @@@.indexMode   %% Default index mode is C-style
        !            92:
        !            93:
        !            94:
        !            95:
        !            96: %%%%%%%%%%%%  1996, 4/28
        !            97: %% (2).. NewVector
        !            98: /NewVector {
        !            99:   0 get /arg1 set
        !           100:   pop  %% remove this
        !           101:   arg1 (integer) dc /arg1 set
        !           102:   [ 1 1 arg1 { pop (0).. } for ]
        !           103: } def
        !           104:
        !           105: %% (2).. (3).. NewMatrix
        !           106: /NewMatrix {
        !           107:   dup 0 get /arg1 set
        !           108:       1 get /arg2 set
        !           109:   pop  %% remove this
        !           110:   arg1 (integer) dc /arg1 set
        !           111:   arg2 (integer) dc /arg2 set
        !           112:   [1 1 arg1 { pop this [arg2] NewVector } for ]
        !           113: } def
        !           114:
        !           115: /Join {
        !           116:   2 -1 roll pop %% remove this.
        !           117:   aload pop join
        !           118: } def
        !           119:
        !           120:
        !           121:
        !           122: /lessThanOrEqual {
        !           123:   /arg2 set /arg1 set
        !           124:   arg1 arg2 lt { 1 }
        !           125:   { arg1 arg2 eq {1} {0} ifelse} ifelse
        !           126: } def
        !           127:
        !           128: %%% For objects
        !           129: /this null def
        !           130: /PrimitiveContextp StandardContextp def
        !           131: /PrimitiveObject  [PrimitiveContextp]  def
        !           132:
        !           133: /showln { pop message } def
        !           134:
        !           135: /KxxTrash0 {  % we do not need.
        !           136: /k.mapReplace {  {[[(h). (1).]] replace} map } def
        !           137: /Dehomogenize {
        !           138:   0 get /arg1 set
        !           139:   [
        !           140:     arg1 isArray not { arg1 [[(h). (1).]] replace }
        !           141:     { arg1 0 get isArray not { arg1 k.mapReplace }
        !           142:                              { arg1 {k.mapReplace} map } ifelse
        !           143:     } ifelse
        !           144:     /arg1 set
        !           145:   ] pop
        !           146:   arg1
        !           147: } def
        !           148: } def
        !           149:
        !           150:
        !           151:
        !           152:
        !           153:
        !           154: