thunderstrike/purescript-postgresql-client
thunderstrike/purescript-postgresql-client
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add --syntax-only flag to purspgpp

Browse Source
This commit is contained in:
rightfold 2016-12-25 00:21:42 +01:00
parent a36526e24f
commit c1260c6d5f
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
purspgpp
View File

@ -63,11 +63,11 @@ my Str:D %types{Int:D} =
2951 => 'List UUID',
;
sub process-module(libpq::Connection:D $conn, Str:D $segment --> Str:D) {
sub process-module(libpq::Connection $conn, Str:D $segment --> Str:D) {
S:g/'[query|' (.*?) '|]'/&process-query($conn, ~$0)/ given $segment;
}
sub process-query(libpq::Connection:D $conn, Str:D $source --> Str:D) {
multi sub process-query(libpq::Connection:D $conn, Str:D $source --> Str:D) {
$conn.prepare('', $source);
my $description = $conn.describe-prepared('');
my &convert-types = {
@ -79,7 +79,15 @@ sub process-query(libpq::Connection:D $conn, Str:D $source --> Str:D) {
"(Query \"\"\"$source\"\"\" :: Query ($parameters) ($fields))";
}
sub MAIN(Str $connection-string, IO(Cool) $in-file, IO(Cool) $out-file = '-') {
multi sub process-query(libpq::Connection:U $conn, Str:D $source --> Str:D) {
"(Query \"\"\"$source\"\"\")";
}
multi sub MAIN(Str $connection-string, IO(Cool) $in-file, IO(Cool) $out-file = '-', Bool :$syntax-only where !*) {
my $conn = libpq::Connection.new($connection-string);
$out-file.spurt(process-module($conn, $in-file.slurp));
}
multi sub MAIN(IO(Cool) $in-file, IO(Cool) $out-file = '-', Bool :$syntax-only where *) {
$out-file.spurt(process-module(libpq::Connection, $in-file.slurp));
}