Mercurial > urweb

comparison src/prepare.sml @ 738:7fa4871e8272

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Prepared statements with blobs
author Adam Chlipala <adamc@hcoop.net>
date Sat, 25 Apr 2009 14:04:38 -0400
parents 4c5796512edc
children f7e2026dd5ae
comparison
equal deleted inserted replaced
737:d049d31a1966 738:7fa4871e8272
45 SOME ("$" ^ Int.toString (n + 1) ^ "::text" :: ss, n + 1) 45 SOME ("$" ^ Int.toString (n + 1) ^ "::text" :: ss, n + 1)
46 | EFfiApp ("Basis", "sqlifyBool", [e]) => 46 | EFfiApp ("Basis", "sqlifyBool", [e]) =>
47 SOME ("$" ^ Int.toString (n + 1) ^ "::bool" :: ss, n + 1) 47 SOME ("$" ^ Int.toString (n + 1) ^ "::bool" :: ss, n + 1)
48 | EFfiApp ("Basis", "sqlifyTime", [e]) => 48 | EFfiApp ("Basis", "sqlifyTime", [e]) =>
49 SOME ("$" ^ Int.toString (n + 1) ^ "::timestamp" :: ss, n + 1) 49 SOME ("$" ^ Int.toString (n + 1) ^ "::timestamp" :: ss, n + 1)
50 | EFfiApp ("Basis", "sqlifyBlob", [e]) =>
51 SOME ("$" ^ Int.toString (n + 1) ^ "::bytea" :: ss, n + 1)
50 | EFfiApp ("Basis", "sqlifyChannel", [e]) => 52 | EFfiApp ("Basis", "sqlifyChannel", [e]) =>
51 SOME ("$" ^ Int.toString (n + 1) ^ "::int8" :: ss, n + 1) 53 SOME ("$" ^ Int.toString (n + 1) ^ "::int8" :: ss, n + 1)
52 | EFfiApp ("Basis", "sqlifyClient", [e]) => 54 | EFfiApp ("Basis", "sqlifyClient", [e]) =>
53 SOME ("$" ^ Int.toString (n + 1) ^ "::int4" :: ss, n + 1) 55 SOME ("$" ^ Int.toString (n + 1) ^ "::int4" :: ss, n + 1)
54 56