]> git.saurik.com Git - wxWidgets.git/blob - utils/Install/packzip/ttyio.c
changed version number
[wxWidgets.git] / utils / Install / packzip / ttyio.c
1 /*---------------------------------------------------------------------------
2
3 ttyio.c
4
5 This file contains routines for doing console input/output, including code
6 for non-echoing input. It is used by the encryption/decryption code but
7 does not contain any restricted code itself. This file is shared between
8 Info-ZIP's Zip and UnZip.
9
10 Contains: echo() (VMS only)
11 Echon() (Unix only)
12 Echoff() (Unix only)
13 screenlines() (Unix only)
14 zgetch() (Unix and non-Unix versions)
15 getp() ("PC," Unix/Atari/Be, VMS/VMCMS/MVS)
16
17 ---------------------------------------------------------------------------*/
18
19 #define __TTYIO_C /* identifies this source module */
20
21 #include "zip.h"
22 #include "crypt.h"
23
24 #if (CRYPT || (defined(UNZIP) && !defined(FUNZIP)))
25 /* Non-echo console/keyboard input is needed for (en/de)cryption's password
26 * entry, and for UnZip(SFX)'s MORE and Pause features.
27 * (The corresponding #endif is found at the end of this module.)
28 */
29
30 #include "ttyio.h"
31
32 #ifndef PUTC
33 # define PUTC putc
34 #endif
35
36 #ifdef ZIP
37 # ifdef GLOBAL /* used in Amiga system headers, maybe others too */
38 # undef GLOBAL
39 # endif
40 # define GLOBAL(g) g
41 #else
42 # define GLOBAL(g) G.g
43 #endif
44
45 #ifdef __BEOS__ /* why yes, we do */
46 # define HAVE_TERMIOS_H
47 #endif
48
49 #ifdef _POSIX_VERSION
50 # ifndef USE_POSIX_TERMIOS
51 # define USE_POSIX_TERMIOS /* use POSIX style termio (termios) */
52 # endif
53 # ifndef HAVE_TERMIOS_H
54 # define HAVE_TERMIOS_H /* POSIX termios.h */
55 # endif
56 #endif /* _POSIX_VERSION */
57
58 #ifdef UNZIP /* Zip handles this with the unix/configure script */
59 # ifndef _POSIX_VERSION
60 # if (defined(SYSV) || defined(CRAY)) && !defined(__MINT__)
61 # ifndef USE_SYSV_TERMIO
62 # define USE_SYSV_TERMIO
63 # endif
64 # ifdef COHERENT
65 # ifndef HAVE_TERMIO_H
66 # define HAVE_TERMIO_H
67 # endif
68 # ifdef HAVE_SYS_TERMIO_H
69 # undef HAVE_SYS_TERMIO_H
70 # endif
71 # else /* !COHERENT */
72 # ifdef HAVE_TERMIO_H
73 # undef HAVE_TERMIO_H
74 # endif
75 # ifndef HAVE_SYS_TERMIO_H
76 # define HAVE_SYS_TERMIO_H
77 # endif
78 # endif /* ?COHERENT */
79 # endif /* (SYSV || CRAY) && !__MINT__ */
80 # endif /* !_POSIX_VERSION */
81 # if !(defined(BSD4_4) || defined(SYSV) || defined(__convexc__))
82 # ifndef NO_FCNTL_H
83 # define NO_FCNTL_H
84 # endif
85 # endif /* !(BSD4_4 || SYSV || __convexc__) */
86 #endif /* UNZIP */
87
88 #ifdef HAVE_TERMIOS_H
89 # ifndef USE_POSIX_TERMIOS
90 # define USE_POSIX_TERMIOS
91 # endif
92 #endif
93
94 #if (defined(HAVE_TERMIO_H) || defined(HAVE_SYS_TERMIO_H))
95 # ifndef USE_SYSV_TERMIO
96 # define USE_SYSV_TERMIO
97 # endif
98 #endif
99
100 #if (defined(UNZIP) && !defined(FUNZIP) && defined(UNIX) && defined(MORE))
101 # include <sys/ioctl.h>
102 # define GOT_IOCTL_H
103 /* int ioctl OF((int, int, zvoid *)); GRR: may need for some systems */
104 #endif
105
106 #ifndef HAVE_WORKING_GETCH
107 /* include system support for switching of console echo */
108 # ifdef VMS
109 # include <descrip.h>
110 # include <iodef.h>
111 # include <ttdef.h>
112 # include <starlet.h>
113 # include <ssdef.h>
114 # else /* !VMS */
115 # ifdef HAVE_TERMIOS_H
116 # include <termios.h>
117 # define sgttyb termios
118 # define sg_flags c_lflag
119 # define GTTY(f, s) tcgetattr(f, (zvoid *) s)
120 # define STTY(f, s) tcsetattr(f, TCSAFLUSH, (zvoid *) s)
121 # else /* !HAVE_TERMIOS_H */
122 # ifdef USE_SYSV_TERMIO /* Amdahl, Cray, all SysV? */
123 # ifdef HAVE_TERMIO_H
124 # include <termio.h>
125 # endif
126 # ifdef HAVE_SYS_TERMIO_H
127 # include <sys/termio.h>
128 # endif
129 # ifdef NEED_PTEM
130 # include <sys/stream.h>
131 # include <sys/ptem.h>
132 # endif
133 # define sgttyb termio
134 # define sg_flags c_lflag
135 # define GTTY(f,s) ioctl(f,TCGETA,(zvoid *)s)
136 # define STTY(f,s) ioctl(f,TCSETAW,(zvoid *)s)
137 # else /* !USE_SYSV_TERMIO */
138 # ifndef CMS_MVS
139 # if (!defined(MINIX) && !defined(GOT_IOCTL_H))
140 # include <sys/ioctl.h>
141 # endif
142 # include <sgtty.h>
143 # define GTTY gtty
144 # define STTY stty
145 # ifdef UNZIP
146 /*
147 * XXX : Are these declarations needed at all ????
148 */
149 /*
150 * GRR: let's find out... Hmmm, appears not...
151 int gtty OF((int, struct sgttyb *));
152 int stty OF((int, struct sgttyb *));
153 */
154 # endif
155 # endif /* !CMS_MVS */
156 # endif /* ?USE_SYSV_TERMIO */
157 # endif /* ?HAVE_TERMIOS_H */
158 # ifndef NO_FCNTL_H
159 # ifndef UNZIP
160 # include <fcntl.h>
161 # endif
162 # else
163 char *ttyname OF((int));
164 # endif
165 # endif /* ?VMS */
166 #endif /* !HAVE_WORKING_GETCH */
167
168
169
170 #ifndef HAVE_WORKING_GETCH
171 #ifdef VMS
172
173 /*
174 * Turn keyboard echoing on or off (VMS). Loosely based on VMSmunch.c
175 * and hence on Joe Meadows' file.c code.
176 */
177 int echo(opt)
178 int opt;
179 {
180 /*
181 * For VMS v5.x:
182 * IO$_SENSEMODE/SETMODE info: Programming, Vol. 7A, System Programming,
183 * I/O User's: Part I, sec. 8.4.1.1, 8.4.3, 8.4.5, 8.6
184 * sys$assign(), sys$qio() info: Programming, Vol. 4B, System Services,
185 * System Services Reference Manual, pp. sys-23, sys-379
186 * fixed-length descriptor info: Programming, Vol. 3, System Services,
187 * Intro to System Routines, sec. 2.9.2
188 * Greg Roelofs, 15 Aug 91
189 */
190
191 /* SKM: make global? */
192 static struct dsc$descriptor_s DevDesc =
193 {11, DSC$K_DTYPE_T, DSC$K_CLASS_S, "SYS$COMMAND"};
194 /* {dsc$w_length, dsc$b_dtype, dsc$b_class, dsc$a_pointer}; */
195 static short DevChan, iosb[4];
196 static long status;
197 static unsigned long oldmode[2], newmode[2]; /* each = 8 bytes */
198
199
200 /* assign a channel to standard input */
201 status = sys$assign(&DevDesc, &DevChan, 0, 0);
202 if (!(status & 1))
203 return status;
204
205 /* use sys$qio and the IO$_SENSEMODE function to determine the current
206 * tty status (for password reading, could use IO$_READVBLK function
207 * instead, but echo on/off will be more general)
208 */
209 status = sys$qiow(0, DevChan, IO$_SENSEMODE, &iosb, 0, 0,
210 oldmode, 8, 0, 0, 0, 0);
211 if (!(status & 1))
212 return status;
213 status = iosb[0];
214 if (!(status & 1))
215 return status;
216
217 /* copy old mode into new-mode buffer, then modify to be either NOECHO or
218 * ECHO (depending on function argument opt)
219 */
220 newmode[0] = oldmode[0];
221 newmode[1] = oldmode[1];
222 if (opt == 0) /* off */
223 newmode[1] |= TT$M_NOECHO; /* set NOECHO bit */
224 else
225 newmode[1] &= ~((unsigned long) TT$M_NOECHO); /* clear NOECHO bit */
226
227 /* use the IO$_SETMODE function to change the tty status */
228 status = sys$qiow(0, DevChan, IO$_SETMODE, &iosb, 0, 0,
229 newmode, 8, 0, 0, 0, 0);
230 if (!(status & 1))
231 return status;
232 status = iosb[0];
233 if (!(status & 1))
234 return status;
235
236 /* deassign the sys$input channel by way of clean-up */
237 status = sys$dassgn(DevChan);
238 if (!(status & 1))
239 return status;
240
241 return SS$_NORMAL; /* we be happy */
242
243 } /* end function echo() */
244
245
246 #else /* !VMS: basically Unix */
247
248
249 /* For VM/CMS and MVS, non-echo terminal input is not (yet?) supported. */
250 #ifndef CMS_MVS
251
252 #ifdef ZIP /* moved to globals.h for UnZip */
253 static int echofd=(-1); /* file descriptor whose echo is off */
254 #endif
255
256 /*
257 * Turn echo off for file descriptor f. Assumes that f is a tty device.
258 */
259 void Echoff(__G__ f)
260 __GDEF
261 int f; /* file descriptor for which to turn echo off */
262 {
263 struct sgttyb sg; /* tty device structure */
264
265 GLOBAL(echofd) = f;
266 GTTY(f, &sg); /* get settings */
267 sg.sg_flags &= ~ECHO; /* turn echo off */
268 STTY(f, &sg);
269 }
270
271 /*
272 * Turn echo back on for file descriptor echofd.
273 */
274 void Echon(__G)
275 __GDEF
276 {
277 struct sgttyb sg; /* tty device structure */
278
279 if (GLOBAL(echofd) != -1) {
280 GTTY(GLOBAL(echofd), &sg); /* get settings */
281 sg.sg_flags |= ECHO; /* turn echo on */
282 STTY(GLOBAL(echofd), &sg);
283 GLOBAL(echofd) = -1;
284 }
285 }
286
287 #endif /* !CMS_MVS */
288 #endif /* ?VMS */
289
290
291 #if (defined(UNZIP) && !defined(FUNZIP))
292
293 #if (defined(UNIX) || defined(__BEOS__))
294 #ifdef MORE
295
296 /*
297 * Get the number of lines on the output terminal. SCO Unix apparently
298 * defines TIOCGWINSZ but doesn't support it (!M_UNIX).
299 *
300 * GRR: will need to know width of terminal someday, too, to account for
301 * line-wrapping.
302 */
303
304 #if (defined(TIOCGWINSZ) && !defined(M_UNIX))
305
306 int screenlines()
307 {
308 struct winsize wsz;
309 #ifdef DEBUG_WINSZ
310 static int firsttime = TRUE;
311 #endif
312
313 /* see termio(4) under, e.g., SunOS */
314 if (ioctl(1, TIOCGWINSZ, &wsz) == 0) {
315 #ifdef DEBUG_WINSZ
316 if (firsttime) {
317 firsttime = FALSE;
318 fprintf(stderr, "ttyio.c screenlines(): ws_row = %d\n",
319 wsz.ws_row);
320 }
321 #endif
322 /* number of columns = ws_col */
323 return (wsz.ws_row > 0)? wsz.ws_row : 24; /* number of rows */
324
325 } else { /* this happens when piping to more(1), for example */
326 #ifdef DEBUG_WINSZ
327 if (firsttime) {
328 firsttime = FALSE;
329 fprintf(stderr,
330 "ttyio.c screenlines(): ioctl(TIOCGWINSZ) failed\n"));
331 }
332 #endif
333 return 24; /* VT-100 assumed to be minimal hardware */
334 }
335 }
336
337 #else /* !TIOCGWINSZ: service not available, fall back to semi-bogus method */
338
339 int screenlines()
340 {
341 char *envptr, *getenv();
342 int n;
343
344 /* GRR: this is overly simplistic, but don't have access to stty/gtty
345 * system anymore
346 */
347 envptr = getenv("LINES");
348 if (envptr == (char *)NULL || (n = atoi(envptr)) < 5)
349 return 24; /* VT-100 assumed to be minimal hardware */
350 else
351 return n;
352 }
353
354 #endif /* ?(TIOCGWINSZ && !M_UNIX) */
355 #endif /* MORE */
356
357
358 /*
359 * Get a character from the given file descriptor without echo or newline.
360 */
361 int zgetch(__G__ f)
362 __GDEF
363 int f; /* file descriptor from which to read */
364 {
365 #if (defined(USE_SYSV_TERMIO) || defined(USE_POSIX_TERMIOS))
366 char oldmin, oldtim;
367 #endif
368 char c;
369 struct sgttyb sg; /* tty device structure */
370
371 GTTY(f, &sg); /* get settings */
372 #if (defined(USE_SYSV_TERMIO) || defined(USE_POSIX_TERMIOS))
373 oldmin = sg.c_cc[VMIN]; /* save old values */
374 oldtim = sg.c_cc[VTIME];
375 sg.c_cc[VMIN] = 1; /* need only one char to return read() */
376 sg.c_cc[VTIME] = 0; /* no timeout */
377 sg.sg_flags &= ~ICANON; /* canonical mode off */
378 #else
379 sg.sg_flags |= CBREAK; /* cbreak mode on */
380 #endif
381 sg.sg_flags &= ~ECHO; /* turn echo off, too */
382 STTY(f, &sg); /* set cbreak mode */
383 GLOBAL(echofd) = f; /* in case ^C hit (not perfect: still CBREAK) */
384
385 read(f, &c, 1); /* read our character */
386
387 #if (defined(USE_SYSV_TERMIO) || defined(USE_POSIX_TERMIOS))
388 sg.c_cc[VMIN] = oldmin; /* restore old values */
389 sg.c_cc[VTIME] = oldtim;
390 sg.sg_flags |= ICANON; /* canonical mode on */
391 #else
392 sg.sg_flags &= ~CBREAK; /* cbreak mode off */
393 #endif
394 sg.sg_flags |= ECHO; /* turn echo on */
395 STTY(f, &sg); /* restore canonical mode */
396 GLOBAL(echofd) = -1;
397
398 return (int)c;
399 }
400
401
402 #else /* !UNIX && !__BEOS__ */
403
404
405 int zgetch(__G__ f)
406 __GDEF
407 int f; /* file descriptor from which to read (must be open already) */
408 {
409 char c, c2;
410
411 /*---------------------------------------------------------------------------
412 Get a character from the given file descriptor without echo; can't fake
413 CBREAK mode (i.e., newline required), but can get rid of all chars up to
414 and including newline.
415 ---------------------------------------------------------------------------*/
416
417 echoff(f);
418 read(f, &c, 1);
419 if (c != '\n')
420 do {
421 read(f, &c2, 1); /* throw away all other chars up thru newline */
422 } while (c2 != '\n');
423 echon();
424 return (int)c;
425 }
426
427 #endif /* ?(UNIX || __BEOS__) */
428
429 #endif /* UNZIP && !FUNZIP */
430 #endif /* !HAVE_WORKING_GETCH */
431
432
433 #if CRYPT /* getp() is only used with full encryption */
434
435 /*
436 * Simple compile-time check for source compatibility between
437 * zcrypt and ttyio:
438 */
439 #if (!defined(CR_MAJORVER) || (CR_MAJORVER < 2) || (CR_MINORVER < 7))
440 error: This Info-ZIP tool requires zcrypt 2.7 or later.
441 #endif
442
443 /*
444 * Get a password of length n-1 or less into *p using the prompt *m.
445 * The entered password is not echoed.
446 */
447
448 #ifdef HAVE_WORKING_GETCH
449 /*
450 * For the AMIGA, getch() is defined as Agetch(), which is in
451 * amiga/filedate.c; SAS/C 6.x provides a getch(), but since Agetch()
452 * uses the infrastructure that is already in place in filedate.c, it is
453 * smaller. With this function, echoff() and echon() are not needed.
454 *
455 * For the MAC, a non-echo macgetch() function is defined in the MacOS
456 * specific sources which uses the event handling mechanism of the
457 * desktop window manager to get a character from the keyboard.
458 *
459 * For the other systems in this section, a non-echo getch() function
460 * is either contained the C runtime library (conio package), or getch()
461 * is defined as an alias for a similar system specific RTL function.
462 */
463
464 #ifndef WINDLL /* WINDLL does not support a console interface */
465 #ifndef QDOS /* QDOS supplies a variant of this function */
466
467 /* This is the getp() function for all systems (with TTY type user interface)
468 * that supply a working `non-echo' getch() function for "raw" console input.
469 */
470 char *getp(__G__ m, p, n)
471 __GDEF
472 ZCONST char *m; /* prompt for password */
473 char *p; /* return value: line input */
474 int n; /* bytes available in p[] */
475 {
476 char c; /* one-byte buffer for read() to use */
477 int i; /* number of characters input */
478 char *w; /* warning on retry */
479
480 /* get password */
481 w = "";
482 do {
483 fputs(w, stderr); /* warning if back again */
484 fputs(m, stderr); /* display prompt and flush */
485 fflush(stderr);
486 i = 0;
487 do { /* read line, keeping first n characters */
488 if ((c = (char)getch()) == '\r')
489 c = '\n'; /* until user hits CR */
490 if (c == 8 || c == 127) {
491 if (i > 0) i--; /* the `backspace' and `del' keys works */
492 }
493 else if (i < n)
494 p[i++] = c; /* truncate past n */
495 } while (c != '\n');
496 PUTC('\n', stderr); fflush(stderr);
497 w = "(line too long--try again)\n";
498 } while (p[i-1] != '\n');
499 p[i-1] = 0; /* terminate at newline */
500
501 return p; /* return pointer to password */
502
503 } /* end function getp() */
504
505 #endif /* !QDOS */
506 #endif /* !WINDLL */
507
508
509 #else /* !HAVE_WORKING_GETCH */
510
511
512 #if (defined(UNIX) || defined(__MINT__) || defined(__BEOS__))
513
514 #ifndef _PATH_TTY
515 # ifdef __MINT__
516 # define _PATH_TTY ttyname(2)
517 # else
518 # define _PATH_TTY "/dev/tty"
519 # endif
520 #endif
521
522 char *getp(__G__ m, p, n)
523 __GDEF
524 ZCONST char *m; /* prompt for password */
525 char *p; /* return value: line input */
526 int n; /* bytes available in p[] */
527 {
528 char c; /* one-byte buffer for read() to use */
529 int i; /* number of characters input */
530 char *w; /* warning on retry */
531 int f; /* file descriptor for tty device */
532
533 #ifdef PASSWD_FROM_STDIN
534 /* Read from stdin. This is unsafe if the password is stored on disk. */
535 f = 0;
536 #else
537 /* turn off echo on tty */
538
539 if ((f = open(_PATH_TTY, 0)) == -1)
540 return NULL;
541 #endif
542 /* get password */
543 w = "";
544 do {
545 fputs(w, stderr); /* warning if back again */
546 fputs(m, stderr); /* prompt */
547 fflush(stderr);
548 i = 0;
549 echoff(f);
550 do { /* read line, keeping n */
551 read(f, &c, 1);
552 if (i < n)
553 p[i++] = c;
554 } while (c != '\n');
555 echon();
556 PUTC('\n', stderr); fflush(stderr);
557 w = "(line too long--try again)\n";
558 } while (p[i-1] != '\n');
559 p[i-1] = 0; /* terminate at newline */
560
561 #ifndef PASSWD_FROM_STDIN
562 close(f);
563 #endif
564
565 return p; /* return pointer to password */
566
567 } /* end function getp() */
568
569 #endif /* UNIX || __MINT__ || __BEOS__ */
570
571
572
573 #if (defined(VMS) || defined(CMS_MVS))
574
575 char *getp(__G__ m, p, n)
576 __GDEF
577 ZCONST char *m; /* prompt for password */
578 char *p; /* return value: line input */
579 int n; /* bytes available in p[] */
580 {
581 char c; /* one-byte buffer for read() to use */
582 int i; /* number of characters input */
583 char *w; /* warning on retry */
584 FILE *f; /* file structure for SYS$COMMAND device */
585
586 #ifdef PASSWD_FROM_STDIN
587 f = stdin;
588 #else
589 if ((f = fopen(ctermid(NULL), "r")) == NULL)
590 return NULL;
591 #endif
592
593 /* get password */
594 fflush(stdout);
595 w = "";
596 do {
597 if (*w) /* bug: VMS apparently adds \n to NULL fputs */
598 fputs(w, stderr); /* warning if back again */
599 fputs(m, stderr); /* prompt */
600 fflush(stderr);
601 i = 0;
602 echoff(f);
603 do { /* read line, keeping n */
604 if ((c = (char)getc(f)) == '\r')
605 c = '\n';
606 if (i < n)
607 p[i++] = c;
608 } while (c != '\n');
609 echon();
610 PUTC('\n', stderr); fflush(stderr);
611 w = "(line too long--try again)\n";
612 } while (p[i-1] != '\n');
613 p[i-1] = 0; /* terminate at newline */
614 #ifndef PASSWD_FROM_STDIN
615 fclose(f);
616 #endif
617
618 return p; /* return pointer to password */
619
620 } /* end function getp() */
621
622 #endif /* VMS || CMS_MVS */
623 #endif /* ?HAVE_WORKING_GETCH */
624 #endif /* CRYPT */
625 #endif /* CRYPT || (UNZIP && !FUNZIP) */