|
|
|
|
@ -25,53 +25,6 @@ open Lsp
|
|
|
|
|
open JsonRpc
|
|
|
|
|
open IO
|
|
|
|
|
|
|
|
|
|
def getGame (game : Name): GameServerM Json := do
|
|
|
|
|
let some game ← getGame? game
|
|
|
|
|
| throwServerError "Game not found"
|
|
|
|
|
let gameJson : Json := toJson game
|
|
|
|
|
-- Add world sizes to Json object
|
|
|
|
|
let worldSize := game.worlds.nodes.toList.map (fun (n, w) => (n.toString, w.levels.size))
|
|
|
|
|
let gameJson := gameJson.mergeObj (Json.mkObj [("worldSize", Json.mkObj worldSize)])
|
|
|
|
|
return gameJson
|
|
|
|
|
|
|
|
|
|
/--
|
|
|
|
|
Fields:
|
|
|
|
|
- description: Lemma in mathematical language.
|
|
|
|
|
- descriptionGoal: Lemma printed as Lean-Code.
|
|
|
|
|
-/
|
|
|
|
|
structure LevelInfo where
|
|
|
|
|
index : Nat
|
|
|
|
|
title : String
|
|
|
|
|
tactics : Array InventoryTile
|
|
|
|
|
lemmas : Array InventoryTile
|
|
|
|
|
definitions : Array InventoryTile
|
|
|
|
|
introduction : String
|
|
|
|
|
conclusion : String
|
|
|
|
|
descrText : Option String := none
|
|
|
|
|
descrFormat : String := ""
|
|
|
|
|
lemmaTab : Option String
|
|
|
|
|
displayName : Option String
|
|
|
|
|
statementName : Option String
|
|
|
|
|
template : Option String
|
|
|
|
|
deriving ToJson, FromJson
|
|
|
|
|
|
|
|
|
|
structure InventoryOverview where
|
|
|
|
|
tactics : Array InventoryTile
|
|
|
|
|
lemmas : Array InventoryTile
|
|
|
|
|
definitions : Array InventoryTile
|
|
|
|
|
lemmaTab : Option String
|
|
|
|
|
deriving ToJson, FromJson
|
|
|
|
|
|
|
|
|
|
structure LoadLevelParams where
|
|
|
|
|
world : Name
|
|
|
|
|
level : Nat
|
|
|
|
|
deriving ToJson, FromJson
|
|
|
|
|
|
|
|
|
|
-- structure LoadTemplateParams where
|
|
|
|
|
-- world : Name
|
|
|
|
|
-- level : Nat
|
|
|
|
|
-- deriving ToJson, FromJson
|
|
|
|
|
|
|
|
|
|
structure DidOpenLevelParams where
|
|
|
|
|
uri : String
|
|
|
|
|
gameDir : String
|
|
|
|
|
@ -91,11 +44,6 @@ structure DidOpenLevelParams where
|
|
|
|
|
statementName : Name
|
|
|
|
|
deriving ToJson, FromJson
|
|
|
|
|
|
|
|
|
|
structure LoadDocParams where
|
|
|
|
|
name : Name
|
|
|
|
|
type : InventoryType
|
|
|
|
|
deriving ToJson, FromJson
|
|
|
|
|
|
|
|
|
|
structure SetInventoryParams where
|
|
|
|
|
inventory : Array String
|
|
|
|
|
difficulty : Nat
|
|
|
|
|
@ -131,86 +79,10 @@ def handleDidOpenLevel (params : Json) : GameServerM Unit := do
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
partial def handleServerEvent (ev : ServerEvent) : GameServerM Bool := do
|
|
|
|
|
match ev with
|
|
|
|
|
| ServerEvent.clientMsg msg =>
|
|
|
|
|
match msg with
|
|
|
|
|
| Message.request id "info" _ =>
|
|
|
|
|
let s ← get
|
|
|
|
|
let c ← read
|
|
|
|
|
c.hOut.writeLspResponse ⟨id, (← getGame s.game)⟩
|
|
|
|
|
return true
|
|
|
|
|
| Message.request id "loadLevel" params =>
|
|
|
|
|
let p ← parseParams LoadLevelParams (toJson params)
|
|
|
|
|
let s ← get
|
|
|
|
|
let c ← read
|
|
|
|
|
let some lvl ← getLevel? {game := s.game, world := p.world, level := p.level}
|
|
|
|
|
| do
|
|
|
|
|
c.hOut.writeLspResponseError ⟨id, .invalidParams, s!"Level not found: world {p.world}, level {p.level}", none⟩
|
|
|
|
|
return true
|
|
|
|
|
|
|
|
|
|
let env ← getEnv
|
|
|
|
|
|
|
|
|
|
let levelInfo : LevelInfo :=
|
|
|
|
|
{ index := lvl.index,
|
|
|
|
|
title := lvl.title,
|
|
|
|
|
tactics := lvl.tactics.tiles,
|
|
|
|
|
lemmas := lvl.lemmas.tiles,
|
|
|
|
|
definitions := lvl.definitions.tiles,
|
|
|
|
|
descrText := lvl.descrText,
|
|
|
|
|
descrFormat := lvl.descrFormat --toExpr <| format (lvl.goal.raw) --toString <| Syntax.formatStx (lvl.goal.raw) --Syntax.formatStx (lvl.goal.raw) , -- TODO
|
|
|
|
|
introduction := lvl.introduction
|
|
|
|
|
conclusion := lvl.conclusion
|
|
|
|
|
lemmaTab := match lvl.lemmaTab with
|
|
|
|
|
| some tab => tab
|
|
|
|
|
| none =>
|
|
|
|
|
-- Try to set the lemma tab to the category of the first added lemma
|
|
|
|
|
match lvl.lemmas.tiles.find? (·.new) with
|
|
|
|
|
| some tile => tile.category
|
|
|
|
|
| none => none
|
|
|
|
|
statementName := lvl.statementName.toString
|
|
|
|
|
displayName := match lvl.statementName with
|
|
|
|
|
| .anonymous => none
|
|
|
|
|
| name => match (inventoryExt.getState env).find?
|
|
|
|
|
(fun x => x.name == name && x.type == .Lemma) with
|
|
|
|
|
| some n => n.displayName
|
|
|
|
|
| none => name.toString
|
|
|
|
|
-- Note: we could call `.find!` because we check in `Statement` that the
|
|
|
|
|
-- lemma doc must exist.
|
|
|
|
|
template := lvl.template
|
|
|
|
|
}
|
|
|
|
|
c.hOut.writeLspResponse ⟨id, ToJson.toJson levelInfo⟩
|
|
|
|
|
return true
|
|
|
|
|
-- | Message.request id "loadTemplate" params =>
|
|
|
|
|
-- let p ← parseParams LoadTemplateParams (toJson params)
|
|
|
|
|
-- let s ← get
|
|
|
|
|
-- let c ← read
|
|
|
|
|
|
|
|
|
|
-- let some game ← getGame? s.game
|
|
|
|
|
-- | throwServerError "Game not found"
|
|
|
|
|
-- let some world := game.worlds.nodes.find? p.world
|
|
|
|
|
-- | throwServerError "World not found"
|
|
|
|
|
|
|
|
|
|
-- let mut templates : Array <| Option String := #[]
|
|
|
|
|
-- for (_, level) in world.levels.toArray do
|
|
|
|
|
-- templates := templates.push level.template
|
|
|
|
|
-- c.hOut.writeLspResponse ⟨id, ToJson.toJson templates⟩
|
|
|
|
|
-- return true
|
|
|
|
|
| Message.request id "loadDoc" params =>
|
|
|
|
|
let p ← parseParams LoadDocParams (toJson params)
|
|
|
|
|
let c ← read
|
|
|
|
|
let some doc ← getInventoryItem? p.name p.type
|
|
|
|
|
| do
|
|
|
|
|
c.hOut.writeLspResponseError ⟨id, .invalidParams,
|
|
|
|
|
s!"Documentation not found: {p.name}", none⟩
|
|
|
|
|
return true
|
|
|
|
|
-- TODO: not necessary at all?
|
|
|
|
|
-- Here we only need to convert the fields that were not `String` in the `InventoryDocEntry`
|
|
|
|
|
-- let doc : InventoryItem := { doc with
|
|
|
|
|
-- name := doc.name.toString }
|
|
|
|
|
c.hOut.writeLspResponse ⟨id, ToJson.toJson doc⟩
|
|
|
|
|
return true
|
|
|
|
|
| Message.notification "$/game/setInventory" params =>
|
|
|
|
|
let p := (← parseParams SetInventoryParams (toJson params))
|
|
|
|
|
let s ← get
|
|
|
|
|
@ -221,30 +93,6 @@ partial def handleServerEvent (ev : ServerEvent) : GameServerM Bool := do
|
|
|
|
|
fw.stdin.writeLspMessage msg
|
|
|
|
|
|
|
|
|
|
return true
|
|
|
|
|
| Message.request id "loadInventoryOverview" _ =>
|
|
|
|
|
let s ← get
|
|
|
|
|
let some game ← getGame? s.game
|
|
|
|
|
| return false
|
|
|
|
|
-- All Levels have the same tiles, so we just load them from level 1 of an arbitrary world
|
|
|
|
|
-- and reset `new`, `disabled` and `unlocked`.
|
|
|
|
|
-- Note: as we allow worlds without any levels (for developing), we might need
|
|
|
|
|
-- to try until we find the first world with levels.
|
|
|
|
|
for ⟨worldId, _⟩ in game.worlds.nodes.toList do
|
|
|
|
|
let some lvl ← getLevel? {game := s.game, world := worldId, level := 1}
|
|
|
|
|
| do continue
|
|
|
|
|
let inventory : InventoryOverview := {
|
|
|
|
|
tactics := lvl.tactics.tiles.map
|
|
|
|
|
({ · with locked := true, disabled := false, new := false }),
|
|
|
|
|
lemmas := lvl.lemmas.tiles.map
|
|
|
|
|
({ · with locked := true, disabled := false, new := false }),
|
|
|
|
|
definitions := lvl.definitions.tiles.map
|
|
|
|
|
({ · with locked := true, disabled := false, new := false }),
|
|
|
|
|
lemmaTab := none
|
|
|
|
|
}
|
|
|
|
|
let c ← read
|
|
|
|
|
c.hOut.writeLspResponse ⟨id, ToJson.toJson inventory⟩
|
|
|
|
|
return true
|
|
|
|
|
return false
|
|
|
|
|
| _ => return false
|
|
|
|
|
| _ => return false
|
|
|
|
|
|
|
|
|
|
|
Alexander Bentkamp
3 years ago