Annotation of OpenXM/src/kan96xx/Kan/debug.sm1, Revision 1.2
1.2 ! takayama 1: % $OpenXM: OpenXM/src/kan96xx/Kan/debug.sm1,v 1.1 2001/04/12 06:48:25 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
19:
20:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>