equal
deleted
inserted
replaced
72 local |
72 local |
73 val default = {output = default_output, escape = default_escape}; |
73 val default = {output = default_output, escape = default_escape}; |
74 val modes = Synchronized.var "Output.modes" (Symtab.make [("", default)]); |
74 val modes = Synchronized.var "Output.modes" (Symtab.make [("", default)]); |
75 in |
75 in |
76 fun add_mode name output escape = |
76 fun add_mode name output escape = |
77 Synchronized.change modes (Symtab.update_new (name, {output = output, escape = escape})); |
77 if Thread_Data.is_virtual then () |
|
78 else Synchronized.change modes (Symtab.update_new (name, {output = output, escape = escape})); |
78 fun get_mode () = |
79 fun get_mode () = |
79 the_default default |
80 the_default default |
80 (Library.get_first (Symtab.lookup (Synchronized.value modes)) (print_mode_value ())); |
81 (Library.get_first (Symtab.lookup (Synchronized.value modes)) (print_mode_value ())); |
81 end; |
82 end; |
82 |
83 |