Correzione MI3623, relativo alla stampa di righe che terminano

proprio con il carattere <.


git-svn-id: svn://10.65.10.50/trunk@5385 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-10-16 13:56:15 +00:00
parent 851ce5b460
commit 6ced2b0005

View File

@ -234,6 +234,8 @@ void TTextfile::read_line (
{
// merge field if rel != NULL;
// else fill with whitespace
const char * save_sp = sp;
TToken_string id(80, '@');
sp++;
bool terminated = FALSE;
@ -241,7 +243,8 @@ void TTextfile::read_line (
if (ch != '\0')
id << ch;
else terminated = TRUE;
if (terminated) break; // Esce dal ciclo se non trova la matching >
if (!terminated) // Prosegue normalmente se non trova la matching >
{
// id contains tokenstring separated by @
// but with casinations for possible lack of spacing
// add spaces if needed
@ -337,6 +340,12 @@ void TTextfile::read_line (
// ficca il testo cola' dove si puote
for (int k = 0; k < txt.len(); k++)
TEXT_TMP[ndx++] = txt[k];
} // see (!terminated) above
else // Restore sp pointer
{
sp = save_sp;
ch = '<';
}
}
if (ch == '@' || (ch == '$' && *(sp) == '['))