/*
* Motif
*
* Copyright (c) 1987-2012, The Open Group. All rights reserved.
*
* These libraries and programs are free software; you can
* redistribute them and/or modify them under the terms of the GNU
* Lesser General Public License as published by the Free Software
* Foundation; either version 2 of the License, or (at your option)
* any later version.
*
* These libraries and programs are distributed in the hope that
* they will be useful, but WITHOUT ANY WARRANTY; without even the
* implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
* PURPOSE. See the GNU Lesser General Public License for more
* details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with these librararies and programs; if not, write
* to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
* Floor, Boston, MA 02110-1301 USA
*/
/*
* HISTORY
*/
#ifdef REV_INFO
#ifndef lint
static char rcsid[] = "$XConsortium: UilMain.c /main/14 1996/06/03 15:49:20 pascale $"
#endif
#endif
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
/*
* (c) Copyright 1989, 1990, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. */
/*
**++
** FACILITY:
**
** User Interface Language Compiler (UIL)
**
** ABSTRACT:
**
** This module is the main procedure of the UIL Compiler.
**
**--
**/
/*
**
** INCLUDE FILES
**
*/
#include <X11/Xlocale.h>
/* Sun's locale.h defines ON && OFF, which is also defined in UilLexPars.h */
#ifdef ON
#undef ON
#endif
#ifdef OFF
#undef OFF
#endif
#ifndef X_NOT_STDC_ENV
#include <stdlib.h>
#endif
#include "UilDefI.h"
#include <setjmp.h>
/*
**
** TABLE OF CONTENTS
**
*/
/*
** FORWARD DECLARATIONS
*/
extern int main _ARGUMENTS(( int l_argc , char *rac_argv []));
static void common_main _ARGUMENTS(( void ));
static void common_cleanup _ARGUMENTS(( void ));
#ifdef CALLABLE
static void UilWrapup _ARGUMENTS((Uil_compile_desc_type *compile_desc));
#endif /* CALLABLE */
/*
**
** EXTERNAL Definitions
**
*/
#ifndef NO_MESSAGE_CATALOG
#include <nl_types.h>
#if !defined(NL_CAT_LOCALE)
#define NL_CAT_LOCALE 0
#endif
externaldef(uilmsg) nl_catd uil_catd = NULL;
#endif
/*
**
** MODULE Definitions
**
*/
static status return_status = 0;
static jmp_buf environment;
static unsigned module_flags = 0;
static unsigned doing_exit = 0;
/* Bit definitions for module_flags */
#define compiler_called (1 << 0)
/*
**++
** FUNCTIONAL DESCRIPTION:
**
** This is the common part of the main routine.
**
** FORMAL PARAMETERS:
**
** none
**
** IMPLICIT INPUTS:
**
** none
**
** IMPLICIT OUTPUTS:
**
** none
**
** FUNCTION VALUE:
**
** void
**
** SIDE EFFECTS:
**
** compilation occurs
**
**--
**/
static void common_main()
{
#ifndef NO_MESSAGE_CATALOG
if (uil_catd == NULL)
uil_catd = catopen("Uil", NL_CAT_LOCALE);
#endif
/* Initialize the X toolkit. */
XtToolkitInitialize();
/* use the user supplied data base instead */
if (Uil_cmd_z_command.v_database)
db_incorporate();
/* initialize the diagnostic system */
diag_initialize_diagnostics();
/* initialize the symbol table */
sym_initialize_storage();
/* initialize the source */
src_initialize_source();
/* open listing file if requested */
if (Uil_cmd_z_command.v_listing_file)
lst_open_listing();
/* initialize the lexical analyzer */
lex_initialize_analyzer();
/* initialize the keyword table */
key_initialize();
/* initialize the sar data structures */
sar_initialize();
/* call YACC to parse the source file */
/* return 0 for success, 1 for failure */
/* Make sure the root entry sections pointer is filled in */
if (yyparse() != 0)
diag_issue_diagnostic
(d_inv_module, diag_k_no_source, diag_k_no_column);
sym_az_root_entry->sections = sym_az_current_section_entry;
/* call forward reference resolver */
sem_resolve_forward_refs();
/* call semantic validation */
sem_validation ();
/* call the output phase if requested */
if (Uil_cmd_z_command.v_resource_file)
sem_output_uid_file();
/* call symbol table dumper - if requested */
#if debug_version
if (uil_v_dump_symbols == TRUE)
sym_dump_symbols();
#endif
/* write compilation summary */
diag_issue_summary();
/* write listing file if requested */
if (Uil_cmd_z_command.v_listing_file)
lst_output_listing();
/* Storage is not cleaned up, since we will exit */
uil_exit( uil_l_compile_status );
}
/*
**++
** FUNCTIONAL DESCRIPTION:
**
** This is the image termination procedure for the UIL compiler.
**
** FORMAL PARAMETERS:
**
** severity status of compilation on exit
**
** IMPLICIT INPUTS:
**
** none
**
** IMPLICIT OUTPUTS:
**
** none
**
** FUNCTION VALUE:
**
** void
**
** SIDE EFFECTS:
**
** never return from this procedure
**
**--
**/
void uil_exit(severity)
int severity;
{
/* Prevent multiple looping through this routine */
if ( doing_exit ) return;
doing_exit = 1;
return_status = (severity >= uil_k_error_status);
/* Close and remove the uid file if it's still open. */
/* It will only be open if a severe error occurred during the output */
/* of the uid file. */
if (out_az_idbfile_id != NULL)
UrmIdbCloseFile (out_az_idbfile_id, FALSE);
/* If compiler called, return to calling program rather than */
/* exiting process */
if (module_flags & compiler_called)
longjmp (environment, 1);
/* RAP FIX for listing files */
common_cleanup();
exit(return_status);
}
#ifndef CALLABLE
/*
**++
** FUNCTIONAL DESCRIPTION:
**
** This is the main routine
**
** FORMAL PARAMETERS:
**
** l_argc: the number of command line arguments
** rac_argv: an array of pointers to character array arguments
**
** IMPLICIT INPUTS:
**
** none
**
** IMPLICIT OUTPUTS:
**
** none
**
** COMPLETION CODES:
**
** 1 if errors; 0 otherwise
**
** SIDE EFFECTS:
**
** produce possibly a resource file and a listing file
**--
**/
int main( l_argc, rac_argv )
int l_argc;
char *rac_argv[ ];
{
setlocale(LC_ALL, "");
/* call routine to parse the command line */
cmd_decode_command_line( l_argc, rac_argv );
/* call common main routine */
common_main();
return 0; /* make compiler happy */
}
#endif /* !CALLABLE */
/*
**++
** FUNCTIONAL DESCRIPTION:
**
** This is the dynamic memory cleanup routine. It calls all facility
** provided cleanup routines so that dynamic structures can be released.
**
** FORMAL PARAMETERS:
**
** none
**
** IMPLICIT INPUTS:
**
** none
**
** IMPLICIT OUTPUTS:
**
** none
**
** FUNCTION VALUE:
**
** void
**
** SIDE EFFECTS:
**
** all dynamic memory is freed
**
**--
**/
static void common_cleanup()
{
/* cleanup the source file information */
Uil_src_cleanup_source();
/* cleanup listing facility */
Uil_lst_cleanup_listing();
/* cleanup the lexical analyzer */
Uil_lex_cleanup_analyzer();
return;
}
#ifdef CALLABLE
/*
**++
** FUNCTIONAL DESCRIPTION:
**
** This is the callable entry point for the UIL Compiler.
**
** FORMAL PARAMETERS:
**
** command_desc pointer to data structure defining UIL command line
**
** compile_desc pointer to data structure describing the results of
** the compilation.
**
** message_cb callback routine to process messages
**
** message_data user-data passed to the message_cb
**
** status_cb callback routine to process messages
**
** status_data user-data passed to the status_cb
**
**
** IMPLICIT INPUTS:
**
** none
**
** IMPLICIT OUTPUTS:
**
** none
**
** COMPLETION CODES:
**
** uil$_normal if no errors; uil$_no_output otherwise
**
** SIDE EFFECTS:
**
** none
**--
**/
Uil_status_type Uil
(Uil_command_type *command_desc,
Uil_compile_desc_type *compile_desc,
Uil_continue_type (*message_cb)(),
char *message_data,
Uil_continue_type (*status_cb)(),
char *status_data)
{
/* Indicate compiler called rather than being started via command line */
module_flags = module_flags | compiler_called;
doing_exit = 0;
/* Initialize command line data structure */
Uil_cmd_z_command.ac_database = command_desc -> database;
Uil_cmd_z_command.v_database = command_desc -> database_flag;
Uil_cmd_z_command.ac_source_file = command_desc -> source_file;
Uil_cmd_z_command.ac_resource_file = command_desc -> resource_file;
Uil_cmd_z_command.ac_listing_file = command_desc -> listing_file;
Uil_cmd_z_command.include_dir_count = command_desc -> include_dir_count;
Uil_cmd_z_command.ac_include_dir = command_desc -> include_dir;
Uil_cmd_z_command.v_listing_file = command_desc -> listing_file_flag;
Uil_cmd_z_command.v_resource_file = command_desc -> resource_file_flag;
Uil_cmd_z_command.v_show_machine_code = command_desc -> machine_code_flag;
Uil_cmd_z_command.v_report_info_msg = command_desc -> report_info_msg_flag;
Uil_cmd_z_command.v_report_warn_msg = command_desc -> report_warn_msg_flag;
Uil_cmd_z_command.v_parse_tree = command_desc -> parse_tree_flag;
Uil_cmd_z_command.v_use_setlocale = command_desc -> use_setlocale_flag;
Uil_cmd_z_command.v_issue_summary = command_desc -> issue_summary;
Uil_cmd_z_command.status_update_delay = command_desc -> status_update_delay;
Uil_cmd_z_command.message_cb = message_cb;
Uil_cmd_z_command.message_data = message_data;
Uil_cmd_z_command.status_cb = status_cb;
Uil_cmd_z_command.status_data = status_data;
/* The setjmp function allows us to unwind from a fatal error setjmp is */
/* nonzero if we are returning from a fatal error */
if (setjmp(environment) == 0) {
/* use the user supplied data base instead. If no source file
is given (this call is only to change the database), return at
this point with a success. */
if ( Uil_cmd_z_command.v_database )
{
db_incorporate ();
if ( Uil_cmd_z_command.ac_source_file == NULL )
uil_exit (uil_k_success_status);
}
/* initialize the diagnostic system */
uil_l_compile_status = uil_k_success_status;
diag_initialize_diagnostics();
/* initialize the symbol table */
sym_initialize_storage();
/* initialize the source */
src_initialize_source();
/* open listing file if requested */
if (Uil_cmd_z_command.v_listing_file)
lst_open_listing();
/* initialize the lexical analyzer */
lex_initialize_analyzer();
/* initialize the keyword table */
key_initialize();
/* initialize the sar data structures */
sar_initialize();
/* call YACC to parse the source file */
/* return 0 for success, 1 for failure */
/* Make sure the root entry sections pointer is filled in */
if (yyparse() != 0)
diag_issue_diagnostic
(d_inv_module, diag_k_no_source, diag_k_no_column);
sym_az_root_entry->sections = sym_az_current_section_entry;
/* call forward reference resolver */
sem_resolve_forward_refs();
/* call semantic validation */
sem_validation ();
/* call the output phase if requested */
if (Uil_cmd_z_command.v_resource_file)
sem_output_uid_file();
/* call symbol table dumper - if requested */
#if debug_version
if (uil_v_dump_symbols == TRUE)
sym_dump_symbols();
#endif
/* Perform standard wrapup processing */
UilWrapup (compile_desc);
/*
* Fix for CR 5534 - call the routine to restore the old signal handlers
*/
diag_restore_diagnostics();
/*
* End Fix for CR 5534
*/
/* exit with the compile status */
return uil_l_compile_status;
}
/*
** longjmp return from setjmp. This is the case of a return via
** uil_exit the value return_status is set by uil_exit.
*/
else
{
/* Do standard compiler wrapup */
UilWrapup (compile_desc);
/* return the status set by uil_exit */
return uil_l_compile_status;
}
}
/*
* Local function to provide compiler wrapup processing. It is called both
* from the longjmp and sequential paths in the callable compiler above.
*/
static void UilWrapup (compile_desc)
Uil_compile_desc_type *compile_desc;
{
int i; /* loop index for copying message counts */
/* write compilation summary if requested */
if ( Uil_cmd_z_command.v_issue_summary )
diag_issue_summary();
/* write listing file if requested */
if (Uil_cmd_z_command.v_listing_file)
lst_output_listing();
/*
** fill in the "parse tree root" in the compile descriptor,
** and set the version for the compiler and the symbol table
** structure.
*/
compile_desc->parse_tree_root = (char *)sym_az_root_entry;
compile_desc->data_version = _data_version;
compile_desc->compiler_version = _compiler_version_int;
/* Fill in the message_summary array in the compile_desc */
for (i = uil_k_min_status; i <= uil_k_max_status; i++)
compile_desc->message_count[i] = Uil_message_count[i];
/* If there are any error/severe messages, then don't return */
/* a symbol table for the callable compiler - clean up here */
if ( Uil_message_count[Uil_k_error_status]>0 ||
Uil_message_count[Uil_k_severe_status]>0 )
{
Uil_cmd_z_command.v_parse_tree = FALSE;
compile_desc->parse_tree_root = NULL;
}
/* Call the cleanup routine to free dynamic memory */
common_cleanup();
/* Cleanup storage; what is cleaned up depends on whether compiler */
/* was called or not */
Uil_sym_cleanup_storage (Uil_cmd_z_command.v_parse_tree!=1);
}
#endif /* CALLABLE */
#ifdef NO_MEMMOVE
/*
**++
** FUNCTIONAL DESCRIPTION:
**
** This is a memmove function that explicitly handles
** overlapping memory areas. Written in response to
** CR 4851.
**
** FORMAL PARAMETERS:
**
** same as memcpy
**
** COMPLETION CODES:
**
** same as memcpy
**
** SIDE EFFECTS:
**
**--
**/
char *uil_mmove(s1, s2, n)
char *s1, *s2;
int n;
{
char *temp;
if(s2 == s1)
return(s2);
if(s2 < s1 && s1 <= s2 + n){
if(temp = (char *)malloc(n)){
memcpy(temp, s2, n);
memcpy(s1, temp, n);
free(temp);
return(s1);
}
printf("uil_mmove: Memory allocation failed!\n");
exit(-1);
}
return((char *)memcpy(s1, s2, n));
}
#endif /* NO_MEMMOVE */