drygdryg/calc
1
0
Fork 0
mirror of https://github.com/lcn2/calc.git synced 2025-08-16 01:03:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Release calc version 2.11.1t1

Browse Source
This commit is contained in:
Landon Curt Noll
1999-12-15 01:35:49 -08:00
parent f3913609ea
commit 6f5e8bf1b6
519 changed files with 17771 additions and 4208 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
token.c
View File

@@ -1,9 +1,32 @@
/*
* Copyright (c) 1997 David I. Bell
* Permission is granted to use, distribute, or modify this source,
* provided that this copyright notice remains intact.
* token - read input file characters into tokens
*
* Read input file characters into tokens
* Copyright (C) 1999 David I. Bell and Ernest Bowen
*
* Primary author: David I. Bell
*
* Calc is open software; you can redistribute it and/or modify it under
* the terms of the version 2.1 of the GNU Lesser General Public License
* as published by the Free Software Foundation.
*
* Calc is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
* Public License for more details.
*
* A copy of version 2.1 of the GNU Lesser General Public License is
* distributed with calc under the filename COPYING-LGPL. You should have
* received a copy with calc; if not, write to Free Software Foundation, Inc.
* 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
*
* @(#) $Revision: 29.1 $
* @(#) $Id: token.c,v 29.1 1999/12/14 09:16:16 chongo Exp $
* @(#) $Source: /usr/local/src/cmd/calc/RCS/token.c,v $
*
* Under source code control: 1990/02/15 01:48:25
* File existed as early as: before 1990
*
* Share and enjoy! :-) http://reality.sgi.com/chongo/tech/comp/calc/
*/
@@ -90,6 +113,7 @@ static struct keyword keywords[] = {
static void eatcomment(void);
static void eatstring(int quotechar);
static void eatline(void);
static int eatsymbol(void);
static int eatnumber(void);
@@ -154,7 +178,8 @@ gettoken(void)
type = T_NULL;
while (type == T_NULL) {
ch = nextchar();
if (allsyms && ((ch!=' ') && (ch!=';') && (ch!='"') && (ch!='\n'))) {
if (allsyms && ((ch!=' ') &&
(ch!=';') && (ch!='"') && (ch!='\n'))) {
reread();
type = eatsymbol();
break;
@@ -219,8 +244,10 @@ gettoken(void)
case '=': type = T_MULTEQUALS; break;
case '*':
switch (nextchar()) {
case '=': type = T_POWEREQUALS; break;
default: type = T_POWER; reread();
case '=':
type = T_POWEREQUALS; break;
default:
type = T_POWER; reread();
}
break;
default: type = T_MULT; reread();
@@ -230,8 +257,13 @@ gettoken(void)
switch (nextchar()) {
case '/':
switch (nextchar()) {
case '=': type = T_SLASHSLASHEQUALS; break;
default: reread(); type = T_SLASHSLASH; break;
case '=':
type = T_SLASHSLASHEQUALS;
break;
default:
reread();
type = T_SLASHSLASH;
break;
}
break;
case '=': type = T_DIVEQUALS; break;
@@ -250,8 +282,13 @@ gettoken(void)
case '=': type = T_LE; break;
case '<':
switch (nextchar()) {
case '=': type = T_LSHIFTEQUALS; break;
default: reread(); type = T_LEFTSHIFT; break;
case '=':
type = T_LSHIFTEQUALS;
break;
default:
reread();
type = T_LEFTSHIFT;
break;
}
break;
default: type = T_LT; reread();
@@ -262,8 +299,13 @@ gettoken(void)
case '=': type = T_GE; break;
case '>':
switch (nextchar()) {
case '=': type = T_RSHIFTEQUALS; break;
default: reread(); type = T_RIGHTSHIFT; break;
case '=':
type = T_RSHIFTEQUALS;
break;
default:
reread();
type = T_RIGHTSHIFT;
break;
}
break;
default: type = T_GT; reread();
@@ -292,6 +334,12 @@ gettoken(void)
case '#':
switch(nextchar()) {
case '=': type = T_HASHEQUALS; break;
case '!': type = T_POUNDBANG; eatline(); break;
case ' ': type = T_POUNDCOMMENT; eatline();
break;
case '\t': type = T_POUNDCOMMENT; eatline();
break;
case '\n': type = T_POUNDCOMMENT; break;
default: type = T_HASH; reread();
}
break;
@@ -354,6 +402,23 @@ eatcomment(void)
}
/*
* Continue to eat up a the current line
* Typically a #! will require the rest of the line to be eaten as if
* it were a comment.
*/
static void
eatline(void)
{
int ch; /* chars being eaten */
do {
ch = nextchar();
} while (ch != '\n' && ch != EOF && ch != '\0');
reread();
}
/*
* Read in a string and add it to the literal string pool.
* The leading single or double quote has been read in at this point.
@@ -385,7 +450,8 @@ eatstring(int quotechar)
break;
case EOF:
reread();
scanerror(T_NULL, "Unterminated string constant");
scanerror(T_NULL,
"Unterminated string constant");
done = TRUE;
ch = '\0';
break;
@@ -703,5 +769,3 @@ scanerror(int skip, char *fmt, ...)
}
}
}
/* END CODE */