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

HS fetch: 4→11/23 — POST options, Number format, route mock

Browse Source 
Parser: fetch command consumes {method:"POST"}, with {opts}, and
handles as-format both before and after options.
Mock: Number format case-insensitive, /test route has number field.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-17 23:22:56 +00:00
parent f85004c8a2
commit 673be85743
3 changed files with 28 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/hyperscript/parser.sx
View File

@@ -1270,8 +1270,19 @@
(let
((url (if (nil? url-atom) url-atom (parse-arith (parse-poss url-atom)))))
(let
((fmt (if (match-kw "as") (let ((f (tp-val))) (adv!) f) "text")))
(list (quote fetch) url fmt)))))))
((fmt-before (if (match-kw "as") (let ((f (tp-val))) (adv!) f) nil)))
(when (= (tp-type) "brace-open") (parse-expr))
(when
(match-kw "with")
(if
(= (tp-type) "brace-open")
(parse-expr)
(parse-expr)))
(let
((fmt-after (if (and (not fmt-before) (match-kw "as")) (let ((f (tp-val))) (adv!) f) nil)))
(let
((fmt (or fmt-before fmt-after "text")))
(list (quote fetch) url fmt)))))))))
(define
parse-call-args
(fn

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

@@ -1270,8 +1270,19 @@
(let
((url (if (nil? url-atom) url-atom (parse-arith (parse-poss url-atom)))))
(let
((fmt (if (match-kw "as") (let ((f (tp-val))) (adv!) f) "text")))
(list (quote fetch) url fmt)))))))
((fmt-before (if (match-kw "as") (let ((f (tp-val))) (adv!) f) nil)))
(when (= (tp-type) "brace-open") (parse-expr))
(when
(match-kw "with")
(if
(= (tp-type) "brace-open")
(parse-expr)
(parse-expr)))
(let
((fmt-after (if (and (not fmt-before) (match-kw "as")) (let ((f (tp-val))) (adv!) f) nil)))
(let
((fmt (or fmt-before fmt-after "text")))
(list (quote fetch) url fmt)))))))))
(define
parse-call-args
(fn

4
tests/hs-run-fast.js
View File

@@ -189,7 +189,7 @@ K.registerNative('load-library!',()=>false);
let _testDeadline = 0;
// Mock fetch routes
const _fetchRoutes = {
'/test': { status: 200, body: 'yay', json: '{"foo":1}', html: '<div>yay</div>' },
'/test': { status: 200, body: 'yay', json: '{"foo":1}', html: '<div>yay</div>', number: '1.2' },
'/test-json': { status: 200, body: '{"foo":1}', json: '{"foo":1}' },
'/404': { status: 404, body: 'the body' },
'/number': { status: 200, body: '1.2' },
@@ -210,7 +210,7 @@ globalThis._driveAsync=function driveAsync(r,d){d=d||0;if(d>500||!r||!r.suspende
if(fmt==='json'){try{doResume(JSON.parse(route.json||route.body||'{}'));}catch(e){doResume(null);}}
else if(fmt==='html'){const frag=new El('fragment');frag.nodeType=11;frag.innerHTML=route.html||route.body||'';frag.textContent=frag.innerHTML.replace(/<[^>]*>/g,'');doResume(frag);}
else if(fmt==='response')doResume({ok:(route.status||200)<400,status:route.status||200,url});
else if(fmt==='Number'||fmt==='number')doResume(parseFloat(route.body||'0'));
else if(fmt.toLowerCase()==='number')doResume(parseFloat(route.number||route.body||'0'));
else doResume(route.body||'');
}
else if(opName==='io-parse-text'){const resp=items&&items[1];doResume(resp&&resp._body?resp._body:typeof resp==='string'?resp:'');}