paul@0 | 1 | /* |
paul@0 | 2 | * Scanner for a simple interface description language. |
paul@28 | 3 | * |
paul@209 | 4 | * Copyright (C) 2019, 2022 Paul Boddie <paul@boddie.org.uk> |
paul@28 | 5 | * |
paul@28 | 6 | * This program is free software; you can redistribute it and/or |
paul@28 | 7 | * modify it under the terms of the GNU General Public License as |
paul@28 | 8 | * published by the Free Software Foundation; either version 2 of |
paul@28 | 9 | * the License, or (at your option) any later version. |
paul@28 | 10 | * |
paul@28 | 11 | * This program is distributed in the hope that it will be useful, |
paul@28 | 12 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
paul@28 | 13 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
paul@28 | 14 | * GNU General Public License for more details. |
paul@28 | 15 | * |
paul@28 | 16 | * You should have received a copy of the GNU General Public License |
paul@28 | 17 | * along with this program; if not, write to the Free Software |
paul@28 | 18 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, |
paul@28 | 19 | * Boston, MA 02110-1301, USA |
paul@0 | 20 | */ |
paul@0 | 21 | |
paul@0 | 22 | %{ |
paul@3 | 23 | #include <string.h> |
paul@6 | 24 | #include "types.h" |
paul@0 | 25 | #include "y.tab.h" |
paul@0 | 26 | %} |
paul@0 | 27 | |
paul@3 | 28 | BEGINCOMMENT "/*" |
paul@3 | 29 | ENDCOMMENT "*/" |
paul@3 | 30 | WS [ \t\n]+ |
paul@0 | 31 | |
paul@0 | 32 | %x comment |
paul@0 | 33 | |
paul@0 | 34 | %% |
paul@0 | 35 | |
paul@3 | 36 | {BEGINCOMMENT} BEGIN(comment); |
paul@3 | 37 | |
paul@3 | 38 | <comment>{ENDCOMMENT} BEGIN(INITIAL); |
paul@3 | 39 | <comment>[^*]+ /* discard */ |
paul@3 | 40 | <comment>"*"[^/] /* discard */ |
paul@3 | 41 | |
paul@3 | 42 | {WS} /* discard */ |
paul@0 | 43 | |
paul@21 | 44 | ^"#include" return INCLUDE; |
paul@214 | 45 | "<"[^>]*">" yylval.str = strdup(yytext); return PHEADER; |
paul@214 | 46 | \"[^"]*\" yylval.str = strdup(yytext); return QHEADER; |
paul@21 | 47 | |
paul@214 | 48 | "import" return IMPORT; |
paul@29 | 49 | "interface" return INTERFACE; |
paul@21 | 50 | |
paul@12 | 51 | "in" yylval.num = IN_PARAMETER; return IN; |
paul@12 | 52 | "inout" yylval.num = INOUT_PARAMETER; return INOUT; |
paul@12 | 53 | "out" yylval.num = OUT_PARAMETER; return OUT; |
paul@21 | 54 | |
paul@30 | 55 | "cap" yylval.num = CAP_ITEM; return CAP; |
paul@30 | 56 | "fpage" yylval.num = FPAGE_ITEM; return FPAGE; |
paul@30 | 57 | |
paul@3 | 58 | "(" return LPAR; |
paul@3 | 59 | ")" return RPAR; |
paul@21 | 60 | |
paul@25 | 61 | "[" return LBRACE; |
paul@25 | 62 | "]" return RBRACE; |
paul@25 | 63 | |
paul@3 | 64 | "," return SEP; |
paul@3 | 65 | ";" return TERM; |
paul@21 | 66 | |
paul@3 | 67 | "{" return BEGINSECTION; |
paul@3 | 68 | "}" return ENDSECTION; |
paul@21 | 69 | |
paul@214 | 70 | "composes" return COMPOSES; |
paul@214 | 71 | |
paul@136 | 72 | [_[:alpha:]][_[:alnum:]]* yylval.str = strdup(yytext); return IDENTIFIER; |
paul@38 | 73 | [[:digit:]]+ yylval.str = strdup(yytext); return DECIMAL; |
paul@38 | 74 | "0"[xX][[:xdigit:]]+ yylval.str = strdup(yytext); return HEXADECIMAL; |
paul@0 | 75 | |
paul@3 | 76 | %% |