| [107] | 1 |  | 
|---|
|  | 2 | /*********************************************************************** | 
|---|
|  | 3 |  | 
|---|
|  | 4 | $Id: avv.c 1751 2014-03-01 18:40:15Z jbs $ | 
|---|
|  | 5 |  | 
|---|
| [122] | 6 | archiver.bb2 editor | 
|---|
|  | 7 |  | 
|---|
| [107] | 8 | Copyright (c) 1993-98 M. Kimes | 
|---|
| [1498] | 9 | Copyright (c) 2004, 2010 Steven H.Levine | 
|---|
| [107] | 10 |  | 
|---|
| [199] | 11 | 31 Jul 04 SHL ArcReviewDlgProc: correct nameis... decodes | 
|---|
|  | 12 | 01 Aug 04 SHL Localize functions | 
|---|
|  | 13 | 01 Aug 04 SHL Rework fixup usage | 
|---|
|  | 14 | 06 Jun 05 SHL Drop unused | 
|---|
| [250] | 15 | 14 Aug 05 SHL rewrite_archiverbb2: avoid dereferencing null signature | 
|---|
|  | 16 | 14 Aug 05 SHL ArcReviewDlgProc: ensure signature allocated | 
|---|
| [420] | 17 | 29 May 06 SHL EditArchiverDefinition: rework | 
|---|
| [313] | 18 | 26 Jun 06 SHL rewrite_archiverbb2: include user comments | 
|---|
| [347] | 19 | 14 Jul 06 SHL Use Runtime_Error | 
|---|
| [404] | 20 | 29 Jul 06 SHL Use xfgets | 
|---|
| [420] | 21 | 30 Jul 06 SHL Avoid warnings when editing new definition | 
|---|
| [574] | 22 | 22 Mar 07 GKY Use QWL_USER | 
|---|
| [697] | 23 | 16 Jun 07 SHL Update for OpenWatcom | 
|---|
| [793] | 24 | 20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat | 
|---|
| [920] | 25 | 06 Jan 08 GKY Use NormalizeCmdLine to check program strings on entry | 
|---|
| [985] | 26 | 29 Feb 08 GKY Changes to enable user settable command line length | 
|---|
| [1115] | 27 | 24 Aug 08 GKY Fix truncation of cmdline length to 3 characters is now MaxComLineStrg | 
|---|
| [1119] | 28 | 24 Aug 08 GKY Warn full drive on save of .BB2 file; prevent loss of existing file | 
|---|
| [1297] | 29 | 23 Nov 08 JBS Support use of CMD files in archiver definitions | 
|---|
| [1391] | 30 | 11 Jan 08 GKY Replace "ARCHIVER.BB2" in string file with global set at compile in init.c | 
|---|
| [1498] | 31 | 17 JAN 10 GKY Changes to get working with Watcom 1.9 Beta (1/16/10). Mostly cast CHAR CONSTANT * as CHAR *. | 
|---|
| [1616] | 32 | 13 Aug 11 GKY Change to Doxygen comment format | 
|---|
| [1717] | 33 | 15 Feb 14 GKY Assure the title is blank on the execute dialog call with the "see" button | 
|---|
| [1744] | 34 | 24 Feb 14 JBS Ticket #517: Replaced a call to DosQueryAppType to a call to the wrapped xDosQueryApptType | 
|---|
| [1746] | 35 | 24 Feb 14 JBS Ticket #523: Stop considering missing "list", "create" or "extract" commands as errors | 
|---|
| [1750] | 36 | 01 Mar 14 JBS Ticket #524: Made "searchapath" thread-safe. Function names and signatures were changed. | 
|---|
|  | 37 | So calls to these functions had to be changed and checkfile's signature was changed. | 
|---|
| [107] | 38 |  | 
|---|
|  | 39 | ***********************************************************************/ | 
|---|
|  | 40 |  | 
|---|
| [907] | 41 | #include <stdlib.h> | 
|---|
|  | 42 | #include <string.h> | 
|---|
| [1220] | 43 | #include <time.h> | 
|---|
| [907] | 44 |  | 
|---|
| [2] | 45 | #define INCL_DOS | 
|---|
|  | 46 | #define INCL_WIN | 
|---|
| [907] | 47 | #define INCL_LONGLONG                   // dircnrs.h | 
|---|
| [2] | 48 |  | 
|---|
| [1186] | 49 | #include "fm3dll.h" | 
|---|
| [1220] | 50 | #include "fm3dll2.h"                    // #define's for UM_*, control id's, etc. | 
|---|
| [1204] | 51 | #include "arccnrs.h"                    // Data declaration(s) | 
|---|
|  | 52 | #include "notebook.h"                   // Data declaration(s) | 
|---|
|  | 53 | #include "init.h"                       // Data declaration(s) | 
|---|
|  | 54 | #include "mainwnd.h"                    // Data declaration(s) | 
|---|
| [2] | 55 | #include "fm3dlg.h" | 
|---|
|  | 56 | #include "version.h" | 
|---|
|  | 57 | #include "fm3str.h" | 
|---|
| [907] | 58 | #include "strutil.h"                    // GetPString | 
|---|
|  | 59 | #include "errutil.h"                    // Runtime_Error | 
|---|
| [1162] | 60 | #include "cmdline.h"                    // CmdLineDlgProc | 
|---|
|  | 61 | #include "avv.h" | 
|---|
|  | 62 | #include "literal.h"                    // fixup | 
|---|
| [1186] | 63 | #include "avl.h"                        // SBoxDlgProc | 
|---|
|  | 64 | #include "wrappers.h"                   // xfgets | 
|---|
| [920] | 65 | #include "pathutil.h"                   // NormalizeCmdLine | 
|---|
| [1186] | 66 | #include "strips.h"                     // bstrip | 
|---|
|  | 67 | #include "misc.h"                       // CheckDriveSpaceAvail | 
|---|
| [1750] | 68 | #include "srchpath.h"                   // Search*Path*ForFile | 
|---|
| [1186] | 69 | #include "systemf.h"                    // runemf2 | 
|---|
| [1039] | 70 | #include "fortify.h" | 
|---|
| [2] | 71 |  | 
|---|
| [1204] | 72 | // Data definitions | 
|---|
| [2] | 73 | #pragma data_seg(DATA1) | 
|---|
| [347] | 74 |  | 
|---|
|  | 75 | static PSZ pszSrcFile = __FILE__; | 
|---|
|  | 76 |  | 
|---|
| [1750] | 77 | static ULONG checkfile(PSZ file); | 
|---|
| [551] | 78 | static BOOL check_archiver(HWND hwnd, ARC_TYPE * info); | 
|---|
|  | 79 | static INT get_int_from_window(HWND hwnd, USHORT id); | 
|---|
|  | 80 | static LONG get_long_from_window(HWND hwnd, USHORT id); | 
|---|
| [122] | 81 | static PSZ nonull(PSZ a); | 
|---|
| [551] | 82 | static PSZ free_and_strdup_from_window(HWND hwnd, USHORT id, PSZ pszDest); | 
|---|
| [906] | 83 | static PSZ free_and_strdup_quoted_from_window(HWND hwnd, USHORT id, PSZ pszDest); | 
|---|
| [2] | 84 |  | 
|---|
| [1204] | 85 | #pragma data_seg(GLOBAL2) | 
|---|
|  | 86 | CHAR archiverbb2[CCHMAXPATH]; | 
|---|
|  | 87 |  | 
|---|
| [420] | 88 | //=== EditArchiverDefinition() Select archiver to edit definition === | 
|---|
|  | 89 | VOID EditArchiverDefinition(HWND hwnd) | 
|---|
| [122] | 90 | { | 
|---|
| [2] | 91 | ARCDUMP ad; | 
|---|
| [304] | 92 | ARC_TYPE *pat; | 
|---|
| [2] | 93 |  | 
|---|
| [304] | 94 | // Allow multiple edits | 
|---|
|  | 95 | for (;;) { | 
|---|
| [551] | 96 | pat = NULL;                         // Do not hide dups | 
|---|
| [304] | 97 | if (!WinDlgBox(HWND_DESKTOP, | 
|---|
| [551] | 98 | hwnd, | 
|---|
|  | 99 | SBoxDlgProc, | 
|---|
|  | 100 | FM3ModHandle, ASEL_EDIT_FRAME, (PVOID) & pat) || !pat) { | 
|---|
| [304] | 101 | break;                            // we are done | 
|---|
| [2] | 102 | } | 
|---|
| [304] | 103 |  | 
|---|
| [551] | 104 | memset(&ad, 0, sizeof(ARCDUMP)); | 
|---|
| [304] | 105 | ad.info = pat; | 
|---|
|  | 106 | WinDlgBox(HWND_DESKTOP, | 
|---|
| [551] | 107 | hwnd, ArcReviewDlgProc, FM3ModHandle, AD_FRAME, MPFROMP(&ad)); | 
|---|
|  | 108 | }                                     // for | 
|---|
| [2] | 109 | } | 
|---|
|  | 110 |  | 
|---|
| [551] | 111 | static PSZ free_and_strdup_from_window(HWND hwnd, USHORT id, PSZ pszDest) | 
|---|
| [122] | 112 | { | 
|---|
| [420] | 113 | CHAR sz[256]; | 
|---|
| [2] | 114 |  | 
|---|
| [1009] | 115 | xfree(pszDest, pszSrcFile, __LINE__); | 
|---|
| [551] | 116 | WinQueryDlgItemText(hwnd, id, sizeof(sz), sz); | 
|---|
| [347] | 117 | if (*sz) | 
|---|
|  | 118 | pszDest = xstrdup(sz, pszSrcFile, __LINE__); | 
|---|
|  | 119 | else | 
|---|
|  | 120 | pszDest = NULL; | 
|---|
| [122] | 121 | return pszDest; | 
|---|
| [2] | 122 | } | 
|---|
|  | 123 |  | 
|---|
| [906] | 124 | static PSZ free_and_strdup_quoted_from_window(HWND hwnd, USHORT id, PSZ pszDest) | 
|---|
| [918] | 125 | { // fixme for command line limit | 
|---|
| [985] | 126 | CHAR *szCmdLine; | 
|---|
| [989] | 127 | PSZ pszWorkBuf; | 
|---|
| [906] | 128 |  | 
|---|
| [985] | 129 | szCmdLine = xmalloc(MaxComLineStrg, pszSrcFile, __LINE__); | 
|---|
| [989] | 130 | if (szCmdLine) { | 
|---|
| [1009] | 131 | xfree(pszDest, pszSrcFile, __LINE__); | 
|---|
| [1115] | 132 | WinQueryDlgItemText(hwnd, id, MaxComLineStrg, szCmdLine); | 
|---|
| [985] | 133 | pszWorkBuf = xmalloc(MaxComLineStrg, pszSrcFile, __LINE__); | 
|---|
| [959] | 134 | if (pszWorkBuf) { | 
|---|
|  | 135 | NormalizeCmdLine(pszWorkBuf, szCmdLine); | 
|---|
|  | 136 | pszDest = xstrdup(pszWorkBuf, pszSrcFile, __LINE__); | 
|---|
| [1039] | 137 | free(pszWorkBuf); | 
|---|
| [959] | 138 | } | 
|---|
|  | 139 | else | 
|---|
|  | 140 | pszDest = xstrdup(szCmdLine, pszSrcFile, __LINE__); // return the unexamined input on failure | 
|---|
| [1039] | 141 | free(szCmdLine); | 
|---|
| [906] | 142 | } | 
|---|
|  | 143 | else | 
|---|
|  | 144 | pszDest = NULL; | 
|---|
|  | 145 | return pszDest; | 
|---|
|  | 146 | } | 
|---|
|  | 147 |  | 
|---|
| [551] | 148 | static INT get_int_from_window(HWND hwnd, USHORT id) | 
|---|
| [122] | 149 | { | 
|---|
| [420] | 150 | CHAR s[256]; | 
|---|
| [2] | 151 |  | 
|---|
| [551] | 152 | WinQueryDlgItemText(hwnd, id, sizeof(s), s); | 
|---|
| [2] | 153 | return atoi(s); | 
|---|
|  | 154 | } | 
|---|
|  | 155 |  | 
|---|
| [551] | 156 | static INT get_int2_from_window(HWND hwnd, USHORT id) | 
|---|
| [122] | 157 | { | 
|---|
| [420] | 158 | CHAR s[256]; | 
|---|
|  | 159 | PSZ p; | 
|---|
| [2] | 160 |  | 
|---|
| [551] | 161 | WinQueryDlgItemText(hwnd, id, sizeof(s), s); | 
|---|
|  | 162 | p = strchr(s, ','); | 
|---|
|  | 163 | if (p) | 
|---|
| [2] | 164 | p++; | 
|---|
| [420] | 165 | return p ? atoi(p) : 0; | 
|---|
| [2] | 166 | } | 
|---|
|  | 167 |  | 
|---|
| [551] | 168 | INT get_int3_from_window(HWND hwnd, USHORT id) | 
|---|
| [122] | 169 | { | 
|---|
| [420] | 170 | CHAR s[256]; | 
|---|
|  | 171 | PSZ p; | 
|---|
| [2] | 172 |  | 
|---|
| [551] | 173 | WinQueryDlgItemText(hwnd, id, sizeof(s), s); | 
|---|
|  | 174 | p = strchr(s, ','); | 
|---|
|  | 175 | if (p) { | 
|---|
| [2] | 176 | p++; | 
|---|
| [551] | 177 | p = strchr(p, ','); | 
|---|
|  | 178 | if (p) | 
|---|
| [2] | 179 | p++; | 
|---|
|  | 180 | } | 
|---|
| [420] | 181 | return p ? atoi(p) : 0; | 
|---|
| [2] | 182 | } | 
|---|
|  | 183 |  | 
|---|
| [551] | 184 | INT get_int4_from_window(HWND hwnd, USHORT id) | 
|---|
| [122] | 185 | { | 
|---|
| [420] | 186 | CHAR s[256]; | 
|---|
|  | 187 | PSZ p; | 
|---|
| [2] | 188 |  | 
|---|
| [551] | 189 | WinQueryDlgItemText(hwnd, id, sizeof(s), s); | 
|---|
|  | 190 | p = strchr(s, ','); | 
|---|
| [420] | 191 | if (p) { | 
|---|
| [2] | 192 | p++; | 
|---|
| [551] | 193 | p = strchr(p, ','); | 
|---|
| [420] | 194 | if (p) { | 
|---|
| [2] | 195 | p++; | 
|---|
| [551] | 196 | p = strchr(p, ','); | 
|---|
| [420] | 197 | if (p) | 
|---|
| [551] | 198 | p++; | 
|---|
| [2] | 199 | } | 
|---|
|  | 200 | } | 
|---|
| [420] | 201 | return p ? atoi(p) : 0; | 
|---|
| [2] | 202 | } | 
|---|
|  | 203 |  | 
|---|
| [551] | 204 | LONG get_long_from_window(HWND hwnd, USHORT id) | 
|---|
| [122] | 205 | { | 
|---|
| [420] | 206 | CHAR s[256]; | 
|---|
| [2] | 207 |  | 
|---|
| [551] | 208 | WinQueryDlgItemText(hwnd, id, sizeof(s), s); | 
|---|
| [2] | 209 | return atol(s); | 
|---|
|  | 210 | } | 
|---|
|  | 211 |  | 
|---|
|  | 212 |  | 
|---|
| [122] | 213 | // nonull - convert NULL pointer to empty string | 
|---|
| [2] | 214 |  | 
|---|
| [122] | 215 | static PSZ nonull(PSZ psz) | 
|---|
|  | 216 | { | 
|---|
| [551] | 217 | if (!psz) | 
|---|
| [122] | 218 | psz = NullStr; | 
|---|
|  | 219 | return psz; | 
|---|
| [2] | 220 | } | 
|---|
|  | 221 |  | 
|---|
| [313] | 222 | //=== rewrite_archiverbb2() rewrite archiver.bb2, prompt if arg NULL, merge comments === | 
|---|
| [2] | 223 |  | 
|---|
| [551] | 224 | VOID rewrite_archiverbb2(PSZ archiverbb2) | 
|---|
| [122] | 225 | { | 
|---|
| [551] | 226 | FILE *fpNew; | 
|---|
|  | 227 | FILE *fpOld = NULL; | 
|---|
|  | 228 | UINT entry_num = 0;           // Definition counter | 
|---|
|  | 229 | UINT input_line_num = 0;      // Input file line counter | 
|---|
|  | 230 | ARC_TYPE *pat; | 
|---|
|  | 231 | CHAR sz[258]; | 
|---|
|  | 232 | CHAR *psz; | 
|---|
|  | 233 | BOOL needEntryNumber; | 
|---|
|  | 234 | BOOL needReload = FALSE;      // Because line numbers changed | 
|---|
|  | 235 | time_t t; | 
|---|
| [313] | 236 | struct tm *tm; | 
|---|
| [551] | 237 | CHAR ch; | 
|---|
| [1544] | 238 | CHAR *mode; | 
|---|
| [2] | 239 |  | 
|---|
| [304] | 240 | arcsigsmodified = FALSE; | 
|---|
|  | 241 |  | 
|---|
|  | 242 | if (!arcsighead) { | 
|---|
| [2] | 243 | saymsg(MB_CANCEL | MB_ICONEXCLAMATION, | 
|---|
| [551] | 244 | HWND_DESKTOP, | 
|---|
|  | 245 | GetPString(IDS_SAYWHATTEXT), GetPString(IDS_NOINFOTOSAVETEXT)); | 
|---|
| [2] | 246 | return; | 
|---|
|  | 247 | } | 
|---|
| [304] | 248 | // Alert unless file name passed | 
|---|
|  | 249 | if (!archiverbb2 || !*archiverbb2) { | 
|---|
| [2] | 250 | saymsg(MB_ENTER | MB_ICONASTERISK, | 
|---|
| [551] | 251 | HWND_DESKTOP, | 
|---|
|  | 252 | GetPString(IDS_NOTETEXT), GetPString(IDS_SAVEARCBB2TEXT)); | 
|---|
| [1398] | 253 | archiverbb2 = (PSZ) PCSZ_ARCHIVERBB2; | 
|---|
| [2] | 254 | } | 
|---|
| [1616] | 255 | // Check space on drive | 
|---|
|  | 256 | if (CheckDriveSpaceAvail(archiverbb2, ullDATFileSpaceNeeded * 4, 1) == 2) // 4 is because this file is larger than other .dat files | 
|---|
| [1118] | 257 | return; //already gave error msg | 
|---|
| [313] | 258 |  | 
|---|
| [1616] | 259 | // save a backup | 
|---|
| [551] | 260 | psz = strrchr(archiverbb2, '.'); | 
|---|
| [1398] | 261 | if (psz && !stricmp(psz, PCSZ_DOTBB2)) { | 
|---|
| [551] | 262 | strcpy(psz, ".BAK"); | 
|---|
| [2] | 263 | DosDelete(archiverbb2); | 
|---|
| [551] | 264 | strcpy(sz, archiverbb2); | 
|---|
| [1398] | 265 | strcpy(psz, PCSZ_DOTBB2); | 
|---|
| [551] | 266 | DosMove(archiverbb2, sz); | 
|---|
| [1544] | 267 | mode = "r"; | 
|---|
|  | 268 | fpOld = xfopen(sz, mode, pszSrcFile, __LINE__, TRUE);               // OK for file not to exist | 
|---|
| [2] | 269 | } | 
|---|
| [1544] | 270 | mode = "w"; | 
|---|
|  | 271 | fpNew = xfopen(archiverbb2, mode, pszSrcFile, __LINE__, TRUE); | 
|---|
| [1118] | 272 |  | 
|---|
| [313] | 273 | if (fpNew) { | 
|---|
|  | 274 |  | 
|---|
| [551] | 275 | fprintf(fpNew, "%u\n", LINES_PER_ARCSIG); | 
|---|
| [313] | 276 | t = time(NULL); | 
|---|
|  | 277 | tm = localtime(&t); | 
|---|
| [1395] | 278 | //fixme to use DateFmt from locale | 
|---|
| [313] | 279 | fprintf(fpNew, | 
|---|
| [551] | 280 | ";\n; %s file written by FM/2 v%d.%02d on %u/%u/%u %u:%02u:%02u\n;\n", | 
|---|
| [1398] | 281 | PCSZ_ARCHIVERBB2, | 
|---|
| [551] | 282 | VERMAJOR, VERMINOR, | 
|---|
|  | 283 | tm->tm_mon + 1, tm->tm_mday, tm->tm_year + 1900, | 
|---|
|  | 284 | tm->tm_hour, tm->tm_min, tm->tm_sec); | 
|---|
| [313] | 285 | // Rewrite header if known | 
|---|
|  | 286 | if (fpOld && arcsigs_header_lines) { | 
|---|
|  | 287 | needReload = TRUE; | 
|---|
|  | 288 | while (input_line_num < arcsigs_header_lines) { | 
|---|
| [551] | 289 | psz = xfgets(sz, sizeof(sz), fpOld, pszSrcFile, __LINE__); | 
|---|
| [313] | 290 | if (!psz) | 
|---|
|  | 291 | break; | 
|---|
| [551] | 292 | input_line_num++; | 
|---|
| [313] | 293 | if (input_line_num == 1) | 
|---|
| [551] | 294 | continue;                     // Bypass sig count | 
|---|
|  | 295 | fputs(sz, fpNew); | 
|---|
| [313] | 296 | } | 
|---|
|  | 297 | } | 
|---|
|  | 298 | else { | 
|---|
|  | 299 | // Write default header | 
|---|
| [1398] | 300 | fputs(PCSZ_ARCHIVERBB2, fpNew); | 
|---|
| [313] | 301 | } | 
|---|
|  | 302 | pat = arcsighead; | 
|---|
|  | 303 | while (pat) { | 
|---|
|  | 304 | needEntryNumber = TRUE; | 
|---|
|  | 305 | // Rewrite per sig header comments if any exist | 
|---|
| [551] | 306 | if (fpOld && pat->comment_line_num) { | 
|---|
|  | 307 | needReload = TRUE;              // fixme to optimize | 
|---|
| [313] | 308 | // Definitions reordered - need to rewind | 
|---|
| [551] | 309 | if (input_line_num > pat->comment_line_num) { | 
|---|
| [313] | 310 | fseek(fpOld, 0, SEEK_SET); | 
|---|
|  | 311 | input_line_num = 0; | 
|---|
|  | 312 | } | 
|---|
| [551] | 313 | while (input_line_num + 1 < pat->defn_line_num) { | 
|---|
|  | 314 | psz = xfgets(sz, sizeof(sz), fpOld, pszSrcFile, __LINE__); | 
|---|
| [313] | 315 | if (!psz) | 
|---|
|  | 316 | break;                      // Unexpected EOF | 
|---|
| [551] | 317 | input_line_num++; | 
|---|
|  | 318 | if (input_line_num < pat->comment_line_num) | 
|---|
| [313] | 319 | continue; | 
|---|
| [551] | 320 | if (needEntryNumber && strnicmp(sz, "; Entry #", 9) == 0) { | 
|---|
|  | 321 | // Rewrite entry count comment | 
|---|
| [313] | 322 | needEntryNumber = FALSE; | 
|---|
| [551] | 323 | for (psz = sz + 9; *psz == ' '; psz++) ;    // Find non-blank | 
|---|
|  | 324 | for (; (ch = *psz) >= '0' && ch <= '9'; psz++) ;    // Find end of entry# | 
|---|
|  | 325 | fprintf(fpNew, GetPString(IDS_ENTRYCNTRTEXT), ++entry_num); | 
|---|
|  | 326 | fputs(psz, fpNew); | 
|---|
|  | 327 | } | 
|---|
| [313] | 328 | else { | 
|---|
| [551] | 329 | fputs(sz, fpNew); | 
|---|
| [313] | 330 | } | 
|---|
| [551] | 331 | } | 
|---|
| [313] | 332 | } | 
|---|
|  | 333 |  | 
|---|
|  | 334 | if (needEntryNumber) { | 
|---|
| [551] | 335 | fputs(";\n", fpNew); | 
|---|
|  | 336 | fprintf(fpNew, GetPString(IDS_ENTRYCNTRTEXT), ++entry_num); | 
|---|
|  | 337 | if (pat->id) | 
|---|
|  | 338 | fprintf(fpNew, " (%s)", pat->id); | 
|---|
|  | 339 | fputs("\n;\n", fpNew); | 
|---|
| [313] | 340 | } | 
|---|
|  | 341 |  | 
|---|
|  | 342 | fprintf(fpNew, | 
|---|
| [551] | 343 | "%s\n%s\n%ld\n%s\n", | 
|---|
|  | 344 | nonull(pat->id), | 
|---|
|  | 345 | nonull(pat->ext), pat->file_offset, nonull(pat->list)); | 
|---|
| [313] | 346 | fprintf(fpNew, | 
|---|
| [551] | 347 | "%s\n%s\n%s\n%s\n%s\n%s\n", | 
|---|
|  | 348 | nonull(pat->extract), | 
|---|
|  | 349 | nonull(pat->exwdirs), | 
|---|
|  | 350 | nonull(pat->test), | 
|---|
|  | 351 | nonull(pat->create), | 
|---|
|  | 352 | nonull(pat->createwdirs), nonull(pat->createrecurse)); | 
|---|
| [313] | 353 | fprintf(fpNew, | 
|---|
| [551] | 354 | "%s\n%s\n%s\n", | 
|---|
|  | 355 | nonull(pat->move), nonull(pat->movewdirs), nonull(pat->delete)); | 
|---|
| [313] | 356 | fprintf(fpNew, | 
|---|
| [551] | 357 | "%s\n%s\n%s\n%d\n%d\n%d,%d\n%d\n%d,%lu,%lu,%lu\n", | 
|---|
|  | 358 | fixup(pat->signature, | 
|---|
|  | 359 | sz, | 
|---|
|  | 360 | sizeof(sz), | 
|---|
|  | 361 | pat->siglen), | 
|---|
|  | 362 | nonull(pat->startlist), | 
|---|
|  | 363 | nonull(pat->endlist), | 
|---|
|  | 364 | pat->osizepos, | 
|---|
|  | 365 | pat->nsizepos, | 
|---|
|  | 366 | pat->fdpos, | 
|---|
|  | 367 | pat->datetype, | 
|---|
|  | 368 | pat->fdflds, | 
|---|
|  | 369 | pat->fnpos, pat->nameislast, pat->nameisnext, pat->nameisfirst); | 
|---|
| [313] | 370 | pat = pat->next; | 
|---|
| [551] | 371 | }                                   // while more sigs | 
|---|
| [313] | 372 |  | 
|---|
|  | 373 | // Rewrite trailer comments if known | 
|---|
|  | 374 | if (fpOld && arcsigs_trailer_line_num) { | 
|---|
|  | 375 | for (;;) { | 
|---|
| [551] | 376 | psz = xfgets(sz, sizeof(sz), fpOld, pszSrcFile, __LINE__); | 
|---|
| [313] | 377 | if (!psz) | 
|---|
|  | 378 | break; | 
|---|
| [551] | 379 | input_line_num++; | 
|---|
| [313] | 380 | if (input_line_num < arcsigs_trailer_line_num) | 
|---|
| [551] | 381 | continue;                     // Bypass sig count | 
|---|
|  | 382 | fputs(sz, fpNew); | 
|---|
| [313] | 383 | } | 
|---|
| [2] | 384 | } | 
|---|
| [313] | 385 |  | 
|---|
|  | 386 | fclose(fpNew); | 
|---|
|  | 387 |  | 
|---|
| [551] | 388 | }                                     // if fpNew open OK | 
|---|
| [313] | 389 |  | 
|---|
|  | 390 | if (fpOld) | 
|---|
|  | 391 | fclose(fpOld); | 
|---|
|  | 392 |  | 
|---|
|  | 393 | if (needReload) | 
|---|
|  | 394 | load_archivers();                   // Resync commend line numbers | 
|---|
| [2] | 395 | } | 
|---|
|  | 396 |  | 
|---|
| [1750] | 397 | /** | 
|---|
|  | 398 | * checkfile: Determine if a program is reachable and of an acceptable type. | 
|---|
|  | 399 | * | 
|---|
|  | 400 | * @param pFilename: the name of a program file to check (input) | 
|---|
|  | 401 | * | 
|---|
|  | 402 | * @return 0 if the program reachable and of an acceptable type | 
|---|
|  | 403 | *         1 if the program is unreachable (or pFilename is invalid) | 
|---|
|  | 404 | *         2 if the program is of an unacceptable type | 
|---|
|  | 405 | *         3 if pFilename is null or points to a null string | 
|---|
|  | 406 | * | 
|---|
|  | 407 | */ | 
|---|
|  | 408 | static ULONG checkfile(PSZ file) | 
|---|
| [122] | 409 | { | 
|---|
| [1750] | 410 | CHAR szFullFilename[CCHMAXPATH], *pp = NULL; | 
|---|
|  | 411 | ULONG ret; | 
|---|
| [2] | 412 | ULONG apptype; | 
|---|
|  | 413 |  | 
|---|
| [551] | 414 | if (!file || !*file) { | 
|---|
| [1750] | 415 | return 3; | 
|---|
| [2] | 416 | } | 
|---|
| [551] | 417 | pp = strchr(file, ' '); | 
|---|
|  | 418 | if (pp) | 
|---|
| [2] | 419 | *pp = 0; | 
|---|
| [1750] | 420 | if (SearchPathForFile(PCSZ_PATH, file, szFullFilename)) { | 
|---|
|  | 421 | ret = 1; | 
|---|
|  | 422 | } | 
|---|
| [2] | 423 | else { | 
|---|
| [1750] | 424 | ret = xDosQueryAppType(szFullFilename, &apptype); | 
|---|
| [1297] | 425 | apptype &= (~FAPPTYP_32BIT); | 
|---|
|  | 426 | if (!apptype || | 
|---|
| [1394] | 427 | (apptype == FAPPTYP_NOTWINDOWCOMPAT) || | 
|---|
|  | 428 | (apptype == FAPPTYP_WINDOWCOMPAT) || | 
|---|
|  | 429 | (apptype & FAPPTYP_BOUND) || | 
|---|
|  | 430 | (apptype & FAPPTYP_WINDOWAPI) || (apptype & FAPPTYP_DOS)) { | 
|---|
| [1750] | 431 | ret = 0; | 
|---|
| [1297] | 432 | } | 
|---|
|  | 433 | else | 
|---|
| [1750] | 434 | ret = 2; | 
|---|
| [2] | 435 | } | 
|---|
| [551] | 436 | if (pp) | 
|---|
| [2] | 437 | *pp = ' '; | 
|---|
| [1750] | 438 | return ret; | 
|---|
| [2] | 439 | } | 
|---|
|  | 440 |  | 
|---|
|  | 441 |  | 
|---|
| [551] | 442 | static BOOL check_archiver(HWND hwnd, ARC_TYPE * info) | 
|---|
| [122] | 443 | { | 
|---|
| [551] | 444 | BOOL noStart = FALSE, noEnd = FALSE, badPos = FALSE; | 
|---|
|  | 445 | INT badList = 0, badCreate = 0, badExtract = 0; | 
|---|
| [1394] | 446 | static PCSZ aerrors[3]; | 
|---|
| [2] | 447 |  | 
|---|
|  | 448 | aerrors[0] = GetPString(IDS_STARTLISTEMPTYTEXT); | 
|---|
|  | 449 | aerrors[1] = GetPString(IDS_ENDLISTEMPTYTEXT); | 
|---|
|  | 450 | aerrors[2] = GetPString(IDS_BOGUSNAMETEXT); | 
|---|
| [551] | 451 | if (!info->startlist || !*info->startlist) | 
|---|
| [304] | 452 | noStart = TRUE; | 
|---|
| [551] | 453 | if (!info->endlist || !*info->endlist) | 
|---|
| [304] | 454 | noEnd = TRUE; | 
|---|
| [551] | 455 | if (info->fnpos > 50 || info->fnpos < -1) | 
|---|
| [304] | 456 | badPos = TRUE; | 
|---|
| [1746] | 457 | if (info->list) | 
|---|
| [1750] | 458 | badList = checkfile(info->list); | 
|---|
| [1746] | 459 | if (info->create) | 
|---|
| [1750] | 460 | badCreate = checkfile(info->create); | 
|---|
| [1746] | 461 | if (info->extract) | 
|---|
| [1750] | 462 | badExtract = checkfile(info->extract); | 
|---|
| [551] | 463 | if (!noStart && !noEnd && !badPos && !badList && !badCreate && !badExtract) | 
|---|
| [304] | 464 | return TRUE;                        // OK | 
|---|
| [420] | 465 | if (!info->id) | 
|---|
|  | 466 | return FALSE;                       // Assume new if no id | 
|---|
| [2] | 467 | saymsg(MB_ENTER | MB_ICONASTERISK, | 
|---|
| [551] | 468 | hwnd, | 
|---|
|  | 469 | GetPString(IDS_WARNINGSTEXT), | 
|---|
|  | 470 | GetPString(IDS_AVVCHK1TEXT), | 
|---|
|  | 471 | noStart ? aerrors[0] : NullStr, | 
|---|
|  | 472 | noEnd ? aerrors[1] : NullStr, | 
|---|
|  | 473 | badPos ? aerrors[2] : NullStr, | 
|---|
|  | 474 | badList == 1 ? | 
|---|
|  | 475 | GetPString(IDS_AVVCHK2TEXT) : | 
|---|
|  | 476 | badList == -1 ? | 
|---|
|  | 477 | GetPString(IDS_AVVCHK3TEXT) : | 
|---|
|  | 478 | badList == 2 ? | 
|---|
|  | 479 | GetPString(IDS_AVVCHK4TEXT) : | 
|---|
|  | 480 | badList == 3 ? | 
|---|
|  | 481 | GetPString(IDS_AVVCHK5TEXT) : | 
|---|
|  | 482 | NullStr, | 
|---|
|  | 483 | badCreate == 1 ? | 
|---|
|  | 484 | GetPString(IDS_AVVCHK6TEXT) : | 
|---|
|  | 485 | badCreate == -1 ? | 
|---|
|  | 486 | GetPString(IDS_AVVCHK7TEXT) : | 
|---|
|  | 487 | badCreate == 2 ? | 
|---|
|  | 488 | GetPString(IDS_AVVCHK8TEXT) : | 
|---|
|  | 489 | badCreate == 3 ? | 
|---|
|  | 490 | GetPString(IDS_AVVCHK9TEXT) : | 
|---|
|  | 491 | NullStr, | 
|---|
|  | 492 | badExtract == 1 ? | 
|---|
|  | 493 | GetPString(IDS_AVVCHK10TEXT) : | 
|---|
|  | 494 | badExtract == -1 ? | 
|---|
|  | 495 | GetPString(IDS_AVVCHK11TEXT) : | 
|---|
|  | 496 | badExtract == 2 ? | 
|---|
|  | 497 | GetPString(IDS_AVVCHK12TEXT) : | 
|---|
|  | 498 | badExtract == 3 ? GetPString(IDS_AVVCHK13TEXT) : NullStr); | 
|---|
|  | 499 | if (badList || badExtract) | 
|---|
| [304] | 500 | return FALSE;                       // Problems | 
|---|
|  | 501 | return TRUE;                          // OK | 
|---|
| [2] | 502 | } | 
|---|
|  | 503 |  | 
|---|
| [304] | 504 | //=== ArcReviewDlgProc() View/edit single archiver.bb2 setup === | 
|---|
| [2] | 505 |  | 
|---|
| [551] | 506 | MRESULT EXPENTRY ArcReviewDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, | 
|---|
|  | 507 | MPARAM mp2) | 
|---|
| [122] | 508 | { | 
|---|
| [551] | 509 | ARCDUMP *admp; | 
|---|
|  | 510 | CHAR s[256]; | 
|---|
|  | 511 | SHORT sSelect; | 
|---|
| [2] | 512 |  | 
|---|
| [551] | 513 | if (msg != WM_INITDLG) | 
|---|
| [574] | 514 | admp = (ARCDUMP *) WinQueryWindowPtr(hwnd, QWL_USER); | 
|---|
| [2] | 515 |  | 
|---|
| [551] | 516 | switch (msg) { | 
|---|
|  | 517 | case WM_INITDLG: | 
|---|
|  | 518 | admp = (ARCDUMP *) mp2; | 
|---|
|  | 519 | if (!admp || !admp->info) { | 
|---|
|  | 520 | WinDismissDlg(hwnd, 0); | 
|---|
|  | 521 | return 0; | 
|---|
|  | 522 | } | 
|---|
| [122] | 523 |  | 
|---|
| [551] | 524 | WinSetWindowPtr(hwnd, QWL_USER, mp2); | 
|---|
| [122] | 525 |  | 
|---|
| [551] | 526 | WinSendDlgItemMsg(hwnd, AD_LISTBOX, LM_DELETEALL, MPVOID, MPVOID); | 
|---|
|  | 527 | for (sSelect = AD_ID; sSelect < AD_ADDWPATHS + 1; sSelect++) { | 
|---|
|  | 528 | WinSendDlgItemMsg(hwnd, | 
|---|
|  | 529 | sSelect, | 
|---|
|  | 530 | EM_SETTEXTLIMIT, | 
|---|
|  | 531 | MPFROM2SHORT(sizeof(s) - 1, 0), MPVOID); | 
|---|
|  | 532 | } | 
|---|
|  | 533 | if (admp->info->id) | 
|---|
|  | 534 | WinSetDlgItemText(hwnd, AD_ID, admp->info->id); | 
|---|
|  | 535 | if (admp->info->ext) | 
|---|
|  | 536 | WinSetDlgItemText(hwnd, AD_EXT, admp->info->ext); | 
|---|
|  | 537 | sprintf(s, "%ld", admp->info->file_offset); | 
|---|
|  | 538 | WinSetDlgItemText(hwnd, AD_SIGPOS, s); | 
|---|
|  | 539 | if (admp->info->siglen) { | 
|---|
|  | 540 | WinSetDlgItemText(hwnd, | 
|---|
|  | 541 | AD_SIG, | 
|---|
|  | 542 | fixup(admp->info->signature, | 
|---|
|  | 543 | s, sizeof(s), admp->info->siglen)); | 
|---|
|  | 544 | } | 
|---|
|  | 545 | if (admp->info->startlist) | 
|---|
|  | 546 | WinSetDlgItemText(hwnd, AD_STARTLIST, admp->info->startlist); | 
|---|
|  | 547 | if (admp->info->endlist) | 
|---|
|  | 548 | WinSetDlgItemText(hwnd, AD_ENDLIST, admp->info->endlist); | 
|---|
|  | 549 | if (admp->info->list) | 
|---|
|  | 550 | WinSetDlgItemText(hwnd, AD_LIST, admp->info->list); | 
|---|
|  | 551 | sprintf(s, | 
|---|
|  | 552 | "%d,%d,%d,%d", | 
|---|
|  | 553 | admp->info->fnpos, | 
|---|
|  | 554 | admp->info->nameislast, | 
|---|
|  | 555 | admp->info->nameisnext, admp->info->nameisfirst); | 
|---|
|  | 556 | WinSetDlgItemText(hwnd, AD_FNAMEPOS, s); | 
|---|
|  | 557 | sprintf(s, "%d", admp->info->osizepos); | 
|---|
|  | 558 | WinSetDlgItemText(hwnd, AD_OLDSZ, s); | 
|---|
|  | 559 | sprintf(s, "%d", admp->info->nsizepos); | 
|---|
|  | 560 | WinSetDlgItemText(hwnd, AD_NEWSZ, s); | 
|---|
|  | 561 | sprintf(s, "%d,%d", admp->info->fdpos, admp->info->datetype); | 
|---|
|  | 562 | WinSetDlgItemText(hwnd, AD_DATEPOS, s); | 
|---|
|  | 563 | sprintf(s, "%d", admp->info->fdflds); | 
|---|
|  | 564 | WinSetDlgItemText(hwnd, AD_NUMDATEFLDS, s); | 
|---|
|  | 565 | if (admp->info->extract) | 
|---|
|  | 566 | WinSetDlgItemText(hwnd, AD_EXTRACT, admp->info->extract); | 
|---|
|  | 567 | if (admp->info->exwdirs) | 
|---|
|  | 568 | WinSetDlgItemText(hwnd, AD_WDIRS, admp->info->exwdirs); | 
|---|
|  | 569 | if (admp->info->test) | 
|---|
|  | 570 | WinSetDlgItemText(hwnd, AD_TEST, admp->info->test); | 
|---|
|  | 571 | if (admp->info->create) | 
|---|
|  | 572 | WinSetDlgItemText(hwnd, AD_ADD, admp->info->create); | 
|---|
|  | 573 | if (admp->info->move) | 
|---|
|  | 574 | WinSetDlgItemText(hwnd, AD_MOVE, admp->info->move); | 
|---|
|  | 575 | if (admp->info->delete) | 
|---|
|  | 576 | WinSetDlgItemText(hwnd, AD_DELETE, admp->info->delete); | 
|---|
|  | 577 | if (admp->info->createrecurse) | 
|---|
|  | 578 | WinSetDlgItemText(hwnd, AD_ADDRECURSE, admp->info->createrecurse); | 
|---|
|  | 579 | if (admp->info->createwdirs) | 
|---|
|  | 580 | WinSetDlgItemText(hwnd, AD_ADDWPATHS, admp->info->createwdirs); | 
|---|
|  | 581 | if (admp->info->movewdirs) | 
|---|
|  | 582 | WinSetDlgItemText(hwnd, AD_MOVEWPATHS, admp->info->movewdirs); | 
|---|
| [122] | 583 |  | 
|---|
| [551] | 584 | PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID); | 
|---|
|  | 585 | break;                              // WM_INITDLG | 
|---|
| [2] | 586 |  | 
|---|
| [551] | 587 | case UM_SETUP: | 
|---|
|  | 588 | if (admp->listname && *admp->listname) { | 
|---|
| [1544] | 589 | FILE *fp; | 
|---|
|  | 590 | CHAR *moder = "r"; | 
|---|
| [2] | 591 |  | 
|---|
| [1544] | 592 | fp = xfopen(admp->listname, moder, pszSrcFile, __LINE__, TRUE); | 
|---|
| [551] | 593 |  | 
|---|
|  | 594 | if (!fp) { | 
|---|
|  | 595 | WinSendDlgItemMsg(hwnd, | 
|---|
|  | 596 | AD_LISTBOX, | 
|---|
|  | 597 | LM_INSERTITEM, | 
|---|
|  | 598 | MPFROM2SHORT(LIT_END, 0), | 
|---|
|  | 599 | MPFROMP(GetPString(IDS_CANTOPENFILETEXT))); | 
|---|
| [2] | 600 | } | 
|---|
|  | 601 | else { | 
|---|
| [551] | 602 | while (!feof(fp)) { | 
|---|
|  | 603 | if (!xfgets(s, sizeof(s), fp, pszSrcFile, __LINE__)) | 
|---|
|  | 604 | break; | 
|---|
|  | 605 | stripcr(s); | 
|---|
|  | 606 | WinSendDlgItemMsg(hwnd, | 
|---|
|  | 607 | AD_LISTBOX, | 
|---|
|  | 608 | LM_INSERTITEM, | 
|---|
|  | 609 | MPFROM2SHORT(LIT_END, 0), MPFROMP(s)); | 
|---|
|  | 610 | } | 
|---|
|  | 611 | fclose(fp); | 
|---|
| [2] | 612 | } | 
|---|
| [551] | 613 | } | 
|---|
|  | 614 | else { | 
|---|
|  | 615 | WinSendDlgItemMsg(hwnd, | 
|---|
|  | 616 | AD_LISTBOX, | 
|---|
|  | 617 | LM_INSERTITEM, | 
|---|
|  | 618 | MPFROM2SHORT(LIT_END, 0), | 
|---|
|  | 619 | MPFROMP(GetPString(IDS_NOTAPPLICABLETEXT))); | 
|---|
|  | 620 | } | 
|---|
|  | 621 | check_archiver(hwnd, admp->info); | 
|---|
|  | 622 | return 0; | 
|---|
| [2] | 623 |  | 
|---|
| [551] | 624 | case WM_ADJUSTWINDOWPOS: | 
|---|
|  | 625 | PostMsg(hwnd, UM_SETDIR, MPVOID, MPVOID); | 
|---|
|  | 626 | break; | 
|---|
| [2] | 627 |  | 
|---|
| [551] | 628 | case UM_SETDIR: | 
|---|
|  | 629 | PaintRecessedWindow(WinWindowFromID(hwnd, AD_HELP), (HPS) 0, FALSE, TRUE); | 
|---|
|  | 630 | return 0; | 
|---|
| [2] | 631 |  | 
|---|
| [551] | 632 | case WM_CONTROL: | 
|---|
|  | 633 | switch (SHORT1FROMMP(mp1)) { | 
|---|
|  | 634 | case AD_LISTBOX: | 
|---|
|  | 635 | switch (SHORT2FROMMP(mp1)) { | 
|---|
|  | 636 | case LN_ENTER: | 
|---|
|  | 637 | for (sSelect = 0; sSelect < 10; sSelect++) | 
|---|
|  | 638 | WinSetDlgItemText(hwnd, AD_FLD1 + sSelect, NullStr); | 
|---|
|  | 639 | if (!admp->listname) | 
|---|
|  | 640 | Runtime_Error(pszSrcFile, __LINE__, "no listname"); | 
|---|
|  | 641 | else { | 
|---|
|  | 642 | sSelect = (SHORT) WinSendDlgItemMsg(hwnd, | 
|---|
|  | 643 | AD_LISTBOX, | 
|---|
|  | 644 | LM_QUERYSELECTION, | 
|---|
|  | 645 | MPVOID, MPVOID); | 
|---|
|  | 646 | WinSendDlgItemMsg(hwnd, | 
|---|
|  | 647 | AD_LISTBOX, | 
|---|
|  | 648 | LM_QUERYITEMTEXT, | 
|---|
|  | 649 | MPFROM2SHORT(sSelect, 255), MPFROMP(s)); | 
|---|
|  | 650 | if (!*s) | 
|---|
|  | 651 | Runtime_Error(pszSrcFile, __LINE__, "no text"); | 
|---|
|  | 652 | else { | 
|---|
|  | 653 | PSZ p; | 
|---|
|  | 654 | PSZ pp; | 
|---|
| [2] | 655 |  | 
|---|
| [551] | 656 | p = s; | 
|---|
|  | 657 | for (sSelect = 0; sSelect < 10; sSelect++) { | 
|---|
|  | 658 | pp = p; | 
|---|
|  | 659 | while (*pp == ' ' || *pp == '\t') | 
|---|
|  | 660 | pp++; | 
|---|
|  | 661 | if (!*pp) | 
|---|
|  | 662 | break; | 
|---|
|  | 663 | p = pp; | 
|---|
|  | 664 | while (*p && (*p != ' ' && *p != '\t')) | 
|---|
|  | 665 | p++; | 
|---|
|  | 666 | if (*p) | 
|---|
|  | 667 | *p++ = 0; | 
|---|
|  | 668 | WinSetDlgItemText(hwnd, AD_FLD1 + sSelect, pp); | 
|---|
|  | 669 | } | 
|---|
|  | 670 | } | 
|---|
|  | 671 | } | 
|---|
|  | 672 | break; | 
|---|
| [2] | 673 |  | 
|---|
| [551] | 674 | case LN_KILLFOCUS: | 
|---|
|  | 675 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 676 | break; | 
|---|
| [2] | 677 |  | 
|---|
| [551] | 678 | case LN_SETFOCUS: | 
|---|
| [1498] | 679 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_TEXTARCPRODUCEDTEXT)); | 
|---|
| [551] | 680 | break; | 
|---|
|  | 681 | } | 
|---|
|  | 682 | break; | 
|---|
| [2] | 683 |  | 
|---|
| [551] | 684 | case AD_ID: | 
|---|
|  | 685 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 686 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 687 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 688 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADIDTEXT)); | 
|---|
| [551] | 689 | break; | 
|---|
| [2] | 690 |  | 
|---|
| [551] | 691 | case AD_ADD: | 
|---|
|  | 692 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 693 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 694 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 695 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADADDTEXT)); | 
|---|
| [551] | 696 | break; | 
|---|
| [2] | 697 |  | 
|---|
| [551] | 698 | case AD_MOVE: | 
|---|
|  | 699 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 700 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 701 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 702 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADMOVETEXT)); | 
|---|
| [551] | 703 | break; | 
|---|
| [2] | 704 |  | 
|---|
| [551] | 705 | case AD_EXT: | 
|---|
|  | 706 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 707 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 708 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 709 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADEXTTEXT)); | 
|---|
| [551] | 710 | break; | 
|---|
| [2] | 711 |  | 
|---|
| [551] | 712 | case AD_EXTRACT: | 
|---|
|  | 713 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 714 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 715 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 716 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADEXTRACTTEXT)); | 
|---|
| [551] | 717 | break; | 
|---|
| [2] | 718 |  | 
|---|
| [551] | 719 | case AD_WDIRS: | 
|---|
|  | 720 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 721 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 722 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 723 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADWDIRSTEXT)); | 
|---|
| [551] | 724 | break; | 
|---|
| [2] | 725 |  | 
|---|
| [551] | 726 | case AD_SIG: | 
|---|
|  | 727 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 728 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 729 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 730 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADSIGTEXT)); | 
|---|
| [551] | 731 | break; | 
|---|
| [2] | 732 |  | 
|---|
| [551] | 733 | case AD_LIST: | 
|---|
|  | 734 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 735 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 736 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 737 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADLISTTEXT)); | 
|---|
| [551] | 738 | break; | 
|---|
| [2] | 739 |  | 
|---|
| [551] | 740 | case AD_TEST: | 
|---|
|  | 741 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 742 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 743 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 744 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADTESTTEXT)); | 
|---|
| [551] | 745 | break; | 
|---|
| [2] | 746 |  | 
|---|
| [551] | 747 | case AD_ADDWPATHS: | 
|---|
|  | 748 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 749 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 750 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 751 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADADDWPATHSTEXT)); | 
|---|
| [551] | 752 | break; | 
|---|
| [2] | 753 |  | 
|---|
| [551] | 754 | case AD_MOVEWPATHS: | 
|---|
|  | 755 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 756 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 757 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 758 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADMOVEWPATHSTEXT)); | 
|---|
| [551] | 759 | break; | 
|---|
| [2] | 760 |  | 
|---|
| [551] | 761 | case AD_ADDRECURSE: | 
|---|
|  | 762 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 763 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 764 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 765 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADADDRECURSETEXT)); | 
|---|
| [551] | 766 | break; | 
|---|
| [2] | 767 |  | 
|---|
| [551] | 768 | case AD_DELETE: | 
|---|
|  | 769 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 770 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 771 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 772 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADDELETETEXT)); | 
|---|
| [551] | 773 | break; | 
|---|
| [2] | 774 |  | 
|---|
| [551] | 775 | case AD_SIGPOS: | 
|---|
|  | 776 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 777 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 778 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 779 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADSIGPOSTEXT)); | 
|---|
| [551] | 780 | break; | 
|---|
| [2] | 781 |  | 
|---|
| [551] | 782 | case AD_FNAMEPOS: | 
|---|
|  | 783 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 784 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 785 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 786 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADFNAMEPOSTEXT)); | 
|---|
| [551] | 787 | break; | 
|---|
| [2] | 788 |  | 
|---|
| [551] | 789 | case AD_OLDSZ: | 
|---|
|  | 790 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 791 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 792 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 793 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADOLDSZTEXT)); | 
|---|
| [551] | 794 | break; | 
|---|
| [2] | 795 |  | 
|---|
| [551] | 796 | case AD_NUMDATEFLDS: | 
|---|
|  | 797 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 798 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 799 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 800 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADNUMDATEFLDSTEXT)); | 
|---|
| [551] | 801 | break; | 
|---|
| [2] | 802 |  | 
|---|
| [551] | 803 | case AD_DATEPOS: | 
|---|
|  | 804 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 805 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 806 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 807 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADDATEPOSTEXT)); | 
|---|
| [551] | 808 | break; | 
|---|
| [2] | 809 |  | 
|---|
| [551] | 810 | case AD_NEWSZ: | 
|---|
|  | 811 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 812 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 813 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 814 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADNEWSZTEXT)); | 
|---|
| [551] | 815 | break; | 
|---|
| [2] | 816 |  | 
|---|
| [551] | 817 | case AD_STARTLIST: | 
|---|
|  | 818 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 819 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 820 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 821 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADSTARTLISTTEXT)); | 
|---|
| [551] | 822 | break; | 
|---|
| [2] | 823 |  | 
|---|
| [551] | 824 | case AD_ENDLIST: | 
|---|
|  | 825 | if (SHORT2FROMMP(mp1) == EN_KILLFOCUS) | 
|---|
|  | 826 | WinSetDlgItemText(hwnd, AD_HELP, NullStr); | 
|---|
|  | 827 | if (SHORT2FROMMP(mp1) == EN_SETFOCUS) | 
|---|
| [1498] | 828 | WinSetDlgItemText(hwnd, AD_HELP, (CHAR *) GetPString(IDS_ADENDLISTTEXT)); | 
|---|
| [551] | 829 | break; | 
|---|
| [2] | 830 |  | 
|---|
| [551] | 831 | } | 
|---|
|  | 832 | return 0; | 
|---|
| [2] | 833 |  | 
|---|
| [551] | 834 | case WM_COMMAND: | 
|---|
|  | 835 | switch (SHORT1FROMMP(mp1)) { | 
|---|
|  | 836 | case AD_SEEEXTRACTOR: | 
|---|
|  | 837 | case AD_SEEADDER: | 
|---|
|  | 838 | { | 
|---|
|  | 839 | static CHAR tempargs[1026]; | 
|---|
| [2] | 840 |  | 
|---|
| [551] | 841 | *tempargs = 0; | 
|---|
|  | 842 | if (SHORT1FROMMP(mp1) == AD_SEEADDER) | 
|---|
|  | 843 | WinQueryDlgItemText(hwnd, AD_ADD, 255, tempargs); | 
|---|
|  | 844 | else | 
|---|
|  | 845 | WinQueryDlgItemText(hwnd, AD_EXTRACT, 255, tempargs); | 
|---|
|  | 846 | if (!*tempargs) | 
|---|
|  | 847 | saymsg(MB_CANCEL, | 
|---|
|  | 848 | hwnd, | 
|---|
|  | 849 | GetPString(IDS_BZZZTTEXT), GetPString(IDS_NEEDENTRYTEXT)); | 
|---|
|  | 850 | else { | 
|---|
| [2] | 851 |  | 
|---|
| [551] | 852 | PSZ p; | 
|---|
| [2] | 853 |  | 
|---|
| [551] | 854 | lstrip(tempargs); | 
|---|
|  | 855 | p = strchr(tempargs, ' '); | 
|---|
|  | 856 | if (p) | 
|---|
|  | 857 | *p = 0; | 
|---|
|  | 858 | { | 
|---|
| [1717] | 859 | EXECARGS ex; | 
|---|
| [2] | 860 |  | 
|---|
| [1717] | 861 | memset(&ex, 0, sizeof(EXECARGS)); | 
|---|
| [551] | 862 | ex.flags = SEPARATEKEEP | WINDOWED | MAXIMIZED; | 
|---|
|  | 863 | ex.commandline = tempargs; | 
|---|
|  | 864 | *ex.path = 0; | 
|---|
| [1717] | 865 | *ex.environment = 0; | 
|---|
|  | 866 | *ex.title = 0; | 
|---|
| [551] | 867 | if (WinDlgBox(HWND_DESKTOP, | 
|---|
|  | 868 | hwnd, | 
|---|
|  | 869 | CmdLineDlgProc, FM3ModHandle, EXEC_FRAME, &ex) == 1) | 
|---|
|  | 870 | runemf2(ex.flags, | 
|---|
| [888] | 871 | hwnd, pszSrcFile, __LINE__, | 
|---|
| [551] | 872 | NULL, | 
|---|
|  | 873 | (*ex.environment) ? ex.environment : NULL, | 
|---|
|  | 874 | "%s", tempargs); | 
|---|
|  | 875 | } | 
|---|
|  | 876 | } | 
|---|
|  | 877 | } | 
|---|
|  | 878 | return 0; | 
|---|
| [2] | 879 |  | 
|---|
| [551] | 880 | case DID_OK: | 
|---|
|  | 881 | // fixme to avoid creating empty strings for startlist and endlist | 
|---|
|  | 882 | admp->info->startlist = | 
|---|
|  | 883 | free_and_strdup_from_window(hwnd, AD_STARTLIST, | 
|---|
|  | 884 | admp->info->startlist); | 
|---|
|  | 885 | admp->info->endlist = | 
|---|
|  | 886 | free_and_strdup_from_window(hwnd, AD_ENDLIST, admp->info->endlist); | 
|---|
|  | 887 | admp->info->id = | 
|---|
|  | 888 | free_and_strdup_from_window(hwnd, AD_ID, admp->info->id); | 
|---|
|  | 889 | admp->info->create = | 
|---|
| [906] | 890 | free_and_strdup_quoted_from_window(hwnd, AD_ADD, admp->info->create); | 
|---|
| [551] | 891 | admp->info->createwdirs = | 
|---|
| [906] | 892 | free_and_strdup_quoted_from_window(hwnd, AD_ADDWPATHS, | 
|---|
| [551] | 893 | admp->info->createwdirs); | 
|---|
|  | 894 | admp->info->createrecurse = | 
|---|
| [906] | 895 | free_and_strdup_quoted_from_window(hwnd, AD_ADDRECURSE, | 
|---|
| [551] | 896 | admp->info->createrecurse); | 
|---|
|  | 897 | admp->info->movewdirs = | 
|---|
| [906] | 898 | free_and_strdup_quoted_from_window(hwnd, AD_MOVEWPATHS, | 
|---|
| [551] | 899 | admp->info->movewdirs); | 
|---|
|  | 900 | admp->info->move = | 
|---|
| [906] | 901 | free_and_strdup_quoted_from_window(hwnd, AD_MOVE, admp->info->move); | 
|---|
| [551] | 902 | admp->info->delete = | 
|---|
| [906] | 903 | free_and_strdup_quoted_from_window(hwnd, AD_DELETE, admp->info->delete); | 
|---|
| [551] | 904 | admp->info->test = | 
|---|
| [906] | 905 | free_and_strdup_quoted_from_window(hwnd, AD_TEST, admp->info->test); | 
|---|
| [551] | 906 | admp->info->extract = | 
|---|
| [906] | 907 | free_and_strdup_quoted_from_window(hwnd, AD_EXTRACT, admp->info->extract); | 
|---|
| [551] | 908 | admp->info->exwdirs = | 
|---|
| [906] | 909 | free_and_strdup_quoted_from_window(hwnd, AD_WDIRS, admp->info->exwdirs); | 
|---|
| [551] | 910 | admp->info->ext = | 
|---|
|  | 911 | free_and_strdup_from_window(hwnd, AD_EXT, admp->info->ext); | 
|---|
|  | 912 | admp->info->signature = | 
|---|
|  | 913 | free_and_strdup_from_window(hwnd, AD_SIG, admp->info->signature); | 
|---|
|  | 914 | admp->info->siglen = literal(admp->info->signature); | 
|---|
| [906] | 915 | admp->info->list = free_and_strdup_quoted_from_window(hwnd, | 
|---|
| [551] | 916 | AD_LIST, | 
|---|
|  | 917 | admp->info->list); | 
|---|
|  | 918 | admp->info->file_offset = get_long_from_window(hwnd, AD_SIGPOS); | 
|---|
|  | 919 | admp->info->osizepos = get_int_from_window(hwnd, AD_OLDSZ); | 
|---|
|  | 920 | admp->info->nsizepos = get_int_from_window(hwnd, AD_NEWSZ); | 
|---|
|  | 921 | admp->info->fdpos = get_int_from_window(hwnd, AD_DATEPOS); | 
|---|
|  | 922 | admp->info->datetype = get_int2_from_window(hwnd, AD_DATEPOS); | 
|---|
|  | 923 | admp->info->fdflds = get_int_from_window(hwnd, AD_NUMDATEFLDS); | 
|---|
|  | 924 | admp->info->fnpos = get_int_from_window(hwnd, AD_FNAMEPOS); | 
|---|
|  | 925 | admp->info->nameislast = | 
|---|
|  | 926 | (get_int2_from_window(hwnd, AD_FNAMEPOS)) ? TRUE : FALSE; | 
|---|
|  | 927 | admp->info->nameisnext = | 
|---|
|  | 928 | (get_int3_from_window(hwnd, AD_FNAMEPOS)) ? TRUE : FALSE; | 
|---|
|  | 929 | admp->info->nameisfirst = | 
|---|
|  | 930 | (get_int4_from_window(hwnd, AD_FNAMEPOS)) ? TRUE : FALSE; | 
|---|
|  | 931 | { | 
|---|
|  | 932 | INT ok = check_archiver(hwnd, admp->info); | 
|---|
| [2] | 933 |  | 
|---|
| [551] | 934 | if (saymsg(MB_YESNO, | 
|---|
|  | 935 | hwnd, | 
|---|
|  | 936 | GetPString(IDS_ADCHANGESINMEMTEXT), | 
|---|
|  | 937 | GetPString(IDS_ADREWRITETEXT), | 
|---|
|  | 938 | !ok ? GetPString(IDS_NOTRECOMMENDTEXT) : NullStr) == | 
|---|
| [1751] | 939 | MBID_YES) | 
|---|
|  | 940 | rewrite_archiverbb2(archiverbb2); | 
|---|
| [551] | 941 | } | 
|---|
|  | 942 | WinDismissDlg(hwnd, TRUE); | 
|---|
|  | 943 | return 0; | 
|---|
| [2] | 944 |  | 
|---|
| [551] | 945 | case IDM_HELP: | 
|---|
|  | 946 | if (hwndHelp) | 
|---|
|  | 947 | WinSendMsg(hwndHelp, | 
|---|
|  | 948 | HM_DISPLAY_HELP, | 
|---|
| [1297] | 949 | MPFROM2SHORT(HELP_ARCFIELDS, 0), MPFROMSHORT(HM_RESOURCEID)); | 
|---|
| [551] | 950 | break; | 
|---|
| [2] | 951 |  | 
|---|
| [551] | 952 | case DID_CANCEL: | 
|---|
|  | 953 | WinDismissDlg(hwnd, FALSE); | 
|---|
|  | 954 | return 0; | 
|---|
|  | 955 |  | 
|---|
|  | 956 | case AD_TOSTART: | 
|---|
|  | 957 | if (!admp->listname) | 
|---|
|  | 958 | Runtime_Error(pszSrcFile, __LINE__, "no listname"); | 
|---|
|  | 959 | else { | 
|---|
|  | 960 | sSelect = (SHORT) WinSendDlgItemMsg(hwnd, | 
|---|
|  | 961 | AD_LISTBOX, | 
|---|
|  | 962 | LM_QUERYSELECTION, | 
|---|
|  | 963 | MPVOID, MPVOID); | 
|---|
|  | 964 | WinSendDlgItemMsg(hwnd, | 
|---|
|  | 965 | AD_LISTBOX, | 
|---|
|  | 966 | LM_QUERYITEMTEXT, | 
|---|
|  | 967 | MPFROM2SHORT(sSelect, 255), MPFROMP(s)); | 
|---|
|  | 968 | if (*s) | 
|---|
|  | 969 | WinSetDlgItemText(hwnd, AD_STARTLIST, s); | 
|---|
|  | 970 | else | 
|---|
|  | 971 | BooBoo: | 
|---|
|  | 972 | saymsg(MB_ENTER, | 
|---|
|  | 973 | hwnd, | 
|---|
|  | 974 | GetPString(IDS_OOPSTEXT), | 
|---|
|  | 975 | GetPString(IDS_SELECTFROMLISTTEXT)); | 
|---|
| [2] | 976 | } | 
|---|
|  | 977 | return 0; | 
|---|
| [551] | 978 |  | 
|---|
|  | 979 | case AD_TOEND: | 
|---|
|  | 980 | if (!admp->listname) | 
|---|
|  | 981 | Runtime_Error(pszSrcFile, __LINE__, "no listname"); | 
|---|
|  | 982 | else { | 
|---|
|  | 983 | sSelect = (SHORT) WinSendDlgItemMsg(hwnd, | 
|---|
|  | 984 | AD_LISTBOX, | 
|---|
|  | 985 | LM_QUERYSELECTION, | 
|---|
|  | 986 | MPVOID, MPVOID); | 
|---|
|  | 987 | WinSendDlgItemMsg(hwnd, | 
|---|
|  | 988 | AD_LISTBOX, | 
|---|
|  | 989 | LM_QUERYITEMTEXT, | 
|---|
|  | 990 | MPFROM2SHORT(sSelect, 255), MPFROMP(s)); | 
|---|
|  | 991 | if (*s) | 
|---|
|  | 992 | WinSetDlgItemText(hwnd, AD_ENDLIST, s); | 
|---|
|  | 993 | else | 
|---|
|  | 994 | goto BooBoo; | 
|---|
|  | 995 | } | 
|---|
|  | 996 | return 0; | 
|---|
|  | 997 | } | 
|---|
|  | 998 | return 0; | 
|---|
| [2] | 999 | } | 
|---|
| [551] | 1000 | return WinDefDlgProc(hwnd, msg, mp1, mp2); | 
|---|
| [2] | 1001 | } | 
|---|
| [793] | 1002 |  | 
|---|
|  | 1003 | #pragma alloc_text(AVV,EditArchiverDefinition,free_and_strdup_from_window) | 
|---|
|  | 1004 | #pragma alloc_text(AVV,get_int_from_window,get_int2_from_window) | 
|---|
|  | 1005 | #pragma alloc_text(AVV,get_long_from_window,get_int3_from_window) | 
|---|
| [911] | 1006 | #pragma alloc_text(AVV,get_int4_from_window,free_and_strdup_quoted_from_window) | 
|---|
| [1118] | 1007 | #pragma alloc_text (AVV2,nonull,rewrite_archiverbb2,checkfile) | 
|---|
|  | 1008 | #pragma alloc_text (AVV3,check_archiver,ArcReviewDlgProc) | 
|---|