Initial revision

git-svn-id: http://svn.ghostscript.com/ghostpcl/trunk/ghostpcl@246 06663e23-700e-0410-b217-a244a6096597

1 files changed, 159 insertions, 0 deletions

diff --git a/gs/src/gsargs.c b/gs/src/gsargs.c
new file mode 100644
index 000000000..e1aab2de9
--- /dev/null
+++ b/gs/src/gsargs.c
@@ -0,0 +1,159 @@
+/* Copyright (C) 1997 Aladdin Enterprises.  All rights reserved.
+  
+  This file is part of Aladdin Ghostscript.
+  
+  Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
+  or distributor accepts any responsibility for the consequences of using it,
+  or for whether it serves any particular purpose or works at all, unless he
+  or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
+  License (the "License") for full details.
+  
+  Every copy of Aladdin Ghostscript must include a copy of the License,
+  normally in a plain ASCII text file named PUBLIC.  The License grants you
+  the right to copy, modify and redistribute Aladdin Ghostscript, but only
+  under certain conditions described in the License.  Among other things, the
+  License requires that the copyright notice and this notice be preserved on
+  all copies.
+*/
+
+/* gsargs.c */
+/* Command line argument list management */
+#include "ctype_.h"
+#include "stdio_.h"
+#include "string_.h"
+#include "gsexit.h"
+#include "gsmemory.h"
+#include "gsargs.h"
+
+/* Initialize an arg list. */
+void
+arg_init(arg_list *pal, const char **argv, int argc,
+  FILE *(*arg_fopen)(P2(const char *fname, void *fopen_data)),
+  void *fopen_data)
+{	pal->expand_ats = true;
+	pal->arg_fopen = arg_fopen;
+	pal->fopen_data = fopen_data;
+	pal->argp = argv + 1;
+	pal->argn = argc - 1;
+	pal->depth = 0;
+}
+
+/* Push a string onto an arg list. */
+void
+arg_push_string(arg_list *pal, const char *str)
+{	arg_source *pas;
+
+	if ( pal->depth == arg_depth_max )
+	  { lprintf("Too much nesting of @-files.\n");
+	    gs_exit(1);
+	  }
+	pas = &pal->sources[pal->depth];
+	pas->is_file = false;
+	pas->u.str = str;
+	pal->depth++;
+}
+
+/* Clean up an arg list. */
+void
+arg_finit(arg_list *pal)
+{	while ( pal->depth )
+	  if ( pal->sources[--(pal->depth)].is_file )
+	    fclose(pal->sources[pal->depth].u.file);
+}
+
+/* Get the next arg from a list. */
+/* Note that these are not copied to the heap. */
+const char *
+arg_next(arg_list *pal)
+{	arg_source *pas;
+	FILE *f;
+	const char *astr = 0;		/* initialized only to pacify gcc */
+	char *cstr;
+	const char *result;
+	int endc;
+	register int c;
+	register int i;
+	bool in_quote;
+
+top:	pas = &pal->sources[pal->depth - 1];
+	if ( pal->depth == 0 )
+	{	if ( pal->argn <= 0 )		/* all done */
+		  return 0;
+		pal->argn--;
+		result = *(pal->argp++);
+		goto at;
+	}
+	if ( pas->is_file )
+	  f = pas->u.file, endc = EOF;
+	else
+	  astr = pas->u.str, f = NULL, endc = 0;
+	result = cstr = pal->cstr;
+#define cfsgetc() (f == NULL ? (*astr ? *astr++ : 0) : fgetc(f))
+	while ( isspace(c = cfsgetc()) ) ;
+	if ( c == endc )
+	{	if ( f != NULL )
+		  fclose(f);
+		pal->depth--;
+		goto top;
+	}
+	in_quote = false;
+	for ( i = 0; ; )
+	{	if ( i == arg_str_max - 1 )
+		{	cstr[i] = 0;
+			fprintf(stdout, "Command too long: %s\n", cstr);
+			gs_exit(1);
+		}
+		/* If input is coming from an @-file, allow quotes */
+		/* to protect whitespace. */
+		if ( c == '"' && f != NULL )
+		  in_quote = !in_quote;
+		else
+		  cstr[i++] = c;
+		c = cfsgetc();
+		if ( c == endc )
+		  {	if ( in_quote )
+			  { cstr[i] = 0;
+			    fprintf(stdout,
+				    "Unterminated quote in @-file: %s\n",
+				    cstr);
+			    gs_exit(1);
+			  }
+			break;
+		  }
+		if ( isspace(c) && !in_quote )
+		  break;
+	}
+	cstr[i] = 0;
+	if ( f == NULL )
+	  pas->u.str = astr;
+at:	if ( pal->expand_ats && result[0] == '@' )
+	{	if ( pal->depth == arg_depth_max )
+		{	lprintf("Too much nesting of @-files.\n");
+			gs_exit(1);
+		}
+		result++;		/* skip @ */
+		f = (*pal->arg_fopen)(result, pal->fopen_data);
+		if ( f == NULL )
+		{	fprintf(stdout, "Unable to open command line file %s\n", result);
+			gs_exit(1);
+		}
+		pal->depth++;
+		pas++;
+		pas->is_file = true;
+		pas->u.file = f;
+		goto top;
+	}
+	return result;
+}
+
+/* Copy an argument string to the heap. */
+char *
+arg_copy(const char *str, gs_memory_t *mem)
+{	char *sstr = (char *)gs_alloc_bytes(mem, strlen(str) + 1, "arg_copy");
+	if ( sstr == 0 )
+	{	lprintf("Out of memory!\n");
+		gs_exit(1);
+	}
+	strcpy(sstr, str);
+	return sstr;
+}