Return to debug.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Kan |
File: [local] / OpenXM / src / kan96xx / Kan / debug.sm1 (download)
Revision 1.3, Thu Nov 20 09:20:36 2003 UTC (20 years, 10 months ago) by takayama
QuoteMode(1) sets the parser in the quotemode; if unknown function symbol comes, it automatically translates the expression into a tree. Example: class polymake extends PrimitiveObject {local ; def hogera() { return(1);} } QuoteMode(1); polymake.foo(1,2): QuoteMode(0) turns off the quotemode. |
% $OpenXM: OpenXM/src/kan96xx/Kan/debug.sm1,v 1.3 2003/11/20 09:20:36 takayama Exp $ %%% debugging for new OpenXM-RFC 100. indeterminate or tree. [(parse) (../plugin/cmo.sm1) pushfile] extension /f (x+1 + x*h). def f [(class) (recursivePolynomial)] dc /g set (x) [(class) (indeterminate)] dc /x set (x) [(class) (indeterminate)] dc /xx set [(sin) [[(key1) (value1)] [(key2) (value2)]] [(x).]] [(class) (tree)] dc /t set g message x message t message g [[x t]] replace /gg set gg message [(cmoObjectToCmo) gg] extension /ggg set ggg message [(cmoCmoToObject) ggg] extension message %% Example of QuoteMode. %% In k0, sm1(" [(QuoteMode) 1] system_variable "); %% class polymake extends PrimitiveObject %% { local ; def dummy() { return (1); } } %% polymake.foo(1,2): ( ) message (QuoteMode ------ ) message [(QuoteMode) 1] system_variable (polymake) [ [(1).. (2)..] ] {foo} sendmsg2 /pp set pp message [(QuoteMode) 0] system_variable