root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :AGA 2.0 362

Browse Source 
Files correlati     :librerie
Ricompilazione Demo : [ ]
Commento            :corretti errori di compilazione nelle librerie


git-svn-id: svn://10.65.10.50/trunk@10689 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2002-12-18 10:56:10 +00:00
parent 10aff8021c
commit 20e9d80cde
23 changed files with 307 additions and 872 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
include/applicat.cpp
View File

@ -48,7 +48,7 @@ bool xvt_running()
{ return _xvt_running; } { return _xvt_running; }
// Ritorna il nome della ditta che vende il programma attuale // Ritorna il nome della ditta che vende il programma attuale
HIDDEN const char* prassi_spa(TString& firm) HIDDEN const char* producer_name(TString& firm)
{ {
TConfig ini("install.ini", "Main"); TConfig ini("install.ini", "Main");
firm = ini.get("Producer"); firm = ini.get("Producer");
@ -176,7 +176,7 @@ void TBanner::handler(WINDOW win, EVENT* ep)
set_font(XVT_FFN_TIMES); set_font(XVT_FFN_TIMES);
TString spa; TString spa;
t = (char*)prassi_spa(spa); t = (char*)producer_name(spa);
w = xvt_dwin_get_text_width(win, t, -1); w = xvt_dwin_get_text_width(win, t, -1);
x = (r.right-r.left-w)>>1; y = BIGY; x = (r.right-r.left-w)>>1; y = BIGY;
xvt_dwin_draw_text(win, x, y, t, -1); xvt_dwin_draw_text(win, x, y, t, -1);
@ -243,7 +243,7 @@ long TApplication::task_eh(WINDOW win, EVENT *ep)
// Setta la caption della task window // Setta la caption della task window
TString cap; TString cap;
TString firm; TString firm;
cap << _application->get_module_name() << " - " << prassi_spa(firm); cap << _application->get_module_name() << " - " << producer_name(firm);
TTemp_window tw(win); TTemp_window tw(win);
tw.set_caption(cap); tw.set_caption(cap);
@ -320,7 +320,16 @@ long TApplication::handler(WINDOW win, EVENT* ep)
case M_HELP_CONTENTS: case M_HELP_CONTENTS:
case M_HELP_SEARCH: case M_HELP_SEARCH:
case M_HELP_HELPONHELP: case M_HELP_HELPONHELP:
os_exec_help_command(ep->v.cmd.tag, name()); {
TFilename n = "campo";
TString16 module = name(); module.cut(2);
if (module != "ba")
n.insert(module);
FILE_SPEC fs; memset(&fs, 0, sizeof(FILE_SPEC));
strcpy(fs.name, n);
XVT_HELP_INFO hi = xvt_help_open_helpfile(&fs, 0);
xvt_help_process_event(hi, win, ep);
}
break; break;
default: default:
if (ep->v.cmd.tag > MAX_MENU_TAG) if (ep->v.cmd.tag > MAX_MENU_TAG)
@ -479,6 +488,8 @@ void TApplication::terminate()
dictionary_close(); dictionary_close();
xvt_help_close_helpfile(NULL_HELP_INFO);
customize_controls(FALSE); // Rilascio eventuali DLL customize_controls(FALSE); // Rilascio eventuali DLL
} }
@ -492,7 +503,7 @@ const char* TApplication::get_module_name() const
bool ok = FALSE; bool ok = FALSE;
for (int aut = 0; scanner.line() != ""; aut++) for (int aut = 0; scanner.line() != ""; aut++)
if (strncmp(scanner.token(), (const char *)_name, 2) == 0) if (strncmp(scanner.token(), _name, 2) == 0)
{ ok = TRUE; break; } { ok = TRUE; break; }
module = scanner.token().mid(3); module = scanner.token().mid(3);
if (ok && check_autorization()) if (ok && check_autorization())
@ -751,13 +762,12 @@ void TApplication::enable_menu_item(
bool TApplication::has_module(int module, int checktype) const bool TApplication::has_module(int module, int checktype) const
{ {
bool ok = TRUE; bool ok = TRUE;
#ifndef _DEMO_ #ifndef _DEMO_
// Ignora i bit di attivazione della chiave programmatori (sempre attivati) // Ignora i bit di attivazione della chiave programmatori (sempre attivati)
if (get_serial_number() == 0) if (get_serial_number() == 0)
checktype = CHK_USER; checktype = CHK_USER;
if (checktype == CHK_ALL || checktype == CHK_DONGLE) if (checktype == CHK_ALL || checktype == CHK_DONGLE)
ok = dongle().active(module); ok = dongle().active(module);
#endif #endif
@ -1083,4 +1093,4 @@ bool TSkeleton_application::menu(MENU_TAG tag)
if (tag == BAR_ITEM(1)) if (tag == BAR_ITEM(1))
main_loop(); main_loop();
return FALSE; return FALSE;
} }

2
include/campo.aut
View File

@ -12,7 +12,7 @@ ai Archiviazione Immagini
ce Cespiti ce Cespiti
ad Anagrafici Dichiarazioni ad Anagrafici Dichiarazioni
sc Saldaconto sc Saldaconto
mu Multiutenza sr Servers multiutenza
cm Gestione Commesse cm Gestione Commesse
73 Modello 730 73 Modello 730
at AVIS Provinciale at AVIS Provinciale

13
include/dongle.cpp
View File

@ -510,9 +510,9 @@ bool TDongle::network_login(bool test_all_keys)
TConfig ini(CONFIG_INSTALL, "Server"); TConfig ini(CONFIG_INSTALL, "Server");
const char* server = ini.get("Dongle"); const char* server = ini.get("Dongle");
const char* guest = "******"; const char* guest = "******";
const TString appname = main_app().name(); const TString16 appname = main_app().name();
const char* utente = (!xvt_running() && appname == "ba0100") ? guest : user(); const char* utente = (!xvt_running() && appname == "ba0100") ? guest : user();
const bool ok = rpc_UserLogin(server, utente, "******", appname); const bool ok = rpc_UserLogin(server, utente, "******", appname);
if (ok) if (ok)
{ {
@ -559,7 +559,7 @@ bool TDongle::login(bool test_all_keys)
TDongleHardware hw = _hardware; TDongleHardware hw = _hardware;
if (hw == _dongle_unknown) if (hw == _dongle_unknown)
{ {
if (os_dongle_server_running()) if (can_try_server())
{ {
hw = _dongle_network; hw = _dongle_network;
} }
@ -588,16 +588,15 @@ bool TDongle::login(bool test_all_keys)
{ {
// retry login for various dongles ... // retry login for various dongles ...
const int use_server = can_try_server(); const int use_server = can_try_server();
if (hw != _dongle_network && use_server) if (use_server != 3) // Non sono obbligato ad usare il Dongle Server
ok = network_login(test_all_keys);
if (!ok && use_server != 3)
{ {
if (!ok && hw != _dongle_eutron) if (!ok && hw != _dongle_eutron)
ok = eutron_login(test_all_keys); ok = eutron_login(test_all_keys);
if (!ok && hw != _dongle_hardlock) if (!ok && hw != _dongle_hardlock)
ok = hardlock_login(test_all_keys); ok = hardlock_login(test_all_keys);
} }
if (ok)
if (ok)
{ {
TConfig ini(CONFIG_INSTALL, "Main"); TConfig ini(CONFIG_INSTALL, "Main");
ini.set("Donglehw",(int)_hardware); ini.set("Donglehw",(int)_hardware);

95
include/fraction.cpp
View File

@ -6,11 +6,14 @@
void fraction::simplify() void fraction::simplify()
{ {
__int64 div = mcd(_num, _den); if (_den > 1 && _num > 1)
if (div > 1)
{ {
_num /= div; __int64 div = mcd(_num, _den);
_den /= div; if (div > 1)
{
_num /= div;
_den /= div;
}
} }
if (_den < 0) if (_den < 0)
{ {
@ -97,7 +100,7 @@ void fraction::build_fraction (const char *s)
} }
} }
n.strip(",.-+/[]"); n.strip(",.-+/[]");
sscanf(n, "%Ld", &_num); sscanf(n, "%I64d", &_num);
if (len_periodo > 0) if (len_periodo > 0)
{ {
_den = 9; _den = 9;
@ -133,6 +136,15 @@ fraction::fraction(const fraction & b)
_den = b._den; _den = b._den;
} }
int fraction::sign() const
{
if ( _num == 0 || _den == 0)
return 0;
if ( _num < 0)
return _den < 0 ? 1 : -1;
return _den < 0 ? -1 : 1;
}
fraction& fraction::operator =(const fraction & b) fraction& fraction::operator =(const fraction & b)
{ {
_num = b._num; _num = b._num;
@ -239,16 +251,16 @@ fraction operator - (
// @doc EXTERNAL // @doc EXTERNAL
// @func real | operator * | Moltiplica due numeri reali // @func real | operator * | Moltiplica due frazioni
// //
// @rdesc Ritorna il valore della moltiplicazione // @rdesc Ritorna il valore della moltiplicazione
fraction operator *( fraction operator *(
const fraction & a, // @parm Prima frazione da moltiplicare const fraction & a, // @parm Prima frazione da moltiplicare
const fraction & b) // @parm Seconda frazione da moltiplicare const fraction & b) // @parm Seconda frazione da moltiplicare
// @syntax operator *(const real &a, const real &b); // @syntax operator *(const fraction & a, const fraction & b);
// @syntax operator *(double a, const real &b); // @syntax operator *(const real & a, const fraction & b);
// @syntax operator *(const real &a, double b); // @syntax operator *(const fraction & a, const real & b);
{ {
fraction f = a; fraction f = a;
@ -258,22 +270,79 @@ fraction operator *(
// @doc EXTERNAL // @doc EXTERNAL
// @func real | operator / | Divide due numeri reali // @func real | operator * | Moltiplica una frazione e un intero
//
// @rdesc Ritorna il valore della moltiplicazione
fraction operator *(
const fraction & a, // @parm frazione da moltiplicare
__int64 b) // @parm intero da moltiplicare
// @syntax operator -(__int64 a, const fraction & b);
// @syntax operator -(const fraction & a, __int64 b);
{
fraction f;
f._num = a._num * b;
f._den = a._den;
f.simplify();
return f;
}
// @doc EXTERNAL
// @func real | operator / | Divide due frazioni
// //
// @rdesc Ritorna il valore della divisione // @rdesc Ritorna il valore della divisione
fraction operator / ( fraction operator / (
const fraction & a, // @parm Prima frazione da dividere const fraction & a, // @parm Prima frazione da dividere
const fraction & b) // @parm Seconda frazione da dividere const fraction & b) // @parm Seconda frazione da dividere
// @syntax operator /(const real &a, const real &b); // @syntax operator /(const fraction & a, const fraction & b);
// @syntax operator /(double a, const real &b); // @syntax operator /(const real & a, const fraction & b);
// @syntax operator /(const real &a, double b); // @syntax operator /(const fraction & a, const real & b);
{ {
fraction f = a; fraction f = a;
f /= b; f /= b;
return f; return f;
} }
// @doc EXTERNAL
// @func real | operator * | Divide una frazione per un intero
//
// @rdesc Ritorna il valore della divisione
fraction operator /(
const fraction & a, // @parm frazione da dividere
__int64 b) // @parm intero divisore
// @syntax operator /(const fraction & a, __int64 b);
{
fraction f;
f._num = a._num;
f._den = a._den * b;
f.simplify();
return f;
}
// @doc EXTERNAL
// @func real | operator * | Divide una frazione per un intero
//
// @rdesc Ritorna il valore della divisione
fraction operator /(
__int64 a, // @parm intero da dividere
const fraction & b) // @parm frazione divisore
// @syntax operator /(__int64 a, const fraction & b);
{
fraction f;
f._num = b._den * a;
f._den = b._num ;
f.simplify();
return f;
}
// @doc EXTERNAL // @doc EXTERNAL
// @func bool | operator <gt> | Controlla se un reale e' maggiore di un altro // @func bool | operator <gt> | Controlla se un reale e' maggiore di un altro

20
include/fraction.h
View File

@ -25,7 +25,10 @@ class fraction : public TObject
{ {
// @access:(INTERNAL) Private Member // @access:(INTERNAL) Private Member
// @cmember:(INTERNAL) Numero fractione // @cmember:(INTERNAL) Numero fractione
friend fraction operator *(const fraction & a, __int64 b);
friend fraction operator /(const fraction & a, __int64 b);
friend fraction operator /(__int64 a, const fraction & b);
__int64 _num; __int64 _num;
__int64 _den; __int64 _den;
@ -41,8 +44,8 @@ protected:
public: public:
// @cmember Controlla se si tratta di un fractione uguale 0 (TRUE se 0) // @cmember Controlla se si tratta di un fractione uguale 0 (TRUE se 0)
bool is_zero() const { return _num == 0;} bool is_zero() const { return _num == 0;}
// @cmember Ritorna il segno del fractione // @cmember Ritorna il segno del fraction
int sign() const { return (_num > 0) * (_den > 0);} int sign() const ;
// @cmember Trasforma il fractione in intero (operator int era troppo pericoloso) // @cmember Trasforma il fractione in intero (operator int era troppo pericoloso)
__int64 integer() const { return _num / _den;} __int64 integer() const { return _num / _den;}
@ -67,7 +70,8 @@ public:
// @cmember Costruttore // @cmember Costruttore
fraction(); fraction();
// @cmember Costruttore // @cmember Costruttore
fraction(const real & b) { build_fraction(b.string()); } fraction(const real & b) { build_fraction(b.stringa()); }
fraction(__int64 num, __int64 den = 1) : _num(num), _den(den) { simplify();}
// @cmember Costruttore // @cmember Costruttore
fraction(const fraction& b) ; fraction(const fraction& b) ;
// @cmember Costruttore // @cmember Costruttore
@ -84,15 +88,23 @@ public:
fraction operator +(const fraction& a, const fraction& b) ; fraction operator +(const fraction& a, const fraction& b) ;
inline fraction operator +(const real& a, const fraction& b) { return ::operator +((fraction)a, b);} inline fraction operator +(const real& a, const fraction& b) { return ::operator +((fraction)a, b);}
inline fraction operator +(const fraction& a, const real& b) { return ::operator +(b, a);} inline fraction operator +(const fraction& a, const real& b) { return ::operator +(b, a);}
inline fraction operator +(const fraction& a, __int64 b) { return ::operator +(a, (fraction)b);}
inline fraction operator +(__int64 a, const fraction& b) { return ::operator +(b, a);}
fraction operator -(const fraction& a, const fraction& b) ; fraction operator -(const fraction& a, const fraction& b) ;
inline fraction operator -(const real& a, const fraction& b) { return ::operator -((fraction)a, b);} inline fraction operator -(const real& a, const fraction& b) { return ::operator -((fraction)a, b);}
inline fraction operator -(const fraction& a, const real& b) { return ::operator -(a, (fraction)b);} inline fraction operator -(const fraction& a, const real& b) { return ::operator -(a, (fraction)b);}
inline fraction operator -(const fraction& a, __int64 b) { return ::operator -(a, (fraction)b);}
inline fraction operator -(__int64 a, const fraction& b) { return ::operator -((fraction)a, b);}
fraction operator *(const fraction& a, const fraction& b) ; fraction operator *(const fraction& a, const fraction& b) ;
inline fraction operator *(const real& a, const fraction& b) { return ::operator *((fraction)a, b);} inline fraction operator *(const real& a, const fraction& b) { return ::operator *((fraction)a, b);}
inline fraction operator *(const fraction& a, const real& b) { return ::operator *(b, a);} inline fraction operator *(const fraction& a, const real& b) { return ::operator *(b, a);}
fraction operator *(const fraction& a, __int64 b);
inline fraction operator *(__int64 a, const fraction& b) { return ::operator *(b, a);}
fraction operator /(const fraction& a, const fraction& b) ; fraction operator /(const fraction& a, const fraction& b) ;
inline fraction operator /(const real& a, const fraction& b) { return ::operator /((fraction)a, b);} inline fraction operator /(const real& a, const fraction& b) { return ::operator /((fraction)a, b);}
inline fraction operator /(const fraction& a, const real& b) { return ::operator /(a, (fraction)b);} inline fraction operator /(const fraction& a, const real& b) { return ::operator /(a, (fraction)b);}
fraction operator /(const fraction& a, __int64 b);
fraction operator /(__int64 a, const fraction& b);
bool operator <(const fraction& a, const fraction& b) ; bool operator <(const fraction& a, const fraction& b) ;
inline bool operator <(const real& a, const fraction& b) { return ::operator < (a, (real)b);} inline bool operator <(const real& a, const fraction& b) { return ::operator < (a, (real)b);}

7
include/isam.cpp
View File

@ -12,14 +12,15 @@
#include <execp.h> #include <execp.h>
#include <expr.h> #include <expr.h>
#include <extcdecl.h> #include <extcdecl.h>
#include <mailbox.h> #include <mailbox.h>
#include <memo.h>
#include <postman.h> #include <postman.h>
#include <prefix.h> #include <prefix.h>
#include <progind.h> #include <progind.h>
#include <relation.h> #include <relation.h>
#include <scanner.h> #include <scanner.h>
#include <utility.h> #include <utility.h>
#include <memo.h> #include <tabutil.h>
#include <varrec.h> #include <varrec.h>
@ -1356,7 +1357,7 @@ int TBaseisamfile::_close()
return err; return err;
} }
int TBaseisamfile::is_valid() int TBaseisamfile::is_valid(bool exclusive)
{ // Ritorna NOERR se il file puo' essere aperto senza errori { // Ritorna NOERR se il file puo' essere aperto senza errori
CHECKD(_isam_handle == 0, "Can't reopen file ", _logicnum); CHECKD(_isam_handle == 0, "Can't reopen file ", _logicnum);
TFilename filename; TFilename filename;

2
include/isam.h
View File

@ -410,7 +410,7 @@ public:
int status() const int status() const
{ return _lasterr; } { return _lasterr; }
// @cmember Controlla se il file e' valido (ritorna 0 se il file e' valido) // @cmember Controlla se il file e' valido (ritorna 0 se il file e' valido)
int is_valid(); int is_valid(bool exclusive);
// @cmember Restituisce se il file è ordinato con indice esterno (default:FALSE) // @cmember Restituisce se il file è ordinato con indice esterno (default:FALSE)
virtual bool is_sorted() virtual bool is_sorted()
{return FALSE;} {return FALSE;}

43
include/isamrpc.cpp
View File

@ -1,3 +1,4 @@
#include <stdlib.h>
#include <time.h> #include <time.h>
#include <checks.h> #include <checks.h>
@ -210,8 +211,34 @@ unsigned rpc_DongleYear()
return (unsigned)IntCall(); return (unsigned)IntCall();
} }
static unsigned int CreatePassword(TString& pass)
{
const int BASE = 19;
srand(clock());
unsigned int num = 0;
do
{
num = 883*rand();
while (num % 883 != 0) // Possible overflow
num++;
pass.cut(0);
char str[2] = { '\0', '\0' };
while (num > 0)
{
unsigned int k = num % BASE;
if (k < 10)
str[0] = '0'+k;
else
str[0] = 'A'+k-10;
num /= BASE;
pass.insert(str);
}
} while (pass.len() < 6);
return num;
}
bool rpc_UserLogin(const char* server, const char* user, bool rpc_UserLogin(const char* server, const char* user,
const char* password, const char* application) const char* dummy_password, const char* application)
{ {
if (_client == NULL) if (_client == NULL)
{ {
@ -236,14 +263,15 @@ bool rpc_UserLogin(const char* server, const char* user,
if (_connection) if (_connection)
{ {
TString cmd(32); TString16 password;
cmd << "UserLogin(" << user << ")"; CreatePassword(password);
_rpc_call.format("UserLogin(%s,%s,%s)", user, password, application); _rpc_call.format("UserLogin(%s,%s,%s)", user, (const char*)password, application);
bool logged = FALSE; long answer = 0;
bool connected = _client->RequestBool(_connection, _rpc_call, logged) != 0; bool connected = _client->RequestInteger(_connection, _rpc_call, answer) != 0;
if (connected) if (connected)
{ {
const bool logged = (answer == 1) || ((answer % 883 == 0) && (answer != 0));
if (!logged) if (!logged)
{ {
connected = FALSE; connected = FALSE;
@ -276,7 +304,8 @@ bool rpc_UserLogout()
{ {
if (_connection) if (_connection)
{ {
rpc_Call("UserLogout()"); _rpc_call.format("UserLogout(%s)", (const char*)user());
rpc_Call(_rpc_call);
_client->RemoveConnection(_connection); _client->RemoveConnection(_connection);
_connection = 0; _connection = 0;
} }

17
include/mask.cpp
View File

@ -828,9 +828,22 @@ bool TMask::on_key(
break; break;
case K_F1: case K_F1:
{ {
char key[32]; char key[_MAX_FNAME];
_splitpath(source_file(), NULL, NULL, key, NULL); _splitpath(source_file(), NULL, NULL, key, NULL);
os_exec_help_command(M_HELP_ONCONTEXT, key); EVENT e; memset(&e, 0, sizeof(e));
e.type = E_HELP;
e.v.help.tag = M_HELP_ONCONTEXT;
e.v.help.obj = win();
e.v.help.tid = (long)key;
TFilename n = "campo";
TString16 module = key; module.cut(2);
if (module != "ba")
n.insert(module);
FILE_SPEC fs; memset(&fs, 0, sizeof(FILE_SPEC));
strcpy(fs.name, n);
XVT_HELP_INFO hi = xvt_help_open_helpfile(&fs, 0);
xvt_help_process_event(hi, win(), &e);
} }
break; break;
case K_F12: case K_F12:

2
include/maskfld.cpp
View File

@ -4123,7 +4123,7 @@ const char* TCurrency_field::win2raw(const char* data) const
num = e.as_real(); num = e.as_real();
} }
else else
num = real::ita2eng(str); num = real(str);
if (num.is_zero()) if (num.is_zero())
str.cut(0); str.cut(0);
else else

7
include/maskfld.h
View File

@ -1599,8 +1599,8 @@ protected: // TObject
bool is_kind_of(word cid) const; bool is_kind_of(word cid) const;
protected: // TWindowed_field protected: // TWindowed_field
virtual TField_window* create_window(int x, int y, int dx, int dy, WINDOW parent); virtual TField_window* create_window(int x, int y, int dx, int dy,
WINDOW parent);
public: public:
TTree* tree() const; TTree* tree() const;
void set_tree(TTree* t); void set_tree(TTree* t);
@ -1609,7 +1609,8 @@ public:
void show_leaves(bool yes = TRUE) { hide_leaves(!yes); } void show_leaves(bool yes = TRUE) { hide_leaves(!yes); }
bool select_current(); bool select_current();
bool goto_selected(); bool goto_selected();
void set_header(const char* header);
void set_header(const char* head);
TTree_field(TMask* m) : TWindowed_field(m) { } TTree_field(TMask* m) : TWindowed_field(m) { }
virtual ~TTree_field() { } virtual ~TTree_field() { }

2
include/modaut.h
View File

@ -15,7 +15,7 @@
#define CEAUT 11 #define CEAUT 11
#define ADAUT 12 #define ADAUT 12
#define SCAUT 13 #define SCAUT 13
#define MUAUT 14 #define SRAUT 14
#define CMAUT 15 #define CMAUT 15
#define M73AUT 16 #define M73AUT 16
#define ATAUT 17 #define ATAUT 17

2
include/os_dep.h
View File

@ -24,7 +24,6 @@ bool os_test_disk_free_space(const char* path, unsigned long filesize);
unsigned long os_get_disk_size(const char* path); unsigned long os_get_disk_size(const char* path);
COLOR os_choose_color(COLOR col, WINDOW win); COLOR os_choose_color(COLOR col, WINDOW win);
void os_exec_help_command(MENU_TAG tag, const char* key);
int os_execute(const TFilename& path, bool sync, bool iconizetask, bool showchild); int os_execute(const TFilename& path, bool sync, bool iconizetask, bool showchild);
unsigned long os_execute_in_window(const TFilename& path, WINDOW win); unsigned long os_execute_in_window(const TFilename& path, WINDOW win);
bool os_file_exist(const char* path); bool os_file_exist(const char* path);
@ -49,7 +48,6 @@ bool os_open_spool_row(const char* device);
bool os_spool_row(const char* str); bool os_spool_row(const char* str);
bool os_close_spool_row(); bool os_close_spool_row();
bool os_get_image_editor_path(TFilename& name);
bool os_dongle_server_running(); bool os_dongle_server_running();
bool os_test_network_version(); bool os_test_network_version();

733
include/os_win16.cpp
View File

@ -1,733 +0,0 @@
#define XVT_INCL_NATIVE
#define XI_INTERNAL
#include <xi.h>
#include <os_dep.h>
#include <commdlg.h>
#include <toolhelp.h>
#include <spool.h>
#include <ver.h>
#ifndef ATTR_WIN_USE_CTL3D
#include <ctl3d.h>
#endif
#include <ctype.h>
#include <dos.h>
#include <applicat.h>
#include <colors.h>
#include <config.h>
#include <mask.h>
extern "C" { WINDOW xvtwi_hwnd_to_window(HWND); }
///////////////////////////////////////////////////////////
// Win16 event hook
///////////////////////////////////////////////////////////
const word WM_WAKEUP = RegisterWindowMessage("WAKEUP");
HTASK _waiting_for = 0xFFFF;
extern "C" { WINDOW xvtwi_hwnd_to_window(HWND); }
HIDDEN BOOLEAN event_hook(HWND hwnd,
UINT msg,
UINT wparam,
ULONG lparam,
long* ret)
{
switch(msg)
{
#ifndef ATTR_WIN_USE_CTL3D
case WM_SYSCOLORCHANGE:
Ctl3dColorChange();
break;
#endif
case WM_MENUCHAR:
if (wparam > ' ' && wparam <= 'z')
{
WINDOW win = cur_win();
if (win != NULL_WIN)
{
const KEY key = toupper(wparam)+K_CTRL;
dispatch_e_char(win, key);
*ret = 2 << 16;
}
}
break;
case WM_KEYDOWN:
if (wparam == VK_F1)
{
if ((lparam & (1<<29)) == 0) // Il tasto alt non e' premuto
{
KEY k = K_F1;
int sc = GetAsyncKeyState(VK_CONTROL); // Stato del tasto control
if (sc & 0x8000) k += K_CTRL;
int ss = GetAsyncKeyState(VK_SHIFT); // Stato del tasto shift
if (ss & 0x8000) k += K_SHIFT;
WINDOW win = cur_win();
if (win != NULL_WIN)
dispatch_e_char(win, k);
}
}
break;
case WM_DROPFILES:
if (cur_win() != NULL_WIN)
{
WINDOW win = xvtwi_hwnd_to_window(hwnd);
if (win != NULL)
{
EVENT e;
e.type = E_USER;
e.v.user.id = E_DROP_FILES;
e.v.user.ptr = (void*)wparam;
xvt_win_dispatch_event(win, &e);
}
}
break;
default:
if (msg == WM_WAKEUP)
{
if (wparam == _waiting_for)
_waiting_for = 0xFFFF;
}
break;
}
return TRUE; // Continua col processo normale
}
///////////////////////////////////////////////////////////
// Operating system dependent functions
///////////////////////////////////////////////////////////
bool os_allow_another_instance()
{
NFCHECK("Bisogna implementare la allow_another_instance");
return TRUE;
}
COLOR os_choose_color(COLOR col, WINDOW win)
{
CHOOSECOLOR cc;
memset(&cc, 0, sizeof(cc)); // Azzera struttura
if (win == NULL_WIN) win = TASK_WIN; // Sceglie una finestra valida
HWND hwnd = (HWND)xvt_vobj_get_attr(win, ATTR_NATIVE_WINDOW);
HDC hdc = GetDC(hwnd);
// Legge la palette di sistema
PALETTEENTRY* pe = NULL;
int max_entries = 0;
if (GetDeviceCaps(hdc, RASTERCAPS) & RC_PALETTE)
{
max_entries = GetDeviceCaps(hdc, SIZEPALETTE);
pe = new PALETTEENTRY[max_entries];
GetSystemPaletteEntries(hdc, 0, max_entries, pe);
}
ReleaseDC(hwnd, hdc);
// Definisce i 16 colori customizzabili
unsigned long custom_colors[16];
for (int c = 0; c < 16; c++)
{
if (pe)
{
const PALETTEENTRY& e = pe[c < 8 ? c : max_entries - 16 + c];
custom_colors[c] = RGB(e.peRed, e.peGreen, e.peBlue);
}
else
{
const unsigned char val = (c & 0x8) ? 255 : 127;
const unsigned char red = (c & 0x1) ? val : 0;
const unsigned char green = (c & 0x2) ? val : 0;
const unsigned char blue = (c & 0x4) ? val : 0;
custom_colors[c] = RGB(red, green, blue);
}
}
if (pe)
{
delete pe;
pe = NULL;
}
cc.lStructSize = sizeof(cc); // Setta dimensioni
cc.hwndOwner = hwnd; // Setta finestra padre
cc.rgbResult = RGB(XVT_COLOR_GET_RED(c), XVT_COLOR_GET_GREEN(c), XVT_COLOR_GET_BLUE(c));
cc.lpCustColors = custom_colors; // Fissa colori custom
cc.Flags = CC_RGBINIT; // Usa col come primo colore
if (ChooseColor(&cc) != 0)
col = RGB2COLOR(GetRValue(cc.rgbResult), GetGValue(cc.rgbResult), GetBValue(cc.rgbResult));
else
col = COLOR_INVALID;
return col;
}
bool os_deny_another_instance()
{
return TRUE;
}
bool os_destroy_native_icon(unsigned icon)
{
return DestroyIcon((HICON)icon) != 0;
}
void os_draw_native_icon(WINDOW win, const RCT& rct, unsigned icon)
{
HDC hdc = (HDC)xvt_vobj_get_attr(win, ATTR_NATIVE_GRAPHIC_CONTEXT);
int x = (rct.right + rct.left - 32) / 2;
int y = (rct.bottom + rct.top - 32) / 2;
DrawIcon(hdc, x, y, (HICON)icon);
}
unsigned long os_get_free_memory()
{
return GetFreeSpace(0);
}
bool os_is_removable_drive(const char* path)
{
bool yes = isalpha(path[0]) && path[1] == ':';
if (yes)
yes = GetDriveType(toupper(path[0]) - 'A') == DRIVE_REMOVABLE;
return yes;
}
bool os_is_network_drive(const char* path)
{
bool yes = isalpha(path[0]) && path[1] == ':';
if (yes)
yes = GetDriveType(toupper(path[0]) - 'A') == DRIVE_REMOTE;
return yes;
}
bool os_is_fixed_drive(const char* path)
{
bool yes = isalpha(path[0]) && path[1] == ':';
if (yes)
yes = GetDriveType(toupper(path[0]) - 'A') == DRIVE_FIXED;
return yes;
}
bool os_test_disk_free_space(const char* path, unsigned long filesize)
{
int disk = 0;
if (path && *path && path[1] == ':')
{
const char letter = toupper(path[0]);
disk = letter - 'A' + 1;
}
bool space_ok = FALSE;
struct _diskfree_t drive;
if (_dos_getdiskfree(disk, &drive) == 0)
{
const unsigned requested_clusters = unsigned(filesize / drive.sectors_per_cluster / drive.bytes_per_sector) + 1;
space_ok = requested_clusters <= drive.avail_clusters;
}
return space_ok;
}
unsigned long os_get_disk_size(const char* path)
{
int disk = 0;
if (path && *path && path[1] == ':')
{
const char letter = toupper(path[0]);
disk = letter - 'A' + 1;
}
unsigned long bytes = 0;
struct _diskfree_t drive;
if (_dos_getdiskfree(disk, &drive) == 0)
{
bytes = drive.total_clusters;
bytes *= drive.sectors_per_cluster;
bytes *= drive.bytes_per_sector;
}
return bytes;
}
void os_exec_help_command(MENU_TAG tag, const char* key)
{
TFilename hlp("prassi.hlp");
TString mod(key);
if (mod.not_empty())
{
mod.cut(2); mod.lower();
if (mod != "ba")
hlp.insert(mod, 0);
}
else
{
if (tag == M_HELP_ONCONTEXT)
tag = M_HELP_CONTENTS;
}
HWND hwnd = (HWND)xvt_vobj_get_attr(TASK_WIN, ATTR_NATIVE_WINDOW);
switch(tag)
{
case M_HELP_CONTENTS: WinHelp(hwnd, hlp, HELP_CONTENTS, 0); break;
case M_HELP_SEARCH: WinHelp(hwnd, hlp, HELP_PARTIALKEY, (DWORD)""); break;
case M_HELP_HELPONHELP: WinHelp(hwnd, hlp, HELP_HELPONHELP, 0); break;
case M_HELP_ONCONTEXT:
if (hlp.exist())
{
struct MULTIGUY
{
UINT mkSize;
BYTE mkKeylist;
char mkKeyphrase[16];
} mk;
mk.mkSize = sizeof(MULTIGUY);
mk.mkKeylist = 'M';
strcpy(mk.mkKeyphrase, key);
WinHelp(hwnd, hlp, HELP_MULTIKEY, (DWORD)&mk);
}
break;
default: break;
}
}
int os_execute(const TFilename& path, bool sync, bool iconizetask, bool showchild)
{
word exitcode = ::WinExec(path, showchild ? SW_SHOWNORMAL : SW_HIDE);
if (exitcode < 32)
{
switch (exitcode)
{
case 0:
exitcode = 8;
case 8:
error_box("Memoria o risorse insufficienti per eseguire '%s'", (const char*)path); break;
default:
error_box("Impossibile eseguire '%s': %d", (const char*)path, exitcode); break;
}
return exitcode;
}
if (sync)
{
bool was_maximized = FALSE;
if (iconizetask)
{
HWND hwnd = (HWND)xvt_vobj_get_attr(TASK_WIN, ATTR_NATIVE_WINDOW);
if (hwnd)
{
was_maximized = IsZoomed(hwnd);
TTemp_window tw(TASK_WIN);
tw.iconize();
tw.deactivate();
}
}
const char* szModule = path.name();
HTASK child = NULL;
TASKENTRY te; te.dwSize = sizeof(TASKENTRY);
for (bool ok = TaskFirst(&te); ok; ok = TaskNext(&te))
if (te.hInst == (HINSTANCE)exitcode ||
stricmp(te.szModule, szModule) == 0)
{
child = te.hTask;
break;
}
// Warning! child could be NULL if you run that beast called Foxpro
_waiting_for = child;
for (byte i = 0; _waiting_for == child; i++)
{
// Esegue il controllo solo ogni 256 cicli
if (i == 0 && ok && TaskFindHandle(&te, child) == FALSE)
{
_waiting_for = 0xFFFF; // Annulla attesa del processo
break;
}
xvt_app_process_pending_events();
}
if (iconizetask && TASK_WIN)
{
TTemp_window tw(TASK_WIN);
if (was_maximized)
tw.maximize(); // Non e' piu' detto che sia massimizzata!
else
os_restore_window(tw.win());
tw.activate();
}
xvt_app_process_pending_events();
}
xvt_statbar_refresh();
return 0;
}
bool os_spawn_by_menu()
{
TASKENTRY te; te.dwSize = sizeof(TASKENTRY);
HTASK ct = GetCurrentTask();
TaskFindHandle(&te, ct);
TaskFindHandle(&te, te.hTaskParent);
bool yes = stricmp(te.szModule, "BA0") == 0 ||
#ifdef DBG
stricmp(te.szModule, "CVW4") == 0 ||
stricmp(te.szModule, "MSVC") == 0 ||
#endif
stricmp(te.szModule, "Explorer") == 0 ||
stricmp(te.szModule, "PROGMAN") == 0;
return yes;
}
int os_get_printer_names(TToken_string& t)
{
char* buf = t.get_buffer(4096); // ammazzao'
GetProfileString ("devices", NULL, "", buf, t.size());
for (int i = 0; i < t.size(); i++)
{
if (buf[i] == '\0')
{
if (buf[i+1] != '\0') buf[i] = '|';
else break;
}
}
return t.items();
}
bool os_set_default_printer(const char* name)
{
CHECK(name && *name > ' ', "Null printer name");
TString pdev(name);
if (pdev.find(',') < 0)
{
TString szDevice(256);
GetProfileString ("devices", pdev, "", szDevice.get_buffer(), szDevice.size());
pdev << ',' << szDevice;
}
bool ok = WriteProfileString("windows", "device", pdev) != 0;
return ok;
}
bool os_get_default_printer(TString& name)
{
char* buf = name.get_buffer(128);
bool ok = GetProfileString ("windows", "device", ",,,", buf, name.size()) != 0;
return ok;
}
bool os_get_image_editor_path(TFilename& name)
{
// where is EasyDoc installed?
GetPrivateProfileString("Easydoc", "Path", "\\EASYDOC",
name.get_buffer(), name.size(),
"EasyDoc.ini");
// You're unlucky there is no EasyDoc
if (name.empty())
return FALSE;
// paste EasyDoc path
name.add("easydoc.exe");
// is EasyDoc present?
bool ok = name.exist();
return ok;
}
os_type os_get_type()
{
const DWORD winflags = GetWinFlags();
if (winflags & 0x4000)
return os_WindowsNT;
const DWORD osver = GetVersion();
const DWORD winver = LOWORD(osver);
const BYTE majwinver = LOBYTE(winver);
const BYTE minwinver = HIBYTE(winver);
if (majwinver == 3 && minwinver == 95)
{
const DWORD dosver = HIWORD(osver);
const BYTE majdosver = LOBYTE(dosver); // Should be 7 anyway
const BYTE mindosver = HIBYTE(dosver);
return (majdosver > 7 || (majdosver == 7 && mindosver >= 10)) ? os_Windows98 : os_Windows95;
}
else
{
if (majwinver == 4)
return os_WindowsME;
}
return os_Windows;
}
void os_post_menu_event(WINDOW win, MENU_TAG tag)
{
HWND w = (HWND)xvt_vobj_get_attr(win, ATTR_NATIVE_WINDOW);
PostMessage(w, WM_COMMAND, tag, 0L);
}
void os_set_event_hook()
{
xvt_vobj_set_attr(NULL_WIN, ATTR_EVENT_HOOK, (long)event_hook);
#ifdef ATTR_WIN_USE_CTL3D
xvt_vobj_set_attr(NULL_WIN, ATTR_WIN_USE_CTL3D, TRUE);
#endif
long twin_style = WSF_ICONIZABLE | WSF_CLOSE | WSF_SIZE;
const int scx = GetSystemMetrics(SM_CXSCREEN);
const int scy = GetSystemMetrics(SM_CYSCREEN);
static RCT rct;
if (scx <= 640 && os_get_type() >= os_Windows95)
{
const int bcx = GetSystemMetrics(SM_CXFRAME);
const int bcy = GetSystemMetrics(SM_CYFRAME);
rct.left = -bcx;
rct.top = GetSystemMetrics(SM_CYCAPTION)-bcy-1;
rct.right = scx+bcx;
rct.bottom = scy+bcy;
xvt_vobj_set_attr(NULL_WIN, ATTR_WIN_PM_TWIN_STARTUP_RCT, long(&rct));
}
else
{
TConfig cfg(CONFIG_USER, "Colors");
const int res = cfg.get_int("Resolution");
if (res >= 640 && res < scx)
{
const int width = res + 2*GetSystemMetrics(SM_CXFRAME);
const int height = (res * 3) / 4 + 2*GetSystemMetrics(SM_CYFRAME) - GetSystemMetrics(SM_CYCAPTION) - 1;
const int deltax = (scx - width) / 2;
const int deltay = (scy - height) / 2;
rct.left = deltax;
rct.top = deltay;
rct.right = deltax + width;
rct.bottom = deltay + height;
xvt_vobj_set_attr(NULL_WIN, ATTR_WIN_PM_TWIN_STARTUP_RCT, long(&rct));
}
else
twin_style |= WSF_MAXIMIZED;
}
xvt_vobj_set_attr(NULL_WIN,ATTR_WIN_PM_TWIN_STARTUP_STYLE, twin_style);
}
void os_wake_up_caller()
{
const HTASK ht = GetCurrentTask();
// SendMessage(HWND_BROADCAST, WM_WAKEUP, (WPARAM)ht, 0L);
PostMessage(HWND_BROADCAST, WM_WAKEUP, (WPARAM)ht, 0L);
HWND hwnd = (HWND)xvt_vobj_get_attr(TASK_WIN, ATTR_NATIVE_WINDOW);
WinHelp(hwnd, "prassi.hlp", HELP_QUIT, 0L);
// do_events(); non si puo' fare qui
}
bool os_file_exist(const char* file)
{
HFILE hf = _lopen(file, READ);
bool ok = hf != HFILE_ERROR;
if (ok)
_lclose(hf);
return ok;
}
bool os_open_spool_row(const char* device)
{
return TRUE;
}
bool os_spool_row(const char* str)
{
return SpoolRow((char*)str, strlen(str)) != 0;
}
bool os_close_spool_row()
{
return TRUE;
}
void os_iconize_window(WINDOW win)
{
HWND hwnd = (HWND)xvt_vobj_get_attr(win, ATTR_NATIVE_WINDOW);
ShowWindow(hwnd, SW_MINIMIZE);
}
void os_maximize_window(WINDOW win)
{
HWND hwnd = (HWND)xvt_vobj_get_attr(win, ATTR_NATIVE_WINDOW);
HWND twin = (HWND)xvt_vobj_get_attr(TASK_WIN, ATTR_NATIVE_WINDOW);
if (hwnd != twin)
{
HWND pare = GetParent(hwnd);
RECT rct; GetClientRect(pare, &rct);
if (pare == twin)
rct.bottom -= 24;
SetWindowPos(hwnd, pare,
rct.left, rct.top, rct.right, rct.bottom,
SWP_NOZORDER);
}
else
ShowWindow(hwnd, SW_SHOWMAXIMIZED);
}
void os_restore_window(WINDOW win)
{
HWND hwnd = (HWND)xvt_vobj_get_attr(win, ATTR_NATIVE_WINDOW);
ShowWindow(hwnd, SW_NORMAL);
}
bool os_dongle_server_running()
{
ATOM a = GlobalFindAtom("DONGLE_SERVER_ATOM");
return a != 0;
}
HIDDEN const char* _file_to_find = NULL;
struct TFindWindowInfo
{
HINSTANCE _instance;
TFilename _file;
HWND _hwnd;
TFindWindowInfo() : _instance(NULL), _hwnd(NULL) { }
};
BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam)
{
TFindWindowInfo* w = (TFindWindowInfo*)lParam;
HINSTANCE inst = GetWindowWord(hwnd, GWW_HINSTANCE);
if (inst == w->_instance)
{
const LONG style = GetWindowLong(hwnd, GWL_STYLE);
if ((style & WS_CAPTION) != 0) // Ha la caption?
{
w->_hwnd = hwnd;
return FALSE;
}
return TRUE;
}
TString256 str;
GetWindowText(hwnd, str.get_buffer(), str.size());
str.upper();
if (str.find(w->_file) >= 0)
{
w->_hwnd = hwnd;
return FALSE;
}
return TRUE;
}
unsigned long os_execute_in_window(const TFilename& path, WINDOW win)
{
const word exitcode = WinExec(path, SW_SHOWNORMAL);
if (exitcode < 32)
return 0;
TFindWindowInfo w;
w._instance = exitcode;
const int space = path.find(' ');
if (space > 0)
w._file = path.mid(space+1);
else
w._file = path;
w._file = w._file.name();
w._file.ext("");
w._file.upper();
const clock_t start = clock();
while (w._hwnd == NULL && (clock() - start) < 10*CLOCKS_PER_SEC)
{
xvt_app_process_pending_events();
FARPROC farproc = MakeProcInstance(FARPROC(EnumWindowsProc), NULL);
EnumWindows(farproc, LPARAM(&w));
FreeProcInstance(farproc);
}
if (w._hwnd != NULL) // L'ho trovata!
{
RCT rct; xvt_vobj_get_client_rect(win, &rct);
HWND nat = (HWND)xvt_vobj_get_attr(win, ATTR_NATIVE_WINDOW);
SetParent(w._hwnd, nat);
// LONG style = GetWindowLong(w._hwnd, GWL_STYLE);
// style |= WS_CHILD;
// SetWindowLong(w._hwnd, GWL_STYLE, style);
const int fx = GetSystemMetrics(SM_CXFRAME);
const int fy = GetSystemMetrics(SM_CYFRAME);
int cy = GetSystemMetrics(SM_CYCAPTION)+GetSystemMetrics(SM_CYBORDER);
if (GetMenu(w._hwnd) != NULL)
cy += GetSystemMetrics(SM_CYMENU);
SetWindowPos(w._hwnd, nat, -fx, -fy-cy, rct.right+2*fx, rct.bottom+cy+2*fy, SWP_NOZORDER);
}
return w._hwnd;
}
bool os_test_network_version()
{
if (os_get_type() == os_Windows95)
{
const char* VREDIRNAME = "vredir.vxd";
DWORD handle;
const DWORD dwSize = GetFileVersionInfoSize(VREDIRNAME,&handle);
if (dwSize)
{
BYTE infoBuffer[512];
GetFileVersionInfo(VREDIRNAME,handle,dwSize,infoBuffer);
long *language;
void * lpBuffer;
char szName[128];
UINT Size;
if (VerQueryValue(infoBuffer, "\\VarFileInfo\\Translation", (void **)&language, &Size) && Size!=0)
{
sprintf(szName, "\\StringFileInfo\\%04x%04x\\FileVersion",LOWORD(*language), HIWORD(*language));
if (VerQueryValue(infoBuffer, szName, &lpBuffer, &Size) && Size!=0)
{
TToken_string v((const char *)lpBuffer,'.');
int subver=atoi(v.get(2));
if (subver >=1111 && subver <=1115)
return error_box("La versione %s del driver di rete '%s' contiene un errore riconosciuto da Microsoft.\nConsultare il vostro tecnico per aggiornare il sistema operativo.",(const char *)lpBuffer, VREDIRNAME);
else
return TRUE;
}
}
}
//VREDIR.VXD puo' non esistere; inutile la segnalazione seguente.
//message_box("Impossibile determinare la versione del driver di rete '%s'",VREDIRNAME);
}
return TRUE;
}
void os_sleep(long m)
{
clock_t fine = ((m * CLOCKS_PER_SEC)/1000) + clock();
while (fine > clock())
do_events();
}
void os_beep(int severity)
{
switch (severity)
{
case 0: MessageBeep(MB_OK); break;
case 1: MessageBeep(MB_ICONEXCLAMATION); break;
default: MessageBeep(MB_ICONSTOP); break;
}
}

96
include/os_win32.cpp
View File

@ -172,47 +172,37 @@ bool os_is_fixed_drive(const char* path)
return dt == DRIVE_FIXED; return dt == DRIVE_FIXED;
} }
bool os_test_disk_free_space(const char* path, unsigned long filesize)
{
/*
Works on WinNT and Win95 OSR2 Only!
ULARGE_INTEGER nRequired;
ULARGE_INTEGER nAvailable;
nRequired.QuadPart = filesize;
GetDiskFreeSpaceEx(path, &nAvailable, NULL, NULL);
return nRequired.QuadPart <= nAvailable.QuadPart;
*/
// On Win95 may fail for disks > 2GB
DWORD nSecPerClust, nBytePerSec, nFreeClust;
bool ok = GetDiskFreeSpace(path, &nSecPerClust, &nBytePerSec, &nFreeClust, NULL) != 0;
if (ok && nBytePerSec >= 512)
{
__int64 nFree = nFreeClust;
nFree *= nSecPerClust;
nFree *= nBytePerSec;
ok = nFree > filesize;
}
else
ok = TRUE;
return ok;
}
unsigned long os_get_disk_size(const char* path) unsigned long os_get_disk_size(const char* path)
{ {
char drive[_MAX_DRIVE+1];
_splitpath(path, drive, NULL, NULL, NULL);
strcat(drive, "/");
DWORD nSecPerClust, nBytePerSec, nFreeClust, nTotalClust; DWORD nSecPerClust, nBytePerSec, nFreeClust, nTotalClust;
GetDiskFreeSpace(path, &nSecPerClust, &nBytePerSec, &nFreeClust, &nTotalClust); ::GetDiskFreeSpace(drive, &nSecPerClust, &nBytePerSec, &nFreeClust, &nTotalClust);
__int64 nFree = nTotalClust; __int64 nFree = nTotalClust;
nFree *= nSecPerClust; nFree *= nSecPerClust;
nFree *= nBytePerSec; nFree *= nBytePerSec;
unsigned long nVal = nFree > INT_MAX ? (unsigned long)INT_MAX unsigned long nVal = nFree > ULONG_MAX ? (unsigned long)ULONG_MAX
: (unsigned long)nFree; : (unsigned long)nFree;
return nVal; return nVal;
} }
bool os_test_disk_free_space(const char* path, unsigned long filesize)
{
char drive[_MAX_DRIVE+1];
_splitpath(path, drive, NULL, NULL, NULL);
strcat(drive, "/");
DWORD nSecPerClust, nBytePerSec, nFreeClust, nTotalClust;
::GetDiskFreeSpace(drive, &nSecPerClust, &nBytePerSec, &nFreeClust, &nTotalClust);
__int64 nFree = nFreeClust;
nFree *= nSecPerClust;
nFree *= nBytePerSec;
unsigned long nVal = nFree > ULONG_MAX ? (unsigned long)ULONG_MAX
: (unsigned long)nFree;
return filesize <= nVal;
}
/*
void os_exec_help_command(MENU_TAG tag, const char* key) void os_exec_help_command(MENU_TAG tag, const char* key)
{ {
TFilename hlp("prassi.hlp"); TFilename hlp("prassi.hlp");
@ -260,6 +250,7 @@ void os_exec_help_command(MENU_TAG tag, const char* key)
default: break; default: break;
} }
} }
*/
int os_execute(const TFilename& path, bool sync, bool iconizetask, bool showchild) int os_execute(const TFilename& path, bool sync, bool iconizetask, bool showchild)
{ {
@ -394,26 +385,6 @@ bool os_spawn_by_menu()
return ok; return ok;
} }
bool os_get_image_editor_path(TFilename& name)
{
// where is EasyDoc installed?
GetPrivateProfileString("Easydoc", "Path", "\\EASYDOC",
name.get_buffer(), name.size(),
"EasyDoc.ini");
// You're unlucky there is no EasyDoc
if (name.empty())
return FALSE;
// paste EasyDoc path
name.add("easydoc.exe");
// is EasyDoc present?
bool ok = name.exist();
return ok;
}
os_type os_get_type() os_type os_get_type()
{ {
os_type t = os_Unknown; os_type t = os_Unknown;
@ -422,20 +393,20 @@ os_type os_get_type()
{ {
switch (ovi.dwPlatformId) switch (ovi.dwPlatformId)
{ {
case VER_PLATFORM_WIN32s : t = os_Win32s; break; case VER_PLATFORM_WIN32s:
case VER_PLATFORM_WIN32_NT : t = os_Win32s;
{ break;
t = os_WindowsNT; case VER_PLATFORM_WIN32_NT:
} t = os_WindowsNT;
break; break;
case VER_PLATFORM_WIN32_WINDOWS: case VER_PLATFORM_WIN32_WINDOWS:
{ t = os_Windows95;
t = os_Windows95; if (ovi.dwMajorVersion == 4 || (ovi.dwMajorVersion > 4 && ovi.dwMinorVersion > 0))
if (ovi.dwMajorVersion == 4 || (ovi.dwMajorVersion > 4 && ovi.dwMinorVersion > 0)) t = os_Windows98;
t = os_Windows98; break;
} default:
t = os_Unknown;
break; break;
default : t = os_Unknown; break; //Windows ME / 98 qui
} }
} }
return t; return t;
@ -491,7 +462,6 @@ void os_set_event_hook()
void os_wake_up_caller() void os_wake_up_caller()
{ {
HWND hwnd = (HWND)xvt_vobj_get_attr(TASK_WIN, ATTR_NATIVE_WINDOW); HWND hwnd = (HWND)xvt_vobj_get_attr(TASK_WIN, ATTR_NATIVE_WINDOW);
WinHelp(hwnd, "prassi.hlp", HELP_QUIT, 0L);
} }
bool os_file_exist(const char* file) bool os_file_exist(const char* file)

2
include/prefix.cpp
View File

@ -923,7 +923,6 @@ void TPrefix::set(
return; return;
if (!force && !test(name)) if (!force && !test(name))
return; return;
if (_prefix != ".") if (_prefix != ".")
{ {
_manager.close_all(); _manager.close_all();
@ -1267,3 +1266,4 @@ bool TPrefix::build_firm_data(long codditta, bool flagcom)
return TRUE; return TRUE;
} }

4
include/progind.cpp
View File

@ -165,10 +165,9 @@ void TIndwin::update_bar()
b.right = b.left + int((b.right-b.left)*prc); b.right = b.left + int((b.right-b.left)*prc);
set_brush(cBar, PAT_SOLID); set_brush(cBar, PAT_SOLID);
xvt_dwin_draw_rect(w, &b); xvt_dwin_draw_rect(w, &b);
set_pen(BTN_BACK_COLOR); set_pen(BTN_BACK_COLOR);
const int nStep = b.bottom-b.top; const int nStep = 2*(b.bottom-b.top)/3;
for (int x = b.left+nStep; x < b.right; x += nStep) for (int x = b.left+nStep; x < b.right; x += nStep)
{ {
for (int i = 0; i < 1; i++) // for (int i = 0; i < 2; i++) for (int i = 0; i < 1; i++) // for (int i = 0; i < 2; i++)
@ -349,3 +348,4 @@ void timerind_destroy()
delete __indwin__p; delete __indwin__p;
__indwin__p = NULL; __indwin__p = NULL;
} }

7
include/real.cpp
View File

@ -399,9 +399,10 @@ real::real (double a)
void real::set_int64(__int64 b) void real::set_int64(__int64 b)
{ {
dzero (ptr ()); TString80 s; s.format("%I64d", b);
trail();
memcpy(ptr()->ls.lsl, &b, sizeof(b)); atod (ptr (), (char *) (const char *) s);
trail();
} }
void real::trail( ) void real::trail( )

14
include/relapp.cpp
View File

@ -480,9 +480,7 @@ void TRelation_application::insert_mode()
// ....possibilmente spostare questa chiamata ..... // ....possibilmente spostare questa chiamata .....
if (_curr_transaction == TRANSACTION_INSERT) if (_curr_transaction == TRANSACTION_INSERT)
ini2insert_mask(); ini2insert_mask();
_mask->load_profile(0, FALSE);
} }
bool TRelation_application::modify_mode() bool TRelation_application::modify_mode()
@ -1648,12 +1646,11 @@ bool TRelation_application::load_transaction()
long firm = cnf.get_long("Firm"); long firm = cnf.get_long("Firm");
if (firm > 0 && firm != get_firm()) if (firm > 0 && firm != get_firm())
{ {
if (set_firm(firm)) bool ok = set_firm(firm);
if (ok)
_mask->on_firm_change(); _mask->on_firm_change();
else else
error_box("Ditta inesistente: %ld", firm); error_box("La ditta %ld non esiste", firm);
} }
@ -1890,3 +1887,4 @@ bool TRelation_application::mask2mail(const TMask& m)
} }
return ok; return ok;
} }

6
include/scanner.cpp
View File

@ -13,7 +13,7 @@ TScanner::TScanner(const char* filename)
: _pushed(FALSE), _line(0), : _pushed(FALSE), _line(0),
_token(128), _key(2), _buffer(1024*16), _tmp(1024*8) _token(128), _key(2), _buffer(1024*16), _tmp(1024*8)
{ {
setbuf((char*)(const char*)_buffer, _buffer.size()); // setbuf((char*)(const char*)_buffer, _buffer.size());
open(filename, ios::in | ios::nocreate, filebuf::sh_read); open(filename, ios::in | ios::nocreate, filebuf::sh_read);
if (fail()) if (fail())
fatal_box("Impossibile leggere il file '%s'", filename); fatal_box("Impossibile leggere il file '%s'", filename);
@ -21,8 +21,8 @@ TScanner::TScanner(const char* filename)
TScanner::~TScanner() TScanner::~TScanner()
{ {
close(); // close();
setbuf(NULL, 0); // Altrimenti si incasina col buffer! // setbuf(NULL, 0); // Altrimenti si incasina col buffer!
} }

65
include/tabutil.cpp
View File

@ -205,3 +205,68 @@ const char* TTable::description()
return _description; return _description;
} }
struct TCallbackTableinfo
{
TString16 _var1, _var2, _var3;
TString4 _module;
TFilename _tabapp, _relapp;
};
HIDDEN int find_relapp(TConfig& cfg, void* jolly)
{
TCallbackTableinfo& info = *((TCallbackTableinfo*)jolly);
if (cfg.exist(info._var1))
{
info._tabapp = cfg.get(info._var1);
if (info._tabapp.not_empty())
return 1;
}
if (cfg.get_paragraph().compare(info._module, 2, TRUE) == 0)
{
if (cfg.exist(info._var2))
{
info._relapp = cfg.get(info._var2);
if (info._relapp.not_empty())
return 2;
}
if (cfg.exist(info._var3))
{
info._relapp = cfg.get(info._var3);
if (info._relapp.not_empty())
return 3;
}
}
return 0;
}
bool TTable::get_relapp(TString& app) const
{
TConfig ini("install.ini");
TCallbackTableinfo fi;
fi._var1.format("Edit_%s", (const char*)_tabname);
fi._var2.format("Edit_%d", num());
fi._var3.format("Edit_%d", num() == LF_TAB ? LF_TABCOM : LF_TAB);
fi._module = ((TTable*)this)->module();
ini.for_each_paragraph(find_relapp, &fi);
app = fi._tabapp;
if (app.empty())
app = fi._relapp;
if (app.empty())
{
app = "ba3 -0";
if (fi._module.compare("ba", 2, TRUE) != 0)
{
TConfig c(CONFIG_STUDIO, fi._module);
if (c.exist("TabPrg"))
app = c.get("TabPrg");
}
}
app << ' ';
if (num() == LF_TABCOM)
app << '%';
app << _tabname;
return app.not_empty();
}

3
include/tabutil.h
View File

@ -55,10 +55,9 @@ public:
// @cmember Ritorna la relapp che gestisce la tabella // @cmember Ritorna la relapp che gestisce la tabella
virtual bool get_relapp(TString& app) const; virtual bool get_relapp(TString& app) const;
// @cmember Ritorna il numero logico della tabella <p tabname> // @cmember Ritorna il numero logico della tabella <p tabname>
static int name2log(const char* tabname); static int name2log(const char* tabname);
}; };
#endif // __TABUTIL_H #endif // __TABUTIL_H

11
include/validate.cpp
View File

@ -159,16 +159,19 @@ HIDDEN bool _pi_val(TMask_field& f, KEY)
const TString& stato = m.get(atoi(get_val_param(0))); const TString& stato = m.get(atoi(get_val_param(0)));
const TString& pi = f.get(); const TString& pi = f.get();
bool ok = pi_check(stato, pi); bool ok = pi_check (stato, pi);
if (!ok) if (!ok)
{ {
if (f.dirty()) if (f.dirty())
{ {
ok = f.yesno_box("Partita IVA errata, la accetto ugualmente?"); bool len_error = TRUE;
if (stato.blank() || stato == "IT")
len_error = pi.len() != 11;
const char* msg = len_error ? "Lunghezza p" : "P";
ok = f.yesno_box("%sartita IVA errata, la accetto ugualmente?", msg);
if (ok) f.set_dirty(FALSE); if (ok) f.set_dirty(FALSE);
} }
else else ok = TRUE; // Era gia' errata e la ho accettata
ok = TRUE; // Era gia' errata e la ho accettata
} }
return ok; return ok;
} }