File Manager

003 File Manager

Current Path: /usr/src/contrib/tcsh

📁 ..
📄 FAQ(12.47 KB)
📄 FREEBSD-Xlist(107 B)
📄 FREEBSD-upgrade(312 B)
📄 Fixes(94.98 KB)
📄 Imakefile(13.63 KB)
📄 MAKEDIFFS(928 B)
📄 MAKESHAR(2.08 KB)
📄 Makefile.in(22.77 KB)
📄 Makefile.std(19.75 KB)
📄 Makefile.vms(18.47 KB)
📄 NewThings(6.37 KB)
📄 Ported(23.67 KB)
📄 README.md(664 B)
📄 WishList(10.86 KB)
📄 Y2K(555 B)
📄 complete.tcsh(53.67 KB)
📁 config
📄 config.guess(42.41 KB)
📄 config.h.in(7.43 KB)
📄 config.rpath(14.52 KB)
📄 config.sub(34.69 KB)
📄 config_f.h(5.45 KB)
📄 configure(224.09 KB)
📄 csh-mode.el(29.15 KB)
📄 dotlock.c(4.47 KB)
📄 dotlock.h(1.55 KB)
📄 ed.chared.c(74.68 KB)
📄 ed.decls.h(9.6 KB)
📄 ed.defns.c(50.56 KB)
📄 ed.h(9.09 KB)
📄 ed.init.c(19.51 KB)
📄 ed.inputl.c(22.96 KB)
📄 ed.refresh.c(33.56 KB)
📄 ed.screen.c(39.44 KB)
📄 ed.term.c(26.61 KB)
📄 ed.term.h(11.71 KB)
📄 ed.xmap.c(17.13 KB)
📄 eight-bit.me(4.31 KB)
📄 gethost.c(9.03 KB)
📄 glob.3(11.14 KB)
📄 glob.c(19.62 KB)
📄 glob.h(4.1 KB)
📄 host.defs(30.42 KB)
📄 imake.config(2 KB)
📄 install-sh(13.34 KB)
📄 ma.setp.c(13.76 KB)
📄 mi.termios.c(10.85 KB)
📄 mi.varargs.h(306 B)
📄 mi.wait.h(1.41 KB)
📁 nls
📄 patchlevel.h(215 B)
📄 pathnames.h(5.08 KB)
📄 sh.c(61.95 KB)
📄 sh.char.c(41.56 KB)
📄 sh.char.h(12.01 KB)
📄 sh.decls.h(14.66 KB)
📄 sh.dir.c(32.37 KB)
📄 sh.dir.h(2.3 KB)
📄 sh.dol.c(23.6 KB)
📄 sh.err.c(19.62 KB)
📄 sh.exec.c(28.26 KB)
📄 sh.exp.c(21.67 KB)
📄 sh.file.c(18.11 KB)
📄 sh.func.c(58.03 KB)
📄 sh.glob.c(20.96 KB)
📄 sh.h(37.71 KB)
📄 sh.hist.c(37.78 KB)
📄 sh.init.c(27.5 KB)
📄 sh.lex.c(37.45 KB)
📄 sh.misc.c(12.35 KB)
📄 sh.parse.c(13.14 KB)
📄 sh.print.c(6.37 KB)
📄 sh.proc.c(50.09 KB)
📄 sh.proc.h(5.16 KB)
📄 sh.sem.c(25.39 KB)
📄 sh.set.c(28.51 KB)
📄 sh.time.c(18.67 KB)
📄 sh.types.h(8.1 KB)
📄 snames.h(2.68 KB)
📄 src.desc(2.89 KB)
📄 svn(743 B)
📄 tc.alloc.c(17.09 KB)
📄 tc.bind.c(12.03 KB)
📄 tc.const.c(24.16 KB)
📄 tc.decls.h(10.49 KB)
📄 tc.disc.c(5.09 KB)
📄 tc.func.c(49.15 KB)
📄 tc.h(2.64 KB)
📄 tc.nls.c(4.29 KB)
📄 tc.nls.h(2.18 KB)
📄 tc.os.c(36.71 KB)
📄 tc.os.h(15.6 KB)
📄 tc.printf.c(9.99 KB)
📄 tc.prompt.c(16.47 KB)
📄 tc.sched.c(6.76 KB)
📄 tc.sig.c(3.53 KB)
📄 tc.sig.h(5.53 KB)
📄 tc.str.c(14.67 KB)
📄 tc.vers.c(4.29 KB)
📄 tc.wait.h(4.63 KB)
📄 tc.who.c(16.47 KB)
📄 tcsh.man(202.17 KB)
📄 tcsh.man.new(199.97 KB)
📄 tcsh.man2html(21.72 KB)
📄 termcap.vms(1.53 KB)
📄 tw.color.c(12.45 KB)
📄 tw.comp.c(14.38 KB)
📄 tw.decls.h(4.84 KB)
📄 tw.h(3.26 KB)
📄 tw.help.c(5.85 KB)
📄 tw.init.c(22.13 KB)
📄 tw.parse.c(56.96 KB)
📄 tw.spell.c(5.04 KB)
📄 vms.termcap.c(8.07 KB)

