09a5b34931
This PR adjusts the experimental module system to make `private` the default visibility modifier in `module`s, introducing `public` as a new modifier instead. `public section` can be used to revert the default for an entire section, though this is more intended to ease gradual adoption of the new semantics such as in `Init` (and soon `Std`) where they should be replaced by a future decl-by-decl re-review of visibilities.
55 lines
1.3 KiB
Text
55 lines
1.3 KiB
Text
/-
|
|
Copyright (c) 2020 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Leonardo de Moura
|
|
-/
|
|
module
|
|
|
|
prelude
|
|
public import Init.Core
|
|
|
|
public section
|
|
|
|
/-!
|
|
# Notation for `while` and `repeat` loops.
|
|
-/
|
|
|
|
namespace Lean
|
|
|
|
/-! # `repeat` and `while` notation -/
|
|
|
|
inductive Loop where
|
|
| mk
|
|
|
|
@[inline]
|
|
partial def Loop.forIn {β : Type u} {m : Type u → Type v} [Monad m] (_ : Loop) (init : β) (f : Unit → β → m (ForInStep β)) : m β :=
|
|
let rec @[specialize] loop (b : β) : m β := do
|
|
match ← f () b with
|
|
| ForInStep.done b => pure b
|
|
| ForInStep.yield b => loop b
|
|
loop init
|
|
|
|
instance : ForIn m Loop Unit where
|
|
forIn := Loop.forIn
|
|
|
|
syntax "repeat " doSeq : doElem
|
|
|
|
macro_rules
|
|
| `(doElem| repeat $seq) => `(doElem| for _ in Loop.mk do $seq)
|
|
|
|
syntax "while " ident " : " termBeforeDo " do " doSeq : doElem
|
|
|
|
macro_rules
|
|
| `(doElem| while $h : $cond do $seq) => `(doElem| repeat if $h : $cond then $seq else break)
|
|
|
|
syntax "while " termBeforeDo " do " doSeq : doElem
|
|
|
|
macro_rules
|
|
| `(doElem| while $cond do $seq) => `(doElem| repeat if $cond then $seq else break)
|
|
|
|
syntax "repeat " doSeq ppDedent(ppLine) "until " term : doElem
|
|
|
|
macro_rules
|
|
| `(doElem| repeat $seq until $cond) => `(doElem| repeat do $seq:doSeq; if $cond then break)
|
|
|
|
end Lean
|