1

CREATE TABLE inodes (

     2

    ino serial4 primary key, 

     3

    type char(3) NOT NULL, 

     4

    mode int2 NOT NULL, 

     5

    data oid

     6

);

     7

     8

CREATE TABLE file_tree (

     9

    "offset" serial4 primary key, 

    10

    name varchar(256), 

    11

    parent int4 references inodes(ino), 

    12

    inode int4 references inodes(ino) NOT NULL

    13

);

    14

    15

INSERT INTO inodes VALUES 

    16

    (1, 'DIR', 365, NULL),

    17

    (2, 'REG', 292, lo_create(0));

    18

    19

INSERT INTO file_tree (name, parent, inode) VALUES 

    20

    (NULL,  NULL,   1   ),

    21

    ('foo', 1,      2   );

    22

    23

CREATE FUNCTION lo_size (oid) RETURNS int4 LANGUAGE SQL STABLE RETURNS NULL ON NULL INPUT AS 'select lo_lseek(lo_open($1, 262144), 0, 2);';

    24

CREATE 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);';

    25

CREATE 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);';

    26

CREATE FUNCTION lo_otruncate (IN oid, IN len int4) RETURNS oid LANGUAGE SQL STRICT AS 'select lo_truncate(lo_open($1, 393216), $2); select $1;';

    27

    28

ALTER TABLE inodes ADD COLUMN link varchar(512);

    29

    30

CREATE SEQUENCE ino_seq START 64;

    31

ALTER TABLE inodes ALTER COLUMN ino SET DEFAULT nextval('ino_seq'::regclass);

    32

    33

ALTER TABLE file_tree ADD COLUMN ino int4;

    35

UPDATE file_tree SET ino = inode;

    36

ALTER TABLE file_tree DROP COLUMN inode;

    37

    38

CREATE FUNCTION dbfs_size (type char, oid, link varchar) RETURNS int4 LANGUAGE SQL STABLE AS $$

    39

    SELECT CASE $1 

    40

        WHEN 'LNK' THEN char_length($3) 

    41

        WHEN 'REG' THEN lo_size($2) 

    42

        ELSE 0 

    43

    END;

    44

$$;