Return to msg1.c CVS log

Up to [local] / OpenXM / src / k097

Annotation of OpenXM/src/k097/msg1.c, Revision 1.1.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: