Added OLE automation sample, changed BC++ makefiles

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

diff --git a/src/common/wxexpr.cpp b/src/common/wxexpr.cpp
index bb046c5fa85dd45c205f673ed1cf6eb835e0af72..39687462f17dbe00715dc01b70ba76d59d1a941f 100644 (file)
--- a/src/common/wxexpr.cpp
+++ b/src/common/wxexpr.cpp
@@ -20,7 +20,15 @@
 #pragma hdrstop
 #endif
 
+#if wxUSE_IOSTREAMH
 #include <fstream.h>
+#else
+#include <fstream>
+#  ifdef _MSC_VER
+      using namespace std;
+#  endif
+#endif
+
 #include <stdarg.h>
 #include <ctype.h>
 #include <string.h>
@@ -34,11 +42,10 @@ extern "C" void add_expr(char *);
 extern "C" void LexFromFile(FILE *fd);
 extern "C" void LexFromString(char *buf);
 
+
 wxExprDatabase *thewxExprDatabase = NULL;
 wxExprErrorHandler currentwxExprErrorHandler;
 
-IMPLEMENT_DYNAMIC_CLASS(wxExprDatabase, wxList)
-
 wxExpr::wxExpr(const wxString& functor)
 {
   type = wxExprList;
@@ -109,7 +116,7 @@ wxExpr::wxExpr(long the_integer)
   next = NULL;
 }
 
-wxExpr::wxExpr(float the_real)
+wxExpr::wxExpr(double the_real)
 {
   type = wxExprReal;
   value.real = the_real;
@@ -428,7 +435,7 @@ void wxExpr::AddAttributeValue(const wxString& attribute, long val)
   Append(listExpr);
 }
 
-void wxExpr::AddAttributeValue(const wxString& attribute, float val)
+void wxExpr::AddAttributeValue(const wxString& attribute, double val)
 {
   if (type != wxExprList)
   {
@@ -584,6 +591,18 @@ bool wxExpr::GetAttributeValue(const wxString& att, long& var) const
 }
 
 bool wxExpr::GetAttributeValue(const wxString& att, float& var) const
+{
+  wxExpr *expr = AttributeValue(att);
+  if (expr && (expr->Type() == wxExprInteger || expr->Type() == wxExprReal))
+  {
+    var = (float) expr->RealValue();
+    return TRUE;
+  }
+  else
+    return FALSE;
+}
+
+bool wxExpr::GetAttributeValue(const wxString& att, double& var) const
 {
   wxExpr *expr = AttributeValue(att);
   if (expr && (expr->Type() == wxExprInteger || expr->Type() == wxExprReal))
@@ -702,7 +721,7 @@ void wxExpr::WriteExpr(ostream& stream)    // Write as any other subexpression
     }
     case wxExprReal:
     {
-      float f = value.real;
+      double f = value.real;
 /* Now the parser can cope with this.
       // Prevent printing in 'e' notation. Any better way?
       if (fabs(f) < 0.00001)
@@ -831,7 +850,14 @@ void wxExpr::WriteLispExpr(ostream& stream)
   }
 }
 
-// wxExpr 'database' (list of expressions)
+/*
+ * wxExpr 'database' (list of expressions)
+ */
+ 
+#if !USE_SHARED_LIBRARIES
+IMPLEMENT_DYNAMIC_CLASS(wxExprDatabase, wxList)
+#endif
+
 wxExprDatabase::wxExprDatabase(wxExprErrorHandler handler)
 {
   position = NULL;
@@ -924,7 +950,7 @@ wxExpr *wxExprDatabase::FindClause(const wxString& word, long val)
   return found;
 }
 
-wxExpr *wxExprDatabase::FindClause(const wxString& word, float val)
+wxExpr *wxExprDatabase::FindClause(const wxString& word, double val)
 {
   wxExpr *found = NULL;
   while (position && !found)
@@ -1124,7 +1150,7 @@ char *make_real(char *str1, char *str2)
   char buf[50];
 
   sprintf(buf, "%s.%s", str1, str2);
-  float f = (float)atof(buf);
+  double f = (double)atof(buf);
   wxExpr *x = new wxExpr(f);
 
   return (char *)x;
@@ -1139,7 +1165,7 @@ char *make_exp(char *str1, char *str2)
 
   double d = mantissa * pow(10.0, exponent);
 
-  wxExpr *x = new wxExpr((float)d);
+  wxExpr *x = new wxExpr(d);
 
   return (char *)x;
 }
@@ -1154,7 +1180,7 @@ char *make_exp2(char *str1, char *str2, char *str3)
 
   double d = mantissa * pow(10.0, exponent);
 
-  wxExpr *x = new wxExpr((float)d);
+  wxExpr *x = new wxExpr(d);
 
   return (char *)x;
 }
@@ -1218,7 +1244,7 @@ void process_command(char * cexpr)
   add_expr(expr);
 }
 
-void syntax_error(char *s)
+void syntax_error(char *WXUNUSED(s))
 {
   if (currentwxExprErrorHandler)
     (void)(*(currentwxExprErrorHandler))(WXEXPR_ERROR_SYNTAX, "syntax error");