firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-22 20:43:02 +01:00
Code Issues

On behalf of mapopa after sourceforge crash - Remove gpre BASIC function (NOT_USED_OR_REPLACED)

Browse Source
This commit is contained in:
asfernandes 2015-07-26 15:36:19 +00:00
parent 886935cd5f
commit c4f35b84c3
2 changed files with 0 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
src/gpre/gpre.cpp
View File

@ -1124,55 +1124,6 @@ void CPR_get_text( TEXT* buffer, const gpre_txt* text)
}
//____________________________________________________________
//
// A BASIC-specific function which resides here since it reads from
// the input file. Look for a '\n' with no continuation character (&).
// Eat tokens until previous condition is satisfied.
// This function is used to "eat" a BASIC external function definition.
//
#ifdef NOT_USED_OR_REPLACED
void CPR_raw_read()
{
SCHAR token_string[MAX_SYM_SIZE];
bool continue_char = false;
SCHAR* p = token_string;
SSHORT c;
while (c = get_char(input_file))
{
position++;
if ((get_classes(c) == CHR_WHITE) && sw_trace && token_string)
{
*p = 0;
puts(token_string);
token_string[0] = 0;
p = token_string;
}
else
*p++ = (SCHAR) c;
if (c == '\n') // Changed assignment to comparison. Probable archaic bug
{
line_global++;
line_position = 0;
if (!continue_char)
return;
continue_char = false;
}
else
{
line_position++;
if (get_classes(c) != CHR_WHITE)
continue_char = (gpreGlob.token_global.tok_keyword == KW_AMPERSAND);
}
}
}
#endif
//____________________________________________________________
//
// Generate a syntax error.

5
src/gpre/gpre_proto.h
View File

@ -37,11 +37,6 @@ void CPR_exit(int);
void CPR_warn(const TEXT*);
tok* CPR_eol_token();
void CPR_get_text(TEXT*, const gpre_txt*);
#ifdef NOT_USED_OR_REPLACED
void CPR_raw_read();
#endif
void CPR_s_error(const TEXT*);
gpre_txt* CPR_start_text();
tok* CPR_token();