adamc@737: sequence s adamc@737: table t : { Id : int, Nam : option string, Data : blob, Desc : string } adamc@737: adamc@737: fun save r = adamc@739: id <- nextval s; adamc@739: dml (INSERT INTO t (Id, Nam, Data, Desc) VALUES ({[id]}, {[fileName r.Data]}, {[fileData r.Data]}, {[r.Desc]})); adamc@739: main () adamc@737: adamc@737: and main () = return adamc@737:
adamc@737: adamc@737: adamc@737: adamc@737: adamc@737: