Sail doqblok, with full +-%*; escapes

This commit is contained in:
Anton Dyudin 2014-06-19 16:11:17 -07:00 committed by Anton Dyudin
parent 766afec656
commit af273d894c
3 changed files with 74 additions and 72 deletions

View File

@ -2572,7 +2572,7 @@
(ifix [soq soq] (boss 256 (more gon qit)))
==
%- inde %+ ifix
[soqs ;~(plug (just `@`10) soqs)]
[;~(plug soqs (just `@`10)) ;~(plug (just `@`10) soqs)]
(boss 256 (star qat))
==
::
@ -8253,7 +8253,7 @@
==
::
++ sail :: template language
|= tol=?
|= tol=? =| lin=?
|%
++ ape :: product twig
%- cook
@ -8402,7 +8402,10 @@
::
++ nup :: wide quote
%+ cook |=(a=(list tuna) a)
(ifix [doq doq] (cook rab puv))
;~ pose
;~(less (jest '"""') (ifix [doq doq] (cook rab puv)))
(inde (ifix [(jest '"""\0a') (jest '\0a"""')] (cook rab puv(lin |))))
==
::
++ pab (ifix [kel ker] ;~(plug hig luf)) :: bracketed element
++ ped :: wide flow
@ -8425,13 +8428,14 @@
%+ cook |=(a=(list beet) a)
%- star
;~ pose
;~(pfix bas ;~(pose (mask "-+*%;[\\\"") bix:ab))
;~(pfix bas ;~(pose (mask "-+*%;\{") bas doq bix:ab))
;~(pfix hep (stag %a sump))
;~(pfix lus (stag %b sump))
;~(pfix tar (stag %c sump))
;~(pfix cen (stag %d sump))
;~(pfix sem (stag %e pab(tol |)))
;~(less doq kel ?:(tol fail doq) prn)
;~(less bas kel ?:(tol fail doq) prn)
?:(lin fail ;~(less (jest '\0a"""') (just '\0a')))
(stag %a sump)
==
::
@ -8652,7 +8656,7 @@
(stag ~ sump)
== ==
%- inde %+ ifix
[(jest '"""') (jest '\0a"""')]
[(jest '"""\0a') (jest '\0a"""')]
%- star ;~ pose
;~(pfix bas ;~(pose bas kel bix:ab))
;~(less bas kel prn)

View File

@ -2217,18 +2217,15 @@
r=httq ::
== ::
++ kite ,[p=care q=case r=ship s=desk t=spur] :: parsed global name
++ json :: json top level
++ json :: json value
$| ~ :: null
$% [%a p=(list jval)] :: array
[%o p=(map ,@t jval)] :: object
[%b p=?] :: boolean
[%n p=@ta] :: number
[%s p=@ta] :: string
== ::
++ jval :: json value
$| ~ :: null
$? json ::
$% [%b p=?] :: boolean
[%n p=@ta] :: number
[%s p=@ta] :: string
== ::
== ::
++ jval json :: compatibility XX
++ lamb :: short path
$% [& p=@tas] :: auto
[| p=twig] :: manual

View File

@ -24,63 +24,64 @@
;body
;p: Word: {<p.vat>}.
;button(onclick "goof()"): Goof!
;script
; var c = 0;
; var d = 1;
; var x = 0;
;
; function pickup() {
; xhr = new XMLHttpRequest();
;
; console.log("WTF???");
; xhr.open("GET", "/zod/goe/foobug/"+port+"/frog/"+d);
; xhr.onload = function() {
; console.log("pickup");
; console.log(this)
; change(JSON.parse(this.responseText))
; update();
; d++;
; pickup();
; }
; xhr.send();
; }
;
; function dude() {
; xhr = new XMLHttpRequest();
;
; xhr.open("POST", "/zod/pos/foobug/"+port+"/frog/goof");
; xhr.setRequestHeader("content-type", "text/json")
; xhr.onload = function() {
; console.log("dude");
; console.log(this)
; change(JSON.parse(this.responseText))
; update();
; pickup();
; }
; xhr.send("{\"a\":1}")
; }
; dude();
;
; function change(jon) {
; x = jon.x;
; }
;
; function update() {
; document.getElementsByTagName("p")[0].innerHTML = "WORD: " + x;
; }
;
; function goof() {
; xhr = new XMLHttpRequest();
; xhr.onload = function() {
; console.log("hi");
; console.log(arguments)
; c++
; }
; xhr.open("POST",
; "/zod/pom/foobug/"+port+"/"+c)
; xhr.setRequestHeader("content-type", "text/json")
; xhr.send("{\"a\":1}")
; }
;script:'''
var c = 0;
var d = 1;
var x = 0;
function pickup() {
xhr = new XMLHttpRequest();
console.log("WTF???");
xhr.open("GET", "/zod/goe/foobug/"+port+"/frog/"+d);
xhr.onload = function() {
console.log("pickup");
console.log(this)
change(JSON.parse(this.responseText))
update();
d++;
pickup();
}
xhr.send();
}
function dude() {
xhr = new XMLHttpRequest();
xhr.open("POST", "/zod/pos/foobug/"+port+"/frog/goof");
xhr.setRequestHeader("content-type", "text/json")
xhr.onload = function() {
console.log("dude");
console.log(this)
change(JSON.parse(this.responseText))
update();
pickup();
}
xhr.send("{\"a\":1}")
}
dude();
function change(jon) {
x = jon.x;
}
function update() {
document.getElementsByTagName("p")[0].innerHTML = "WORD: " + x;
}
function goof() {
xhr = new XMLHttpRequest();
xhr.onload = function() {
console.log("hi");
console.log(arguments)
c++
}
xhr.open("POST",
"/zod/pom/foobug/"+port+"/"+c)
xhr.setRequestHeader("content-type", "text/json")
xhr.send("{\"a\":1}")
}
'''
==
==
==