quote.c

支持数字元件仿真的SPICE插件

/* RCS Info: $Revision: 1.1 $ on $Date: 91/04/02 12:04:24 $
 *           $Source: //pepper/atesse_spice/spice3/CP/RCS/quote.c,v $
 * Copyright (c) 1985 Wayne A. Christopher, U. C. Berkeley CAD Group
 *
 * Various things for quoting words. If this is not ascii, quote and
 * strip are no-ops, so '' and \ quoting won't work. To fix this, sell
 * your IBM machine and buy a vax.
 */

#include "prefix.h"
#include "CPdefs.h"
#include "suffix.h"

/* Strip all the 8th bits from a string (destructively). */

void
cp_wstrip(str)
    char *str;
{
    while (*str) {
        *str = strip(*str);
        str++;
    }
    return;
}

/* Quote all characters in a word. */

void
cp_quoteword(str)
    char *str;
{
    while (*str) {
        *str = quote(*str);
        str++;
    }
    return;
}

/* Print a word (strip the word first). */

void
cp_printword(string, fp)
    char *string;
    FILE *fp;
{
    char *s;

    if (string)
        for (s = string; *s; s++)
            (void) putc((strip(*s)), fp);
    return;
}

/* (Destructively) strip all the words in a wlist. */

void
cp_striplist(wlist)
    wordlist *wlist;
{
    wordlist *wl;

    for (wl = wlist; wl; wl = wl->wl_next)
        cp_wstrip(wl->wl_word);
    return;
}

/* Remove the "" from a string. */

char *
cp_unquote(string)
    char *string;
{
    char *s = copy(string);
    int l;

    if (*s == '"')
        s++;

    l = strlen(s) - 1;
    if (s[l] == '"')
        s[l] = '\0';
    return (s);
}