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 "PC"; PC }
66 | '.' { out "FS"; FS }
67 | ',' { out "CM"; CM }
68 | ';' { out "SC"; SC }
69 | '/' { out "SL"; SL }
70 | "add" { out "ADD" ; ADD }
71 | "align" { out "ALIGN" ; ALIGN }
72 | "allbut" { out "BUT" ; BUT }
73 | "and" { out "AND" ; AND }
74 | "as" { out "AS" ; AS }
75 | "attr" { out "ATTR" ; ATTR }
76 | "be" { out "BE" ; BE }
77 | "count" { out "COUNT" ; COUNT }
78 | "diff" { out "DIFF" ; DIFF }
79 | "distr" { out "DISTR" ; DISTR }
80 | "else" { out "ELSE" ; ELSE }
81 | "empty" { out "EMPTY" ; EMPTY }
82 | "eq" { out "EQ" ; EQ }
83 | "ex" { out "EX" ; EX }
84 | "false" { out "FALSE" ; FALSE }
85 | "for" { out "FOR" ; FOR }
86 | "from" { out "FROM" ; FROM }
87 | "if" { out "IF" ; IF }
88 | "in" { out "IN" ; IN }
89 | "inf" { out "INF" ; INF }
90 | "intersect" { out "INTER" ; INTER }
91 | "inverse" { out "INV" ; INV }
92 | "istrue" { out "IST" ; IST }
93 | "isfalse" { out "ISF" ; ISF }
94 | "keep" { out "KEEP" ; KEEP }
95 | "le" { out "LE" ; LE }
96 | "let" { out "LET" ; LET }
97 | "log" { out "LOG" ; LOG }
98 | "lt" { out "LT" ; LT }
99 | "main" { out "MAIN" ; MAIN }
100 | "match" { out "MATCH" ; MATCH }
101 | "meet" { out "MEET" ; MEET }
102 | "not" { out "NOT" ; NOT }
103 | "of" { out "OF" ; OF }
104 | "or" { out "OR" ; OR }
105 | "pattern" { out "PAT" ; PAT }
106 | "proj" { out "PROJ" ; PROJ }
107 | "property" { out "PROP" ; PROP }
108 | "select" { out "SELECT"; SELECT }
109 | "source" { out "SOURCE"; SOURCE }
110 | "stat" { out "STAT" ; STAT }
111 | "sub" { out "SUB" ; SUB }
112 | "sup" { out "SUP" ; SUP }
113 | "super" { out "SUPER" ; SUPER }
114 | "then" { out "THEN" ; THEN }
115 | "true" { out "TRUE" ; TRUE }
116 | "union" { out "UNION" ; UNION }
117 | "where" { out "WHERE" ; WHERE }
118 | "xor" { out "XOR" ; XOR }
119 | IDEN { let id = Lexing.lexeme lexbuf in
120 out ("ID " ^ id); ID id }
121 | eof { out "EOF" ; EOF }
122 and result_token = parse
123 | SPC { result_token lexbuf }
124 | "(*" { comm_token lexbuf; result_token lexbuf }
125 | '"' { STR (qstr string_token lexbuf) }