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

cde/programs/dtinfo/DtMmdb/oliasdb/mark_base.C

@@ -0,0 +1,133 @@
+/*
+ * $XConsortium: mark_base.cc /main/7 1996/07/18 14:47:29 drk $
+ *
+ * Copyright (c) 1992 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 "oliasdb/mark_base.h"
+#include "oliasdb/mark.h"
+#include "utility/debug.h"
+#include "misc/unique_id.h"
+
+mark_base::mark_base(user_base::rw_flag_t rw) : 
+	user_base(MARK_SPEC, rw)
+{
+}
+
+
+mark_base::mark_base( const char* base_dir, 
+                      const char* base_nm,
+                      const char* base_ds,
+		      user_base::rw_flag_t rw 
+                    ) : 
+	user_base(base_dir, base_nm, base_ds, MARK_SPEC, rw) 
+{
+   if ( checking_status != SUCC ) 
+      return;
+
+   desc* ptr = first_desc_ptr;
+
+   if ( ptr == 0 ) 
+      throw(stringException("empty mark specification"));
+     
+   while ( ptr ) {
+     if ( strcmp( ptr -> get_type(), "container	set") == 0 ) {
+        mark_set_hd = (cset_handler*)
+            (f_obj_dict -> get_handler(ptr -> get_nm()));
+        return;
+     }
+     ptr = ptr -> get_next_desc();
+   }
+
+   throw(stringException("can't find mark set description record"));
+}
+
+mark_base::~mark_base()
+{
+}
+
+oid_list_handler* mark_base::get_mark_list(const char* node_locator)
+{
+#ifdef INTERCEPT_MARK_BASE_CALLS
+MESSAGE(cerr, "mark_base::get_mark_list()");
+debug(cerr, node_locator);
+#endif
+
+   pstring* x = new pstring(node_locator, strlen(node_locator));
+   handler y(x, 0);
+
+   oid_list_handler*z = (*mark_set_hd) -> get_locs(y, 1);
+
+#ifdef INTERCEPT_MARK_BASE_CALLS
+if (z) 
+  debug(cerr, (*z) -> asciiOut(cerr));
+#endif
+
+   return z;
+}
+    
+mmdb_pos_t mark_base::first()
+{
+   page_storage *s = (page_storage*)((*mark_set_hd) -> get_store());
+
+   mmdb_pos_t ind = s -> first_loc();
+
+   if ( managers::template_mgr -> peek_slot(s, ind) != USER_MARK_CODE ) {
+      this -> next(ind);
+   }
+
+   return ind;
+}
+   
+oid_t mark_base::get_mark_oid(mmdb_pos_t& ind)
+{
+   page_storage *s = (page_storage*)((*mark_set_hd) -> get_store());
+
+   root *r = 0;
+   managers::template_mgr -> init_obj(s, ind, r);
+
+   if (r==0)
+      throw(stringException("null root object pointer"));
+
+   oid_t x = r -> my_oid();
+   delete r;
+
+   return x;
+}
+
+void mark_base::next(mmdb_pos_t& ind)
+{
+   page_storage *s = (page_storage*)((*mark_set_hd) -> get_store());
+
+   while ( s -> seek_loc( ind, positive, spointer_t::IS_OBJECT ) == true ) {
+     if ( managers::template_mgr -> peek_slot(s, ind) == USER_MARK_CODE ) {
+        return;
+     }
+   }
+
+   ind = 0;
+}
+