Return to asir_sm_main.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

Annotation of OpenXM_contrib2/asir2000/parse/asir_sm_main.c, Revision 1.1

1.1     ! noro        1: /* $OpenXM: OpenXM/src/asir99/parse/asir_sm_main.c,v 1.1.1.1 1999/11/10 08:12:34 noro Exp $ */
        !             2: #include "ca.h"
        !             3: #include "parse.h"
        !             4:
        !             5: extern jmp_buf env;
        !             6: extern int Asir_OperandStackPtr;
        !             7:
        !             8: main() {
        !             9:        char buf[BUFSIZ*100];
        !            10:        char *data;
        !            11:        int size,cur_sig;
        !            12:
        !            13:        Asir_Start();
        !            14:
        !            15:        while ( 1 ) {
        !            16:                while ( 1 ) {
        !            17:                        cur_sig = sigsetmask(~0);
        !            18:                        if ( !fgets(buf,BUFSIZ*100,stdin) )
        !            19:                                exit(0);
        !            20:                        sigsetmask(cur_sig);
        !            21:                        switch ( buf[0] ) {
        !            22:                                case 'u':
        !            23:                                        Asir_ExecuteString(buf+1);
        !            24:                                        break;
        !            25:                                case 'o':
        !            26:                                        printf("%s\n",Asir_PopString());
        !            27:                                        break;
        !            28:                                case 's':
        !            29:                                        Asir_Set(buf+1);
        !            30:                                        break;
        !            31:                                case 'O':
        !            32:                                        data = (char *)Asir_PopBinary(&size);
        !            33:                                        Asir_PushBinary(size,data);
        !            34:                                        break;
        !            35:                                default:
        !            36:                                        break;
        !            37:                        }
        !            38:                }
        !            39:        }
        !            40: }
        !            41:
        !            42: KSstart(){}
        !            43: KSexecuteString(){}
        !            44: KSpopString(){}