src/Pure/PIDE/markup.ML
changeset 80912 b2eaa342aae5
parent 80911 8ad5e6df050b
child 80920 bbe2c56fe255
equal deleted inserted replaced
80911:8ad5e6df050b 80912:b2eaa342aae5
    66   val positionN: string val position: T
    66   val positionN: string val position: T
    67   val position_properties: string list
    67   val position_properties: string list
    68   val position_property: Properties.entry -> bool
    68   val position_property: Properties.entry -> bool
    69   val def_name: string -> string
    69   val def_name: string -> string
    70   val notation_mixfixN: string
    70   val notation_mixfixN: string
       
    71   val notation_prefixN: string
       
    72   val notation_postfixN: string
    71   val notation_infixN: string
    73   val notation_infixN: string
    72   val notation_binderN: string
    74   val notation_binderN: string
    73   val notations: string list
    75   val notations: string list
    74   val notationN: string val notation: {kind: string, name: string} -> T
    76   val notationN: string val notation: {kind: string, name: string} -> T
    75   val notation0: T
    77   val notation0: T
   441 
   443 
   442 
   444 
   443 (* notation: mixfix annotations *)
   445 (* notation: mixfix annotations *)
   444 
   446 
   445 val notation_mixfixN = "mixfix";
   447 val notation_mixfixN = "mixfix";
       
   448 val notation_prefixN = "prefix";
       
   449 val notation_postfixN = "postfix";
   446 val notation_infixN = "infix";
   450 val notation_infixN = "infix";
   447 val notation_binderN = "binder";
   451 val notation_binderN = "binder";
   448 val notations = [notation_mixfixN, notation_infixN, notation_binderN];
   452 val notations =
       
   453   [notation_mixfixN, notation_prefixN, notation_postfixN, notation_infixN, notation_binderN];
   449 
   454 
   450 val notationN = "notation";
   455 val notationN = "notation";
   451 fun notation {kind, name} = (notationN, kind_proper kind @ name_proper name);
   456 fun notation {kind, name} = (notationN, kind_proper kind @ name_proper name);
   452 
   457 
   453 val notation0 = (notationN, []);
   458 val notation0 = (notationN, []);