Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/JSON/Hoon/json.hoon
+++ b/Task/JSON/Hoon/json.hoon
@ -0,0 +1,15 @@
+:-  %say
+|=  [^ [in=@tas ~] ~]
+:-  %noun
+  =+  obj=(need (poja in))                              :: try parse to json
+  =+  typ=$:(name=@tas age=@ud)                         :: datastructure
+  =+  spec=(ot name/so age/ni ~):jo                     :: parsing spec
+  ?.  ?=([%o *] obj)                                    :: isnt an object?
+    ~
+  =+  ^=  o
+    %.  %.  (spec obj)                                  :: parse with spec
+      need                                              :: panic if failed
+    ,typ                                                :: cast to type
+  =.  age.o  +(age.o)                                   :: increment its age...
+  %:  crip  %:  pojo                                    :: pretty-print result
+    (jobe [%name s/name.o] [%age n/(crip <age.o>)] ~)   :: convert back to json