home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 329_01 / csubst.l < prev    next >
Text File  |  1990-10-29  |  4KB  |  179 lines
  1. /* csubst.l */
  2. /* lex source of csubst utility.
  3. This programme is shareware.
  4. If you found this programme useful then send me a colourful postcard
  5. with the words "Happy Birthday" (or equivalent) so that it arrives
  6. at my address around the first of January 1991.
  7.  
  8. Henri de Feraudy
  9. 27 rue Chef de Ville
  10. 92140 Clamart 
  11. France
  12. */
  13. %{
  14. extern int  Mode, Truncation;
  15. extern char *lookup_subst();
  16. #include <stdio.h>
  17. #include "csubst.h"
  18. #define cond_putchar(C) if(Mode == APPLY_SUBSTS || Mode == PRINT_TRUNCATED)putchar(C);
  19.  
  20. #ifdef yywrap
  21. #undef yywrap
  22. #define yywrap() (!next_yyin())
  23. #endif
  24.  
  25. void action_keyword(), default_action(), action_symbol(), read_comment();
  26. %}
  27. letter         [a-zA-Z]
  28. rest        [a-zA-Z0-9_]
  29. identifier    {letter}{rest}*
  30. space        [ \t]*
  31. sinclude    "#"{space}"include"{space}"<"[a-zA-Z\.\\\/0-9]+">"
  32. hexa        [a-fA-F0-9]
  33. begin_define    "#"{space}"define"{space}
  34. begin_cond    "#"{space}("ifdef"|"ifndef")
  35.  
  36. %start        CPP_MACRO
  37. %%
  38.  
  39. "/*"            {read_comment();}
  40. {sinclude}        {default_action();}
  41. {begin_cond}        {default_action();BEGIN CPP_MACRO;}
  42. {begin_define}        {default_action();BEGIN CPP_MACRO;}
  43. "#"{space}{identifier}  {default_action();}
  44. "auto"            {action_keyword();}
  45. "break"            {action_keyword();}
  46. "case"            {action_keyword();}
  47. "char"            {action_keyword();}
  48. "const"            {action_keyword();}
  49. "continue"        {action_keyword();}
  50. "default"        {action_keyword();}
  51. "do"            {action_keyword();}
  52. "double"        {action_keyword();}
  53. "else"            {action_keyword();}
  54. "enum"            {action_keyword();}
  55. "extern"        {action_keyword();}
  56. "float"            {action_keyword();}
  57. "for"            {action_keyword();}
  58. "goto"            {action_keyword();}
  59. "if"            {action_keyword();}
  60. "int"            {action_keyword();}
  61. "long"            {action_keyword();}
  62. "register"        {action_keyword();}
  63. "return"        {action_keyword();}
  64. "short"            {action_keyword();}
  65. "signed"        {action_keyword();}
  66. "sizeof"        {action_keyword();}
  67. "static"        {action_keyword();}
  68. "struct"        {action_keyword();}
  69. "switch"        {action_keyword();}
  70. "typedef"        {action_keyword();}
  71. "union"            {action_keyword();}
  72. "unsigned"        {action_keyword();}
  73. "void"            {action_keyword();}
  74. "volatile"        {action_keyword();}
  75. "while"            {action_keyword();}
  76. \"(\\.|[^\\"])*\"    {action_symbol(TYPE_STRING);}
  77. '(\\.|[^\\'])+'        {default_action();}
  78. <CPP_MACRO>{identifier}    {action_symbol(TYPE_MACRO);BEGIN 0;}
  79. {identifier}        {action_symbol(TYPE_IDENTIFIER);BEGIN 0;}
  80. \n            {cond_putchar('\n');}
  81. "0x"{hexa}        {default_action();}
  82. .            {default_action();}
  83. %%
  84.  
  85. #ifndef yywrap /* flex defines this as a macro */
  86. /* this is the action yylex() executes on end of file 
  87.    if it returns 0 then processing continues.
  88.  */
  89. yywrap()
  90. {
  91. return (!next_yyin());
  92. }
  93. #endif
  94.  
  95. void action_symbol(type_flag)
  96. symbol_type_t type_flag;
  97. { 
  98. extern  char O_string_buffer[];
  99. static int reading_original_string = 1;
  100. char *o_string;
  101.  
  102.   switch(Mode)
  103.   {
  104.   case PRINT_TRUNCATED:
  105.     if(!symbol_lookup(yytext) && type_flag == TYPE_IDENTIFIER)
  106.         printf("%.*s", Truncation, yytext);
  107.     else
  108.       printf("%s", yytext);
  109.     break;
  110.  
  111.   case APPLY_SUBSTS:
  112.   o_string =  lookup_subst(yytext);
  113.   if(o_string == NULL)
  114.    printf("%s", yytext);
  115.   else
  116.    printf("%s", o_string);
  117.   break;
  118.  
  119.   case READ_IGNORES:
  120.   case EXTRACT_SYMBOLS:
  121.     symbol_install(yytext, type_flag);
  122.   break;
  123.  
  124.   case READ_SUBSTS:
  125.     if(reading_original_string)
  126.       {
  127.       strncpy(O_string_buffer,yytext,SYMBOL_SIZE);
  128.       }
  129.     else
  130.       {
  131.       install_subst(O_string_buffer,yytext);
  132.       }
  133.     reading_original_string = !reading_original_string;
  134.   }
  135.  
  136. }   
  137.  
  138.  
  139. void read_comment()
  140. {
  141. int c, previous;
  142.  
  143. previous = '*';
  144.  
  145. if(Mode == APPLY_SUBSTS || Mode == PRINT_TRUNCATED)
  146.    printf("/*");
  147.  
  148. for(;;){
  149.     c = input();
  150.     if(c == EOF)
  151.       fatal("EOF in comment");
  152.         else 
  153.     cond_putchar(c);
  154.     if(c == '/'){
  155.       if(previous == '*')
  156.         break;
  157.       }
  158.     previous = c;
  159.     }
  160.  
  161. }
  162.  
  163. void default_action()
  164. {
  165. if(Mode == APPLY_SUBSTS || Mode == PRINT_TRUNCATED)
  166.   printf("%s", yytext);
  167. }
  168.  
  169. void action_keyword()
  170. {
  171. if(Mode == READ_SUBSTS)
  172.   fatal1("Cannot use %s in a replacement", yytext);
  173. if(Mode == APPLY_SUBSTS || Mode == PRINT_TRUNCATED)
  174.    printf("%s", yytext);
  175. }
  176.  
  177. /* end of file */
  178.  
  179.