X-Git-Url: http://git.marmaro.de/?a=blobdiff_plain;f=zotnet%2Ftws%2Flexstring.c;fp=zotnet%2Ftws%2Flexstring.c;h=0000000000000000000000000000000000000000;hb=2d3eed4014c861333bef889406ef2511dab09271;hp=91506e7270d6ef0c290a5649a548e3b9e7ed7abc;hpb=278a48ef53b5dde10d7c88f67f51ce15ad11c0c0;p=mmh

diff --git a/zotnet/tws/lexstring.c b/zotnet/tws/lexstring.c
deleted file mode 100644
index 91506e7..0000000
--- a/zotnet/tws/lexstring.c
+++ /dev/null
@@ -1,257 +0,0 @@
-
-/*
- * lexstring.c
- *
- * $Id$
- */
-
-#define ONECASE 1
-
-#include <stdio.h>
-#include <ctype.h>
-
-#define YYLERR yysvec
-#define YYTYPE int
-#define YYLMAX 256
-
-struct yysvf { 
-#ifndef hpux
-	struct yywork *yystoff;
-#else	/* hpux */
-	int yystoff;
-#endif	/* hpux */
-	struct yysvf *yyother;
-	int *yystops;
-};
-
-struct yywork { 
-    YYTYPE verify;
-    YYTYPE advance; 
-}; 
-
-extern int yyvstop[];
-extern struct yywork yycrank[];
-extern struct yysvf yysvec[];
-extern char yymatch[];
-extern char yyextra[];
-
-#ifdef LEXDEBUG
-static int debug = 0;
-#endif	/* LEXDEBUG */
-
-#ifdef ONECASE
-static char case_map[] = {
-     0,   1,   2,   3,   4,   5,   6,   7,   8,   9,
-    10,  11,  12,  13,  14,  15,  16,  17,  18,  19,
-    20,  21,  22,  23,  24,  25,  26,  27,  28,  29,
-    30,  31,  32,  33,  34,  35,  36,  37,  38,  39,
-    40,  41,  42,  43,  44,  45,  46,  47,  48,  49,
-    50,  51,  52,  53,  54,  55,  56,  57,  58,  59,
-    60,  61,  62,  63,  64,  97,  98,  99, 100, 101,
-   102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
-   112, 113, 114, 115, 116, 117, 118, 119, 120, 121,
-   122,  91,  92,  93,  94,  95,  96,  97,  98,  99,
-   100, 101, 102, 103, 104, 105, 106, 107, 108, 109,
-   110, 111, 112, 113, 114, 115, 116, 117, 118, 119,
-   120, 121, 122, 123, 124, 125, 126, 127,
-   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-   0, 0, 0, 0, 0, 0, 0, 0
-};
-#endif	/* ONECASE */
-
-
-int
-lex_string (char **strptr, int start_cond)
-{
-    struct yysvf *state, **lsp;
-    struct yywork *tran;
-    int statenum;
-    int ch;
-    char *cp = *strptr;
-    int *found;
-    struct yysvf *yylstate[YYLMAX];
-
-    /* start off machines */
-    lsp = yylstate;
-    statenum = 1 + start_cond;
-    state = yysvec + statenum;
-    for (;;) {
-#ifdef LEXDEBUG
-		if (debug) {
-			fprintf(stderr,"%d ",statenum - 1);
-		}
-#endif
-#ifndef hpux
-		tran = state->yystoff;
-#else	/* hpux */
-		tran = &yycrank[state->yystoff];
-#endif	/* hpux */
-		if(tran == yycrank)
-			/* may not be any transitions */
-			if (state->yyother == 0 ||
-#ifndef hpux
-			    state->yyother->yystoff == yycrank)
-#else	/* hpux */
-			    state->yyother->yystoff == 0)
-#endif	/* hpux */
-				break;
-
-#ifdef ONECASE
-		ch = case_map[(unsigned char) *cp++];
-#else	/*  not ONECASE */
-		ch = *cp++;
-#endif	/* ONECASE */
-#ifdef LEXDEBUG
-		if (debug) {
-			fprintf(stderr,"(");
-			allprint(ch);
-			fprintf(stderr, ")");
-		}
-#endif
-tryagain:
-#ifndef hpux
-		if ( tran > yycrank){
-#else	/* hpux */
-		if ( (int)tran > (int)yycrank){
-#endif	/* hpux */
-			tran += ch;
-			if (tran->verify == statenum){
-				if ((statenum = tran->advance) == 0){
-					/* error transitions */
-					--cp;
-					break;
-				}
-				state = statenum + yysvec;
-				*lsp++ = state;
-				goto contin;
-			}
-
-#ifndef hpux
-		} else if(tran < yycrank) {
-#else	/* hpux */
-		} else if( (int)tran < (int)yycrank) {
-#endif	/* hpux */
-			tran = yycrank+(yycrank-tran) + ch;
-#ifdef LEXDEBUG
-			if (debug) {
-				fprintf(stderr," compressed");
-			}
-#endif
-			if (tran->verify == statenum){
-				if ((statenum = tran->advance) == 0)
-					/* error transitions */
-					break;
-
-				state = statenum + yysvec;
-				*lsp++ = state;
-				goto contin;
-			}
-			tran += (yymatch[ch] - ch);
-#ifdef LEXDEBUG
-			if (debug) {
-				fprintf(stderr,"(fb ");
-				allprint(yymatch[ch]);
-				fprintf(stderr,")");
-			}
-#endif
-			if (tran->verify == statenum){
-				if((statenum = tran->advance) == 0)
-					/* error transition */
-					break;
-
-				state = statenum + yysvec;
-				*lsp++ = state;
-				goto contin;
-			}
-		}
-		if ((state = state->yyother) &&
-#ifndef hpux
-		    (tran = state->yystoff) != yycrank){
-#else	/* hpux */
-		    (tran = &yycrank[state->yystoff]) != yycrank){
-#endif	/* hpux */
-			statenum = state - yysvec;
-#ifdef LEXDEBUG
-			if (debug) {
-				fprintf(stderr,"fb %d", statenum - 1);
-			}
-#endif
-			goto tryagain;
-		} else
-			break;
-
-contin:
-#ifdef LEXDEBUG
-		if (debug) {
-			fprintf(stderr,">");
-		}
-#endif
-		;
-	}
-#ifdef LEXDEBUG
-	if (debug) {
-		fprintf(stderr,"\nStopped in state %d (",*(lsp-1)-yysvec-1);
-		allprint(ch);
-		fprintf(stderr, ") ");
-	}
-#endif
-	while (lsp-- > yylstate){
-		if (*lsp != 0 && (found= (*lsp)->yystops) && *found > 0){
-			if(yyextra[*found]){
-				/* must backup */
-				ch = -*found;
-				do {
-					while (*found && *found++ != ch)
-						;
-				 } while (lsp > yylstate &&
-					  (found = (*--lsp)->yystops));
-			}
-#ifdef LEXDEBUG
-			if (debug) {
-				fprintf(stderr," Match \"");
-				for ( cp = *strptr;
-				      cp <= ((*strptr)+(lsp-yylstate));
-				      cp++)
-					allprint( *cp );
-				fprintf(stderr,"\" action %d\n",*found);
-			}
-#endif
-			*strptr += (lsp - yylstate + 1);
-			return(*found);
-		}
-	}
-	/* the string didn't match anything - if we're looking at
-	 * eos, just return 0.  Otherwise, bump the string pointer
-	 * and return -1.
-	 */
-#ifdef LEXDEBUG
-	if (debug) {
-		fprintf(stderr," No match\n");
-	}
-#endif	/* LEXDEBUG */
-	if ( **strptr ) {
-		(*strptr)++;
-		return (-1);
-	}
-	return (0);
-}
-
-#ifdef LEXDEBUG
-void
-allprint(char c)
-{
-	if ( c < 32 ) {
-	    putc( '^', stderr );
-	    c += 32;
-	} else if ( c == 127 ) {
-	    putc( '^', stderr );
-	    c = '?';
-	}
-	putc( c, stderr );
-}
-#endif	/* LEXDEBUG */