911 lines
29 KiB
Text
911 lines
29 KiB
Text
(Message inbox:32)
|
|
Date: Mon, 03 Jul 89 21:15:32 CET
|
|
From: V61%DHDURZ1.BITNET@lbl.gov
|
|
Subject: Flex, bug fix, improvments, patches for Minix & TOS
|
|
To: vern@lbl-csam.arpa
|
|
|
|
At first I have to thank you for your wonderful program. I had ported the
|
|
old version to OS9,TOS (Atari ST) and Minix and the new version 2.1 Beta
|
|
to Minix and TOS.
|
|
|
|
While porting and using flex I detected a bug and made some improvements.
|
|
I have included a shared, compressed and uuencoded file contaning all cdiffs
|
|
and additional files (Sorry, but I'm on EBCDIC-Bitnet) and a short discussion
|
|
of the changes. Even some of the TOS specific changes might be of general
|
|
interest !
|
|
|
|
I posted these cdiffs to the minix discussion group, but I think it's up
|
|
to you to post them to the unix-sources group. If you plan to post even
|
|
the TOS compiler specific patches please contact me because there might be
|
|
further compiler (P.D.) additions. If you have an interest I could also
|
|
port the new version to OS9 -- this is a little bit more difficult, because
|
|
OS9 uses CR as end of line character (the EOL char. is coded into the
|
|
initscan.c tables,...). It is necessary to change all occurences of '\n' to
|
|
macros and variables and it's useful to add a new -n options (see commented
|
|
line in main.c)
|
|
|
|
|
|
|
|
The changes: (1.7.89 RAL)
|
|
|
|
- Bug fix: The original flex didn't like trailing spaces in exclusive start
|
|
condition lists ! If you add an trailing space to line 68 in scan.l
|
|
|
|
"%x SECT2 SECT2PROLOG SECT3 CODEBLOCK PICKUPDEF SC CARETISBOL NUM QUOTE "
|
|
|
|
you get a misleading error message:
|
|
|
|
"Syntax error at line 69: bad start condition list"
|
|
|
|
This bug can either be fixed in parse.y or in scan.l . I have chosen the
|
|
last because there the fix is minimal: Just change the rule (line 128)
|
|
|
|
"\n" to "{OPTWS}\n"
|
|
|
|
- Enhancements:
|
|
- new option "-?" that provides some help information about the other
|
|
flags (main.c)
|
|
- new option "-aTMPPATH" that allows a redefinition of the standard
|
|
path for the temporary file (this might be rather large >200k if
|
|
F,f options are selected). (main.c, flexdef.h (l.376))
|
|
- hexdump of illegal characters -- this proved to be a useful debugging
|
|
tool especialy if invisible control characters occur which weren't
|
|
covered by the rules. (scan.l fprintf statement line 129,...)
|
|
|
|
- Patches due to TOS
|
|
- General: TOS uses CR,LF as end of line char., Flex wants only a single
|
|
LF as EOL char. Therefore all I/O must be translated using f* calls.
|
|
This is done everywhere besides the YY_INPUT macro (flex.skel (scan.c),
|
|
line 31) that uses a low level 'read'. This should be definitly changed
|
|
to fread, so that all I/O calls occur on the same level.
|
|
- the short action_file_name has been "flexXXXXXX.tmp", but that's too
|
|
much for TOS,MSDOS ! I changed it to "flexXXXX.tmp" in main.c (patch
|
|
covered by the -a option additions)
|
|
- some compilers don't like external names that are ambiguous within
|
|
the first 8 characters. I defined macros that change all these long
|
|
external names to names that are unique within the first 8 characters.
|
|
Just define SHORT_EXTERNAL_NAMES to use this feature (flexdef.h)
|
|
- some statement changes that some compiler don't like:
|
|
typedef *xxx[] -> typedef **xxx (flexdef.h.,l.308)
|
|
"/*" -> '/','*' within a comment in (scan.l, l.209)
|
|
- changed short "lexyy.c" to "lex_yy.c" what's more similar to the unix
|
|
"lex.yy.c" (main.c).
|
|
- a few further really compiler dependent changes provided with
|
|
#ifdef ATARI && LATTICE res. TURBO braces.
|
|
|
|
- Additional TOS only files
|
|
- Makefile.tos: Common makefile for all TOS compilers. If you add further
|
|
ones please email me the new makefile.
|
|
- flex.lnk: Lattice - GST linker argument extension file
|
|
- flex.tlk: Turbo linker argument extension file
|
|
|
|
|
|
Additional remarks:
|
|
|
|
I didn't add a new initscan.c (= flex -ist scan.l). The current one is good
|
|
enough for a first compilation. With this first version of flex you can
|
|
rebuild your own scan.c and the final flex version !
|
|
|
|
Minix ST :
|
|
- I had to "chmem =70000 cv" (>50000) to get flex linked
|
|
- 'memset' (PC 1.3, EFTH40,...) is necessary
|
|
- chmem =90000 flex may be sufficient
|
|
|
|
Minix PC :
|
|
It should be possible to port Flex to Minix PC. The current sizes of flex
|
|
are:
|
|
Minix ST (ACK) Lattice (TOS) Turbo (TOS)
|
|
|
|
size 75300 83305 57957
|
|
compilation time 22' 15' 3'40"
|
|
flex -is scan.l 1'49" 43" 30"
|
|
|
|
The Minix ST size includes the bad generated code using only a subset of
|
|
the 68000 commands, long addresses only and a huge relocation table.
|
|
Therefore the PC size will be <64 k ! More serious is the fact that I had
|
|
to chmem =90000 flex to get scan.l converted to scan.c . But I never saw
|
|
a more complex lex source than scan.l -- so it should be possible to
|
|
reduce some array sizes without limitation for all day usage.
|
|
|
|
No one volunteered yet for a Minix PC port -- but if someone will try it
|
|
I would provide him with a new scan.c and some hints.
|
|
|
|
TOS:
|
|
Don't forget to adapt the flexskel path within flexdef.h !
|
|
|
|
|
|
Bitnet: V61@DHDURZ1 Ronald Lamprecht
|
|
UUCP: ...!unido!DHDURZ1.bitnet!V61 Theoretische Physik
|
|
ARPAnet: V61%DHDURZ1.BITNET@CUNYVM.CUNY.EDU (Heidelberg, West Germany)
|
|
(Message inbox:36)
|
|
Date: Wed, 05 Jul 89 21:16:07 CET
|
|
From: V61%DHDURZ1.BITNET@csa2.lbl.gov
|
|
Subject: Re: What is TOS
|
|
To: vern@lbl-csam.arpa
|
|
|
|
TOS is the name of the Atari ST operating system that is very similar
|
|
to MSDOS (Both use CR,LF as end of line character). Therefore I have
|
|
been astonished that no EOL convertion porblems occur within MSDOS.
|
|
|
|
I have been aware of the double buffering when changing read to fread and I
|
|
accept your argument of a possible slow down. But if you integrate the other
|
|
Atari - TOS changes, please insert a
|
|
#ifdef ATARI
|
|
fread ....
|
|
#else
|
|
read ....
|
|
#endif
|
|
in flex.skel .
|
|
|
|
Bitnet: V61@DHDURZ1 Ronald Lamprecht
|
|
UUCP: ...!unido!DHDURZ1.bitnet!V61 Theoretische Physik
|
|
ARPAnet: V61%DHDURZ1.BITNET@CUNYVM.CUNY.EDU (Heidelberg, West Germany)
|
|
|
|
|
|
|
|
|
|
echo x - Makefile_cdiff
|
|
sed '/^X/s///' > Makefile_cdiff << '/'
|
|
X*** Src_2.1/Makefile Thu Jun 28 00:06:42 1989
|
|
X--- Makefile Thu Jul 3 02:12:48 1989
|
|
X***************
|
|
X*** 5,10 ****
|
|
X--- 5,11 ----
|
|
X # Porting considerations:
|
|
X #
|
|
X # For System V Unix machines, add -DSYS_V to CFLAGS.
|
|
X+ # For Minix (ST), add -DSYS_V to CFLAGS
|
|
X # For Vax/VMS, add -DSYS_V to CFLAGS.
|
|
X # For MS-DOS, add "-DMS_DOS -DSYS_V" to CFLAGS. Create \tmp if not present.
|
|
X # You will also want to rename flex.skel to something with a three
|
|
X***************
|
|
X*** 21,28 ****
|
|
X SKELETON_DIR = /usr/local/lib
|
|
X SKELETON_FILE = flex.skel
|
|
X SKELFLAGS = -DDEFAULT_SKELETON_FILE=\"$(SKELETON_DIR)/$(SKELETON_FILE)\"
|
|
X! CFLAGS = -O
|
|
X! LDFLAGS = -s
|
|
X
|
|
X FLEX_FLAGS =
|
|
X FLEX = ./flex
|
|
X--- 22,29 ----
|
|
X SKELETON_DIR = /usr/local/lib
|
|
X SKELETON_FILE = flex.skel
|
|
X SKELFLAGS = -DDEFAULT_SKELETON_FILE=\"$(SKELETON_DIR)/$(SKELETON_FILE)\"
|
|
X! CFLAGS = -O -DSYS_V
|
|
X! LDFLAGS =
|
|
X
|
|
X FLEX_FLAGS =
|
|
X FLEX = ./flex
|
|
X***************
|
|
X*** 57,63 ****
|
|
X yylex.c
|
|
X
|
|
X flex : $(FLEXOBJS)
|
|
X! $(CC) $(CFLAGS) -o flex $(LDFLAGS) $(FLEXOBJS)
|
|
X
|
|
X first_flex:
|
|
X cp initscan.c scan.c
|
|
X--- 58,65 ----
|
|
X yylex.c
|
|
X
|
|
X flex : $(FLEXOBJS)
|
|
X! $(CC) $(CFLAGS) -o flex $(FLEXOBJS) $(LDFLAGS)
|
|
X! chmem =150000 flex
|
|
X
|
|
X first_flex:
|
|
X cp initscan.c scan.c
|
|
/
|
|
echo x - flex.skel_cdif
|
|
sed '/^X/s///' > flex.skel_cdif << '/'
|
|
X*** Src_2.1/flex.skel Thu Jun 28 00:19:20 1989
|
|
X--- flex.skel Thu Jul 2 22:18:31 1989
|
|
X***************
|
|
X*** 28,34 ****
|
|
X * is returned in "result".
|
|
X */
|
|
X #define YY_INPUT(buf,result,max_size) \
|
|
X! if ( (result = read( fileno(yyin), buf, max_size )) < 0 ) \
|
|
X YY_FATAL_ERROR( "read() in flex scanner failed" );
|
|
X #define YY_NULL 0
|
|
X #define yyterminate() return ( YY_NULL )
|
|
X--- 28,34 ----
|
|
X * is returned in "result".
|
|
X */
|
|
X #define YY_INPUT(buf,result,max_size) \
|
|
X! if ( (result = fread( buf,1, max_size, yyin )) < 0 ) \
|
|
X YY_FATAL_ERROR( "read() in flex scanner failed" );
|
|
X #define YY_NULL 0
|
|
X #define yyterminate() return ( YY_NULL )
|
|
/
|
|
echo x - flexdef.h_cdif
|
|
sed '/^X/s///' > flexdef.h_cdif << '/'
|
|
X*** Src_2.1/flexdef.h Thu Jun 28 00:43:27 1989
|
|
X--- flexdef.h Thu Jul 3 02:45:50 1989
|
|
X***************
|
|
X*** 26,31 ****
|
|
X--- 26,40 ----
|
|
X
|
|
X /* @(#) $Header$ (LBL) */
|
|
X
|
|
X+ #ifdef ATARI
|
|
X+ #define SYS_V
|
|
X+ #define abs(x) ((x) < 0 ? -(x) : (x))
|
|
X+ #define SHORT_FILE_NAMES
|
|
X+ #ifdef TURBO
|
|
X+ #define SHORT_EXTERNAL_NAMES
|
|
X+ #endif
|
|
X+ #endif
|
|
X+
|
|
X #ifndef FILE
|
|
X #include <stdio.h>
|
|
X #endif
|
|
X***************
|
|
X*** 41,47 ****
|
|
X #endif
|
|
X
|
|
X #ifndef VMS
|
|
X! char *memset();
|
|
X #else
|
|
X /* memset is needed for old versions of the VMS C runtime library */
|
|
X #define memset(s, c, n) \
|
|
X--- 50,58 ----
|
|
X #endif
|
|
X
|
|
X #ifndef VMS
|
|
X! #ifndef ATARI && TURBO
|
|
X! char *memset();
|
|
X! #endif
|
|
X #else
|
|
X /* memset is needed for old versions of the VMS C runtime library */
|
|
X #define memset(s, c, n) \
|
|
X***************
|
|
X*** 81,91 ****
|
|
X--- 92,129 ----
|
|
X #define true 1
|
|
X #define false 0
|
|
X
|
|
X+ #ifdef ATARI
|
|
X+ #define DEFAULT_SKELETON_FILE "D:\\include\\flexskel"
|
|
X+ #endif
|
|
X+
|
|
X
|
|
X #ifndef DEFAULT_SKELETON_FILE
|
|
X #define DEFAULT_SKELETON_FILE "flex.skel"
|
|
X #endif
|
|
X
|
|
X+ #ifdef SHORT_EXTERNAL_NAMES
|
|
X+ /* avoid long external names that are ambiguous within the first 8 characters */
|
|
X+ #define current_mns c__mns
|
|
X+ #define current_max_rules c__max_rules
|
|
X+ #define current_max_state_type c__max_state_type
|
|
X+ #define current_max_scs c__max_scs
|
|
X+ #define current_max_dfa_size c__max__size
|
|
X+ #define current_max_xpairs c__max_xpairs
|
|
X+ #define current_max_template_xpairs c__max_template_xpairs
|
|
X+ #define current_max_dfas c__max_dfas
|
|
X+ #define current_maxccls c__maxccles
|
|
X+ #define current_max_ccl_tbl_size c__max_ccl_tbl_size
|
|
X+ #define indent_puts ind_puts
|
|
X+ #define indent_put2s ind_put2s
|
|
X+ #define gen_next_compressed_state gen_n_comressed_state
|
|
X+ #define gen_next_match gen_n_match
|
|
X+ #define gen_next_state gen_n_state
|
|
X+ #define variable_trailing_context_rules var_tr_context_rules
|
|
X+ #define variable_trailing_rule var_tr_rule
|
|
X+ #define backtrack_report backtr_report
|
|
X+ #define backtrack_file backtr_file
|
|
X+ #endif
|
|
X+
|
|
X /* special chk[] values marking the slots taking by end-of-buffer and action
|
|
X * numbers
|
|
X */
|
|
X***************
|
|
X*** 305,311 ****
|
|
X int int_val;
|
|
X } ;
|
|
X
|
|
X! typedef struct hash_entry *hash_table[];
|
|
X
|
|
X #define NAME_TABLE_HASH_SIZE 101
|
|
X #define START_COND_HASH_SIZE 101
|
|
X--- 343,349 ----
|
|
X int int_val;
|
|
X } ;
|
|
X
|
|
X! typedef struct hash_entry **hash_table;
|
|
X
|
|
X #define NAME_TABLE_HASH_SIZE 101
|
|
X #define START_COND_HASH_SIZE 101
|
|
X***************
|
|
X*** 372,378 ****
|
|
X extern int datapos, dataline, linenum;
|
|
X extern FILE *skelfile, *yyin, *temp_action_file, *backtrack_file;
|
|
X extern char *infilename;
|
|
X! extern char action_file_name[];
|
|
X
|
|
X
|
|
X /* variables for stack of states having only one out-transition:
|
|
X--- 410,416 ----
|
|
X extern int datapos, dataline, linenum;
|
|
X extern FILE *skelfile, *yyin, *temp_action_file, *backtrack_file;
|
|
X extern char *infilename;
|
|
X! extern char *action_file_name;
|
|
X
|
|
X
|
|
X /* variables for stack of states having only one out-transition:
|
|
/
|
|
echo x - main.c_cdiff
|
|
sed '/^X/s///' > main.c_cdiff << '/'
|
|
X*** Src_2.1/main.c Thu Jun 28 00:30:39 1989
|
|
X--- main.c Thu Jul 3 02:27:47 1989
|
|
X***************
|
|
X*** 81,96 ****
|
|
X FILE *temp_action_file;
|
|
X FILE *backtrack_file;
|
|
X int end_of_buffer_state;
|
|
X! #ifndef SHORT_FILE_NAMES
|
|
X! char action_file_name[] = "/tmp/flexXXXXXX";
|
|
X! #else
|
|
X! char action_file_name[] = "flexXXXXXX.tmp";
|
|
X! #endif
|
|
X!
|
|
X #ifndef SHORT_FILE_NAMES
|
|
X static char outfile[] = "lex.yy.c";
|
|
X #else
|
|
X! static char outfile[] = "lexyy.c";
|
|
X #endif
|
|
X static int outfile_created = 0;
|
|
X
|
|
X--- 81,91 ----
|
|
X FILE *temp_action_file;
|
|
X FILE *backtrack_file;
|
|
X int end_of_buffer_state;
|
|
X! char *action_file_name;
|
|
X #ifndef SHORT_FILE_NAMES
|
|
X static char outfile[] = "lex.yy.c";
|
|
X #else
|
|
X! static char outfile[] = "lex_yy.c";
|
|
X #endif
|
|
X static int outfile_created = 0;
|
|
X
|
|
X***************
|
|
X*** 328,333 ****
|
|
X--- 323,329 ----
|
|
X {
|
|
X int i, sawcmpflag, use_stdout;
|
|
X char *arg, *skelname = NULL, *flex_gettime(), clower(), *mktemp();
|
|
X+ char *tmp_action =(char *)0, *malloc();
|
|
X
|
|
X printstats = syntaxerror = trace = spprdflt = interactive = caseins = false;
|
|
X backtrack_report = performance_report = ddebug = fulltbl = fullspd = false;
|
|
X***************
|
|
X*** 349,354 ****
|
|
X--- 345,355 ----
|
|
X for ( i = 1; arg[i] != '\0'; ++i )
|
|
X switch ( arg[i] )
|
|
X {
|
|
X+ case 'a':
|
|
X+ if ( i != 1 )
|
|
X+ flexerror( "-a flag must be given separately" );
|
|
X+ tmp_action = &arg[i+1];
|
|
X+ goto get_next_arg;
|
|
X case 'b':
|
|
X backtrack_report = true;
|
|
X break;
|
|
X***************
|
|
X*** 445,452 ****
|
|
X printstats = true;
|
|
X break;
|
|
X
|
|
X! default:
|
|
X! lerrif( "unknown flag %c", (int) arg[i] );
|
|
X break;
|
|
X }
|
|
X
|
|
X--- 446,458 ----
|
|
X printstats = true;
|
|
X break;
|
|
X
|
|
X! case '?':
|
|
X! flexinfo(0);
|
|
X! break;
|
|
X!
|
|
X! default:
|
|
X! fprintf(stderr,"flex : unknown flag %c\n", (int) arg[i] );
|
|
X! flexinfo(1);
|
|
X break;
|
|
X }
|
|
X
|
|
X***************
|
|
X*** 454,459 ****
|
|
X--- 460,493 ----
|
|
X ;
|
|
X }
|
|
X
|
|
X+
|
|
X+ /* if you change the default tmp file names don't forget to change the
|
|
X+ initialization for i, too !
|
|
X+
|
|
X+ */
|
|
X+ #ifndef SHORT_FILE_NAMES
|
|
X+ i = 10;
|
|
X+ if (!tmp_action) i += 5;
|
|
X+ #else
|
|
X+ i = 12;
|
|
X+ #endif
|
|
X+ if (tmp_action)
|
|
X+ i += strlen(tmp_action) + 1;
|
|
X+ if((action_file_name = malloc(i+1)) == (char *)0)
|
|
X+ flexerror("No memory for action_file_name");
|
|
X+ *action_file_name = (char) NULL;
|
|
X+ if (tmp_action)
|
|
X+ strcat(action_file_name,tmp_action);
|
|
X+ #ifndef SHORT_FILE_NAMES
|
|
X+ else
|
|
X+ strcat(action_file_name,"/tmp");
|
|
X+ strcat(action_file_name,"/flexXXXXXX");
|
|
X+ #else
|
|
X+ if (tmp_action)
|
|
X+ strcat(action_file_name,"/");
|
|
X+ strcat(action_file_name,"flexXXXX.tmp");
|
|
X+ #endif
|
|
X+
|
|
X if ( (fulltbl || fullspd) && usemecs )
|
|
X flexerror( "full table and -cm don't make sense together" );
|
|
X
|
|
X***************
|
|
X*** 520,526 ****
|
|
X if ( (skelfile = fopen( skelname, "r" )) == NULL )
|
|
X lerrsf( "can't open skeleton file %s", skelname );
|
|
X
|
|
X! (void) mktemp( action_file_name );
|
|
X
|
|
X if ( (temp_action_file = fopen( action_file_name, "w" )) == NULL )
|
|
X lerrsf( "can't open temporary action file %s", action_file_name );
|
|
X--- 554,562 ----
|
|
X if ( (skelfile = fopen( skelname, "r" )) == NULL )
|
|
X lerrsf( "can't open skeleton file %s", skelname );
|
|
X
|
|
X! #ifndef ATARI && LATTICE
|
|
X! (void) mktemp( action_file_name );
|
|
X! #endif
|
|
X
|
|
X if ( (temp_action_file = fopen( action_file_name, "w" )) == NULL )
|
|
X lerrsf( "can't open temporary action file %s", action_file_name );
|
|
X***************
|
|
X*** 566,571 ****
|
|
X--- 602,640 ----
|
|
X }
|
|
X
|
|
X
|
|
X+ flexinfo(status)
|
|
X+ int status;
|
|
X+ {
|
|
X+ fprintf(stderr,"Syntax : FLEX inp_file\n");
|
|
X+ fprintf(stderr,"Function: fast lexical analyzer generator V%s\n",flex_version);
|
|
X+ fprintf(stderr,"Options : a dir_path : directory path for temporary files\n");
|
|
X+ fprintf(stderr," - b : generate backtracking information to lex.backtrack\n");
|
|
X+ fprintf(stderr," - c : compressed table, no equiv., no meta equiv.classes\n");
|
|
X+ fprintf(stderr," e : equivalence classes\n");
|
|
X+ fprintf(stderr," F : fast table\n");
|
|
X+ fprintf(stderr," |f : full table\n");
|
|
X+ fprintf(stderr," |m : meta equivalence classes\n");
|
|
X+ fprintf(stderr," - d : generate debugging scanner\n");
|
|
X+ fprintf(stderr," - F : fast table\n");
|
|
X+ fprintf(stderr," - f : full (not compressed) table\n");
|
|
X+ fprintf(stderr," - I : generate interactive scanner\n");
|
|
X+ fprintf(stderr," - i : generate case-insensitive scanner\n");
|
|
X+ fprintf(stderr," - L : supress #line directives\n");
|
|
X+ /* fprintf(stderr," - n hexnum : generate scanner using <hexnum> as newline char.\n");*/
|
|
X+ fprintf(stderr," - p : generate performance report to stderr\n");
|
|
X+ fprintf(stderr," - S skeleton_path : file path for skeleton file\n");
|
|
X+ fprintf(stderr," - s : suppress echo of unmatched scanner input to stdout\n");
|
|
X+ fprintf(stderr," - T : run flex in trace mode\n");
|
|
X+ #ifdef ATARI
|
|
X+ fprintf(stderr," - t : place result on stdout instead of lex_yy.c\n");
|
|
X+ #else
|
|
X+ fprintf(stderr," - t : place result on stdout instead of lex.yy.c\n");
|
|
X+ #endif
|
|
X+ fprintf(stderr," - v : print statistics of generated scanner\n");
|
|
X+ fprintf(stderr," default = -cem\n");
|
|
X+ exit(status);
|
|
X+ }
|
|
X+
|
|
X /* readin - read in the rules section of the input file(s)
|
|
X *
|
|
X * synopsis
|
|
/
|
|
echo x - scan.l_cdiff
|
|
sed '/^X/s///' > scan.l_cdiff << '/'
|
|
X*** Src_2.1/scan.l Thu Jun 30 19:42:00 1989
|
|
X--- scan.l Thu Jul 2 22:19:26 1989
|
|
X***************
|
|
X*** 125,132 ****
|
|
X
|
|
X {SCNAME} RETURNNAME;
|
|
X ^{OPTWS}\n ++linenum; /* allows blank lines in section 1 */
|
|
X! \n ++linenum; return ( '\n' );
|
|
X! . synerr( "illegal character" ); BEGIN(RECOVER);
|
|
X
|
|
X
|
|
X <C_COMMENT>"*/" ECHO; BEGIN(0);
|
|
X--- 125,136 ----
|
|
X
|
|
X {SCNAME} RETURNNAME;
|
|
X ^{OPTWS}\n ++linenum; /* allows blank lines in section 1 */
|
|
X! {OPTWS}\n ++linenum; return ( '\n' );
|
|
X! . {
|
|
X! synerr( "illegal character" );
|
|
X! fprintf(stderr,"Char : $%x\n",yytext[yyleng-1]);
|
|
X! BEGIN(RECOVER);
|
|
X! }
|
|
X
|
|
X
|
|
X <C_COMMENT>"*/" ECHO; BEGIN(0);
|
|
X***************
|
|
X*** 206,212 ****
|
|
X <SECT2>^{OPTWS}\n ++linenum; /* allow blank lines in section 2 */
|
|
X
|
|
X /* this horrible mess of a rule matches indented lines which
|
|
X! * do not contain "/*". We need to make the distinction because
|
|
X * otherwise this rule will be taken instead of the rule which
|
|
X * matches the beginning of comments like this one
|
|
X */
|
|
X--- 210,216 ----
|
|
X <SECT2>^{OPTWS}\n ++linenum; /* allow blank lines in section 2 */
|
|
X
|
|
X /* this horrible mess of a rule matches indented lines which
|
|
X! * do not contain '/','*'. We need to make the distinction because
|
|
X * otherwise this rule will be taken instead of the rule which
|
|
X * matches the beginning of comments like this one
|
|
X */
|
|
/
|
|
echo x - Makefile.tos
|
|
sed '/^X/s///' > Makefile.tos << '/'
|
|
X# make file for "flex" tool
|
|
X
|
|
X# @(#) $Header$ (LBL)
|
|
X
|
|
X# Porting considerations:
|
|
X#
|
|
X# For System V Unix machines, add -DSYS_V to CFLAGS.
|
|
X# For Vax/VMS, add -DSYS_V to CFLAGS.
|
|
X# For MS-DOS, add "-DMS_DOS -DSYS_V" to CFLAGS. Create \tmp if not present.
|
|
X# You will also want to rename flex.skel to something with a three
|
|
X# character extension, change SKELETON_FILE below appropriately,
|
|
X# For Amiga, add "-DAMIGA -DSYS_V" to CFLAGS.
|
|
X#
|
|
X# A long time ago, flex was successfully built using Microsoft C and
|
|
X# the following options: /AL, /stack:10000, -LARGE, -Ml, -Mt128, -DSYS_V
|
|
X
|
|
X
|
|
X# the first time around use "make first_flex"
|
|
X
|
|
X# The following definitions must be set according to your compiler -
|
|
X# examples for a Lattice Compiler with GST assembler and TURBO C with
|
|
X# assembler are provided below and must just be updated (don't forget to
|
|
X# update the linker argument extension files (*.lnk,*.tlk), too) :
|
|
X#
|
|
X#CCPATH = path to compiler directory without trailing \
|
|
X#CHPATH = path to header files without trailing \
|
|
X#CC = filename of the compiler
|
|
X#CFLAGS = compiler option flags
|
|
X#CIEXT = extension of C sources that should be used for input filenames
|
|
X#ASMPATH = path to assembler directory without trailing \
|
|
X#ASM = filename of the assembler
|
|
X#AFLAGS = assembler option flags
|
|
X#AIEXT = extension of assembler sources that should be used for assembler
|
|
X# input filenames
|
|
X#AEXT = general assembler filename extension
|
|
X#LNKPATH = path to linker directory without trailing \
|
|
X#LINK = filename of the linker
|
|
X#LFLAG0 = first option (full pathname of C startupcode)
|
|
X#LFLAG1 = further options + option flag for argument extension filename
|
|
X#LFLAG2 = further options + option flag for output-filename
|
|
X#LNKEXT = extension of linker argument extension file
|
|
X#OIEXT = extension of objects that should be used for linker input files
|
|
X#OEXT = general object file extension
|
|
X
|
|
X# Lattice definitions
|
|
XCCPATH = d:\latt
|
|
XCHPATH = d:\latt\include
|
|
XCC = lc.ttp
|
|
XCFLAGS = -h -n -cw -cc -i$(CHPATH)\ -g$(CCPATH)\ -dLATTICE -dATARI
|
|
XCIEXT =
|
|
XASMPATH = d:\gst
|
|
XASM = assem.ttp
|
|
XAFLAGS = -nolist -errors errors.out
|
|
XAIEXT =
|
|
XAEXT = .asm
|
|
XLNKPATH = d:\gst
|
|
XLINK = ld.ttp
|
|
XLFLAG0 =
|
|
XLFLAG1 = -with
|
|
XLFLAG2 = -nolist -sec -mem 200 -prog
|
|
XLNKEXT = .lnk
|
|
XOIEXT =
|
|
XOEXT = .bin
|
|
X
|
|
X# Turbo definitions
|
|
X#CCPATH = d:\turbo
|
|
X#CHPATH = d:\turbo\include
|
|
X#CC = tcc.prg
|
|
X#CFLAGS = -GJMPRZ -H=$(CHPATH)\ -w- -DTURBO -DATARI
|
|
X#CIEXT = .c
|
|
X#ASMPATH = d:\turbo
|
|
X#ASM = mas.prg
|
|
X#AFLAGS =
|
|
X#AIEXT = .s
|
|
X#AEXT = .s
|
|
X#LNKPATH = d:\turbo
|
|
X#LINK = tlink.ttp
|
|
X#LFLAG0 = $(LNKPATH)\lib\tcstart.o
|
|
X#LFLAG1 = -I=
|
|
X#LFLAG2 = -O=
|
|
X#LNKEXT = .tlk
|
|
X#OIEXT = .o
|
|
X#OEXT = .o
|
|
X
|
|
X# Other definitions
|
|
X# (not used for Atari because of short argument string - defined in flexdef.h
|
|
X
|
|
XSKELETON_DIR = /usr/lib
|
|
XSKELETON_FILE = flex.skel
|
|
XSKELFLAGS = -DDEFAULT_SKELETON_FILE=\"$(SKELETON_DIR)/$(SKELETON_FILE)\"
|
|
X
|
|
X
|
|
XFLEX = d:\etc\flex.ttp
|
|
XFLEX_FLAGS = -is
|
|
XYACC = d:\etc\yacc.ttp
|
|
XRENAME = d:\bin\rename
|
|
XDEL = d:\bin\del
|
|
X
|
|
X# Internal definitions
|
|
XLNK = $(LNKPATH)\$(LINK)
|
|
X
|
|
XFLEXOBJS = \
|
|
X ccl$(OEXT) \
|
|
X dfa$(OEXT) \
|
|
X ecs$(OEXT) \
|
|
X gen$(OEXT) \
|
|
X main$(OEXT) \
|
|
X misc$(OEXT) \
|
|
X nfa$(OEXT) \
|
|
X parse$(OEXT) \
|
|
X scan$(OEXT) \
|
|
X sym$(OEXT) \
|
|
X tblcmp$(OEXT) \
|
|
X yylex$(OEXT)
|
|
X
|
|
XFLEX_C_SOURCES = \
|
|
X ccl.c \
|
|
X dfa.c \
|
|
X ecs.c \
|
|
X gen.c \
|
|
X main.c \
|
|
X misc.c \
|
|
X nfa.c \
|
|
X parse.c \
|
|
X scan.c \
|
|
X sym.c \
|
|
X tblcmp.c \
|
|
X yylex.c
|
|
X
|
|
Xflex : $(FLEXOBJS)
|
|
X $(LNK) $(LFLAG0) $(LFLAG1)flex$(LNKEXT) $(LFLAG2)flex.ttp
|
|
X
|
|
Xfirst_flex:
|
|
X cp initscan.c scan.c
|
|
X make $(MFLAGS) flex
|
|
X
|
|
Xparse.h parse.c : parse.y
|
|
X $(YACC) -d parse.y
|
|
X $(DEL) parse.c
|
|
X $(RENAME) y_tab.c parse.c
|
|
X $(DEL) parse.h
|
|
X $(RENAME) y_tab.h parse.h
|
|
X
|
|
Xscan.c : scan.l
|
|
X $(FLEX) $(FLEX_FLAGS) scan.l
|
|
X $(RENAME) lex_yy.c scan.c
|
|
X
|
|
Xscan$(OEXT) : scan.c parse.h flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) scan$(CIEXT)
|
|
X
|
|
Xmain$(OEXT) : main.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) main$(CIEXT)
|
|
X
|
|
Xccl$(OEXT) : ccl.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) ccl$(CIEXT)
|
|
X
|
|
Xdfa$(OEXT) : dfa.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) dfa$(CIEXT)
|
|
X
|
|
Xecs$(OEXT) : ecs.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) ecs$(CIEXT)
|
|
X
|
|
Xgen$(OEXT) : gen.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) gen$(CIEXT)
|
|
X
|
|
Xmisc$(OEXT) : misc.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) misc$(CIEXT)
|
|
X
|
|
Xnfa$(OEXT) : nfa.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) nfa$(CIEXT)
|
|
X
|
|
Xparse$(OEXT) : parse.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) parse$(CIEXT)
|
|
X
|
|
Xsym$(OEXT) : sym.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) sym$(CIEXT)
|
|
X
|
|
Xtblcmp$(OEXT) : tblcmp.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) tblcmp$(CIEXT)
|
|
X
|
|
Xyylex$(OEXT) : yylex.c flexdef.h
|
|
X $(CCPATH)\$(CC) $(CFLAGS) yylex$(CIEXT)
|
|
X
|
|
Xflex.man : flex.1
|
|
X nroff -man flex.1 >flex.man
|
|
X
|
|
Xlint : $(FLEX_C_SOURCES)
|
|
X lint $(FLEX_C_SOURCES) > flex.lint
|
|
X
|
|
Xdistrib :
|
|
X mv scan.c initscan.c
|
|
X chmod 444 initscan.c
|
|
X $(MAKE) $(MFLAGS) clean
|
|
X
|
|
Xclean :
|
|
X rm -f core errs flex *$(OEXT) parse.c *.lint parse.h flex.man tags
|
|
X
|
|
Xtags :
|
|
X ctags $(FLEX_C_SOURCES)
|
|
X
|
|
Xvms : flex.man
|
|
X $(MAKE) $(MFLAGS) distrib
|
|
X
|
|
Xtest :
|
|
X $(FLEX) $(FLEX_FLAGS) scan.l
|
|
X $(RENAME) lex_yy.c scan.ctest
|
|
X cmp scan.c scan.ctest
|
|
X
|
|
/
|
|
echo x - Readme2
|
|
sed '/^X/s///' > Readme2 << '/'
|
|
XThe changes: (1.7.89 RAL)
|
|
X
|
|
X - Bug fix: The original flex didn't like trailing spaces in exclusive start
|
|
X condition lists ! If you add an trailing space to line 68 in scan.l
|
|
X
|
|
X "%x SECT2 SECT2PROLOG SECT3 CODEBLOCK PICKUPDEF SC CARETISBOL NUM QUOTE "
|
|
X
|
|
X you get a misleading error message:
|
|
X
|
|
X "Syntax error at line 69: bad start condition list"
|
|
X
|
|
X This bug can either be fixed in parse.y or in scan.l . I have chosen the
|
|
X last because there the fix is minimal: Just change the rule (line 128)
|
|
X
|
|
X "\n" to "{OPTWS}\n"
|
|
X
|
|
X - Enhancements:
|
|
X - new option "-?" that provides some help information about the other
|
|
X flags (main.c)
|
|
X - new option "-aTMPPATH" that allows a redefinition of the standard
|
|
X path for the temporary file (this might be rather large >200k if
|
|
X F,f options are selected). (main.c, flexdef.h (l.376))
|
|
X - hexdump of illegal characters -- this proved to be a useful debugging
|
|
X tool especialy if invisible control characters occur which weren't
|
|
X covered by the rules. (scan.l fprintf statement line 129,...)
|
|
X
|
|
X - Patches due to TOS
|
|
X - General: TOS uses CR,LF as end of line char., Flex wants only a single
|
|
X LF as EOL char. Therefore all I/O must be translated using f* calls.
|
|
X This is done everywhere besides the YY_INPUT macro (flex.skel (scan.c),
|
|
X line 31) that uses a low level 'read'. This should be definitly changed
|
|
X to fread, so that all I/O calls occur on the same level.
|
|
X - the short action_file_name has been "flexXXXXXX.tmp", but that's too
|
|
X much for TOS,MSDOS ! I changed it to "flexXXXX.tmp" in main.c (patch
|
|
X covered by the -a option additions)
|
|
X - some compilers don't like external names that are ambiguous within
|
|
X the first 8 characters. I defined macros that change all these long
|
|
X external names to names that are unique within the first 8 characters.
|
|
X Just define SHORT_EXTERNAL_NAMES to use this feature (flexdef.h)
|
|
X - some statement changes that some compiler don't like:
|
|
X typedef *xxx[] -> typedef **xxx (flexdef.h.,l.308)
|
|
X "/*" -> '/','*' within a comment in (scan.l, l.209)
|
|
X - changed short "lexyy.c" to "lex_yy.c" what's more similar to the unix
|
|
X "lex.yy.c" (main.c).
|
|
X - a few further really compiler dependent changes provided with
|
|
X #ifdef ATARI && LATTICE res. TURBO braces.
|
|
X
|
|
X - Additional TOS only files
|
|
X - Makefile.tos: Common makefile for all TOS compilers. If you add further
|
|
X ones please email me the new makefile.
|
|
X - flex.lnk: Lattice - GST linker argument extension file
|
|
X - flex.tlk: Turbo linker argument extension file
|
|
X
|
|
X
|
|
XAdditional remarks:
|
|
X
|
|
XI didn't add a new initscan.c (= flex -ist scan.l). The current one is good
|
|
Xenough for a first compilation. With this first version of flex you can
|
|
Xrebuild your own scan.c and the final flex version !
|
|
X
|
|
XMinix ST :
|
|
X - I had to "chmem =70000 cv" (>50000) to get flex linked
|
|
X - 'memset' (PC 1.3, EFTH40,...) is necessary
|
|
X - chmem =90000 flex may be sufficient
|
|
X
|
|
XMinix PC :
|
|
X It should be possible to port Flex to Minix PC. The current sizes of flex
|
|
X are:
|
|
X Minix ST (ACK) Lattice (TOS) Turbo (TOS)
|
|
X
|
|
X size 75300 83305 57957
|
|
X compilation time 22' 15' 3'40"
|
|
X flex -is scan.l 1'49" 43" 30"
|
|
X
|
|
X The Minix ST size includes the bad generated code using only a subset of
|
|
X the 68000 commands, long addresses only and a huge relocation table.
|
|
X Therefore the PC size will be <64 k ! More serious is the fact that I had
|
|
X to chmem =90000 flex to get scan.l converted to scan.c . But I never saw
|
|
X a more complex lex source than scan.l -- so it should be possible to
|
|
X reduce some array sizes without limitation for all day usage.
|
|
X
|
|
X No one volunteered yet for a Minix PC port -- but if someone will try it
|
|
X I would provide him with a new scan.c and some hints.
|
|
X
|
|
XTOS:
|
|
X Don't forget to adapt the flexskel path within flexdef.h !
|
|
X
|
|
X
|
|
/
|
|
echo x - flex.lnk
|
|
sed '/^X/s///' > flex.lnk << '/'
|
|
X*
|
|
X*
|
|
X* linker control file for flex.ttp
|
|
X*
|
|
X*
|
|
X*
|
|
XINPUT d:\latt\lib\startup.bin
|
|
X*
|
|
XINPUT ccl.bin
|
|
XINPUT dfa.bin
|
|
XINPUT ecs.bin
|
|
XINPUT gen.bin
|
|
XINPUT misc.bin
|
|
XINPUT nfa.bin
|
|
XINPUT parse.bin
|
|
XINPUT sym.bin
|
|
XINPUT tblcmp.bin
|
|
XINPUT main.bin
|
|
XINPUT yylex.bin
|
|
XINPUT scan.bin
|
|
X*
|
|
XLIBRARY d:\latt\lib\clib.bin
|
|
X
|
|
/
|
|
echo x - flex.tlk
|
|
sed '/^X/s///' > flex.tlk << '/'
|
|
Xccl.o
|
|
Xdfa.o
|
|
Xecs.o
|
|
Xgen.o
|
|
Xmisc.o
|
|
Xnfa.o
|
|
Xparse.o
|
|
Xsym.o
|
|
Xtblcmp.o
|
|
Xyylex.o
|
|
Xmain.o
|
|
Xscan.o
|
|
Xd:\turbo\lib\tcstdlib.lib ; standard lib
|
|
Xd:\turbo\lib\tcextlib.lib ; extended lib
|
|
Xd:\turbo\lib\tctoslib.lib ; TOS lib
|
|
Xd:\turbo\lib\tcgemlib.lib ; AES and VDI lib
|
|
X-S=200000
|
|
/
|