/* $NetBSD: getpar.c,v 1.18 2009/08/12 08:54:54 dholland Exp $ */ /* * Copyright (c) 1980, 1993 * 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 <sys/cdefs.h> #ifndef lint #if 0 static char sccsid[] = "@(#)getpar.c 8.1 (Berkeley) 5/31/93"; #else __RCSID("$NetBSD: getpar.c,v 1.18 2009/08/12 08:54:54 dholland Exp $"); #endif #endif /* not lint */ #include <stdio.h> #include <stdlib.h> #include <string.h> #include "getpar.h" #include "trek.h" static int testterm(void); /** ** get integer parameter **/ int getintpar(const char *s) { int i; int n; while (1) { if (testnl() && s) printf("%s: ", s); i = scanf("%d", &n); if (i < 0) exit(1); if (i > 0 && testterm()) return (n); printf("invalid input; please enter an integer\n"); skiptonl(0); } } /** ** get floating parameter **/ double getfltpar(const char *s) { int i; double d; while (1) { if (testnl() && s) printf("%s: ", s); i = scanf("%lf", &d); if (i < 0) exit(1); if (i > 0 && testterm()) return (d); printf("invalid input; please enter a double\n"); skiptonl(0); } } /** ** get yes/no parameter **/ static const struct cvntab Yntab[] = { { "y", "es", (cmdfun)1, 1 }, { "n", "o", (cmdfun)0, 0 }, { NULL, NULL, NULL, 0 } }; int getynpar(const char *s) { const struct cvntab *r; r = getcodpar(s, Yntab); return r->value2; } /** ** get coded parameter **/ const struct cvntab * getcodpar(const char *s, const struct cvntab tab[]) { char input[100]; const struct cvntab *r; int flag; const char *p, *q; int c; int f; flag = 0; while (1) { flag |= (f = testnl()); if (flag) printf("%s: ", s); if (f) { /* throw out the newline */ getchar(); } scanf("%*[ \t;]"); if ((c = scanf("%99[^ \t;\n]", input)) < 0) exit(1); if (c == 0) continue; flag = 1; /* if command list, print four per line */ if (input[0] == '?' && input[1] == 0) { c = 4; for (r = tab; r->abbrev; r++) { strcpy(input, r->abbrev); strcat(input, r->full); printf("%14.14s", input); if (--c > 0) continue; c = 4; printf("\n"); } if (c != 4) printf("\n"); continue; } /* search for in table */ for (r = tab; r->abbrev; r++) { p = input; for (q = r->abbrev; *q; q++) if (*p++ != *q) break; if (!*q) { for (q = r->full; *p && *q; q++, p++) if (*p != *q) break; if (!*p || !*q) break; } } /* check for not found */ if (!r->abbrev) { printf("invalid input; ? for valid inputs\n"); skiptonl(0); } else return (r); } } /** ** get string parameter **/ void getstrpar(const char *s, char *r, int l, const char *t) { int i; char format[20]; int f; if (t == 0) t = " \t\n;"; (void)snprintf(format, sizeof(format), "%%%d[^%s]", l, t); while (1) { if ((f = testnl()) && s) printf("%s: ", s); if (f) getchar(); scanf("%*[\t ;]"); i = scanf(format, r); if (i < 0) exit(1); if (i != 0) return; } } /** ** test if newline is next valid character **/ int testnl(void) { int c; while ((c = getchar()) != '\n') { if (c == EOF) { exit(1); } if ((c >= '0' && c <= '9') || c == '.' || c == '!' || (c >= 'A' && c <= 'Z') || (c >= 'a' && c <= 'z') || c == '-') { ungetc(c, stdin); return(0); } } ungetc(c, stdin); return (1); } /** ** scan for newline **/ void skiptonl(int c) { while (c != '\n') { c = getchar(); if (c == EOF) { exit(1); } } ungetc('\n', stdin); return; } /** ** test for valid terminator **/ static int testterm(void) { int c; c = getchar(); if (c == EOF) { exit(1); } if (c == '.') return (0); if (c == '\n' || c == ';') ungetc(c, stdin); return (1); } /* ** TEST FOR SPECIFIED DELIMITER ** ** The standard input is scanned for the parameter. If found, ** it is thrown away and non-zero is returned. If not found, ** zero is returned. */ int readdelim(int d) { int c; while ((c = getchar()) != EOF) { if (c == d) return (1); if (c == ' ') continue; ungetc(c, stdin); return 0; } exit(1); }