ckuus5.c

早期freebsd实现

	    free(tfnam[tlevel]);
	    tfnam[tlevel] = NULL;
	}
	fclose(tfile[tlevel--]);
    }
    if (tlevel == -1) {			/* And if back at top level */
	conint(trap,stptrap);		/* check and set interrupts */
        bgchk();			/* and background status */
        concb((char)escape);		/* and go back into cbreak mode. */
    }
    return(tlevel + 1);
}
#endif /* NOSPL */

/* STOP - get back to C-Kermit prompt, no matter where from. */

int
dostop() {
    while ( popclvl() )  ;	/* Pop all macros & take files */
#ifndef NOSPL
    while (cmpop() > -1) ;	/* And all recursive cmd pkg invocations */
#endif /* NOSPL */
    cmini(ckxech);		/* Clear the command buffer. */
    return(0);
}


/* Close the given log */

int
doclslog(x) int x; {
    int y;
    switch (x) {
#ifdef DEBUG
	case LOGD:
	    if (deblog == 0) {
		printf("?Debugging log wasn't open\n");
		return(0);
	    }
	    *debfil = '\0';
	    deblog = 0;
	    return(zclose(ZDFILE));
#endif /* DEBUG */

	case LOGP:
	    if (pktlog == 0) {
		printf("?Packet log wasn't open\n");
		return(0);
	    }
	    *pktfil = '\0';
	    pktlog = 0;
	    return(zclose(ZPFILE));
 
	case LOGS:
	    if (seslog == 0) {
		printf("?Session log wasn't open\n");
		return(0);
	    }
	    *sesfil = '\0';
	    seslog = 0;
	    return(zclose(ZSFILE));
 
#ifdef TLOG
    	case LOGT:
	    if (tralog == 0) {
		printf("?Transaction log wasn't open\n");
		return(0);
	    }
	    *trafil = '\0';
	    tralog = 0;
	    return(zclose(ZTFILE));
#endif /* TLOG */
 
#ifndef NOSPL
          case LOGW:			/* WRITE file */
	  case LOGR:			/* READ file */
	    y = (x == LOGR) ? ZRFILE : ZWFILE;
	    if (chkfn(y) < 1)		/* If no file to close */
	      return(1);		/* succeed silently. */
	    return(zclose(y));		/* Otherwise, close the file. */
#endif /* NOSPL */

	default:
	    printf("\n?Unexpected log designator - %ld\n", x);
	    return(0);
	}
}

#ifndef NOSERVER
#ifndef NOFRILLS
static char *nm[] = { "disabled", "enabled" };
#endif /* NOFRILLS */
#endif /* NOSERVER */

static int slc = 0;			/* Screen line count */

#ifndef NOSHOW
#ifndef NOFRILLS
#define xxdiff(v,sys) strncmp(v,sys,strlen(sys))
VOID
shover() {
    printf("\nVersions:\n %s\n Numeric: %ld",versio,vernum);
    if (verwho) printf("-%d",verwho);
    printf(xxdiff(ckxv,ckxsys) ? "\n %s for%s\n" : "\n %s\n",ckxv,ckxsys);
    printf(xxdiff(ckzv,ckzsys) ? " %s for%s\n" : " %s\n",ckzv,ckzsys);
    printf(" %s\n",protv);
    printf(" %s\n",fnsv);
    printf(" %s\n %s\n",cmdv,userv);
#ifndef NOCSETS
    printf(" %s\n",xlav);
#endif /* NOCSETS */
#ifndef MAC
    printf(" %s\n",connv);
#endif /* MAC */
#ifndef NODIAL
    printf(" %s\n",dialv);
#endif /* NODIAL */
#ifndef NOSCRIPT
    printf(" %s\n",loginv);
#endif /* NOSCRIPT */
#ifdef NETCONN
    printf(" %s\n",cknetv);
#endif /* NETCONN */
    printf("\n");
}

VOID
shofea() {
#ifdef OS2
#ifdef M_I286
    printf("\nOS/2 16-bit.\n");
#else
    printf("\nOS/2 32-bit.\n");
#endif /* M_I286 */
#endif /* OS2 */
    printf("\nSpecial features:\n");
#ifdef NETCONN
    printf(" Network support (type SHOW NET for further info)\n");
#endif /* NETCONN */
#ifndef NOCSETS
    printf(" Latin-1 (West European) character-set translation\n");
#ifdef LATIN2
    printf(" Latin-2 (East European) character-set translation\n");
#endif /* LATIN2 */
#ifdef CYRILLIC
    printf(" Cyrillic (Russian, Ukrainian, etc) character-set translation\n");
#endif /* CYRILLIC */
#ifdef KANJI
    printf(" Kanji (Japanese) character-set translation\n");
#endif /* KANJI */
#endif /* NOCSETS */

#ifdef CK_CURSES
    printf(" Fullscreen file transfer display\n");
#endif /* CK_CURSES */

    printf("\nFeatures not included:\n");
#ifndef CK_CURSES
#ifndef MAC
    printf(" No fullscreen file transfer display\n");
#endif /* MAC */
#endif /* CK_CURSES */
#ifdef NOSERVER
    printf(" No server mode\n");
#endif /* NOSERVER */
#ifdef NODEBUG
    printf(" No debugging\n");
#endif /* NODEBUG */
#ifdef NOTLOG
    printf(" No transaction log\n");
#endif /* NOTLOG */
#ifdef NOHELP
    printf(" No built-in help\n");
#endif /* NOHELP */
#ifndef NETCONN
    printf(" No network support\n");
#endif /* NETCONN */
#ifdef NOMSEND
    printf(" No MSEND command\n");
#endif /* NOMSEND */
#ifdef NODIAL
    printf(" No DIAL command\n");
#else
#ifdef MINIDIAL
    printf(" DIAL command for modems other than Hayes, CCITT, and Unknown\n");
#endif /* MINIDIAL */
#endif /* NODIAL */
#ifdef NOXMIT
    printf(" No TRANSMIT command\n");
#endif /* NOXMIT */
#ifdef NOSCRIPT
    printf(" No SCRIPT command\n");
#endif /* NOSCRIPT */
#ifdef NOSPL
    printf(" No script programming features\n");
#endif /* NOSPL */
#ifdef NOCSETS
    printf(" No character-set translation\n");
#else
#ifndef LATIN2
    printf(" No Latin-2 character-set translation\n");
#endif /* LATIN2 */
#ifdef NOCYRIL
    printf(" No Cyrillic character-set translation\n");
#endif /* NOCYRIL */
#ifndef KANJI
    printf(" No Kanji character-set translation\n");
#endif /* KANJI */
#endif /* NOCSETS */
#ifdef NOCMDL
    printf(" No command-line arguments\n");
#endif /* NOCMDL */
#ifdef NOFRILLS
    printf(" No frills\n");
#endif /* NOFRILLS */
#ifdef NOPUSH
    printf(" No escape to system\n");
#endif /* NOPUSH */
#ifdef NOJC
#ifdef UNIX
    printf(" No UNIX job control\n");
#endif /* UNIX */
#endif /* NOJC */
#ifdef NOSETKEY
    printf(" No SET KEY command\n");
#endif /* NOSETKEY */
#ifdef NOESCSEQ
    printf(" No ANSI escape sequence recognition\n");
#endif /* NOESCSEQ */
#ifndef PARSENSE
    printf(" No automatic parity detection\n");
#endif /* PARSENSE */
/*
  Print all of Kermit's compile-time options, as well as C preprocessor
  predefined symbols that might affect us...
*/
    printf("\nCompiler options:\n");
#ifdef DEBUG
#ifdef IFDEBUG
    prtopt(" IFDEBUG");
#else
    prtopt(" DEBUG");
#endif /* IFDEBUG */
#endif /* DEBUG */
#ifdef TLOG
    prtopt(" TLOG");
#endif /* TLOG */
#ifdef NODIAL
    prtopt(" NODIAL");
#endif /* NODIAL */
#ifdef MINIDIAL
    prtopt(" MINIDIAL");
#endif /* MINIDIAL */
#ifdef DYNAMIC
    prtopt(" DYNAMIC");
#endif /* IFDEBUG */
#ifndef NOSPL
    sprintf(line," CMDDEP=%d",CMDDEP);
    prtopt(line);
#endif /* NOSPL */
#ifdef UNIX
    prtopt(" UNIX");
#endif /* UNIX */
#ifdef VMS
    prtopt(" VMS");
#endif /* VMS */
#ifdef vms
    prtopt(" vms");
#endif /* vms */
#ifdef VMSSHARE
    prtopt(" VMSSHARE");
#endif /* VMSSHARE */
#ifdef datageneral
    prtopt(" datageneral");
#endif /* datageneral */
#ifdef apollo
    prtopt(" apollo");
#endif /* apollo */
#ifdef aegis
    prtopt(" aegis");
#endif /* aegis */
#ifdef A986
    prtopt(" A986");
#endif /* A986 */
#ifdef AMIGA
    prtopt(" AMIGA");
#endif /* AMIGA */
#ifdef CONVEX9
    prtopt(" CONVEX9");
#endif /* CONVEX9 */
#ifdef MAC
    prtopt(" MAC");
#endif /* MAC */
#ifdef AUX
    prtopt(" AUX");
#endif /* AUX */
#ifdef OS2
    prtopt(" OS2");
#endif /* OS2 */
#ifdef OS9
    prtopt(" OS9");
#endif /* OS9 */
#ifdef MSDOS
    prtopt(" MSDOS");
#endif /* MSDOS */
#ifdef DIRENT
    prtopt(" DIRENT");
#endif /* DIRENT */
#ifdef SDIRENT
    prtopt(" SDIRENT");
#endif /* SDIRENT */
#ifdef NDIR
    prtopt(" NDIR");
#endif /* NDIR */
#ifdef XNDIR
    prtopt(" XNDIR");
#endif /* XNDIR */
#ifdef MATCHDOT
    prtopt(" MATCHDOT");
#endif /* MATCHDOT */
#ifdef SAVEDUID
    prtopt(" SAVEDUID");
#endif /* SAVEDUID */
#ifdef NOCCTRAP
    prtopt(" NOCCTRAP");
#endif /* NOCCTRAP */
#ifdef SUNX25
    prtopt(" SUNX25");
#endif /* SUNX25 */
#ifdef DECNET
    prtopt(" DECNET");
#endif /* DECNET */
#ifdef ATT7300
    prtopt(" ATT7300");
#endif /* ATT7300 */
#ifdef ATT6300
    prtopt(" ATT6300");
#endif /* ATT6300 */
#ifdef HDBUUCP
    prtopt(" HDBUUCP");
#endif /* HDBUUCP */
#ifdef NOUUCP
    prtopt(" NOUUCP");
#endif /* NOUUCP */
#ifdef LONGFN
    prtopt(" LONGFN");
#endif /* LONGFN */
#ifdef RDCHK
    prtopt(" RDCHK");
#endif /* RDCHK */
#ifdef NAP
    prtopt(" NAP");
#endif /* NAP */
#ifdef NAPHACK
    prtopt(" NAPHACK");
#endif /* NAPHACK */
#ifdef NOIEXTEN
    prtopt(" NOIEXTEN");
#endif /* NOIEXTEN */
#ifdef EXCELAN
    prtopt(" EXCELAN");
#endif /* EXCELAN */
#ifdef PARAMH
    prtopt(" PARAMH");
#endif /* PARAMH */
#ifdef INTERLAN
    prtopt(" INTERLAN");
#endif /* INTERLAN */
#ifdef NOFILEH
    prtopt(" NOFILEH");
#endif /* NOFILEH */
#ifdef NOSYSIOCTLH
    prtopt(" NOSYSIOCTLH");
#endif /* NOSYSIOCTLH */
#ifdef DCLPOPEN
    prtopt(" DCLPOPEN");
#endif /* DCLPOPEN */
#ifdef NOSETBUF
    prtopt(" NOSETBUF");
#endif /* NOSETBUF */
#ifdef NOFDZERO
    prtopt(" NOFDZERO");
#endif /* NOFDZERO */
#ifdef NOPOPEN
    prtopt(" NOPOPEN");
#endif /* NOPOPEN */
#ifdef NOPARTIAL
    prtopt(" NOPARTIAL");
#endif /* NOPARTIAL */
#ifdef NOSETREU
    prtopt(" NOSETREU");
#endif /* NOSETREU */
#ifdef _POSIX_SOURCE
    prtopt(" _POSIX_SOURCE");
#endif /* _POSIX_SOURCE */
#ifdef LCKDIR
    prtopt(" LCKDIR");
#endif /* LCKDIR */
#ifdef ACUCNTRL
    prtopt(" ACUCNTRL");
#endif /* ACUCNTRL */
#ifdef BSD4
    prtopt(" BSD4");
#endif /* BSD4 */
#ifdef BSD44
    prtopt(" BSD44");
#endif /* BSD44 */
#ifdef BSD41
    prtopt(" BSD41");
#endif /* BSD41 */
#ifdef BSD43
    prtopt(" BSD43");
#endif /* BSD43 */
#ifdef BSD29
    prtopt(" BSD29");
#endif /* BSD29 */
#ifdef V7
    prtopt(" V7");
#endif /* V7 */
#ifdef AIX370
    prtopt(" AIX370");
#endif /* AIX370 */
#ifdef RTAIX
    prtopt(" RTAIX");
#endif /* RTAIX */
#ifdef HPUX
    prtopt(" HPUX");
#endif /* HPUX */
#ifdef HPUXPRE65
    prtopt(" HPUXPRE65");
#endif /* HPUXPRE65 */
#ifdef DGUX
    prtopt(" DGUX");
#endif /* DGUX */
#ifdef DGUX430
    prtopt(" DGUX430");
#endif /* DGUX430 */
#ifdef DGUX540
    prtopt(" DGUX540");
#endif /* DGUX540 */
#ifdef sony_news
    prtopt(" sony_news");
#endif /* sony_news */
#ifdef CIE
    prtopt(" CIE");
#endif /* CIE */
#ifdef XENIX
    prtopt(" XENIX");
#endif /* XENIX */
#ifdef SCO_XENIX
    prtopt(" SCO_XENIX");
#endif /* SCO_XENIX */
#ifdef ISIII
    prtopt(" ISIII");
#endif /* ISIII */
#ifdef I386IX
    prtopt(" I386IX");
#endif /* I386IX */
#ifdef RTU
    prtopt(" RTU");
#endif /* RTU */
#ifdef PROVX1
    prtopt(" PROVX1");
#endif /* PROVX1 */
#ifdef TOWER1
    prtopt(" TOWER1");
#endif /* TOWER1 */
#ifdef UTEK
    prtopt(" UTEK");
#endif /* UTEK */
#ifdef ZILOG
    prtopt(" ZILOG");
#endif /* ZILOG */
#ifdef TRS16
    prtopt(" TRS16");
#endif /* TRS16 */
#ifdef MINIX
    prtopt(" MINIX");
#endif /* MINIX */
#ifdef C70
    prtopt(" C70");
#endif /* C70 */
#ifdef AIXPS2
    prtopt(" AIXPS2");
#endif /* AIXPS2 */
#ifdef AIXRS
    prtopt(" AIXRS");
#endif /* AIXRS */
#ifdef UTSV
    prtopt(" UTSV");
#endif /* UTSV */
#ifdef ATTSV
    prtopt(" ATTSV");
#endif /* ATTSV */
#ifdef SVR3
    prtopt(" SVR3");