fe7b96d8a0
Fixes #3270 by moving the deprecation check from `Lean.Elab.Term.mkConsts` to `Lean.Elab.Term.mkConst`, so `Lean.Elab.Term.mkBaseProjections`, `.elabAppLValsAux`, `.elabAppFn`, and `.elabForIn` also hit the check. Not all of these really need to hit the check, so I'll run `!bench` to see if it's a problem.
114 lines
3.2 KiB
Text
114 lines
3.2 KiB
Text
/-
|
||
Copyright (c) 2020 Microsoft Corporation. All rights reserved.
|
||
Released under Apache 2.0 license as described in the file LICENSE.
|
||
Authors: Sebastian Ullrich, Andrew Kent, Leonardo de Moura
|
||
-/
|
||
prelude
|
||
import Init.Data.Array.Subarray
|
||
import Init.Data.Range
|
||
|
||
/-!
|
||
Remark: we considered using the following alternative design
|
||
```
|
||
structure Stream (α : Type u) where
|
||
stream : Type u
|
||
next? : stream → Option (α × stream)
|
||
|
||
class ToStream (collection : Type u) (value : outParam (Type v)) where
|
||
toStream : collection → Stream value
|
||
```
|
||
where `Stream` is not a class, and its state is encapsulated.
|
||
The key problem is that the type `Stream α` "lives" in a universe higher than `α`.
|
||
This is a problem because we want to use `Stream`s in monadic code.
|
||
-/
|
||
|
||
/--
|
||
Streams are used to implement parallel `for` statements.
|
||
Example:
|
||
```
|
||
for x in xs, y in ys do
|
||
...
|
||
```
|
||
is expanded into
|
||
```
|
||
let mut s := toStream ys
|
||
for x in xs do
|
||
match Stream.next? s with
|
||
| none => break
|
||
| some (y, s') =>
|
||
s := s'
|
||
...
|
||
```
|
||
-/
|
||
class ToStream (collection : Type u) (stream : outParam (Type u)) : Type u where
|
||
toStream : collection → stream
|
||
|
||
export ToStream (toStream)
|
||
|
||
class Stream (stream : Type u) (value : outParam (Type v)) : Type (max u v) where
|
||
next? : stream → Option (value × stream)
|
||
|
||
protected partial def Stream.forIn [Stream ρ α] [Monad m] (s : ρ) (b : β) (f : α → β → m (ForInStep β)) : m β := do
|
||
let _ : Inhabited (m β) := ⟨pure b⟩
|
||
let rec visit (s : ρ) (b : β) : m β := do
|
||
match Stream.next? s with
|
||
| some (a, s) => match (← f a b) with
|
||
| ForInStep.done b => return b
|
||
| ForInStep.yield b => visit s b
|
||
| none => return b
|
||
visit s b
|
||
|
||
instance (priority := low) [Stream ρ α] : ForIn m ρ α where
|
||
forIn := Stream.forIn
|
||
|
||
instance : ToStream (List α) (List α) where
|
||
toStream c := c
|
||
|
||
instance : ToStream (Array α) (Subarray α) where
|
||
toStream a := a[:a.size]
|
||
|
||
instance : ToStream (Subarray α) (Subarray α) where
|
||
toStream a := a
|
||
|
||
instance : ToStream String Substring where
|
||
toStream s := s.toSubstring
|
||
|
||
instance : ToStream Std.Range Std.Range where
|
||
toStream r := r
|
||
|
||
instance [Stream ρ α] [Stream γ β] : Stream (ρ × γ) (α × β) where
|
||
next?
|
||
| (s₁, s₂) =>
|
||
match Stream.next? s₁ with
|
||
| none => none
|
||
| some (a, s₁) => match Stream.next? s₂ with
|
||
| none => none
|
||
| some (b, s₂) => some ((a, b), (s₁, s₂))
|
||
|
||
instance : Stream (List α) α where
|
||
next?
|
||
| [] => none
|
||
| a::as => some (a, as)
|
||
|
||
instance : Stream (Subarray α) α where
|
||
next? s :=
|
||
if h : s.start < s.stop then
|
||
have : s.start + 1 ≤ s.stop := Nat.succ_le_of_lt h
|
||
some (s.array.get ⟨s.start, Nat.lt_of_lt_of_le h s.stop_le_array_size⟩,
|
||
{ s with start := s.start + 1, start_le_stop := this })
|
||
else
|
||
none
|
||
|
||
instance : Stream Std.Range Nat where
|
||
next? r :=
|
||
if r.start < r.stop then
|
||
some (r.start, { r with start := r.start + r.step })
|
||
else
|
||
none
|
||
|
||
instance : Stream Substring Char where
|
||
next? s :=
|
||
if s.startPos < s.stopPos then
|
||
some (s.str.get s.startPos, { s with startPos := s.str.next s.startPos })
|
||
else
|
||
none
|