Applied fixes for AIX (GTK 1.0 compilation).

Removed ostream from property classes.
  Removed Lisp output from wxExpr.


git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@2917 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Robert Roebling
1999-06-28 13:22:00 +00:00
parent 64be695894
commit c693edf3bc
21 changed files with 377 additions and 253 deletions

View File

@@ -796,54 +796,6 @@ void wxExpr::WriteExpr(FILE* stream) // Write as any other subexpression
}
}
void wxExpr::WriteLispExpr(FILE* stream)
{
switch (type)
{
case wxExprInteger:
{
fprintf( stream, "%ld", value.integer );
break;
}
case wxExprReal:
{
fprintf( stream, "%.6g", value.real );
break;
}
case wxExprString:
{
fprintf( stream, "\"" );
const wxWX2MBbuf val = wxConvLibc.cWX2MB(value.string);
fprintf( stream, (const char*) val );
fprintf( stream, "\"" );
break;
}
case wxExprWord:
{
const wxWX2MBbuf val = wxConvLibc.cWX2MB(value.word);
fprintf( stream, (const char*) val );
break;
}
case wxExprList:
{
wxExpr *expr = value.first;
fprintf( stream, "(" );
while (expr)
{
expr->WriteLispExpr(stream);
expr = expr->next;
if (expr)
fprintf( stream, " " );
}
fprintf( stream, ")" );
break;
}
case wxExprNull: break;
}
}
/*
* wxExpr 'database' (list of expressions)
*/
@@ -1095,19 +1047,6 @@ bool wxExprDatabase::Write(FILE *stream)
return (noErrors == 0);
}
void wxExprDatabase::WriteLisp(FILE* stream)
{
noErrors = 0;
wxNode *node = First();
while (node)
{
wxExpr *expr = (wxExpr *)node->Data();
expr->WriteLispExpr(stream);
fprintf( stream, "\n\n" );
node = node->Next();
}
}
void add_expr(wxExpr * expr)
{
thewxExprDatabase->Append(expr);