File: [local] / OpenXM / src / k097 / Attic / msg1.c (download)
Revision 1.2, Fri Jan 21 03:01:25 2000 UTC (24 years, 8 months ago) by takayama
Branch: MAIN
CVS Tags: maekawa-ipv6, RELEASE_20000124, RELEASE_1_1_3, RELEASE_1_1_2 Changes since 1.1: +1 -0
lines
Added the tag $OpenXM$
|
/* $OpenXM: OpenXM/src/k097/msg1.c,v 1.2 2000/01/21 03:01:25 takayama Exp $ */
#include <stdio.h>
#include "datatype.h"
#include "stackm.h"
#include "extern.h"
#include "extern2.h"
#include "ak0.h"
static int debug1 = 0;
void KasirKanExecute0(char *s) {
char *ans;
if (debug1) {
fprintf(stderr,"This is KasirKanExecute0 in mgs1.c.\n");
fprintf(stderr,"Now execute .. <<%s>> as the asir command.\n",s);
}
ans = KasirKanExecuteString(s);
if (debug1) {
fprintf(stderr,"Asir returns .. %s \n",ans);
}
ans = KasirKanConvert(ans);
if (debug1) {
fprintf(stderr,"Input to sm1 .. %s \n",ans);
}
KSexecuteString(ans); /* put the result on the stack. */
if (debug1) {
fprintf(stderr,"\nDone.\n");
}
}