Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
Peter Howkins
666
cde/programs/dtinfo/DtMmdb/api/info_lib.C
Normal file
666
cde/programs/dtinfo/DtMmdb/api/info_lib.C
Normal file
@@ -0,0 +1,666 @@
|
||||
/*
|
||||
* $XConsortium: info_lib.C /main/9 1996/12/02 12:47:19 cde-hal $
|
||||
*
|
||||
* 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 "unique_id.h"
|
||||
#include "api/info_lib.h"
|
||||
#include "utility/db_version.h"
|
||||
#include "oliasdb/locator_hd.h"
|
||||
#include "oliasdb/graphic_hd.h"
|
||||
|
||||
#ifdef DtinfoClient
|
||||
#include <lib/DtSvc/DtUtil2/LocaleXlate.h>
|
||||
#endif
|
||||
|
||||
/*
|
||||
extern void report_total();
|
||||
extern void reset_total();
|
||||
*/
|
||||
|
||||
int g_mode_8_3 = 0;
|
||||
|
||||
|
||||
typedef char* charPtr;
|
||||
|
||||
info_lib::info_lib(char** set_name_array, char** list_name_array,
|
||||
char* info_lib_dir, char* selected_base_name,
|
||||
char* infoLibName, int des) :
|
||||
set_nm_list(set_name_array), list_nm_list(list_name_array),
|
||||
f_bad_base_array_size(0), f_bad_info_bases(0),
|
||||
f_bad_info_base_names(0), f_bad_info_base_paths(0), f_descriptor(des)
|
||||
|
||||
{
|
||||
//debug(cerr, info_lib_dir);
|
||||
//debug(cerr, infoLibName);
|
||||
|
||||
f_obj_dict = new object_dict;
|
||||
|
||||
if ( info_lib_dir == 0 ) {
|
||||
throw(stringException("NULL info lib path"));
|
||||
}
|
||||
|
||||
if ( check_and_create_dir(info_lib_dir) == false )
|
||||
throw(stringException(
|
||||
form("infolib %s does not exist or can't be created", info_lib_dir)
|
||||
)
|
||||
);
|
||||
|
||||
strcpy(info_lib_path, info_lib_dir);
|
||||
strcpy(info_lib_name, infoLibName);
|
||||
|
||||
fstream *map_in = 0;
|
||||
|
||||
if ( exist_file(MAP_FILE_8_3, info_lib_dir) == true ) {
|
||||
|
||||
map_in = new fstream(form("%s/%s", info_lib_dir, MAP_FILE_8_3), ios::in);
|
||||
|
||||
g_mode_8_3 = 1;
|
||||
|
||||
if ( !map_in -> getline(info_lib_name, PATHSIZ, '\t') ||
|
||||
!map_in -> getline(info_lib_uid, UIDSIZ, '\n')
|
||||
)
|
||||
{
|
||||
throw(stringException(
|
||||
form("infolib %s does not have correct name-id entry", info_lib_dir)
|
||||
)
|
||||
);
|
||||
}
|
||||
} else
|
||||
if ( exist_file(MAP_FILE, info_lib_dir) == true )
|
||||
map_in = new fstream(form("%s/%s", info_lib_dir, MAP_FILE), ios::in);
|
||||
else {
|
||||
return;
|
||||
}
|
||||
|
||||
char base_name[PATHSIZ];
|
||||
char base_desc[PATHSIZ];
|
||||
char base_uid[UIDSIZ];
|
||||
char base_locale[PATHSIZ];
|
||||
char db_path_name[PATHSIZ];
|
||||
|
||||
int major_mm_version = 0;
|
||||
int minor_mm_version = 0;
|
||||
|
||||
|
||||
while ( map_in -> getline(base_name, PATHSIZ, '\t') ) {
|
||||
|
||||
map_in -> getline(base_desc, PATHSIZ, '\t');
|
||||
|
||||
if ( g_mode_8_3 == 1 ) {
|
||||
map_in -> getline(base_uid, PATHSIZ, '\t');
|
||||
map_in -> getline(base_locale, PATHSIZ, '\t');
|
||||
}
|
||||
else
|
||||
base_uid[0] = 0;
|
||||
|
||||
(*map_in) >> major_mm_version >> minor_mm_version;
|
||||
|
||||
map_in -> get();
|
||||
|
||||
if ( base_name[0] != CommentChar ) {
|
||||
|
||||
//debug(cerr, base_name);
|
||||
//debug(cerr, base_desc);
|
||||
//fprintf(stderr, "base_name = %s\n", base_name);
|
||||
|
||||
char* mmdb_lang = getenv("MMDB_LANG");
|
||||
#ifdef MMDB_LANG_DEBUG
|
||||
cerr << "base_locale=" << base_locale << endl;
|
||||
if (mmdb_lang)
|
||||
cerr << "mmdb_lang=" << mmdb_lang << endl;
|
||||
#endif
|
||||
|
||||
if ((selected_base_name == 0 ||
|
||||
strcmp(selected_base_name, base_name) == 0) &&
|
||||
(mmdb_lang == NULL ||
|
||||
strcmp(mmdb_lang, base_locale) == 0 ||
|
||||
strcmp("C.ISO-8859-1", base_locale) == 0))
|
||||
{
|
||||
|
||||
strcpy(db_path_name,
|
||||
form("%s/%s", info_lib_dir, base_name)
|
||||
);
|
||||
|
||||
mm_version mmv_code(MAJOR, MINOR);
|
||||
mm_version mmv_base_data(2, 1);
|
||||
mm_version mmv_data(major_mm_version, minor_mm_version);
|
||||
|
||||
///////////////////////////////////////////////
|
||||
// Hardcoded knowledge of discontinuation of
|
||||
// backward compatibility
|
||||
///////////////////////////////////////////////
|
||||
if ( mmv_data < mmv_base_data ||
|
||||
mmv_data == mmv_base_data ||
|
||||
mmv_code < mmv_data
|
||||
)
|
||||
{
|
||||
|
||||
|
||||
if ( f_bad_base_array_size == 0 ||
|
||||
f_bad_base_array_size <= f_bad_info_bases
|
||||
)
|
||||
{
|
||||
|
||||
if ( f_bad_base_array_size == 0 ) {
|
||||
f_bad_base_array_size = 10;
|
||||
f_bad_info_base_names = new charPtr[f_bad_base_array_size];
|
||||
f_bad_info_base_paths = new charPtr[f_bad_base_array_size];
|
||||
|
||||
for (int i=0; i<f_bad_base_array_size; i++) {
|
||||
f_bad_info_base_paths[i] = 0;
|
||||
f_bad_info_base_names[i] = 0;
|
||||
}
|
||||
|
||||
} else {
|
||||
char** x = new charPtr[2*f_bad_base_array_size];
|
||||
char** y = new charPtr[2*f_bad_base_array_size];
|
||||
|
||||
for (int i=0; i<2*f_bad_base_array_size; i++) {
|
||||
x[i] = 0;
|
||||
y[i] = 0;
|
||||
}
|
||||
|
||||
memcpy(x, f_bad_info_base_names, sizeof(charPtr)*f_bad_base_array_size);
|
||||
memcpy(y, f_bad_info_base_paths, sizeof(charPtr)*f_bad_base_array_size);
|
||||
f_bad_base_array_size *= 2;
|
||||
|
||||
delete f_bad_info_base_names;
|
||||
delete f_bad_info_base_paths;
|
||||
|
||||
f_bad_info_base_names = x;
|
||||
f_bad_info_base_paths = y;
|
||||
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
f_bad_info_base_paths[f_bad_info_bases] = strdup(info_lib_dir);
|
||||
f_bad_info_base_names[f_bad_info_bases] = strdup(base_name);
|
||||
|
||||
f_bad_info_bases++;
|
||||
|
||||
MESSAGE(cerr, "Data and code version mismatch");
|
||||
|
||||
MESSAGE(cerr, form("Data version: v%d.%d",
|
||||
major_mm_version, minor_mm_version
|
||||
));
|
||||
|
||||
MESSAGE(cerr, form("Code version: v%d.%d",
|
||||
MAJOR, MINOR
|
||||
));
|
||||
|
||||
MESSAGE(cerr, form("infobase %s is not available.", base_name));
|
||||
|
||||
continue;
|
||||
}
|
||||
|
||||
//reset_total();
|
||||
_init_info_base(db_path_name, base_name, base_desc, base_uid, base_locale,
|
||||
mm_version(major_mm_version, minor_mm_version));
|
||||
//report_total();
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
map_in -> close();
|
||||
delete map_in ;
|
||||
}
|
||||
|
||||
info_lib::~info_lib()
|
||||
{
|
||||
long ind = first();
|
||||
while ( ind ) {
|
||||
|
||||
info_base* x = (*this)(ind);
|
||||
delete x;
|
||||
|
||||
next(ind) ;
|
||||
}
|
||||
|
||||
if ( f_bad_info_base_paths ) {
|
||||
for (int i=0; i<f_bad_base_array_size; i++) {
|
||||
delete f_bad_info_base_paths[i];
|
||||
}
|
||||
delete f_bad_info_base_paths;
|
||||
}
|
||||
|
||||
|
||||
if ( f_bad_info_base_names ) {
|
||||
for (int i=0; i<f_bad_base_array_size; i++) {
|
||||
delete f_bad_info_base_names[i];
|
||||
}
|
||||
delete f_bad_info_base_names;
|
||||
}
|
||||
|
||||
delete f_obj_dict;
|
||||
}
|
||||
|
||||
|
||||
/* *********************************************************/
|
||||
// init all bases. play the trick by changing the db_path
|
||||
// value to load all info bases (each has different db_path).
|
||||
/* *********************************************************/
|
||||
|
||||
info_base *
|
||||
info_lib::_init_info_base( const char* base_path,
|
||||
const char* base_name,
|
||||
const char* base_desc,
|
||||
const char* base_uid,
|
||||
const char* base_locale,
|
||||
const mm_version& v
|
||||
)
|
||||
{
|
||||
|
||||
/*
|
||||
debug(cerr, base_path);
|
||||
debug(cerr, base_name);
|
||||
*/
|
||||
|
||||
//fprintf(stderr, "init_base\n");
|
||||
//fprintf(stderr, "base_path=%s\n", base_path);
|
||||
//fprintf(stderr, "base_name=%s\n", base_name);
|
||||
|
||||
info_base *x = 0;
|
||||
|
||||
if ( ( x = get_info_base(base_name)) == 0 ) {
|
||||
|
||||
if ( exist_dir(base_path) == false )
|
||||
return 0;
|
||||
|
||||
//fprintf(stderr, "try to init %s\n", base_name);
|
||||
|
||||
try {
|
||||
f_obj_dict -> init_a_base((char*)base_path, (char*)base_name);
|
||||
|
||||
x = new info_base(*f_obj_dict, set_nm_list, list_nm_list,
|
||||
base_path, base_name, base_desc, base_uid, base_locale,
|
||||
v
|
||||
);
|
||||
|
||||
info_base_list.insert_as_tail(new dlist_void_ptr_cell(x));
|
||||
}
|
||||
|
||||
catch (mmdbException &,e)
|
||||
{
|
||||
//fprintf(stderr, "in catch block\n");
|
||||
return 0;
|
||||
} end_try;
|
||||
|
||||
}
|
||||
|
||||
return x;
|
||||
}
|
||||
|
||||
|
||||
/******************************************/
|
||||
//
|
||||
// def_strings array:
|
||||
//
|
||||
// def_strings[0] : infobase name
|
||||
// def_strings[1] : infobase textual description
|
||||
// def_strings[2] : define spec file name (full path)
|
||||
//
|
||||
/******************************************/
|
||||
|
||||
Boolean
|
||||
info_lib::define_info_base( char* base_name, char* base_desc,
|
||||
char* spec_file_path
|
||||
)
|
||||
{
|
||||
//MESSAGE(cerr, "define_info_base()");
|
||||
//debug(cerr, base_name);
|
||||
//debug(cerr, base_desc);
|
||||
//debug(cerr, spec_file_path);
|
||||
|
||||
char new_db_path[PATHSIZ];
|
||||
char f_name[PATHSIZ];
|
||||
char base_uid[UIDSIZ];
|
||||
|
||||
strcpy(new_db_path, form("%s/%s", info_lib_path, base_name));
|
||||
|
||||
strcpy(base_uid, unique_id());
|
||||
|
||||
g_mode_8_3 = 1;
|
||||
|
||||
info_base* base = get_info_base(base_name) ;
|
||||
|
||||
/* no checking here. DDK assures unique base name case
|
||||
if ( base == 0 ) {
|
||||
*/
|
||||
|
||||
//////////////////////////
|
||||
// check info base path
|
||||
//////////////////////////
|
||||
if ( check_and_create_dir(new_db_path) == false ) {
|
||||
throw(stringException(form("bad base bath %s", new_db_path)));
|
||||
}
|
||||
|
||||
//////////////////////////
|
||||
// remove any old files
|
||||
//////////////////////////
|
||||
|
||||
strcpy(f_name, form("%s.%s", base_name, DATA_FILE_SUFFIX));
|
||||
if ( exist_file(f_name, new_db_path) == true )
|
||||
del_file(f_name, new_db_path);
|
||||
|
||||
strcpy(f_name, form("%s.%s", base_name, INDEX_FILE_SUFFIX));
|
||||
if ( exist_file(f_name, new_db_path) == true )
|
||||
del_file(f_name, new_db_path);
|
||||
|
||||
strcpy(f_name, form("%s.%s", base_name, SCHEMA_FILE_SUFFIX));
|
||||
if ( exist_file(f_name, new_db_path) == true )
|
||||
del_file(f_name, new_db_path);
|
||||
|
||||
|
||||
f_obj_dict -> init_a_base(spec_file_path, new_db_path, base_name);
|
||||
|
||||
const char* lang;
|
||||
if ((lang = getenv("LC_ALL")) == NULL)
|
||||
if ((lang = getenv("LC_CTYPE")) == NULL)
|
||||
if ((lang = getenv("LANG")) == NULL)
|
||||
lang = "C";
|
||||
|
||||
#ifdef DtinfoClient
|
||||
_DtXlateDb db = NULL;
|
||||
char* std_locale = NULL;
|
||||
|
||||
if (_DtLcxOpenAllDbs(&db) == 0)
|
||||
{
|
||||
char platform[_DtPLATFORM_MAX_LEN + 1];
|
||||
int execver, compver;
|
||||
|
||||
if (_DtXlateGetXlateEnv(db, platform, &execver, &compver) == 0)
|
||||
{
|
||||
_DtLcxXlateOpToStd(db, platform, compver, DtLCX_OPER_SETLOCALE,
|
||||
lang, &std_locale, NULL, NULL, NULL);
|
||||
}
|
||||
_DtLcxCloseDb(&db);
|
||||
db = NULL;
|
||||
}
|
||||
#endif
|
||||
|
||||
base = new info_base(*f_obj_dict, set_nm_list, list_nm_list,
|
||||
new_db_path, base_name, base_desc, base_uid,
|
||||
#ifdef DtinfoClient
|
||||
std_locale ? std_locale : lang,
|
||||
#else
|
||||
lang,
|
||||
#endif
|
||||
mm_version(MAJOR, MINOR)
|
||||
);
|
||||
|
||||
info_base_list.insert_as_tail(new dlist_void_ptr_cell(base));
|
||||
|
||||
/*************************************/
|
||||
// add the base name and description
|
||||
// to the names file
|
||||
/*************************************/
|
||||
char* lib_nm = form("%s/%s", info_lib_path, MAP_FILE_8_3);
|
||||
|
||||
fstream nm_out(lib_nm, ios::app, open_file_prot());
|
||||
|
||||
if ( !nm_out ) {
|
||||
MESSAGE(cerr, form("can't open %s/%s for append",
|
||||
info_lib_path, MAP_FILE_8_3)
|
||||
);
|
||||
throw(streamException(nm_out.rdstate()));
|
||||
}
|
||||
|
||||
if ( bytes(nm_out) == 0 ) {
|
||||
char* lib_entry = form("%s\t%s\n", info_lib_name, unique_id());
|
||||
|
||||
if ( !(nm_out << lib_entry) ) {
|
||||
MESSAGE(cerr,
|
||||
form("write %s.%s failed", info_lib_path, MAP_FILE_8_3));
|
||||
throw(streamException(nm_out.rdstate()));
|
||||
}
|
||||
}
|
||||
|
||||
char* base_entry = form("%s\t%s\t%s\t%s\t%d\t%d\n",
|
||||
base_name, base_desc, base_uid,
|
||||
#ifdef DtinfoClient
|
||||
std_locale ? std_locale: lang,
|
||||
#else
|
||||
lang,
|
||||
#endif
|
||||
MAJOR, MINOR
|
||||
);
|
||||
#ifdef DtinfoClient
|
||||
if (std_locale)
|
||||
free(std_locale);
|
||||
#endif
|
||||
|
||||
if ( !(nm_out << base_entry) ) {
|
||||
MESSAGE(cerr, form("write %s.%s failed", info_lib_path, MAP_FILE_8_3));
|
||||
throw(streamException(nm_out.rdstate()));
|
||||
}
|
||||
|
||||
nm_out.close();
|
||||
|
||||
if ( nm_out.fail() ) {
|
||||
MESSAGE(cerr, form("close %s.%s failed", info_lib_path, MAP_FILE_8_3));
|
||||
throw(streamException(nm_out.rdstate()));
|
||||
}
|
||||
|
||||
//}
|
||||
|
||||
|
||||
//MESSAGE(cerr, "define() done");
|
||||
return true;
|
||||
}
|
||||
|
||||
info_base* info_lib::get_info_base(const char* info_base_nm)
|
||||
{
|
||||
long ind = first();
|
||||
//debug(cerr, ind);
|
||||
|
||||
while ( ind ) {
|
||||
info_base* x = (*this)(ind);
|
||||
|
||||
/*
|
||||
debug(cerr, int(x));
|
||||
debug(cerr, x -> base_name);
|
||||
debug(cerr, info_base_nm);
|
||||
*/
|
||||
|
||||
if ( strcmp ( x -> base_name, info_base_nm) == 0 )
|
||||
return x;
|
||||
next(ind) ;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* inline */
|
||||
/*
|
||||
int info_lib::num_of_bases()
|
||||
{
|
||||
return info_base_list.count();
|
||||
}
|
||||
*/
|
||||
|
||||
/*************************/
|
||||
// iteration funcstions
|
||||
/*************************/
|
||||
/* inline */
|
||||
/*
|
||||
int info_lib::first()
|
||||
{
|
||||
return info_base_list.first();
|
||||
}
|
||||
|
||||
info_base* info_lib::operator()(int ind)
|
||||
{
|
||||
return (info_base*)(((dlist_void_ptr_cell*)ind)->void_ptr());
|
||||
}
|
||||
|
||||
void info_lib::next(int& ind)
|
||||
{
|
||||
info_base_list.next(ind) ;
|
||||
}
|
||||
*/
|
||||
|
||||
|
||||
int info_lib::bad_infobases()
|
||||
{
|
||||
return f_bad_info_bases;
|
||||
|
||||
}
|
||||
|
||||
const char* info_lib::get_bad_infobase_path(int x)
|
||||
{
|
||||
if ( x <= 0 || x > f_bad_info_bases )
|
||||
return 0;
|
||||
|
||||
return f_bad_info_base_paths[x-1];
|
||||
}
|
||||
|
||||
const char* info_lib::get_bad_infobase_name(int x)
|
||||
{
|
||||
if ( x <= 0 || x > f_bad_info_bases )
|
||||
return 0;
|
||||
|
||||
return f_bad_info_base_names[x-1];
|
||||
}
|
||||
|
||||
|
||||
info_base*
|
||||
info_lib::getInfobaseByComponent(const char *locator_string, enum TestSelector sel)
|
||||
{
|
||||
|
||||
if ( locator_string == 0 )
|
||||
return 0;
|
||||
|
||||
info_base* ib = 0;
|
||||
|
||||
long ind = first();
|
||||
|
||||
while ( ind ) {
|
||||
|
||||
ib = (*this)(ind);
|
||||
|
||||
if (ib==0)
|
||||
throw(stringException("null info_base ptr"));
|
||||
|
||||
try { // since an infobase may not have any graphics, we catch
|
||||
// any exceptions there and try next infobase.
|
||||
|
||||
switch (sel) {
|
||||
case LOC:
|
||||
{
|
||||
locator_smart_ptr loc(ib, locator_string);
|
||||
|
||||
//fprintf(stderr, "inside-loc-string=%s\n", loc.inside_node_locator_str());
|
||||
//fprintf(stderr, "loc-string=%s\n", locator_string);
|
||||
if ( strcmp( loc.inside_node_locator_str(), locator_string) == 0 ) {
|
||||
return ib;
|
||||
}
|
||||
|
||||
}
|
||||
case GRA:
|
||||
{
|
||||
graphic_smart_ptr graphic(ib, locator_string);
|
||||
|
||||
if ( strcmp( graphic.locator(), locator_string) == 0 ) {
|
||||
return ib;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
catch (mmdbException &,e)
|
||||
{
|
||||
} end_try;
|
||||
|
||||
|
||||
next(ind);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
info_base**
|
||||
info_lib::getInfobasesByComponent(char **locator_strings, int count, enum TestSelector sel)
|
||||
{
|
||||
info_base** ibs = new info_basePtr[count];
|
||||
for ( int i=0; i<count; ibs[i++] = 0 );
|
||||
|
||||
info_base* ib = 0;
|
||||
|
||||
long ind = first();
|
||||
|
||||
while ( ind ) {
|
||||
|
||||
ib = (*this)(ind);
|
||||
|
||||
if (ib == 0)
|
||||
throw(stringException("null info_base ptr"));
|
||||
|
||||
for ( i=0; i<count; i++ ) {
|
||||
|
||||
try {
|
||||
|
||||
if ( locator_strings[i] && ibs[i] == 0 ) {
|
||||
switch (sel) {
|
||||
case LOC:
|
||||
{
|
||||
locator_smart_ptr loc(ib, locator_strings[i]);
|
||||
|
||||
if ( strcmp( loc.inside_node_locator_str(),
|
||||
locator_strings[i]) == 0
|
||||
)
|
||||
ibs[i] = ib;
|
||||
}
|
||||
break;
|
||||
|
||||
case GRA:
|
||||
{
|
||||
graphic_smart_ptr graphic(ib, locator_strings[i]);
|
||||
|
||||
if ( strcmp( graphic.locator(),
|
||||
locator_strings[i]) == 0
|
||||
)
|
||||
ibs[i] = ib;
|
||||
}
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
catch (mmdbException &,e)
|
||||
{
|
||||
} end_try;
|
||||
|
||||
}
|
||||
|
||||
next(ind);
|
||||
}
|
||||
|
||||
return ibs;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user