debian/cdesktop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Peter Howkins
2012-03-10 18:21:40 +00:00
commit 83b6996daa
18978 changed files with 3945623 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

321
cde/programs/dtappbuilder/src/libABil/load.c Normal file
View File

@@ -0,0 +1,321 @@
/*
* $XConsortium: load.c /main/3 1995/11/06 18:29:57 rswiston $
*
* @(#)load.c 1.18 03 Apr 1995 cde_app_builder/src/libABil
*
* RESTRICTED CONFIDENTIAL INFORMATION:
*
* The information in this document is subject to special
* restrictions in a confidential disclosure agreement between
* HP, IBM, Sun, USL, SCO and Univel. Do not distribute this
* document outside HP, IBM, Sun, USL, SCO, or Univel without
* Sun's specific written approval. This document and all copies
* and derivative works thereof must be returned or destroyed at
* Sun's request.
*
* Copyright 1993 Sun Microsystems, Inc. All rights reserved.
*
*/
/*
* load.c - load c file.
*/
#include <string.h>
#include <stdio.h>
#include "loadP.h"
#include "bilP.h"
#define MAX_NAME_LEN 256
static char Current_Object[MAX_NAME_LEN]= "";
static char Attribute[MAX_NAME_LEN]= "";
static char Action_Attr[MAX_NAME_LEN]= "";
static char File[MAX_NAME_LEN]= "";
static AbilErrorMessage Errormsg[BIL_ERRMSG_COUNT];
static AbilGetLineNumberCallback getLineNumberCB = NULL;
int abilP_err_line_number = -1;
static int abil_load_errmsg_table();
/*
* Build a status message including the current object, the current
* attribute, and the specified message.
*
* The userMessage argument passed is is an index into the internal
* error message table.
*/
STRING
abil_loadmsg(STRING userMessage)
{
static char msg[256];
char tmpMsg[256];
int lineNumber = abil_loadmsg_get_line_number();
*msg= 0;
*tmpMsg= 0;
if (*File != 0)
{
sprintf(tmpMsg,
catgets(ABIL_MESSAGE_CATD, ABIL_MESSAGE_SET, 27, "file: %s"),
File);
strcat(msg, tmpMsg);
}
if (lineNumber > 0)
{
sprintf(tmpMsg,
catgets(ABIL_MESSAGE_CATD, ABIL_MESSAGE_SET, 28, ", line: %d"),
lineNumber);
strcat(msg, tmpMsg);
}
if (*Current_Object != 0)
{
sprintf(tmpMsg,
catgets(ABIL_MESSAGE_CATD, ABIL_MESSAGE_SET,29, ", object: %s"),
Current_Object);
strcat(msg, tmpMsg);
}
if (*Attribute != 0)
{
sprintf(tmpMsg,
catgets(ABIL_MESSAGE_CATD, ABIL_MESSAGE_SET, 30,
", attribute: %s"),
Attribute);
strcat(msg, tmpMsg);
}
if (*Action_Attr != 0)
{
sprintf(tmpMsg,
catgets(ABIL_MESSAGE_CATD, ABIL_MESSAGE_SET, 31,
", action-attribute: %s"),
Action_Attr);
strcat(msg, tmpMsg);
}
strcat(msg, catgets(ABIL_MESSAGE_CATD, ABIL_MESSAGE_SET, 32, ", "));
if ( (userMessage == 0) || (*userMessage == 0) )
{
strcat(msg, catgets(ABIL_MESSAGE_CATD, ABIL_MESSAGE_SET, 33,
"syntax error"));
}
else
{
strcat(msg, userMessage);
}
strcat(msg, catgets(ABIL_MESSAGE_CATD, ABIL_MESSAGE_SET, 34, "\n"));
return msg;
}
static int
move_string(STRING to, STRING from)
{
if (from == NULL)
{
*to= 0;
}
else
{
strcpy(to, from);
}
return 0;
}
int
abil_loadmsg_clear(void)
{
move_string(Current_Object, NULL);
move_string(Attribute, NULL);
move_string(Action_Attr, NULL);
move_string(File, NULL);
return 0;
}
int
abil_loadmsg_set_object(STRING objname)
{
return move_string(Current_Object, objname);
}
int
abil_loadmsg_set_att(STRING attname)
{
return move_string(Attribute, attname);
}
int
abil_loadmsg_set_action_att(STRING actattname)
{
return move_string(Action_Attr, actattname);
}
int
abil_loadmsg_set_file(STRING filename)
{
return move_string(File, filename);
}
BOOL
abil_loadmsg_err_printed(void)
{
int cur_err_line = bilP_load_get_line_number();
if ((abilP_err_line_number == cur_err_line) ||
(cur_err_line == -1))
return TRUE;
else
return FALSE;
}
int
abil_loadmsg_set_err_printed(BOOL printed)
{
/* If the yacc error has been printed out, then
* set the global error line number to the current
* line number in the bil file, else reset it.
*/
if (printed)
abilP_err_line_number = bilP_load_get_line_number();
else
abilP_err_line_number = -1;
return 0;
}
/*
** This routine prints one of the standard BIL load error messages by
** looking it up in the error message table, fetching the right string
** from the message catalog, and passing it to abil_loadmsg() to be output.
**
** All the I18N has to happen here (before abil_loadmsg() is called)...
*/
int
abil_print_load_err(int errmsg)
{
static BOOL errmsg_tbl_init = FALSE;
char msg[1024];
int msgLen = 0;
*msg = 0;
*msg = 0;
/*
** Load up the error message table if this is the first time we've
** needed to output an error message.
*/
if(errmsg_tbl_init == FALSE) {
abil_load_errmsg_table();
errmsg_tbl_init = TRUE;
}
if ((errmsg == ERR_NOT_IMPL) && (!util_be_verbose()))
{
return 0;
}
if (!abil_loadmsg_err_printed())
{
if(Errormsg[errmsg].msg_id < 0) {
strcat(msg, catgets(ABIL_MESSAGE_CATD, ABIL_MESSAGE_SET, 33,
"syntax error"));
}
else {
strcat(msg,
catgets(ABIL_MESSAGE_CATD, ABIL_MESSAGE_SET,
Errormsg[errmsg].msg_id,
Errormsg[errmsg].def_str));
}
if ((msgLen = strlen(msg)) > 0)
{
if (msg[msgLen-1] == '\n')
{
msg[msgLen-1] = 0;
}
}
util_error(abil_loadmsg(msg));
abil_loadmsg_set_err_printed(TRUE);
}
return 0;
}
/*
** This routine prints a custom error message rather than one of the standard
** ones from the BIL error message table. It takes the message string as
** an argument and then passes it off to abil_loadmsg() to be output.
**
** This routine assumes the custom error message has been I18Nized beforehand.
*/
int
abil_print_custom_load_err(STRING errmsgstr)
{
if (!abil_loadmsg_err_printed())
{
util_error(abil_loadmsg(errmsgstr));
abil_loadmsg_set_err_printed(TRUE);
}
return 0;
}
/* Macro to make it easier to do error message table initialization */
#define blet(i,m,s) \
Errormsg[i].msg_id = m; \
Errormsg[i].def_str = s
/* Load the BIL error message table with message set and default text */
static int
abil_load_errmsg_table()
{
int i;
/* "Clear" out the error message table by setting message id to -1 */
for(i=0;i<BIL_ERRMSG_COUNT;i++) Errormsg[i].msg_id = -1;
blet(ERR_BAD_ANCHOR , 1, "cannot find anchor object");
blet(ERR_BAD_ATT_FOR_OBJ , 2, "no such attribute for this object");
blet(ERR_BAD_IDENTIFIER , 3, "not a valid C identifier");
blet(ERR_EOF , 4, "unexpected end-of-file");
blet(ERR_FILE_FORMAT , 5, "unknown file format");
blet(ERR_NOT_IMPL , 6, "currently not implemented");
blet(ERR_NOT_IMPL_IGNOR , 7, "currently not implemented - ignoring object and its attributes");
blet(ERR_NO_MEMORY , 8, "out of memory");
blet(ERR_UNKNOWN , 9, "unknown value");
blet(ERR_UNKNOWN_ATTR ,10, "unknown attribute");
blet(ERR_UNKNOWN_MENU_TYPE ,11, "unknown menu type - defaulting to Command Menu");
blet(ERR_UNKNOWN_OBJ ,12, "cannot find object");
blet(ERR_UNKNOWN_OBJECT ,13, "unknown object");
blet(ERR_UNKNOWN_WHEN ,14, "bad value - ignoring this 'Connection'");
blet(ERR_WANT_ARG ,15, "cannot find function argument");
blet(ERR_WANT_BOOLEAN ,16, "cannot find boolean");
blet(ERR_WANT_FULL_NAME ,17, "incorrect name syntax");
blet(ERR_WANT_INTEGER ,18, "cannot find integer");
blet(ERR_WANT_KEYWORD ,19, "cannot find keyword");
blet(ERR_WANT_LIST ,20, "cannot find start of list");
blet(ERR_WANT_MENU_NAME ,21, "cannot find menu for button");
blet(ERR_WANT_NAME ,22, "cannot find start of name");
blet(ERR_WANT_OBJECT ,23, "cannot find start of object");
blet(ERR_WANT_STRING ,24, "cannot find string");
blet(WARN_BAD_HANDLER ,25, "WARNING not a C identifier, ignored");
blet(WARN_NO_MEMBERS ,26, "WARNING: empty group, skipping...");
blet(ERR_NOT_PROJECT ,46, "not a project file");
blet(ERR_NOT_MODULE ,47, "not a module file");
return 0;
}
int
abil_loadmsg_get_line_number(void)
{
return ((getLineNumberCB == NULL)? -1:getLineNumberCB());
}
int
abil_loadmsg_set_line_number_callback(AbilGetLineNumberCallback cb)
{
getLineNumberCB = cb;
return 0;
}