use v6;
need DBDish;

unit class DBDish::Pg:auth<mberends>:ver<0.6.4> does DBDish::Driver;
use DBDish::Pg::Native;
need DBDish::Pg::Connection;

my grammar PgTokenizer {
    token double_quote_normal { <-[\\"]>+ }
    token double_quote_escape { [\\ . ]+ }
    token double_quote {
        \"
        [
        | <.double_quote_normal>
        | <.double_quote_escape>
        ]*
        \"
    }
    token single_quote_normal { <-['\\]>+ }
    token single_quote_escape { [ \'\' | \\ . ]+ }
    token single_quote {
        \'
        [
        | <.single_quote_normal>
        | <.single_quote_escape>
        ]*
        \'
    }
    token dollar_placeholder {\$<digit>+}
    token dollar_quote {
        ( \$\$ | \$<alpha><alnum>*\$ ) .*? $0
    }
    token placeholder { '?' }
    token normal { <-[?"'$]>+ }

    token TOP {
        ^
        (
        | <normal>
        | <placeholder>
        | <dollar_placeholder>
        | <dollar_quote>
        | <single_quote>
        | <double_quote>
        )*
        $
    }
}

my class PgTokenizer::Actions {
    has $.counter = 0;
    method single_quote($/) { make $/.Str }
    method dollar_placeholder($/) { make $/.Str }
    method dollar_quote($/) { make $/.Str }
    method double_quote($/) { make $/.Str }
    method placeholder($/)  { make '$' ~ ++$!counter }
    method normal($/)       { make $/.Str }
    method TOP($/) {
        make $0.flatmap({.values[0].ast}).join;
    }
}

our sub pg-replace-placeholder(Str $query) is export {
    PgTokenizer.parse($query, :actions(PgTokenizer::Actions.new))
            and $/.ast;
}


#------------------ methods to be called from DBIish ------------------

method connect(:database(:$dbname), *%params) {

    %params.push((:$dbname)) with $dbname;
    my $pg-conn = PGconn.new(%(%params<
    host hostaddr port dbname user password connect-timeout
    client-encoding options application-name keepalives keepalives-idle
    keepalives-interval sslmode requiressl sslcert sslkey sslrootcert
    sslcrl requirepeer krbsrvname gsslib service>:p:delete));
    my $status = $pg-conn.PQstatus;
    if $status == CONNECTION_OK {
        DBDish::Pg::Connection.new(:$pg-conn, :parent(self), |%params);
    }
    else {
        self!conn-error: :code($status) :errstr($pg-conn.PQerrorMessage);
    }
}

method version {
    my $ver = PQlibVersion;
    $ver = Version.new((gather for ^3 { take $ver mod 100; $ver div= 100 }).reverse);
    CATCH { when X::AdHoc { } }
    $ver;
}

method data-sources(*%params) {
    with self.connect(:dbname<template1>, |%params) {
        LEAVE { .dispose }
        with .prepare('SELECT pg_catalog.quote_ident(datname) FROM pg_catalog.pg_database ORDER BY 1') {
            .execute;
            .allrows.map({ dbname => .[0] }) . eager; # 'cus this conn will be disposed
        } else { .fail }
    } else { .fail }
}



DESCRIPTION'DBIish' and # 'DBDish::Pg' are Perl 6 modules that use Rakudo's
# NativeCall to use the standard libpq library.
# There is a long term Rakudo based project to develop a new,
# comprehensive DBI architecture for Rakudo and Perl 6.
# DBIish is not that, it is a naive rewrite of the similarly named Perl 5 modules.


head

CLASSES
The DBDish::Pg module contains the same classes and methods as every
database driver.  Therefore read the main documentation of usage in
L<doc:DBIish> and internal architecture in L<doc:DBDish>.  Below are
only notes about code unique to the DBDish::Pg implementation.


SEE ALSO
The PostgreSQL Documentation, C Library.
L<https://www.postgresql.org/docs/current/static/libpq.html>


root

StatementHandle

Oracle

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Pg

CLASSES The DBDish::Pg module contains the same classes and methods as every database driver. Therefore read the main documentation of usage in DBIish and internal architecture in doc: DBDish not found. Below are only notes about code unique to the DBDish::Pg implementation.

SEE ALSO The PostgreSQL Documentation, C Library. https://www.postgresql.org/docs/current/static/libpq.html

DBIish v0.6.4

Authors

License

Dependencies

Test Dependencies

Provides

Documentation