twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Pipeline is now >; add helpful impl comments

Browse Source
This commit is contained in:
Scott Richmond 2022-04-05 15:54:12 -04:00
parent 8cd905b8eb
commit 174eb2d6a5
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/ludus/scanner.clj
View File

@ -12,21 +12,20 @@
"cond" ::token/cond "cond" ::token/cond
"data" ::token/data "data" ::token/data
"do" ::token/do "do" ::token/do
"else" ::token/else "else" ::token/else ;; impl
"false" ::token/false "false" ::token/false ;; impl
"fn" ::token/fn "fn" ::token/fn ;; impl
"if" ::token/if "if" ::token/if ;; impl
"import" ::token/import "import" ::token/import
"let" ::token/let "let" ::token/let ;; impl
"match" ::token/match "match" ::token/match ;; impl
"mut" ::token/mut "mut" ::token/mut
"nil" ::token/nil "nil" ::token/nil ;; impl
;; "panic!" ::token/panic
"ref" ::token/ref "ref" ::token/ref
"then" ::token/then "then" ::token/then ;; impl
"true" ::token/true "true" ::token/true ;; impl
"var" ::token/var "var" ::token/var
"with" ::token/with "with" ::token/with ;; impl
;; below here, probable ;; below here, probable
"defer" ::token/defer "defer" ::token/defer
"gen" ::token/gen "gen" ::token/gen
@ -227,6 +226,7 @@
\newline (add-token (update scanner ::line inc) ::token/newline) \newline (add-token (update scanner ::line inc) ::token/newline)
\\ (add-token scanner ::token/backslash) \\ (add-token scanner ::token/backslash)
\= (add-token scanner ::token/equals) \= (add-token scanner ::token/equals)
\> (add-token scanner ::token/pipeline)
;; two-character tokens ;; two-character tokens
;; -> ;; ->
@ -243,9 +243,9 @@
;; |> ;; |>
;; Consider => , with =>> for bind ;; Consider => , with =>> for bind
\| (if (= next \>) ; \| (if (= next \>)
(add-token (advance scanner) ::token/pipeline) ; (add-token (advance scanner) ::token/pipeline)
(add-error scanner (str "Expected |>. Got " char next))) ; (add-error scanner (str "Expected |>. Got " char next)))
;; possible additional operator: bind/result ;; possible additional operator: bind/result
;; possible additional operator: bind/some ;; possible additional operator: bind/some