| version 1.50, 2006/02/02 07:07:22 |
version 1.51, 2006/02/02 10:53:08 |
|
|
| %%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.49 2006/02/02 05:15:45 takayama Exp $ |
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.50 2006/02/02 07:07:22 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] pushVariables |
[/ee /ans /tt /lf /i] pushVariables |
| [ |
[ |
| /ee arg1 def |
/ee arg1 def |
| { |
{ |
| Line 1871 oxasir.verbose { |
|
| Line 1871 oxasir.verbose { |
|
| ee etag 6 eq not { /ans [ ] def exit } { } ifelse |
ee etag 6 eq not { /ans [ ] def exit } { } ifelse |
| /ans [ ] def |
/ans [ ] def |
| /lf 12 (string) dc def % line feed. |
/lf 12 (string) dc def % line feed. |
| |
ans [(Begin) nl lf] join /ans set |
| |
|
| ee (lines) getNode /tt set |
ee (lines) getNode /tt set |
| tt tag 0 eq { |
tt tag 0 eq { |
| Line 1892 oxasir.verbose { |
|
| Line 1893 oxasir.verbose { |
|
| ans |
ans |
| [(findAndSelect, ) tt 0 get (string) dc nl lf] join /ans set |
[(findAndSelect, ) tt 0 get (string) dc nl lf] join /ans set |
| }{ } ifelse |
}{ } ifelse |
| |
1 1, tt length 1 sub { |
| |
/i set |
| |
ans |
| |
[(findAndShow, ) tt i get (string) dc nl lf] join /ans set |
| |
} for |
| } { } ifelse |
} { } ifelse |
| |
|
| ee (reason_of_error) getNode /tt set |
ee (reason_of_error) getNode /tt set |
| Line 1905 oxasir.verbose { |
|
| Line 1911 oxasir.verbose { |
|
| |
|
| exit |
exit |
| } loop |
} loop |
| |
ans [(End) nl lf] join /ans set |
| ans cat /arg1 set |
ans cat /arg1 set |
| ] pop |
] pop |
| popVariables |
popVariables |
![[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