OpenXM/src/kan96xx/Doc/ox.sm1 - diff

Return to ox.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

version 1.56, 2006/12/21 05:29:49

version 1.58, 2013/09/19 10:15:11

Line 1

%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.55 2006/03/03 02:30:09 takayama Exp $

%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.57 2013/01/31 06:08:06 takayama Exp $

/ox.sm1.myname (ox-new.sm1) def

Line 796 ox.verbose { oxhelp } { } ifelse

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% Aux functions for ox_asir

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/ox_asirConnectMethod { asirconnectr /oxasir.ccc set } def

/ox_asirConnectMethod {

asirconnectr /oxasir.ccc set

[(getenv) (OX_ASIR_LOAD_FILE)] extension tag 0 eq { 0 }

{ /oxasir.loadfile [$load("$[(getenv) (OX_ASIR_LOAD_FILE)] extension $");$]

cat def

oxasir.ccc oxasir.loadfile oxsubmit

oxasir.ccc oxpopcmo } ifelse

} def

/oxasir.loadmethod 1 def %% "..." oxsendcmo (load) ox...

/oxasir.verbose 0 def

/oxasir.ccc load isArray

Line 1895 oxasir.verbose {

Line 1902 oxasir.verbose {

[(where),[(shell), (length)]],

[(reason_of_error), (invalid argument)],

[(asir_where),[[(toplevel),10],[(string),(foo),3],[(string),(hoge),-1]]

]

]]

/i1 set

%% /translateErrorForCfep.sampleInput set