diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2008-07-24 09:51:53 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2008-07-24 09:51:53 +0000 |
commit | 76d6b0b2b1f039549d308a0d2c478a6b05869af9 (patch) | |
tree | 78cc7e13bf290a17e7006a6d4616a8a08e36ce8f /etc/isa/settings.ML | |
parent | 8f8e9388b582ad6d3ee6e1eea842a8d443d4ce89 (diff) |
Merge changes from Version4Branch.
Diffstat (limited to 'etc/isa/settings.ML')
-rw-r--r-- | etc/isa/settings.ML | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/etc/isa/settings.ML b/etc/isa/settings.ML deleted file mode 100644 index 3250f9ca..00000000 --- a/etc/isa/settings.ML +++ /dev/null @@ -1,21 +0,0 @@ -(* - Simple test for variable setting mechanism ML -> PG. - This kind of protocol is included in PGIP for setting config variables. - Here we can use it for executing arbitrary elisp, in fact (eek!) -*) - -fun pg_setvar var exp = writeln ("Proof General, please set the variable " ^ var ^ " to: #" ^ exp ^ "#."); - -pg_setvar "wag" "(+ 33 44)"; (* C-h v wag RET gives 77 *) - -fun pgset var = pg_setvar var "t"; -fun pgreset var = pg_setvar var "nil"; - -pgset "isa-show-types"; (* sets show-types in menu *) - -(* What might be nice is to override 'set' 'reset' fuctions to mirror - settings in PG automatically, but then we'd need to retrieve the - names of the ML values from the 'set' and 'reset' functions... *) - -(* test failure case: prints a debug message if proof-show-debug-messages<>nil *) -pg_setvar "wig" "blah 12 x12" |