ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-04 02:49:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

Sail doqblok, with full +-%*; escapes

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
arvo/hoon.hoon
View File

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

15
arvo/zuse.hoon
View File

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

115
main/app/foobug/core.hoon
View File

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