Return to msg1.c CVS log

Up to [local] / OpenXM / src / k097

Annotation of OpenXM/src/k097/msg1.c, Revision 1.1

1.1     ! maekawa     1: #include <stdio.h>
        !             2: #include "datatype.h"
        !             3: #include "stackm.h"
        !             4: #include "extern.h"
        !             5: #include "extern2.h"
        !             6:
        !             7: #include "ak0.h"
        !             8:
        !             9: static int debug1 = 0;
        !            10:
        !            11: void KasirKanExecute0(char *s) {
        !            12:   char *ans;
        !            13:   if (debug1) {
        !            14:     fprintf(stderr,"This is KasirKanExecute0 in mgs1.c.\n");
        !            15:     fprintf(stderr,"Now execute .. <<%s>> as the asir command.\n",s);
        !            16:   }
        !            17:   ans = KasirKanExecuteString(s);
        !            18:   if (debug1) {
        !            19:     fprintf(stderr,"Asir returns .. %s \n",ans);
        !            20:   }
        !            21:   ans = KasirKanConvert(ans);
        !            22:   if (debug1) {
        !            23:     fprintf(stderr,"Input to sm1 .. %s \n",ans);
        !            24:   }
        !            25:   KSexecuteString(ans); /* put the result on the stack. */
        !            26:   if (debug1) {
        !            27:     fprintf(stderr,"\nDone.\n");
        !            28:   }
        !            29: }
        !            30:
        !            31: