Modifiche dalla versione Linux sulla 2.1

git-svn-id: svn://10.65.10.50/trunk@11840 c028cbd2-c16b-5b4b-a496-9718f37d4682

include/applicat.cpp

@@ -501,7 +501,7 @@ bool TApplication::remove_menu(MENU_TAG id)
 
 
 TApplication::TApplication()
-            : _savefirm(0), _running(FALSE), _create_ok(FALSE), _god_vars(NULL)
+            : _god_vars(NULL),_savefirm(0),  _running(FALSE), _create_ok(FALSE)
 {
 }
 
@@ -556,7 +556,8 @@ const char* TApplication::get_module_name() const
     TScanner scanner(AUT_FILE);
   
     bool ok = FALSE;
-    for (int aut = 0; scanner.line() != ""; aut++)
+    int aut;
+    for (aut = 0; scanner.line() != ""; aut++)
       if (strncmp(scanner.token(), _name, 2) == 0) 
       { ok = TRUE; break; }
     module = scanner.token().mid(3);
@@ -908,7 +909,7 @@ bool TApplication::build_firm_data(long codditta, bool flagcom)
     prefix().set_codditta(codditta);
     dir.put(i, _nordir, _sysdirop);
     rec.put(i);
-    const char* name = dir.name();
+  //  const char* name = dir.name();
     dir.flags() = 0L;
     create_now = create_now && (flagcom ? dir.is_com() : dir.is_firm());
     

include/archives.cpp

@@ -276,7 +276,7 @@ bool TArchive::fsplit_zip(
     do_events();
   } 
 
-  const long minsize = 360*1024L;
+  const unsigned long minsize = 360*1024L;
   if (size < minsize)
     size = minsize;
 

include/config.cpp

