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

cde/osf/uil/UilCmd.c

@@ -0,0 +1,310 @@
+/* 
+ *  @OSF_COPYRIGHT@
+ *  COPYRIGHT NOTICE
+ *  Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc.
+ *  ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
+ *  the full copyright text.
+*/ 
+/* 
+ * HISTORY
+*/ 
+#ifdef REV_INFO
+#ifndef lint
+static char rcsid[] = "$XConsortium: UilCmd.c /main/11 1995/07/14 09:32:29 drk $"
+#endif
+#endif
+
+/*
+*  (c) Copyright 1989, 1990, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. */
+
+/*
+**++
+**  FACILITY:
+**
+**      User Interface Language Compiler (UIL)
+**
+**  ABSTRACT:
+**
+**      Command line interpreter for the
+**
+**--
+**/
+
+/*
+**
+**  INCLUDE FILES
+**
+**/
+
+
+#include "UilDefI.h"
+#include "UilCmdDef.h"
+
+
+/*
+**
+**  GLOBAL DECLARATIONS
+**
+**/
+
+externaldef(uil_comp_glbl) cmd_command_line_type Uil_cmd_z_command;
+
+
+
+/*
+**++
+**  FUNCTIONAL DESCRIPTION:
+**
+**      This procedure parses the command line and places the
+**	results of the parse in the global structure "Uil_cmd_z_command".
+**
+**  FORMAL PARAMETERS:
+**
+**      l_arg_count:	number of command arguments
+**	rac_arg_value:	array of pointers to null terminated character strings
+**			each of which is one of the command line arguments
+**
+**  IMPLICIT INPUTS:
+**
+**      none
+**
+**  IMPLICIT OUTPUTS:
+**
+**      Uil_cmd_z_command:	respository for command line info
+**
+**  FUNCTION VALUE:
+**
+**      void
+**
+**  SIDE EFFECTS:
+**
+**      Uil_cmd_z_command is set
+**
+**--
+**/
+void	cmd_decode_command_line( l_arg_count, rac_arg_value )
+int 	l_arg_count;
+char 	*rac_arg_value[ ];
+
+{
+    static char	    *include_list	[Uil_k_max_include_dir_count];
+    int	i;
+
+    Uil_cmd_z_command.ac_source_file = NULL;
+    Uil_cmd_z_command.ac_resource_file = NULL;
+    Uil_cmd_z_command.ac_listing_file = NULL;
+    Uil_cmd_z_command.include_dir_count = 0;
+    Uil_cmd_z_command.ac_include_dir = (char **)include_list;
+    Uil_cmd_z_command.v_resource_file = TRUE;
+    Uil_cmd_z_command.v_listing_file = FALSE;
+    Uil_cmd_z_command.v_show_machine_code = FALSE;
+    Uil_cmd_z_command.v_report_info_msg = TRUE;
+    Uil_cmd_z_command.v_report_warn_msg = TRUE;
+    Uil_cmd_z_command.v_parse_tree = FALSE;
+    Uil_cmd_z_command.v_use_setlocale = FALSE;
+    Uil_cmd_z_command.status_update_delay = 0;
+    Uil_cmd_z_command.message_cb = (Uil_continue_type(*)())NULL;
+    Uil_cmd_z_command.status_cb = (Uil_continue_type(*)())NULL;
+    Uil_cmd_z_command.ac_database = NULL;
+    Uil_cmd_z_command.v_database = FALSE;
+
+#if debug_version
+    uil_v_dump_tokens = FALSE;
+    uil_v_dump_symbols = FALSE;
+#endif
+
+    /* traverse the options on the command line */
+
+    for (i = 1;  i < l_arg_count;  i++)
+    {
+	/* check for an output file  */
+
+	if ( strcmp("-o", rac_arg_value[ i ]) == 0 )
+	{
+	    /* the next argument is the output file name  */
+
+	    /* check next field is not an option */
+
+            if (((i+1) >= l_arg_count) ||
+                ( '-' == rac_arg_value[ i+1 ][ 0 ] ))
+	    {
+		diag_issue_diagnostic
+			( d_miss_opt_arg, 
+			  diag_k_no_source, diag_k_no_column,
+			  rac_arg_value[ i ],
+			  "output file"
+			);
+		continue;
+	    }
+
+	    if (Uil_cmd_z_command.ac_resource_file == NULL)
+	        Uil_cmd_z_command.ac_resource_file = rac_arg_value[ i+1 ];
+	    else
+		diag_issue_diagnostic
+		    ( d_dupl_opt, 
+		      diag_k_no_source, diag_k_no_column,
+		      rac_arg_value[ i ]
+		    );
+	    i = i + 1;
+	}
+	    
+	/* check for a binary database file */
+
+	else if ( strcmp("-wmd", rac_arg_value[ i ]) == 0 )
+	{
+	    /* the next argument is the binary database file name  */
+
+	    /* check next field is not an option */
+
+            if (((i+1) >= l_arg_count) ||
+                ( '-' == rac_arg_value[ i+1 ][ 0 ] ))
+	    {
+		diag_issue_diagnostic
+			( d_miss_opt_arg, 
+			  diag_k_no_source, diag_k_no_column,
+			  rac_arg_value[ i ],
+			  "binary database file"
+			);
+		continue;
+	    }
+
+	    if (!Uil_cmd_z_command.v_database)
+	    {
+	        Uil_cmd_z_command.v_database = TRUE;
+	        Uil_cmd_z_command.ac_database = rac_arg_value[ i+1 ];
+	    }
+	    else
+		diag_issue_diagnostic
+		    ( d_dupl_opt, 
+		      diag_k_no_source, diag_k_no_column,
+		      rac_arg_value[ i ]
+		    );
+	    i = i + 1;
+	}
+
+	/* check for an listing file */
+
+	else if ( strcmp("-v", rac_arg_value[ i ]) == 0 )
+	{
+	    /* the next argument is the listing file name  */
+
+	    /* check next field is not an option */
+
+            if (((i+1) >= l_arg_count) ||
+                ( '-' == rac_arg_value[ i+1 ][ 0 ] ))
+	    {
+		diag_issue_diagnostic
+			( d_miss_opt_arg, 
+			  diag_k_no_source, diag_k_no_column,
+			  rac_arg_value[ i ],
+			  "listing file"
+			);
+		continue;
+	    }
+
+	    if (!Uil_cmd_z_command.v_listing_file)
+	    {
+	        Uil_cmd_z_command.v_listing_file = TRUE;
+	        Uil_cmd_z_command.ac_listing_file = rac_arg_value[ i+1 ];
+	    }
+	    else
+		diag_issue_diagnostic
+		    ( d_dupl_opt, 
+		      diag_k_no_source, diag_k_no_column,
+		      rac_arg_value[ i ]
+		    );
+	    i = i + 1;
+	}
+	    
+	/* check for the machine code option */
+
+	else if ( strcmp("-m", rac_arg_value[ i ]) == 0 )
+	{
+	        Uil_cmd_z_command.v_show_machine_code = TRUE;
+	}
+	    
+	/* check if warnings are to be supressed */
+
+	else if ( strcmp("-w", rac_arg_value[ i ]) == 0 )
+	{
+	        Uil_cmd_z_command.v_report_info_msg = FALSE;
+	        Uil_cmd_z_command.v_report_warn_msg = FALSE;
+	}
+
+	/* check if setlocale is to be enabled */
+
+	else if ( strcmp("-s", rac_arg_value[ i ]) == 0 )
+	{
+	  Uil_cmd_z_command.v_use_setlocale = TRUE;
+	}
+	
+	/* check for an unexpected option */
+
+	else if ( '-' == rac_arg_value[ i ][ 0 ] )
+	{
+
+	/* check for an include directory */
+
+	    if ( 'I' == rac_arg_value[ i ][ 1 ] )
+	    {
+		if (Uil_cmd_z_command.include_dir_count < Uil_k_max_include_dir_count)
+		    
+		    include_list[Uil_cmd_z_command.include_dir_count++] = 
+			& rac_arg_value[i] [2];
+		else
+		    diag_issue_diagnostic
+		        ( d_too_many_dirs, 
+		          diag_k_no_source, diag_k_no_column,
+		          rac_arg_value[ i ], Uil_k_max_include_dir_count
+		        );
+	    } else
+	    {
+		diag_issue_diagnostic
+		    ( d_unknown_opt, 
+		      diag_k_no_source, diag_k_no_column,
+		      rac_arg_value[ i ]
+		    );
+	    }
+	}
+
+	/* assume it is a UIL source file specification
+	 * validation of the file spec is done when file is opened */
+
+	else
+	{
+	    if (Uil_cmd_z_command.ac_source_file == NULL)
+	       Uil_cmd_z_command.ac_source_file = rac_arg_value[ i ];
+	    else
+		diag_issue_diagnostic
+		    ( d_add_source, 
+		      diag_k_no_source, diag_k_no_column,
+		      rac_arg_value[ i ]
+		    );
+	}
+    }
+
+    /*
+    **	Check for a source file - otherwise issue a diagnostic.
+    */
+
+    if (Uil_cmd_z_command.ac_source_file == NULL)
+	diag_issue_diagnostic
+	    ( d_no_source, diag_k_no_source, diag_k_no_column );
+
+    if (Uil_cmd_z_command.ac_resource_file == NULL)
+	{
+        Uil_cmd_z_command.ac_resource_file = XtMalloc (strlen ("a.uid") + 1);
+        strcpy (Uil_cmd_z_command.ac_resource_file,"a.uid");
+        }
+
+    /*
+    **	Machine code listing only makes sense if listing is set.
+    */
+    
+    Uil_cmd_z_command.v_show_machine_code =
+        ( Uil_cmd_z_command.v_listing_file & 
+	  Uil_cmd_z_command.v_show_machine_code);
+}
+
+
+