Editing: gethost.c

/*
 * gethost.c: Create version file from prototype
 */
/*-
 * Copyright (c) 1980, 1991 The Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */
#include "sh.h"

#ifdef SCO
# define perror __perror
# define rename __rename
# define getopt __getopt
# define system __system
#endif
#include <stdio.h>
#ifdef SCO
# undef perror
# undef rename
# undef getopt
# undef system
#endif

#include <ctype.h>

#define ISSPACE(p)	(isspace((unsigned char) (p)) && (p) != '\n')

/* 
 * We cannot do that, because some compilers like #line and others
 * like # <lineno>
 * #define LINEDIRECTIVE 
 */

static const char *keyword[] =
{
    "vendor",
#define T_VENDOR	0
    "hosttype",
#define T_HOSTTYPE	1
    "machtype",
#define T_MACHTYPE	2
    "ostype",
#define T_OSTYPE	3
    "newdef",
#define T_NEWDEF	4
    "enddef",
#define T_ENDDEF	5
    "newcode",
#define T_NEWCODE	6
    "endcode",
#define T_ENDCODE	7
    "comment",
#define T_COMMENT	8
    "macro",
#define T_MACRO		9
    NULL
#define T_NONE		10
};

#define S_DISCARD	0
#define S_COMMENT	1
#define S_CODE		2
#define S_KEYWORD	3

static int findtoken (char *);
static char *gettoken (char **, char  *);
static char *pname;

int main (int, char *[]);

/* findtoken():
 *	Return the token number of the given token
 */
static int
findtoken(char *ptr)
{
    int i;

if (ptr == NULL || *ptr == '\0')
	return T_NONE;

for (i = 0; keyword[i] != NULL; i++)
	if (strcmp(keyword[i], ptr) == 0)
	    return i;

return T_NONE;
}

/* gettoken():
 *	Get : delimited token and remove leading/trailing blanks/newlines
 */
static char *
gettoken(char **pptr, char *token)
{
    char *ptr = *pptr;
    char *tok = token;

for (; *ptr && ISSPACE(*ptr); ptr++)
	continue;

for (; *ptr && *ptr != ':'; *tok++ = *ptr++)
	continue;

if (*ptr == ':')
	ptr++;
    else
	tok--;

for (tok--; tok >= token && *tok && ISSPACE(*tok); tok--)
	continue;

*++tok = '\0';

*pptr = ptr;
    return token;
}

static char *
cat(const char *a, const char *b, size_t len)
{
	size_t l;
	char *r;

if (len == 0)
		len = strlen(b) + 1;
	if (a)
	    l = strlen(a) + len;
	else
	    l = len;
	if ((r = malloc(l)) == NULL)
		abort();
	if (a)
	    snprintf(r, l, "%s%.*s", a, (int)len, b);
	else
	    snprintf(r, l, "%.*s", (int)len, b);
	return r;
}

static const char *
explode(const char *defs)
{
	static const char def[] = "defined("; /* ) */
	static char *buf;
	size_t len;
	const char *ptr, *bptr, *eptr = NULL, *name;

if (strstr(defs, "#machine(" /* ) */))
		return defs;
	if (!strstr(defs, def))
		return defs;

free(buf);
	buf = NULL;
	for (ptr = defs; (bptr = strstr(ptr, def)) != NULL; ptr = eptr + 1) {
		if (ptr != bptr)
			buf = cat(buf, ptr, bptr - ptr + 1);
		buf = cat(buf, "(", 0); /* ) */
		if ((eptr = strchr(ptr + sizeof(def) - 1, ')')) == NULL) {
			(void) fprintf(stderr, "%s: missing close paren `%s'\n",
			    pname, defs);
			free(buf);
			return defs;
		}
		buf = cat(buf, bptr, eptr - bptr + 1);
		name = bptr + sizeof(def) - 1;
		len = eptr - name;
		if (len < 1) {
			(void) fprintf(stderr, "%s: empty define `%s'\n",
			    pname, defs);
			free(buf);
			return defs;
		}
		if (*name != '_' && (*name != 'M' && name[1] != '_')) {
			char *undername = malloc(len + 10);
			if (undername == NULL)
				abort();
			buf = cat(buf, ") || defined(", 0);
			snprintf(undername, len + 10, "__%.*s__)", (int)len,
			    name);
			buf = cat(buf, undername, len + 5);
			buf = cat(buf, ") || defined(", 0);
			snprintf(undername, len + 10, "__%.*s)", (int)len,
			    name);
			buf = cat(buf, undername, len + 3);
		}
		buf = cat(buf, "))", 0);
	}
	if (!eptr) {
	    (void) fprintf(stderr, "%s: invalid input `%s'\n", pname, defs);
	    return defs;
        }
	buf = cat(buf, eptr + 1, 0);
	return buf;
}

