Minor corrections.

[wxWidgets.git] / src / common / wxexpr.cpp

diff --git a/src/common/wxexpr.cpp b/src/common/wxexpr.cpp
index 33fcade86c74deabc8efb173c72cf8e8d67a1086..b470a98ecc5f55bd555108feda41fb3fc0afe947 100644 (file)
--- a/src/common/wxexpr.cpp
+++ b/src/common/wxexpr.cpp
@@ -6,7 +6,7 @@
 // Created:     04/01/98
 // RCS-ID:      $Id$
 // Copyright:   (c) Julian Smart and Markus Holzem
 // Created:     04/01/98
 // RCS-ID:      $Id$
 // Copyright:   (c) Julian Smart and Markus Holzem

-// Licence:    wxWindows license
+// Licence:     wxWindows license

 /////////////////////////////////////////////////////////////////////////////
 
 #ifdef __GNUG__
 /////////////////////////////////////////////////////////////////////////////
 
 #ifdef __GNUG__


@@ -20,21 +20,13 @@
 #pragma hdrstop
 #endif
 
 #pragma hdrstop
 #endif
 

-#if wxUSE_IOSTREAMH
-#include <fstream.h>
-#else
-#include <fstream>
-#  ifdef _MSC_VER
-      using namespace std;
-#  endif
-#endif
+#if wxUSE_PROLOGIO

 
 #include <stdarg.h>
 #include <ctype.h>
 #include <string.h>
 
 #include "wx/utils.h"
 
 #include <stdarg.h>
 #include <ctype.h>
 #include <string.h>
 
 #include "wx/utils.h"

-

 #include "wx/expr.h"
 #include "wx/wxexpr.h"
 
 #include "wx/expr.h"
 #include "wx/wxexpr.h"
 


@@ -42,10 +34,77 @@ extern "C" void add_expr(char *);
 extern "C" void LexFromFile(FILE *fd);
 extern "C" void LexFromString(char *buf);
 
 extern "C" void LexFromFile(FILE *fd);
 extern "C" void LexFromString(char *buf);
 

-#ifndef USE_SHARED_LIBRARY
-IMPLEMENT_DYNAMIC_CLASS(wxExprDatabase, wxList)
+
+
+/* Rename all YACC/LEX stuff or we'll conflict with other
+ * applications
+ */
+
+#define yyback PROIO_yyback
+#define yylook PROIO_yylook
+#define yywrap PROIO_yywrap
+#define yyoutput PROIO_yyoutput
+#define yylex PROIO_yylex
+#define yyerror PROIO_yyerror
+#define yyleng PROIO_yyleng
+#define yytext PROIO_yytext
+#define yymorfg PROIO_yymorfg
+#define yylineno PROIO_yylineno
+#define yytchar PROIO_yytchar
+#define yyin PROIO_yyin
+#define yyout PROIO_yyout
+#define yysvf PROIO_yysvf
+#define yyestate PROIO_yyestate
+#define yysvec PROIO_yysvec
+#define yybgin PROIO_yybgin
+#define yyprevious PROIO_yyprevious
+#define yylhs PROIO_yylhs
+#define yylen PROIO_yylen
+#define yydefred PROIO_yydefred
+#define yydgoto PROIO_yydgoto
+#define yysindex PROIO_yysindex
+#define yyrindex PROIO_yyrindex
+#define yygindex PROIO_yygindex
+#define yytable PROIO_yytable
+#define yycheck PROIO_yycheck
+#define yyname PROIO_yyname
+#define yyrule PROIO_yyrule
+#define yydebug PROIO_yydebug
+#define yynerrs PROIO_yynerrs
+#define yyerrflag PROIO_yyerrflag
+#define yychar PROIO_yychar
+#define yyvsp PROIO_yyvsp
+#define yyssp PROIO_yyssp
+#define yyval PROIO_yyval
+#define yylval PROIO_yylval
+#define yyss PROIO_yyss
+#define yyvs PROIO_yyvs
+#define yyparse PROIO_yyparse
+
+/* +++steve162e: more defines necessary */
+#define yy_init_buffer PROIO_yy_init_buffer
+#define yy_create_buffer PROIO_yy_create_buffer
+#define yy_load_buffer_state PROIO_yy_load_buffer_state
+#define yyrestart PROIO_yyrestart
+#define yy_switch_to_buffer PROIO_yy_switch_to_buffer
+#define yy_delete_buffer PROIO_yy_delete_buffer
+/* ---steve162e */
+
+/* WG 1/96: still more for flex 2.5 */
+#define yy_scan_buffer PROIO_scan_buffer
+#define yy_scan_string PROIO_scan_string
+#define yy_scan_bytes PROIO_scan_bytes
+#define yy_flex_debug PROIO_flex_debug
+#define yy_flush_buffer PROIO_flush_buffer
+#if !defined(__VISAGECPP__)
+/* multiply defined??? */
+#define yyleng PROIO_yyleng
+#define yytext PROIO_yytext

 #endif
 
 #endif
 

