Return to msg1.c CVS log

Up to [local] / OpenXM / src / k097

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

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