home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / coherent / 6488 < prev    next >
Encoding:
Text File  |  1992-12-28  |  4.0 KB  |  137 lines
  1. Path: sparky!uunet!cs.utexas.edu!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!cbnewsm!cbnewsl!att-out!rutgers!micro-heart-of-gold.mit.edu!uw-beaver!uw-coco!mdisea!mdivax1!van-bc!rwsys!root
  2. From: root@rwsys.wimsey.bc.ca (Superuser)
  3. Newsgroups: comp.os.coherent
  4. Subject: Re: Working lex for v4.0?
  5. Message-ID: <9212243066@rwsys.wimsey.bc.ca>
  6. Date: 28 Dec 92 20:53:26 GMT
  7. References: <1992Dec20.120530.16635@iitmax.iit.edu>
  8. Organization: RWSYS Exporter BBS system
  9. Lines: 126
  10.  
  11. pred@iitmax.iit.edu (Predrag S. Bundalo) writes:
  12. > Randy Wright's port of flex is even worse (flex is bad, not the port): it
  13. > creates an ever-growing lex.yy.c file.  Sheesh.
  14. [I deleted the lex code for bandwidth..] 
  15. > Regards,
  16. > 
  17. > Pred Bundalo
  18. > -- 
  19. > :::  Predrag S. Bundalo                  Academic Computing Center
  20. > :::  Illinois Institute of Technology    Chicago, Illinois
  21. > .....................................................................
  22. > :::  Internet:  pred@{iitmax, elof}.iit.edu, syspredrag@minna.iit.edu
  23. > :::  BITNET  :  syspredrag@iitvax.BITNET
  24. > 
  25. Pred, I tried your code. Indeed flex produced >1 megabyte before a stopped
  26. it. It must have the double-per-cent-sign at the end of the spec (%%) or
  27. flex will copy infinitely what ever is actually there ( end of file ). I
  28. think this is a flex bug. At any rate, if you install the "%%", it will
  29. flex up ok.
  30.  
  31. I took the liberty of creating a piece of test data and running your
  32. specification on it. I added a main(), but you don not have to have
  33. a main(), just the %%. I put this spec in a file called spec.l and 
  34. then my input data in a file called test.data. Then I did this:
  35.  
  36. flex spec.l
  37.  
  38. cc lex.yy.c -o hdr
  39.  
  40. hdr test.data >output
  41.  
  42. here's the revised files:
  43. ============file: spec.l===============================
  44. %S REPLY FROM SUBJECT QUIT GET BINARY ASCII HELP CONNECT
  45. %%
  46. <FROM>[^\n]+    printf("FROM: %s\n",yytext);
  47. <FROM>\n    BEGIN 0;
  48. From:" "    BEGIN FROM;
  49.  
  50. <SUBJECT>[^\n]+    printf("SUBJECT: %s\n",yytext);
  51. <SUBJECT>\n    BEGIN 0;
  52. Subject:" "    BEGIN SUBJECT;
  53.  
  54. <REPLY>[^\n]+    printf("REPLY: %s\n",yytext);
  55. <REPLY>\n    BEGIN 0;
  56. [rR][eE][pP][lL][yY]" "    BEGIN REPLY;
  57.  
  58. <QUIT>[^\n]+    printf("QUIT\n");
  59. <QUIT>\n    BEGIN 0;
  60. [qQ][uU][iI][tT]    BEGIN QUIT;
  61.  
  62. <HELP>[^\n]+    printf("HELP\n");
  63. <HELP>\n    BEGIN 0;
  64. [hH][Ee][lL][pP]    BEGIN HELP;
  65.  
  66. <GET>[^\n]+    printf("GET: %s\n",yytext);
  67. <GET>\n    BEGIN 0;
  68. [gG][eE][tT]" "    BEGIN GET;
  69.  
  70. <BINARY>[^\n]+    printf("BINARY\n");
  71. <BINARY>\n    BEGIN 0;
  72. [bB][iI][nN][aA][rR][yY]    BEGIN BINARY;
  73.  
  74. <ASCII>[^\n]+    printf("ASCII\n");
  75. <ASCII>\n    BEGIN 0;
  76. [aA][sS][cC][iI][iI]    BEGIN ASCII;
  77.  
  78. <CONNECT>[^\n]+    printf("CONNECT: %s\n",yytext);
  79. <CONNECT>\n    BEGIN 0;
  80. [cC][oO][nN][nN][Ee][cC][tT]" "    BEGIN CONNECT;
  81. %%
  82. /* these two %'s must be there or flex will loose it's mind */
  83.  
  84. main( argc, argv )
  85. int argc;
  86. char **argv;
  87. {
  88. FILE *infile;
  89.  
  90.     /* should check argc too */
  91. if( (infile = fopen( argv[1], "r" )) == NULL )
  92.     {
  93.     printf( "can't open %s\n", argv[1] );
  94.     exit( 1 );
  95.     }
  96.  
  97. yyin = infile;
  98.  
  99. yylex();
  100.  
  101. }
  102.  
  103. ===== here's the input I fed to the above spec.  file: test.data ======
  104. From: root@rwsys.wimsey.bc.ca (Randy Wright)
  105. Subject: flex stuff.. 
  106. reply root@rwsys.wimsey.bc.ca
  107. quit  
  108. help  
  109. get ./pub/myfile.txt
  110. Binary  
  111. Ascii  
  112. Connect 256.256.256.256
  113.  
  114. ====== here's the output from the above input. file: output ============
  115. FROM: root@rwsys.wimsey.bc.ca (Randy Wright)
  116. SUBJECT: flex stuff.. 
  117. REPLY: root@rwsys.wimsey.bc.ca
  118. QUIT
  119. HELP
  120. GET: ./pub/myfile.txt
  121. BINARY
  122. ASCII
  123. CONNECT: 256.256.256.256
  124. ==================
  125. I think this is probably what you are trying to achieve. BTW, very 
  126. interesting code. Looks useful for parsing ftpmail commands and other
  127. network stuff.
  128.  
  129. Randy Wright
  130.  
  131. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  132. root@rwsys.wimsey.bc.ca (Randy Wright)      | Exporter BBS     2400 bps
  133.                 or                          | (604) 581-0518     8N1
  134.     Randy_Wright@Mindlink.bc.ca             | uucp         ogin: uguest
  135.                                             | interactive login: guest
  136. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  137.