| version 1.54, 2013/01/26 10:48:26 |
version 1.56, 2013/09/22 01:26:07 |
|
|
| % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.53 2006/02/04 02:44:39 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.55 2013/09/22 01:06:20 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. |
| |
|
| @@@.quiet { } |
@@@.quiet { } |
| { (macro package : dr.sm1, 9/26,1995 --- Version 12/10, 2000. ) message } ifelse |
{ (macro package : dr.sm1, 9/26,1995 --- Version 09/22, 2013. ) message } ifelse |
| |
|
| /ctrlC-hook { |
/ctrlC-hook { |
| %%% define your own routing in case of error. |
%%% define your own routing in case of error. |
| Line 4569 $ [ff ff] fromVectors :: $ |
|
| Line 4569 $ [ff ff] fromVectors :: $ |
|
| popVariables |
popVariables |
| arg1 |
arg1 |
| } def |
} def |
| |
|
| |
/sm1log { |
| |
/arg1 set |
| |
[/ss /fd ] pushVariables |
| |
[ |
| |
arg1 /ss set |
| |
(/tmp/sm1log.txt) (a) file /fd set |
| |
fd , [[(date)] extension |
| |
ss (string) dc] cat , writestring |
| |
fd closefile |
| |
] pop |
| |
popVariables |
| |
} def |
| |
|
| ; |
; |
| |
|
| |
|
![[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