457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
...
502
503
504
505
506
507
508
509
510
511
512
513
514
515
....
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
....
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
....
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
....
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
....
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
....
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
....
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
|
where id = $1::bigint
]]
};
post_create = {
params = {
uint64, rawstring, rawstring, rawstring,
uint64, uint64, rawstring
}, sql = [[
insert into parsav_posts (
author, subject, acl, body,
parent, posted, discovered,
circles, mentions, convoheaduri
) values (
$1::bigint, case when $2::text = '' then null else $2::text end,
$3::text, $4::text,
$5::bigint, $6::bigint, $6::bigint,
array[]::bigint[], array[]::bigint[], $7::text
) returning id
]]; -- TODO array handling
};
post_destroy_prepare = {
params = {uint64}, cmd = true, sql = [[
update parsav_posts set
................................................................................
params = {uint64}, sql = [[
select (p.post).*
from pg_temp.parsavpg_known_content as p
where (p.post).parent = $1::bigint and (p.post).rtdby = 0
order by (p.post).posted, (p.post).discovered asc
]];
};
thread_latest_arrival_calc = {
params = {uint64}, sql = [[
with recursive posts(id) as (
select id from parsav_posts where parent = $1::bigint
union
select p.id from parsav_posts as p
................................................................................
if ct == 0 then
lib.pq.PQclear(res)
return pqr {0, nil}
else
return pqr {ct, res}
end
end
end
local terra row_to_artifact(res: &pqr, i: intptr): lib.mem.ptr(lib.store.artifact)
var id = res:int(uint64,i,0)
var idbuf: int8[lib.math.shorthand.maxlen]
var idlen = lib.math.shorthand.gen(id, &idbuf[0])
var desc = res:_string(i,2)
................................................................................
m.ptr.rid = id
return m
end
local terra row_to_post(r: &pqr, row: intptr): lib.mem.ptr(lib.store.post)
var subj: rawstring, sblen: intptr
var cvhu: rawstring, cvhlen: intptr
if r:null(row,3)
then subj = nil sblen = 0
else subj = r:string(row,3) sblen = r:len(row,3)+1
end
if r:null(row,10)
then cvhu = nil cvhlen = 0
else cvhu = r:string(row,10) cvhlen = r:len(row,10)+1
end
var p = [ lib.str.encapsulate(lib.store.post, {
subject = { `subj, `sblen };
acl = {`r:string(row,4), `r:len(row,4)+1};
body = {`r:string(row,5), `r:len(row,5)+1};
convoheaduri = { `cvhu, `cvhlen }; --FIXME
}) ]
p.ptr.id = r:int(uint64,row,1)
p.ptr.author = r:int(uint64,row,2)
if r:null(row,6)
then p.ptr.posted = 0
else p.ptr.posted = r:int(uint64,row,6)
end
................................................................................
else p.ptr.edited = r:int(uint64,row,8)
end
p.ptr.parent = r:int(uint64,row,9)
if r:null(row,11)
then p.ptr.chgcount = 0
else p.ptr.chgcount = r:int(uint32,row,11)
end
p.ptr.accent = r:int(int16,row,12)
p.ptr.rtdby = r:int(uint64,row,13)
p.ptr.rtdat = r:int(uint64,row,14)
p.ptr.rtact = r:int(uint64,row,15)
p.ptr.likes = r:int(uint32,row,16)
p.ptr.rts = r:int(uint32,row,17)
p.ptr.isreply = r:bool(row,18)
p.ptr.localpost = r:bool(row,0)
return p
end
local terra row_to_actor(r: &pqr, row: intptr): lib.mem.ptr(lib.store.actor)
var a: lib.mem.ptr(lib.store.actor)
var av: rawstring, avlen: intptr
var nym: rawstring, nymlen: intptr
var bio: rawstring, biolen: intptr
var epi: rawstring, epilen: intptr
var origin: uint64 = 0
var handle = r:_string(row, 2)
if not r:null(row,3) then origin = r:int(uint64,row,3) end
var avia = lib.str.acc {buf=nil}
if origin == 0 then
avia:compose('/avi/',handle)
................................................................................
bio = r:string(row,4)
biolen = r:len(row,4)+1
end
if r:null(row,9) then epilen = 0 epi = nil else
epi = r:string(row,9)
epilen = r:len(row,9)+1
end
a = [ lib.str.encapsulate(lib.store.actor, {
nym = {`nym, `nymlen};
bio = {`bio, `biolen};
epithet = {`epi, `epilen};
avatar = {`av,`avlen};
handle = {`handle.ptr, `handle.ct + 1};
xid = {`r:string(row, 11); `r:len(row,11) + 1};
}) ]
a.ptr.id = r:int(uint64, row, 0);
a.ptr.rights = lib.store.rights_default();
a.ptr.rights.rank = r:int(uint16, row, 6);
a.ptr.rights.quota = r:int(uint32, row, 7);
a.ptr.rights.invites = r:int(uint32, row, 12);
a.ptr.knownsince = r:int(int64,row, 10);
a.ptr.avatarid = r:int(uint64,row, 13);
if r:null(row,8) then
a.ptr.key.ct = 0 a.ptr.key.ptr = nil
else
a.ptr.key = r:bin(row,8)
end
a.ptr.origin = origin
if avia.buf ~= nil then avia:free() end
return a
end
local privmap = lib.store.powmap
................................................................................
blacklist = res:bool(i, 3);
pubkey = res:bin(i, 4);
}
end]
if rsakeys.sz > 0 then defer rsakeys:free()
for i=0, rsakeys.sz do var props = toprops(&rsakeys, i)
lib.dbg('loading next RSA pubkey')
var pub = lib.crypt.loadpub(props.pubkey.ptr, props.pubkey.ct)
if pub.ok then defer pub.val:free()
lib.dbg('checking pubkey against response')
var vfy, secl = lib.crypt.verify(&pub.val, token.ptr, token.ct, sig.ptr, sig.ct)
if vfy then
lib.dbg('signature verified')
if props.blacklist then lib.dbg('key blacklisted!') goto fail end
var dupname = lib.str.dup(props.name.ptr)
................................................................................
post_create = [terra(
src: &lib.store.source,
post: &lib.store.post
): uint64
var r = queries.post_create.exec(src,
post.author,post.subject,post.acl,post.body,
post.parent,post.posted,post.convoheaduri
)
if r.sz == 0 then return 0 end
defer r:free()
var id = r:int(uint64,0,0)
post.source = src
return id
end];
................................................................................
if n.kind == lib.store.noticetype.react then
var react = r:_string(0,5)
lib.str.ncpy(n.reaction, react.ptr, lib.math.smallest(react.ct,[(`n.reaction).tree.type.N]))
end
return n
end];
thread_latest_arrival_calc = [terra(
src: &lib.store.source,
post: uint64
): lib.store.timepoint
var r = queries.thread_latest_arrival_calc.exec(src,post)
if r.sz == 0 or r:null(0,0) then return 0 end
|
|
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
|
|
|
|
|
>
>
>
>
>
>
>
>
<
<
<
<
<
|
|
>
>
>
>
>
>
>
>
>
>
|
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
...
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
....
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
....
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
....
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
....
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
....
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
....
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
....
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
|
where id = $1::bigint
]]
};
post_create = {
params = {
uint64, rawstring, rawstring, rawstring,
uint64, uint64, rawstring, rawstring
}, sql = [[
insert into parsav_posts (
author, subject, acl, body,
parent, posted, discovered,
circles, mentions, convoheaduri, uri
) values (
$1::bigint, case when $2::text = '' then null else $2::text end,
$3::text, $4::text,
$5::bigint, $6::bigint, $6::bigint,
array[]::bigint[], array[]::bigint[], $7::text, $8::text
) returning id
]]; -- TODO array handling
};
post_destroy_prepare = {
params = {uint64}, cmd = true, sql = [[
update parsav_posts set
................................................................................
params = {uint64}, sql = [[
select (p.post).*
from pg_temp.parsavpg_known_content as p
where (p.post).parent = $1::bigint and (p.post).rtdby = 0
order by (p.post).posted, (p.post).discovered asc
]];
};
thread_top_find = {
params = {uint64}, sql = [[
with recursive tree(gen,id,par) as (
select 0, id, parent from parsav_posts where id = $1::bigint
union
select tree.gen + 1, p.id, p.parent from tree
inner join parsav_posts as p on p.id = tree.par
)
select id from tree order by gen desc limit 1
]];
};
thread_latest_arrival_calc = {
params = {uint64}, sql = [[
with recursive posts(id) as (
select id from parsav_posts where parent = $1::bigint
union
select p.id from parsav_posts as p
................................................................................
if ct == 0 then
lib.pq.PQclear(res)
return pqr {0, nil}
else
return pqr {ct, res}
end
end
q.exec.name = 'pgsql.' .. k .. '.exec'
end
local terra row_to_artifact(res: &pqr, i: intptr): lib.mem.ptr(lib.store.artifact)
var id = res:int(uint64,i,0)
var idbuf: int8[lib.math.shorthand.maxlen]
var idlen = lib.math.shorthand.gen(id, &idbuf[0])
var desc = res:_string(i,2)
................................................................................
m.ptr.rid = id
return m
end
local terra row_to_post(r: &pqr, row: intptr): lib.mem.ptr(lib.store.post)
var subj: rawstring, sblen: intptr
var cvhu: rawstring, cvhlen: intptr
var uri: rawstring, urilen: intptr
if r:null(row,3)
then subj = nil sblen = 0
else subj = r:string(row,3) sblen = r:len(row,3)+1
end
if r:null(row,10)
then cvhu = nil cvhlen = 0
else cvhu = r:string(row,10) cvhlen = r:len(row,10)+1
end
if r:null(row,12)
then uri = nil urilen = 0
else uri = r:string(row,12) urilen = r:len(row,12)+1
end
var p = [ lib.str.encapsulate(lib.store.post, {
subject = { `subj, `sblen };
acl = {`r:string(row,4), `r:len(row,4)+1};
body = {`r:string(row,5), `r:len(row,5)+1};
convoheaduri = { `cvhu, `cvhlen }; --FIXME
uri = { `uri, `urilen };
}) ]
p.ptr.id = r:int(uint64,row,1)
p.ptr.author = r:int(uint64,row,2)
if r:null(row,6)
then p.ptr.posted = 0
else p.ptr.posted = r:int(uint64,row,6)
end
................................................................................
else p.ptr.edited = r:int(uint64,row,8)
end
p.ptr.parent = r:int(uint64,row,9)
if r:null(row,11)
then p.ptr.chgcount = 0
else p.ptr.chgcount = r:int(uint32,row,11)
end
p.ptr.accent = r:int(int16,row,13)
p.ptr.rtdby = r:int(uint64,row,14)
p.ptr.rtdat = r:int(uint64,row,15)
p.ptr.rtact = r:int(uint64,row,16)
p.ptr.likes = r:int(uint32,row,17)
p.ptr.rts = r:int(uint32,row,18)
p.ptr.isreply = r:bool(row,19)
p.ptr.localpost = r:bool(row,0)
return p
end
local terra row_to_actor(r: &pqr, row: intptr): lib.mem.ptr(lib.store.actor)
var a: lib.mem.ptr(lib.store.actor)
var av: rawstring, avlen: intptr
var nym: rawstring, nymlen: intptr
var bio: rawstring, biolen: intptr
var epi: rawstring, epilen: intptr
var key: &uint8, keylen: intptr
var origin: uint64 = 0
var handle = r:_string(row, 2)
if not r:null(row,3) then origin = r:int(uint64,row,3) end
var avia = lib.str.acc {buf=nil}
if origin == 0 then
avia:compose('/avi/',handle)
................................................................................
bio = r:string(row,4)
biolen = r:len(row,4)+1
end
if r:null(row,9) then epilen = 0 epi = nil else
epi = r:string(row,9)
epilen = r:len(row,9)+1
end
if r:null(row,8) then
keylen = 0 key = nil
else
var k = r:bin(row,8)
keylen = k.ct key = k.ptr
end
a = [ lib.str.encapsulate(lib.store.actor, {
nym = {`nym, `nymlen};
bio = {`bio, `biolen};
epithet = {`epi, `epilen};
avatar = {`av,`avlen};
handle = {`handle.ptr, `handle.ct + 1};
xid = {`r:string(row, 11); `r:len(row,11) + 1};
key = {`key,`keylen};
}) ]
a.ptr.id = r:int(uint64, row, 0);
a.ptr.rights = lib.store.rights_default();
a.ptr.rights.rank = r:int(uint16, row, 6);
a.ptr.rights.quota = r:int(uint32, row, 7);
a.ptr.rights.invites = r:int(uint32, row, 12);
a.ptr.knownsince = r:int(int64,row, 10);
a.ptr.avatarid = r:int(uint64,row, 13);
a.ptr.origin = origin
if avia.buf ~= nil then avia:free() end
return a
end
local privmap = lib.store.powmap
................................................................................
blacklist = res:bool(i, 3);
pubkey = res:bin(i, 4);
}
end]
if rsakeys.sz > 0 then defer rsakeys:free()
for i=0, rsakeys.sz do var props = toprops(&rsakeys, i)
lib.dbg('loading next RSA pubkey')
var pub = lib.crypt.loadpub(props.pubkey)
if pub.ok then defer pub.val:free()
lib.dbg('checking pubkey against response')
var vfy, secl = lib.crypt.verify(&pub.val, token.ptr, token.ct, sig.ptr, sig.ct)
if vfy then
lib.dbg('signature verified')
if props.blacklist then lib.dbg('key blacklisted!') goto fail end
var dupname = lib.str.dup(props.name.ptr)
................................................................................
post_create = [terra(
src: &lib.store.source,
post: &lib.store.post
): uint64
var r = queries.post_create.exec(src,
post.author,post.subject,post.acl,post.body,
post.parent,post.posted,post.convoheaduri,post.uri
)
if r.sz == 0 then return 0 end
defer r:free()
var id = r:int(uint64,0,0)
post.source = src
return id
end];
................................................................................
if n.kind == lib.store.noticetype.react then
var react = r:_string(0,5)
lib.str.ncpy(n.reaction, react.ptr, lib.math.smallest(react.ct,[(`n.reaction).tree.type.N]))
end
return n
end];
thread_top_find = [terra(
src: &lib.store.source,
post: uint64
): uint64
var r = queries.thread_top_find.exec(src,post)
if r.sz == 0 then return 0 end
defer r:free()
return r:int(uint64,0,0)
end];
thread_latest_arrival_calc = [terra(
src: &lib.store.source,
post: uint64
): lib.store.timepoint
var r = queries.thread_latest_arrival_calc.exec(src,post)
if r.sz == 0 or r:null(0,0) then return 0 end
|