src/Pure/PIDE/command.ML
changeset 69891 def3ec9cdb7e
parent 69887 b9985133805d
child 69892 f752f3993db8
equal deleted inserted replaced
69890:cb643a1a5313 69891:def3ec9cdb7e
   153       if null verbatim then ()
   153       if null verbatim then ()
   154       else legacy_feature ("Old-style {* verbatim *} token -- use \<open>cartouche\<close> instead" ^
   154       else legacy_feature ("Old-style {* verbatim *} token -- use \<open>cartouche\<close> instead" ^
   155         Position.here_list verbatim);
   155         Position.here_list verbatim);
   156   in
   156   in
   157     if exists #1 token_reports then Toplevel.malformed pos "Malformed command syntax"
   157     if exists #1 token_reports then Toplevel.malformed pos "Malformed command syntax"
   158     else
   158     else Outer_Syntax.parse_span thy init (resolve_files keywords master_dir blobs_info span)
   159       (case Outer_Syntax.parse_tokens thy (resolve_files keywords master_dir blobs_info span) of
       
   160         [tr] => Toplevel.modify_init init tr
       
   161       | [] => Toplevel.ignored (#1 (Token.range_of span))
       
   162       | _ => Toplevel.malformed (#1 core_range) "Exactly one command expected")
       
   163       handle ERROR msg => Toplevel.malformed (#1 core_range) msg
       
   164   end;
   159   end;
   165 
   160 
   166 end;
   161 end;
   167 
   162 
   168 
   163