1 | /* This is the lexical analyser - it returns tokens to the parsers.
|
---|
2 | This is used by both parsers - one for the build-time config files
|
---|
3 | and one for the run-time config files. Note the included file "parse.h"
|
---|
4 | is a symlink to the relevant header file. */
|
---|
5 |
|
---|
6 | %{
|
---|
7 | #include <string.h>
|
---|
8 | #include <stdlib.h>
|
---|
9 | #include <stdio.h>
|
---|
10 |
|
---|
11 | /*#define YYSTYPE char * - YYSTYPE is defined in zparse.tab.h */
|
---|
12 | #include "zparse.tab.h"
|
---|
13 |
|
---|
14 | /* forward declarations for std functions not picked up. */
|
---|
15 | /*int fileno(FILE *);*/
|
---|
16 | /*char *strdup(char *);*/
|
---|
17 |
|
---|
18 | int lineno=1;
|
---|
19 | %}
|
---|
20 |
|
---|
21 | %option noyywrap
|
---|
22 |
|
---|
23 | COMMENT \#.*(\n|\r)
|
---|
24 |
|
---|
25 | %x STRINGCOND
|
---|
26 | %%
|
---|
27 | char *string;
|
---|
28 | int string_len;
|
---|
29 |
|
---|
30 | {COMMENT} lineno++;/*yylval.string=yytext;*/yyleng=0;
|
---|
31 | , return (',');
|
---|
32 | : return (':');
|
---|
33 | \_ return ('_');
|
---|
34 | \[GSDL[0-9]+\.[0-9]+\] yylval.string=yytext;return(GSDLVERSION);
|
---|
35 | \[General\] return (GENERAL_SECTION);
|
---|
36 | \[Search\ [fF]ields\] return (SEARCH_SECTION);
|
---|
37 | \[Browse\ [fF]ields\] return (BROWSE_SECTION);
|
---|
38 | \[Macros\] return (MACROS_SECTION);
|
---|
39 | maintainer return (MAINTAINER);
|
---|
40 | Languages return(LANGUAGES);
|
---|
41 | About return(ABOUT);
|
---|
42 | Browse return(BROWSE);
|
---|
43 | Date[lL]ist return(DATELIST);
|
---|
44 | Document[aA]rrows[bB]ottom return(DOCUMENTARROWSBOTTOM);
|
---|
45 | Document[bB]uttons return(DOCUMENTBUTTONS);
|
---|
46 | Document[hH]eader return(DOCUMENTHEADER);
|
---|
47 | Document[iI]mages return(DOCUMENTIMAGES);
|
---|
48 | Document[tT]ext return(DOCUMENTTEXT);
|
---|
49 | Icon[lL]ink return(ICONLINK);
|
---|
50 | List return(LIST);
|
---|
51 | Format return(FORMAT);
|
---|
52 | Name return(NAME);
|
---|
53 | Search[tT]ext return(SEARCHTEXT);
|
---|
54 | Section[lL]ist return(SECTIONLIST);
|
---|
55 | Sorted[lL]ist return(SORTEDLIST);
|
---|
56 | Sorted[sS]ection[lL]ist return(SORTEDSECTIONLIST);
|
---|
57 | Text[lL]ink return(TEXTLINK);
|
---|
58 | Type return(TYPE);
|
---|
59 | public return (PUBLIC);
|
---|
60 | true return (TRUE);
|
---|
61 | false return (FALSE);
|
---|
62 | ^document return (DOCUMENT);
|
---|
63 | ^section return (SECTION);
|
---|
64 | [iI]con return (ICON);
|
---|
65 | [sS]mall[iI]con return (SMALLICON);
|
---|
66 | \" {string=NULL;BEGIN(STRINGCOND);}
|
---|
67 | <STRINGCOND>{
|
---|
68 | ([^\"\\\n])* {/* append this to our current string EXC NEWLINE */
|
---|
69 | if (string==NULL) string_len=0; else
|
---|
70 | string_len=strlen(string);
|
---|
71 | string=realloc(string,string_len+strlen(yytext)+1);
|
---|
72 | /* +1 is for trailing \0 */
|
---|
73 | strcpy(string+string_len,yytext);
|
---|
74 | }
|
---|
75 | ([^\"\\])*\n {/* append this to our current string - INC NEWLINE */
|
---|
76 | lineno++;
|
---|
77 | if (string==NULL) string_len=0; else
|
---|
78 | string_len=strlen(string);
|
---|
79 | string=realloc(string,string_len+strlen(yytext)+1);
|
---|
80 | /* +1 is for trailing \0 */
|
---|
81 | strcpy(string+string_len,yytext);
|
---|
82 | }
|
---|
83 | "\\"\" |
|
---|
84 | \"\" { /*replace quoted quote with one quote*/
|
---|
85 | string_len=strlen(string);
|
---|
86 | string=realloc(string,string_len+2);
|
---|
87 | string[string_len]='\"';
|
---|
88 | string[string_len+1]='\0';
|
---|
89 | }
|
---|
90 | \" {
|
---|
91 | BEGIN(INITIAL);
|
---|
92 | yylval.string=string;
|
---|
93 | return(STRING);
|
---|
94 | /* note that the string may have long bits of
|
---|
95 | whitespace in it that we could remove. */
|
---|
96 | }
|
---|
97 | }
|
---|
98 | [[:alnum:]@\.-]+ yylval.string=strdup(yytext);return (DATA);
|
---|
99 | (" "|\t) ;
|
---|
100 | (\n|\r) lineno++;
|
---|
101 | %%
|
---|
102 | /******** deleted rules: *******
|
---|
103 | en return(EN);
|
---|
104 | fr return(FR);
|
---|
105 | mi return(MI);
|
---|
106 | zh return(ZH);
|
---|
107 | de return(DE);
|
---|
108 | ***************/
|
---|
109 |
|
---|
110 |
|
---|
111 |
|
---|
112 |
|
---|