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

skip-ws, #3/6, use TEMPORARY macros, obj-invariant

pre-master-46
rlar 10 years ago
parent
6d1171ad6f
commit
a86f2068c8
14 changed files with 46 additions and 91 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. 3
      src/frontend/com_let.c
  2. 3
      src/frontend/cpitf.c
  3. 9
      src/frontend/dimens.c
  4. 3
      src/frontend/help/textdisp.c
  5. 21
      src/frontend/inp.c
  6. 6
      src/frontend/newcoms.c
  7. 3
      src/frontend/numparam/spicenum.c
  8. 6
      src/frontend/nutinp.c
  9. 3
      src/frontend/plotting/graf.c
  10. 39
      src/frontend/subckt.c
  11. 3
      src/frontend/vectors.c
  12. 23
      src/misc/string.c
  13. 3
      src/misc/tilde.c
  14. 12
      src/spicelib/parser/inp2r.c

3
src/frontend/com_let.c
View File

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

3
src/frontend/cpitf.c
View File

@ -246,8 +246,7 @@ ft_cpinit(void)
/* jump over leading spaces */
for (copys = s = cp_tildexpand(Lib_Path); copys && *copys; ) {
while (isspace_c(*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;

9
src/frontend/dimens.c
View File

@ -133,13 +133,11 @@ atodims(char *p, int *data, int *outlength)
return 0;
}
while (*p && isspace_c(*p))
p++;
TEMPORARY_SKIP_WS_X0(p);
if (*p == '[') {
p++;
while (*p && isspace_c(*p))
p++;
TEMPORARY_SKIP_WS_X0(p);
needbracket = 1;
}
@ -186,8 +184,7 @@ atodims(char *p, int *data, int *outlength)
break;
}
while (*p && isspace_c(*p))
p++;
TEMPORARY_SKIP_WS_X0(p);
}
*outlength = length;

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

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

21
src/frontend/inp.c
View File

@ -396,8 +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;
while (isspace_c(*s))
s++;
TEMPORARY_SKIP_WS_X1(s);
if (temperature)
txfree(temperature);
temperature = strdup(s);
@ -405,8 +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;
while (isspace_c(*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
@ -422,11 +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;
for (; *s && isspace_c(*s); s++)
;
TEMPORARY_SKIP_WS_X0(s);
t = s;
for (; *t && !isspace_c(*t); t++)
;
TEMPORARY_SKIP_NON_WS_X0(t);
*t = '\0';
if (ciprefix(".control", dd->li_line)) {
@ -570,8 +566,7 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
s = dd->li_line;
*s = '*';
s = dd->li_line + 8;
while (isspace_c(*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);
@ -811,8 +806,7 @@ inp_dodeck(
struct line *opt_beg = options;
for (; options; options = options->li_next) {
s = options->li_line;
for (; *s && !isspace_c(*s); s++)
;
TEMPORARY_SKIP_NON_WS_X0(s);
ii = cp_interactive;
cp_interactive = FALSE;
@ -993,8 +987,7 @@ inp_dodeck(
/*
* for (; options; options = options->li_next) {
* s = options->li_line;
* for (; *s && !isspace_c(*s); s++)
* ;
* TEMPORARY_SKIP_NON_WS_X0(s);
* ii = cp_interactive;
* cp_interactive = FALSE;
* wl = cp_lexer(s);

6
src/frontend/newcoms.c
View File

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

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

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

6
src/frontend/nutinp.c
View File

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

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

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

39
src/frontend/subckt.c
View File

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

3
src/frontend/vectors.c
View File

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

23
src/misc/string.c
View File

@ -283,8 +283,7 @@ gettok(char **s)
char *beg, *token ; /* return token */
paren = 0;
while (isspace_c(**s))
(*s)++;
TEMPORARY_SKIP_WS_X1(*s);
if (!**s)
return (NULL);
beg = *s ;
@ -358,8 +357,7 @@ gettok_noparens(char **s)
char c;
char *beg, *token ; /* return token */
while ( isspace_c(**s) )
(*s)++; /* iterate over whitespace */
TEMPORARY_SKIP_WS_X1(*s);
if (!**s)
return (NULL); /* return NULL if we come to end of line */
@ -377,8 +375,7 @@ gettok_noparens(char **s)
token = copy_substring(beg, *s) ;
/* Now iterate up to next non-whitespace char */
while ( isspace_c(**s) )
(*s)++;
TEMPORARY_SKIP_WS_X1(*s);
return ( token ) ;
}
@ -389,8 +386,7 @@ gettok_instance(char **s)
char c;
char *beg, *token ; /* return token */
while ( isspace_c(**s) )
(*s)++; /* iterate over whitespace */
TEMPORARY_SKIP_WS_X1(*s);
if (!**s)
return (NULL); /* return NULL if we come to end of line */
@ -407,8 +403,7 @@ gettok_instance(char **s)
token = copy_substring(beg, *s) ;
/* Now iterate up to next non-whitespace char */
while ( isspace_c(**s) )
(*s)++;
TEMPORARY_SKIP_WS_X1(*s);
return ( token ) ;
}
@ -425,8 +420,7 @@ gettok_char(char **s, char p, bool inc_p, bool nested)
char c;
char *beg, *token ; /* return token */
while ( isspace_c(**s) )
(*s)++; /* iterate over whitespace */
TEMPORARY_SKIP_WS_X1(*s);
if (!**s)
return (NULL); /* return NULL if we come to end of line */
@ -473,8 +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 */
while ( isspace_c(**s) )
(*s)++;
TEMPORARY_SKIP_WS_X1(*s);
return ( token ) ;
}
@ -671,7 +664,7 @@ get_comma_separated_values( char *values[], char *str ) {
values[count++] = strdup(str);
*ptr = keep;
str = comma_ptr + 1;
while ( isspace_c(*str) ) str++;
TEMPORARY_SKIP_WS_X1(str);
}
values[count++] = strdup(str);
return count;

3
src/misc/tilde.c
View File

@ -43,8 +43,7 @@ tildexpand(char *string)
if (!string)
return NULL;
while (*string && isspace_c(*string))
string++;
TEMPORARY_SKIP_WS_X0(string);
if (*string != '~')
return copy(string);

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

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