| version 1.37, 2004/09/10 13:20:23 |
version 1.39, 2004/09/12 02:47:45 |
|
|
| % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.36 2004/09/09 11:42:22 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.38 2004/09/11 01:00:42 takayama Exp $ |
| %% dr.sm1 (Define Ring) 1994/9/25, 26 |
%% dr.sm1 (Define Ring) 1994/9/25, 26 |
| %% This file is error clean. |
%% This file is error clean. |
| |
|
| Line 4201 $ [ff ff] fromVectors :: $ |
|
| Line 4201 $ [ff ff] fromVectors :: $ |
|
| } def |
} def |
| [(cons) |
[(cons) |
| [(obj list cons list) |
[(obj list cons list) |
| |
]] putUsages |
| |
/arrayToList { |
| |
/arg1 set |
| |
[/a /r] pushVariables |
| |
[ |
| |
/a arg1 def |
| |
{ |
| |
a isArray { |
| |
a { arrayToList } map /a set |
| |
a (list) dc /r set |
| |
exit |
| |
} { } ifelse |
| |
/r a def |
| |
exit |
| |
} loop |
| |
/arg1 r def |
| |
] pop |
| |
popVariables |
| |
arg1 |
| |
} def |
| |
[(arrayToList) |
| |
[(a arrayToList list) |
| |
]] putUsages |
| |
|
| |
/listToArray { |
| |
/arg1 set |
| |
[/a /r] pushVariables |
| |
[ |
| |
/a arg1 def |
| |
{ |
| |
a tag 12 eq { |
| |
a (array) dc /a set |
| |
a { listToArray } map /r set |
| |
exit |
| |
} { } ifelse |
| |
a tag 0 eq { |
| |
/r [ ] def |
| |
exit |
| |
} { } ifelse |
| |
/r a def |
| |
exit |
| |
} loop |
| |
/arg1 r def |
| |
] pop |
| |
popVariables |
| |
arg1 |
| |
} def |
| |
[(listToArray) |
| |
[(list listToArray a) |
| |
]] putUsages |
| |
|
| |
/makeInfix { |
| |
[(or_attr) 4 4 -1 roll ] extension |
| |
} def |
| |
[(makeInfix) |
| |
[(literal makeInfix) |
| |
(Change literal to an infix operator.) |
| |
(Example: /+ { add } def ) |
| |
( /+ makeInfix) |
| |
( /s 0 def 1 1 100 { /i set s + i /s set } for s message) |
| |
( [ 1 2 3 ] { /i set i + 2 } map ::) |
| ]] putUsages |
]] putUsages |
| |
|
| /usages { |
/usages { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to dr.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan