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