SZS v2.18a

1 files changed, 441 insertions, 0 deletions

diff --git a/project/src/ui/tab-wpatt.inc b/project/src/ui/tab-wpatt.inc
new file mode 100644
index 0000000..a55b2bf
--- /dev/null
+++ b/project/src/ui/tab-wpatt.inc
@@ -0,0 +1,441 @@
+
+/***************************************************************************
+ *                         _______ _______ _______                         *
+ *                        |  ___  |____   |  ___  |                        *
+ *                        | |   |_|    / /| |   |_|                        *
+ *                        | |_____    / / | |_____                         *
+ *                        |_____  |  / /  |_____  |                        *
+ *                         _    | | / /    _    | |                        *
+ *                        | |___| |/ /____| |___| |                        *
+ *                        |_______|_______|_______|                        *
+ *                                                                         *
+ *                            Wiimms SZS Tools                             *
+ *                          https://szs.wiimm.de/                          *
+ *                                                                         *
+ ***************************************************************************
+ *                                                                         *
+ *   This file is part of the SZS project.                                 *
+ *   Visit https://szs.wiimm.de/ for project details and sources.          *
+ *                                                                         *
+ *   Copyright (c) 2011-2020 by Dirk Clemens <wiimm@wiimm.de>              *
+ *                                                                         *
+ ***************************************************************************
+ *                                                                         *
+ *   This program 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 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program 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.                          *
+ *                                                                         *
+ *   See file gpl-2.0.txt or http://www.gnu.org/licenses/gpl-2.0.txt       *
+ *                                                                         *
+ ***************************************************************************/
+
+//
+/////////////////////////////////////////////////////////////////////////////
+/////////////			    wpatt			/////////////
+/////////////////////////////////////////////////////////////////////////////
+
+  { T_DEF_TOOL,	"wpatt", 0,
+		"wpatt [option]... command [option|parameter|@file]...",
+		WPATT_LONG " :"
+		" Decode raw PAT and encode text PAT files." },
+
+  //
+  //---------- list of all wpatt commands ----------
+
+  { T_DEF_CMD,	"VERSION",	"VERSION",
+		    "wpatt VERSION [ignored]...",
+		0 /* copy of wszst */ },
+
+  { T_DEF_CMD,	"HELP",		"HELP|H|?",
+		    "wpatt HELP [--width=wd] OPT|OPTION ...\n"
+		    "wpatt HELP [--width=wd] CMD|COMMAND [ignored]...\n"
+		    "wpatt HELP [--width=wd] command [-b] [ignored]...\n"
+		    "wpatt HELP [--width=wd] [ignored]...",
+		0 /* copy of wszst */ },
+
+  { T_DEF_CMD,	"ARGTEST",	"ARGTEST",
+		    "wpatt ARGTEST ...",
+		0 /* copy of wszst */ },
+
+  { T_DEF_CMD,	"TEST",		"TEST",
+		    "wpatt TEST [options]... [ignored]...",
+		0 /* copy of wszst */ },
+
+  { T_DEF_CMD,	"COLORS",	"COLORS",
+		    "wpatt COLORS",
+		0 /* copy of wszst */ },
+
+  { T_DEF_CMD,	"ERROR",	"ERROR|ERR",
+		    "wpatt ERROR [error_code]",
+		0 /* copy of wszst */ },
+
+  { T_DEF_CMD,	"FILETYPE",	"FILETYPE|FT",
+		    "wpatt FILETYPE file...",
+		0 /* copy of wszst */ },
+
+  { T_DEF_CMD,	"FILEATTRIB",	"FILEATTRIB|FA",
+		    "wpatt FILEATTRIB [keyword]...",
+		0 /* copy of wszst */ },
+
+  { T_DEF_CMD,	"SYMBOLS",	"SYMBOLS",
+		    "wpatt SYMBOLS",
+		"Print predefined symbols of text parser to standard output."
+		" The PAT specific symbols are included." },
+
+  { T_DEF_CMD,	"FUNCTIONS",	"FUNCTIONS",
+		    "wpatt FUNCTIONS [key]...",
+		"Print a list with all parser functions including the PAT specific functions."
+		" If one key ore more key entered,"
+		" then only functions that match at least one key are printed." },
+
+  { T_DEF_CMD,	"CALCULATE",	"CALCULATE",
+		    "wpatt CALCULATE expression...",
+		0 /* copy of wszst */ },
+
+  { T_DEF_CMD,	"FLOAT",	"FLOAT",
+		    "wpatt FLOAT number...",
+		0 /* copy of wszst */ },
+
+  { H_DEF_CMD,	"EXPORT",	"_EXPORT",
+		    "wszst _EXPORT key...",
+		"This hidden command exports some definitions to standard output."
+		" Use keyword @HELP@ to get a list of possible keywords." },
+
+  { T_SEP_CMD,	0,0,0,0 }, //----- separator -----
+
+  { T_DEF_CMD,	"CAT",		"CAT",
+		    "wpatt CAT [source]...",
+		"Read the entered PAT files (text or binary) and print"
+		" them as decoded text files to standard output (stdout)."
+		" The output of all source files is concatenated." },
+
+  { T_DEF_CMD,	"DECODE",	"DECODE|DEC",
+		    "wpatt DECODE [source]...",
+		"Read the entered PAT files (text or binary)"
+		" and decode them to text files."
+		" The default destination is @'%P/%N.txt'@." },
+
+  { T_DEF_CMD,	"ENCODE",	"ENCODE|ENC",
+		    "wpatt ENCODE [source]...",
+		"Read the entered PAT files (text or binary)"
+		" and encode (compile) them to binary files."
+		" The default destination is @'%P/%N.pat'@." },
+
+  //
+  //---------- list of all wpatt options ----------
+
+  { T_OPT_S,	"VERSION",	"V|version",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_S,	"HELP",		"h|help",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_S,	"XHELP",	"xhelp",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_G,	"ALLOW_ALL",	"allow-all|allowall",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GP,	"COMPATIBLE",	"compatible",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GP|F_IGNORE,
+		"WIDTH",	"width",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GM,	"QUIET",	"q|quiet",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GM,	"VERBOSE",	"v|verbose",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GM,	"LOGGING",	"L|logging",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_G,	"DE",		"de",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GO|F_IGNORE,
+		"COLORS",	"colors",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_G|F_IGNORE,
+		"NO_COLORS",	"no-colors|nocolors",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_G,	"CT_CODE",	"ct-code|ctcode",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GO,	"LE_CODE",	"le-code|lecode",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GMP,	"CHDIR",	"chdir",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GMP,	"CONST",	"c|const",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"ROUND",	"round",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_CM,	"LONG",		"l|long",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"NO_HEADER",	"H|no-header|noheader",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"BRIEF",	"B|brief",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"NO_PARAM",	"P|no-param|noparam",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"NO_ECHO",	"no-echo|noecho",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"NO_CHECK",	"N|no-check|nocheck",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GP,	"MAX_FILE_SIZE","M|max-file-size|maxfilesize",
+		0,
+		0, 0 /* copy of wszst */ },
+
+  { H_OPT_GP,	"TRACKS",	"T|tracks",
+		0,
+		0, 0 /* copy of wszst */ },
+
+  { H_OPT_GP,	"ARENAS",	"A|arenas",
+		0,
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GP,	"PAT",		"pat",
+		0, 0 /* copy of wszst */ },
+
+  { T_SEP_OPT,	0,0,0,0 }, //----- separator -----
+
+  { H_OPT_G,	"UTF_8",	"utf-8|utf8",
+		0, 0 /* copy of wszst */ },
+
+  { H_OPT_G,	"NO_UTF_8",	"no-utf-8|no-utf8|noutf8",
+		0, 0 /* copy of wszst */ },
+
+  { T_SEP_OPT,	0,0,0,0 }, //----- separator -----
+
+  { T_OPT_GM,	"TEST",		"t|test",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GM,	"FORCE",	"force",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_GO,	"REPAIR_MAGICS",	"repair-magics|repairmagics",
+		0, 0 /* copy of wszst */ },
+
+ #if OPT_OLD_NEW
+  { H_OPT_GM,	"OLD",		"OLD",
+		0, 0 /* copy of wszst */ },
+
+  { H_OPT_GM,	"STD",		"STD",
+		0, 0 /* copy of wszst */ },
+
+  { H_OPT_GM,	"NEW",		"NEW",
+		0, 0 /* copy of wszst */ },
+ #endif
+
+  { H_OPT_GM,	"EXTRACT",	"EXTRACT",
+		0, 0 /* copy of wszst */ },
+
+  { T_SEP_OPT,	0,0,0,0 }, //----- separator -----
+
+  { T_OPT_CP,	"DEST",		"d|dest",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_CP,	"DEST2",	"D|DEST",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_CP,	"ESC",		"E|esc",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"OVERWRITE",	"o|overwrite",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"NUMBER",	"number|num",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"REMOVE_DEST",	"r|remove-dest|removedest|rm-dest|rmdest|remove",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"UPDATE",	"u|update",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"PRESERVE",	"p|preserve",
+		0, 0 /* copy of wszst */ },
+
+  { T_OPT_C,	"IGNORE",	"i|ignore",
+		0, 0 /* copy of wszst */ },
+
+  { T_SEP_OPT,	0,0,0,0 }, //----- separator -----
+
+  { T_OPT_C,	"SECTIONS",	"sections",
+		0, 0 /* copy of wszst */ },
+
+  //
+  //---------- wpatt GROUP DEST ----------
+
+  { T_GRP_BEG,	"DEST",		0,0,0 },
+
+  { T_COPT,	"DEST",		0,0,0 },
+  { T_COPT,	"DEST2",	0,0,0 },
+  { T_COPT,	"ESC",		0,0,0 },
+  { T_COPT,	"PAT",		0,0,0 },
+  { T_SEP_OPT,	0,0,0,0 },
+  { T_COPT,	"OVERWRITE",	0,0,0 },
+  { T_COPT,	"NUMBER",	0,0,0 },
+  { T_COPT,	"REMOVE_DEST",	0,0,0 },
+  { T_COPT,	"UPDATE",	0,0,0 },
+  { T_COPT,	"PRESERVE",	0,0,0 },
+
+  //
+  //---------- wpatt GROUP TEXTOUT ----------
+
+  { T_GRP_BEG,	"TEXTOUT",		0,0,0 },
+
+  { T_COPT,	"IGNORE",	0,0,0 },
+  { T_COPT,	"NO_HEADER",	0,0,
+	"Suppress the syntax information section in PAT text files." },
+  { T_COPT,	"BRIEF",	0,0,0 },
+
+  //
+  //---------- COMMAND wpatt VERSION ----------
+
+  { T_CMD_BEG,	"VERSION",	0,0,0 },
+
+  { T_COPT,	"BRIEF",	0,0,
+	"Print only the version number, revision and system."
+	" If set twice, print only the version number." },
+  { T_COPT,	"SECTIONS",	0,0,0 },
+  { T_COPT,	"LONG",		0,0,
+	"Print in long format. Ignored if option {--sections} is set." },
+
+  //---------- COMMAND wpatt HELP ----------
+
+  { T_CMD_BEG,	"HELP",		0,0,0 },
+
+  { T_COPT,	"WIDTH",	0,0,0 },
+  { T_ALL_OPT,	0,		0,0,0 },
+
+  //---------- COMMAND wpatt ARGTEST ----------
+
+  { T_CMD_BEG,	"ARGTEST",	0,0,0 },
+
+  { T_ALL_OPT,	0,		0,0,0 },
+
+  //---------- COMMAND wpatt TEST ----------
+
+  { T_CMD_BEG,	"TEST",		0,0,0 },
+
+  { T_ALL_OPT,	0,		0,0,0 },
+
+  //---------- COMMAND wpatt COLORS ----------
+
+  { T_CMD_BEG,	"COLORS",	0,0,0 },
+
+  { T_COPT,	"COLORS",	0,0,0 },
+  { T_COPT,	"NO_COLORS",	0,0,0 },
+  { T_COPT,	"LONG",		0,0,
+	"Print also a list of all colored text types."
+	" If set twice, include alternative names."
+	" If set three times, include raw color names." },
+  { T_COPT,	"BRIEF",	0,0,
+	"Ignore option --long and print a single status line about current color settings." },
+
+  //---------- COMMAND wpatt ERROR ----------
+
+  { T_CMD_BEG,	"ERROR",	0,0,0 },
+
+  { T_COPT,	"SECTIONS",	0,0,0 },
+  { T_COPT,	"NO_HEADER",	0,0,0 },
+  { T_COPT,	"LONG",		0,0,
+	"Print message text instead of message name." },
+  { T_COPT,	"BRIEF",		0,0,
+	"Print message number instead of message name." },
+
+  //---------- COMMAND wpatt FILETYPE ----------
+
+  { T_CMD_BEG,	"FILETYPE",	0,0,0 },
+
+  { T_COPT,	"LONG",		0,0,
+	"Print an additional column with the decompressed file type and version."
+	" If entered twice, a validation status column is added." },
+  { T_COPT,	"IGNORE",	0,0,0 },
+
+  //---------- COMMAND wpatt FILEATTRIB ----------
+
+  { T_CMD_BEG,	"FILEATTRIB",	0,0,0 },
+
+  { T_COPT,	"NO_HEADER",	0,0,0 },
+
+  //---------- COMMAND wpatt SYMBOLS ----------
+
+  { T_CMD_BEG,	"SYMBOLS",	0,0,0 },
+
+  { T_COPT,	"NO_HEADER",	0,0,0 },
+
+  //---------- COMMAND wpatt FUNCTIONS ----------
+
+  { T_CMD_BEG,	"FUNCTIONS",	0,0,0 },
+
+  { T_COPT,	"NO_HEADER",	0,0,0 },
+  { T_COPT,	"BRIEF",	0,0, FUNCTION_BRIEF },
+  { T_COPT,	"LONG",		0,0, FUNCTION_LONG },
+
+  //---------- COMMAND wpatt CALCULATE ----------
+
+  { T_CMD_BEG,	"CALCULATE",	0,0,0 },
+
+  { T_COPT,	"CONST",	0,0,0 },
+
+  //---------- COMMAND wpatt FLOAT ----------
+
+  { T_CMD_BEG,	"FLOAT",	0,0,0 },
+  { T_COPT,	"ROUND",	0,0,0 },
+
+  //---------- COMMAND wpatt EXPORT ----------
+
+  { T_CMD_BEG,	"EXPORT",	0,0,0 },
+
+  //---------- COMMAND wpatt CAT ----------
+
+  { T_CMD_BEG,	"CAT",		0,0,0 },
+  { T_COPY_GRP,	"TEXTOUT",	0,0,0 },
+  { T_COPT,	"NO_ECHO",	0,0,0 },
+  { T_COPT,	"NO_CHECK",	0,0,0 },
+  { T_COPT,	"IGNORE",	0,0,0 },
+
+  //---------- COMMAND wpatt DECODE ----------
+
+  { T_CMD_BEG,	"DECODE",	0,0,0 },
+  { T_COPY_GRP,	"DEST",		0,0,0 },
+  { T_COPY_GRP,	"TEXTOUT",	0,0,0 },
+  { T_COPT,	"NO_ECHO",	0,0,0 },
+  { T_COPT,	"NO_CHECK",	0,0,0 },
+  { T_COPT,	"IGNORE",	0,0,0 },
+
+  //---------- COMMAND wpatt ENCODE ----------
+
+  { T_CMD_BEG,	"ENCODE",	0,0,0 },
+  { T_COPY_GRP,	"DEST",		0,0,0 },
+  { T_COPT,	"NO_ECHO",	0,0,0 },
+  { T_COPT,	"NO_CHECK",	0,0,0 },
+  { T_COPT,	"IGNORE",	0,0,0 },
+
+
+//
+///////////////////////////////////////////////////////////////////////////////
+///////////////			    E N D			///////////////
+///////////////////////////////////////////////////////////////////////////////