=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/callsm1.sm1,v retrieving revision 1.1.1.1 retrieving revision 1.3 diff -u -p -r1.1.1.1 -r1.3 --- OpenXM/src/kan96xx/Doc/callsm1.sm1 1999/10/08 02:12:02 1.1.1.1 +++ OpenXM/src/kan96xx/Doc/callsm1.sm1 2004/05/13 05:33:10 1.3 @@ -1,10 +1,13 @@ +%% $OpenXM: OpenXM/src/kan96xx/Doc/callsm1.sm1,v 1.2 1999/11/09 11:43:34 takayama Exp $ %% Library for ox_sm1 to be called from asir cf. xm (callsm1.asir) %% This file is automatically loaded when ox_sm1 is called %% with the name ox_sm1_forAsir. See kxx/oxserver00.c. -/whoami { ( SSkan/lib/callsm1.sm1, 1999/6/23. ) message } def +/whoami { ( SSkan/lib/callsm1.sm1, 1999/11/9. ) message } def /@@@.Dsymbol (d) def /@@@.esymbol (e0) def +/@@@.Esymbol (ee0) def +/@@@.Hsymbol (hh) def /toAsirVar { /arg1 set