DROP TABLE IF EXISTS file_tree;
DROP TABLE IF EXISTS inodes;
DROP SEQUENCE IF EXISTS ino_seq;
CREATE SEQUENCE ino_seq START 64;
CREATE TABLE inodes (
ino int4 primary key DEFAULT nextval('ino_seq'::regclass),
type char(3) NOT NULL,
mode int2 NOT NULL,
data oid,
link_path varchar(512)
);
CREATE TABLE file_tree (
"offset" serial4 primary key,
name varchar(256),
ino int4 references inodes(ino) NOT NULL UNIQUE,
parent int4 references file_tree(ino)
);
INSERT INTO inodes (ino, type, mode, data) VALUES
(1, 'DIR', 365, NULL),
(2, 'REG', 292, lo_create(0));
INSERT INTO file_tree (name, parent, ino) VALUES
(NULL, NULL, 1 ),
('foo', 1, 2 );
CREATE OR REPLACE FUNCTION lo_size (oid) RETURNS int4 LANGUAGE SQL STABLE RETURNS NULL ON NULL INPUT AS 'select lo_lseek(lo_open($1, 262144), 0, 2);';
CREATE OR REPLACE FUNCTION lo_pread (IN fd int4, IN len int4, IN "off" int4) RETURNS bytea LANGUAGE SQL STRICT AS 'select lo_lseek($1, $3, 0); select loread($1, $2);';
CREATE OR REPLACE FUNCTION lo_pwrite (IN fd int4, IN buf bytea, IN "off" int4) RETURNS int4 LANGUAGE SQL STRICT AS 'select lo_lseek($1, $3, 0); select lowrite($1, $2);';
CREATE OR REPLACE FUNCTION lo_otruncate (IN oid, IN len int4) RETURNS oid LANGUAGE SQL STRICT AS 'select lo_truncate(lo_open($1, 393216), $2); select $1;';
CREATE OR REPLACE FUNCTION dbfs_size (type char, oid, link varchar) RETURNS int4 LANGUAGE SQL STABLE AS $$
SELECT CASE $1
WHEN 'LNK' THEN char_length($3)
WHEN 'REG' THEN lo_size($2)
ELSE 0
END;
$$;