521 (Scan.succeed IsarCmd.exit); |
521 (Scan.succeed IsarCmd.exit); |
522 |
522 |
523 val restartP = |
523 val restartP = |
524 OuterSyntax.improper_command "restart" "restart Isar loop" K.control |
524 OuterSyntax.improper_command "restart" "restart Isar loop" K.control |
525 (Scan.succeed IsarCmd.restart); |
525 (Scan.succeed IsarCmd.restart); |
526 |
|
527 val breakP = |
|
528 OuterSyntax.improper_command "break" "discontinue excursion (keep current state)" K.control |
|
529 (Scan.succeed IsarCmd.break); |
|
530 |
526 |
531 |
527 |
532 |
528 |
533 (** the Pure outer syntax **) |
529 (** the Pure outer syntax **) |
534 |
530 |
562 print_commandsP, print_theoryP, print_syntaxP, print_attributesP, |
558 print_commandsP, print_theoryP, print_syntaxP, print_attributesP, |
563 print_methodsP, print_theoremsP, print_bindsP, print_lthmsP, |
559 print_methodsP, print_theoremsP, print_bindsP, print_lthmsP, |
564 print_thmsP, print_propP, print_termP, print_typeP, |
560 print_thmsP, print_propP, print_termP, print_typeP, |
565 (*system commands*) |
561 (*system commands*) |
566 cdP, pwdP, use_thyP, use_thy_onlyP, update_thyP, prP, commitP, |
562 cdP, pwdP, use_thyP, use_thy_onlyP, update_thyP, prP, commitP, |
567 quitP, exitP, restartP, breakP]; |
563 quitP, exitP, restartP]; |
568 |
564 |
569 |
565 |
570 end; |
566 end; |
571 |
567 |
572 |
568 |