git.iko.soy/urbit.org
on 492ae2f help sign in
urbit.org/docs/programming/reference/zuse/gate/fuel.md
77 lines 2.1 kB history raw
1### `++fuel`
3Parse fcgi
5Retrieieves the %eyre FCGI, producing a [`++epic`](). Used primarily in
6[`/hook`]() files. See the [`%eyre`]() doc for more detail.
8Accepts
9-------
11`bem` is a [`++beam`]().
13`but` is a [`++path`]().
15Produces
16--------
18A `++epic`.
20Source
21------
23 ++ fuel :: parse fcgi
24 |= [bem=beam but=path]
25 ^- epic
26 ?> ?=([%web @ *] but)
27 =+ dyb=(slay i.t.but)
28 ?> ?& ?=([~ %many *] dyb)
29 ?=([* * *] p.u.dyb)
30 :: ?=([%$ %tas *] i.p.u.dyb)
31 ?=([%many *] i.p.u.dyb)
32 ?=([%blob *] i.t.p.u.dyb)
33 ==
34 =+ ced=((hard cred) p.i.t.p.u.dyb)
35 :: =+ nep=q.p.i.p.u.dyb
36 =+ ^= nyp ^- path
37 %+ turn p.i.p.u.dyb
38 |= a=coin ^- @ta
39 ?> ?=([%$ %ta @] a)
40 ?>(((sane %ta) q.p.a) q.p.a)
41 =+ ^= gut ^- (list ,@t)
42 %+ turn t.t.p.u.dyb
43 |= a=coin ^- @t
44 ?> ?=([%$ %t @] a)
45 ?>(((sane %t) q.p.a) q.p.a)
46 =+ ^= quy
47 |- ^- (list ,[p=@t q=@t])
48 ?~ gut ~
49 ?> ?=(^ t.gut)
50 [[i.gut i.t.gut] $(gut t.t.gut)]
51 :* (~(gas by *(map cord cord)) quy)
52 ced
53 bem
54 t.t.but
55 nyp
56 ==
57 ::
59Examples
60--------
62 ~zod/main=> (fuel [[p=~zod q=%try r=[%ud p=2]] s=/psal] /web/'._.~-~~~~.gen~-~-_~~05vg0001v09f0n30fbh7dn6ab2jakmmspdq04nef5h70qbd5lh6atr4c5j2qrbldpp62q1df1in0sr1ding0c3qgt7kclj74qb65lm6atrkc5k2qpr5e1mmispdchin4p3fegmiqrjpdlo62p1dchsn4p39comn8pbcehgmsbbef5p7crrifr3o035dhgfrk2b5__')
63 [ qix={}
64 ced
65 [ hut=[p=%.y q=[~ 8.445] r=[%.n p=.0.0.0.0]]
66 aut={[p=%$ q={'~rovryn-natlet-fidryd-dapmyn--todred-simpeg-hatwel-firfet'}]}
67 orx='laspex-harnum-fadweb-mipbyn'
68 acl=[~ 'en-US,en;q=0.8']
69 cip=[%.y p=.127.0.0.1]
70 cum={}
71 ]
72 bem=[[p=~zod q=%try r=[%ud p=2]] s=/psal]
73 but=/
74 nyp=/gen
75 ]