![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to system.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [PGP] / pgp / src|
Return to system.c CVS log | Up to [PGP] / pgp / src |
1.1 ! root 1: /* ! 2: * system.c ! 3: * ! 4: * Routines specific for non-MSDOS implementations of pgp. ! 5: * ! 6: * Modified 24-Jun-92 HAJK ! 7: * Adapt for VAX/VMS. ! 8: */ ! 9: #include <stdio.h> ! 10: #include "pgp.h" ! 11: ! 12: ! 13: /*===========================================================================*/ ! 14: /* ! 15: * UNIX ! 16: */ ! 17: ! 18: #ifdef UNIX ! 19: /* ! 20: * Define USE_SELECT to use the select() system call to check if ! 21: * keyboard input is available. Define USE_NBIO to use non-blocking ! 22: * read(). If you don't define anything the FIONREAD ioctl() command ! 23: * will be used. ! 24: * ! 25: * Define NOTERMIO if you don't have the termios stuff ! 26: */ ! 27: #include <sys/types.h> ! 28: #include <fcntl.h> ! 29: #ifndef NeXT ! 30: #include <unistd.h> ! 31: #endif ! 32: ! 33: #ifndef NOTERMIO ! 34: #ifndef M_XENIX ! 35: #include <termios.h> ! 36: #else ! 37: #include <termio.h> ! 38: #endif /* not M_XENIX */ ! 39: #else ! 40: #include <sgtty.h> ! 41: #endif ! 42: ! 43: #ifdef USE_SELECT ! 44: #include <sys/time.h> ! 45: #else ! 46: #ifndef USE_NBIO ! 47: #include <sys/ioctl.h> /* for FIONREAD */ ! 48: #ifndef FIONREAD ! 49: #define FIONREAD TIOCINQ ! 50: #endif ! 51: #endif ! 52: #endif ! 53: #include <signal.h> ! 54: ! 55: static void setsigs(void); ! 56: static void rmsigs(void); ! 57: static void sig1(int); ! 58: static void sig2(int); ! 59: void breakHandler(int); ! 60: static int ttyfd= -1; ! 61: #ifndef M_XENIX ! 62: static void (*savesig)(int); ! 63: #else ! 64: static int (*savesig)(int); ! 65: #endif ! 66: ! 67: void ttycbreak(void); ! 68: void ttynorm(void); ! 69: ! 70: ! 71: #ifndef NOTERMIO ! 72: #ifndef M_XENIX ! 73: static struct termios itio, tio; ! 74: #else ! 75: static struct termio itio, tio; ! 76: #endif /* not M_XENIX */ ! 77: #else ! 78: static struct sgttyb isg, sg; ! 79: #endif ! 80: ! 81: #ifdef USE_NBIO ! 82: static int kbuf= -1; /* buffer to store char read by kbhit() */ ! 83: static int fflags; ! 84: #endif ! 85: ! 86: static int gottio = 0; ! 87: ! 88: void ttycbreak(void) ! 89: { ! 90: if (ttyfd == -1) { ! 91: if ((ttyfd = open("/dev/tty", O_RDWR)) < 0) { ! 92: fprintf(stderr, "cannot open tty, using stdin\n"); ! 93: ttyfd = 0; ! 94: } ! 95: } ! 96: #ifndef NOTERMIO ! 97: #ifndef M_XENIX ! 98: if (tcgetattr(ttyfd, &tio) < 0) ! 99: #else ! 100: if (ioctl(ttyfd, TCGETA, &tio) < 0) ! 101: #endif /* not M_XENIX */ ! 102: { fprintf (stderr, "\nUnable to get terminal characteristics: "); ! 103: perror("ioctl"); ! 104: exitPGP(1); ! 105: } ! 106: itio = tio; ! 107: setsigs(); ! 108: gottio = 1; ! 109: #ifdef USE_NBIO ! 110: tio.c_cc[VMIN] = 0; ! 111: #else ! 112: tio.c_cc[VMIN] = 1; ! 113: #endif ! 114: tio.c_cc[VTIME] = 0; ! 115: tio.c_lflag &= ~(ECHO|ICANON); ! 116: #ifndef M_XENIX ! 117: tcsetattr (ttyfd, TCSAFLUSH, &tio); ! 118: #else ! 119: ioctl(ttyfd, TCSETAW, &tio); ! 120: #endif /* not M_XENIX */ ! 121: #else ! 122: if (ioctl(ttyfd, TIOCGETP, &sg) < 0) ! 123: { fprintf (stderr, "\nUnable to get terminal characteristics: "); ! 124: perror("ioctl"); ! 125: exitPGP(1); ! 126: } ! 127: isg = sg; ! 128: setsigs(); ! 129: gottio = 1; ! 130: sg.sg_flags |= CBREAK; ! 131: sg.sg_flags &= ~ECHO; ! 132: ioctl(ttyfd, TIOCSETP, &sg); ! 133: #endif /* !NOTERMIO */ ! 134: #ifdef USE_NBIO ! 135: if ((fflags = fcntl(ttyfd, F_GETFL)) != -1) ! 136: fcntl(ttyfd, F_SETFL, fflags|O_NDELAY); ! 137: #endif ! 138: } ! 139: ! 140: ! 141: void ttynorm(void) ! 142: { gottio = 0; ! 143: #ifdef USE_NBIO ! 144: if (fcntl(ttyfd, F_SETFL, fflags) == -1) ! 145: perror("fcntl"); ! 146: #endif ! 147: #ifndef NOTERMIO ! 148: #ifndef M_XENIX ! 149: tcsetattr (ttyfd, TCSAFLUSH, &itio); ! 150: #else ! 151: ioctl(ttyfd, TCSETAW, &itio); ! 152: #endif /* not M_XENIX */ ! 153: #else ! 154: ioctl(ttyfd, TIOCSETP, &isg); ! 155: #endif ! 156: rmsigs(); ! 157: } ! 158: ! 159: static void sig1 (int sig) ! 160: { ! 161: #ifndef NOTERMIO ! 162: #ifndef M_XENIX ! 163: tcsetattr (ttyfd, TCSANOW, &itio); ! 164: #else ! 165: ioctl(ttyfd, TCSETAW, &itio); ! 166: #endif /* not M_XENIX */ ! 167: #else ! 168: ioctl(ttyfd, TIOCSETP, &isg); ! 169: #endif ! 170: signal (sig, SIG_DFL); ! 171: if (sig == SIGINT) ! 172: breakHandler(SIGINT); ! 173: kill (getpid(), sig); ! 174: } ! 175: ! 176: static void sig2 (int sig) ! 177: { if (gottio) ! 178: ttycbreak(); ! 179: else ! 180: setsigs(); ! 181: } ! 182: ! 183: static void setsigs(void) ! 184: { savesig = signal (SIGINT, sig1); ! 185: #ifdef SIGTSTP ! 186: signal (SIGCONT, sig2); ! 187: signal (SIGTSTP, sig1); ! 188: #endif ! 189: } ! 190: ! 191: static void rmsigs(void) ! 192: { signal (SIGINT, savesig); ! 193: #ifdef SIGTSTP ! 194: signal (SIGCONT, SIG_DFL); ! 195: signal (SIGTSTP, SIG_DFL); ! 196: #endif ! 197: } ! 198: ! 199: #ifndef CRUDE ! 200: int kbhit(void) ! 201: /* Return TRUE if there is a key to be read */ ! 202: { ! 203: #ifdef USE_SELECT /* use select() system call */ ! 204: struct timeval t; ! 205: fd_set n; ! 206: int r; ! 207: ! 208: timerclear(&t); ! 209: FD_ZERO(&n); ! 210: FD_SET(ttyfd, &n); ! 211: r = select(32, &n, NULL, NULL, &t); ! 212: if (r == -1) { ! 213: perror("select"); ! 214: exitPGP(1); ! 215: } ! 216: return r > 0; ! 217: #else ! 218: #ifdef USE_NBIO /* use non-blocking read() */ ! 219: unsigned char ch; ! 220: if (kbuf >= 0) ! 221: return(1); ! 222: if (read(ttyfd, &ch, 1) == 1) { ! 223: kbuf = ch; ! 224: return(1); ! 225: } ! 226: return(0); ! 227: #else ! 228: long lf; ! 229: if (ioctl(ttyfd, FIONREAD, &lf) == -1) { ! 230: perror("ioctl: FIONREAD"); ! 231: exitPGP(1); ! 232: } ! 233: return(lf); ! 234: #endif ! 235: #endif ! 236: } ! 237: #endif /* !CRUDE */ ! 238: ! 239: int getch(void) ! 240: { ! 241: char c; ! 242: #ifdef USE_NBIO ! 243: while (!kbhit()); /* kbhit() does the reading */ ! 244: c = kbuf; ! 245: kbuf = -1; ! 246: #else ! 247: read(ttyfd, &c, 1); ! 248: #endif ! 249: return(c); ! 250: } ! 251: ! 252: #ifdef BSD_OLD ! 253: void *memset(s, c, n) ! 254: void *s; ! 255: register int c, n; ! 256: { ! 257: register char *p = s; ! 258: ++n; ! 259: while (--n) ! 260: *p++ = c; ! 261: return(s); ! 262: } ! 263: int memcmp(s1, s2, n) ! 264: register unsigned char *s1, *s2; ! 265: register int n; ! 266: { ! 267: if (!n) ! 268: return(0); ! 269: while (--n && *s1 == *s2) { ! 270: ++s1; ! 271: ++s2; ! 272: } ! 273: return(*s1 - *s2); ! 274: } ! 275: void *memcpy(s1, s2, n) ! 276: register char *s1, *s2; ! 277: register int n; ! 278: { ! 279: char *p = s1; ! 280: ++n; ! 281: while (--n) ! 282: *s1++ = *s2++; ! 283: return(p); ! 284: } ! 285: #endif /* BSD_OLD */ ! 286: ! 287: #ifdef M_XENIX /* XENIX/286 specific stuff */ ! 288: int remove(name) ! 289: char *name; ! 290: { ! 291: return unlink(name); ! 292: } ! 293: ! 294: int rename(old, new) ! 295: register char *old, *new; ! 296: { ! 297: (void) unlink(new); ! 298: if (link(old, new) < 0) ! 299: return -1; ! 300: if (unlink(old) < 0) { ! 301: (void) unlink(new); ! 302: return -1; ! 303: } ! 304: return 0; ! 305: } ! 306: #endif /* M_XENIX */ ! 307: #endif /* UNIX */ ! 308: ! 309: ! 310: ! 311: /*===========================================================================*/ ! 312: /* ! 313: * VMS ! 314: */ ! 315: ! 316: #ifdef VMS /* kbhit()/getch() equivalent */ ! 317: ! 318: /* ! 319: * This code defines an equivalent version of kbhit() and getch() for ! 320: * use under VAX/VMS, together with an exit handler to reset terminal ! 321: * characteristics. ! 322: * ! 323: * This code assumes that kbhit() has been invoked to test that there ! 324: * are characters in the typeahead buffer before getch() is invoked to ! 325: * get the answer. ! 326: */ ! 327: ! 328: #include <descrip.h> ! 329: #include <iodef.h> ! 330: #ifdef VAXC ! 331: #include <ttdef.h> ! 332: #include <tt2def.h> ! 333: #include <dcdef.h> ! 334: #else /* Probably GNU */ ! 335: #include <vms/$ttdef.h> ! 336: #include <vms/$tt2def.h> ! 337: #include <vms/$dcdef.h> ! 338: #endif /* VAXC */ ! 339: static volatile short _kbhitChan_ = 0; ! 340: ! 341: static volatile struct IOSB { ! 342: unsigned short sts; ! 343: unsigned short byteCount; ! 344: unsigned short terminator; ! 345: unsigned short terminatorSize; ! 346: } iosb; ! 347: static $DESCRIPTOR (kbdev_desc, "SYS$COMMAND:"); ! 348: ! 349: static volatile struct { ! 350: char Class; ! 351: char Type; ! 352: unsigned short BufferSize; ! 353: unsigned int Mode; ! 354: int ExtChar; ! 355: } CharBuf, OldCharBuf; ! 356: ! 357: void kbhit_handler(int *sts) ! 358: { ! 359: int mysts; ! 360: ! 361: CharBuf.Mode = OldCharBuf.Mode; ! 362: CharBuf.ExtChar = OldCharBuf.ExtChar; ! 363: CharBuf.Mode &= ~TT$M_NOECHO; ! 364: CharBuf.ExtChar &= ~TT2$M_PASTHRU; ! 365: if ((mysts = sys$qiow ( ! 366: 0, ! 367: _kbhitChan_, ! 368: IO$_SETMODE, ! 369: &iosb, ! 370: 0, ! 371: 0, ! 372: &CharBuf, ! 373: 12, ! 374: 0, ! 375: 0, ! 376: 0, ! 377: 0)) & 01) mysts = iosb.sts; ! 378: (void) sys$dassgn ( ! 379: _kbhitChan_); ! 380: _kbhitChan_ = 0; ! 381: if (!(mysts & 01)) { ! 382: fprintf(stderr,"\nFailed to reset terminal characteristics!"); ! 383: (void) lib$signal(mysts); ! 384: } ! 385: } ! 386: ! 387: unsigned int exsts; ! 388: ! 389: static struct { ! 390: int link; ! 391: void *rtn; ! 392: int argcnt; ! 393: int *stsaddr; ! 394: } exhblk = { 0, &(kbhit_handler), 1, &(exsts)}; ! 395: ! 396: int kbhit() ! 397: { ! 398: int sts = 1; ! 399: ! 400: struct { ! 401: unsigned short TypAhdCnt; ! 402: char FirstChar; ! 403: char Reserved[5]; ! 404: } TypCharBuf; ! 405: ! 406: if (_kbhitChan_ == 0) { ! 407: if ((sts = sys$assign ( ! 408: &kbdev_desc, ! 409: &_kbhitChan_, ! 410: 0, ! 411: 0)) & 1 == 0) lib$stop(sts); ! 412: if ((sts = sys$qiow ( ! 413: 0, ! 414: _kbhitChan_, ! 415: IO$_SENSEMODE, ! 416: &iosb, ! 417: 0, ! 418: 0, ! 419: &CharBuf, ! 420: 12, ! 421: 0, ! 422: 0, ! 423: 0, ! 424: 0)) & 01) sts = iosb.sts; ! 425: if (sts & 01) { ! 426: if (!(CharBuf.Class & DC$_TERM)) { ! 427: fprintf(stderr,"\nNot running on a terminal"); ! 428: exitPGP(1); ! 429: } else { ! 430: OldCharBuf.Mode = CharBuf.Mode; ! 431: OldCharBuf.ExtChar = CharBuf.ExtChar; ! 432: CharBuf.Mode |= TT$M_NOECHO; ! 433: CharBuf.ExtChar |= TT2$M_PASTHRU; ! 434: if ((sts = sys$qiow ( ! 435: 0, ! 436: _kbhitChan_, ! 437: IO$_SETMODE, ! 438: &iosb, ! 439: 0, ! 440: 0, ! 441: &CharBuf, ! 442: 12, ! 443: 0, ! 444: 0, ! 445: 0, ! 446: 0)) & 01) sts = iosb.sts; ! 447: if (sts & 01) { ! 448: /* ! 449: ** Declare Exit Handler ! 450: */ ! 451: (void) sys$dclexh (&exhblk); ! 452: } else { ! 453: fprintf(stderr,"\nFailed to set terminal characteristics!"); ! 454: (void) lib$signal(sts); ! 455: exitPGP(1); ! 456: } ! 457: } ! 458: } ! 459: } ! 460: /* ! 461: ** Get typeahead count ! 462: */ ! 463: if ((sts = sys$qiow ( ! 464: 0, ! 465: _kbhitChan_, ! 466: IO$_SENSEMODE | IO$M_TYPEAHDCNT, ! 467: &iosb, ! 468: 0, ! 469: 0, ! 470: &TypCharBuf, ! 471: 8, ! 472: 0, ! 473: 0, ! 474: 0, ! 475: 0)) & 01) sts = iosb.sts; ! 476: if (sts & 01) return(TypCharBuf.TypAhdCnt>0); ! 477: (void) lib$signal(sts); ! 478: exitPGP(1); ! 479: } ! 480: ! 481: int getch() ! 482: { ! 483: unsigned int sts; ! 484: volatile char CharBuf; ! 485: ! 486: if ((sts = sys$qiow ( ! 487: 0, ! 488: _kbhitChan_, ! 489: IO$_READVBLK, ! 490: &iosb, ! 491: 0, ! 492: 0, ! 493: &CharBuf, ! 494: 1, ! 495: 0, ! 496: 0, ! 497: 0, ! 498: 0)) & 01) sts = iosb.sts; ! 499: if (sts & 01) return ((int) CharBuf); ! 500: fprintf(stderr,"\nFailed to get character"); ! 501: (void) lib$signal(sts); ! 502: } ! 503: ! 504: ttynorm() ! 505: { ! 506: int sts; ! 507: ! 508: if (_kbhitChan_ != 0) { ! 509: (void) SYS$CANEXH(&exhblk); ! 510: kbhit_handler(&sts); ! 511: } ! 512: } ! 513: ! 514: void ttycbreak () ! 515: { ! 516: ttynorm(); ! 517: } ! 518: ! 519: unsigned long vms_clock_bits[2]; /* VMS Hardware Clock */ ! 520: const long vms_ticks_per_update = 100000L; /* Clock update int. */ ! 521: ! 522: #endif /* VMS */ ! 523: ! 524: ! 525: ! 526: /*========================================================================*/ ! 527: /* ! 528: * AMIGA ! 529: */ ! 530: ! 531: #ifdef AMIGA /* Amiga-specific stuff */ ! 532: ! 533: #include <exec/types.h> ! 534: #include <exec/memory.h> ! 535: #include <exec/ports.h> ! 536: #include <libraries/dosextens.h> ! 537: #ifdef LATTICE ! 538: #include <proto/exec.h> ! 539: #include <proto/dos.h> ! 540: #endif /* LATTICE */ ! 541: extern FILE *pgpout; ! 542: extern int aecho; ! 543: ! 544: FILE *tmpfile() ! 545: { ! 546: FILE *fp; ! 547: ! 548: if ((fp=fopen("tmpfile.tmp","w+b"))==NULL) { ! 549: perror("tmpfile.tmp"); ! 550: return(NULL); ! 551: } ! 552: return(fp); ! 553: ! 554: } ! 555: ! 556: /* amiga version of getch() ! 557: Cor Bosman , jul-22-92 ! 558: */ ! 559: ! 560: ! 561: sendpacket(struct MsgPort *rec,LONG action,LONG arg1) ! 562: { ! 563: struct StandardPacket *pkt; ! 564: struct msgPort *rp; ! 565: LONG res1 = 0L; ! 566: ! 567: if (rp = (struct MsgPort *)CreatePort(NULL,0L)) { ! 568: if (pkt = (struct StandardPacket *)\ ! 569: AllocMem(sizeof(struct StandardPacket),MEMF_PUBLIC|MEMF_CLEAR)) { ! 570: pkt->sp_Msg.mn_Node.ln_Name = (BYTE *)&pkt->sp_Pkt; ! 571: pkt->sp_Pkt.dp_Link = &pkt->sp_Msg; ! 572: pkt->sp_Pkt.dp_Port = rp; ! 573: pkt->sp_Pkt.dp_Type = action; ! 574: pkt->sp_Pkt.dp_Arg1 = arg1; ! 575: PutMsg(rec,&pkt->sp_Msg); ! 576: WaitPort(rp); ! 577: GetMsg(rp); ! 578: res1 = pkt->sp_Pkt.dp_Res1; ! 579: FreeMem((UBYTE*)pkt,sizeof(struct StandardPacket)); ! 580: } ! 581: DeletePort(rp); ! 582: } ! 583: return(res1); ! 584: ! 585: } ! 586: ! 587: /* ttycbreak for amiga. ! 588: * Cor Bosman , jul-30-92 ! 589: */ ! 590: ! 591: void ttycbreak() ! 592: { ! 593: BPTR in,out; ! 594: char buf[128]; ! 595: struct MsgPort *ch; ! 596: ! 597: in=Input(); ! 598: out=Output(); ! 599: ch = ((struct FileHandle *)BADDR(in))->fh_Type; ! 600: sendpacket(ch,ACTION_SCREEN_MODE,-1L); ! 601: } ! 602: ! 603: /* ttynorm for amiga ! 604: * Cor Bosman , jul-30-92 ! 605: */ ! 606: ! 607: void ttynorm() ! 608: { ! 609: ! 610: BPTR in,out; ! 611: char buf[128]; ! 612: struct MsgPort *ch; ! 613: ! 614: in=Input(); ! 615: out=Output(); ! 616: ch = ((struct FileHandle *)BADDR(in))->fh_Type; ! 617: sendpacket(ch,ACTION_SCREEN_MODE,0L); ! 618: } ! 619: ! 620: char getch(void) ! 621: { ! 622: char buf[128]; ! 623: BPTR in,out; ! 624: ! 625: in = Input(); ! 626: out = Output(); ! 627: Read(in,buf,1); ! 628: if (aecho) ! 629: Write(out, buf, 1); ! 630: return(buf[0]); ! 631: } ! 632: ! 633: /* kbhit() function for amiga. ! 634: * Cor Bosman , jul-30-92 ! 635: */ ! 636: ! 637: int kbhit() ! 638: { ! 639: if(WaitForChar(Input(), 1)) return 1; ! 640: return 0; ! 641: } ! 642: ! 643: #ifdef LATTICE ! 644: ! 645: /* ! 646: * Lattice-C ^C-Handler ! 647: */ ! 648: ! 649: int CXBRK() ! 650: { ! 651: BPTR in,out; ! 652: struct MsgPort *ch; ! 653: in=Input(); ! 654: out=Output(); ! 655: ! 656: /* it might happen we catch a ^C while in cbreak mode. ! 657: * so always set the screen to the normal mode. ! 658: */ ! 659: ! 660: ch = ((struct FileHandle *)BADDR(in))->fh_Type; ! 661: sendpacket(ch, ACTION_SCREEN_MODE, 0L); ! 662: ! 663: ! 664: fprintf(pgpout, "\n*** Program Aborted.\n"); ! 665: exitPGP(6); /* INTERRUPT */ ! 666: } ! 667: #endif ! 668: ! 669: #endif /* AMIGA */ ! 670: ! 671: ! 672: ! 673: /*===========================================================================*/ ! 674: /* ! 675: * other stuff for non-MSDOS systems ! 676: */ ! 677: ! 678: #ifdef ATARI ! 679: #include <string.h> ! 680: #endif ! 681: ! 682: #if !defined(MSDOS) && !defined(ATARI) ! 683: #include <ctype.h> ! 684: char *strlwr(char *s) ! 685: { /* ! 686: ** Turns string s into lower case. ! 687: */ ! 688: int c; ! 689: char *p = s; ! 690: while (c = *p) ! 691: *p++ = tolower(c); ! 692: return(s); ! 693: } ! 694: #endif /* !MSDOS && !ATARI */ ! 695: ! 696: ! 697: #ifdef strstr ! 698: #undef strstr ! 699: /* Not implemented on some systems - return first instance of s2 in s1 */ ! 700: char *mystrstr (char *s1, char *s2) ! 701: { int i; ! 702: char *strchr(); ! 703: ! 704: if (!s2 || !*s2) ! 705: return s1; ! 706: for ( ; ; ) ! 707: { if (!(s1 = strchr (s1, *s2))) ! 708: return s1; ! 709: for (i=1; s2[i] && (s1[i]==s2[i]); ++i) ! 710: ; ! 711: if (!s2[i]) ! 712: return s1; ! 713: ++s1; ! 714: } ! 715: } ! 716: #endif /* strstr */ ! 717: ! 718: ! 719: #ifdef fopen ! 720: #undef fopen ! 721: ! 722: #ifdef ATARI ! 723: #define F_BUF_SIZE 8192 /* seems to be a good value ... */ ! 724: ! 725: FILE *myfopen(const char *filename, const char *mode) ! 726: /* Open streams with larger buffer to increase disk I/O speed. */ ! 727: /* Adjust F_BUF_SIZE to change buffer size. */ ! 728: { ! 729: FILE *f; ! 730: ! 731: if ( (f = fopen(filename, mode)) != NULL ) ! 732: if (setvbuf(f, NULL, _IOFBF, F_BUF_SIZE)) /* no memory? */ ! 733: { ! 734: fclose(f); /* then close it again */ ! 735: f = fopen(filename, mode); /* and try again in normal mode */ ! 736: } ! 737: return(f); /* return either handle or NULL */ ! 738: } ! 739: ! 740: #else /* ATARI */ ! 741: ! 742: /* Remove "b" from 2nd arg */ ! 743: FILE *myfopen(char *filename, char *type) ! 744: { char buf[10]; ! 745: ! 746: buf[0] = *type++; ! 747: if (*type=='b') ! 748: ++type; ! 749: strcpy(buf+1,type); ! 750: return fopen(filename, buf); ! 751: } ! 752: #endif /* not ATARI */ ! 753: #endif /* fopen */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.