gistfile1.txt

|=  [=flag switch-pose=flag]
|^
?.  switch-pose
?:  flag
(rush '(weld "g" "m")\0a' hoonscript)
(rush '=/asd  (weld "g" "m")\0a' hoonscript)
?:  flag
(rush '(weld "g" "m")\0a' hoonscript-switched)
(rush '=/asd  (weld "g" "m")\0a' hoonscript-switched)
++  mod
  (cook crip (ifix [zap gah] (star prn)))
++  fake-arm-name
  (cook crip (ifix [(jest '++') gap] (star ;~(less gap prn))))
++  fake-wing-name
  (cook crip (ifix [(jest '=/') gap] (star ;~(less gap prn))))
++  hoonscript
  ;~  pose
  expression-with-face
  faceless-expression
  ==
++  hoonscript-switched
  ;~  pose
  faceless-expression
  expression-with-face
  ==
++  faceless-expression
  %+  cook
  |=  i=(list [term tape])
  %-  crip
  %-  zing
  %+  turn  i
  |=  [=term xpr=tape]
  ?.  ?=(%hoon term)  "{xpr};"
  !<(tape ((swat |.(!>([..zuse])) (ream (crip xpr)))))
  %-  star
  ;~  pose
  (stag %js (ifix [tic ;~(plug tic gah)] (star ;~(less ;~(plug tic gah) prn))))
  (stag %hoon (cook zing ;~(plug (cook trip pal) arm (cook trip par) (cold ~ gah))))
  ==
++  expression-with-face
  %+  cook
  |=  (list [term @t])
  %-  crip
  %-  zing
  %+  turn  +<
    |=  [term @t]
    "var {(scow %tas +<-)} = {(scow %tas +<+)};"
  %-  star
  ;~(plug fake-wing-name faceless-expression)
++  expression-with-face-var
  %+  cook
  |=  (list [term @t])
  ^-  (list [term tape])
  %+  turn  +<
    |=  [term @t]
    :-  +<-
    "var {(scow %tas +<-)} = {(scow %tas +<+)};"
  %-  star
  ;~(plug fake-wing-name faceless-expression)
++  arm
  (star ;~(less par prn))
++  sample
  %+  cook
  |=  i=(list tape)
  `tape`(zing (join " " i))
  %-  star
  ;~(sfix (star ;~(less ace par prn)) ;~(pose ace par))
++  fake-arms
  %-  star
  ;~(plug fake-arm-name hoonscript)
++  fake-wings
  %-  star
  ;~(plug fake-wing-name hoonscript)
++  sail-body
  ;~  pfix
    ;~  plug
    mod  fake-arms
    ==
    ;~  sfix
    ;~  pose
    apex:(sail &):vast
    apex:(sail |):vast
    ==
    (star gah)
    ==
  ==
--