Return to debug.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Kan |
File: [local] / OpenXM / src / kan96xx / Kan / debug.sm1 (download)
Revision 1.1, Thu Apr 12 06:48:25 2001 UTC (23 years, 3 months ago) by takayama
Kan/sm1 is changed to be complient to the change of the OpenXM-RFC 100 of before yesterday; "Trees" can be used in place of "indeterminates" in recursive polynomials. |
% $OpenXM: OpenXM/src/kan96xx/Kan/debug.sm1,v 1.1 2001/04/12 06:48:25 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) (hoge) [(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