version 1.3, 2000/08/22 05:04:25 |
version 1.4, 2018/03/29 01:32:54 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/parse/asir_sm_main.c,v 1.2 2000/08/21 08:31:46 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/asir_sm_main.c,v 1.3 2000/08/22 05:04:25 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 54 extern jmp_buf env; |
|
Line 54 extern jmp_buf env; |
|
extern int Asir_OperandStackPtr; |
extern int Asir_OperandStackPtr; |
|
|
main() { |
main() { |
char buf[BUFSIZ*100]; |
char buf[BUFSIZ*100]; |
char *data; |
char *data; |
int size,cur_sig; |
int size,cur_sig; |
|
|
Asir_Start(); |
Asir_Start(); |
|
|
while ( 1 ) { |
while ( 1 ) { |
while ( 1 ) { |
while ( 1 ) { |
cur_sig = sigsetmask(~0); |
cur_sig = sigsetmask(~0); |
if ( !fgets(buf,BUFSIZ*100,stdin) ) |
if ( !fgets(buf,BUFSIZ*100,stdin) ) |
exit(0); |
exit(0); |
sigsetmask(cur_sig); |
sigsetmask(cur_sig); |
switch ( buf[0] ) { |
switch ( buf[0] ) { |
case 'u': |
case 'u': |
Asir_ExecuteString(buf+1); |
Asir_ExecuteString(buf+1); |
break; |
break; |
case 'o': |
case 'o': |
printf("%s\n",Asir_PopString()); |
printf("%s\n",Asir_PopString()); |
break; |
break; |
case 's': |
case 's': |
Asir_Set(buf+1); |
Asir_Set(buf+1); |
break; |
break; |
case 'O': |
case 'O': |
data = (char *)Asir_PopBinary(&size); |
data = (char *)Asir_PopBinary(&size); |
Asir_PushBinary(size,data); |
Asir_PushBinary(size,data); |
break; |
break; |
default: |
default: |
break; |
break; |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
KSstart(){} |
KSstart(){} |