1 files changed, 188 insertions, 0 deletions
diff --git a/odb/odb/relational/oracle/context.hxx b/odb/odb/relational/oracle/context.hxx
new file mode 100644
index 0000000..6c55853
--- /dev/null
+++ b/odb/odb/relational/oracle/context.hxx
@@ -0,0 +1,188 @@
+// file      : odb/relational/oracle/context.hxx
+// license   : GNU GPL v3; see accompanying LICENSE file
+
+#ifndef ODB_RELATIONAL_ORACLE_CONTEXT_HXX
+#define ODB_RELATIONAL_ORACLE_CONTEXT_HXX
+
+#include <map>
+
+#include <odb/relational/context.hxx>
+
+namespace relational
+{
+  namespace oracle
+  {
+    struct sql_type
+    {
+      // Keep the order in each block of types.
+      //
+      enum core_type
+      {
+        // Numeric types.
+        //
+        NUMBER,
+        FLOAT,
+
+        // Floating point types.
+        //
+        BINARY_FLOAT,
+        BINARY_DOUBLE,
+
+        // Date-time types.
+        //
+        DATE,
+        TIMESTAMP,
+        INTERVAL_YM,
+        INTERVAL_DS,
+
+        // String and binary types.
+        //
+        CHAR,
+        NCHAR,
+        VARCHAR2,
+        NVARCHAR2,
+        RAW,
+
+        // LOB types.
+        //
+        BLOB,
+        CLOB,
+        NCLOB,
+
+        // Invalid type.
+        //
+        invalid
+      };
+
+      sql_type () :
+          type (invalid), prec (false), scale (false), byte_semantics (true)
+      {
+      }
+
+      core_type type;
+
+      bool prec;
+      unsigned short prec_value; // Oracle max value is 4000.
+
+      bool scale;
+      short scale_value; // Oracle min value is -84. Max value is 127.
+
+      bool byte_semantics;
+
+      // Conversion expressions for custom database types.
+      //
+      std::string to;
+      std::string from;
+    };
+
+    class context: public virtual relational::context
+    {
+    public:
+      sql_type const&
+      parse_sql_type (string const&,
+                      semantics::data_member&,
+                      bool custom = true);
+    public:
+      struct invalid_sql_type
+      {
+        invalid_sql_type (string const& message): message_ (message) {}
+
+        string const&
+        message () const {return message_;}
+
+      private:
+        string message_;
+      };
+
+      // If custom_db_types is NULL, then this function returns
+      // invalid type instead of throwing in case an unknown type
+      // is encountered.
+      //
+      static sql_type
+      parse_sql_type (string, custom_db_types const* = 0);
+
+    public:
+      // If necessary, unwraps.
+      //
+      static bool
+      unsigned_integer (semantics::type&);
+
+    public:
+      // Construct sequence name from a given table name.
+      //
+      qname
+      sequence_name (qname const& table);
+
+    protected:
+      virtual string const&
+      convert_expr (string const&, semantics::data_member&, bool);
+
+      virtual string
+      quote_id_impl (qname const&) const;
+
+    protected:
+      virtual string
+      database_type_impl (semantics::type&, semantics::names*, bool, bool*);
+
+    public:
+      virtual
+      ~context ();
+
+      context ();
+      context (std::ostream&,
+               semantics::unit&,
+               options_type const&,
+               features_type&,
+               sema_rel::model*);
+
+      static context&
+      current ()
+      {
+        return *current_;
+      }
+
+    private:
+      static context* current_;
+
+    private:
+      struct data: base_context::data
+      {
+        data (std::ostream& os): base_context::data (os) {}
+
+        struct sql_type_cache_entry
+        {
+          sql_type_cache_entry ()
+              : custom_cached (false), straight_cached (false) {}
+
+          sql_type const&
+          cache_custom (sql_type const& t)
+          {
+            custom = t;
+            custom_cached = true;
+            return custom;
+          }
+
+          sql_type const&
+          cache_straight (sql_type const& t)
+          {
+            straight = t;
+            straight_cached = true;
+            return straight;
+          }
+
+          sql_type custom;   // With custom mapping.
+          sql_type straight; // Without custom mapping.
+
+          bool custom_cached;
+          bool straight_cached;
+        };
+
+        typedef std::map<string, sql_type_cache_entry> sql_type_cache;
+        sql_type_cache sql_type_cache_;
+      };
+      data* data_;
+    };
+  }
+}
+
+#endif // ODB_RELATIONAL_ORACLE_CONTEXT_HXX