[BACK]Return to scanner2.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan

Diff for /OpenXM/src/kan96xx/Kan/scanner2.c between version 1.5 and 1.9

version 1.5, 2004/09/10 22:21:27 version 1.9, 2005/07/18 10:55:16
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/scanner2.c,v 1.4 2004/09/10 13:20:23 takayama Exp $ */  /* $OpenXM: OpenXM/src/kan96xx/Kan/scanner2.c,v 1.8 2005/07/03 11:08:54 ohara Exp $ */
 /*  scanner2.c (SM StackMachine) */  /*  scanner2.c (SM StackMachine) */
 /* export: struct tokens decompostToTokens(char *str,int *sizep);  /* export: struct tokens decompostToTokens(char *str,int *sizep);
    scanner2.c is for getting tokens from a string.     scanner2.c is for getting tokens from a string.
 */  */
 #include <stdio.h>  #include <stdio.h>
   #include <stdlib.h>
   #include <string.h>
 #include "datatype.h"  #include "datatype.h"
 #include "stackm.h"  #include "stackm.h"
 struct tokens lookupTokens(struct tokens t);  struct tokens lookupTokens(struct tokens t);
Line 56  static isKakkoSM();
Line 58  static isKakkoSM();
 static isSymbolSM();  static isSymbolSM();
 static struct tokens getokenSM2();  static struct tokens getokenSM2();
   
   extern int ScannerWhich;
   extern unsigned char ScannerBuf[];
   extern int ScannerPt;
   
 /****************  code part of lexical analizer ********************/  /****************  code part of lexical analizer ********************/
   
 struct tokens *decomposeToTokens(str,sizep)  struct tokens *decomposeToTokens(str,sizep)
Line 106  static int getSM()
Line 112  static int getSM()
         fprintf(stderr,"\n");          fprintf(stderr,"\n");
   }    }
   
   c = StringSM[StrpSM++];    c = (unsigned char) StringSM[StrpSM++];
     if (c != 0) {
       ScannerPt++; if (ScannerPt >= SCANNERBUF_SIZE) ScannerPt = 0;
       ScannerBuf[ScannerPt] = c;
     }
   if (c == '\0') {    if (c == '\0') {
     StrpSM--;return(EOF);      StrpSM--;return(EOF);
   } else return(c);    } else return(c);
Line 147  static struct tokens flushSM()
Line 157  static struct tokens flushSM()
   strcpy(token,BufSM);    strcpy(token,BufSM);
   r.token = token;    r.token = token;
   r.kind = TypeSM;    r.kind = TypeSM;
     r.tflag = 0;
   if (r.kind == ID) {    if (r.kind == ID) {
     if (isLiteral(r.token)) {      if (isLiteral(r.token)) {
       r.object = lookupLiteralString(r.token);        r.object = lookupLiteralString(r.token);
Line 207  static struct tokens getokenSM2(kind,str)
Line 218  static struct tokens getokenSM2(kind,str)
   int level;    int level;
   
   if (kind == INIT) {    if (kind == INIT) {
       ScannerWhich = 2;
       ScannerPt = 0;
       ScannerBuf[0] = 0;
   
     StrpSM = 0;      StrpSM = 0;
     ExistSM = 0;      ExistSM = 0;
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>