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