WebSVN – tendra.SVN – Diff – /branches/tendra5/src/utilities/make_err/lexer.h

 /*
     		 Crown Copyright (c) 1997
     This TenDRA(r) Computer Program is subject to Copyright
     owned by the United Kingdom Secretary of State for Defence
     acting through the Defence Evaluation and Research Agency
     (DERA).  It is made available to Recipients with a
     royalty-free licence for its use, reproduction, transfer
     to other parties and amendment for any purpose not excluding
     product development provided that any such use et cetera
     shall be deemed to be acceptance of the following conditions:-
         (1) Its Recipients shall ensure that this Notice is
         reproduced upon any copies or amended versions of it;
         (2) Any amended version of it shall be clearly marked to
         show both the nature of and the organisation responsible
         for the relevant amendment or amendments;
         (3) Its onward transfer from a recipient to another
         party shall be deemed to be that party's acceptance of
         these conditions;
         (4) DERA gives no warranty or assurance as to its
         quality or suitability for any purpose and DERA accepts
         no liability whatsoever in relation to any use to which
         it may be put.
 */
 /*
-    AUTOMATICALLY GENERATED BY lexi VERSION 1.1
+ *  AUTOMATICALLY GENERATED BY lexi VERSION 1.2
-*/
+ */
 /* LOOKUP TABLE */
-static unsigned char lookup_tab [257] = {
+static unsigned char lookup_tab[257] = {
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0001, 0x0001, 0x0000, 0x0000, 0x0001, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0001, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x000c, 0x000c, 0x000c, 0x000c, 0x000c, 0x000c, 0x000c, 0x000c,
 x000c, 0x000c, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a,
 x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a,
 x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a,
 x000a, 0x000a, 0x000a, 0x0000, 0x0000, 0x0000, 0x0000, 0x000a,
 x0000, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a,
 x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a,
 x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a, 0x000a,
 x000a, 0x000a, 0x000a, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 x0000
-} ;
+};
 #ifndef LEX_EOF
-#define LEX_EOF			256
+#define LEX_EOF		256
 #endif
-#define lookup_char( C )	( ( int ) lookup_tab [ ( C ) ] )
+#define lookup_char(C)	((int)lookup_tab[(C)])
-#define is_white( T )		( ( T ) & 0x0001 )
+#define is_white(T)	((T) & 0x0001)
-#define is_alpha( T )		( ( T ) & 0x0002 )
+#define is_alpha(T)	((T) & 0x0002)
-#define is_digit( T )		( ( T ) & 0x0004 )
+#define is_digit(T)	((T) & 0x0004)
-#define is_alphanum( T )	( ( T ) & 0x0008 )
+#define is_alphanum(T)	((T) & 0x0008)
-#ifndef PROTO_Z
-#ifdef __STDC__
-#define PROTO_Z()		( void )
-#else
-#define PROTO_Z()		()
-#endif
-#endif
 /* MAIN PASS ANALYSER */
+int
-int read_token PROTO_Z ()
+read_token(void)
+{
-    start : {
+    start: {
-	int c0 = read_char (), t0 ;
+	int c0 = read_char(), t0;
-	t0 = lookup_char ( c0 ) ;
+	t0 = lookup_char(c0);
-	if ( is_white ( t0 ) ) goto start ;
+	if (is_white(t0)) goto start;
-	switch ( c0 ) {
+	switch (c0) {
-	    case '"' : {
+	    case '"': {
-		return ( get_string ( c0 ) ) ;
+		return(get_string(c0));
+	    }
-	    case '(' : {
+	    case '(': {
-		return ( lex_open_Hround ) ;
+		return(lex_open_Hround);
+	    }
-	    case ')' : {
+	    case ')': {
-		return ( lex_close_Hround ) ;
+		return(lex_close_Hround);
+	    }
-	    case ',' : {
+	    case ',': {
-		return ( lex_comma ) ;
+		return(lex_comma);
+	    }
-	    case '-' : {
+	    case '-': {
-		int c1 = read_char () ;
+		int c1 = read_char();
-		if ( c1 == '>' ) {
+		if (c1 == '>') {
-		    return ( lex_arrow ) ;
+		    return(lex_arrow);
+		}
-		unread_char ( c1 ) ;
+		unread_char(c1);
-		break ;
+		break;
+	    }
-	    case '/' : {
+	    case '/': {
-		int c1 = read_char () ;
+		int c1 = read_char();
-		if ( c1 == '*' ) {
+		if (c1 == '*') {
-		    return ( get_comment ( c0, c1 ) ) ;
+		    return(get_comment(c0, c1));
+		}
-		unread_char ( c1 ) ;
+		unread_char(c1);
-		break ;
+		break;
+	    }
-	    case ':' : {
+	    case ':': {
-		return ( lex_colon ) ;
+		return(lex_colon);
+	    }
-	    case '=' : {
+	    case '=': {
-		return ( lex_equal ) ;
+		return(lex_equal);
+	    }
-	    case '{' : {
+	    case '{': {
-		return ( lex_open_Hbrace ) ;
+		return(lex_open_Hbrace);
+	    }
-	    case '|' : {
+	    case '|': {
-		return ( lex_or ) ;
+		return(lex_or);
+	    }
-	    case '}' : {
+	    case '}': {
-		return ( lex_close_Hbrace ) ;
+		return(lex_close_Hbrace);
+	    }
-	    case LEX_EOF : {
+	    case LEX_EOF: {
-		return ( lex_eof ) ;
+		return(lex_eof);
+	    }
+	}
-	if ( is_alpha ( t0 ) ) {
+	if (is_alpha(t0)) {
-	    return ( get_identifier ( c0 ) ) ;
+	    return(get_identifier(c0));
+	}
-	return ( unknown_token ( c0 ) ) ;
+	return(unknown_token(c0));
+    }
+}

Subversion Repositories tendra.SVN

(root)/branches/tendra5/src/utilities/make_err/lexer.h – Rev 5 → 6