Changeset 18252 for ext

Timestamp:

10/01/07 06:02:24 (16 months ago)

Author:

Darren_Duncan

Message:

ext/Muldis-DB/ : the Muldis DB API now has users specify the AST language of interaction

Location:

ext/Muldis-DB

Files:

• Changes (modified) (1 diff)
• lib/Muldis/DB/Engine/Example.pm (modified) (5 diffs)
• lib/Muldis/DB/Interface.pm (modified) (7 diffs)
• lib/Muldis/DB/Validator.pm (modified) (1 diff)

ext/Muldis-DB/Changes

@@ -2 +2 @@
 ---------------------------------------------------------------------------
 
-2007-09-22   Darren Duncan <perl@DarrenDuncan.net>
-
-    * Muldis DB version 0.4.0 for Perl 5 is released on CPAN as
-    Muldis-DB-0.4.0.tar.gz.  Muldis DB version 0.4.0 for Perl 6 is not
+2007-10-xx   Darren Duncan <perl@DarrenDuncan.net>
+
+    * Muldis DB version 0.5.0 for Perl 5 is released on CPAN as
+    Muldis-DB-0.5.0.tar.gz.  Muldis DB version 0.5.0 for Perl 6 is not
     released at this time, if ever, since it is currently released only as
     part of the Perl6-Pugs project (in its ext/Muldis-DB/ subdirectory),
     which sets its own less frequent release schedule.  The rest of this
     Changes entry refers only to the Perl 5 version.
