Changeset 19337 for ext

Timestamp:

01/05/08 08:38:40 (12 months ago)

Author:

Darren_Duncan

Message:

ext/Muldis-DB/ : in Value.pm, demoted Order type from generic to catalog-specific

Location:

ext/Muldis-DB

Files:

• TODO (modified) (1 diff)
• lib/Muldis/DB/Engine/Example/Value.pm (modified) (6 diffs)

ext/Muldis-DB/TODO

@@ -35 +35 @@
 * Update the Example Engine to implement the rest of the relational
 algebra|calculus operators, as well as all the reasonable operators for
-other core data types: Bool, Order, Int, Num, Blob, Text.
+other core data types: Bool, Int, Rat, Blob, Text.
 
 * Update the Example Engine to implement persisting databases.  For

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

@@ -7 +7 @@
 my Bool $BOOL_TRUE  = Bool::True;
 
-my Order $ORDER_INCREASE = (1 <=> 2);
-my Order $ORDER_SAME     = (1 <=> 1);
-my Order $ORDER_DECREASE = (2 <=> 1);
+my Order $CAT_ORDER_INCREASE = (1 <=> 2);
+my Order $CAT_ORDER_SAME     = (1 <=> 1);
+my Order $CAT_ORDER_DECREASE = (2 <=> 1);
 
 my Str $EMPTY_STR = q{};
@@ -24 +24 @@
         (Bool :$v!) is export {
     return ::Muldis::DB::Engine::Example::Value::Bool.new( :v($v) );
-}
-
-sub newOrder of Muldis::DB::Engine::Example::Value::Order
-        (Order :$v!) is export {
-    return ::Muldis::DB::Engine::Example::Value::Order.new( :v($v) );
 }
 
@@ -71 +66 @@
     return ::Muldis::DB::Engine::Example::Value::Relation.new(
         :heading($heading), :body($body) );
+}
+
+sub newCat_Order of Muldis::DB::Engine::Example::Value::Cat_Order
+        (Order :$v!) is export {
+    return ::Muldis::DB::Engine::Example::Value::Cat_Order.new( :v($v) );
 }
 
@@ -202 +202 @@
 
 } # class Muldis::DB::Engine::Example::Value::Bool
-
-###########################################################################
-###########################################################################
-
-class Muldis::DB::Engine::Example::Value::Order {
-    does Muldis::DB::Engine::Example::Value::Scalar;
-
-    has Order $!v;
-
-###########################################################################
-
-submethod BUILD (Order :$v!) {
-    $!v = $v;
-    return;
-}
-
-###########################################################################
-
-method _root_type of Str () {
-    return 'sys.Core.Order.Order';
-}
-
-method _which of Str () {
-    return ~$!v;
-}
-
-###########################################################################
-
-method _is_equal of Order (::T $self: T $other!) {
-    return $other!v === $self!v;
-}
-
-###########################################################################
-
-method v of Order () {
-    return $!v;
-}
-
-###########################################################################
-
-} # class Muldis::DB::Engine::Example::Value::Order
 
 ###########################################################################
@@ -579 +538 @@
 ###########################################################################
 
+class Muldis::DB::Engine::Example::Value::Cat_Order {
+    does Muldis::DB::Engine::Example::Value::Scalar;
+
+    has Order $!v;
+
+###########################################################################
+
+submethod BUILD (Order :$v!) {
+    $!v = $v;
+    return;
+}
+
+###########################################################################
+
+method _root_type of Str () {
+    return 'sys.Core.Cat.Order';
+}
+
+method _which of Str () {
+    return ~$!v;
+}
+
+###########################################################################
+
+method _is_equal of Bool (::T $self: T $other!) {
+    return $other!v === $self!v;
+}
+
+###########################################################################
+
+method v of Order () {
+    return $!v;
+}
+
+###########################################################################
+
+} # class Muldis::DB::Engine::Example::Value::Cat_Order
+
+###########################################################################
+###########################################################################
+
 =pod
 
@@ -606 +606 @@
 
 Specifically, this file represents the core system-defined data types that
-all Muldis D implementations must have, namely: Bool, Order, Int, Rat,
-Blob, Text, Tuple, Relation, QuasiTuple, QuasiRelation, and the Cat.*
-types.
+all Muldis D implementations must have, namely: Bool, Int, Rat, Blob, Text,
+Tuple, Relation, QuasiTuple, QuasiRelation, and the Cat.* types.
 
 By contrast, the optional data types are given physical representations by