summaryrefslogtreecommitdiff
path: root/graphics/sketch/cmdline.c
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/sketch/cmdline.c')
-rw-r--r--graphics/sketch/cmdline.c268
1 files changed, 268 insertions, 0 deletions
diff --git a/graphics/sketch/cmdline.c b/graphics/sketch/cmdline.c
new file mode 100644
index 0000000000..bc93ad9d43
--- /dev/null
+++ b/graphics/sketch/cmdline.c
@@ -0,0 +1,268 @@
+/* cmdline.c
+ Copyright (C) 2005,2006,2007 Eugene K. Ressler, Jr.
+
+This file is part of Sketch, a small, simple system for making
+3d drawings with LaTeX and the PSTricks or TikZ package.
+
+Sketch is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 3, or (at your option)
+any later version.
+
+Sketch is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with Sketch; see the file COPYING.txt. If not, see
+http://www.gnu.org/copyleft */
+
+#include <stdlib.h>
+#include "cmdline.h"
+#include "emit.h"
+#include "memutil.h"
+#include "parse.h"
+#include "symbol.h"
+#include "version.h"
+
+void
+usage (int exit_code)
+{
+ fprintf (stderr, "\n"
+ "sketch [options] file1 [-D tag][-U tag] file2...\n"
+ "-h Print this message to standard error\n"
+ "-v Print version info to standard output\n"
+ "-V x.y Tell Sketch your PSTricks version is x.y\n"
+ "-d Debug parser (for developers)\n"
+ "-b Use BSP rather than Painters algorithm for HSR\n"
+ "-T[u|e][p[P|T]] Produce a complete LaTeX document\n"
+ " u U.S. paper size (8.5 x 11 inches) (default)\n"
+ " e European A4 paper size (297 x 210 mm)\n"
+ " p Print document template to stdout\n"
+ " P Print PSTricks version of doc template (default)\n"
+ " T Print TikZ version of doc template\n"
+ " L Print LaTeX version of template (default)\n"
+ " C Print ConTeXt version of template\n"
+ "-t templatefile Load user document template\n"
+ " (any text file with escape %%SKETCH_OUTPUT%%)\n"
+ "-o outfile Put output in outfile (default is stdout)\n"
+ "-D tag Define given tag\n"
+ "-U tag Undefine given tag\n");
+ exit (exit_code);
+}
+
+static int
+is_doc_template_file_name (char *s)
+{
+ return s[0] != '-' || s[1] == '\0';
+}
+
+// process argv[1..argc-1] to fill in env and prepare it for wrapping
+void
+process_global_options (CMD_LINE_OPT_ENV * env, int argc, char **argv,
+ SYMBOL_TABLE * sym_tab)
+{
+ int i, j;
+ unsigned lang, set;
+
+ // i = 0
+ // argc = 0;
+ // argv = NULL;
+ // sym_tab = NULL;
+ // bsp_only_p = false
+ // doc_template_file_name = NULL
+ // out_file_name = NULL
+ // skip_input_p = false
+ // n_files = 0
+ SET_STRUCT_ZERO (env);
+ env->sym_tab = sym_tab;
+ parse_pst_version(env->pst_version, STRINGIFY(ASSUMED_PST_VERSION), no_line);
+
+ // we'll copy args that need to be processed in order with filenames here.
+ // the convention will be that args with paramaters like -Dfoo will be
+ // separated into -D and foo, so we could end up doubling the number of args.
+ env->argv = safe_malloc (2 * (argc - 1) * sizeof (char *));
+
+ for (i = 1; i < argc; i++)
+ {
+ if (argv[i][0] == '-')
+ {
+ switch (argv[i][1])
+ {
+ case 'b':
+ env->bsp_only_p = 1;
+ break;
+ case 'd':
+ yydebug = 1;
+ break;
+ case 'h':
+ usage (0);
+ break;
+ case 'D':
+ case 'U':
+ env->argv[env->argc++] = argv[i];
+ if (argv[i][2])
+ env->argv[env->argc++] = &argv[i][2];
+ else if (i + 1 < argc)
+ env->argv[env->argc++] = argv[++i];
+ else
+ err (no_line, "missing tag after %s", argv[i]);
+ break;
+ case 'o':
+ if (env->out_file_name)
+ err (no_line, "only one use of -o is allowed");
+ if (argv[i][2])
+ env->out_file_name = &argv[i][2];
+ else
+ {
+ if (i + 1 < argc)
+ env->out_file_name = &argv[++i][0];
+ else
+ err (no_line, "missing file name after -o");
+ }
+ break;
+ case 't':
+ if (argv[i][2])
+ env->doc_template_file_name = &argv[i][2];
+ else if (i + 1 < argc
+ && is_doc_template_file_name (argv[i + 1]))
+ env->doc_template_file_name = argv[++i];
+ else
+ err (no_line, "missing document template file name after -t");
+ break;
+ case 'T':
+ j = 2;
+ if (argv[i][j] == 'e')
+ {
+ env->doc_template_file_name =
+ standard_euro_doc_template_file_name_flag;
+ ++j;
+ }
+ else if (argv[i][j] == 'u')
+ {
+ env->doc_template_file_name =
+ standard_us_doc_template_file_name_flag;
+ ++j;
+ }
+ else
+ {
+ env->doc_template_file_name =
+ standard_us_doc_template_file_name_flag;
+ }
+ if (argv[i][j] == 'p')
+ {
+ lang = set = 0;
+ for (++j; argv[i][j]; ++j)
+ {
+ switch (argv[i][j])
+ {
+ case 'P':
+ if (set & GEOL_GRAPHICS_BIT)
+ err (no_line, "-tP with two graphics package specs");
+ lang |= GEOL_PSTRICKS;
+ set |= GEOL_GRAPHICS_BIT;
+ break;
+ case 'T':
+ if (set & GEOL_GRAPHICS_BIT)
+ err (no_line, "-tP with two graphics package specs");
+ lang |= GEOL_TIKZ;
+ set |= GEOL_GRAPHICS_BIT;
+ break;
+ case 'L':
+ if (set & GEOL_TEX_MACROS_BIT)
+ err (no_line, "-tP with two macro package specs");
+ lang |= GEOL_LATEX;
+ set |= GEOL_TEX_MACROS_BIT;
+ break;
+ case 'C':
+ if (set & GEOL_TEX_MACROS_BIT)
+ err (no_line, "-tP with two macro package specs");
+ lang |= GEOL_CONTEXT;
+ set |= GEOL_TEX_MACROS_BIT;
+ break;
+ default:
+ err (no_line, "unrecognized language spec after -Tp, '%c'",
+ argv[i][j]);
+ }
+ }
+ printf ("%% %s document template:\n%s",
+ output_language_str[lang],
+ doc_template_from_file (env->doc_template_file_name, lang));
+ env->skip_input_p = 1;
+ }
+ else if (argv[i][j] != '\0')
+ {
+ err (no_line, "unrecognized modifier of option '-T%c'",
+ argv[i][j]);
+ }
+ break;
+ case 'V':
+ if (argv[i][2] != '\0')
+ {
+ parse_pst_version(env->pst_version, &argv[i][2], no_line);
+ }
+ else
+ {
+ if (i + 1 < argc)
+ parse_pst_version(env->pst_version, &argv[++i][0], no_line);
+ else
+ err (no_line, "missing PSTricks version");
+ }
+ break;
+ case 'v':
+ fprintf (stdout, "%% sketch version %s\n", VER_STRING);
+ fprintf (stdout, "%% assumes PSTricks version %s (change with -V)\n",
+ env->pst_version->str);
+ env->skip_input_p = 1;
+ break;
+ default:
+ err (no_line, "unrecognized option '%s'", argv[i]);
+ break;
+ }
+ }
+ else
+ {
+ // no leading -
+ ++env->n_files;
+ env->argv[env->argc++] = argv[i];
+ }
+ }
+ env->argv = safe_realloc (env->argv, env->argc * sizeof (char *));
+}
+
+// advance the environment initialized above until the next filename
+// has been found, processing non-global arguments
+char *
+advance_to_next_file_name (CMD_LINE_OPT_ENV * env)
+{
+ for (; env->i < env->argc; env->i++)
+ {
+ if (env->argv[env->i][0] == '-')
+ {
+ switch (env->argv[env->i][1])
+ {
+ case 'D':
+ ++env->i;
+ (void) new_symbol (env->sym_tab, env->argv[env->i], NULL,
+ new_tag_def (), no_line);
+ break;
+ case 'U':
+ // this will produce an error message if tag doesn't exist
+ ++env->i;
+ if (tag_exists_p (env->sym_tab, env->argv[env->i]))
+ remove_symbol (env->sym_tab, env->argv[env->i], no_line);
+ break;
+ default:
+ die (no_line, "advance_to_next_file_name: unexpected option %c",
+ env->argv[env->i][1]);
+ break;
+ }
+ }
+ else
+ {
+ return env->argv[env->i++];
+ }
+ }
+ return NULL;
+}
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-16 17:37:21 +0000