Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtinfo/DtMmdb/object/tuple.C

@@ -0,0 +1,170 @@
+/*
+ * $XConsortium: tuple.cc /main/4 1996/06/11 17:26:06 cde-hal $
+ *
+ * Copyright (c) 1993 HAL Computer Systems International, Ltd.
+ * All rights reserved.  Unpublished -- rights reserved under
+ * the Copyright Laws of the United States.  USE OF A COPYRIGHT
+ * NOTICE IS PRECAUTIONARY ONLY AND DOES NOT IMPLY PUBLICATION
+ * OR DISCLOSURE.
+ * 
+ * THIS SOFTWARE CONTAINS CONFIDENTIAL INFORMATION AND TRADE
+ * SECRETS OF HAL COMPUTER SYSTEMS INTERNATIONAL, LTD.  USE,
+ * DISCLOSURE, OR REPRODUCTION IS PROHIBITED WITHOUT THE
+ * PRIOR EXPRESS WRITTEN PERMISSION OF HAL COMPUTER SYSTEMS
+ * INTERNATIONAL, LTD.
+ * 
+ *                         RESTRICTED RIGHTS LEGEND
+ * Use, duplication, or disclosure by the Government is subject
+ * to the restrictions as set forth in subparagraph (c)(l)(ii)
+ * of the Rights in Technical Data and Computer Software clause
+ * at DFARS 252.227-7013.
+ *
+ *          HAL COMPUTER SYSTEMS INTERNATIONAL, LTD.
+ *                  1315 Dell Avenue
+ *                  Campbell, CA  95008
+ * 
+ */
+
+
+#include "object/tuple.h"
+
+#define MAX_COMPS 50
+
+tuple::tuple(c_code_t c_cd) : oid_list(c_cd)
+{
+}
+
+tuple::tuple(int comps, c_code_t c_cd) : oid_list(comps, c_cd)
+{
+}
+
+tuple::tuple(tuple& x) : oid_list(x)
+{
+}
+
+tuple::~tuple()
+{
+}
+
+handler* tuple::get_component(int index) 
+{
+
+//MESSAGE(cerr, "in tuple():: get_component()");
+//debug(cerr, index);
+//debug(cerr, my_oid());
+//debug(cerr, int(storage_ptr));
+
+
+   if (!INRANGE(index, 1, v_sz)) {
+      MESSAGE(cerr, "out of range in tuple::get_component()");
+      throw( boundaryException(1, v_sz, index) );
+   }
+
+   oid_t x = oid_list::operator()(index);
+
+//debug(cerr, x);
+
+//debug(cerr, x.ccode());
+//debug(cerr, x.icode());
+
+   handler* y = 0;
+
+   if ( x.icode() != 0 )
+      y = new handler(x, storage_ptr);
+
+   return y;
+}
+
+Boolean tuple::pinned_insert(int index, const oid_t& val) 
+{
+//MESSAGE(cerr, "in tuple():: pinned_component()");
+//debug(cerr, index);
+//debug(cerr, val);
+      return oid_list::update_component(index, val);
+}
+
+io_status tuple::asciiOut(ostream& out) 
+{
+   out << "OID_T:\n";
+   my_oid().asciiOut(out); 
+   out << "\n";
+   // debug(cerr, v_sz);
+
+   for ( int i=1; i<=v_sz; i++ ) {
+    
+      handler* hd_ptr = get_component(i);
+
+      if ( hd_ptr == 0 )
+         continue;
+
+
+      (*hd_ptr) -> asciiOut(out);
+
+
+      out << "\n";
+
+      delete hd_ptr;
+   }
+   return done;
+}
+
+io_status tuple::asciiIn(istream& in)
+{
+
+/*
+MESSAGE(cerr, "in tuple asciiIn()");
+my_oid().asciiOut(cerr);
+MESSAGE(cerr, "\n");
+*/
+   int comps; in >> comps; 
+
+   if ( comps > MAX_COMPS ) {
+      debug(cerr, comps);
+      throw(stringException("exceed MAX_COMPS"));
+   }
+
+//debug(cerr, comps);
+
+   int ret = in.get();
+
+   if ( ret != '\n' ) {
+      debug(cerr, ret);
+      throw(stringException("'\\n' expected"));
+   }
+
+   if ( comps > v_sz ) {
+MESSAGE(cerr, "tuple asciiIn(): to expand space");
+debug(cerr, comps);
+debug(cerr, v_sz);
+     oid_list::expand_space(comps - v_sz);
+     v_sz = comps;
+   }
+
+
+   handler *hd_ptr = 0;
+
+   for ( int i=1; i<=comps; i++ ) {
+ 
+      c_code_t ccode;
+      in >> ccode;  
+
+      if ( in.get() != '\n' ) {
+         throw(stringException("'\\n' expected"));
+      }
+
+      hd_ptr = new handler(ccode, storage_ptr);
+
+      (*hd_ptr) -> asciiIn(in);
+
+      pinned_insert(i, hd_ptr -> its_oid());
+
+      delete hd_ptr;
+   }
+
+   set_mode(UPDATE, true);
+
+   return done;
+}
+
+MMDB_BODIES(tuple)
+HANDLER_BODIES(tuple)