Steve Dunham
8fe9613c02
- allow multiple names in infix, typesig, and dcon defs - align fixities with Idris
48 lines
1.3 KiB
Plaintext
48 lines
1.3 KiB
Plaintext
module Oper
|
|
|
|
-- These are hard-coded at the moment
|
|
-- For now they must be of the form _op_, we'll circle back
|
|
-- with a different parser, but that works today.
|
|
|
|
-- this will be parsed as a top level decl, collected in TopContext, and
|
|
-- injected into the Parser. It'll need to be passed around or available
|
|
-- for read in the monad.
|
|
|
|
-- long term, I might want TopContext in the parser, and parse a top-level
|
|
-- declaration at a time (for incremental updates), but much longer term.
|
|
|
|
infixl 8 _+_ _-_
|
|
infixl 9 _*_ _/_
|
|
|
|
ptype Int
|
|
ptype String
|
|
ptype JVoid
|
|
|
|
-- If we had a different quote here, we could tell vscode it's javascript.
|
|
-- or actually just switch modes inside pfunc
|
|
pfunc log : String -> JVoid := "(x) => console.log(x)"
|
|
pfunc plus : Int -> Int -> Int := "(x,y) => x + y"
|
|
pfunc _*_ : Int -> Int -> Int := "(x,y) => x * y"
|
|
|
|
-- We now have to clean JS identifiers
|
|
_+_ : Int -> Int -> Int
|
|
_+_ x y = plus x y
|
|
|
|
test : Int -> Int
|
|
test x = 42 + x * 3 + 2
|
|
|
|
infixr 0 _,_
|
|
data Pair : U -> U -> U where
|
|
_,_ : {A B : U} -> A -> B -> Pair A B
|
|
|
|
blah : Int -> Int -> Int -> Pair Int (Pair Int Int)
|
|
blah x y z = (x , y, z)
|
|
|
|
curryPlus : Pair Int Int -> Int
|
|
curryPlus (a, b) = a + b
|
|
|
|
-- case is different path, so separate test
|
|
caseCurry : Pair Int Int -> Int
|
|
caseCurry x = case x of
|
|
(a, b) => a + b
|