epilectrik
/
pyNgSpice
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

skip-ws, #5/6, use functional style

pre-master-46
rlar 10 years ago
parent
d12679fccd
commit
22875d056b
15 changed files with 48 additions and 48 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 2
      src/frontend/com_let.c
  2. 2
      src/frontend/cpitf.c
  3. 6
      src/frontend/dimens.c
  4. 2
      src/frontend/help/textdisp.c
  5. 14
      src/frontend/inp.c
  6. 4
      src/frontend/newcoms.c
  7. 2
      src/frontend/numparam/spicenum.c
  8. 4
      src/frontend/nutinp.c
  9. 2
      src/frontend/plotting/graf.c
  10. 26
      src/frontend/subckt.c
  11. 2
      src/frontend/vectors.c
  12. 4
      src/include/ngspice/stringskip.h
  13. 16
      src/misc/string.c
  14. 2
      src/misc/tilde.c
  15. 8
      src/spicelib/parser/inp2r.c

2
src/frontend/com_let.c
View File

@ -113,7 +113,7 @@ com_let(wordlist *wl)
free_pnode(names); /* frees also t, if pnode `names' is simple value */
s = q;
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
}
}
/* vector name at p */

2
src/frontend/cpitf.c
View File

@ -246,7 +246,7 @@ ft_cpinit(void)
/* jump over leading spaces */
for (copys = s = cp_tildexpand(Lib_Path); copys && *copys; ) {
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
/* copy s into buf until space is seen, r is the actual position */
for (r = buf; *s && !isspace_c(*s); r++, s++)
*r = *s;

6
src/frontend/dimens.c
View File

@ -133,11 +133,11 @@ atodims(char *p, int *data, int *outlength)
return 0;
}
TEMPORARY_SKIP_WS_X1(p);
p = TEMPORARY_SKIP_WS_X1(p);
if (*p == '[') {
p++;
TEMPORARY_SKIP_WS_X1(p);
p = TEMPORARY_SKIP_WS_X1(p);
needbracket = 1;
}
@ -184,7 +184,7 @@ atodims(char *p, int *data, int *outlength)
break;
}
TEMPORARY_SKIP_WS_X1(p);
p = TEMPORARY_SKIP_WS_X1(p);
}
*outlength = length;

2
src/frontend/help/textdisp.c
View File

