Delete test.sol

test.sol

@@ -1,411 +0,0 @@
-print('--- Empty functions')
-
-func f() end
-
-print(f())
-
-print('--- While loop')
-a = 1
-while a < 10 do
-	print(a)
-	a += 1
-end
-
-print("--- Range")
-
-func mul9(b)
-	for i in range(#b) do
-		b[i] *= 9
-	end
-end
-
-l = [1 2 3 4 5]
-print(range(#l))
-print("--- Iter list")
-for i in l do print(i) end
-print("--- Index list")
-for i in range(#l) do print(i, l[i]) end
-print('--- mul9')
-mul9(l)
-for i in l do print(i) end
-print('--- Iter mul9')
-for i in range(#l) do print(i, l[i]) end
-
-print("--- Mapgen")
-
-PI = 3.14159265358979
-
-d = {
-	integer = 1
-	string = "hello"
-	submap = {
-		stamina = 100
-		health = 42.0
-	}
-	sublist = [1 1 2 3 5 8],
-	["this time with spaces"] = PI*2,
-	[1 + 5] = 1 + 5,
-	[1 + 9] = 1 + 9
-}
-
-print(d)
-print('--- Map iter')
-for i in d do print(i, d[i]) end
-
-print('--- try')
-
-func bad(x)
-	print(x)
-	return x.c()
-end
-
-test1 = {c = func() return 15 end}
-test2 = {}
-
-print(try(bad, test1))
-print(try(bad, test2))
-
-print(bad(test1))
---print(bad(test2))
-
-print('--- Induced errors')
-
-func raise(x)
-	error(x)
-end
-
-print(try(raise, "lp0 on fire"))
-
-print('--- Indexing')
-
-print(d["integer"])
-print(d.integer)
-d.integer += 5
-print(d.integer)
-
-print('--- Function binding')
-
-func outer(a)
-	func inner(b)
-		return a+b
-	end
-	inner.closure.a = a
-	return inner
-end
-
-i = outer(5)
-print(i(3), i(4), i(5))
-j = outer(8)
-print(j(3), j(4), j(5))
-
-print('--- Iterators')
-
-func myiter()
-	if i>10 then return StopIteration end
-	i+=1
-	return i-1
-end
-myiter.closure.i = 1
-
-for i in myiter do print(i) end
-
-print('--- Method calls')
-
-d = {a = func(a, b) print(a, b) end}
-
-d.a(1, 2)
-d:a(3)
-
-print('--- Special methods')
-
-d = {__index = func(obj, key) print('Index', obj, key) return key end,
-     __setindex = func(obj, key, val) print('SetIndex', obj, key, val) end,
-     __call = func(obj, arg1, arg2) print('Call', obj, arg1, arg2) return arg1 end}
-
-print(d[3], d[5])
-
-d.a = 7
-
-print(d("q", "r"))
-
-e = {a=1, b=2}
-d = {__index = e, __setindex = e}
-
-print(d, d.a, d.b)
-
-d.c = 5
-d.b = 7
-
-print(d, e)
-
-print('--- Data sharing')
-
-d = {}
-e = [1 2 3 4 5]
-d.a = e
-d.b = e
-
-print(d)
-
-e[2]=7
-e[3]="c"
-
-print(d)
-
-d.a:insert(#(d.a), "q")
-d.b:remove(1)
-d.a[3]="f"
-
-print(d)
-
-print('--- Arithmetic structure operations')
-
-print('ab'+'cd')
-print('l'+'ol'*32)
-print([1 2 3]+[4 5])
-print([1 2 3]*5)
-print({a=1 b=2}+{c=3})
-
-print('--- Map/filter')
-
-l = [1 2 3 4 5]
-print(l)
-
-l:map(func (i) return i*3 end)
-print(l)
-
-l:filter(func (i) return i & 1 end)
-print(l)
-
-print('--- Map/filter chain')
-
-print([1 2 3 4 5]:map(func (i) return i * 3 end):filter(func (i) return i & 1 end))
-
-print('--- Exec/eval')
-
-exec('print("Hello from exec!")')
-print(eval('5 + 3'))
-execfile('subtest.sol')
-
-print('--- Modulus')
-
-print(5%3)
-print(13%5)
-print(15%15)
-
-print('--- Special function manipulation')
-
-func foo(x)
-	return x
-end
-
-print(foo)
-foo.name = "bar"
-print(foo)
-
-func something()
-	return i
-end
-
-something.closure = {i=[1, 2, 3]}
-print(something())
-
-cl = something.closure
-cl.i:insert(0, "b")
-print(something())
-
-print('--- Function body swapping')
-
-func a()
-	return 0
-end
-
-func b()
-	return 2
-end
-
-print(a, a())
-print(b, b())
-
-print(a.stmt)
-print(b.stmt)
-
-temp = a.stmt
-a.stmt = b.stmt
-b.stmt = temp
-
-print(a, a())
-print(b, b())
-
-newbody = parse('return 4')
-print(newbody)
-
-a.stmt = newbody
-b.stmt = newbody
-
-print(a, a())
-print(b, b())
-
-print('--- More complicated ASTs')
-
-print(outer, outer.stmt, outer.stmt.stmtlist)
-
-print('--- Exec- and eval-by-parse')
-
-parse('print("Hello from parse()!")')()
-print(parse('5 + 3').stmtlist[0].expr())
-
-print('--- Mutating ASTs')
-
-func f()
-	return 5 + 7
-end
-
-print(f, f.stmt, f())
-
-f.stmt.stmtlist[0].ret.right.ival = 11
-
-print(f, f.stmt, f())
-
-func g()
-	a=1
-	b=2
-	print("a=", a, ", b=", b)
-end
-
-print(g, g.stmt, g())
-
-g.stmt.stmtlist[1].expr.value = parse('a').stmtlist[0].expr
-
-print(g, g.stmt, g())
-
-print('--- AST Environments')
-
-code = parse('print("a is", a, "and b is", b"); a = 4; b = 5')
-print(code)
-code()
-
-d = {a=1, b=2}
-print(d)
-code(d)
-print(d)
-e = {a="hello", b=["world"]}
-print(e)
-code(e)
-print(e)
-
-e = {a=1, b=2}
-d = {__index = e}
-print(d)
-print(e)
-code(d)
-print(d)
-print(e)
-
-print('--- Basic buffers')
-
-print('(buffer.fromstring = ', buffer.fromstring, ')')
-b = buffer.fromstring("Hello, world!")
-print(b)
-print('(b.get = ', b.get, ')')
-print(b:get(buffer.type.cstr))
-b:set(buffer.type.char, "Q")
-b:set(buffer.type.char, "L", 2)
-print(b:get(buffer.type.cstr))
-print(b:get(buffer.type.cstr, 5))
-print(b:get(buffer.type.uint32))
---b:set(buffer.type.double, 1.243416560929)
-b:set(buffer.type.uint32, 1886545252)
-print(b:get(buffer.type.uint32))
-print(b:get(buffer.type.cstr))
-q = buffer.fromaddress(b:address(), b:size())
-print(q:get(buffer.type.cstr))
-q:set(buffer.type.cstr, "Goodbye!")
-print(q:get(buffer.type.cstr), b:get(buffer.type.cstr))
-
-s = "A string!"
-b = buffer.fromobject(s)
-prepr(s)
-print('...is a', buffer.objtype[b:get(buffer.type.int, 0)])
-print('(buffer.sizeof.ptr = ', buffer.sizeof.ptr, ')')
-print('(buffer.sizeof.int = ', buffer.sizeof.int, ')')
-print('(buffer.sizeof.int*2 = ', buffer.sizeof.int*2, ')')
-print('(buffer.sizeof.int*2 + buffer.sizeof.ptr = ', buffer.sizeof.int*2 + (buffer.sizeof.ptr), ')')
-bs = b:get(buffer.type.ptr, buffer.sizeof.int*2 + (buffer.sizeof.ptr))
-print('...string buffer:', bs)
-print('...with value:', bs:get(buffer.type.cstr))
-
-print('--- IO redirection')
-
-oldstdout = io.stdout
-io.stdout = io.open('stdout', io.MODE_WRITE|io.MODE_TRUNCATE)
-
-print('A line!')
-print('An object:', {a=1, b=2, c="turkey"})
-print('Something mysterious :o')
-io.stdout:write('Writing directly to a file :D')
-io.stdout:flush()
-
-io.stdout = oldstdout
-
-print('...restored stdout.')
-
-f = io.open('stdout', io.MODE_READ)
-s = f:read(io.ALL)
-print('Buffered output was:')
-prepr(s)
-f = None
-
-print('...second time.')
-
-io.stdout = io.open('stdout', io.MODE_WRITE|io.MODE_TRUNCATE)
-
-print('Hey there!')
-print('l'+'ol'*32)
-io.stdout:flush()
-
-io.stdout = oldstdout
-
-print('...restored.')
-print('Output was:')
-prepr(io.open('stdout', io.MODE_READ):read(io.ALL))
-
-print('--- Substrings')
-
-s = 'This is a test!'
-prepr(s)
-prepr(s:sub(1, -1))
-prepr(s:sub(3, -3))
-prepr(s:sub(3, 5))
-prepr(s:sub(3, 11))
-prepr(s:sub(-1000, -1000))
-
-print('--- Splitting')
-s = 'This is a test!'
-prepr(s)
-prepr(s:split(' '))
-prepr(s:split('i'))
-prepr(s:split('0'))
-prepr(s:split('aeiou'))
-
-l = s:split(' ')
-for i in l do
-	prepr(i, type(i))
-end
-
-print('--- Continue/break')
-
-l = range(10)
-for i in l do
-	print(i)
-	if i >= 5 then break end
-end
-
-print('---')
-
-for i in l do
-	if i%2 == 0 then continue end
-	print(i)
-end
-
-print('--- All done!')