src/Pure/Isar/isar_syn.ML
changeset 38708 8915e3ce8655
parent 38379 67d71449e85b
child 38870 fb9f51ba1bbc
equal deleted inserted replaced
38707:d81f4d84ce3b 38708:8915e3ce8655
   283     (Parse.and_list1 Parse_Spec.xthms1
   283     (Parse.and_list1 Parse_Spec.xthms1
   284       >> (fn args => #2 o Specification.theorems_cmd "" [(Attrib.empty_binding, flat args)]));
   284       >> (fn args => #2 o Specification.theorems_cmd "" [(Attrib.empty_binding, flat args)]));
   285 
   285 
   286 
   286 
   287 (* name space entry path *)
   287 (* name space entry path *)
   288 
       
   289 val _ =
       
   290   Outer_Syntax.command "global" "disable prefixing of theory name" Keyword.thy_decl
       
   291     (Scan.succeed (Toplevel.theory Sign.root_path));
       
   292 
       
   293 val _ =
       
   294   Outer_Syntax.command "local" "enable prefixing of theory name" Keyword.thy_decl
       
   295     (Scan.succeed (Toplevel.theory Sign.local_path));
       
   296 
   288 
   297 fun hide_names name hide what =
   289 fun hide_names name hide what =
   298   Outer_Syntax.command name ("hide " ^ what ^ " from name space") Keyword.thy_decl
   290   Outer_Syntax.command name ("hide " ^ what ^ " from name space") Keyword.thy_decl
   299     ((Parse.opt_keyword "open" >> not) -- Scan.repeat1 Parse.xname >>
   291     ((Parse.opt_keyword "open" >> not) -- Scan.repeat1 Parse.xname >>
   300       (Toplevel.theory o uncurry hide));
   292       (Toplevel.theory o uncurry hide));