1	## our_shell: ysh
2
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
87	# - :: should be external