coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ocaml: phase 1 type annotations on let / (e : T) (+4 tests, 473 total)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 25s
Details

Browse Source 
let NAME [PARAMS] : T = expr and (expr : T) parse and skip the type
source. Runtime no-op since SX is dynamic. Works in inline let,
top-level let, and parenthesised expressions:

  let x : int = 5 ;; x + 1                        -> 6
  let f (x : int) : int = x + 1 in f 41           -> 42
  (5 : int)                                       -> 5
  ((1 + 2) : int) * 3                             -> 9
This commit is contained in:
giles
2026-05-08 20:58:50 +00:00
parent ce75bd6848
commit a4ef9a8ec9
3 changed files with 60 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
lib/ocaml/parser.sx
View File

@@ -422,7 +422,21 @@
(else
(let
((e (parse-expr)))
(begin (consume! "op" ")") e))))))
(begin
;; Optional type annotation `(e : T)` — skip
;; the type source before `)`.
(when (at-op? ":")
(begin
(advance-tok!)
(define skip-pty
(fn ()
(cond
((>= idx tok-len) nil)
((= (ocaml-tok-type (peek-tok)) "eof") nil)
((at-op? ")") nil)
(else (begin (advance-tok!) (skip-pty))))))
(skip-pty)))
(consume! "op" ")") e))))))
((and (= tt "op") (= tv "["))
(begin
(advance-tok!)
@@ -683,6 +697,18 @@
(when (not (= p nil))
(begin (append! ps p) (collect-params))))))
(collect-params)
;; Optional type annotation: skip `: TYPE` before `=`.
(when (at-op? ":")
(begin
(advance-tok!)
(define skip-tann
(fn ()
(cond
((>= idx tok-len) nil)
((= (ocaml-tok-type (peek-tok)) "eof") nil)
((at-op? "=") nil)
(else (begin (advance-tok!) (skip-tann))))))
(skip-tann)))
(consume! "op" "=")
(let ((rhs (parse-expr)))
(append! bindings (list nm ps rhs)))))))
@@ -1101,6 +1127,18 @@
(collect-params)))
(else nil))))
(collect-params)
;; Optional type annotation: skip `: TYPE` before `=`.
(when (at-op? ":")
(begin
(advance-tok!)
(define skip-tann
(fn ()
(cond
((>= idx tok-len) nil)
((= (ocaml-tok-type (peek-tok)) "eof") nil)
((at-op? "=") nil)
(else (begin (advance-tok!) (skip-tann))))))
(skip-tann)))
(consume! "op" "=")
(let ((expr-start (cur-pos)))
(begin