1 | ## our_shell: ysh
|
2 | ## oils_failures_allowed: 3
|
3 |
|
4 | #### JSON func on top of proc
|
5 |
|
6 | proc myadd {
|
7 | json read (&args)
|
8 |
|
9 | # convenient!
|
10 | fopen >&2 {
|
11 | = args
|
12 | }
|
13 |
|
14 | json write (args[0] + args[1])
|
15 | }
|
16 |
|
17 | echo '[1, 2]' | myadd | json read (&result)
|
18 |
|
19 | # TODO:
|
20 | # Rewrite this as:
|
21 | #
|
22 | # var result = myadd(1,2)
|
23 | #
|
24 | # Is that possible? I think functions can live in their own namespace?
|
25 | # Or you can have expr.Func() with all the metadata?
|
26 | # Problem with 'source mytool.hay' is that it can define funcs ANYWHERE
|
27 | # you might need a namespace like extern::mytool::myfunc()
|
28 |
|
29 | echo "result = $result"
|
30 |
|
31 | ## STDOUT:
|
32 | TODO
|
33 | result = 3
|
34 | ## END
|
35 |
|
36 | #### QTT func on top of proc
|
37 |
|
38 | proc myadd {
|
39 |
|
40 | # I thought this was 'wok'
|
41 | qtt read-rows {
|
42 | if (_index === 0) {
|
43 | # could write header first here
|
44 | write --sep $TAB -- $_schema_str 'result:Int'
|
45 |
|
46 | # _schema is the raw schema
|
47 | }
|
48 | # or use BEGIN and 'when', like awk-style
|
49 |
|
50 | const result = _row->x + _row->y
|
51 | write --sep $TAB -- $_row_str $result
|
52 | }
|
53 | }
|
54 |
|
55 | qtt tabify '''
|
56 | x:Int y:Int
|
57 | 1 2
|
58 | 3 4
|
59 | ''' | myadd | qtt read-cols result
|
60 |
|
61 | echo "result = $result"
|
62 |
|
63 | ## STDOUT:
|
64 | ## END
|
65 |
|
66 | #### QTT func on top of wok
|
67 |
|
68 | wok foo {
|
69 | BEGIN {
|
70 | write --sep $TAB -- $_schema_str' result:Int'
|
71 | }
|
72 |
|
73 | # for all rows. Could be 'each' or 'row'
|
74 | when {
|
75 | const result = _row->x + _row->y
|
76 | write --sep $TAB -- $_row_str $result
|
77 | }
|
78 | }
|
79 |
|
80 | ## STDOUT:
|
81 | ## END
|
82 |
|
83 |
|
84 | # Notes:
|
85 | # - consider JSON-RPC
|
86 | # - consider multiple return values
|