st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-05 22:38:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

add let and in as keywords; x=y can be used in expressions as sygar for compare(x,y) == 0

Browse source
This commit is contained in:
danyaberezun 2024-03-03 14:13:31 +02:00 • committed by Roman Venediktov
parent 7c3687b65b
commit 16d9f06afb
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Language.ml
View file

@ -604,6 +604,7 @@ module Expr =
match s with
| ":" -> Sexp ("cons", [x; y])
| ":=" -> Assign (x, y)
| "=" -> Binop ("==", Call (Var ("compare"), [x; y]), Const (0))
| _ -> Binop (s, x, y)
in
match x with
@ -921,7 +922,7 @@ module Infix =
in List.rev exports
let is_predefined op =
List.exists (fun x -> op = x) [":"; "!!"; "&&"; "=="; "!="; "<="; "<"; ">="; ">"; "+"; "-"; "*" ; "/"; "%"; ":="]
List.exists (fun x -> op = x) [":"; "!!"; "&&"; "="; "=="; "!="; "<="; "<"; ">="; ">"; "+"; "-"; "*" ; "/"; "%"; ":="]
(*
List.iter (fun op ->
@ -947,7 +948,7 @@ module Infix =
`Righta, [":"];
`Lefta , ["!!"];
`Lefta , ["&&"];
`Nona , ["=="; "!="; "<="; "<"; ">="; ">"];
`Nona , ["=";"=="; "!="; "<="; "<"; ">="; ">"];
`Lefta , ["+" ; "-"];
`Lefta , ["*" ; "/"; "%"];
|]
@ -1272,6 +1273,7 @@ let run_parser cmd =
let kws = [
"skip";
"if"; "then"; "else"; "elif"; "fi";
"let"; "in";
"while"; "do"; "od";
"for";
"fun"; "var"; "public"; "external"; "import";