OpenXM/src/k097/msg1.c - view

Return to msg1.c CVS log

Up to [local] / OpenXM / src / k097

File: [local] / OpenXM / src / k097 / Attic / msg1.c (download)

Revision 1.2, Fri Jan 21 03:01:25 2000 UTC (24 years, 4 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");
  }
}