+extern "C" WXDLLEXPORT_DATA(FILE*) yyin;
+extern "C" WXDLLEXPORT int yyparse(void);
+

 
 wxExprDatabase *thewxExprDatabase = NULL;
 wxExprErrorHandler currentwxExprErrorHandler;
 
 wxExprDatabase *thewxExprDatabase = NULL;
 wxExprErrorHandler currentwxExprErrorHandler;


@@ -69,10 +128,10 @@ wxExpr::wxExpr(wxExprType the_type, const wxString& word_or_string)
   switch (the_type)
   {
    case wxExprWord:
   switch (the_type)
   {
    case wxExprWord:

-    value.word = copystring((const char *)word_or_string);
+    value.word = copystring((const wxChar *)word_or_string);

     break;
    case wxExprString:
     break;
    case wxExprString:

-    value.string = copystring((const char *)word_or_string);
+    value.string = copystring((const wxChar *)word_or_string);

     break;
    case wxExprList:
     last = NULL;
     break;
    case wxExprList:
     last = NULL;


@@ -87,7 +146,7 @@ wxExpr::wxExpr(wxExprType the_type, const wxString& word_or_string)
   next = NULL;
 }
 
   next = NULL;
 }
 

-wxExpr::wxExpr(wxExprType the_type, char *word_or_string, bool allocate)
+wxExpr::wxExpr(wxExprType the_type, wxChar *word_or_string, bool allocate)

 {
   type = the_type;
 
 {
   type = the_type;
 


@@ -262,7 +321,7 @@ wxExpr *wxExpr::GetAttributeValueNode(const wxString& word) const // Use only fo
       {
         wxExpr *secondNode = firstNode->next;
         if ((secondNode->type == wxExprWord) && 
       {
         wxExpr *secondNode = firstNode->next;
         if ((secondNode->type == wxExprWord) && 

-            (strcmp((const char *)word, secondNode->value.word) == 0))
+            (wxStrcmp((const wxChar *)word, secondNode->value.word) == 0))

         {
           return expr;
         }
         {
           return expr;
         }


@@ -289,12 +348,12 @@ wxExpr *wxExpr::AttributeValue(const wxString& word) const // Use only for a cla
 wxString wxExpr::Functor(void) const // Use only for a clause
 {
   if ((type != wxExprList) || !value.first)
 wxString wxExpr::Functor(void) const // Use only for a clause
 {
   if ((type != wxExprList) || !value.first)

-    return wxString("");
+    return wxString(wxT(""));

 
   if (value.first->type == wxExprWord)
     return wxString(value.first->value.word);
   else
 
   if (value.first->type == wxExprWord)
     return wxString(value.first->value.word);
   else

-    return wxString("");
+    return wxString(wxT(""));

 }
 
 bool wxExpr::IsFunctor(const wxString& f) const  // Use only for a clause
 }
 
 bool wxExpr::IsFunctor(const wxString& f) const  // Use only for a clause


@@ -303,7 +362,7 @@ bool wxExpr::IsFunctor(const wxString& f) const  // Use only for a clause
     return FALSE;
 
   return (value.first->type == wxExprWord && 
     return FALSE;
 
   return (value.first->type == wxExprWord && 

-          (strcmp((const char *)f, value.first->value.word) == 0));
+          (wxStrcmp((const wxChar *)f, value.first->value.word) == 0));

 }
 
 // Return nth argument of a clause (starting from 1)
 }
 
 // Return nth argument of a clause (starting from 1)


@@ -372,7 +431,7 @@ void wxExpr::DeleteAttributeValue(const wxString& attribute)
       {
         wxExpr *secondNode = firstNode->next;
         if ((secondNode->type == wxExprWord) && 
       {
         wxExpr *secondNode = firstNode->next;
         if ((secondNode->type == wxExprWord) && 

-            (strcmp((const char *)attribute, secondNode->value.word) == 0))
+            (wxStrcmp((const wxChar *)attribute, secondNode->value.word) == 0))

         {
           wxExpr *nextExpr = expr->next;
           delete expr;
         {
           wxExpr *nextExpr = expr->next;
           delete expr;


@@ -404,7 +463,7 @@ void wxExpr::AddAttributeValue(const wxString& attribute, wxExpr *val)
 //  DeleteAttributeValue(attribute);
 
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
 //  DeleteAttributeValue(attribute);
 
   wxExpr *patt = new wxExpr(wxExprWord, attribute);

-  wxExpr *pequals = new wxExpr(wxExprWord, "=");
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

 
   wxExpr *listExpr = new wxExpr(wxExprList);
 
 
   wxExpr *listExpr = new wxExpr(wxExprList);
 


@@ -428,7 +487,7 @@ void wxExpr::AddAttributeValue(const wxString& attribute, long val)
 
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
   wxExpr *pval = new wxExpr(val);
 
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
   wxExpr *pval = new wxExpr(val);

-  wxExpr *pequals = new wxExpr(wxExprWord, "=");
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

 
   wxExpr *listExpr = new wxExpr(wxExprList);
 
 
   wxExpr *listExpr = new wxExpr(wxExprList);
 


@@ -450,7 +509,7 @@ void wxExpr::AddAttributeValue(const wxString& attribute, double val)
 //  DeleteAttributeValue(attribute);
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
   wxExpr *pval = new wxExpr(val);
 //  DeleteAttributeValue(attribute);
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
   wxExpr *pval = new wxExpr(val);

-  wxExpr *pequals = new wxExpr(wxExprWord, "=");
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

 
   wxExpr *listExpr = new wxExpr(wxExprList);
 
 
   wxExpr *listExpr = new wxExpr(wxExprList);
 


@@ -473,7 +532,7 @@ void wxExpr::AddAttributeValueString(const wxString& attribute, const wxString&
 
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
   wxExpr *pval = new wxExpr(wxExprString, val);
 
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
   wxExpr *pval = new wxExpr(wxExprString, val);

-  wxExpr *pequals = new wxExpr(wxExprWord, "=");
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

 
   wxExpr *listExpr = new wxExpr(wxExprList);
 
 
   wxExpr *listExpr = new wxExpr(wxExprList);
 


@@ -496,7 +555,7 @@ void wxExpr::AddAttributeValueWord(const wxString& attribute, const wxString& va
 
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
   wxExpr *pval = new wxExpr(wxExprWord, val);
 
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
   wxExpr *pval = new wxExpr(wxExprWord, val);

-  wxExpr *pequals = new wxExpr(wxExprWord, "=");
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

 
   wxExpr *listExpr = new wxExpr(wxExprList);
 
 
   wxExpr *listExpr = new wxExpr(wxExprList);
 


@@ -521,7 +580,7 @@ void wxExpr::AddAttributeValue(const wxString& attribute, wxList *val)
 
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
   wxExpr *pval = new wxExpr(val);
 
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
   wxExpr *pval = new wxExpr(val);

-  wxExpr *pequals = new wxExpr(wxExprWord, "=");
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

 
   wxExpr *listExpr = new wxExpr(wxExprList);
 
 
   wxExpr *listExpr = new wxExpr(wxExprList);
 


@@ -549,7 +608,7 @@ void wxExpr::AddAttributeValueStringList(const wxString& attribute, wxList *stri
   wxNode *node = string_list->First();
   while (node)
   {
   wxNode *node = string_list->First();
   while (node)
   {

-    char *string = (char *)node->Data();
+    wxChar *string = (wxChar*)node->GetData();

     wxExpr *expr = new wxExpr(wxExprString, wxString(string));
     listExpr->Append(expr);
     node = node->Next();
     wxExpr *expr = new wxExpr(wxExprString, wxString(string));
     listExpr->Append(expr);
     node = node->Next();


@@ -557,7 +616,7 @@ void wxExpr::AddAttributeValueStringList(const wxString& attribute, wxList *stri
 
   // Now make an (=, Att, Value) triple
   wxExpr *patt = new wxExpr(wxExprWord, attribute);
 
   // Now make an (=, Att, Value) triple
   wxExpr *patt = new wxExpr(wxExprWord, attribute);

-  wxExpr *pequals = new wxExpr(wxExprWord, "=");
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

 
   wxExpr *listExpr2 = new wxExpr(wxExprList);
 
 
   wxExpr *listExpr2 = new wxExpr(wxExprList);
 


@@ -667,18 +726,18 @@ bool wxExpr::GetAttributeValueStringList(const wxString& att, wxList *var) const
 }
 
 // Compatibility
 }
 
 // Compatibility

-void wxExpr::AssignAttributeValue(char *att, char **var) const
+void wxExpr::AssignAttributeValue(wxChar *att, wxChar **var) const

 {
   wxString str;
   if (GetAttributeValue(att, str))
   {
     if (*var)
       delete[] *var;
 {
   wxString str;
   if (GetAttributeValue(att, str))
   {
     if (*var)
       delete[] *var;

-    *var = copystring((const char *) str);
+    *var = copystring((const wxChar *) str);

   }
 }
 
   }
 }
 

-void wxExpr::WriteClause(ostream& stream)  // Write this expression as a top-level clause
+void wxExpr::WriteClause(FILE* stream)  // Write this expression as a top-level clause

 {
   if (type != wxExprList)
     return;
 {
   if (type != wxExprList)
     return;


@@ -687,23 +746,24 @@ void wxExpr::WriteClause(ostream& stream)  // Write this expression as a top-lev
   if (node)
   {
     node->WriteExpr(stream);
   if (node)
   {
     node->WriteExpr(stream);

-    stream << "(";
+    fprintf( stream, "(" );

     node = node->next;
     bool first = TRUE;
     while (node)
     {
       if (!first)
     node = node->next;
     bool first = TRUE;
     while (node)
     {
       if (!first)

-        stream << "  ";
+        fprintf( stream, "  " );

       node->WriteExpr(stream);
       node = node->next;
       node->WriteExpr(stream);
       node = node->next;

-      if (node) stream << ",\n";
+      if (node) 
+        fprintf( stream, ",\n" );

       first = FALSE;
     }
       first = FALSE;
     }

-    stream << ").\n\n";
+    fprintf( stream, ").\n\n" );

   }
 }
 
   }
 }
 

-void wxExpr::WriteExpr(ostream& stream)    // Write as any other subexpression
+void wxExpr::WriteExpr(FILE* stream)    // Write as any other subexpression

 {
   // This seems to get round an optimizer bug when
   // using Watcom C++ 10a in WIN32 compilation mode.
 {
   // This seems to get round an optimizer bug when
   // using Watcom C++ 10a in WIN32 compilation mode.


@@ -720,89 +780,87 @@ void wxExpr::WriteExpr(ostream& stream)    // Write as any other subexpression
   {
     case wxExprInteger:
     {
   {
     case wxExprInteger:
     {

-      stream << value.integer;
+      fprintf( stream, "%ld", value.integer );

       break;
     }
     case wxExprReal:
     {
       double f = value.real;
       break;
     }
     case wxExprReal:
     {
       double f = value.real;

-/* Now the parser can cope with this.
-      // Prevent printing in 'e' notation. Any better way?
-      if (fabs(f) < 0.00001)
-        f = 0.0;
-*/
-      char buf[40];
-      sprintf(buf, "%.6g", f);
-      stream << buf;
+      fprintf( stream, "%.6g", f);

       break;
     }
     case wxExprString:
     {
       break;
     }
     case wxExprString:
     {

-      stream << "\"";
-      int i;
-      int len = strlen(value.string);
+      fprintf( stream, "\"" );
+      size_t i;
+      const wxWX2MBbuf val = wxConvLibc.cWX2MB(value.string);
+      size_t len = strlen(val);

       for (i = 0; i < len; i++)
       {
       for (i = 0; i < len; i++)
       {

-        char ch = value.string[i];
+        char ch = val[i];

         if (ch == '"' || ch == '\\')
         if (ch == '"' || ch == '\\')

-          stream << "\\";
-        stream << ch;
+        fprintf( stream, "\\" );
+        char tmp[2];
+        tmp[0] = ch;
+        tmp[1] = 0;
+        fprintf( stream, tmp );

       }
       }

-
-      stream << "\"";
+      fprintf( stream, "\"" );

       break;
     }
     case wxExprWord:
     {
       bool quote_it = FALSE;
       break;
     }
     case wxExprWord:
     {
       bool quote_it = FALSE;

-      int len = strlen(value.word);
-      if ((len == 0) || (len > 0 && (value.word[0] > 64 && value.word[0] < 91)))
+      const wxWX2MBbuf val = wxConvLibc.cWX2MB(value.word);
+      size_t len = strlen(val);
+      if ((len == 0) || (len > 0 && (val[(size_t) 0] > 64 && val[(size_t) 0] < 91)))

         quote_it = TRUE;
       else
       {
         quote_it = TRUE;
       else
       {

-        int i;
+        size_t i;

         for (i = 0; i < len; i++)
         for (i = 0; i < len; i++)

-          if ((!isalpha(value.word[i])) && (!isdigit(value.word[i])) &&
-              (value.word[i] != '_'))
+          if ((!isalpha(val[i])) && (!isdigit(val[i])) &&
+              (val[i] != '_'))

             { quote_it = TRUE; i = len; }
       }
 
       if (quote_it)
             { quote_it = TRUE; i = len; }
       }
 
       if (quote_it)

-        stream << "'";
+        fprintf( stream ,"'" );

 
 

-      stream << value.word;
+      fprintf( stream, val );

 
       if (quote_it)
 
       if (quote_it)

-        stream << "'";
+        fprintf( stream, "'" );

 
       break;
     }
     case wxExprList:
     {
       if (!value.first)
 
       break;
     }
     case wxExprList:
     {
       if (!value.first)

-        stream << "[]";
+        fprintf( stream, "[]" );

       else
       {
         wxExpr *expr = value.first;
 
       else
       {
         wxExpr *expr = value.first;
 

-        if ((expr->Type() == wxExprWord) && (strcmp(expr->WordValue(), "=") == 0))
+        if ((expr->Type() == wxExprWord) && (wxStrcmp(expr->WordValue(), wxT("=")) == 0))

         {
           wxExpr *arg1 = expr->next;
           wxExpr *arg2 = arg1->next;
           arg1->WriteExpr(stream);
         {
           wxExpr *arg1 = expr->next;
           wxExpr *arg2 = arg1->next;
           arg1->WriteExpr(stream);

-          stream << " = ";
+          fprintf( stream, " = " );

           arg2->WriteExpr(stream);
         }
         else
         {
           arg2->WriteExpr(stream);
         }
         else
         {

-          stream << "[";
+          fprintf( stream, "[" );

           while (expr)
           {
             expr->WriteExpr(stream);
             expr = expr->next;
           while (expr)
           {
             expr->WriteExpr(stream);
             expr = expr->next;

-            if (expr) stream << ", ";
+            if (expr) 
+               fprintf( stream, ", " );

           }
           }

-          stream << "]";
+          fprintf( stream, "]" );

         }
       }
       break;
         }
       }
       break;


@@ -811,56 +869,11 @@ void wxExpr::WriteExpr(ostream& stream)    // Write as any other subexpression
   }
 }
 
   }
 }
 

-void wxExpr::WriteLispExpr(ostream& stream)
-{
-  switch (type)
-  {
-    case wxExprInteger:
-    {
-      stream << value.integer;
-      break;
-    }
-    case wxExprReal:
-    {
-      stream << value.real;
-      break;
-    }
-    case wxExprString:
-    {
-      stream << "\"" << value.string << "\"";
-      break;
-    }
-    case wxExprWord:
-    {
-      stream << value.word;
-      break;
-    }
-    case wxExprList:
-    {
-      wxExpr *expr = value.first;
-
-      stream << "(";
-      while (expr)
-      {
-        expr->WriteLispExpr(stream);
-        expr = expr->next;
-        if (expr) stream << " ";
-      }
-
-      stream << ")";
-      break;
-    }
-   case wxExprNull: break;
-  }
-}
-

 /*
  * wxExpr 'database' (list of expressions)
  */
  
 /*
  * wxExpr 'database' (list of expressions)
  */
  

-#if !USE_SHARED_LIBRARIES

 IMPLEMENT_DYNAMIC_CLASS(wxExprDatabase, wxList)
 IMPLEMENT_DYNAMIC_CLASS(wxExprDatabase, wxList)

-#endif

 
 wxExprDatabase::wxExprDatabase(wxExprErrorHandler handler)
 {
 
 wxExprDatabase::wxExprDatabase(wxExprErrorHandler handler)
 {


@@ -907,7 +920,7 @@ wxExpr *wxExprDatabase::FindClause(long id)  // Find a term based on an integer
     
     if (term->Type() == wxExprList)
     {
     
     if (term->Type() == wxExprList)
     {

-      wxExpr *value = term->AttributeValue("id");
+      wxExpr *value = term->AttributeValue(wxT("id"));

       if (value->Type() == wxExprInteger && value->IntegerValue() == id)
         found = term;
     }
       if (value->Type() == wxExprInteger && value->IntegerValue() == id)
         found = term;
     }


@@ -999,12 +1012,12 @@ void wxExprDatabase::Append(wxExpr *clause)
     wxExpr *expr = clause->AttributeValue(attribute_to_hash);
     if (expr)
     {
     wxExpr *expr = clause->AttributeValue(attribute_to_hash);
     if (expr)
     {

-      long functor_key = hash_table->MakeKey((char *)(const char *)functor);
+      long functor_key = hash_table->MakeKey(WXSTRINGCAST functor);

       long value_key = 0;
       if (expr && expr->Type() == wxExprString)
       {
       long value_key = 0;
       if (expr && expr->Type() == wxExprString)
       {

-        value_key = hash_table->MakeKey((char *)(const char *)expr->StringValue());
-        hash_table->Put(functor_key + value_key, (char *)(const char *)expr->StringValue(), (wxObject *)clause);
+        value_key = hash_table->MakeKey(WXSTRINGCAST expr->StringValue());
+        hash_table->Put(functor_key + value_key, WXSTRINGCAST expr->StringValue(), (wxObject *)clause);

       }
       else if (expr && expr->Type() == wxExprInteger)
       {
       }
       else if (expr && expr->Type() == wxExprInteger)
       {


@@ -1018,7 +1031,7 @@ void wxExprDatabase::Append(wxExpr *clause)
 
 wxExpr *wxExprDatabase::HashFind(const wxString& functor, long value) const
 {
 
 wxExpr *wxExprDatabase::HashFind(const wxString& functor, long value) const
 {

-  long key = hash_table->MakeKey((char *)(const char *)functor) + value;
+  long key = hash_table->MakeKey(WXSTRINGCAST functor) + value;

 
   // The key alone isn't guaranteed to be unique:
   // must supply value too. Let's assume the value of the
 
   // The key alone isn't guaranteed to be unique:
   // must supply value too. Let's assume the value of the


@@ -1028,8 +1041,8 @@ wxExpr *wxExprDatabase::HashFind(const wxString& functor, long value) const
 
 wxExpr *wxExprDatabase::HashFind(const wxString& functor, const wxString& value) const
 {
 
 wxExpr *wxExprDatabase::HashFind(const wxString& functor, const wxString& value) const
 {

-  long key = hash_table->MakeKey((char *)(const char *)functor) + hash_table->MakeKey((char *)(const char *)value);
-  return (wxExpr *)hash_table->Get(key, (char *)(const char *)value);
+  long key = hash_table->MakeKey(WXSTRINGCAST functor) + hash_table->MakeKey(WXSTRINGCAST value);
+  return (wxExpr *)hash_table->Get(key, WXSTRINGCAST value);

 }
 
 void wxExprDatabase::ClearDatabase(void)
 }
 
 void wxExprDatabase::ClearDatabase(void)


@@ -1052,7 +1065,7 @@ bool wxExprDatabase::Read(const wxString& filename)
 {
   noErrors = 0;
 
 {
   noErrors = 0;
 

-  FILE *f = fopen((const char *)filename, "r");
+  FILE *f = wxFopen(filename, _T("r"));

   if (f)
   {
     thewxExprDatabase = this;
   if (f)
   {
     thewxExprDatabase = this;


@@ -1075,7 +1088,8 @@ bool wxExprDatabase::ReadFromString(const wxString& buffer)
   noErrors = 0;
   thewxExprDatabase = this;
 
   noErrors = 0;
   thewxExprDatabase = this;
 

-  LexFromString((char *)(const char *)buffer);
+  const wxWX2MBbuf buf = buffer.mb_str();
+  LexFromString(wxMBSTRINGCAST buf);

   yyparse();
   wxExprCleanUp();
   return (noErrors == 0);
   yyparse();
   wxExprCleanUp();
   return (noErrors == 0);


@@ -1083,13 +1097,17 @@ bool wxExprDatabase::ReadFromString(const wxString& buffer)
 
 bool wxExprDatabase::Write(const wxString& fileName)
 {
 
 bool wxExprDatabase::Write(const wxString& fileName)
 {

-  ofstream str((char *)(const char *)fileName);
-  if (str.bad())
+  FILE *stream = wxFopen( fileName, _T("w+"));
+  
+  if (!stream)

     return FALSE;
     return FALSE;

-  return Write(str);
+    
+  bool success = Write(stream);
+  fclose(stream);
+  return success;

 }
 
 }
 

-bool wxExprDatabase::Write(ostream& stream)
+bool wxExprDatabase::Write(FILE *stream)

 {
   noErrors = 0;
   wxNode *node = First();
 {
   noErrors = 0;
   wxNode *node = First();


@@ -1102,19 +1120,6 @@ bool wxExprDatabase::Write(ostream& stream)
   return (noErrors == 0);
 }
 
   return (noErrors == 0);
 }
 

-void wxExprDatabase::WriteLisp(ostream& stream)
-{
-  noErrors = 0;
-  wxNode *node = First();
-  while (node)
-  {
-    wxExpr *expr = (wxExpr *)node->Data();
-    expr->WriteLispExpr(stream);
-    stream << "\n\n";
-    node = node->Next();
-  }
-}
-

 void add_expr(wxExpr * expr)
 {
   thewxExprDatabase->Append(expr);
 void add_expr(wxExpr * expr)
 {
   thewxExprDatabase->Append(expr);


@@ -1142,14 +1147,14 @@ bool wxExprIsFunctor(wxExpr *expr, const wxString& functor)
  *
  */
 
  *
  */
 

-char *make_integer(char *str)
+char *wxmake_integer(char *str)

 {
   wxExpr *x = new wxExpr(atol(str));
 
   return (char *)x;
 }
 
 {
   wxExpr *x = new wxExpr(atol(str));
 
   return (char *)x;
 }
 

-char *make_real(char *str1, char *str2)
+char *wxmake_real(char *str1, char *str2)

 {
   char buf[50];
 
 {
   char buf[50];
 


@@ -1162,7 +1167,7 @@ char *make_real(char *str1, char *str2)
 
 // extern "C" double exp10(double);
 
 
 // extern "C" double exp10(double);
 

-char *make_exp(char *str1, char *str2)
+char *wxmake_exp(char *str1, char *str2)

 {
   double mantissa = (double)atoi(str1);
   double exponent = (double)atoi(str2);
 {
   double mantissa = (double)atoi(str1);
   double exponent = (double)atoi(str2);


@@ -1174,7 +1179,7 @@ char *make_exp(char *str1, char *str2)
   return (char *)x;
 }
 
   return (char *)x;
 }
 

-char *make_exp2(char *str1, char *str2, char *str3)
+char *wxmake_exp2(char *str1, char *str2, char *str3)

 {
   char buf[50];
 
 {
   char buf[50];
 


@@ -1189,40 +1194,41 @@ char *make_exp2(char *str1, char *str2, char *str3)
   return (char *)x;
 }
 
   return (char *)x;
 }
 

-char *make_word(char *str)
+char *wxmake_word(char *str)

 {
 {

-  wxExpr *x = new wxExpr(wxExprWord, str);
+  wxExpr *x = new wxExpr(wxExprWord, wxString(str, wxConvLibc).c_str());

   return (char *)x;
 }
 
   return (char *)x;
 }
 

-char *make_string(char *str)
+char *wxmake_string(char *str)

 {
 {

-  char *s, *t;
-  int len, i;
+  wxChar *s, *t;
+  size_t len, i;
+  const wxMB2WXbuf sbuf = wxConvLibc.cMB2WX(str);

 
 

-  str++;                       /* skip leading quote */
-  len = strlen(str) - 1;       /* ignore trailing quote */
+//  str++;                     /* skip leading quote */
+  len = wxStrlen(sbuf) - 1;    /* ignore trailing quote */

     
     

-  s = new char[len + 1];
+  s = new wxChar[len + 1];

     
   t = s;
     
   t = s;

-  for(i=0; i<len; i++)
+  for(i=1; i<len; i++) // 1 since we want to skip leading quote

   {
   {

-    if (str[i] == '\\' && str[i+1] == '"')
+    if (sbuf[i] == wxT('\\') && sbuf[i+1] == wxT('"'))

     {
     {

-      *t++ = '"';
+      *t++ = wxT('"');

       i ++;
     }
       i ++;
     }

-    else if (str[i] == '\\' && str[i+1] == '\\')
+    else if (sbuf[i] == wxT('\\') && sbuf[i+1] == wxT('\\'))

     {
     {

-      *t++ = '\\';
+      *t++ = wxT('\\');

       i ++;
     }
     else
       i ++;
     }
     else

-      *t++ = str[i];
+      *t++ = sbuf[i];

   }
 
   }
 

-  *t = '\0';
+  *t = wxT('\0');

 
   wxExpr *x = new wxExpr(wxExprString, s, FALSE);
   return (char *)x;
 
   wxExpr *x = new wxExpr(wxExprString, s, FALSE);
   return (char *)x;


@@ -1251,7 +1257,7 @@ void process_command(char * cexpr)
 void syntax_error(char *WXUNUSED(s))
 {
   if (currentwxExprErrorHandler)
 void syntax_error(char *WXUNUSED(s))
 {
   if (currentwxExprErrorHandler)

-    (void)(*(currentwxExprErrorHandler))(WXEXPR_ERROR_SYNTAX, "syntax error");
+    (void)(*(currentwxExprErrorHandler))(WXEXPR_ERROR_SYNTAX, (char *)"syntax error");

   if (thewxExprDatabase) thewxExprDatabase->noErrors += 1;
 }
 
   if (thewxExprDatabase) thewxExprDatabase->noErrors += 1;
 }
 


@@ -1268,3 +1274,5 @@ WXDLLEXPORT char *strdup(const char *s)
 #endif
 #endif
 
 #endif
 #endif
 

+#endif
+  // wxUSE_PROLOGIO