| version 1.8, 2002/02/09 06:21:02 |
version 1.9, 2002/02/12 08:54:55 |
|
|
| % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.7 2000/12/29 07:19:38 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.8 2002/02/09 06:21:02 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. |
| |
|
|
|
| |
|
| /tolower.aux { |
/tolower.aux { |
| /arg1 set |
/arg1 set |
| arg1 64 gt arg1 96 lt and |
arg1 64 gt arg1 91 lt and |
| { arg1 32 add } |
{ arg1 32 add } |
| { arg1 } ifelse |
{ arg1 } ifelse |
| } def |
} 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