src/Pure/PIDE/markup.ML
changeset 51518 50f141b34bb7
parent 51515 c94bba7906d2
child 51552 08ce81aeeacc
equal deleted inserted replaced
51517:51408dde956f 51518:50f141b34bb7
   104   val finishedN: string val finished: T
   104   val finishedN: string val finished: T
   105   val failedN: string val failed: T
   105   val failedN: string val failed: T
   106   val serialN: string
   106   val serialN: string
   107   val initN: string
   107   val initN: string
   108   val statusN: string
   108   val statusN: string
       
   109   val resultN: string
   109   val writelnN: string
   110   val writelnN: string
   110   val tracingN: string
   111   val tracingN: string
   111   val warningN: string
   112   val warningN: string
   112   val errorN: string
   113   val errorN: string
   113   val protocolN: string
   114   val protocolN: string
   355 
   356 
   356 val serialN = "serial";
   357 val serialN = "serial";
   357 
   358 
   358 val initN = "init";
   359 val initN = "init";
   359 val statusN = "status";
   360 val statusN = "status";
       
   361 val resultN = "result";
   360 val writelnN = "writeln";
   362 val writelnN = "writeln";
   361 val tracingN = "tracing";
   363 val tracingN = "tracing";
   362 val warningN = "warning";
   364 val warningN = "warning";
   363 val errorN = "error";
   365 val errorN = "error";
   364 val protocolN = "protocol";
   366 val protocolN = "protocol";
   381 val sendbackN = "sendback";
   383 val sendbackN = "sendback";
   382 val paddingN = "padding";
   384 val paddingN = "padding";
   383 val padding_line = (paddingN, lineN);
   385 val padding_line = (paddingN, lineN);
   384 
   386 
   385 val dialogN = "dialog";
   387 val dialogN = "dialog";
   386 fun dialog i result = (dialogN, [(serialN, print_int i), ("result", result)]);
   388 fun dialog i result = (dialogN, [(serialN, print_int i), (resultN, result)]);
   387 
   389 
   388 
   390 
   389 (* protocol message functions *)
   391 (* protocol message functions *)
   390 
   392 
   391 val functionN = "function"
   393 val functionN = "function"