@ -74,7 +74,7 @@ hlp_thandle(topic **parent)
}
s = buf;
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
switch (*s) {
case '?':
fprintf(cp_out,

14
src/frontend/inp.c
View File

@ -396,7 +396,7 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
/* get temp from deck */
if (ciprefix(".temp", dd->li_line)) {
s = dd->li_line + 5;
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
if (temperature)
txfree(temperature);
temperature = strdup(s);
@ -404,7 +404,7 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
/* Ignore comment lines, but not lines begining with '*#',
but remove them, if they are in a .control ... .endc section */
s = dd->li_line;
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
if ((*s == '*') && ((s != dd->li_line) || (s[1] != '#'))) {
if (commands) {
/* Remove comment lines in control sections, so they don't
@ -420,9 +420,9 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
/* Put the first token from line into s */
strncpy(name, dd->li_line, BSIZE_SP);
s = name;
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
t = s;
TEMPORARY_SKIP_NON_WS_X0(t);
t = TEMPORARY_SKIP_NON_WS_X0(t);
*t = '\0';
if (ciprefix(".control", dd->li_line)) {
@ -566,7 +566,7 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
s = dd->li_line;
*s = '*';
s = dd->li_line + 8;
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
cstoken[0] = gettok_char(&s, '=', FALSE, FALSE);
cstoken[1] = gettok_char(&s, '=', TRUE, FALSE);
cstoken[2] = gettok(&s);
@ -806,7 +806,7 @@ inp_dodeck(
struct line *opt_beg = options;
for (; options; options = options->li_next) {
s = options->li_line;
TEMPORARY_SKIP_NON_WS_X0(s);
s = TEMPORARY_SKIP_NON_WS_X0(s);
ii = cp_interactive;
cp_interactive = FALSE;
@ -987,7 +987,7 @@ inp_dodeck(
/*
* for (; options; options = options->li_next) {
* s = options->li_line;
* TEMPORARY_SKIP_NON_WS_X0(s);
* s = TEMPORARY_SKIP_NON_WS_X0(s);
* ii = cp_interactive;
* cp_interactive = FALSE;
* wl = cp_lexer(s);

4
src/frontend/newcoms.c
View File

@ -80,7 +80,7 @@ com_reshape(wordlist *wl)
wlast = wlast->wl_next;
}
TEMPORARY_SKIP_WS_X1(p);
p = TEMPORARY_SKIP_WS_X1(p);
switch (state) {
case 0: /* p just at or before a number */
@ -131,7 +131,7 @@ com_reshape(wordlist *wl)
}
}
TEMPORARY_SKIP_WS_X1(p);
p = TEMPORARY_SKIP_WS_X1(p);
} while (state < 3);

2
src/frontend/numparam/spicenum.c
View File

@ -832,7 +832,7 @@ nupa_eval(char *s, int linenum, int orig_linenum)
} else if (c == 'X') {
/* compute args of subcircuit, if required */
ptr = s;
TEMPORARY_SKIP_NON_WS_X0(ptr);
ptr = TEMPORARY_SKIP_NON_WS_X0(ptr);
keep = *ptr;
*ptr = '\0';
nupa_inst_name = strdup(s);

4
src/frontend/nutinp.c
View File

@ -95,9 +95,9 @@ inp_nutsource(FILE *fp, bool comfile, char *filename)
}
(void) strncpy(name, dd->li_line, BSIZE_SP);
s = name;
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
t = s;
TEMPORARY_SKIP_NON_WS_X0(t);
t = TEMPORARY_SKIP_NON_WS_X0(t);
*t = '\0';
if (ciprefix(".control", dd->li_line)) {

2
src/frontend/plotting/graf.c
View File

@ -1036,7 +1036,7 @@ readtics(char *string)
for (k = 0; *words && k < MAXTICS; words = worde) {
TEMPORARY_SKIP_WS_X1(words);
words = TEMPORARY_SKIP_WS_X1(words);
worde = words;
while (isalpha_c(*worde) || isdigit_c(*worde))

26
src/frontend/subckt.c
View File

@ -153,9 +153,9 @@ collect_global_nodes(struct line *c)
txfree(gettok(&s));
while (*s) {
char *t = s;
TEMPORARY_SKIP_NON_WS_X0(s);
s = TEMPORARY_SKIP_NON_WS_X0(s);
global_nodes[num_global_nodes++] = copy_substring(t, s);
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
}
c->li_line[0] = '*'; /* comment it out */
}
@ -321,8 +321,8 @@ inp_subcktexpand(struct line *deck) {
} else if (*s == '.') {
continue; /* skip .commands */
} else { /* any other line . . . */
TEMPORARY_SKIP_NON_WS_X0(s);
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_NON_WS_X0(s);
s = TEMPORARY_SKIP_WS_X1(s);
if (*s == '(') {
int level = 0;
@ -492,10 +492,10 @@ doit(struct line *deck, wordlist *modnames) {
/* count the number of args in the .subckt line */
sss->su_numargs = 0;
for (;;) {
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
if (*s == '\0')
break;
TEMPORARY_SKIP_NON_WS_X0(s);
s = TEMPORARY_SKIP_NON_WS_X0(s);
sss->su_numargs ++;
}
}
@ -1310,7 +1310,7 @@ finishLine(struct bxx_buffer *t, char *src, char *scname)
continue;
}
s = src + 1;
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
if (!*s || (*s != '(')) {
lastwasalpha = isalpha_c(*src);
bxx_putc(t, *src++);
@ -1320,7 +1320,7 @@ finishLine(struct bxx_buffer *t, char *src, char *scname)
bxx_putc(t, which = *src);
src = s;
bxx_putc(t, *src++);
TEMPORARY_SKIP_WS_X1(src);
src = TEMPORARY_SKIP_WS_X1(src);
for (buf = src; *src && !isspace_c(*src) && *src != ',' && *src != ')'; )
src++;
buf_end = src;
@ -1467,7 +1467,7 @@ numnodes(char *name, struct subs *subs, wordlist const *modnames)
const wordlist *wl;
int n, i, gotit;
TEMPORARY_SKIP_WS_X1(name);
name = TEMPORARY_SKIP_WS_X1(name);
c = *name;
if (isupper_c(c))
@ -1497,8 +1497,8 @@ numnodes(char *name, struct subs *subs, wordlist const *modnames)
int nodes = -2;
for (s = buf; *s; ) {
nodes++;
TEMPORARY_SKIP_NON_WS_X0(s);
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_NON_WS_X0(s);
s = TEMPORARY_SKIP_WS_X1(s);
}
return (nodes);
}
@ -1571,7 +1571,7 @@ static int
numdevs(char *s)
{
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
switch (*s) {
case 'K':
case 'k':
@ -1680,7 +1680,7 @@ devmodtranslate(struct line *s, char *subname, wordlist * const orig_modnames)
printf("In devmodtranslate, examining line %s.\n", t);
#endif
TEMPORARY_SKIP_WS_X1(t);
t = TEMPORARY_SKIP_WS_X1(t);
c = *t; /* set c to first char in line. . . . */
if (isupper_c(c))
c = tolower_c(c);

2
src/frontend/vectors.c
View File

@ -939,7 +939,7 @@ vec_basename(struct dvec *v)
strtolower(buf);
t = buf;
TEMPORARY_SKIP_WS_X1(t);
t = TEMPORARY_SKIP_WS_X1(t);
s = t;
for (t = s; *t; t++)
;

4
src/include/ngspice/stringskip.h
View File

@ -1,7 +1,7 @@
#ifndef ngspice_STRINGSKIP_H
#define ngspice_STRINGSKIP_H
#define TEMPORARY_SKIP_NON_WS_X0(s) do { while (*(s) && !isspace_c(*(s))) (s)++; } while(0)
#define TEMPORARY_SKIP_WS_X1(s) do { while ( isspace_c(*(s))) (s)++; } while(0)
static inline char *TEMPORARY_SKIP_NON_WS_X0(char *s) { while (*s && !isspace_c(*s)) s++; return s; }
static inline char *TEMPORARY_SKIP_WS_X1(char *s) { while ( isspace_c(*s)) s++; return s; }
#endif

16
src/misc/string.c
View File

@ -283,7 +283,7 @@ gettok(char **s)
char *beg, *token ; /* return token */
paren = 0;
TEMPORARY_SKIP_WS_X1(*s);
*s = TEMPORARY_SKIP_WS_X1(*s);
if (!**s)
return (NULL);
beg = *s ;
@ -357,7 +357,7 @@ gettok_noparens(char **s)
char c;
char *beg, *token ; /* return token */
TEMPORARY_SKIP_WS_X1(*s);
*s = TEMPORARY_SKIP_WS_X1(*s);
if (!**s)
return (NULL); /* return NULL if we come to end of line */
@ -375,7 +375,7 @@ gettok_noparens(char **s)
token = copy_substring(beg, *s) ;
/* Now iterate up to next non-whitespace char */
TEMPORARY_SKIP_WS_X1(*s);
*s = TEMPORARY_SKIP_WS_X1(*s);
return ( token ) ;
}
@ -386,7 +386,7 @@ gettok_instance(char **s)
char c;
char *beg, *token ; /* return token */
TEMPORARY_SKIP_WS_X1(*s);
*s = TEMPORARY_SKIP_WS_X1(*s);
if (!**s)
return (NULL); /* return NULL if we come to end of line */
@ -403,7 +403,7 @@ gettok_instance(char **s)
token = copy_substring(beg, *s) ;
/* Now iterate up to next non-whitespace char */
TEMPORARY_SKIP_WS_X1(*s);
*s = TEMPORARY_SKIP_WS_X1(*s);
return ( token ) ;
}
@ -420,7 +420,7 @@ gettok_char(char **s, char p, bool inc_p, bool nested)
char c;
char *beg, *token ; /* return token */
TEMPORARY_SKIP_WS_X1(*s);
*s = TEMPORARY_SKIP_WS_X1(*s);
if (!**s)
return (NULL); /* return NULL if we come to end of line */
@ -467,7 +467,7 @@ gettok_char(char **s, char p, bool inc_p, bool nested)
token = copy_substring(beg, *s) ;
/* Now iterate up to next non-whitespace char */
TEMPORARY_SKIP_WS_X1(*s);
*s = TEMPORARY_SKIP_WS_X1(*s);
return ( token ) ;
}
@ -664,7 +664,7 @@ get_comma_separated_values( char *values[], char *str ) {
values[count++] = strdup(str);
*ptr = keep;
str = comma_ptr + 1;
TEMPORARY_SKIP_WS_X1(str);
str = TEMPORARY_SKIP_WS_X1(str);
}
values[count++] = strdup(str);
return count;

2
src/misc/tilde.c
View File

@ -43,7 +43,7 @@ tildexpand(char *string)
if (!string)
return NULL;
TEMPORARY_SKIP_WS_X1(string);
string = TEMPORARY_SKIP_WS_X1(string);
if (*string != '~')
return copy(string);

8
src/spicelib/parser/inp2r.c
View File

@ -86,7 +86,7 @@ void INP2R(CKTcircuit *ckt, INPtables * tab, card * current)
s += 2;
/* skip any white space */
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
/* reject if not '=' */
if(*s != '=')
@ -95,7 +95,7 @@ void INP2R(CKTcircuit *ckt, INPtables * tab, card * current)
s++;
/* skip any white space */
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
/* if we now have +, - or a decimal digit then assume we have a number,
otherwise reject */
@ -103,12 +103,12 @@ void INP2R(CKTcircuit *ckt, INPtables * tab, card * current)
continue;
/* look for next white space or null */
TEMPORARY_SKIP_NON_WS_X0(s);
s = TEMPORARY_SKIP_NON_WS_X0(s);
left_length = (size_t) (s - current->line);
/* skip any additional white space */
TEMPORARY_SKIP_WS_X1(s);
s = TEMPORARY_SKIP_WS_X1(s);
/* if we now have +, - or a decimal digit then assume we have the
second number, otherwise reject */

Write Preview
Loading…
Cancel
Save