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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#!/usr/bin/env lux
dofile('util.lua')
local al,e=dynopen("./Mk4lua.so")
if not al then print(e) end
dyncall(al,"mk4lua_open")
--gdump()
gdump(MkView)
--gdump(MkStorage)
p=MkProperty('I','age')
tester [[
p.name == "age"
p.type == "I"
p.id == 1
]]
local a = MkStorage("aaa",1)
--local a = MkStorage "aaa"
a:autocommit()
--print(a,tag(a))
--print(gettagmethod(tag(a),"index"))
--print('view',MkView,tag(MkView))
--print('view',gettagmethod(tag(MkView),"gettable"))
--print('Storage',MkStorage,tag(MkStorage))
--print('Storage',gettagmethod(tag(MkStorage),"gettable"))
--print(a:haha())
local v=a:getas("haha[name:S]")
--print('<<<1>>>',v)
print(v:getsize())
v:setsize(123)
print(v:getsize())
v:delete(23)
print(v:getsize())
v:delete(34,10)
print(v:getsize())
print(v,v:sort())
print(a:description())
print(a:contents():getsize())
r=MkRowRef()
print(r,tag(r))
--print("abc",r.abc)
r=MkRowRef(v,12)
r.name="this is a weird name"
print(r.name)
--a:commit()
print('<<<2>>>')
--gdump()
--print('<<<3>>>')
--gdump(a)
--print('<<<4>>>')
--gdump(v)
|
