File: parse.icn

package info (click to toggle)
icon 9.5.25a-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 15,624 kB
  • sloc: ansic: 28,692; cpp: 5,650; yacc: 926; makefile: 882; lisp: 873; sh: 319; sed: 13; php: 1
file content (21 lines) | stat: -rw-r--r-- 286 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#SRC: JCON

# test grouping of various operators

procedure main()
	write(3^3^2)
	write(8/4/2)
	write(2-2-2)
	write(image(f![g]![2]))
	write((2<3>2)|"fail")
	every write(1 to 2 to 3)
	write("x" ? (tab(0)||"y") ? tab(0))
end

procedure f(x)
	return x
end

procedure g(x)
	return x+2
end