157 lines
4.3 KiB
Plaintext
157 lines
4.3 KiB
Plaintext
/-
|
||
All the command input/output structures are stored here
|
||
|
||
Note that no command other than `InteractionError` may have `error` as one of
|
||
its field names to avoid confusion with error messages generated by the REPL.
|
||
-/
|
||
import Lean.Data.Json
|
||
|
||
namespace Pantograph.Commands
|
||
|
||
|
||
/-- Main Option structure, placed here to avoid name collision -/
|
||
structure Options where
|
||
-- When false, suppress newlines in Json objects. Useful for machine-to-machine interaction.
|
||
-- This should be false` by default to avoid any surprises with parsing.
|
||
printJsonPretty: Bool := false
|
||
-- When enabled, pretty print every expression
|
||
printExprPretty: Bool := true
|
||
-- When enabled, print the raw AST of expressions
|
||
printExprAST: Bool := false
|
||
-- When enabled, the types and values of persistent variables in a proof goal
|
||
-- are not shown unless they are new to the proof step. Reduces overhead
|
||
proofVariableDelta: Bool := false
|
||
-- See `pp.auxDecls`
|
||
printAuxDecls: Bool := false
|
||
-- See `pp.implementationDetailHyps`
|
||
printImplementationDetailHyps: Bool := false
|
||
deriving Lean.ToJson
|
||
|
||
abbrev OptionsT := ReaderT Options
|
||
|
||
--- Expression Objects ---
|
||
|
||
structure BoundExpression where
|
||
binders: Array (String × String)
|
||
target: String
|
||
deriving Lean.ToJson
|
||
structure Expression where
|
||
-- Pretty printed expression
|
||
pp?: Option String := .none
|
||
-- AST structure
|
||
sexp?: Option String := .none
|
||
deriving Lean.ToJson
|
||
|
||
structure Variable where
|
||
name: String
|
||
/-- Does the name contain a dagger -/
|
||
isInaccessible?: Option Bool := .none
|
||
type?: Option Expression := .none
|
||
value?: Option Expression := .none
|
||
deriving Lean.ToJson
|
||
structure Goal where
|
||
/-- String case id -/
|
||
caseName?: Option String := .none
|
||
/-- Is the goal in conversion mode -/
|
||
isConversion: Bool := false
|
||
/-- target expression type -/
|
||
target: Expression
|
||
/-- Variables -/
|
||
vars: Array Variable := #[]
|
||
deriving Lean.ToJson
|
||
|
||
|
||
|
||
--- Individual Commands and return types ---
|
||
|
||
structure Command where
|
||
cmd: String
|
||
payload: Lean.Json
|
||
deriving Lean.FromJson
|
||
|
||
structure InteractionError where
|
||
error: String
|
||
desc: String
|
||
deriving Lean.ToJson
|
||
|
||
|
||
--- Individual command and return types ---
|
||
|
||
|
||
structure Reset where
|
||
deriving Lean.FromJson
|
||
structure Stat where
|
||
deriving Lean.FromJson
|
||
structure StatResult where
|
||
-- Number of goals states
|
||
nGoals: Nat
|
||
deriving Lean.ToJson
|
||
|
||
-- Return the type of an expression
|
||
structure ExprEcho where
|
||
expr: String
|
||
deriving Lean.FromJson
|
||
structure ExprEchoResult where
|
||
expr: Expression
|
||
type: Expression
|
||
deriving Lean.ToJson
|
||
|
||
-- Print all symbols in environment
|
||
structure LibCatalog where
|
||
deriving Lean.FromJson
|
||
structure LibCatalogResult where
|
||
symbols: Array String
|
||
deriving Lean.ToJson
|
||
-- Print the type of a symbol
|
||
structure LibInspect where
|
||
name: String
|
||
-- If true/false, show/hide the value expressions; By default definitions
|
||
-- values are shown and theorem values are hidden.
|
||
value?: Option Bool := .some false
|
||
deriving Lean.FromJson
|
||
structure LibInspectResult where
|
||
type: Expression
|
||
value?: Option Expression := .none
|
||
module?: Option String
|
||
deriving Lean.ToJson
|
||
|
||
/-- Set options; See `Options` struct above for meanings -/
|
||
structure OptionsSet where
|
||
printJsonPretty?: Option Bool
|
||
printExprPretty?: Option Bool
|
||
printExprAST?: Option Bool
|
||
proofVariableDelta?: Option Bool
|
||
printAuxDecls?: Option Bool
|
||
printImplementationDetailHyps?: Option Bool
|
||
deriving Lean.FromJson
|
||
structure OptionsSetResult where
|
||
deriving Lean.ToJson
|
||
structure OptionsPrint where
|
||
deriving Lean.FromJson
|
||
abbrev OptionsPrintResult := Options
|
||
|
||
structure ProofStart where
|
||
-- Only one of the fields below may be populated.
|
||
expr: Option String -- Proof expression
|
||
copyFrom: Option String -- Theorem name
|
||
deriving Lean.FromJson
|
||
structure ProofStartResult where
|
||
goalId: Nat := 0 -- Proof tree id
|
||
deriving Lean.ToJson
|
||
structure ProofTactic where
|
||
-- Identifiers for tree, state, and goal
|
||
goalId: Nat
|
||
tactic: String
|
||
deriving Lean.FromJson
|
||
structure ProofTacticResult where
|
||
-- Existence of this field shows success
|
||
goals?: Option (Array Goal) := .none
|
||
-- Next proof state id, if successful
|
||
goalIds?: Option (Array Nat) := .none
|
||
-- Existence of this field shows failure
|
||
tacticErrors?: Option (Array String) := .none
|
||
deriving Lean.ToJson
|
||
|
||
|
||
end Pantograph.Commands
|