platform dependant tools options

2aa24d48 · Diederik van Arkel · adc2ac41 · 2aa24d48 · 2aa24d48
Commit 2aa24d48 authored Mar 17, 2003 by Diederik van Arkel
--- a/Mac/tools.dcl
+++ b/Mac/tools.dcl
@@ -12,3 +12,7 @@ shoheapfun :: !*(PSt General) -> *PSt General

 provefun :: !*(PSt General) -> *PSt General
 // launch theorem prover for active project
+
+:: ToolInfo
+toolData :: !.Prefs !*(PSt General) -> *(!.ToolInfo,!*PSt General)
+toolOptions :: !.ToolInfo -> NilLS .a *(PSt General)
--- a/Mac/tools.icl
+++ b/Mac/tools.icl
@@ -66,3 +66,12 @@ provefun ps
 		= openNotice (Notice ["Unable to launch " +++  cps +++ "."] (NoticeButton "OK" id) []) ps
 	= ps

+
+:: ToolInfo = ToolInfo
+
+toolData :: !.Prefs !*(PSt General) -> *(!.ToolInfo,!*PSt General)
+toolData prefs ps
+	= (ToolInfo,ps)
+toolOptions :: !.ToolInfo -> NilLS .a *(PSt General)
+toolOptions ti
+	= NilLS