| version 1.51, 2006/02/02 10:53:08 |
version 1.52, 2006/02/04 02:44:39 |
|
|
| %%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.50 2006/02/02 07:07:22 takayama Exp $ |
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.51 2006/02/02 10:53:08 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] pushVariables |
[/ee /ans /tt /lf /i /nn] pushVariables |
| [ |
[ |
| /ee arg1 def |
/ee arg1 def |
| { |
{ |
| Line 1866 oxasir.verbose { |
|
| Line 1866 oxasir.verbose { |
|
| ee (body) dc 1 get /ee set |
ee (body) dc 1 get /ee set |
| ee length 3 gt { |
ee length 3 gt { |
| ee 3 get /ee set |
ee 3 get /ee set |
| }{ /ee [ ] def } ifelse |
}{ |
| |
%% nn should be 2, [serial, common error no, short message] |
| |
ee length /nn set |
| |
nn 0 gt { |
| |
/ee [(reason_of_error) ee nn 1 sub get toString ] def |
| |
} { /ee [ ] def } ifelse |
| |
} ifelse |
| }{ } ifelse |
}{ } ifelse |
| ee etag 6 eq not { /ans [ ] def exit } { } ifelse |
ee etag 6 eq not { /ans [ ] def exit } { } ifelse |
| /ans [ ] def |
/ans [ ] def |
| Line 1905 oxasir.verbose { |
|
| Line 1911 oxasir.verbose { |
|
| ee (reason_of_parse_error) getNode /tt set |
ee (reason_of_parse_error) getNode /tt set |
| } { } ifelse |
} { } ifelse |
| tt tag 0 eq not { |
tt tag 0 eq not { |
| ans [(printErrorMessage, ) tt (string) dc nl lf] join /ans set |
ans [(printErrorMessage, ) |
| %% translation and encoding is necessary. |
tt (string) dc localizedString % for translation. |
| |
nl lf] join /ans set |
| }{ } ifelse |
}{ } ifelse |
| |
|
| exit |
exit |
![[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