version 1.1, 2001/04/12 06:48:25 |
version 1.3, 2003/11/20 09:20:36 |
|
|
% $OpenXM$ |
% $OpenXM: OpenXM/src/kan96xx/Kan/debug.sm1,v 1.2 2003/11/20 07:36:03 takayama Exp $ |
|
|
%%% debugging for new OpenXM-RFC 100. indeterminate or tree. |
%%% debugging for new OpenXM-RFC 100. indeterminate or tree. |
[(parse) (../plugin/cmo.sm1) pushfile] extension |
[(parse) (../plugin/cmo.sm1) pushfile] extension |
|
|
f [(class) (recursivePolynomial)] dc /g set |
f [(class) (recursivePolynomial)] dc /g set |
(x) [(class) (indeterminate)] dc /x set |
(x) [(class) (indeterminate)] dc /x set |
(x) [(class) (indeterminate)] dc /xx set |
(x) [(class) (indeterminate)] dc /xx set |
[(sin) (hoge) [(x).]] [(class) (tree)] dc /t set |
[(sin) [[(key1) (value1)] [(key2) (value2)]] [(x).]] [(class) (tree)] dc /t set |
g message |
g message |
x message |
x message |
t message |
t message |
|
|
[(cmoObjectToCmo) gg] extension /ggg set |
[(cmoObjectToCmo) gg] extension /ggg set |
ggg message |
ggg message |
[(cmoCmoToObject) ggg] extension 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 |
|
|
|
|