ddfeca1b1b
This PR addresses a missing check in the module system where private names that remain in the public environment map for technical reasons (e.g. inductive constructors generated by the kernel and relied on by the code generator) accidentally were accessible in the public scope.
45 lines
1.1 KiB
Text
45 lines
1.1 KiB
Text
/-
|
|
Copyright (c) 2021 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Author: Dany Fabian
|
|
-/
|
|
module
|
|
|
|
prelude
|
|
public import Init.Data.ToString.Macro
|
|
public import Std.Data.TreeMap.Basic
|
|
|
|
public section
|
|
|
|
namespace Lean
|
|
namespace Xml
|
|
|
|
@[expose] def Attributes := Std.TreeMap String String
|
|
instance : ToString Attributes := ⟨λ as => as.foldl (λ s n v => s ++ s!" {n}=\"{v}\"") ""⟩
|
|
|
|
mutual
|
|
inductive Element
|
|
| Element
|
|
(name : String)
|
|
(attributes : Attributes)
|
|
(content : Array Content)
|
|
|
|
inductive Content
|
|
| Element (element : Element)
|
|
| Comment (comment : String)
|
|
| Character (content : String)
|
|
deriving Inhabited
|
|
end
|
|
|
|
mutual
|
|
private partial def eToString : Element → String
|
|
| Element.Element n a c => s!"<{n}{a}>{c.map cToString |>.foldl (· ++ ·) ""}</{n}>"
|
|
|
|
private partial def cToString : Content → String
|
|
| Content.Element e => eToString e
|
|
| Content.Comment c => s!"<!--{c}-->"
|
|
| Content.Character c => c
|
|
|
|
end
|
|
instance : ToString Element := ⟨private_decl% eToString⟩
|
|
instance : ToString Content := ⟨private_decl% cToString⟩
|