@@ -117,8 +117,18 @@ void TConfig::_write_file()
     
   if (_file.exist())  
   {
-    // ifstream in(_file, ios::in | ios::nocreate, filebuf::sh_read);       // PARKED
+#ifdef WIN32
+
     ifstream in(_file, ios::in | ios::nocreate);
+
+#else      
+
+    ifstream in(_file, ios::in);
+
+#endif      
+
+
+
     if (in.good()) 
     {
       TString l(1024);
@@ -531,9 +541,11 @@ word TConfig::items(
   // @comm Il paragrafo passato in <p section> diventa quello attivo.
   //       <nl>Possono esserci dei "buchi" causati da set() errate
 {
+  int cnt;
+
   if (section && *section)
     set_paragraph(section);
-  for (int cnt = 0; exist(var, cnt); cnt++);
+  for (cnt = 0; exist(var, cnt); cnt++);
   return cnt;
 }
 
@@ -739,11 +751,10 @@ TConfig::TConfig(int which_config, const char* paragraph)
         TString16 u = user();
         if (u.blank())
           u = ::dongle().administrator();
-        else
+        u.lower();
-          u.upper();
         _file.add(u);
         _file.ext("ini");
-        if (u != "ADMIN" && !_file.exist()) 
+        if (u != "admin" && !_file.exist())
         {
           TFilename prassi = _file.path();
           prassi.add("admin.ini");

include/diction.h

@@ -5,8 +5,10 @@
 #include <strings.h>
 #endif
 
+#ifdef WIN32
 #define TO_BE_TRANSLATED   "\03\02\01\00"
 #define ALREADY_TRANSLATED "\01\02\03\00"
+#endif
 
 #ifndef XVT_INCL_XVT
 typedef unsigned long WINDOW;
@@ -27,10 +29,19 @@ void dictionary_translate_menu(WINDOW win);
 bool dictionary_active();
 void dictionary_close();
 
+
+#ifdef WIN32
 #define TR(str) dictionary_translate_macro(TO_BE_TRANSLATED##str)
 #define PR(str) dictionary_translate_macro_prompt(TO_BE_TRANSLATED##str)
 #define BR(str, len) dictionary_translate_macro_prompt(TO_BE_TRANSLATED##str, len)
 #define HR(str) dictionary_translate_macro_header(TO_BE_TRANSLATED##str)
 #define FR(str) dictionary_translate_macro(TO_BE_TRANSLATED##str)
+#else
+#define TR(str) dictionary_translate_macro(str)
+#define PR(str) dictionary_translate_macro_prompt(str)
+#define BR(str, len) dictionary_translate_macro_prompt(str, len)
+#define HR(str) dictionary_translate_macro_header(str)
+#define FR(str) dictionary_translate_macro(str)
+#endif
 
 #endif

include/progind.cpp

@@ -23,8 +23,8 @@ word TIndwin::measure_text(TToken_string& s, word& maxlen) const
 
 // Certified 70%
 TIndwin::TIndwin(long tot, const char* txt, bool cancel,  bool bar, int div)
-       : _text(NULL), _cancel(NULL), _bar(0),
+       : _text(NULL), _cancel(NULL),
-         _status(0L), _max(tot), _flags(0x0)
+         _bar(0), _flags(0x0), _max(tot), _status(0L)
 {
   TToken_string testo(txt, '\n');
   word maxlen = div;

include/real.cpp

@@ -1,6 +1,7 @@
 #include <ctype.h>
 #include <stdlib.h>
 
+#include <xvt.h>
 #include <real.h>
 
 const real ZERO(0.0);
@@ -575,6 +576,7 @@ const char *real::string (
   return s;
 }
 
+
 // @doc EXTERNAL
 
 // @func ostream& | operator <lt><lt> | Permette di reindirizzare il numero
@@ -1484,7 +1486,7 @@ const char* real::string(const char *picture) const
     return string ();
   if (*picture == '.')
     return points (atoi (picture + 1));
-  if (stricmp (picture, "LETTERE") == 0)
+  if (xvt_str_compare_ignoring_case(picture, "LETTERE") == 0)
     return literals ();
 
   TString v (string());
@@ -1513,7 +1515,8 @@ const char* real::string(const char *picture) const
 
   int j = v.len () - 1;
   bool sign(FALSE);
-  for (int i = f.len () - 1; i >= 0 && j >= 0; i--)
+  int i;
+  for (i = f.len () - 1; i >= 0 && j >= 0; i--)
   {
     char &z = f[i];
     if (strchr ("#@^", z))

include/utility.cpp

@@ -1,6 +1,8 @@
 #include <xvt.h>
 #include <errno.h>
+#ifdef WIN32
 #include <direct.h>
+#endif
 
 #include <diction.h>
 #include <strings.h>
@@ -30,7 +32,7 @@ bool fcopy(
   const char* wflag = append ? "ab" : "wb";
   
   // Copia il file su se stesso?
-  if (stricmp(orig, dest) == 0)
+  if (xvt_str_compare_ignoring_case(orig, dest) == 0)
     return TRUE;  // Or FALSE?
 
   FILE* i = fopen(orig, rflag);
@@ -106,11 +108,23 @@ long fsize(const char* name)
 //
 // @flag TRUE | Se l'operazione e' avvenuta con successo
 // @flag FALSE | Se l'operazione non e' riuscita
-bool make_dir(
+bool make_dir(const char* dir) // @parm Nome della directory da creare
-  const char* dir) // @parm Nome della directory da creare
 {
-  int res = mkdir(dir);
+  return xvt_fsys_mkdir(dir);
-  return res == 0;
+}
+
+
+// @doc EXTERNAL
+
+// @func Cancella un file
+//
+// @rdesc Ritorna il risultato dell'operazione
+//
+// @flag TRUE | Se l'operazione e' avvenuta con successo
+// @flag FALSE | Se l'operazione non e' riuscita
+bool remove_file(const char* file) // @parm Nome della directory da creare
+{
+  return xvt_fsys_removefile(file);
 }
 
 // @doc EXTERNAL
@@ -126,7 +140,9 @@ int list_files(
   
 {             
   TFilename dir(filelist);
-  for (int i = dir.len()-1; i >= 0; i--)
+  int i;
+  
+  for (i = dir.len()-1; i >= 0; i--)
     if (dir[i] == '/' || dir[i] == '\\' || dir[i] == ':') break;
   
   TFilename mask(dir.mid(i+1));
@@ -452,7 +468,8 @@ const char * encode(
   // @xref <f decode>
 {
   char* tmp = get_tmp_string(50).get_buffer();
-  for (int i = 0; data[i]; i++)
+  int i;
+  for (i = 0; data[i]; i++)
     tmp[i] = data[i] + (i < 8 ? encryption_key[i] : data[i - 8]);
   tmp[i] = '\0';
   return tmp; 
@@ -469,7 +486,9 @@ const char * decode(
   // @xref <f encode>
 {
   char* tmp = get_tmp_string(50).get_buffer();
-  for (int i = 0; data[i]; i++)
+  int i;
+  
+  for (i = 0; data[i]; i++)
     tmp[i] = data[i] - (i < 8 ? encryption_key[i] : tmp[i - 8]);
   tmp[i] = '\0';
   return tmp; 

include/varrec.cpp

@@ -6,8 +6,8 @@ TVariable_field::TVariable_field(
                 const char * expr,
                 TTypeexp type,
                 int len)
-               : _rec(NULL), _name(name), _e(NULL) , _getfunc(NULL),
+               : _rec(NULL), _name(name), _e(NULL), _put_string(NULL),
-                 _put_string(NULL), _in_get(FALSE),_lenght(len)
+                 _getfunc(NULL), _in_get(FALSE),_lenght(len)
 {                         
   if (expr && *expr)
   {
@@ -21,8 +21,8 @@ TVariable_field::TVariable_field(
                 const char * name,        //
                 VIRTUAL_GET_FUNCTION getfunc, 
                 int len) //  
-               : _name(name), _e(NULL) , _rec(NULL), _getfunc(getfunc),
+               : _rec(NULL), _name(name), _e(NULL), _put_string(NULL),
-                 _put_string(NULL), _in_get(FALSE),_lenght(len)
+                 _getfunc(getfunc), _in_get(FALSE), _lenght(len)
 {
   CHECK(_getfunc, "You must pass a valid VIRTUAL_GET_FUNCTION");
 }
@@ -32,15 +32,15 @@ TVariable_field::TVariable_field(
                 const TExpression & expr,      //
                 TTypeexp type,
                 int len)          //  
-               : _rec(NULL), _name(name), _e(NULL) , _getfunc(NULL),
+               : _rec(NULL), _name(name), _e(NULL), _put_string(NULL),
-                 _put_string(NULL), _in_get(FALSE),_lenght(len)
+                 _getfunc(NULL), _in_get(FALSE),_lenght(len)
 {                            
   _e = (TExpression *) expr.dup();
 }
 
 TVariable_field::TVariable_field(const TVariable_field & f)
-               : _rec(f._rec), _name(f._name), _e(NULL) , _getfunc(f._getfunc),
+               : _rec(f._rec), _name(f._name), _e(NULL), _put_string(NULL),
-                 _put_string(NULL), _in_get(FALSE),_lenght(f._lenght)
+                 _getfunc(f._getfunc), _in_get(FALSE),_lenght(f._lenght)
 {                
   if (f._e)
     _e = (TExpression *) f._e->dup();
@@ -387,5 +387,3 @@ TExtrectype::~TExtrectype()
 {
   delete _rd;
 }
-
-