[BACK]Return to d.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097

Diff for /OpenXM/src/k097/d.c between version 1.21 and 1.22

version 1.21, 2020/10/07 23:53:25 version 1.22, 2021/03/12 06:45:55
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/k097/d.c,v 1.20 2018/11/02 01:33:26 takayama Exp $ */  /* $OpenXM: OpenXM/src/k097/d.c,v 1.21 2020/10/07 23:53:25 takayama Exp $ */
 /* simple.c,  1996, 1/1 --- 1/5 */  /* simple.c,  1996, 1/1 --- 1/5 */
 #include <stdio.h>  #include <stdio.h>
 #include <ctype.h>  #include <ctype.h>
Line 430  int KClex() {
Line 430  int KClex() {
       /*if (Mydebug) printf("identifier string=[%s]",name);*/        /*if (Mydebug) printf("identifier string=[%s]",name);*/
       if (isdigit(name[0])) {        if (isdigit(name[0])) {
         /****************************          /****************************
           /**case : machine integer.            **case : machine integer.
         KClval = newObject_d();          KClval = newObject_d();
         KClval->tag = Sinteger;          KClval->tag = Sinteger;
         sscanf(name,"%d",&(KClval->lc.ival));*************/          sscanf(name,"%d",&(KClval->lc.ival));*************/
Line 443  int KClex() {
Line 443  int KClex() {
         break;          break;
       } /* else : Identifier case.*/        } /* else : Identifier case.*/
   
       if (d = isReserved(name)) {        if ((d = isReserved(name))) {
         if (Replace) printf0(name);          if (Replace) printf0(name);
         return(d);          return(d);
       } else {        } else {
Line 940  int fsgetc(objectp op) {
Line 940  int fsgetc(objectp op) {
   
 int fsungetc(int c,objectp op) {  int fsungetc(int c,objectp op) {
   fprintf(stderr,"Sorry. fsungetc has not yet implemented.\n");    fprintf(stderr,"Sorry. fsungetc has not yet implemented.\n");
     return -1;
 }  }
   
 void clearInop() {  void clearInop() {
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>