source: trunk/dll/uudecode.c@ 574

Last change on this file since 574 was 574, checked in by Gregg Young, 18 years ago

Use QWL_USER; Replace doesn't move the command and Okay on cmd dialog removed error on unchanged command
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 9.1 KB
Line 
1
2/***********************************************************************
3
4 $Id: uudecode.c 574 2007-03-23 22:37:07Z gyoung $
5
6 uudecode
7
8 Copyright (c) 1993-98 M. Kimes
9 Copyright (c) 2005, 2007 Steven H. Levine
10
11 06 Jun 05 SHL Indent -i2
12 06 Jun 05 SHL Drop unused code
13 17 Jul 06 SHL Use Runtime_Error
14 29 Jul 06 SHL Use xfgets
15 01 Sep 06 SHL Back to fgets for now - avoid excess error messages
16 22 Mar 07 GKY Use QWL_USER
17
18***********************************************************************/
19
20#define INCL_DOS
21#define INCL_WIN
22#include <os2.h>
23
24#include <stdlib.h>
25#include <stdio.h>
26#include <string.h>
27#include <share.h>
28
29#include "fm3dll.h"
30#include "fm3dlg.h"
31#include "fm3str.h"
32
33static PSZ pszSrcFile = __FILE__;
34
35/* prototypes */
36static BOOL decode(FILE * in, FILE * out);
37static void outdec(char *p, FILE * f, int n);
38
39/* single character decode */
40#define DEC(c) (((c) - ' ') & 077)
41
42#pragma alloc_text(UUD,UUD,decode,outdec)
43#pragma alloc_text(MERGE,MergeDlgProc)
44
45int UUD(char *filename, CHAR * dest)
46{
47 FILE *in, *out;
48 int mode, ret = 0;
49 char buf[80];
50 char fakedest[CCHMAXPATH];
51
52 if (!dest)
53 dest = fakedest;
54 in = _fsopen(filename, "r", SH_DENYWR);
55 if (!in) {
56 saymsg(MB_CANCEL,
57 HWND_DESKTOP,
58 GetPString(IDS_ERRORTEXT),
59 GetPString(IDS_COMPCANTOPENTEXT), filename);
60 return ret;
61 }
62
63 /* search for header line */
64 for (;;) {
65 if (!fgets(buf, sizeof(buf), in)) {
66 fclose(in);
67 saymsg(MB_CANCEL,
68 HWND_DESKTOP,
69 GetPString(IDS_ERRORTEXT),
70 GetPString(IDS_UUDNOBEGINTEXT), filename);
71 return ret;
72 }
73 if (!strncmp(buf, "begin ", 6))
74 break;
75 } // for
76 *dest = 0;
77 sscanf(buf, "begin %o %259s", &mode, dest);
78 dest[CCHMAXPATH - 1] = 0;
79 {
80 /* place dest in same directory as filename by default... */
81 char build[CCHMAXPATH], *p;
82
83 strcpy(build, filename);
84 p = strrchr(build, '\\');
85 if (p) {
86 p++;
87 *p = 0;
88 }
89 else
90 strcat(build, "\\");
91 strncat(build, dest, CCHMAXPATH - strlen(dest));
92 strcpy(dest, build);
93 }
94
95 if (!export_filename(HWND_DESKTOP, dest, FALSE)) {
96 fclose(in);
97 return ret;
98 }
99
100 /* create output file */
101 out = _fsopen(dest, "ab+", SH_DENYWR);
102 if (!out) {
103 fclose(in);
104 saymsg(MB_CANCEL,
105 HWND_DESKTOP,
106 GetPString(IDS_ERRORTEXT),
107 GetPString(IDS_UUDCANTOPENFORTEXT), dest, filename);
108 return ret;
109 }
110
111 ret = 1;
112 decode(in, out);
113
114 xfgets(buf, sizeof(buf), in, pszSrcFile, __LINE__);
115
116 fclose(in);
117 fclose(out);
118 return ret;
119}
120
121/*
122 * copy from in to out, decoding as you go along.
123 */
124static BOOL decode(FILE * in, FILE * out)
125{
126 char buf[80];
127 char *bp;
128 int n;
129
130 for (;;) {
131 /* for each input line */
132 if (!xfgets(buf, sizeof(buf), in, pszSrcFile, __LINE__))
133 return FALSE;
134 n = DEC(buf[0]);
135 if (n <= 0)
136 break;
137 bp = &buf[1];
138 while (n > 0) {
139 outdec(bp, out, n);
140 bp += 4;
141 n -= 3;
142 }
143 }
144 return TRUE;
145}
146
147/*
148 * output a group of 3 bytes (4 input characters).
149 * the input chars are pointed to by p, they are to
150 * be output to file f. n is used to tell us not to
151 * output all of them at the end of the file.
152 */
153static void outdec(char *p, FILE * f, int n)
154{
155 INT c1, c2, c3;
156
157 c1 = DEC(*p) << 2 | (UINT) DEC(p[1]) >> 4;
158 c2 = DEC(p[1]) << 4 | (UINT) DEC(p[2]) >> 2;
159 c3 = DEC(p[2]) << 6 | DEC(p[3]);
160 if (n >= 1)
161 putc(c1, f);
162 if (n >= 2)
163 putc(c2, f);
164 if (n >= 3)
165 putc(c3, f);
166}
167
168MRESULT EXPENTRY MergeDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
169{
170 WORKER *wk;
171
172 switch (msg) {
173 case WM_INITDLG:
174 if (mp2) {
175 WinSetWindowPtr(hwnd, QWL_USER, mp2);
176 wk = (WORKER *) mp2;
177 if (wk->li && wk->li->list && wk->li->list[0]) {
178 WinSendDlgItemMsg(hwnd, MRG_TARGETNAME, EM_SETTEXTLIMIT,
179 MPFROM2SHORT(CCHMAXPATH, 0), MPVOID);
180 PostMsg(hwnd, UM_UNDO, MPVOID, MPVOID);
181 }
182 else
183 WinDismissDlg(hwnd, 0);
184 }
185 else
186 WinDismissDlg(hwnd, 0);
187 break;
188
189 case UM_UNDO:
190 WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_DELETEALL, MPVOID, MPVOID);
191 wk = WinQueryWindowPtr(hwnd, QWL_USER);
192 if (wk) {
193 INT x, numfiles = 0;
194 SHORT start;
195 CHAR *p;
196
197 WinSetDlgItemText(hwnd, MRG_TARGETNAME, wk->li->targetpath);
198 start = 0;
199 p = strrchr(wk->li->targetpath, '\\');
200 if (p)
201 start = (p + 1) - wk->li->targetpath;
202 WinSendDlgItemMsg(hwnd, MRG_TARGETNAME, EM_SETSEL,
203 MPFROM2SHORT(start, CCHMAXPATH), MPVOID);
204 for (x = 0; wk->li->list[x]; x++) {
205 if (IsFile(wk->li->list[x]) == 1) {
206 numfiles++;
207 WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_INSERTITEM,
208 MPFROM2SHORT(LIT_END, 0),
209 MPFROMP(wk->li->list[x]));
210 }
211 }
212 WinCheckButton(hwnd, MRG_BINARY, (wk->li->type == IDM_MERGEBINARY));
213 if (!numfiles) {
214 saymsg(MB_CANCEL | MB_ICONEXCLAMATION,
215 hwnd,
216 GetPString(IDS_SILLYERRORTEXT),
217 GetPString(IDS_MERGEWASTETEXT));
218 WinDismissDlg(hwnd, 0);
219 }
220 }
221 return 0;
222
223 case WM_CONTROL:
224 switch (SHORT1FROMMP(mp1)) {
225 case MRG_LISTBOX:
226 switch (SHORT2FROMMP(mp1)) {
227 case LN_ENTER:
228 {
229 SHORT x;
230 CHAR szBuffer[CCHMAXPATH];
231
232 x = (SHORT) WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_QUERYSELECTION,
233 MPFROMSHORT(LIT_FIRST), MPVOID);
234 if (x >= 0) {
235 *szBuffer = 0;
236 WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_QUERYITEMTEXT,
237 MPFROM2SHORT(x, CCHMAXPATH), MPFROMP(szBuffer));
238 if (*szBuffer)
239 QuickEdit(hwnd, szBuffer);
240 }
241 }
242 break;
243 }
244 break;
245 }
246 break;
247
248 case WM_ADJUSTWINDOWPOS:
249 PostMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
250 break;
251
252 case UM_SETDIR:
253 PaintRecessedWindow(WinWindowFromID(hwnd, MRG_HELP), (HPS) 0, FALSE,
254 TRUE);
255 return 0;
256
257 case WM_COMMAND:
258 switch (SHORT1FROMMP(mp1)) {
259 case IDM_UNDO:
260 PostMsg(hwnd, UM_UNDO, MPVOID, MPVOID);
261 break;
262
263 case MRG_CHANGETARGET:
264 wk = WinQueryWindowPtr(hwnd, QWL_USER);
265 if (wk) {
266 CHAR filename[CCHMAXPATH];
267
268 strcpy(filename, wk->li->targetpath);
269 if (export_filename(HWND_DESKTOP, filename, FALSE) && *filename) {
270 strcpy(wk->li->targetpath, filename);
271 WinSetDlgItemText(hwnd, MRG_TARGETNAME, wk->li->targetpath);
272 }
273 }
274 break;
275
276 case MRG_REMOVE:
277 {
278 SHORT x;
279
280 x = (SHORT) WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_QUERYSELECTION,
281 MPFROMSHORT(LIT_FIRST), MPVOID);
282 if (x >= 0)
283 WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_DELETEITEM,
284 MPFROMSHORT(x), MPVOID);
285 }
286 break;
287
288 case MRG_BOTTOM:
289 case MRG_TOP:
290 {
291 SHORT x;
292 CHAR szBuffer[CCHMAXPATH];
293
294 x = (SHORT) WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_QUERYSELECTION,
295 MPFROMSHORT(LIT_FIRST), MPVOID);
296 if (x >= 0) {
297 *szBuffer = 0;
298 WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_QUERYITEMTEXT,
299 MPFROM2SHORT(x, CCHMAXPATH), MPFROMP(szBuffer));
300 if (*szBuffer) {
301 WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_DELETEITEM,
302 MPFROMSHORT(x), MPVOID);
303 if (SHORT1FROMMP(mp1) == MRG_TOP)
304 WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_INSERTITEM,
305 MPFROM2SHORT(0, 0), MPFROMP(szBuffer));
306 else
307 WinSendDlgItemMsg(hwnd, MRG_LISTBOX, LM_INSERTITEM,
308 MPFROM2SHORT(LIT_END, 0), MPFROMP(szBuffer));
309 }
310 }
311 }
312 break;
313
314 case DID_CANCEL:
315 WinDismissDlg(hwnd, 0);
316 break;
317
318 case IDM_HELP:
319 if (hwndHelp)
320 WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
321 MPFROM2SHORT(HELP_MERGE, 0), MPFROMSHORT(HM_RESOURCEID));
322 break;
323
324 case DID_OK:
325 wk = WinQueryWindowPtr(hwnd, QWL_USER);
326 if (wk) {
327 BOOL append, binary;
328 CHAR **list = NULL, **test, szBuffer[CCHMAXPATH];
329 INT numfiles = 0, numalloc = 0, error;
330 SHORT x, y;
331
332 *szBuffer = 0;
333 WinQueryDlgItemText(hwnd, MRG_TARGETNAME, CCHMAXPATH, szBuffer);
334 if (!*szBuffer) {
335 DosBeep(50, 100);
336 WinSetFocus(HWND_DESKTOP, WinWindowFromID(hwnd, MRG_TARGETNAME));
337 break;
338 }
339 if (DosQueryPathInfo(szBuffer,
340 FIL_QUERYFULLNAME,
341 wk->li->targetpath, CCHMAXPATH)) {
342 DosBeep(50, 100);
343 WinSetFocus(HWND_DESKTOP, WinWindowFromID(hwnd, MRG_TARGETNAME));
344 break;
345 }
346 WinSetDlgItemText(hwnd, MRG_TARGETNAME, szBuffer);
347 append = WinQueryButtonCheckstate(hwnd, MRG_APPEND);
348 binary = WinQueryButtonCheckstate(hwnd, MRG_BINARY);
349 wk->li->type = (append && binary) ? IDM_MERGEBINARYAPPEND :
350 (append) ? IDM_MERGETEXTAPPEND :
351 (binary) ? IDM_MERGEBINARY : IDM_MERGETEXT;
352 x = (SHORT) WinSendDlgItemMsg(hwnd,
353 MRG_LISTBOX,
354 LM_QUERYITEMCOUNT, MPVOID, MPVOID);
355 for (y = 0; y < x; y++) {
356 *szBuffer = 0;
357 WinSendDlgItemMsg(hwnd,
358 MRG_LISTBOX,
359 LM_QUERYITEMTEXT,
360 MPFROM2SHORT(y, CCHMAXPATH), MPFROMP(szBuffer));
361 if (*szBuffer) {
362 error = AddToList(szBuffer, &list, &numfiles, &numalloc);
363 if (error) {
364 Runtime_Error(pszSrcFile, __LINE__, "AddToList");
365 break;
366 }
367 }
368 }
369 if (numfiles && list && numfiles + 1 < numalloc) {
370 test =
371 xrealloc(list, sizeof(CHAR *) * (numfiles + 1), pszSrcFile,
372 __LINE__);
373 if (test)
374 list = test;
375 }
376 if (!list || !list[0]) {
377 Runtime_Error2(pszSrcFile, __LINE__, IDS_NODATATEXT);
378 break;
379 }
380 else {
381 FreeList(wk->li->list);
382 wk->li->list = list;
383 }
384 }
385 WinDismissDlg(hwnd, 1);
386 break;
387 } // switch WM_COMMAND mp1
388 return 0;
389 } // switch msg
390 return WinDefDlgProc(hwnd, msg, mp1, mp2);
391}
Note: See TracBrowser for help on using the repository browser.