equal
deleted
inserted
replaced
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" |