File: src.intp

package info (click to toggle)
racc 1.8.1-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 4,016 kB
  • sloc: yacc: 22,764; ruby: 4,515; java: 698; ansic: 680; makefile: 16
file content (34 lines) | stat: -rw-r--r-- 536 bytes parent folder | download | duplicates (12)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
def assert( no, cond )
  if cond then
  else
    raise( 'assert ' + to_s(no) + ' failed' )
  end
end

assert( 1, concat(concat(concat('str=', 'a'), "b"), 'c') == 'str=abc' )
assert( 2, 'operator' + ' ok' == 'operator ok' )
assert( 3, 1 + 1 == 2 )
assert( 4, 4 * 1 + 10 * 1 == 14 )

if true then
  assert( 5, true )
else
  assert( 6, false )
end

i = 1
while i == 1 do
  i = false
end
assert( 7, i == false )
assert( 8, nil == nil )

def func
  assert( 9, true )
end
func

def argfunc( str )
  assert( 10, str == 'ok' )
end
argfunc 'ok'