+++ /dev/null
-/*
- * Amanda, The Advanced Maryland Automatic Network Disk Archiver
- * Copyright (c) 1997-1998 University of Maryland at College Park
- * All Rights Reserved.
- *
- * Permission to use, copy, modify, distribute, and sell this software and its
- * documentation for any purpose is hereby granted without fee, provided that
- * the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation, and that the name of U.M. not be used in advertising or
- * publicity pertaining to distribution of the software without specific,
- * written prior permission. U.M. makes no representations about the
- * suitability of this software for any purpose. It is provided "as is"
- * without express or implied warranty.
- *
- * U.M. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL U.M.
- * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
- * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
- * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
- * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- *
- * Authors: the Amanda Development Team. Its members are listed in a
- * file named AUTHORS, in the root directory of this distribution.
- */
-/*
- * $Id: token.c,v 1.32 2006/07/19 17:41:15 martinea Exp $
- *
- * token bashing routines
- */
-
-/*
-** The quoting method used here was selected because it has the
-** property that quoting a string that doesn't contain funny
-** characters results in an unchanged string and it was easy to code.
-** There are probably other algorithms that are just as effective.
-**/
-
-#include "amanda.h"
-#include "arglist.h"
-#include "token.h"
-
-/* Split a string up into tokens.
-** There is exactly one separator character between tokens.
-** XXX Won't work too well if separator is '\'!
-**
-** Inspired by awk and a routine called splitter() that I snarfed from
-** the net ages ago (original author long forgotten).
-*/
-int
-split(
- char * str, /* String to split */
- char ** token, /* Array of token pointers */
- int toklen, /* Size of token[] */
- char * sep) /* Token separators - usually " " */
-{
- register char *pi, *po;
- register int fld;
- register size_t len;
- static char *buf = (char *)0; /* XXX - static buffer */
- int in_quotes;
-
- assert(str && token && toklen > 0 && sep);
-
- token[0] = str;
-
- for (fld = 1; fld < toklen; fld++) token[fld] = (char *)0;
-
- fld = 0;
-
- if (*sep == '\0' || *str == '\0' || toklen == 1) return fld;
-
- /* Calculate the length of the unquoted string. */
- len = strlen(str);;
-
- /* Allocate some space */
-
- buf = newalloc(buf, len+1);
-
- /* Copy it across and tokenise it */
-
- in_quotes = 0;
- po = buf;
- token[++fld] = po;
- for (pi = str; *pi && *pi != '\0'; pi++) {
- if (*pi == '\n' && !in_quotes)
- break;
-
- if (!in_quotes && strchr(sep, *pi)) {
- /*
- * separator
- * Advance to next field.
- */
- *po = '\0'; /* end of token */
- if (fld+1 >= toklen) return fld; /* too many tokens */
- token[++fld] = po + 1;
- po++;
- continue;
- }
-
- if (*pi == '"') {
- /*
- * Start or end of quote
- * Emit quote in either case
- */
- in_quotes = !in_quotes;
- } else if (in_quotes && *pi == '\\' && (*(pi + 1) == '"')) {
- /*
- * Quoted quote.
- * emit '/' - default will pick up '"'
- */
- *po++ = *pi++;
- }
- *po++ = *pi; /* Emit character */
- }
- *po = '\0';
-
- assert(po == buf + len); /* Just checking! */
-
- return fld;
-}
-
-/*
-** Quote all the funny characters in one token.
-** - squotef - formatted string with space separator
-** - quotef - formatted string with specified separators
-** - squote - fixed string with space separator
-** - quote - fixed strings with specified separators
-**/
-printf_arglist_function(char *squotef, char *, format)
-{
- va_list argp;
- char linebuf[16384];
-
- /* Format the token */
-
- arglist_start(argp, format);
- g_vsnprintf(linebuf, SIZEOF(linebuf), format, argp);
- arglist_end(argp);
-
- return quote(" ", linebuf);
-}
-
-printf_arglist_function1(char *quotef, char *, sep, char *, format)
-{
- va_list argp;
- char linebuf[16384];
-
- /* Format the token */
-
- arglist_start(argp, format);
- g_vsnprintf(linebuf, SIZEOF(linebuf), format, argp);
- arglist_end(argp);
-
- return quote(sep, linebuf);
-}
-
-char *squote(
- char * str) /* the string to quote */
-{
- return quote(" ", str);
-}
-
-char *
-quote(
- char * sepchr, /* separators that also need quoting */
- char * str) /* the string to quote */
-{
- register char *pi, *po;
- register size_t len;
- char *buf;
- int sep, need_quotes;
-
- /* Calculate the length of the quoted token. */
-
- sep = 0;
- len = 0;
- for (pi = str; *pi; pi++) {
- if (*pi < ' ' || *pi > '~')
- len = len + 4;
- else if (*pi == '\\' || *pi == '"')
- len = len + 2;
- else if (*sepchr && strchr(sepchr, *pi)) {
- len = len + 1;
- sep++;
- }
- else
- len++;
- }
-
- need_quotes = (sep != 0);
-
- if (need_quotes) len = len + 2;
-
- /* Allocate some space */
-
- buf = alloc(len+1); /* trailing null */
-
- /* Copy it across */
-
- po = buf;
-
- if (need_quotes) *po++ = '"';
-
- for (pi = str; *pi; pi++) {
- if (*pi < ' ' || *pi > '~') {
- *po++ = '\\';
- *po++ = (char)(((*pi >> 6) & 07) + '0');
- *po++ = (char)(((*pi >> 3) & 07) + '0');
- *po++ = (char)(((*pi ) & 07) + '0');
- }
- else if (*pi == '\\' || *pi == '"') {
- *po++ = '\\';
- *po++ = *pi;
- }
- else *po++ = *pi;
- }
-
- if (need_quotes) *po++ = '"';
-
- *po = '\0';
-
- assert(po == (buf + len)); /* Just checking! */
-
- return buf;
-}
-
-/* Quote a string so that it can be used as a regular expression */
-char *
-rxquote(
- char * str) /* the string to quote */
-{
- char *pi, *po;
- size_t len;
- char *buf;
-
- /* Calculate the length of the quoted token. */
-
- len = 0;
- for (pi = str; *pi; pi++) {
- switch (*pi) {
- /* regular expression meta-characters: */
-#define META_CHARS \
- case '\\': \
- case '.': \
- case '?': \
- case '*': \
- case '+': \
- case '^': \
- case '$': \
- case '|': \
- case '(': \
- case ')': \
- case '[': \
- case ']': \
- case '{': \
- case '}' /* no colon */
- META_CHARS:
- len++;
- /* fall through */
- default:
- len++;
- break;
- }
- }
-
- /* Allocate some space */
-
- buf = alloc(len+1); /* trailing null */
-
- /* Copy it across */
-
- po = buf;
-
- for (pi = str; *pi; pi++) {
- switch (*pi) {
- META_CHARS:
-#undef META_CHARS
- *po++ = '\\';
- /* fall through */
- default:
- *po++ = *pi;
- break;
- }
- }
-
- *po = '\0';
-
- assert(po == (buf + len)); /* Just checking! */
-
- return buf;
-}
-
-#ifndef HAVE_SHQUOTE
-/* Quote a string so that it can be safely passed to a shell */
-char *
-shquote(
- char * str) /* the string to quote */
-{
- char *pi, *po;
- size_t len;
- char *buf;
-
- /* Calculate the length of the quoted token. */
-
- len = 0;
- for (pi = str; *pi; pi++) {
- switch (*pi) {
- /* shell meta-characters: */
-#define META_CHARS \
- case '\\': \
- case ' ': \
- case '\t': \
- case '\n': \
- case '?': \
- case '*': \
- case '$': \
- case '~': \
- case '!': \
- case ';': \
- case '&': \
- case '<': \
- case '>': \
- case '\'': \
- case '\"': \
- case '`': \
- case '|': \
- case '(': \
- case ')': \
- case '[': \
- case ']': \
- case '{': \
- case '}' /* no colon */
- META_CHARS:
- len++;
- /* fall through */
- default:
- len++;
- break;
- }
- }
-
- /* Allocate some space */
-
- buf = alloc(len+1); /* trailing null */
-
- /* Copy it across */
-
- po = buf;
-
- for (pi = str; *pi; pi++) {
- switch (*pi) {
- META_CHARS:
-#undef META_CHARS
- *po++ = '\\';
- /* fall through */
- default:
- *po++ = *pi;
- break;
- }
- }
-
- *po = '\0';
-
- assert(po == (buf + len)); /* Just checking! */
-
- return buf;
-}
-#endif
-
-/* Table lookup.
-*/
-int
-table_lookup(
- table_t * table,
- char * str)
-{
- while(table->word != (char *)0) {
- if (*table->word == *str && strcmp(table->word, str) == 0) {
- return table->value;
- }
- table++;
- }
-
- return table->value;
-}
-
-/* Reverse table lookup.
-*/
-char *
-table_lookup_r(
- /*@keep@*/ table_t * table,
- int val)
-{
- while(table->word != (char *)0) {
- if (table->value == val) {
- return table->word;
- }
- table++;
- }
-
- return (char *)0;
-}
-
-#ifdef TEST
-
-int
-main(
- int argc,
- char ** argv)
-{
- char *str = NULL;
- char *t[20];
- int r;
- char *sr;
- int i;
-
- /*
- * Configure program for internationalization:
- * 1) Only set the message locale for now.
- * 2) Set textdomain for all amanda related programs to "amanda"
- * We don't want to be forced to support dozens of message catalogs
- */
- setlocale(LC_MESSAGES, "C");
- textdomain("amanda");
-
- safe_fd(-1, 0);
-
- setlocale(LC_ALL, "C");
-
- /* shut up compiler */
- argc = argc;
- argv = argv;
-
- set_pname("token test");
-
- dbopen(NULL);
-
- /* Don't die when child closes pipe */
- signal(SIGPIPE, SIG_IGN);
-
- erroutput_type = ERR_INTERACTIVE;
-
- g_printf(_("Testing split() with \" \" token separator\n"));
- while(1) {
- g_printf(_("Input string: "));
- amfree(str);
- if ((str = agets(stdin)) == NULL) {
- g_printf("\n");
- break;
- }
- r = split(str, t, 20, " ");
- g_printf(plural(_("%d token:\n"), _("%d token:\n"), r), r);
- for (i=0; i <= r; i++)
- g_printf("tok[%d] = \"%s\"\n", i, t[i]);
- }
- amfree(str);
- g_printf("\n");
-
- g_printf(_("Testing quote()\n"));
- while(1) {
- g_printf(_("Input string: "));
- amfree(str);
- if ((str = agets(stdin)) == NULL) {
- g_printf("\n");
- break;
- }
- sr = squote(str);
- g_printf(_("Quoted = \"%s\"\n"), sr);
- strncpy(str,sr,SIZEOF(str)-1);
- str[SIZEOF(str)-1] = '\0';
- r = split(str, t, 20, " ");
- if (r != 1)
- g_printf("split()=%d!\n", r);
- g_printf(_("Unquoted = \"%s\"\n"), t[1]);
- amfree(sr);
- }
- amfree(str);
- return 0;
-}
-
-#endif
projects / debian / amanda / blobdiff