[BACK]Return to debug.sm1 CVS log [TXT][DIR] 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, 6 months ago) by takayama
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.2: +14 -1 lines 

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