ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@1272 f3b2605a-c512-4ea7-a41b-209d697bcdaa

Browse Source
This commit is contained in:
sjplimp
2008-01-02 19:24:46 +00:00
parent 428ca84042
commit b2e9f7dc10
145 changed files with 2801 additions and 2615 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/input.cpp
View File

@ -262,7 +262,7 @@ char *Input::one(const char *single)
command = first word
narg = # of args
arg[] = individual args
treat multiple args between double quotes as one arg
treat text between double quotes as one arg
------------------------------------------------------------------------- */
void Input::parse()
@ -311,10 +311,13 @@ void Input::parse()
arg[narg] = strtok(NULL," \t\n\r\f");
if (arg[narg] && arg[narg][0] == '\"') {
arg[narg] = &arg[narg][1];
if (strchr(arg[narg],'\"')) error->all("Quotes in a single arg");
arg[narg][strlen(arg[narg])] = ' ';
ptr = strtok(NULL,"\"");
if (ptr == NULL) error->all("Unbalanced quotes in input line");
if (arg[narg][strlen(arg[narg])-1] == '\"')
arg[narg][strlen(arg[narg])-1] = '\0';
else {
arg[narg][strlen(arg[narg])] = ' ';
ptr = strtok(arg[narg],"\"");
if (ptr == NULL) error->all("Unbalanced quotes in input line");
}
}
if (arg[narg]) narg++;
else break;
@ -355,7 +358,7 @@ void Input::substitute(char *str, int flag)
beyond = ptr + strlen(var) + 1;
}
value = variable->retrieve(var);
if (value == NULL) error->one("Substitution for undefined variable");
if (value == NULL) error->one("Substitution for illegal variable");
*ptr = '\0';
strcpy(work,str);