ref: 5edeca01b0622463a65c126ebcc29314013fd928
dir: /module/palmfile.m/
Palmfile: module {
PATH: con "/dis/lib/palmfile.dis";
DBInfo: adt {
name: string;
attr: int;
dtype: string; # database type (byte[4])
version: int; # defined by application
creator: string; # creating application (byte[4])
ctime: int;
mtime: int;
btime: int; # last backup
modno: int; # modification number: set to zero
uidseed: int; # unique record ID seed (unused, set to zero)
# used internally and by the database access protocol
appinfo: int; # AppInfo offset
sortinfo: int; # SortInfo offset
# the following are used by the database access protocol
index: int;
more: int;
new: fn(name: string, attr: int, dtype: string, version: int, creator: string): ref DBInfo;
};
# file attributes:
Fresource: con 1<<0; # file is .prc not .pdb
Fronly: con 1<<1; # read only
Fappinfodirty: con 1<<2;
Fbackup: con 1<<3; # no conduit exists
Foverwrite: con 1<<4; # overwrite older copy if present
Freset: con 1<<5; # reset after installation
Fprivate: con 1<<6; # don't allow copy of this to be beamed
Record: adt {
id: int; # resource: ID; data: unique record ID
index: int;
name: int; # byte[4]: resource record only
attr: int; # data record only
cat: int; # category
data: array of byte;
# new: fn(size: int): ref Record;
};
Entry: adt {
id: int; # resource: id; record: unique ID
offset: int;
size: int;
name: int; # resource entry only
attr: int; # record entry only
};
# record attributes:
Rdelete: con 16r80; # delete next sync
Rdirty: con 16r40; # record modified
Rinuse: con 16r20; # record in use
Rsecret: con 16r10; # record is secret
Rarchive: con 16r08; # archive next sync
Rmcat: con 16r0F; # mask for category field in Entry.attrs
# common form of category data in appinfo
Categories: adt {
renamed: int; # which categories have been renamed
labels: array of string; # 16 category names
uids: array of int; # corresponding unique IDs
lastuid: int; # last unique ID assigned
appdata: array of byte; # remaining data is application-specific
new: fn(labels: array of string): ref Categories;
unpack: fn(a: array of byte): ref Categories;
pack: fn(c: self ref Categories): array of byte;
mkidmap: fn(c: self ref Categories): array of int;
};
Pfile: adt {
fname: string;
f: ref Bufio->Iobuf;
mode: int;
info: ref DBInfo;
appinfo: array of byte;
sortinfo: array of int;
uidseed: int;
entries: array of ref Entry;
open: fn(nil: string, mode: int): (ref Pfile, string);
# create: fn(nil: string, mode: int, perm: int, nil: ref DBInfo): ref Pfile;
close: fn(nil: self ref Pfile): int;
stat: fn(nil: self ref Pfile): ref DBInfo;
# wstat: fn(nil: self ref Pfile, nil: ref DBInfo);
read: fn(nil: self ref Pfile, index: int): (ref Record, string);
# readid: fn(nil: self ref Pfile, nil: int): (ref Record, string);
# append: fn(nil: self ref Pfile, r: ref Record): int;
# setappinfo: fn(nil: self ref Pfile, nil: array of byte);
# setsortinfo: fn(nil: self ref Pfile, nil: array of int);
};
Doc: adt {
file: ref Pfile;
version: int;
length: int; # uncompressed
nrec: int; # text records only
recsize: int; # uncompressed
position: int;
sizes: array of int; # sizes of uncompressed records
open: fn(file: ref Pfile): (ref Doc, string);
read: fn(nil: self ref Doc, i: int): (string, string);
iscompressed: fn(nil: self ref Doc): int;
unpacktext: fn(d: self ref Doc, a: array of byte): (string, string);
textlength: fn(d: self ref Doc, a: array of byte): int;
};
init: fn(): string;
# name mapping
filename: fn(s: string): string;
dbname: fn(s: string): string;
# Latin-1 to string conversion
gets: fn(a: array of byte): string;
puts: fn(a: array of byte, s: string);
# big-endian conversion
get2: fn(a: array of byte): int;
get3: fn(a: array of byte): int;
get4: fn(a: array of byte): int;
put2: fn(a: array of byte, v: int);
put3: fn(a: array of byte, v: int);
put4: fn(a: array of byte, v: int);
};