source: trunk/dll/uudecode.c@ 546

Last change on this file since 546 was 486, checked in by root, 19 years ago

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