/* * Copyright (c) 1980 Regents of the University of California. All rights * reserved. The Berkeley software License Agreement specifies the terms and * conditions for redistribution. */ #ifndef lint static char sccsid[] = "@(#)args.c 5.2 (Berkeley) 9/10/85"; #endif not lint /* * Argument scanning and profile reading code. Default parameters are set * here as well. */ #include "indent_globs.h" #include #include char * getenv(), *strchr(); /* profile types */ #define PRO_SPECIAL 1 #define PRO_BOOL 2 #define PRO_INT 3 /* profile specials for booleans */ #define ON 1 #define OFF 0 /* profile specials for specials */ #define IGN 1 #define CLI 2 #define STDIN 3 #define KEY 4 /* * N.B.: because of the way the table here is scanned, options whose names * are substrings of other options must occur later; that is, with -lp vs -l, * -lp must be first. Also, while (most) booleans occur more than once, the * last default value is the one actually assigned. */ struct pro { char *p_name; /* name, eg -bl, -cli */ int p_type; /* type (int, bool, special) */ int p_default; /* the default value (if int) */ int p_special; /* depends on type */ int *p_obj; /* the associated variable */ } pro[] = { "npro", PRO_SPECIAL, 0, IGN, 0, "lc", PRO_INT, 0, 0, &block_comment_max_col, "lp", PRO_BOOL, true, ON, &lineup_to_parens, "nlp", PRO_BOOL, true, OFF, &lineup_to_parens, "l", PRO_INT, 78, 0, &max_col, "psl", PRO_BOOL, true, ON, &procnames_start_line, "npsl", PRO_BOOL, true, OFF, &procnames_start_line, "fc1", PRO_BOOL, true, ON, &format_col1_comments, "nfc1", PRO_BOOL, true, OFF, &format_col1_comments, "pcs", PRO_BOOL, false, ON, &proc_calls_space, "npcs", PRO_BOOL, false, OFF, &proc_calls_space, "ip", PRO_BOOL, true, ON, &ps.indent_parameters, "nip", PRO_BOOL, true, OFF, &ps.indent_parameters, /* see set_defaults for initialization of -cli */ "cli", PRO_SPECIAL, 0, CLI, 0, "ci", PRO_INT, 0, 0, &continuation_indent, "cdb", PRO_BOOL, true, ON, &comment_delimiter_on_blankline, "ncdb", PRO_BOOL, true, OFF, &comment_delimiter_on_blankline, "i", PRO_INT, 8, 0, &ps.ind_size, "cd", PRO_INT, 0, 0, &ps.decl_com_ind, "ce", PRO_BOOL, true, ON, &cuddle_else, "nce", PRO_BOOL, true, OFF, &cuddle_else, "c", PRO_INT, 33, 0, &ps.com_ind, "v", PRO_BOOL, false, ON, &verbose, "nv", PRO_BOOL, false, OFF, &verbose, "dj", PRO_BOOL, false, ON, &ps.ljust_decl, "ndj", PRO_BOOL, false, OFF, &ps.ljust_decl, /* don't ask *me* why -bc/-nbc is backwards.... */ "bc", PRO_BOOL, true, OFF, &ps.leave_comma, "nbc", PRO_BOOL, true, ON, &ps.leave_comma, "di", PRO_INT, 16, 0, &ps.decl_indent, "d", PRO_INT, 0, 0, &ps.unindent_displace, "br", PRO_BOOL, true, ON, &btype_2, "bl", PRO_BOOL, true, OFF, &btype_2, "st", PRO_SPECIAL, 0, STDIN, 0, "ei", PRO_BOOL, true, ON, &ps.else_if, "nei", PRO_BOOL, true, OFF, &ps.else_if, "sc", PRO_BOOL, true, ON, &star_comment_cont, "nsc", PRO_BOOL, true, OFF, &star_comment_cont, "bap", PRO_BOOL, false, ON, &blanklines_after_procs, "nbap", PRO_BOOL, false, OFF, &blanklines_after_procs, "sob", PRO_BOOL, false, ON, &swallow_optional_blanklines, "nsob", PRO_BOOL, false, OFF, &swallow_optional_blanklines, "bad", PRO_BOOL, false, ON, &blanklines_after_declarations, "nbad", PRO_BOOL, false, OFF, &blanklines_after_declarations, "bbb", PRO_BOOL, false, ON, &blanklines_before_blockcomments, "nbbb", PRO_BOOL, false, OFF, &blanklines_before_blockcomments, "ps", PRO_BOOL, false, ON, &pointer_as_binop, "nps", PRO_BOOL, false, OFF, &pointer_as_binop, "troff", PRO_BOOL, false, ON, &troff, "T", PRO_SPECIAL, 0, KEY, 0, /* whew! */ 0, 0, 0, 0, 0 }; /* * set_profile reads $PATH/indent.pro and handles * arguments given in this file. */ set_profile() { register FILE *f; char fname[BUFSIZ]; char path[512]; /* hope this is a long enough path! */ char *p; static char pro[] = "indent.pro"; strcpy(path, getenv("PATH")); while (strlen(path) != 0) { /* get head element */ if ((p = strchr(path, ';')) != NULL) { *p = NULL; /* delimit first string */ p++; /* save positon of rest of string */ } /* make path to look in */ sprintf(fname, "%s\\%s", path, pro); sprintf(fname, "%s", path); /* check for trailing '\' by looking at the last element of the string */ if ((strncmp (&fname[strlen(fname) - 1], "\\", 1)) != 0) /* there is no trailing delimiter , add it */ strcat(fname, "\\"); /* add "profile.pro" */ strcat(fname, pro); /* move path to next element */ strcpy(path, p); /* look in directory */ if ((f = fopen(fname, "r")) != NULL) { scan_profile(f); (void) fclose(f); return (0); } } fprintf(stderr, "indent: indent.pro not found on path; using defaults\n"); } scan_profile(f) register FILE *f; { register char *p, *arg; char buf[BUFSIZ]; while (fgets(buf, sizeof buf, f)) { if ((p = strchr(buf, '\n')) != NULL) *p = 0; if (verbose) printf("profile: %s\n", buf); p = buf; for (;;) { while (isspace(*p)) p++; if (*p == 0) break; arg = p; while (*p) { if (isspace(*p)) { *p++ = 0; break; } p++; } set_option(arg); } } } char *param_start; eqin(s1, s2) register char *s1; register char *s2; { while (*s1) { if (*s1++ != *s2++) return (false); } param_start = s2; return (true); } /* * Set the defaults. */ set_defaults() { register struct pro *p; /* * Because ps.case_indent is a float, we can't initialize it from the * table: */ ps.case_indent = 0.0; /* -cli0.0 */ for (p = pro; p->p_name; p++) if (p->p_type != PRO_SPECIAL) *p->p_obj = p->p_default; } set_option(arg) register char *arg; { register struct pro *p; extern double atof(); arg++; /* ignore leading "-" */ for (p = pro; p->p_name; p++) if (*p->p_name == *arg && eqin(p->p_name, arg)) goto found; fprintf(stderr, "indent: unknown parameter \"%s\"\n", arg - 1); exit(1); found: switch (p->p_type) { case PRO_SPECIAL: switch (p->p_special) { case IGN: break; case CLI: if (*param_start == 0) goto need_param; ps.case_indent = atof(param_start); break; case STDIN: if (input == 0) input = stdin; if (output == 0) output = stdout; break; case KEY: if (*param_start == 0) goto need_param; addkey(param_start, 4); break; default: fprintf(stderr, "\ indent: set_option: internal error: p_special %d\n", p->p_special); exit(1); } break; case PRO_BOOL: if (p->p_special == OFF) *p->p_obj = false; else *p->p_obj = true; break; case PRO_INT: if (*param_start == 0) { need_param: fprintf(stderr, "indent: ``%s'' requires a parameter\n", arg - 1); exit(1); } *p->p_obj = atoi(param_start); break; default: fprintf(stderr, "indent: set_option: internal error: p_type %d\n", p->p_type); exit(1); } }