Squashed another threading and interpreter lock bug

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

diff --git a/src/common/wxexpr.cpp b/src/common/wxexpr.cpp
index 227efb2850a888fddd05513167cf76477942d4db..9db80bb02826b8df2945548dc283a1218eba7636 100644 (file)
--- a/src/common/wxexpr.cpp
+++ b/src/common/wxexpr.cpp
@@ -20,18 +20,11 @@
 #pragma hdrstop
 #endif
 
 #pragma hdrstop
 #endif
 

-#if wxUSE_IOSTREAMH
-    #include <fstream.h>
-#else
-    #include <fstream>
-#endif
-

 #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"
 


@@ -282,12 +275,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(_T(""));
+    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(_T(""));
+    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


@@ -397,7 +390,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, _T("="));
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

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


@@ -421,7 +414,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, _T("="));
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

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


@@ -443,7 +436,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, _T("="));
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

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


@@ -466,7 +459,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, _T("="));
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

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


@@ -489,7 +482,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, _T("="));
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

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


@@ -514,7 +507,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, _T("="));
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

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


@@ -550,7 +543,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, _T("="));
+  wxExpr *pequals = new wxExpr(wxExprWord, wxT("="));

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


@@ -671,7 +664,7 @@ void wxExpr::AssignAttributeValue(wxChar *att, wxChar **var) const
   }
 }
 
   }
 }
 

-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;


@@ -680,23 +673,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.


@@ -713,43 +707,38 @@ 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 << "\"";
+      fprintf( stream, "\"" );

       int i;
       int i;

-      const wxWX2MBbuf val = wxConv_libc.cWX2MB(value.string);
+      const wxWX2MBbuf val = wxConvLibc.cWX2MB(value.string);

       int len = strlen(val);
       for (i = 0; i < len; i++)
       {
         char ch = val[i];
         if (ch == '"' || ch == '\\')
       int len = strlen(val);
       for (i = 0; i < len; i++)
       {
         char ch = val[i];
         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;

-      const wxWX2MBbuf val = wxConv_libc.cWX2MB(value.word);
+      const wxWX2MBbuf val = wxConvLibc.cWX2MB(value.word);

       int len = strlen(val);
       if ((len == 0) || (len > 0 && (val[0] > 64 && val[0] < 91)))
         quote_it = TRUE;
       int len = strlen(val);
       if ((len == 0) || (len > 0 && (val[0] > 64 && val[0] < 91)))
         quote_it = TRUE;


@@ -763,41 +752,42 @@ void wxExpr::WriteExpr(ostream& stream)    // Write as any other subexpression
       }
 
       if (quote_it)
       }
 
       if (quote_it)

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

 
 

-      stream << val;
+      fprintf( stream, (const char*) 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) && (wxStrcmp(expr->WordValue(), _T("=")) == 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;


@@ -806,49 +796,6 @@ 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)
  */


@@ -1071,7 +1018,7 @@ bool wxExprDatabase::ReadFromString(const wxString& buffer)
   thewxExprDatabase = this;
 
   const wxWX2MBbuf buf = buffer.mb_str();
   thewxExprDatabase = this;
 
   const wxWX2MBbuf buf = buffer.mb_str();

-  LexFromString(MBSTRINGCAST buf);
+  LexFromString(wxMBSTRINGCAST buf);

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


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

-  ofstream str(MBSTRINGCAST fileName.mb_str());
-  if (str.bad())
+  FILE *stream = fopen( fileName.fn_str(), "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();


@@ -1098,19 +1049,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);


@@ -1195,7 +1133,7 @@ char *wxmake_string(char *str)
 {
   wxChar *s, *t;
   int len, i;
 {
   wxChar *s, *t;
   int len, i;

-  const wxMB2WXbuf sbuf = wxConv_libc.cMB2WX(str);
+  const wxMB2WXbuf sbuf = wxConvLibc.cMB2WX(str);

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


@@ -1205,21 +1143,21 @@ char *wxmake_string(char *str)
   t = s;
   for(i=1; i<len; i++) // 1 since we want to skip leading quote
   {
   t = s;
   for(i=1; i<len; i++) // 1 since we want to skip leading quote
   {

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

     {
     {

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

       i ++;
     }
       i ++;
     }

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

     {
     {

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

       i ++;
     }
     else
       *t++ = sbuf[i];
   }
 
       i ++;
     }
     else
       *t++ = sbuf[i];
   }
 

-  *t = _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;