| version 1.26, 2003/12/06 02:49:22 |
version 1.27, 2004/04/29 11:20:37 |
|
|
| % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.25 2003/12/04 05:27:19 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.26 2003/12/06 02:49:22 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 3835 $ [ff ff] fromVectors :: $ |
|
| Line 3835 $ [ff ff] fromVectors :: $ |
|
| |
|
| /addStdoutStderr { |
/addStdoutStderr { |
| [(>) (stringOut://@@@stdout) (2>) (stringOut://@@@stderr)] join |
[(>) (stringOut://@@@stdout) (2>) (stringOut://@@@stderr)] join |
| |
} def |
| |
|
| |
[(,,,) |
| |
[(reparse a polynomial or polynomials)] |
| |
] putUsages |
| |
/,,, { |
| |
/arg1 set |
| |
[/in-reparse /ff] pushVariables |
| |
[ |
| |
/ff arg1 def |
| |
ff tag 6 eq { |
| |
ff { ,,, } map /arg1 set |
| |
} { |
| |
ff toString . /arg1 set |
| |
} ifelse |
| |
] pop |
| |
popVariables |
| |
arg1 |
| } def |
} def |
| |
|
| /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