# HG changeset patch
# User wenzelm
# Date 1084210018 -7200
# Node ID 59ab60c6fcc67bd1c5251ba94c84fa8dbc528bf5
# Parent  0e987111a17e92aa24c5974464f7b4b174cf8bf9
support nested comments;

diff -r 0e987111a17e -r 59ab60c6fcc6 src/Pure/Syntax/lexicon.ML
--- a/src/Pure/Syntax/lexicon.ML	Mon May 10 19:26:42 2004 +0200
+++ b/src/Pure/Syntax/lexicon.ML	Mon May 10 19:26:58 2004 +0200
@@ -239,20 +239,20 @@
   | predef_term _ = None;
 
 
-fun scan_enclosed(a1,a2,z1,z2,kind) =
-  let val scan_chr =
-        $$ "\\" |-- Scan.one Symbol.not_eof ||
-        Scan.one (not_equal z1 andf Symbol.not_eof) ||
-        $$ z1 --| Scan.ahead (Scan.one (not_equal z2));
-  in $$ a1 |-- $$ a2 |--
-    !! (fn (cs, _) => "Inner lexical error: missing end of " ^ kind ^ " at " ^
-                      quote (a1 ^ a2 ^ Symbol.beginning cs))
-    (Scan.repeat scan_chr --| $$ z1 --| $$ z2)
-  end;
-
 (* xstr tokens *)
 
-val scan_str = scan_enclosed("'","'","'","'","string")
+fun lex_err msg prfx (cs, _) =
+  "Inner lexical error: " ^ msg ^ " at " ^ quote (prfx ^ Symbol.beginning 10 cs);
+
+val scan_chr =
+  $$ "\\" |-- Scan.one Symbol.not_eof ||
+  Scan.one (not_equal "'" andf Symbol.not_eof) ||
+  $$ "'" --| Scan.ahead (Scan.one (not_equal "'"));
+
+val scan_str =
+  $$ "'" |-- $$ "'" |-- !! (lex_err "missing end of string" "''")
+    (Scan.repeat scan_chr --| $$ "'" --| $$ "'");
+
 
 fun implode_xstr cs = enclose "''" "''" (implode (map (fn "'" => "\\'" | c => c) cs));
 
@@ -262,7 +262,20 @@
   | _ => error ("Inner lexical error: literal string expected at " ^ quote str));
 
 
-val scan_comment = scan_enclosed("(","*","*",")","comment")
+(* nested comments *)
+
+val scan_cmt =
+  Scan.depend (fn d => $$ "(" ^^ $$ "*" >> pair (d + 1)) ||
+  Scan.depend (fn 0 => Scan.fail | d => $$ "*" ^^ $$ ")" >> pair (d - 1)) ||
+  Scan.lift ($$ "*" --| Scan.ahead (Scan.one (not_equal ")"))) ||
+  Scan.lift (Scan.one (not_equal "*" andf Symbol.not_eof));
+
+val scan_comment =
+  $$ "(" -- $$ "*" -- !! (lex_err "missing end of comment" "(*")
+    (Scan.pass 0 (Scan.repeat scan_cmt) -- $$ "*" -- $$ ")")
+  >> K None;
+
+
 
 (** tokenize **)
 
@@ -284,7 +297,7 @@
     val scan_lit = Scan.literal lex >> (pair Token o implode);
 
     val scan_token =
-      scan_comment >> K None ||
+      scan_comment ||
       Scan.max (op <= o pairself snd) scan_lit scan_val >> (fn (tk, s) => Some (tk s)) ||
       scan_str >> (Some o StrSy o implode_xstr) ||
       Scan.one Symbol.is_blank >> K None;
@@ -387,5 +400,4 @@
     | None => error ("No identifier found in: " ^ quote str))
   end;
 
-
 end;