int
main(int argc, char *argv[])
{
    char line[INBUFSIZE];
    const char *fname = "stdin";
    char *ptr, *tok;
    char defs[INBUFSIZE];
    char stmt[INBUFSIZE];
    FILE *fp = stdin;
    int lineno = 0;
    int inprocess = 0;
    int token, state;
    int errs = 0;

if ((pname = strrchr(argv[0], '/')) == NULL)
	pname = argv[0];
    else
	pname++;

if (argc > 2) {
	(void) fprintf(stderr, "Usage: %s [<filename>]\n", pname);
	return 1;
    }

if (argc == 2)
	if ((fp = fopen(fname = argv[1], "r")) == NULL) {
	    (void) fprintf(stderr, "%s: Cannot open `%s'\n", pname, fname);
	    return 1;
	}

state = S_DISCARD;

while ((ptr = fgets(line, sizeof(line), fp)) != NULL) {
	lineno++;
	switch (token = findtoken(gettoken(&ptr, defs))) {
	case T_NEWCODE:
	    state = S_CODE;
	    break;

case T_ENDCODE:
	    state = S_DISCARD;
	    break;

case T_COMMENT:
	    state = S_COMMENT;
	    break;

case T_NEWDEF:
	    state = S_KEYWORD;
	    break;

case T_ENDDEF:
	    state = S_DISCARD;
	    break;

case T_VENDOR:
	    state = S_KEYWORD;
	    break;

case T_HOSTTYPE:
	    state = S_KEYWORD;
	    break;

case T_MACHTYPE:
	    state = S_KEYWORD;
	    break;

case T_OSTYPE:
	    state = S_KEYWORD;
	    break;

case T_MACRO:
	    if (gettoken(&ptr, defs) == NULL) {
		(void) fprintf(stderr, "%s: \"%s\", %d: Missing macro name\n",
			       pname, fname, lineno);
		break;
	    }
	    if (gettoken(&ptr, stmt) == NULL) {
		(void) fprintf(stderr, "%s: \"%s\", %d: Missing macro body\n",
			       pname, fname, lineno);
		break;
	    }
	    (void) fprintf(stdout, "\n#if %s\n# define %s\n#endif\n\n",
		explode(stmt), defs);
	    break;

case T_NONE:
	    if (state != S_CODE && *defs != '\0') {
		(void) fprintf(stderr, "%s: \"%s\", %d: Discarded\n",
			       pname, fname, lineno);
		if (++errs == 30) {
		    (void) fprintf(stderr, "%s: Too many errors\n", pname);
		    return 1;
		}
		break;
	    }
	    (void) fprintf(stdout, "%s", line);
	    break;

default:
	    (void) fprintf(stderr, "%s: \"%s\", %d: Unexpected token\n",
			   pname, fname, lineno);
	    return 1;
	}

switch (state) {
	case S_DISCARD:
	    if (inprocess) {
		inprocess = 0;
		(void) fprintf(stdout, "#endif\n");
	    }
	    break;

case S_KEYWORD:
	    tok = gettoken(&ptr, defs);
	    if (token == T_NEWDEF) {
		if (inprocess) {
		    (void) fprintf(stderr, "%s: \"%s\", %d: Missing enddef\n",
				   pname, fname, lineno);
		    return 1;
		}
		if (tok == NULL) {
		    (void) fprintf(stderr, "%s: \"%s\", %d: No defs\n",
				   pname, fname, lineno);
		    return 1;
		}
		(void) fprintf(stdout, "\n\n");
#ifdef LINEDIRECTIVE
		(void) fprintf(stdout, "# %d \"%s\"\n", lineno + 1, fname);
#endif /* LINEDIRECTIVE */
		(void) fprintf(stdout, "#if (%s)\n", explode(defs));
		inprocess = 1;
	    }
	    else {
		if (tok && *tok)
		    (void) fprintf(stdout, "# if (%s) && !defined(_%s_)\n",
				   explode(defs), keyword[token]);
		else
		    (void) fprintf(stdout, "# if !defined(_%s_)\n", 
				   keyword[token]);

if (gettoken(&ptr, stmt) == NULL) {
		    (void) fprintf(stderr, "%s: \"%s\", %d: No statement\n",
				   pname, fname, lineno);
		    return 1;
		}
		(void) fprintf(stdout, "# define _%s_\n", keyword[token]);
		(void) fprintf(stdout, "    %s = %s;\n", keyword[token], stmt);
		(void) fprintf(stdout, "# endif\n");
	    }
	    break;

case S_COMMENT:
	    if (gettoken(&ptr, defs))
		(void) fprintf(stdout, "    /* %s */\n", defs);
	    break;

case S_CODE:
	    if (token == T_NEWCODE) {
#ifdef LINEDIRECTIVE
		(void) fprintf(stdout, "# %d \"%s\"\n", lineno + 1, fname);
#endif /* LINEDIRECTIVE */
	    }
	    break;

default:
	    (void) fprintf(stderr, "%s: \"%s\", %d: Unexpected state\n",
			   pname, fname, lineno);
	    return 1;
	}
    }

if (inprocess) {
	(void) fprintf(stderr, "%s: \"%s\", %d: Missing enddef\n",
		       pname, fname, lineno);
	return 1;
    }

if (fp != stdin)
	(void) fclose(fp);

return 0;
}

003 File Manager

Editing: gethost.c

Upload File

Create Folder