Return to kobj2.sm1 CVS log

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

Annotation of OpenXM/src/k097/debug/kobj2.sm1, Revision 1.1.1.1

1.1       maekawa     1: StandardContextp setcontext
                      2: [(parse) (/home/nobuki/SSWork/yacc/incmac.sm1) pushfile] extension
                      3:
                      4: %% These are defined in incmac.sm1
                      5: %%/PrimitiveContextp StandardContextp def
                      6: %%/Object  [PrimitiveContextp]  def
                      7:
                      8: /new {Object} def
                      9:
                     10: /Complex [(Complex) Object 0 get newcontext] def
                     11:      Complex 0 get setcontext
                     12:
                     13: /new {
                     14:        /Arglist set /FunctionValue [ ] def
                     15:        [/a /b] /ArgNames set
                     16:        [/a /b /this /super] pushVariables
                     17:        [
                     18:         Arglist ArgNames mapset
                     19:         /super Object def
                     20:         super [ ] {new} sendmsg2  /this set
                     21:         Complex this {rest} primmsg {append} primmsg
                     22:         [null null] {append} primmsg  /this set
                     23:         this 1 a {put} primmsg
                     24:         this 2 b {put} primmsg
                     25:         /FunctionValue this def
                     26:        ] pop
                     27:        popVariables
                     28:        FunctionValue
                     29: } def
                     30:
                     31: /new0 {
                     32:        /Arglist set /Argthis set /FunctionValue [ ] def
                     33:        [/a /b] /ArgNames set
                     34:        [/this /a /b  /super] pushVariables
                     35:        [
                     36:         Arglist ArgNames mapset
                     37:         /super Object def
                     38:         super [ ] {new} sendmsg2  /this set
                     39:         Complex this {rest} primmsg {append} primmsg
                     40:         [null null] {append} primmsg  /this set
                     41:         this 1 a {put} primmsg
                     42:         this 2 b {put} primmsg
                     43:         /FunctionValue this def
                     44:        ] pop
                     45:        popVariables
                     46:        FunctionValue
                     47: } def
                     48:
                     49: /add {
                     50:    /Arglist set /Argthis set
                     51:    [/this /ans /b] pushVariables
                     52:    [
                     53:       /this Argthis def /b Arglist def
                     54:       /ans Complex [0 0] {new0} sendmsg2 def
                     55:       [/ans 1 ] << this 1 get >> << b 1 get >> {add} sendmsg2 Put
                     56:       [/ans 2 ] << this 2 get >> << b 2 get >> {add} sendmsg2 Put
                     57:       /FunctionValue ans def
                     58:    ] pop
                     59:    popVariables
                     60:    FunctionValue
                     61: } def
                     62:
                     63: /mul {
                     64:    /Arglist set /Argthis set
                     65:    [/this /ans /b /x1 /x2 /y1 /y2] pushVariables
                     66:    [
                     67:       /this Argthis def /b Arglist def
                     68:       /ans Complex [0 0] {new0} sendmsg2 def
                     69:       /x1 this 1 get def /x2 this 2 get def
                     70:       /y1 b 1 get def    /y2 b    2 get def
                     71:       [/ans 1 ] x1 y1 {mul} sendmsg2 x2 y2 {mul} sendmsg2 {sub} sendmsg2 Put
                     72:       [/ans 2 ] x1 y2 {mul} sendmsg2 x2 y1 {mul} sendmsg2 {add} sendmsg2 Put
                     73:       /FunctionValue ans def
                     74:    ] pop
                     75:    popVariables
                     76:    FunctionValue
                     77: } def
                     78:
                     79:
                     80: Object 0 get setcontext
                     81:
                     82:
                     83:
                     84:
                     85: