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

HS parser: atoms for you/yourself, distinct your-possessive starting at you

Browse Source 
- parse-atom: 'you' and 'yourself' keywords resolve to (ref <name>) so
  they look up the let-binding the tell-command installs.
- 'your <prop>' no longer aliases 'my <prop>' — it's the possessive over
  the 'you' binding, mirroring 'its' over 'it'.

Unblocks 'you symbol represents the thing being told' and 'can take a class
and swap it with another via with' (via you/your in tell handlers). Net:
tell 6→7 (was 6/10).
This commit is contained in:
giles
2026-04-23 17:44:16 +00:00
parent 1cd81e5369
commit 14b6586e41
2 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/hyperscript/parser.sx
View File

@@ -167,10 +167,14 @@
(do (do
(adv!) (adv!)
(list (make-symbol ".") (list (quote event)) "detail"))) (list (make-symbol ".") (list (quote event)) "detail")))
((and (= typ "keyword") (or (= val "my") (= val "your"))) ((and (= typ "keyword") (= val "my"))
(do (adv!) (parse-poss-tail (list (quote me))))) (do (adv!) (parse-poss-tail (list (quote me)))))
((and (= typ "keyword") (= val "your"))
(do (adv!) (parse-poss-tail (list (quote ref) "you"))))
((and (= typ "keyword") (= val "its")) ((and (= typ "keyword") (= val "its"))
(do (adv!) (parse-poss-tail (list (quote it))))) (do (adv!) (parse-poss-tail (list (quote it)))))
((and (= typ "keyword") (or (= val "you") (= val "yourself")))
(do (adv!) (parse-prop-chain (list (quote ref) val))))
((and (= typ "keyword") (= val "closest")) ((and (= typ "keyword") (= val "closest"))
(do (adv!) (parse-trav (quote closest)))) (do (adv!) (parse-trav (quote closest))))
((and (= typ "keyword") (= val "next")) ((and (= typ "keyword") (= val "next"))

6
shared/static/wasm/sx/hs-parser.sx
View File

@@ -167,10 +167,14 @@
(do (do
(adv!) (adv!)
(list (make-symbol ".") (list (quote event)) "detail"))) (list (make-symbol ".") (list (quote event)) "detail")))
((and (= typ "keyword") (or (= val "my") (= val "your"))) ((and (= typ "keyword") (= val "my"))
(do (adv!) (parse-poss-tail (list (quote me))))) (do (adv!) (parse-poss-tail (list (quote me)))))
((and (= typ "keyword") (= val "your"))
(do (adv!) (parse-poss-tail (list (quote ref) "you"))))
((and (= typ "keyword") (= val "its")) ((and (= typ "keyword") (= val "its"))
(do (adv!) (parse-poss-tail (list (quote it))))) (do (adv!) (parse-poss-tail (list (quote it)))))
((and (= typ "keyword") (or (= val "you") (= val "yourself")))
(do (adv!) (parse-prop-chain (list (quote ref) val))))
((and (= typ "keyword") (= val "closest")) ((and (= typ "keyword") (= val "closest"))
(do (adv!) (parse-trav (quote closest)))) (do (adv!) (parse-trav (quote closest))))
((and (= typ "keyword") (= val "next")) ((and (= typ "keyword") (= val "next"))