1 (* Copyright (C) 2000, HELM Team.
3 * This file is part of HELM, an Hypertextual, Electronic
4 * Library of Mathematics, developed at the Computer Science
5 * Department, University of Bologna, Italy.
7 * HELM is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU General Public License
9 * as published by the Free Software Foundation; either version 2
10 * of the License, or (at your option) any later version.
12 * HELM is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
17 * You should have received a copy of the GNU General Public License
18 * along with HELM; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
22 * For details, see the HELM World-Wide-Web page,
23 * http://cs.unibo.it/helm/.
26 (* AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
34 let out s = if debug then prerr_endline s
37 let SPC = [' ' '\t' '\n']+
38 let ALPHA = ['A'-'Z' 'a'-'z' '_']
40 let IDEN = ALPHA (NUM | ALPHA)*
41 let QSTR = [^ '"' '\\']+
43 rule comm_token = parse
44 | "(*" { comm_token lexbuf; comm_token lexbuf }
46 | ['*' '('] { comm_token lexbuf }
47 | [^ '*' '(']* { comm_token lexbuf }
48 and string_token = parse
50 | '\\' _ { STR (String.sub (Lexing.lexeme lexbuf) 1 1) }
51 | QSTR { STR (Lexing.lexeme lexbuf) }
53 and query_token = parse
54 | "(*" { comm_token lexbuf; query_token lexbuf }
55 | SPC { query_token lexbuf }
56 | '"' { let str = qstr string_token lexbuf in
57 out ("STR " ^ str); STR str }
58 | '(' { out "LP"; LP }
59 | ')' { out "RP"; RP }
60 | '[' { out "LB"; LB }
61 | ']' { out "RB"; RB }
62 | '{' { out "LC"; LC }
63 | '}' { out "RC"; RC }
64 | '@' { out "AT"; AT }
65 | '$' { out "DL"; DL }
66 | '.' { out "FS"; FS }
67 | ',' { out "CM"; CM }
68 | ';' { out "SC"; SC }
69 | '/' { out "SL"; SL }
70 | ';' { out "SC"; SC }
71 | "add" { out "ADD" ; ADD }
72 | "align" { out "ALIGN" ; ALIGN }
73 | "allbut" { out "BUT" ; BUT }
74 | "and" { out "AND" ; AND }
75 | "as" { out "AS" ; AS }
76 | "attr" { out "ATTR" ; ATTR }
77 | "be" { out "BE" ; BE }
78 | "count" { out "COUNT" ; COUNT }
79 | "diff" { out "DIFF" ; DIFF }
80 | "distr" { out "DISTR" ; DISTR }
81 | "else" { out "ELSE" ; ELSE }
82 | "empty" { out "EMPTY" ; EMPTY }
83 | "eq" { out "EQ" ; EQ }
84 | "ex" { out "EX" ; EX }
85 | "false" { out "FALSE" ; FALSE }
86 | "for" { out "FOR" ; FOR }
87 | "from" { out "FROM" ; FROM }
88 | "if" { out "IF" ; IF }
89 | "in" { out "IN" ; IN }
90 | "inf" { out "INF" ; INF }
91 | "intersect" { out "INTER" ; INTER }
92 | "inverse" { out "INV" ; INV }
93 | "istrue" { out "IST" ; IST }
94 | "isfalse" { out "ISF" ; ISF }
95 | "keep" { out "KEEP" ; KEEP }
96 | "le" { out "LE" ; LE }
97 | "let" { out "LET" ; LET }
98 | "log" { out "LOG" ; LOG }
99 | "lt" { out "LT" ; LT }
100 | "main" { out "MAIN" ; MAIN }
101 | "match" { out "MATCH" ; MATCH }
102 | "meet" { out "MEET" ; MEET }
103 | "not" { out "NOT" ; NOT }
104 | "of" { out "OF" ; OF }
105 | "or" { out "OR" ; OR }
106 | "pattern" { out "PAT" ; PAT }
107 | "proj" { out "PROJ" ; PROJ }
108 | "property" { out "PROP" ; PROP }
109 | "select" { out "SELECT"; SELECT }
110 | "seq" { out "SEQ" ; SEQ }
111 | "source" { out "SOURCE"; SOURCE }
112 | "stat" { out "STAT" ; STAT }
113 | "sub" { out "SUB" ; SUB }
114 | "sup" { out "SUP" ; SUP }
115 | "super" { out "SUPER" ; SUPER }
116 | "then" { out "THEN" ; THEN }
117 | "true" { out "TRUE" ; TRUE }
118 | "union" { out "UNION" ; UNION }
119 | "where" { out "WHERE" ; WHERE }
120 | "xor" { out "XOR" ; XOR }
121 | IDEN { let id = Lexing.lexeme lexbuf in
122 out ("ID " ^ id); ID id }
123 | eof { out "EOF" ; EOF }
124 | "=" { out "BE" ; BE }
125 | "#" { out "COUNT" ; COUNT }
126 | "!" { out "NOT" ; NOT }
127 | "<" { out "LT" ; LT }
128 | "<=" { out "LE" ; LE }
129 | "==" { out "EQ" ; EQ }
130 | "&&" { out "AND" ; AND }
131 | "||" { out "OR" ; OR }
132 | "\\/" { out "UNION" ; UNION }
133 | "/\\" { out "INTER" ; INTER }
134 | ";;" { out "SEQ" ; SEQ }
135 and result_token = parse
136 | SPC { result_token lexbuf }
137 | "(*" { comm_token lexbuf; result_token lexbuf }
138 | '"' { STR (qstr string_token lexbuf) }