enlightenment/efl
enlightenment
/
efl
8
7
Fork 14
Code Issues 13 Pull Requests 3 Projects Releases Wiki Activity

Implemented string concatenation. 

For example, "pants""off" becomes "pantsoff".


SVN revision: 11831
This commit is contained in:
tsauerbeck 2004-10-11 17:49:59 +00:00 committed by tsauerbeck
parent 541c116fc6
commit d833f56657
1 changed files with 32 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
legacy/embryo/src/bin/embryo_cc_sc2.c
View File

@ -1,4 +1,7 @@
/* Small compiler - File input, preprocessing and lexical analysis functions
/*
* vim:ts=8:sw=3:sts=3:noexpandtab
*
* Small compiler - File input, preprocessing and lexical analysis functions
*
* Copyright (c) ITB CompuPhase, 1997-2003
*
@ -1738,8 +1741,21 @@ preprocess(void)
static char *
unpackedstring(char *lptr, int rawstring)
{
while (*lptr != '\"' && *lptr != '\0')
while (*lptr != '\0')
{
/* check for doublequotes indicating the end of the string */
if (*lptr == '\"')
{
/* check whether there's another pair of quotes following.
* If so, paste the two strings together, thus
* "pants""off" becomes "pantsoff"
*/
if (*(lptr + 1) == '\"')
lptr += 2;
else
break;
}
if (*lptr == '\a')
{ /* ignore '\a' (which was inserted at a line concatenation) */
lptr++;
@ -1759,8 +1775,21 @@ packedstring(char *lptr, int rawstring)
i = sizeof(ucell) - (charbits / 8); /* start at most significant byte */
val = 0;
while (*lptr != '\"' && *lptr != '\0')
while (*lptr != '\0')
{
/* check for doublequotes indicating the end of the string */
if (*lptr == '\"')
{
/* check whether there's another pair of quotes following.
* If so, paste the two strings together, thus
* "pants""off" becomes "pantsoff"
*/
if (*(lptr + 1) == '\"')
lptr += 2;
else
break;
}
if (*lptr == '\a')
{ /* ignore '\a' (which was inserted at a line concatenation) */
lptr++;