| version 1.52, 2006/02/04 02:44:39 |
version 1.53, 2006/02/25 09:11:10 |
|
|
| %%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.51 2006/02/02 10:53:08 takayama Exp $ |
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.52 2006/02/04 02:44:39 takayama Exp $ |
| |
|
| /ox.sm1.myname (ox-new.sm1) def |
/ox.sm1.myname (ox-new.sm1) def |
| |
|
| Line 1858 oxasir.verbose { |
|
| Line 1858 oxasir.verbose { |
|
| ] putUsages |
] putUsages |
| /translateErrorForCfep { |
/translateErrorForCfep { |
| /arg1 set |
/arg1 set |
| [/ee /ans /tt /lf /i /nn] pushVariables |
[/ee /ans /tt /lf /i /nn /ee.orig] pushVariables |
| [ |
[ |
| /ee arg1 def |
/ee arg1 def |
| { |
{ |
| ee etag 257 eq { |
ee etag 257 eq { |
| ee (body) dc 1 get /ee set |
ee (body) dc 1 get /ee set ee /ee.orig set |
| ee length 3 gt { |
ee length 3 gt { |
| ee 3 get /ee set |
ee 3 get /ee set |
| |
ee [[(reason_of_error) ee.orig 2 get toString ]] join /ee set |
| }{ |
}{ |
| %% nn should be 2, [serial, common error no, short message] |
%% nn should be 2, [serial, common error no, short message] |
| ee length /nn set |
ee length /nn set |
| Line 1915 oxasir.verbose { |
|
| Line 1916 oxasir.verbose { |
|
| tt (string) dc localizedString % for translation. |
tt (string) dc localizedString % for translation. |
| nl lf] join /ans set |
nl lf] join /ans set |
| }{ } ifelse |
}{ } ifelse |
| |
|
| |
%% Keyword from asir. A temporary implementation. |
| |
ee (toplevel) getNode /tt set |
| |
tt isInteger, tt tag 15 eq, or { |
| |
ans [(gotoLine, ) tt toString nl lf] join /ans set |
| |
} { } ifelse |
| |
|
| exit |
exit |
| } loop |
} loop |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ox.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Doc