Return to debug.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

Annotation of OpenXM/src/kan96xx/Kan/debug.sm1, Revision 1.3

1.3     ! takayama    1: % $OpenXM: OpenXM/src/kan96xx/Kan/debug.sm1,v 1.2 2003/11/20 07:36:03 takayama Exp $
1.1       takayama    2:
                      3: %%% debugging for new OpenXM-RFC 100.  indeterminate or tree.
                      4: [(parse) (../plugin/cmo.sm1) pushfile] extension
                      5: /f (x+1 + x*h). def
                      6: f [(class) (recursivePolynomial)] dc /g set
                      7: (x) [(class) (indeterminate)] dc /x set
                      8: (x) [(class) (indeterminate)] dc /xx set
1.2       takayama    9: [(sin) [[(key1) (value1)] [(key2) (value2)]] [(x).]] [(class) (tree)] dc /t set
1.1       takayama   10: g message
                     11: x message
                     12: t message
                     13: g [[x t]] replace /gg set
                     14: gg message
                     15:
                     16: [(cmoObjectToCmo) gg] extension /ggg set
                     17: ggg message
                     18: [(cmoCmoToObject) ggg] extension message
1.3     ! takayama   19:
        !            20: %% Example of QuoteMode.
        !            21: %% In k0, sm1(" [(QuoteMode) 1] system_variable ");
        !            22: %%   class polymake extends PrimitiveObject
        !            23: %%   { local ; def dummy() { return (1); } }
        !            24: %%   polymake.foo(1,2):
        !            25: (  ) message
        !            26: (QuoteMode ------ ) message
        !            27: [(QuoteMode) 1] system_variable
        !            28: (polymake)
        !            29: [ [(1).. (2)..] ] {foo} sendmsg2 /pp set
        !            30: pp message
        !            31: [(QuoteMode) 0] system_variable
1.1       takayama   32:
                     33: