Commit 356d76a5 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2002-11-10 12:49:51 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-10 12:49:51+00:00
parent ea2e36bd
......@@ -8,7 +8,8 @@ open Netcgi
(* Configuration *)
let session_dir = "/home/frisch/sessions"
let session_dirs = [ "/home/frisch/sessions"; "/users/formel/cduce/sessions" ]
let session_dir = List.find Sys.file_exists session_dirs
let timeout = 60 * 5 (* seconds *)
let max_sess = 10
......
......@@ -243,7 +243,7 @@ EXTEND
| "no_arrow" [ x = pat; "|"; y = pat -> mk loc (Or (x,y)) ]
| "simple" [ x = pat; "&"; y = pat -> mk loc (And (x,y,true))
(* | x = pat; ":"; y = pat -> mk loc (And (x,y,false)) *)
| x = pat; "-"; y = pat -> mk loc (Diff (x,y)) ]
| x = pat; "\\"; y = pat -> mk loc (Diff (x,y)) ]
|
[ "{"; r = record_spec; "}" -> r
| LIDENT "_" -> mk loc (Internal Types.any)
......
......@@ -97,8 +97,8 @@ let lex_tables = {
"\000\000\009\000\012\000\018\000\252\255\251\255\004\000\255\255\
\005\000\254\255\014\000\013\000\001\000\004\000\253\255\255\255\
\247\255\246\255\019\000\047\000\051\000\017\000\043\000\250\255\
\027\000\010\000\001\000\050\000\016\000\249\255\248\255\250\255\
\057\000\063\000\032\000\067\000\071\000\060\000";
\027\000\010\000\001\000\022\000\016\000\249\255\248\255\250\255\
\056\000\058\000\060\000\063\000\067\000\072\000";
Lexing.lex_backtrk =
"\255\255\255\255\255\255\255\255\255\255\255\255\004\000\255\255\
\002\000\255\255\004\000\002\000\004\000\004\000\255\255\255\255\
......@@ -115,32 +115,32 @@ let lex_tables = {
"\016\000\017\000\017\000\018\000\019\000\020\000\021\000\019\000\
\022\000\004\000\008\000\008\000\004\000\024\000\025\000\026\000\
\027\000\026\000\004\000\011\000\011\000\015\000\037\000\034\000\
\031\000\028\000\012\000\009\000\026\000\031\000\029\000\017\000\
\029\000\030\000\013\000\009\000\009\000\031\000\034\000\014\000\
\031\000\028\000\012\000\009\000\026\000\031\000\029\000\031\000\
\029\000\030\000\013\000\009\000\009\000\031\000\031\000\014\000\
\031\000\014\000\007\000\010\000\009\000\009\000\032\000\033\000\
\033\000\006\000\007\000\036\000\036\000\036\000\036\000\035\000\
\035\000\035\000\035\000\031\000\032\000\033\000\033\000\037\000\
\000\000\000\000\031\000\033\000\033\000\033\000\033\000\035\000\
\035\000\035\000\035\000\036\000\036\000\036\000\036\000\000\000\
\035\000\035\000\035\000\032\000\033\000\033\000\033\000\033\000\
\033\000\033\000\034\000\035\000\035\000\035\000\035\000\036\000\
\036\000\036\000\036\000\037\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000";
\000\000\000\000";
Lexing.lex_check =
"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\001\000\006\000\008\000\002\000\000\000\000\000\000\000\
\000\000\000\000\003\000\011\000\010\000\013\000\018\000\021\000\
\025\000\000\000\001\000\012\000\000\000\026\000\000\000\000\000\
\000\000\028\000\001\000\006\000\006\000\024\000\034\000\001\000\
\025\000\000\000\001\000\012\000\000\000\026\000\000\000\027\000\
\000\000\028\000\001\000\006\000\006\000\024\000\027\000\001\000\
\024\000\001\000\002\000\002\000\010\000\010\000\022\000\022\000\
\022\000\003\000\003\000\019\000\019\000\019\000\019\000\020\000\
\020\000\020\000\020\000\027\000\032\000\032\000\032\000\037\000\
\255\255\255\255\027\000\033\000\033\000\033\000\033\000\035\000\
\035\000\035\000\035\000\036\000\036\000\036\000\036\000\255\255\
\020\000\020\000\020\000\032\000\032\000\032\000\033\000\033\000\
\033\000\033\000\034\000\035\000\035\000\035\000\035\000\036\000\
\036\000\036\000\036\000\037\000\255\255\255\255\255\255\255\255\
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
\255\255"
\255\255\255\255"
}
let rec token engine lexbuf =
......
......@@ -53,7 +53,7 @@ rule token = parse
"TAG", String.sub s 1 (String.length s - 1)
}
| [ "<>=.,:;+-*/@&{}[]()|?`!" ]
| "->" | "::" | ";;" | "--" | ":="
| "->" | "::" | ";;" | "--" | ":=" | "\\"
| ["?+*"] "?"
{ "",Lexing.lexeme lexbuf }
......
......@@ -106,17 +106,17 @@ let print any f =
(fun ppf ->
Format.fprintf ppf "@[%a" f p1;
List.iter (fun x -> Format.fprintf ppf " &@ %a" f x) p;
List.iter (fun x -> Format.fprintf ppf " -@ %a" f x) n;
List.iter (fun x -> Format.fprintf ppf " \\@ %a" f x) n;
Format.fprintf ppf "@]";
)
| ([],[]) ->
(fun ppf -> Format.fprintf ppf "%s" any)
| ([],[n]) ->
(fun ppf -> Format.fprintf ppf "@[%s - %a@]" any f n)
(fun ppf -> Format.fprintf ppf "@[%s \\ %a@]" any f n)
| ([],n1::n) ->
(fun ppf ->
Format.fprintf ppf "@[%s" any;
List.iter (fun x -> Format.fprintf ppf " -@ %a" f x) n;
List.iter (fun x -> Format.fprintf ppf " \\@ %a" f x) n;
Format.fprintf ppf "@]";
)
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment