![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ckuus3.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / e / bin / ckermit|
Return to ckuus3.c CVS log | Up to [MW Coherent from dump] / coherent / e / bin / ckermit |
1.1 ! root 1: #ifndef NOICP ! 2: ! 3: /* C K U U S 3 -- "User Interface" for Unix Kermit, part 3 */ ! 4: ! 5: /* ! 6: Author: Frank da Cruz ([email protected], [email protected]), ! 7: Columbia University Center for Computing Activities. ! 8: First released January 1985. ! 9: Copyright (C) 1985, 1992, Trustees of Columbia University in the City of New ! 10: York. Permission is granted to any individual or institution to use this ! 11: software as long as it is not sold for profit. This copyright notice must be ! 12: retained. This software may not be included in commercial products without ! 13: written permission of Columbia University. ! 14: */ ! 15: ! 16: /* SET command (but much material has been split off into ckuus7.c). */ ! 17: ! 18: /* ! 19: Kermit-specific includes. ! 20: Definitions here supersede those from system include files. ! 21: */ ! 22: #include "ckcdeb.h" /* Debugging & compiler things */ ! 23: #include "ckcasc.h" /* ASCII character symbols */ ! 24: #include "ckcker.h" /* Kermit application definitions */ ! 25: #include "ckcxla.h" /* Character set translation */ ! 26: #include "ckcnet.h" /* Network symbols */ ! 27: #include "ckuusr.h" /* User interface symbols */ ! 28: ! 29: /* Variables */ ! 30: ! 31: extern int size, spsiz, spmax, urpsiz, srvtim, ! 32: local, server, success, ! 33: flow, binary, delay, parity, escape, what, srvdis, ! 34: turn, duplex, backgrd, ! 35: turnch, bctr, mdmtyp, keep, maxtry, unkcs, network, ! 36: ebqflg, quiet, swcapr, nettype, ! 37: wslotr, lscapr, lscapu, ! 38: carrier, debses, ! 39: cdtimo, nlangs, bgset, pflag, msgflg, dblchar, ! 40: cmdmsk, spsizr, wildxpand, suspend, ! 41: techo, terror; ! 42: ! 43: extern char *ccntab[]; ! 44: ! 45: #ifndef NOSCRIPT ! 46: extern int secho; /* Whether SCRIPT cmd should echo */ ! 47: #endif /* NOSCRIPT */ ! 48: ! 49: #ifndef NOSPL ! 50: #ifdef DCMDBUF ! 51: extern int *count; ! 52: #else ! 53: extern int count[]; ! 54: #endif /* DCMDBUF */ ! 55: extern int mecho, merror; /* Macro echo, error */ ! 56: extern int incase; /* INPUT case */ ! 57: #endif /* NOSPL */ ! 58: ! 59: extern int bigsbsiz, bigrbsiz; /* Packet buffers */ ! 60: ! 61: extern long speed; /* Terminal speed */ ! 62: ! 63: extern CHAR sstate; /* Protocol start state */ ! 64: extern char ttname[]; /* Communication device name */ ! 65: #ifndef MAC ! 66: #ifndef NOSETKEY ! 67: extern KEY *keymap; /* Character map for SET KEY (1:1) */ ! 68: extern MACRO *macrotab; /* Macro map for SET KEY (1:string) */ ! 69: #ifdef OS2 ! 70: int wideresult; /* for SET KEY, wide OS/2 scan codes */ ! 71: #endif /* OS2 */ ! 72: #endif /* NOSETKEY */ ! 73: #endif /* MAC */ ! 74: ! 75: #ifndef NOCSETS ! 76: /* system-independent character sets, defined in ckcxla.[ch] */ ! 77: extern struct csinfo tcsinfo[]; ! 78: extern struct langinfo langs[]; ! 79: ! 80: /* Other character-set related variables */ ! 81: extern int tcharset, tslevel, language; ! 82: #endif /* NOCSETS */ ! 83: ! 84: /* Declarations from cmd package */ ! 85: ! 86: #ifdef DCMDBUF ! 87: extern char *cmdbuf; /* Command buffer */ ! 88: extern char *line; ! 89: #else ! 90: extern char cmdbuf[]; /* Command buffer */ ! 91: extern char line[]; /* Character buffer for anything */ ! 92: #endif /* DCMDBUF */ ! 93: ! 94: /* From main ckuser module... */ ! 95: ! 96: extern char tmpbuf[], *tp, *lp; /* Temporary buffer */ ! 97: ! 98: extern int tlevel; /* Take Command file level */ ! 99: ! 100: #ifndef NOSPL ! 101: extern int cmdlvl; /* Overall command level */ ! 102: #endif /* NOSPL */ ! 103: ! 104: #ifdef UNIX ! 105: extern int sessft; /* Session-log file type */ ! 106: #endif /* UNIX */ ! 107: ! 108: ! 109: #ifdef VMS ! 110: int vms_msgs = 1; /* SET MESSAGES */ ! 111: #endif /* VMS */ ! 112: ! 113: /* Keyword tables for SET commands */ ! 114: ! 115: struct keytab chktab[] = { ! 116: "1", 1, 0, ! 117: "2", 2, 0, ! 118: "3", 3, 0, ! 119: "blank-free-2", 4, 0 ! 120: }; ! 121: ! 122: /* For SET MODEM */ ! 123: ! 124: struct keytab autotab[] = { ! 125: "changes-speed", 1, 0, ! 126: "matches-speed", 0, 0 ! 127: }; ! 128: ! 129: /* For SET CARRIER */ ! 130: ! 131: struct keytab crrtab[] = { ! 132: "auto", CAR_AUT, 0, ! 133: "off", CAR_OFF, 0, ! 134: "on", CAR_ON, 0 ! 135: }; ! 136: int ncrr = 3; ! 137: ! 138: /* For SET DEBUG */ ! 139: ! 140: struct keytab dbgtab[] = { ! 141: "off", 0, 0, ! 142: "on", 1, 0, ! 143: "session", 2, 0 ! 144: }; ! 145: int ndbg = 3; ! 146: ! 147: /* Transmission speeds */ ! 148: ! 149: /* Note, the values are encoded in cps rather than bps because 19200 and */ ! 150: /* 38400 are too big for some ints. All but 75bps are multiples of ten. */ ! 151: /* Result of lookup in this table must be multiplied by 10 to get actual */ ! 152: /* speed in bps. If this number is 70, it must be changed to 75. */ ! 153: /* If it is 888, this means 75/1200 split speed. 134.5 (IBM 2741) is not */ ! 154: /* supported, and split speed is not possible in AT&T UNIX. */ ! 155: ! 156: /* The values are generic, rather than specific to UNIX. We can't use */ ! 157: /* B75, B1200, B9600, etc, because non-UNIX versions of C-Kermit will not */ ! 158: /* necessarily have these symbols defined. */ ! 159: ! 160: /* Like all other keytabs, this one must be in "alphabetical" order, */ ! 161: /* rather than numeric order. */ ! 162: ! 163: struct keytab spdtab[] = { ! 164: "0", 0, CM_INV, ! 165: "110", 11, 0, ! 166: #ifdef OS2 ! 167: #ifdef __32BIT__ ! 168: "115200",11520, 0, ! 169: #endif /* __32BIT__ */ ! 170: #endif /* OS2 */ ! 171: "1200", 120, 0, ! 172: #ifdef OS2 ! 173: "14400", 1440, 0, ! 174: #endif /* OS2 */ ! 175: "150", 15, 0, ! 176: "19200", 1920, 0, ! 177: "200", 20, 0, ! 178: "2400", 240, 0, ! 179: "300", 30, 0, ! 180: "3600", 360, 0, ! 181: "38400", 3840, 0, ! 182: "4800", 480, 0, ! 183: "50", 5, 0, ! 184: #ifdef OS2 ! 185: "57600", 5760, 0, ! 186: #endif /* OS2 */ ! 187: "600", 60, 0, ! 188: #ifdef OS2 ! 189: "7200", 720, 0, ! 190: #endif /* OS2 */ ! 191: "75", 7, 0, ! 192: #ifdef ANYBSD ! 193: "75/1200",888, 0, /* Special code "888" for split speed */ ! 194: #endif /* ANYBSD */ ! 195: #ifdef OS2 ! 196: #ifdef __32BIT__ ! 197: "76800", 7680, 0, ! 198: #endif /* __32BIT__ */ ! 199: #endif /* OS2 */ ! 200: "9600", 960, 0 ! 201: }; ! 202: int nspd = (sizeof(spdtab) / sizeof(struct keytab)); /* how many speeds */ ! 203: ! 204: #ifndef NOCSETS ! 205: extern struct keytab lngtab[]; /* Languages for SET LANGUAGE */ ! 206: extern int nlng; ! 207: #endif /* NOCSETS */ ! 208: ! 209: /* Duplex keyword table */ ! 210: ! 211: struct keytab dpxtab[] = { ! 212: "full", 0, 0, ! 213: "half", 1, 0 ! 214: }; ! 215: ! 216: /* SET FILE parameters */ ! 217: ! 218: struct keytab filtab[] = { ! 219: "bytesize", XYFILS, 0, ! 220: #ifndef NOCSETS ! 221: "character-set", XYFILC, 0, ! 222: #endif /* NOCSETS */ ! 223: "collision", XYFILX, 0, ! 224: "display", XYFILD, 0, ! 225: "incomplete", XYFILI, 0, ! 226: #ifdef VMS ! 227: "label", XYFILL, 0, ! 228: #endif /* VMS */ ! 229: "names", XYFILN, 0, ! 230: #ifdef VMS ! 231: "record-length", XYFILR, 0, ! 232: #endif /* VMS */ ! 233: "type", XYFILT, 0, ! 234: "warning", XYFILW, CM_INV ! 235: }; ! 236: int nfilp = (sizeof(filtab) / sizeof(struct keytab)); ! 237: ! 238: /* Flow Control */ ! 239: ! 240: struct keytab flotab[] = { /* SET FLOW-CONTROL keyword table */ ! 241: #ifdef CK_DTRCD ! 242: "dtr/cd", FLO_DTRC, 0, ! 243: #endif /* CK_DTRCD */ ! 244: #ifdef CK_DTRCTS ! 245: "dtr/cts",FLO_DTRT, 0, ! 246: #endif /* CK_DTRCTS */ ! 247: "keep", FLO_KEEP, 0, ! 248: "none", FLO_NONE, 0, ! 249: #ifdef CK_RTSCTS ! 250: "rts/cts", FLO_RTSC, 0, ! 251: #endif /* CK_RTSCTS */ ! 252: "xon/xoff", FLO_XONX, 0 ! 253: }; ! 254: int nflo = (sizeof(flotab) / sizeof(struct keytab)); ! 255: ! 256: /* Handshake characters */ ! 257: ! 258: struct keytab hshtab[] = { ! 259: "bell", 007, 0, ! 260: "code", 998, 0, ! 261: "cr", 015, 0, ! 262: "esc", 033, 0, ! 263: "lf", 012, 0, ! 264: "none", 999, 0, /* (can't use negative numbers) */ ! 265: "xoff", 023, 0, ! 266: "xon", 021, 0 ! 267: }; ! 268: int nhsh = (sizeof(hshtab) / sizeof(struct keytab)); ! 269: ! 270: struct keytab fttab[] = { /* File types */ ! 271: #ifdef VMS ! 272: "b", XYFT_B, CM_INV|CM_ABR, ! 273: #endif /* VMS */ ! 274: "binary", XYFT_B, 0, ! 275: #ifdef VMS ! 276: "block", XYFT_I, CM_INV, ! 277: "image", XYFT_I, 0, ! 278: "labeled", XYFT_L, 0, ! 279: #endif /* VMS */ ! 280: "text", XYFT_T, 0 ! 281: }; ! 282: int nfttyp = (sizeof(fttab) / sizeof(struct keytab)); ! 283: ! 284: #ifndef NODIAL ! 285: extern struct keytab mdmtab[] ; /* Modem types (in module ckudia.c) */ ! 286: extern int nmdm; /* Number of them */ ! 287: #ifndef MINIDIAL ! 288: extern int tbmodel; /* Telebit model ID */ ! 289: #endif /* MINIDIAL */ ! 290: #endif /* NODIAL */ ! 291: ! 292: #ifdef UNIX ! 293: struct keytab wildtab[] = { /* SET WILDCARD-EXPANSION */ ! 294: "kermit", 0, 0, ! 295: "shell", 1, 0 ! 296: }; ! 297: #endif /* UNIX */ ! 298: ! 299: #ifdef NETCONN ! 300: extern struct keytab netcmd[]; ! 301: extern int nnets; ! 302: #endif /* NETCONN */ ! 303: ! 304: #ifdef SUNX25 ! 305: struct keytab x25tab[] = { ! 306: "call-user-data", XYUDAT, 0, ! 307: "closed-user-group", XYCLOS, 0, ! 308: "reverse-charge", XYREVC, 0 ! 309: }; ! 310: int nx25 = (sizeof(x25tab) / sizeof(struct keytab)); ! 311: ! 312: struct keytab padx3tab[] = { ! 313: "break-action", PAD_BREAK_ACTION, 0, ! 314: "break-character", PAD_BREAK_CHARACTER, 0, ! 315: "character-delete", PAD_CHAR_DELETE_CHAR, 0, ! 316: "cr-padding", PAD_PADDING_AFTER_CR, 0, ! 317: "discard-output", PAD_SUPPRESSION_OF_DATA, 0, ! 318: "echo", PAD_ECHO, 0, ! 319: "editing", PAD_EDITING, 0, ! 320: "escape", PAD_ESCAPE, 0, ! 321: "forward", PAD_DATA_FORWARD_CHAR, 0, ! 322: "lf-padding", PAD_PADDING_AFTER_LF, 0, ! 323: "lf-insert", PAD_LF_AFTER_CR, 0, ! 324: "line-delete", PAD_BUFFER_DELETE_CHAR, 0, ! 325: "line-display", PAD_BUFFER_DISPLAY_CHAR, 0, ! 326: "line-fold", PAD_LINE_FOLDING, 0, ! 327: "pad-flow-control", PAD_FLOW_CONTROL_BY_PAD, 0, ! 328: "service-signals", PAD_SUPPRESSION_OF_SIGNALS, 0, ! 329: "timeout", PAD_DATA_FORWARD_TIMEOUT, 0, ! 330: /* Speed is read-only */ ! 331: "transmission-rate", PAD_LINE_SPEED, 0, ! 332: "user-flow-control", PAD_FLOW_CONTROL_BY_USER, 0 ! 333: }; ! 334: int npadx3 = (sizeof(padx3tab) / sizeof(struct keytab)); ! 335: #endif /* SUNX25 */ ! 336: ! 337: /* Parity keyword table */ ! 338: ! 339: struct keytab partab[] = { ! 340: "even", 'e', 0, ! 341: "mark", 'm', 0, ! 342: "none", 0 , 0, ! 343: "odd", 'o', 0, ! 344: "space", 's', 0 ! 345: }; ! 346: int npar = (sizeof(partab) / sizeof(struct keytab)); ! 347: ! 348: /* On/Off table */ ! 349: ! 350: struct keytab onoff[] = { ! 351: "off", 0, 0, ! 352: "on", 1, 0 ! 353: }; ! 354: ! 355: struct keytab rltab[] = { ! 356: "local", 1, 0, ! 357: "off", 0, CM_INV, ! 358: "on", 1, CM_INV, ! 359: "remote", 0, 0 ! 360: }; ! 361: int nrlt = (sizeof(rltab) / sizeof(struct keytab)); ! 362: ! 363: /* Incomplete File Disposition table */ ! 364: static ! 365: struct keytab ifdtab[] = { ! 366: "discard", 0, 0, ! 367: "keep", 1, 0 ! 368: }; ! 369: ! 370: /* SET TAKE parameters table */ ! 371: static ! 372: struct keytab taktab[] = { ! 373: "echo", 0, 0, ! 374: "error", 1, 0, ! 375: "off", 2, CM_INV, /* For compatibility */ ! 376: "on", 3, CM_INV /* with MS-DOS Kermit... */ ! 377: }; ! 378: ! 379: /* SET MACRO parameters table */ ! 380: static ! 381: struct keytab smactab[] = { ! 382: "echo", 0, 0, ! 383: "error", 1, 0 ! 384: }; ! 385: ! 386: #ifndef NOSCRIPT ! 387: static ! 388: struct keytab scrtab[] = { ! 389: "echo", 0, 0 ! 390: }; ! 391: #endif /* NOSCRIPT */ ! 392: ! 393: /* Bytesize table */ ! 394: struct keytab byttab[] = { ! 395: "bytesize", 0, 0 ! 396: }; ! 397: int nbytt = 1; ! 398: ! 399: #ifndef NOSERVER ! 400: /* Server parameters table */ ! 401: struct keytab srvtab[] = { ! 402: "display", XYSERD, 0, ! 403: "timeout", XYSERT, 0 ! 404: }; ! 405: #endif /* NOSERVER */ ! 406: ! 407: /* SET TRANSFER/XFER table */ ! 408: ! 409: struct keytab tstab[] = { ! 410: #ifndef NOCSETS ! 411: "character-set", 1, 0, ! 412: #endif /* NOCSETS */ ! 413: "locking-shift", 2, 0 ! 414: }; ! 415: int nts = (sizeof(tstab) / sizeof(struct keytab)); ! 416: ! 417: #ifndef NOCSETS ! 418: /* SET TRANSFER CHARACTER-SET table */ ! 419: ! 420: extern struct keytab tcstab[]; ! 421: extern int ntcs; ! 422: #endif /* NOCSETS */ ! 423: ! 424: /* SET TRANSFER LOCKING-SHIFT table */ ! 425: struct keytab lstab[] = { ! 426: "forced", 2, 0, ! 427: "off", 0, 0, ! 428: "on", 1, 0 ! 429: }; ! 430: int nls = (sizeof(lstab) / sizeof(struct keytab)); ! 431: ! 432: /* SET TELNET table */ ! 433: #ifdef TNCODE ! 434: extern int tn_duplex, tn_nlm; ! 435: extern char *tn_term; ! 436: struct keytab tntab[] = { ! 437: "echo", CK_TN_EC, 0, ! 438: "newline-mode", CK_TN_NL, 0, ! 439: "terminal-type", CK_TN_TT, 0 ! 440: }; ! 441: int ntn = (sizeof(tntab) / sizeof(struct keytab)); ! 442: #endif /* TNCODE */ ! 443: ! 444: struct keytab ftrtab[] = { /* Feature table */ ! 445: #ifndef NOCSETS /* 0 = we have it, 1 = we don't */ ! 446: "character-sets", 0, 0, ! 447: #else ! 448: "character-sets", 1, 0, ! 449: #endif /* NOCSETS */ ! 450: #ifndef NOCYRIL ! 451: "cyrillic", 0, 0, ! 452: #else ! 453: "cyrillic", 1, 0, ! 454: #endif /* NOCYRIL */ ! 455: ! 456: #ifndef NODEBUG ! 457: "debug", 0, 0, ! 458: #else ! 459: "debug", 1, 0, ! 460: #endif /* NODEBUG */ ! 461: ! 462: #ifndef NODIAL ! 463: "dial", 0, 0, ! 464: #else ! 465: "dial", 1, 0, ! 466: #endif /* NODIAL */ ! 467: ! 468: #ifdef DYNAMIC ! 469: "dynamic-memory", 0, 0, ! 470: #else ! 471: "dynamic-memory", 1, 0, ! 472: #endif /* DYNAMIC */ ! 473: ! 474: #ifdef CK_CURSES ! 475: "fullscreen-display", 0, 0, ! 476: #else ! 477: "fullscreen-display", 1, 0, ! 478: #endif /* CK_CURSES */ ! 479: #ifndef NOHELP ! 480: "help", 0, 0, ! 481: #else ! 482: "help", 1, 0, ! 483: #endif /* NOHELP */ ! 484: #ifndef NOSPL ! 485: "if-command", 0, 0, ! 486: #else ! 487: "if-command", 1, 0, ! 488: #endif /* NOSPL */ ! 489: #ifndef NOJC ! 490: #ifdef UNIX ! 491: "job-control", 0, 0, ! 492: #else ! 493: "job-control", 1, 0, ! 494: #endif /* UNIX */ ! 495: #else ! 496: "job-control", 1, 0, ! 497: #endif /* NOJC */ ! 498: #ifdef KANJI ! 499: "kanji", 0, 0, ! 500: #else ! 501: "kanji", 1, 0, ! 502: #endif /* KANJI */ ! 503: #ifndef NOCSETS ! 504: "latin1", 0, 0, ! 505: #else ! 506: "latin1", 1, 0, ! 507: #endif /* NOCSETS */ ! 508: #ifdef LATIN2 ! 509: "latin2", 0, 0, ! 510: #else ! 511: "latin2", 1, 0, ! 512: #endif /* LATIN2 */ ! 513: #ifdef NETCONN ! 514: "network", 0, 0, ! 515: #else ! 516: "network", 1, 0, ! 517: #endif /* NETCONN */ ! 518: #ifndef NOPUSH ! 519: "push", 0, 0, ! 520: #else ! 521: "push", 1, 0, ! 522: #endif /* PUSH */ ! 523: #ifndef NOSCRIPT ! 524: "script-command", 0, 0, ! 525: #else ! 526: "script-command", 1, 0, ! 527: #endif /* NOSCRIPT */ ! 528: #ifndef NOSERVER ! 529: "server-mode", 0, 0, ! 530: #else ! 531: "server-mode", 1, 0, ! 532: #endif /* NOSERVER */ ! 533: #ifndef NOSHOW ! 534: "show-command", 0, 0, ! 535: #else ! 536: "show-command", 1, 0, ! 537: #endif /* NOSHOW */ ! 538: #ifndef NOXMIT ! 539: "transmit", 0, 0, ! 540: #else ! 541: "transmit", 1, 0 ! 542: #endif /* NOXMIT */ ! 543: }; ! 544: int nftr = (sizeof(ftrtab) / sizeof(struct keytab)); ! 545: ! 546: int /* CHECK command */ ! 547: dochk() { ! 548: int x, y; ! 549: if ((y = cmkey(ftrtab,nftr,"","",xxstring)) < 0) return(y); ! 550: if ((x = cmcfm()) < 0) return(x); ! 551: if (msgflg) /* If at top level... */ ! 552: printf(" %svailable\n", y ? "Not a" : "A"); /* Print a message */ ! 553: else if (y && !backgrd) /* Or if not available and in */ ! 554: printf(" CHECK: feature not available\n"); /* command file or macro */ ! 555: return(success = 1 - y); ! 556: } ! 557: ! 558: #ifndef MAC ! 559: #ifndef NOSETKEY ! 560: int ! 561: set_key() { /* SET KEY */ ! 562: int y; ! 563: int kc; /* Key code */ ! 564: char *bind; /* Key binding */ ! 565: ! 566: if ((y = cmnum("numeric key code","",10,&kc,xxstring)) < 0) ! 567: return(y); ! 568: if (kc < 0 || kc >= KMSIZE) { ! 569: printf("?key code must be between 0 and %d\n", KMSIZE - 1); ! 570: return(-9); ! 571: } ! 572: #ifdef OS2 ! 573: wideresult = -1; ! 574: #endif /* OS2 */ ! 575: if ((y = cmtxt("key definition","",&bind,xxstring)) < 0) ! 576: return(y); ! 577: if (macrotab[kc]) { /* Possibly free old macro from key */ ! 578: free(macrotab[kc]); ! 579: macrotab[kc] = NULL; ! 580: } ! 581: switch (strlen(bind)) { /* Action depends on length */ ! 582: #ifdef OS2 ! 583: case 0: /* Reset to default binding */ ! 584: keymap[kc] = wideresult == -1 ? kc : 0; /* or bind to NUL */ ! 585: break; ! 586: case 1: /* Single character */ ! 587: keymap[kc] = wideresult == -1 ? (CHAR) *bind : wideresult; ! 588: break; ! 589: #else /* Not OS/2 */ ! 590: case 0: /* Reset to default binding */ ! 591: keymap[kc] = kc; ! 592: break; ! 593: case 1: /* Single character */ ! 594: keymap[kc] = (CHAR) *bind; ! 595: break; ! 596: #endif /* OS2 */ ! 597: ! 598: default: /* Character string */ ! 599: keymap[kc] = kc; ! 600: macrotab[kc] = (MACRO) malloc(strlen(bind)+1); ! 601: if (macrotab[kc]) ! 602: strcpy((char *) macrotab[kc], bind); ! 603: break; ! 604: } ! 605: return(1); ! 606: } ! 607: #endif /* NOSETKEY */ ! 608: #endif /* MAC */ ! 609: ! 610: /* D O P R M -- Set a parameter. */ ! 611: /* ! 612: Returns: ! 613: -2: illegal input ! 614: -1: reparse needed ! 615: 0: success ! 616: */ ! 617: int ! 618: doprm(xx,rmsflg) int xx, rmsflg; { ! 619: int i, x, y = 0, z; ! 620: long zz; ! 621: char *s; ! 622: ! 623: switch (xx) { ! 624: ! 625: #ifdef SUNX25 /* SET X25 ... */ ! 626: case XYX25: ! 627: return(setx25()); ! 628: ! 629: case XYPAD: /* SET PAD ... */ ! 630: return(setpadp()); ! 631: #endif /* SUNX25 */ ! 632: ! 633: case XYEOL: /* These have all been moved to set send/receive... */ ! 634: case XYLEN: /* Let the user know what to do. */ ! 635: case XYMARK: ! 636: case XYNPAD: ! 637: case XYPADC: ! 638: case XYTIMO: ! 639: printf("...Use SET SEND or SET RECEIVE instead.\n"); ! 640: printf("Type HELP SET SEND or HELP SET RECEIVE for more info.\n"); ! 641: return(success = 0); ! 642: ! 643: case XYATTR: /* File Attribute packets */ ! 644: return(setat(rmsflg)); ! 645: ! 646: case XYIFD: /* Incomplete file disposition */ ! 647: if ((y = cmkey(ifdtab,2,"","discard",xxstring)) < 0) return(y); ! 648: if ((x = cmcfm()) < 0) return(x); ! 649: if (rmsflg) { ! 650: sstate = setgen('S', "310", y ? "1" : "0", ""); ! 651: return((int) sstate); ! 652: } else { ! 653: keep = y; ! 654: return(success = 1); ! 655: } ! 656: ! 657: #ifndef NOSPL ! 658: case XYINPU: /* SET INPUT */ ! 659: return(setinp()); ! 660: #endif /* NOSPL */ ! 661: ! 662: #ifdef NETCONN ! 663: case XYNET: /* SET NETWORK */ ! 664: if ((z = cmkey(netcmd,nnets,"","tcp/ip",xxstring)) < 0) ! 665: return(z); ! 666: if ((x = cmcfm()) < 0) return(x); ! 667: nettype = z; ! 668: if ( ! 669: (nettype != NET_DEC) && ! 670: (nettype != NET_SX25) && ! 671: (nettype != NET_TCPB)) { ! 672: printf("?Network type not supported\n"); ! 673: return(success = 0); ! 674: } else { ! 675: return(success = 1); ! 676: } ! 677: #endif /* NETCONN */ ! 678: ! 679: case XYHOST: /* SET HOST or SET LINE */ ! 680: case XYLINE: ! 681: return(setlin(xx,1)); ! 682: ! 683: #ifndef MAC ! 684: #ifndef NOSETKEY ! 685: case XYKEY: /* SET KEY */ ! 686: return(set_key()); ! 687: #endif /* NOSETKEY */ ! 688: #endif /* MAC */ ! 689: ! 690: #ifndef NOCSETS ! 691: case XYLANG: /* Language */ ! 692: if ((y = cmkey(lngtab,nlng,"","none",xxstring)) < 0) /* language code */ ! 693: return(y); ! 694: if ((x = cmcfm()) < 0) return(x); /* And confirmation of command */ ! 695: ! 696: /* Look up language and get associated character sets */ ! 697: for (i = 0; (i < nlangs) && (langs[i].id != y); i++) ; ! 698: if (i >= nlangs) { ! 699: printf("?internal error, sorry\n"); ! 700: return(success = 0); ! 701: } ! 702: language = i; /* All good, set the language, */ ! 703: return(success = 1); ! 704: #endif /* NOCSETS */ ! 705: ! 706: #ifndef MAC ! 707: case XYBACK: /* BACKGROUND */ ! 708: if ((z = cmkey(onoff,2,"","",xxstring)) < 0) return(z); ! 709: if ((y = cmcfm()) < 0) return(y); ! 710: bgset = z; ! 711: success = 1; ! 712: bgchk(); ! 713: return(success); ! 714: #endif /* MAC */ ! 715: ! 716: case XYQUIE: /* QUIET */ ! 717: return(success = seton(&quiet)); ! 718: ! 719: case XYBUF: { /* BUFFERS */ ! 720: #ifdef DYNAMIC ! 721: int sb, rb; ! 722: if ((y = cmnum("send buffer size","",10,&sb,xxstring)) < 0) { ! 723: if (y == -3) printf("?two numbers required\n"); ! 724: return(y); ! 725: } ! 726: if (sb < 80) { ! 727: printf("?too small"); ! 728: return(-2); ! 729: } ! 730: if ((y = cmnum("receive buffer size","",10,&rb,xxstring)) < 0) { ! 731: if (y == -3) printf("?receive buffer size required\n"); ! 732: return(y); ! 733: } ! 734: if (rb < 80) { ! 735: printf("?too small"); ! 736: return(-2); ! 737: } ! 738: if ((y = cmcfm()) < 0) return(y); ! 739: if ((y = inibufs(sb,rb)) < 0) return(y); ! 740: y = adjpkl(urpsiz,wslotr,bigrbsiz); /* Maybe adjust packet sizes */ ! 741: if (y != urpsiz) urpsiz = y; ! 742: y = adjpkl(spsiz,wslotr,bigsbsiz); ! 743: if (y != spsiz) spsiz = spmax = spsizr = y; ! 744: return(success = 1); ! 745: #else ! 746: printf("?Sorry, not available\n"); ! 747: return(success = 0); ! 748: #endif /* DYNAMIC */ ! 749: } ! 750: ! 751: case XYCHKT: /* BLOCK-CHECK */ ! 752: if ((x = cmkey(chktab,4,"","1",xxstring)) < 0) return(x); ! 753: if ((y = cmcfm()) < 0) return(y); ! 754: bctr = x; /* Set locally too, even if REMOTE SET */ ! 755: if (rmsflg) { ! 756: if (x == 4) { ! 757: tmpbuf[0] = 'B'; ! 758: tmpbuf[1] = '\0'; ! 759: } else sprintf(tmpbuf,"%d",x); ! 760: sstate = setgen('S', "400", tmpbuf, ""); ! 761: return((int) sstate); ! 762: } else { ! 763: return(success = 1); ! 764: } ! 765: ! 766: #ifndef MAC ! 767: /* ! 768: The Mac has no carrier... ! 769: */ ! 770: case XYCARR: /* CARRIER */ ! 771: if ((y = cmkey(crrtab,ncrr,"","auto",xxstring)) < 0) return(y); ! 772: if (y == CAR_ON) { ! 773: x = cmnum("Carrier wait timeout, seconds","0",10,&z,xxstring); ! 774: if (x < 0) return(z); ! 775: } ! 776: if ((x = cmcfm()) < 0) return(x); ! 777: carrier = ttscarr(y); ! 778: cdtimo = z; ! 779: return(success = 1); ! 780: #endif /* MAC */ ! 781: ! 782: #ifdef TNCODE ! 783: case XYTEL: /* TELNET */ ! 784: if ((z = cmkey(tntab,ntn,"parameter for TELNET negotiations", "", ! 785: xxstring)) < 0) return(z); ! 786: switch (z) { ! 787: case CK_TN_EC: /* ECHO */ ! 788: if ((x = cmkey(rltab,nrlt, ! 789: "initial TELNET echoing state","local",xxstring)) < 0) ! 790: return(x); ! 791: if ((y = cmcfm()) < 0) return(y); ! 792: tn_duplex = x; ! 793: return(success = 1); ! 794: ! 795: case CK_TN_TT: /* TERMINAL TYPE */ ! 796: if ((y = cmtxt("terminal type for TELNET connections","", ! 797: &s,xxstring)) < 0) ! 798: return(y); ! 799: if (tn_term) free(tn_term); /* Free any previous storage */ ! 800: if (s == NULL || *s == NUL) { /* If none given */ ! 801: tn_term = NULL; /* remove the override string */ ! 802: return(success = 1); ! 803: } else if (tn_term = malloc(strlen(s)+1)) { /* Make storage for new */ ! 804: strcpy(tn_term,s); /* Copy string into new storage */ ! 805: return(success = 1); ! 806: } else return(success = 0); ! 807: ! 808: case CK_TN_NL: /* NEWLINE-MODE */ ! 809: return(success = seton(&tn_nlm)); ! 810: ! 811: default: ! 812: return(-2); ! 813: } ! 814: #endif /* TNCODE */ ! 815: ! 816: default: ! 817: break; ! 818: } ! 819: ! 820: switch (xx) { ! 821: #ifndef NOSPL ! 822: case XYCOUN: /* SET COUNT */ ! 823: x = cmnum("Positive number","0",10,&z,xxstring); ! 824: if (x < 0) return(x); ! 825: if ((x = cmcfm()) < 0) return(x); ! 826: if (z < 0) { ! 827: printf("?A positive number, please\n"); ! 828: return(0); ! 829: } ! 830: debug(F101,"XYCOUN: z","",z); ! 831: return(success = setnum(&count[cmdlvl],z,0,10000)); ! 832: #endif /* NOSPL */ ! 833: ! 834: #ifndef NOSPL ! 835: case XYCASE: ! 836: return(success = seton(&incase)); ! 837: #endif /* NOSPL */ ! 838: ! 839: case XYCMD: /* COMMAND ... */ ! 840: if ((y = cmkey(byttab,nbytt,"","bytesize",xxstring)) < 0) return(y); ! 841: if ((y = cmnum("bytesize for command characters, 7 or 8","7",10,&x, ! 842: xxstring)) < 0) ! 843: return(y); ! 844: if (x != 7 && x != 8) { ! 845: printf("\n?The choices are 7 and 8\n"); ! 846: return(success = 0); ! 847: } ! 848: if ((y = cmcfm()) < 0) return(y); ! 849: if (x == 7) cmdmsk = 0177; ! 850: else if (x == 8) cmdmsk = 0377; ! 851: return(success = 1); ! 852: ! 853: case XYDFLT: /* SET DEFAULT = CD */ ! 854: return(success = docd()); ! 855: ! 856: case XYDEBU: /* SET DEBUG { on, off, session } */ ! 857: if ((y = cmkey(dbgtab,ndbg,"","",xxstring)) < 0) return(y); ! 858: if ((x = cmcfm()) < 0) return(x); ! 859: switch (y) { ! 860: case 0: /* 0 = all debugging off. */ ! 861: debses = 0; ! 862: #ifdef DEBUG ! 863: if (deblog) doclslog(LOGD); ! 864: #endif /* DEBUG */ ! 865: return(success = 1); ! 866: ! 867: case 1: /* 1 = log debugging to debug.log */ ! 868: #ifdef DEBUG ! 869: deblog = debopn("debug.log", 0); ! 870: return(success = deblog ? 1 : 0); ! 871: #else ! 872: printf("?Sorry, debug log feature not enabled\n"); ! 873: return(success = 0); ! 874: #endif /* DEBUG */ ! 875: ! 876: case 2: /* 2 = session. */ ! 877: return(success = debses = 1); ! 878: } ! 879: ! 880: case XYDELA: /* SET DELAY */ ! 881: y = cmnum("Number of seconds before starting to send","5",10,&x,xxstring); ! 882: if (x < 0) x = 0; ! 883: return(success = setnum(&delay,x,y,999)); ! 884: ! 885: default: ! 886: break; ! 887: } ! 888: ! 889: switch (xx) { ! 890: ! 891: #ifndef NODIAL ! 892: case XYDIAL: /* SET DIAL */ ! 893: return(setdial()); ! 894: #endif /* NODIAL */ ! 895: ! 896: #ifdef COMMENT /* Unused at present */ ! 897: case XYDOUB: ! 898: if ((x = cmfld("Character to double","none",&s,xxstring)) < 0) { ! 899: if (x == -3) { ! 900: dblchar = -1; ! 901: if (msgflg) printf("Doubling Off\n"); ! 902: return(success = 1); ! 903: } else return(x); ! 904: } ! 905: strcpy(line,s); ! 906: lp = line; ! 907: if ((x = cmcfm()) < 0) return(x); ! 908: if (!xxstrcmp(lp,"none",4)) { ! 909: dblchar = -1; ! 910: if (msgflg) printf("Doubling Off\n"); ! 911: return(success = 1); ! 912: } ! 913: if ((int)strlen(lp) != 1) return(-2); ! 914: dblchar = *lp & 0xFF; ! 915: if (msgflg) printf("Doubled: %d\n",dblchar); ! 916: return(success = 1); ! 917: #endif /* COMMENT */ ! 918: ! 919: case XYDUPL: /* SET DUPLEX */ ! 920: if ((y = cmkey(dpxtab,2,"","full",xxstring)) < 0) return(y); ! 921: if ((x = cmcfm()) < 0) return(x); ! 922: duplex = y; ! 923: return(success = 1); ! 924: ! 925: case XYLCLE: /* LOCAL-ECHO (= DUPLEX) */ ! 926: return(success = seton(&duplex)); ! 927: ! 928: case XYESC: /* SET ESCAPE */ ! 929: sprintf(tmpbuf,"%d",DFESC); ! 930: y = cmnum("Decimal ASCII code for CONNECT-mode escape character", ! 931: tmpbuf, 10,&x,xxstring); ! 932: success = setcc(&escape,x,y); ! 933: #ifdef COMMENT ! 934: /* This is what SHOW ESCAPE is for. */ ! 935: if (success && msgflg) ! 936: printf(" CONNECT-mode escape character: %d (Ctrl-%c, %s)\n", ! 937: escape,ctl(escape),(escape == 127 ? "DEL" : ccntab[escape])); ! 938: #endif /* COMMENT */ ! 939: return(success); ! 940: ! 941: default: ! 942: break; ! 943: } ! 944: ! 945: switch (xx) { ! 946: case XYFILE: /* SET FILE */ ! 947: return(setfil(rmsflg)); ! 948: ! 949: case XYFLOW: /* FLOW-CONTROL */ ! 950: /* ! 951: Note: flotab[] keyword table (defined above) only includes the legal ! 952: flow-control options for each implementation, controlled by symbols ! 953: defined in ckcdeb.h. ! 954: */ ! 955: if ((y = cmkey(flotab,nflo,"","xon/xoff",xxstring)) < 0) return(y); ! 956: if ((x = cmcfm()) < 0) return(x); ! 957: flow = y; ! 958: debug(F101,"set flow","",flow); ! 959: return(success = 1); ! 960: ! 961: case XYHAND: /* HANDSHAKE */ ! 962: if ((y = cmkey(hshtab,nhsh,"","none",xxstring)) < 0) return(y); ! 963: if (y == 998) { ! 964: if ((x = cmnum("ASCII value","",10,&y,xxstring)) < 0) ! 965: return(x); ! 966: if ((y < 1) || ((y > 31) && (y != 127))) { ! 967: printf("?Character must be in ASCII control range\n"); ! 968: return(-9); ! 969: } ! 970: } ! 971: if ((x = cmcfm()) < 0) return(x); ! 972: turn = (y > 0127) ? 0 : 1 ; ! 973: turnch = y; ! 974: return(success = 1); ! 975: ! 976: #ifndef NOSPL ! 977: case XYMACR: /* SET MACRO */ ! 978: if ((y = cmkey(smactab,2,"","",xxstring)) < 0) return(y); ! 979: switch (y) { ! 980: case 0: return(success = seton(&mecho)); ! 981: case 1: return(success = seton(&merror)); ! 982: default: return(-2); ! 983: } ! 984: #endif /* NOSPL */ ! 985: ! 986: #ifndef NODIAL ! 987: case XYMODM: /* SET MODEM */ ! 988: if ((x = cmkey(mdmtab,nmdm,"type of modem","none", xxstring)) < 0) ! 989: return(x); ! 990: if ((z = cmcfm()) < 0) return(z); ! 991: mdmtyp = x; ! 992: #ifndef MINIDIAL ! 993: tbmodel = 0; /* If it's a Telebit, we don't know the model yet */ ! 994: #endif /* MINIDIAL */ ! 995: return(success = 1); ! 996: #endif /* NODIAL */ ! 997: ! 998: case XYMSGS: ! 999: #ifdef VMS ! 1000: if ((z = cmkey(onoff,2,"","",xxstring)) < 0) return(z); ! 1001: if ((y = cmcfm()) < 0) return(y); ! 1002: vms_msgs = z; ! 1003: printf("Sorry, SET MESSAGES not implemented yet\n"); ! 1004: return(success = 0); ! 1005: #endif /* VMS */ ! 1006: default: ! 1007: break; ! 1008: } ! 1009: ! 1010: switch (xx) { ! 1011: ! 1012: case XYPARI: /* PARITY */ ! 1013: if ((y = cmkey(partab,npar,"","none",xxstring)) < 0) return(y); ! 1014: if ((x = cmcfm()) < 0) return(x); ! 1015: ! 1016: /* If parity not none, then we also want 8th-bit prefixing */ ! 1017: ! 1018: if (parity = y) ebqflg = 1; else ebqflg = 0; ! 1019: return(success = 1); ! 1020: ! 1021: #ifndef NOFRILLS ! 1022: case XYPROM: /* SET PROMPT */ ! 1023: /* ! 1024: Note: xxstring not invoked here. Instead, it is invoked every time the ! 1025: prompt is issued. This allows the prompt string to contain variables ! 1026: that can change, like \v(dir), \v(time), etc. ! 1027: */ ! 1028: #ifdef MAC ! 1029: if ((x = cmtxt("Program's command prompt","Mac-Kermit>",&s,NULL)) < 0) ! 1030: #else ! 1031: if ((x = cmtxt("Program's command prompt","C-Kermit>",&s,NULL)) < 0) ! 1032: #endif /* MAC */ ! 1033: return(x); ! 1034: if (*s == '{') { /* Remove enclosing braces, if any */ ! 1035: x = (int)strlen(s); ! 1036: if (s[x-1] == '}') { ! 1037: s[x-1] = NUL; ! 1038: s++; ! 1039: } ! 1040: } ! 1041: #ifdef COMMENT ! 1042: /* ! 1043: Let's not do this any more -- we don't do it anywhere else. ! 1044: */ ! 1045: else if (*s == '"') { /* For compatibility with pre-5A */ ! 1046: x = (int)strlen(s); ! 1047: if (s[x-1] == '"') { ! 1048: s[x-1] = NUL; ! 1049: s++; ! 1050: } ! 1051: } ! 1052: #endif /* COMMENT */ ! 1053: cmsetp(s); /* Set the prompt */ ! 1054: return(success = 1); ! 1055: #endif /* NOFRILLS */ ! 1056: ! 1057: case XYRETR: /* RETRY: per-packet retry limit */ ! 1058: y = cmnum("Maximum retries per packet","10",10,&x,xxstring); ! 1059: if (x < 0) x = 0; ! 1060: if ((x = setnum(&maxtry,x,y,999)) < 0) return(x); ! 1061: if (maxtry <= wslotr) { ! 1062: printf("?Retry limit must be greater than window size\n"); ! 1063: return(success = 0); ! 1064: } ! 1065: sprintf(tmpbuf,"%d",maxtry); ! 1066: if (rmsflg) { ! 1067: sstate = setgen('S', "403", tmpbuf, ""); ! 1068: return((int) sstate); ! 1069: } else return(success = x); ! 1070: ! 1071: #ifndef NOSERVER ! 1072: case XYSERV: /* SET SERVER items */ ! 1073: if ((y = cmkey(srvtab,2,"","",xxstring)) < 0) return(y); ! 1074: switch (y) { ! 1075: case XYSERT: ! 1076: tp = tmpbuf; ! 1077: sprintf(tp,"%d",DSRVTIM); ! 1078: if ((y = cmnum("interval for server NAKs, 0 = none",tp,10,&x, ! 1079: xxstring)) < 0) ! 1080: return(y); ! 1081: if (x < 0) { ! 1082: printf("\n?Specify a positive number, or 0 for no server NAKs\n"); ! 1083: return(0); ! 1084: } ! 1085: if ((y = cmcfm()) < 0) return(y); ! 1086: sprintf(tp,"%d",x); ! 1087: if (rmsflg) { ! 1088: sstate = setgen('S', "404", tp, ""); ! 1089: return((int) sstate); ! 1090: } else { ! 1091: srvtim = x; /* Set the server timeout variable */ ! 1092: return(success = 1); ! 1093: } ! 1094: case XYSERD: /* SERVER DISPLAY */ ! 1095: return(success = seton(&srvdis)); /* ON or OFF... */ ! 1096: default: ! 1097: return(-2); ! 1098: } ! 1099: #endif /* NOSERVER */ ! 1100: ! 1101: #ifdef UNIX ! 1102: #ifndef NOJC ! 1103: case XYSUSP: /* SET SUSPEND */ ! 1104: seton(&suspend); /* on or off... */ ! 1105: return(success = 1); ! 1106: #endif /* NOJC */ ! 1107: #endif /* UNIX */ ! 1108: ! 1109: case XYTAKE: /* SET TAKE */ ! 1110: if ((y = cmkey(taktab,4,"","",xxstring)) < 0) return(y); ! 1111: switch (y) { ! 1112: case 0: return(success = seton(&techo)); ! 1113: case 1: return(success = seton(&terror)); ! 1114: case 2: techo = 0; return(success = 1); /* For compatibility with */ ! 1115: case 3: techo = 1; return(success = 1); /* MS-DOS Kermit */ ! 1116: default: return(-2); ! 1117: } ! 1118: ! 1119: #ifndef NOSCRIPT ! 1120: case XYSCRI: /* SET SCRIPT */ ! 1121: if ((y = cmkey(scrtab,1,"","echo",xxstring)) < 0) return(y); ! 1122: switch (y) { ! 1123: case 0: return(success = seton(&secho)); ! 1124: default: return(-2); ! 1125: } ! 1126: #endif /* NOSCRIPT */ ! 1127: ! 1128: default: ! 1129: break; ! 1130: } ! 1131: ! 1132: switch (xx) { ! 1133: case XYTERM: /* SET TERMINAL */ ! 1134: return(settrm()); ! 1135: ! 1136: default: ! 1137: break; ! 1138: } ! 1139: ! 1140: switch (xx) { ! 1141: ! 1142: /* SET SEND/RECEIVE protocol parameters. */ ! 1143: ! 1144: case XYRECV: ! 1145: case XYSEND: ! 1146: return(setsr(xx,rmsflg)); ! 1147: ! 1148: #ifdef UNIX ! 1149: case XYSESS: /* SESSION-LOG */ ! 1150: if ((x = cmkey(fttab,2,"type of file","text",xxstring)) < 0) ! 1151: return(x); ! 1152: if ((y = cmcfm()) < 0) return(y); ! 1153: sessft = x; ! 1154: return(success = 1); ! 1155: #endif /* UNIX */ ! 1156: ! 1157: case XYSPEE: /* SET SPEED */ ! 1158: if (network) { ! 1159: printf("\n?Speed cannot be set for network connections\n"); ! 1160: return(success = 0); ! 1161: } ! 1162: lp = line; ! 1163: sprintf(lp,"Transmission rate for %s in bits per second",ttname); ! 1164: ! 1165: if ((x = cmkey(spdtab,nspd,line,"",xxstring)) < 0) { ! 1166: if (x == -3) printf("?value required\n"); ! 1167: return(x); ! 1168: } ! 1169: if ((y = cmcfm()) < 0) return(y); ! 1170: if (!local) { ! 1171: printf("?Sorry, you must SET LINE first\n"); ! 1172: return(success = 0); ! 1173: } ! 1174: zz = (long) x * 10L; ! 1175: if (zz == 70) zz = 75; /* (see spdtab[] def) */ ! 1176: if (ttsspd(x) < 0) { /* Call ttsspd with cps, not bps! */ ! 1177: printf("?Unsupported line speed - %ld\n",zz); ! 1178: return(success = 0); ! 1179: } else { ! 1180: speed = zz; ! 1181: if (pflag && ! 1182: #ifndef NOSPL ! 1183: cmdlvl == 0 ! 1184: #else ! 1185: tlevel < 0 ! 1186: #endif /* NOSPL */ ! 1187: ) { ! 1188: if (speed == 8880) ! 1189: printf("%s, 75/1200 bps\n",ttname); ! 1190: else ! 1191: printf("%s, %ld bps\n",ttname,speed); ! 1192: } ! 1193: return(success = 1); ! 1194: } ! 1195: ! 1196: case XYXFER: /* SET TRANSFER */ ! 1197: if ((y = cmkey(tstab,nts,"","character-set",xxstring)) < 0) return(y); ! 1198: #ifndef NOCSETS ! 1199: if (y == 1) { /* character-set */ ! 1200: if ((y = cmkey(tcstab,ntcs,"","transparent",xxstring)) < 0) return(y); ! 1201: if ((x = cmcfm()) < 0) return(x); ! 1202: if (rmsflg) { ! 1203: sstate = setgen('S', "405", tcsinfo[y].designator, ""); ! 1204: return((int) sstate); ! 1205: } else { ! 1206: tslevel = (y == TC_TRANSP) ? 0 : 1; /* transfer syntax level */ ! 1207: tcharset = y; /* transfer character set */ ! 1208: return(success = 1); ! 1209: } ! 1210: } else ! 1211: #endif /* NOCSETS */ ! 1212: if (y == 2) { /* LOCKING-SHIFT options */ ! 1213: if ((y = cmkey(lstab,nls,"","on",xxstring)) < 0) ! 1214: return(y); ! 1215: if ((x = cmcfm()) < 0) return(x); ! 1216: lscapr = (y == 1) ? 1 : 0; /* ON: requested = 1 */ ! 1217: lscapu = (y == 2) ? 2 : 0; /* FORCED: used = 1 */ ! 1218: return(success = 1); ! 1219: } else return(-2); ! 1220: ! 1221: #ifndef NOXMIT ! 1222: case XYXMIT: /* SET TRANSMIT */ ! 1223: return(setxmit()); ! 1224: #endif /* NOXMIT */ ! 1225: ! 1226: #ifndef NOCSETS ! 1227: case XYUNCS: /* UNKNOWN-CHARACTER-SET */ ! 1228: if ((y = cmkey(ifdtab,2,"","discard",xxstring)) < 0) return(y); ! 1229: if ((x = cmcfm()) < 0) return(x); ! 1230: unkcs = y; ! 1231: return(success = 1); ! 1232: #endif /* NOCSETS */ ! 1233: ! 1234: #ifdef UNIX ! 1235: case XYWILD: /* WILDCARD-EXPANSION */ ! 1236: if ((y = cmkey(wildtab,2,"who expands wildcards","kermit",xxstring)) < 0) ! 1237: return(y); ! 1238: if ((x = cmcfm()) < 0) return(x); ! 1239: wildxpand = y; ! 1240: return(success = 1); ! 1241: #endif /* UNIX */ ! 1242: ! 1243: case XYWIND: /* WINDOW-SLOTS */ ! 1244: y = cmnum("Number of sliding-window slots, 1 to 31","1",10,&x,xxstring); ! 1245: y = setnum(&z,x,y,31); ! 1246: if (y < 0) return(y); ! 1247: if (z < 1) z = 1; ! 1248: #ifdef COMMENT ! 1249: /* This is unreasonable */ ! 1250: if (maxtry < z) { ! 1251: printf("?Window slots must be less than retry limit\n"); ! 1252: return(success = 0); ! 1253: } ! 1254: #endif /* COMMENT */ ! 1255: if (rmsflg) { /* Set remote window size */ ! 1256: tp = tmpbuf; ! 1257: sprintf(tp,"%d",z); ! 1258: sstate = setgen('S', "406", tp, ""); ! 1259: return((int) sstate); ! 1260: } ! 1261: wslotr = z; /* Set local window size */ ! 1262: swcapr = (wslotr > 1) ? 1 : 0; /* Set window bit in capas word? */ ! 1263: if (wslotr > 1) { /* Window size > 1? */ ! 1264: y = adjpkl(urpsiz,wslotr,bigrbsiz); /* Maybe adjust packet size */ ! 1265: if (y != urpsiz) { /* Did it change? */ ! 1266: urpsiz = y; ! 1267: if (msgflg) ! 1268: printf( ! 1269: " Adjusting receive packet-length to %d for %d window slots\n", ! 1270: urpsiz, wslotr); ! 1271: } ! 1272: } ! 1273: return(success = 1); ! 1274: ! 1275: default: ! 1276: if ((x = cmcfm()) < 0) return(x); ! 1277: printf("Not working yet - %s\n",cmdbuf); ! 1278: return(success = 0); ! 1279: } ! 1280: } ! 1281: #endif /* NOICP */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.