Annotation of OpenXM/src/k097/slib.sm1, Revision 1.2
1.1 maekawa 1: K00_verbose %% if-condition
2: { %%ifbody
3: ( slib.k (slib.ccc): 8/17,1996, 3/4 -- 3/10,1997 ) message }%%end if if body
4: { %%if- else part
5: } ifelse
6: [ ] /Helplist set
7: /HelpAdd {
8: db.DebugStack setstack $In function : HelpAdd of class PrimitiveObject$ stdstack
9: /Arglist set /Argthis set /FunctionValue [ ] def
10: [/this /s ] /ArgNames set ArgNames pushVariables [ %%function body
11: [Argthis] Arglist join ArgNames mapset
12: this [ %% function args
13: Helplist s ] {Append} sendmsg2
14: /Helplist set
15: /ExitPoint ]pop popVariables %%pop argValues
16: db.DebugStack setstack pop stdstack
17: } def
18: %%end of function
19:
20: /Print {
21: db.DebugStack setstack $In function : Print of class PrimitiveObject$ stdstack
22: /Arglist set /Argthis set /FunctionValue [ ] def
23: [/this /a ] /ArgNames set ArgNames pushVariables [ %%function body
24: [Argthis] Arglist join ArgNames mapset
25: a messagen /ExitPoint ]pop popVariables %%pop argValues
26: db.DebugStack setstack pop stdstack
27: FunctionValue } def
28: %%end of function
29:
30: /Println {
31: db.DebugStack setstack $In function : Println of class PrimitiveObject$ stdstack
32: /Arglist set /Argthis set /FunctionValue [ ] def
33: [/this /a ] /ArgNames set ArgNames pushVariables [ %%function body
34: [Argthis] Arglist join ArgNames mapset
35: a message /ExitPoint ]pop popVariables %%pop argValues
36: db.DebugStack setstack pop stdstack
37: FunctionValue } def
38: %%end of function
39:
40: /Ln {
41: db.DebugStack setstack $In function : Ln of class PrimitiveObject$ stdstack
42: /Arglist set /Argthis set /FunctionValue [ ] def
43: [/this ] /ArgNames set ArgNames pushVariables [ %%function body
44: [Argthis] ArgNames mapset
45: ( ) message /ExitPoint ]pop popVariables %%pop argValues
46: db.DebugStack setstack pop stdstack
47: FunctionValue } def
48: %%end of function
49:
50: /Poly {
51: db.DebugStack setstack $In function : Poly of class PrimitiveObject$ stdstack
52: /Arglist set /Argthis set /FunctionValue [ ] def
53: [/this /f ] /ArgNames set ArgNames pushVariables [ %%function body
54: [Argthis] Arglist join ArgNames mapset
55: f (poly) data_conversion /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
56: db.DebugStack setstack pop stdstack
57: FunctionValue } def
58: %%end of function
59:
60: /PolyR {
61: db.DebugStack setstack $In function : PolyR of class PrimitiveObject$ stdstack
62: /Arglist set /Argthis set /FunctionValue [ ] def
63: [/this /f /r ] /ArgNames set ArgNames pushVariables [ %%function body
64: [Argthis] Arglist join ArgNames mapset
65: f r ,, /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
66: db.DebugStack setstack pop stdstack
67: FunctionValue } def
68: %%end of function
69:
70: /Degree {
71: db.DebugStack setstack $In function : Degree of class PrimitiveObject$ stdstack
72: /Arglist set /Argthis set /FunctionValue [ ] def
73: [/this /f /v ] /ArgNames set ArgNames pushVariables [ %%function body
74: [Argthis] Arglist join ArgNames mapset
75: f v degree (universalNumber) dc /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
76: db.DebugStack setstack pop stdstack
77: FunctionValue } def
78: %%end of function
79:
80: /Append {
81: db.DebugStack setstack $In function : Append of class PrimitiveObject$ stdstack
82: /Arglist set /Argthis set /FunctionValue [ ] def
83: [/this /f /g ] /ArgNames set ArgNames pushVariables [ %%function body
84: [Argthis] Arglist join ArgNames mapset
85: this [ %% function args
86: f [ g ] ] {Join} sendmsg2
87: /FunctionValue set {/ExitPoint goto} exec %%return
88: /ExitPoint ]pop popVariables %%pop argValues
89: db.DebugStack setstack pop stdstack
90: FunctionValue } def
91: %%end of function
92:
93: /Length {
94: db.DebugStack setstack $In function : Length of class PrimitiveObject$ stdstack
95: /Arglist set /Argthis set /FunctionValue [ ] def
96: [/this /f ] /ArgNames set ArgNames pushVariables [ %%function body
97: [Argthis] Arglist join ArgNames mapset
98: f length (universalNumber) dc /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
99: db.DebugStack setstack pop stdstack
100: FunctionValue } def
101: %%end of function
102:
103: /Indexed {
104: db.DebugStack setstack $In function : Indexed of class PrimitiveObject$ stdstack
105: /Arglist set /Argthis set /FunctionValue [ ] def
106: [/this /name /i ] /ArgNames set ArgNames pushVariables [ %%function body
107: [Argthis] Arglist join ArgNames mapset
108: name i s.Indexed /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
109: db.DebugStack setstack pop stdstack
110: FunctionValue } def
111: %%end of function
112:
113: /Indexed2 {
114: db.DebugStack setstack $In function : Indexed2 of class PrimitiveObject$ stdstack
115: /Arglist set /Argthis set /FunctionValue [ ] def
116: [/this /name /i /j ] /ArgNames set ArgNames pushVariables [ %%function body
117: [Argthis] Arglist join ArgNames mapset
118: name i j s.Indexed2 /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
119: db.DebugStack setstack pop stdstack
120: FunctionValue } def
121: %%end of function
122:
123: /Transpose {
124: db.DebugStack setstack $In function : Transpose of class PrimitiveObject$ stdstack
125: /Arglist set /Argthis set /FunctionValue [ ] def
126: [/this /mat ] /ArgNames set ArgNames pushVariables [ %%function body
127: [Argthis] Arglist join ArgNames mapset
128: mat transpose /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
129: db.DebugStack setstack pop stdstack
130: FunctionValue } def
131: %%end of function
132:
133:
134: /s.Indexed {
135: (integer) dc /arg2 set
136: /arg1 set
137: arg1 ([) arg2 (dollar) dc (]) 4 cat_n
138: } def
139:
140: /s.Indexed2 {
141: (integer) dc /arg3 set
142: (integer) dc /arg2 set
143: /arg1 set
144: arg1 ([) arg2 (dollar) dc (,) arg3 (dollar) dc (]) 6 cat_n
145: } def
146: /Groebner {
147: db.DebugStack setstack $In function : Groebner of class PrimitiveObject$ stdstack
148: /Arglist set /Argthis set /FunctionValue [ ] def
149: [/this /F ] /ArgNames set ArgNames pushVariables [ %%function body
150: [Argthis] Arglist join ArgNames mapset
151: F {[[(h). (1).]] replace homogenize} map /arg1 set
152: [arg1] groebner 0 get
153: /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
154: db.DebugStack setstack pop stdstack
155: FunctionValue } def
156: %%end of function
157:
158: /GroebnerTime {
159: db.DebugStack setstack $In function : GroebnerTime of class PrimitiveObject$ stdstack
160: /Arglist set /Argthis set /FunctionValue [ ] def
161: [/this /F ] /ArgNames set ArgNames pushVariables [ %%function body
162: [Argthis] Arglist join ArgNames mapset
163: F {[[(h). (1).]] replace homogenize} map /arg1 set
164: { [arg1] groebner 0 get } timer
165: /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
166: db.DebugStack setstack pop stdstack
167: FunctionValue } def
168: %%end of function
169:
170: /LiftStd {
171: db.DebugStack setstack $In function : LiftStd of class PrimitiveObject$ stdstack
172: /Arglist set /Argthis set /FunctionValue [ ] def
173: [/this /F ] /ArgNames set ArgNames pushVariables [ %%function body
174: [Argthis] Arglist join ArgNames mapset
175: F {[[(h). (1).]] replace homogenize} map /arg1 set
176: [arg1 [(needBack)]] groebner
177: /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
178: db.DebugStack setstack pop stdstack
179: FunctionValue } def
180: %%end of function
181:
182: /Reduction {
183: db.DebugStack setstack $In function : Reduction of class PrimitiveObject$ stdstack
184: /Arglist set /Argthis set /FunctionValue [ ] def
185: [/this /f /G ] /ArgNames set ArgNames pushVariables [ %%function body
186: [Argthis] Arglist join ArgNames mapset
187: f G reduction /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
188: db.DebugStack setstack pop stdstack
189: FunctionValue } def
190: %%end of function
191:
192: /IntegerToSm1Integer {
193: db.DebugStack setstack $In function : IntegerToSm1Integer of class PrimitiveObject$ stdstack
194: /Arglist set /Argthis set /FunctionValue [ ] def
195: [/this /f ] /ArgNames set ArgNames pushVariables [ %%function body
196: [Argthis] Arglist join ArgNames mapset
197: f (integer) dc /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
198: db.DebugStack setstack pop stdstack
199: FunctionValue } def
200: %%end of function
201:
202: /RingD {
203: db.DebugStack setstack $In function : RingD of class PrimitiveObject$ stdstack
204: /Arglist set /Argthis set /FunctionValue [ ] def
205: [/this /vList /weightMatrix /pp ] /ArgNames set ArgNames pushVariables [ %%function body
206: [Argthis] Arglist join ArgNames mapset
207: [ %%start of local variables
208: /new0 /tmp /size /n /i /j /newtmp /ringpp /argsize ] pushVariables [ %%local variables
209: this [ %% function args
210: Arglist ] {Length} sendmsg2
211: /argsize set
212: argsize (1).. eq
213: %% if-condition
214: { %%ifbody
215: [ vList ring_of_differential_operators ( ) elimination_order 0 ] define_ring
216: /tmp set tmp /FunctionValue set {/ExitPoint goto} exec %%return
217: }%%end if if body
218: { %%if- else part
219: } ifelse
220: argsize (2).. eq
221: %% if-condition
222: { %%ifbody
223: (0).. /pp set
224: }%%end if if body
225: { %%if- else part
226: } ifelse
227: this [ %% function args
228: pp ] {IntegerToSm1Integer} sendmsg2
229: /pp set
230: this [ %% function args
231: weightMatrix ] {Length} sendmsg2
232: /size set
233: this [ %% function args
234: size ] {NewVector} sendmsg2
235: /new0 set
236: /@@@.indexMode.flag.save @@@.indexMode.flag def 0 @@@.indexMode (0).. %%PSfor initvalue.
237: (integer) data_conversion
238: size (1).. sub (integer) data_conversion 1 2 -1 roll
239: { %% for body
240: (universalNumber) data_conversion /i set
241: weightMatrix [i ] Get
242: /tmp set
243: this [ %% function args
244: tmp ] {Length} sendmsg2
245: /n set
246: this [ %% function args
247: n ] {NewVector} sendmsg2
248: /newtmp set
249: (1).. /j set
250: %%for init.
251: %%for
252: { j n lt
253: { } {exit} ifelse
254: [ {%%increment
255: j (2).. {add} sendmsg2
256: /j set
257: } %%end of increment{A}
258: {%%start of B part{B}
259: newtmp [j (1).. {sub} sendmsg2
260: ] tmp [j (1).. {sub} sendmsg2
261: ] Get
262: Put
263: newtmp [j ] this [ %% function args
264: tmp [j ] Get
265: ] {IntegerToSm1Integer} sendmsg2
266: Put
267: } %% end of B part. {B}
268: 2 1 roll] {exec} map pop
269: } loop %%end of for
270: new0 [i ] newtmp Put
271: } for
272: [ vList ring_of_differential_operators new0 weight_vector pp ] define_ring /ringpp set
273: @@@.indexMode.flag.save @@@.indexMode ringpp /FunctionValue set {/ExitPoint goto} exec %%return
274: /ExitPoint ]pop popVariables %%pop the local variables
275: /ExitPoint ]pop popVariables %%pop argValues
276: db.DebugStack setstack pop stdstack
277: FunctionValue } def
278: %%end of function
279:
280: /getxvar {
281: db.DebugStack setstack $In function : getxvar of class PrimitiveObject$ stdstack
282: /Arglist set /Argthis set /FunctionValue [ ] def
283: [/this /i ] /ArgNames set ArgNames pushVariables [ %%function body
284: [Argthis] Arglist join ArgNames mapset
285: [(x) (var) i ..int ] system_variable /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
286: db.DebugStack setstack pop stdstack
287: FunctionValue } def
288: %%end of function
289:
290: /getdvar {
291: db.DebugStack setstack $In function : getdvar of class PrimitiveObject$ stdstack
292: /Arglist set /Argthis set /FunctionValue [ ] def
293: [/this /i ] /ArgNames set ArgNames pushVariables [ %%function body
294: [Argthis] Arglist join ArgNames mapset
295: [(D) (var) i ..int ] system_variable /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
296: db.DebugStack setstack pop stdstack
297: FunctionValue } def
298: %%end of function
299:
300: /getvarn {
301: db.DebugStack setstack $In function : getvarn of class PrimitiveObject$ stdstack
302: /Arglist set /Argthis set /FunctionValue [ ] def
303: [/this ] /ArgNames set ArgNames pushVariables [ %%function body
304: [Argthis] ArgNames mapset
305: [(N)] system_variable (universalNumber) dc /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
306: db.DebugStack setstack pop stdstack
307: FunctionValue } def
308: %%end of function
309:
310: true /SetRingVariables_Verbose set
311: /SetRingVariables {
312: db.DebugStack setstack $In function : SetRingVariables of class PrimitiveObject$ stdstack
313: /Arglist set /Argthis set /FunctionValue [ ] def
314: [/this ] /ArgNames set ArgNames pushVariables [ %%function body
315: [Argthis] ArgNames mapset
316: SetRingVariables_Verbose %% if-condition
317: { %%ifbody
318: this [ %% function args
319: (SetRingVariables() Setting the global variables : ) ] {Print} sendmsg2
320: }%%end if if body
321: { %%if- else part
322: } ifelse
323: this [ %% function args
324: (0).. [(CC)] system_variable (universalNumber) dc ] {k00setRingVariables} sendmsg2
325: this [ %% function args
326: [(C)] system_variable (universalNumber) dc [(LL)] system_variable (universalNumber) dc ] {k00setRingVariables} sendmsg2
327: this [ %% function args
328: [(L)] system_variable (universalNumber) dc [(MM)] system_variable (universalNumber) dc ] {k00setRingVariables} sendmsg2
329: this [ %% function args
330: [(M)] system_variable (universalNumber) dc [(NN)] system_variable (universalNumber) dc ] {k00setRingVariables} sendmsg2
331: SetRingVariables_Verbose %% if-condition
332: { %%ifbody
333: this [ %% function args
334: ] {Ln} sendmsg2
335: }%%end if if body
336: { %%if- else part
337: } ifelse
338: /ExitPoint ]pop popVariables %%pop argValues
339: db.DebugStack setstack pop stdstack
340: FunctionValue } def
341: %%end of function
342:
343: /k00AreThereLeftBrace {
344: db.DebugStack setstack $In function : k00AreThereLeftBrace of class PrimitiveObject$ stdstack
345: /Arglist set /Argthis set /FunctionValue [ ] def
346: [/this /s ] /ArgNames set ArgNames pushVariables [ %%function body
347: [Argthis] Arglist join ArgNames mapset
348: [ %%start of local variables
349: /leftBrace /jj /slist ] pushVariables [ %%local variables
350: $[$ (array) dc 0 get (universalNumber) dc /leftBrace set
351: this [ %% function args
352: this [ %% function args
353: s ] {StringToIntegerArray} sendmsg2
354: leftBrace ] {Position} sendmsg2
355: /jj set
356: jj (1).. (0).. 2 1 roll {sub} sendmsg
357: eq not
358: %% if-condition
359: { %%ifbody
360: true /FunctionValue set {/ExitPoint goto} exec %%return
361: }%%end if if body
362: { %%if- else part
363: false /FunctionValue set {/ExitPoint goto} exec %%return
364: } ifelse
365: /ExitPoint ]pop popVariables %%pop the local variables
366: /ExitPoint ]pop popVariables %%pop argValues
367: db.DebugStack setstack pop stdstack
368: FunctionValue } def
369: %%end of function
370:
371: /k00setRingVariables {
372: db.DebugStack setstack $In function : k00setRingVariables of class PrimitiveObject$ stdstack
373: /Arglist set /Argthis set /FunctionValue [ ] def
374: [/this /tmp002_p /tmp002_q ] /ArgNames set ArgNames pushVariables [ %%function body
375: [Argthis] Arglist join ArgNames mapset
376: [ %%start of local variables
377: /tmp002_i /tmp002_v /tmp002_str ] pushVariables [ %%local variables
378: tmp002_p %%PSfor initvalue.
379: (integer) data_conversion
380: tmp002_q (1).. sub (integer) data_conversion 1 2 -1 roll
381: { %% for body
382: (universalNumber) data_conversion /tmp002_i set
383: this [ %% function args
384: tmp002_i ] {getxvar} sendmsg2
385: /tmp002_v set
386: this [ %% function args
387: tmp002_v ] {k00AreThereLeftBrace} sendmsg2
388: %% if-condition
389: { %%ifbody
390: }%%end if if body
391: { %%if- else part
392: SetRingVariables_Verbose %% if-condition
393: { %%ifbody
394: this [ %% function args
395: tmp002_v ] {Print} sendmsg2
396: this [ %% function args
397: ( ) ] {Print} sendmsg2
398: }%%end if if body
399: { %%if- else part
400: } ifelse
401: this [ %% function args
402: [ (/) tmp002_v ( $) tmp002_v ($ (poly) data_conversion def ) ] ] {AddString} sendmsg2
403: /str set
404: [(parse) str ] extension } ifelse
405: this [ %% function args
406: tmp002_i ] {getdvar} sendmsg2
407: /tmp002_v set
408: this [ %% function args
409: tmp002_v ] {k00AreThereLeftBrace} sendmsg2
410: %% if-condition
411: { %%ifbody
412: }%%end if if body
413: { %%if- else part
414: SetRingVariables_Verbose %% if-condition
415: { %%ifbody
416: this [ %% function args
417: tmp002_v ] {Print} sendmsg2
418: this [ %% function args
419: ( ) ] {Print} sendmsg2
420: }%%end if if body
421: { %%if- else part
422: } ifelse
423: this [ %% function args
424: [ (/) tmp002_v ( $) tmp002_v ($ (poly) data_conversion def ) ] ] {AddString} sendmsg2
425: /str set
426: [(parse) str ] extension } ifelse
427: } for
428: /ExitPoint ]pop popVariables %%pop the local variables
429: /ExitPoint ]pop popVariables %%pop argValues
430: db.DebugStack setstack pop stdstack
431: } def
432: %%end of function
433:
434: /AddString {
435: db.DebugStack setstack $In function : AddString of class PrimitiveObject$ stdstack
436: /Arglist set /Argthis set /FunctionValue [ ] def
437: [/this /f ] /ArgNames set ArgNames pushVariables [ %%function body
438: [Argthis] Arglist join ArgNames mapset
439: f aload length cat_n /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
440: db.DebugStack setstack pop stdstack
441: FunctionValue } def
442: %%end of function
443:
444: /IntegerToString {
445: db.DebugStack setstack $In function : IntegerToString of class PrimitiveObject$ stdstack
446: /Arglist set /Argthis set /FunctionValue [ ] def
447: [/this /f ] /ArgNames set ArgNames pushVariables [ %%function body
448: [Argthis] Arglist join ArgNames mapset
449: f (string) dc /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
450: db.DebugStack setstack pop stdstack
451: FunctionValue } def
452: %%end of function
453:
454: /Replace {
455: db.DebugStack setstack $In function : Replace of class PrimitiveObject$ stdstack
456: /Arglist set /Argthis set /FunctionValue [ ] def
457: [/this /f /rule ] /ArgNames set ArgNames pushVariables [ %%function body
458: [Argthis] Arglist join ArgNames mapset
459: f rule replace /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
460: db.DebugStack setstack pop stdstack
461: FunctionValue } def
462: %%end of function
463:
464: /AsciiToString {
465: db.DebugStack setstack $In function : AsciiToString of class PrimitiveObject$ stdstack
466: /Arglist set /Argthis set /FunctionValue [ ] def
467: [/this /c ] /ArgNames set ArgNames pushVariables [ %%function body
468: [Argthis] Arglist join ArgNames mapset
469: c (integer) dc (string) dc /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
470: db.DebugStack setstack pop stdstack
471: FunctionValue } def
472: %%end of function
473:
474: /ToString {
475: db.DebugStack setstack $In function : ToString of class PrimitiveObject$ stdstack
476: /Arglist set /Argthis set /FunctionValue [ ] def
477: [/this /p ] /ArgNames set ArgNames pushVariables [ %%function body
478: [Argthis] Arglist join ArgNames mapset
479: [ %%start of local variables
480: /n /ans /i ] pushVariables [ %%local variables
481: [ ] /ans set
482: this [ %% function args
483: p ] {IsArray} sendmsg2
484: %% if-condition
485: { %%ifbody
486: this [ %% function args
487: p ] {Length} sendmsg2
488: /n set
489: this [ %% function args
490: ans ([ ) ] {Append} sendmsg2
491: /ans set
492: (0).. /i set
493: %%for init.
494: %%for
495: { i n lt
496: { } {exit} ifelse
497: [ {%%increment
498: /i i (1).. {add} sendmsg2 def
499: } %%end of increment{A}
500: {%%start of B part{B}
501: this [ %% function args
502: ans this [ %% function args
503: p [i ] Get
504: ] {ToString} sendmsg2
505: ] {Append} sendmsg2
506: /ans set
507: i n (1).. {sub} sendmsg2
508: eq not
509: %% if-condition
510: { %%ifbody
511: this [ %% function args
512: ans ( , ) ] {Append} sendmsg2
513: /ans set
514: }%%end if if body
515: { %%if- else part
516: } ifelse
517: } %% end of B part. {B}
518: 2 1 roll] {exec} map pop
519: } loop %%end of for
520: this [ %% function args
521: ans ( ] ) ] {Append} sendmsg2
522: /ans set
523: }%%end if if body
524: { %%if- else part
525: [ p (dollar) dc ] /ans set
526: } ifelse
527: this [ %% function args
528: ans ] {AddString} sendmsg2
529: /FunctionValue set {/ExitPoint goto} exec %%return
530: /ExitPoint ]pop popVariables %%pop the local variables
531: /ExitPoint ]pop popVariables %%pop argValues
532: db.DebugStack setstack pop stdstack
533: FunctionValue } def
534: %%end of function
535:
536: /IsArray {
537: db.DebugStack setstack $In function : IsArray of class PrimitiveObject$ stdstack
538: /Arglist set /Argthis set /FunctionValue [ ] def
539: [/this /p ] /ArgNames set ArgNames pushVariables [ %%function body
540: [Argthis] Arglist join ArgNames mapset
541: p isArray /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
542: db.DebugStack setstack pop stdstack
543: FunctionValue } def
544: %%end of function
545:
546: /Denominator {
547: db.DebugStack setstack $In function : Denominator of class PrimitiveObject$ stdstack
548: /Arglist set /Argthis set /FunctionValue [ ] def
549: [/this /f ] /ArgNames set ArgNames pushVariables [ %%function body
550: [Argthis] Arglist join ArgNames mapset
551: f (denominator) dc /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
552: db.DebugStack setstack pop stdstack
553: FunctionValue } def
554: %%end of function
555:
556: /Numerator {
557: db.DebugStack setstack $In function : Numerator of class PrimitiveObject$ stdstack
558: /Arglist set /Argthis set /FunctionValue [ ] def
559: [/this /f ] /ArgNames set ArgNames pushVariables [ %%function body
560: [Argthis] Arglist join ArgNames mapset
561: f (numerator) dc /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
562: db.DebugStack setstack pop stdstack
563: FunctionValue } def
564: %%end of function
565:
566: /Replace {
567: db.DebugStack setstack $In function : Replace of class PrimitiveObject$ stdstack
568: /Arglist set /Argthis set /FunctionValue [ ] def
569: [/this /f /rule ] /ArgNames set ArgNames pushVariables [ %%function body
570: [Argthis] Arglist join ArgNames mapset
571: [ %%start of local variables
572: /ans /n /tmp /i /num /den ] pushVariables [ %%local variables
573: this [ %% function args
574: f ] {IsArray} sendmsg2
575: %% if-condition
576: { %%ifbody
577: this [ %% function args
578: f ] {Length} sendmsg2
579: /n set
580: [ ] /ans set
581: (0).. /i set
582: %%for init.
583: %%for
584: { i n lt
585: { } {exit} ifelse
586: [ {%%increment
587: /i i (1).. {add} sendmsg2 def
588: } %%end of increment{A}
589: {%%start of B part{B}
590: this [ %% function args
591: ans this [ %% function args
592: f [i ] Get
593: rule ] {Replace} sendmsg2
594: ] {Append} sendmsg2
595: /ans set
596: } %% end of B part. {B}
597: 2 1 roll] {exec} map pop
598: } loop %%end of for
599: ans /FunctionValue set {/ExitPoint goto} exec %%return
600: }%%end if if body
601: { %%if- else part
602: } ifelse
603: f tag RationalFunctionP eq %% if-condition
604: { %%ifbody
605: this [ %% function args
606: f ] {Numerator} sendmsg2
607: /num set
608: this [ %% function args
609: f ] {Denominator} sendmsg2
610: /den set
611: num rule replace /num set
612: den rule replace /den set
613: num den {div} sendmsg2
614: /FunctionValue set {/ExitPoint goto} exec %%return
615: }%%end if if body
616: { %%if- else part
617: } ifelse
618: f rule replace /FunctionValue set /ExitPoint ]pop popVariables %%pop the local variables
619: /ExitPoint ]pop popVariables %%pop argValues
620: db.DebugStack setstack pop stdstack
621: FunctionValue } def
622: %%end of function
623:
624: /Map {
625: db.DebugStack setstack $In function : Map of class PrimitiveObject$ stdstack
626: /Arglist set /Argthis set /FunctionValue [ ] def
627: [/this /karg /func ] /ArgNames set ArgNames pushVariables [ %%function body
628: [Argthis] Arglist join ArgNames mapset
629: karg { [ 2 -1 roll ] this 2 -1 roll [(parse) func ] extension pop } map /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
630: db.DebugStack setstack pop stdstack
631: FunctionValue } def
632: %%end of function
633:
634: this [ %% function args
635: [ (Map) [ (Map(karg,func) applies the function <<func>> to the <<karg>>(string func).) ( Ex. Map([82,83,85],"AsciiToString"):) ] ] ] {HelpAdd} sendmsg2
636: /Position {
637: db.DebugStack setstack $In function : Position of class PrimitiveObject$ stdstack
638: /Arglist set /Argthis set /FunctionValue [ ] def
639: [/this /list /elem ] /ArgNames set ArgNames pushVariables [ %%function body
640: [Argthis] Arglist join ArgNames mapset
641: [ %%start of local variables
642: /n /pos /i ] pushVariables [ %%local variables
643: this [ %% function args
644: list ] {Length} sendmsg2
645: /n set
646: (1).. (0).. 2 1 roll {sub} sendmsg
647: /pos set
648: (0).. /i set
649: %%for init.
650: %%for
651: { i n lt
652: { } {exit} ifelse
653: [ {%%increment
654: /i i (1).. {add} sendmsg2 def
655: } %%end of increment{A}
656: {%%start of B part{B}
657: elem list [i ] Get
658: eq
659: %% if-condition
660: { %%ifbody
661: i /pos set
662: /k00.label0 goto }%%end if if body
663: { %%if- else part
664: } ifelse
665: } %% end of B part. {B}
666: 2 1 roll] {exec} map pop
667: } loop %%end of for
668: /k00.label0 pos /FunctionValue set {/ExitPoint goto} exec %%return
669: /ExitPoint ]pop popVariables %%pop the local variables
670: /ExitPoint ]pop popVariables %%pop argValues
671: db.DebugStack setstack pop stdstack
672: FunctionValue } def
673: %%end of function
674:
675: this [ %% function args
676: [ (Position) [ (Position(list,elem) returns the position p of the element <<elem>> in) ( the array <<list>>. If <<elem>> is not in <<list>>, it return -1) ( (array list).) (Ex. Position([1,34,2],34): ) ] ] ] {HelpAdd} sendmsg2
677: /StringToIntegerArray {
678: db.DebugStack setstack $In function : StringToIntegerArray of class PrimitiveObject$ stdstack
679: /Arglist set /Argthis set /FunctionValue [ ] def
680: [/this /s ] /ArgNames set ArgNames pushVariables [ %%function body
681: [Argthis] Arglist join ArgNames mapset
682: s (array) dc { (universalNumber) dc } map /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
683: db.DebugStack setstack pop stdstack
684: FunctionValue } def
685: %%end of function
686:
687: this [ %% function args
688: [ (StringToIntegerArray) [ (StringToIntegerArray(s) decomposes the string <<s>> into an array of) (ascii codes of <<s>> (string s).) (cf. AsciiToString.) ] ] ] {HelpAdd} sendmsg2
689: /StringToAsciiArray {
690: db.DebugStack setstack $In function : StringToAsciiArray of class PrimitiveObject$ stdstack
691: /Arglist set /Argthis set /FunctionValue [ ] def
692: [/this /s ] /ArgNames set ArgNames pushVariables [ %%function body
693: [Argthis] Arglist join ArgNames mapset
694: this [ %% function args
695: s ] {StringToIntegerArray} sendmsg2
696: /FunctionValue set {/ExitPoint goto} exec %%return
697: /ExitPoint ]pop popVariables %%pop argValues
698: db.DebugStack setstack pop stdstack
699: FunctionValue } def
700: %%end of function
701:
702: this [ %% function args
703: [ (StringToAsciiArray) [ (StringToAsciiArray(s) is StringToIntegerArray(s).) ] ] ] {HelpAdd} sendmsg2
704: /NewArray {
705: db.DebugStack setstack $In function : NewArray of class PrimitiveObject$ stdstack
706: /Arglist set /Argthis set /FunctionValue [ ] def
707: [/this /n ] /ArgNames set ArgNames pushVariables [ %%function body
708: [Argthis] Arglist join ArgNames mapset
709: this [ %% function args
710: n ] {NewVector} sendmsg2
711: /FunctionValue set {/ExitPoint goto} exec %%return
712: /ExitPoint ]pop popVariables %%pop argValues
713: db.DebugStack setstack pop stdstack
714: FunctionValue } def
715: %%end of function
716:
717: this [ %% function args
718: [ (NewArray) [ (NewArray(n) returns an array of size n (integer n).) ] ] ] {HelpAdd} sendmsg2
1.2 ! takayama 719: /GetEnv {
! 720: db.DebugStack setstack $In function : GetEnv of class PrimitiveObject$ stdstack
! 721: /Arglist set /Argthis set /FunctionValue [ ] def
! 722: [/this /s ] /ArgNames set ArgNames pushVariables [ %%function body
! 723: [Argthis] Arglist join ArgNames mapset
! 724: [(getenv) s] extension /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues
! 725: db.DebugStack setstack pop stdstack
! 726: FunctionValue } def
! 727: %%end of function
! 728:
! 729: this [ %% function args
! 730: [ (GetEnv) [ (GetEnv(s) returns the value of the environmental variable s (string s).) ] ] ] {HelpAdd} sendmsg2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to slib.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097