+
+    * New file versions are: DB.pm and Interface.pm and Validator.pm and
+    Example.pm 0.5.0.  The other pre-existing versioned files are
+    unchanged.
+
+    * (Interface.pm, Example.pm, Validator.pm)  Added a new attribute to
+    the DBMS role (and Example's doing class), "expected AST language",
+    with which Muldis DB users explicitly declare what Muldis DB (or
+    alternative) language version they expect to use for further
+    interaction with that DBMS.  The new_dbms constructor function gains a
+    parameter ('exp_ast_lang') for setting its default value, and the DBMS
+    role gains 2 methods for fetching/updating that attribute.  Note that,
+    unlike the engine_name and dbms_config parameters, exp_ast_lang is
+    generally not suited to read from a config file, as it is meant to
+    correspond to program code rather than a user's runtime setting.  The
+    &main of Validator.pm was updated to provide a hard-coded argument for
+    exp_ast_lang, which will be maintained in future releases at the latest
+    official Muldis D version number known to work at the time.
+
+2007-09-22   Darren Duncan <perl@DarrenDuncan.net>
+
+    * Muldis DB version 0.4.0 for Perl 5 is released on CPAN as
+    Muldis-DB-0.4.0.tar.gz.  Muldis DB version 0.4.0 for Perl 6 is not
+    released at all.  The rest of this Changes entry refers only to the
+    Perl 5 version.
 
     * This release is a snapshot to show a particular mid-way point in a

ext/Muldis-DB/lib/Muldis/DB/Engine/Example.pm

@@ -13 +13 @@
 
 sub new_dbms of Muldis::DB::Engine::Example::Public::DBMS
-        (Any :$dbms_config!) {
+        (Array :$exp_ast_lang!, Any :$dbms_config!) {
     return ::Muldis::DB::Engine::Example::Public::DBMS.new(
-        :dbms_config($dbms_config) );
+        :exp_ast_lang($exp_ast_lang), :dbms_config($dbms_config) );
 }
 
@@ -36 +36 @@
     # For the moment, the Example Engine doesn't actually have anything
     # that can be configured in this way, so input $dbms_config is ignored.
+    has Any $!exp_ast_lang;
     has Any $!dbms_config;
 
@@ -51 +52 @@
 ###########################################################################
 
-submethod BUILD (Any :$dbms_config!) {
-
-    $!dbms_config = $dbms_config;
+submethod BUILD (Array :$exp_ast_lang!, Any :$dbms_config!) {
+
+    # TODO: input checks.
+    $!exp_ast_lang = [$exp_ast_lang.values];
+    $!dbms_config  = $dbms_config;
 
     $!assoc_vars          = {};
@@ -67 +70 @@
     # TODO: check for active trans and rollback ... or member VM does it.
     # Likewise with closing open files or whatever.
+    return;
+}
+
+###########################################################################
+
+method fetch_exp_ast_lang of Array () {
+    return [$!exp_ast_lang.values];
+}
+
+method store_exp_ast_lang (Array :$lang!) {
+    # TODO: input checks.
+    $!exp_ast_lang = [$lang.values];
     return;
 }
@@ -210 +225 @@
 #    return $!var.as_phmd(); # TODO; or some such
 }
-
-###########################################################################
 
 method store_ast (Array :$ast!) {

ext/Muldis-DB/lib/Muldis/DB/Interface.pm

@@ -10 +10 @@
 
 sub new_dbms of Muldis::DB::Interface::DBMS
-        (Str :$engine_name!, Any :$dbms_config!) {
+        (Str :$engine_name!, Array :$exp_ast_lang!, Any :$dbms_config!) {
 
     die q{new_dbms(): Bad :$engine_name arg; it is not an object of a}
@@ -37 +37 @@
     my $dbms = undef;
     try {
-        $dbms = &::($engine_name)::new_dbms( :dbms_config($dbms_config) );
+        $dbms = &::($engine_name)::new_dbms(
+            :exp_ast_lang($exp_ast_lang), :dbms_config($dbms_config) );
     };
     if (my $err = $!) {
@@ -60 +61 @@
 role Muldis::DB::Interface::DBMS {
 
+    method fetch_exp_ast_lang {
+        die q{not implemented by subclass } ~ self.WHAT;
+    }
+
+    method store_exp_ast_lang {
+        die q{not implemented by subclass } ~ self.WHAT;
+    }
+
     method new_var {
         die q{not implemented by subclass } ~ self.WHAT;
@@ -242 +251 @@
     my $dbms = Muldis::DB::Interface::new_dbms(
         :engine_name('Muldis::DB::Engine::Example'),
+        :exp_ast_lang([ 'MuldisD', 'cpan:DUNCAND', '0.8.1' ]),
         :dbms_config({}),
     );
@@ -345 +355 @@
 =over
 
-=item C<new_dbms of Muldis::DB::Interface::DBMS (Str :$engine_name!, Any
-:$dbms_config!)>
+=item C<new_dbms of Muldis::DB::Interface::DBMS (Str :$engine_name!, Array
+:$exp_ast_lang!, Any :$dbms_config!)>
 
 This constructor function creates and returns a C<DBMS> object that is
@@ -358 +368 @@
 role.  This function will start by testing if the root package is already
 loaded (it may be declared by some already-loaded file of another name),
-and only if not, will it do a Perl 'require' of the C<$engine_name>.
+and only if not, will it do a Perl 'require' of the C<$engine_name>.  The
+new C<DBMS> object's "expected AST language" attribute is initialized from
+the C<$exp_ast_lang> argument, which is a 3-element Array as described for
+the argument of the C<DBMS> method C<store_exp_ast_lang> (if applicable,
+the C<$dbms_config> argument is interpreted in light of C<$exp_ast_lang>).
 
 =back
@@ -374 +388 @@
 
 =over
+
+=item C<fetch_exp_ast_lang of Array ()>
+
+This method returns, as a 3-element (ordered) Array, the long name of the
+Muldis D (or alternative) language version that its invocant C<DBMS> object
+and its associated/child objects expect their AST/code/value input to
+conform to, and that their AST/code/value output will conform to.  The 3
+elements of the array (each a Str) are, in order, the language spec base
+name (typically C<MuldisD>), the language spec authority (typically
+C<cpan:DUNCAND> when the base name is C<MuldisD>), and the language spec
+version number (looks like C<1.2.3> for C<MuldisD> plus C<cpan:DUNCAND>).
+
+=item C<store_exp_ast_lang (Array :$lang!)>
+
+This method assigns a new expected language long name to its invocant
+C<DBMS>, which is supplied in the C<$lang> argument; the argument is
+expected to be a 3-element Array as described for C<fetch_exp_ast_lang>.
+This method dies if the specified language/version isn't one that the
+invocant's Engine knows how to or desires to handle.
 
 =item C<new_var of Muldis::DB::Interface::Var (Str :$decl_type!)>

ext/Muldis-DB/lib/Muldis/DB/Validator.pm

@@ -20 +20 @@
     # Instantiate a Muldis DB DBMS / virtual machine.
     my Muldis::DB::Interface::DBMS $dbms = Muldis::DB::Interface::new_dbms(
-        :engine_name($engine_name), :dbms_config($dbms_config) );
+        :engine_name($engine_name),
+        :exp_ast_lang([ 'MuldisD', 'cpan:DUNCAND', '0.8.1' ]),
+        :dbms_config($dbms_config),
+    );
     does_ok( $dbms, 'Muldis::DB::Interface::DBMS' );