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

assoc.cpp Corretto il metodo is_key

Browse Source 
expr.cpp      Migliorata l'efficienza ci compilazione e valutazione
printapp.cpp  Corretti commenti
progind.cpp   Corretta posizione della barra
relation.cpp  Resi maiuscoli i nomi dei campi nei TFiledref
sheet.cpp     Resi accettabili TBrowse_sheet senza campo di ricerca
stack.cpp     Aggiunto metodo peek
strings.cpp   Trasformati alcuni yesnofatal_box in NFHECK
viswin.cpp    Corretto errore di scrittura di __LONDOUBLE


git-svn-id: svn://10.65.10.50/trunk@3468 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-08-30 14:30:08 +00:00
parent d44e52809b
commit e7b77a3e3e
14 changed files with 316 additions and 196 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
include/assoc.cpp
View File

@ -239,9 +239,10 @@ TObject* TAssoc_array::objptr(
// @flag FALSE | Se la chiave non esiste // @flag FALSE | Se la chiave non esiste
bool TAssoc_array::is_key( bool TAssoc_array::is_key(
const char* key) const // @parm Chiave da cercarne l'esistenza const char* key) const // @parm Chiave da cercarne l'esistenza
{ {
return objptr(key) != NULL; bool isnew = FALSE;
THash_object* o = ((TAssoc_array *)this)->_lookup(key,isnew);
return o != NULL;
} }
// @doc EXTERNAL // @doc EXTERNAL

4
include/assoc.h
View File

@ -35,8 +35,8 @@ public:
TObject& obj() const TObject& obj() const
{ return *_obj; } { return *_obj; }
// @cmember Costruttore (inizializza la chiave) // @cmember Costruttore (inizializza la chiave ed opzionalmente l'oggetto)
THash_object(const char* k) : _key(k), _obj(NULL) THash_object(const char* k, TObject* o = NULL) : _key(k), _obj(o)
{} {}
// @cmember Distruttore // @cmember Distruttore
~THash_object() ~THash_object()

405
include/expr.cpp
View File

@ -1,4 +1,5 @@
#include <ctype.h> #include <ctype.h>
#include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
#define __EXPR_CPP #define __EXPR_CPP
@ -126,6 +127,58 @@ const char* TVararray::getstring(int varnum)
const TVar* var = (const TVar*)objptr(varnum); const TVar* var = (const TVar*)objptr(varnum);
CHECKD(var, "Variabile nulla: ", varnum); CHECKD(var, "Variabile nulla: ", varnum);
return var->string(); return var->string();
}
///////////////////////////////////////////////////////////
// TEval_stack
///////////////////////////////////////////////////////////
real& TEval_stack::pop_real()
{
TObject& o = pop();
if (o.class_id() == CLASS_STRING)
{
real* r = new real((TString&)o);
push(r);
return (real&)pop();
}
return (real&)o;
}
real& TEval_stack::peek_real()
{
TObject& o = peek(0);
if (o.class_id() == CLASS_STRING)
{
pop();
real* r = new real((TString&)o);
push(r);
return *r;
}
return (real&)o;
}
TString& TEval_stack::pop_string()
{
TObject& o = pop();
if (o.class_id() == CLASS_STRING)
return (TString&)o;
TString* s = new TString(((real&)o).string());
push(s);
return (TString&)pop();
}
TString& TEval_stack::peek_string()
{
TObject& o = peek();
if (o.class_id() == CLASS_STRING)
return (TString&)o;
pop();
TString* s = new TString(((real&)o).string());
push(s);
return *s;
} }
@ -134,13 +187,13 @@ const char* TVararray::getstring(int varnum)
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
TExpression::TExpression(const char* expression, TTypeexp type) TExpression::TExpression(const char* expression, TTypeexp type)
: _original(expression) : _original(expression)
{ {
_val = real(0.0); _val = real(0.0);
_dirty = TRUE; _dirty = TRUE;
_type = type; _type = type;
if (!compile(expression, type)) if (!compile(_original, type))
{ {
error_box("Wrong expression : %s", expression); error_box("Wrong expression : %s", expression);
_code.clear(); _code.clear();
@ -149,8 +202,7 @@ TExpression::TExpression(const char* expression, TTypeexp type)
TExpression::TExpression(TTypeexp type) TExpression::TExpression(TTypeexp type)
: _original("") : _original("")
{ {
_val = real(0.0); _val = real(0.0);
_dirty = FALSE; _dirty = FALSE;
@ -162,7 +214,6 @@ TExpression::TExpression(const TExpression & expr)
: _code(expr._code), _var(expr._var), : _code(expr._code), _var(expr._var),
_val(expr._val), _dirty(expr._dirty), _val(expr._val), _dirty(expr._dirty),
_type(expr._type), _original(expr._original) _type(expr._type), _original(expr._original)
{ {
} }
@ -173,7 +224,6 @@ TObject* TExpression::dup() const
} }
TExpression::operator const real&() TExpression::operator const real&()
{ {
if (user_func_dirty() || _dirty) eval(); if (user_func_dirty() || _dirty) eval();
_dirty = FALSE; _dirty = FALSE;
@ -182,20 +232,25 @@ TExpression::operator const real&()
TExpression::operator const char*() TExpression::operator const char*()
{ {
if (user_func_dirty() || _dirty) eval(); if (user_func_dirty() || _dirty) eval();
_dirty = FALSE; _dirty = FALSE;
return _val.string(); return _val.string();
} }
TExpression::operator bool()
{
if (user_func_dirty() || _dirty) eval();
_dirty = FALSE;
return !_val.number().is_zero();
}
void TExpression::print_on(ostream& out) const void TExpression::print_on(ostream& out) const
{ out << _original; } { out << _original; }
void TExpression::evaluate_user_func(int index, int nparms, TStack & stack, TTypeexp type) const void TExpression::evaluate_user_func(int index, int nparms, TEval_stack& stack, TTypeexp curtype) const
{ {
CHECKD(FALSE, "Unknown function ", index); NFCHECK("Unknown function %d.", index);
for ( int i = nparms ; i > 0; i--) for ( int i = nparms ; i > 0; i--)
stack.pop(); stack.pop();
if (curtype == _numexpr) if (curtype == _numexpr)
@ -204,15 +259,6 @@ void TExpression::evaluate_user_func(int index, int nparms, TStack & stack, TTyp
stack.push(TString("")); stack.push(TString(""));
} }
TExpression::operator bool()
{
if (user_func_dirty() || _dirty) eval();
_dirty = FALSE;
return !_val.number().is_zero();
}
void TExpression::setvar(const char* varname, const real& val) void TExpression::setvar(const char* varname, const real& val)
{ {
@ -261,12 +307,12 @@ bool TExpression::print_error(const char* msg) const
void TExpression::eval() void TExpression::eval()
{ {
TStack evalstack(50); TEval_stack evalstack;
TBit_array types; TBit_array types;
int type_pointer = 0; int type_pointer = 0;
TCode instr; TCode instr;
real o1, o2; real o1, o2;
TString s1, s2; TString s1, s2;
types.set(type_pointer, (_type == _numexpr)); types.set(type_pointer, (_type == _numexpr));
@ -303,161 +349,171 @@ void TExpression::eval()
break; break;
case _plus: case _plus:
if (type == _strexpr) if (type == _strexpr)
{ {
s2 = (TString&) evalstack.pop(); /*
s1 = (TString&) evalstack.pop(); s2 = evalstack.pop_string();
s1 = evalstack.pop_string();
s1 << s2; s1 << s2;
evalstack.push(s1); evalstack.push(s1);
*/
// Non unire le seguenti righe
const TString& s = evalstack.pop_string();
evalstack.peek_string() << s;
} }
else else
{ {
o2 = (real&) evalstack.pop(); /*
o1 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = evalstack.pop_real();
evalstack.push(real(o1 + o2)); evalstack.push(real(o1 + o2));
*/
// Non unire le seguenti righe
const real& r = evalstack.pop_real();
evalstack.peek_real() += r;
} }
break; break;
case _minus: case _minus:
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real(o1 - o2)); evalstack.push(real(o1 - o2));
break; break;
case _multiply: case _multiply:
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real(o1 * o2)); evalstack.push(real(o1 * o2));
break; break;
case _divide: case _divide:
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
if (o2.is_zero()) if (o2.is_zero())
{ {
print_error("Divisione per zero!"); print_error("Divisione per zero!");
o2 = 1.0; o2 = 1.0;
} }
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real(o1 / o2)); evalstack.push(real(o1 / o2));
break; break;
case _chgs: case _chgs:
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(-o1); evalstack.push(-o1);
break; break;
case _and: case _and:
if (type == _strexpr) if (type == _strexpr)
{ {
o2 = real((const char*)(TString&)evalstack.pop()); o2 = real((const char*)evalstack.pop_string());
o1 = real((const char*)(TString&)evalstack.pop()); o1 = real((const char*)evalstack.pop_string());
evalstack.push(TString((o1 != ZERO && o2 != ZERO) ? "1" : "0")); evalstack.push(TString((o1 != ZERO && o2 != ZERO) ? "1" : "0"));
} }
else else
{ {
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real((o1 != ZERO && o2 != ZERO) ? 1.0 : 0.0)); evalstack.push(real((o1 != ZERO && o2 != ZERO) ? 1.0 : 0.0));
} }
break; break;
case _or: case _or:
if (type == _strexpr) if (type == _strexpr)
{ {
o2 = real((const char*) (TString&)evalstack.pop()); o2 = real((const char*) evalstack.pop_string());
o1 = real((const char*) (TString&)evalstack.pop()); o1 = real((const char*) evalstack.pop_string());
evalstack.push(TString((o1 != ZERO || o2 != ZERO) ? "1" : "0")); evalstack.push(TString((o1 != ZERO || o2 != ZERO) ? "1" : "0"));
} }
else else
{ {
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real((o1 != ZERO || o2 != ZERO) ? 1.0 : 0.0)); evalstack.push(real((o1 != ZERO || o2 != ZERO) ? 1.0 : 0.0));
} }
break; break;
case _not: case _not:
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real((o1 == ZERO) ? 1.0 : 0.0)); evalstack.push(real((o1 == ZERO) ? 1.0 : 0.0));
break; break;
case _equal: case _equal:
if (type == _strexpr) if (type == _strexpr)
{ {
s2 = (TString&) evalstack.pop(); s2 = evalstack.pop_string();
s1 = (TString&) evalstack.pop(); s1 = evalstack.pop_string();
evalstack.push(TString((s1 == s2) ? "1" : "0")); evalstack.push(TString((s1 == s2) ? "1" : "0"));
} }
else else
{ {
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real((o1 == o2) ? 1.0 : 0.0)); evalstack.push(real((o1 == o2) ? 1.0 : 0.0));
} }
break; break;
case _match: case _match:
s2 = (TString&) evalstack.pop(); s2 = evalstack.pop_string();
s1 = (TString&) evalstack.pop(); s1 = evalstack.pop_string();
evalstack.push(TString((s1.match(s2)) ? "1" : "0")); evalstack.push(TString((s1.match(s2)) ? "1" : "0"));
break; break;
case _noteq: case _noteq:
if (type == _strexpr) if (type == _strexpr)
{ {
s2 = (TString&) evalstack.pop(); s2 = evalstack.pop_string();
s1 = (TString&) evalstack.pop(); s1 = evalstack.pop_string();
evalstack.push(TString(s1 != s2 ? "1" : "0")); evalstack.push(TString(s1 != s2 ? "1" : "0"));
} }
else else
{ {
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real((o1 != o2) ? 1.0 : 0.0)); evalstack.push(real((o1 != o2) ? 1.0 : 0.0));
} }
break; break;
case _lt: case _lt:
if (type == _strexpr) if (type == _strexpr)
{ {
s2 = (TString&) evalstack.pop(); s2 = evalstack.pop_string();
s1 = (TString&) evalstack.pop(); s1 = evalstack.pop_string();
evalstack.push(TString((s1 < (const char*)s2) ? "1" : "0")); evalstack.push(TString((s1 < (const char*)s2) ? "1" : "0"));
} }
else else
{ {
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real((o1 < o2) ? 1.0 : 0.0)); evalstack.push(real((o1 < o2) ? 1.0 : 0.0));
} }
break; break;
case _gt: case _gt:
if (type == _strexpr) if (type == _strexpr)
{ {
s2 = (TString&) evalstack.pop(); s2 = evalstack.pop_string();
s1 = (TString&) evalstack.pop(); s1 = evalstack.pop_string();
evalstack.push(TString((s1 > (const char*)s2) ? "1" : "0")); evalstack.push(TString((s1 > (const char*)s2) ? "1" : "0"));
} }
else else
{ {
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real((o1 > o2) ? 1.0 : 0.0)); evalstack.push(real((o1 > o2) ? 1.0 : 0.0));
} }
break; break;
case _lteq: case _lteq:
if (type == _strexpr) if (type == _strexpr)
{ {
s2 = (TString&) evalstack.pop(); s2 = evalstack.pop_string();
s1 = (TString&) evalstack.pop(); s1 = evalstack.pop_string();
evalstack.push(TString((s1 <= (const char*)s2) ? "1" : "0")); evalstack.push(TString((s1 <= (const char*)s2) ? "1" : "0"));
} }
else else
{ {
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real((o1 <= o2) ? 1.0 : 0.0)); evalstack.push(real((o1 <= o2) ? 1.0 : 0.0));
} }
break; break;
case _gteq: case _gteq:
if (type == _strexpr) if (type == _strexpr)
{ {
s2 = (TString&) evalstack.pop(); s2 = evalstack.pop_string();
s1 = (TString&) evalstack.pop(); s1 = evalstack.pop_string();
evalstack.push(TString((s1 >= (const char*)s2) ? "1" : "0")); evalstack.push(TString((s1 >= (const char*)s2) ? "1" : "0"));
} }
else else
{ {
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real((o1 >= o2) ? 1.0 : 0.0)); evalstack.push(real((o1 >= o2) ? 1.0 : 0.0));
} }
break; break;
@ -470,41 +526,41 @@ void TExpression::eval()
} }
break; break;
case _sqrt: case _sqrt:
evalstack.push(real(sqrt((real&) evalstack.pop()))); evalstack.push(real(sqrt(evalstack.pop_real())));
break; break;
case _sqr: case _sqr:
evalstack.push(real(sqr((real&) evalstack.pop()))); evalstack.push(real(sqr(evalstack.pop_real())));
break; break;
case _exp10: case _exp10:
evalstack.push(real(exp10((real&) evalstack.pop()))); evalstack.push(real(exp10(evalstack.pop_real())));
break; break;
case _exp: case _exp:
evalstack.push(real(exp((real&) evalstack.pop()))); evalstack.push(real(exp(evalstack.pop_real())));
break; break;
case _log10: case _log10:
evalstack.push(real(log10((real&) evalstack.pop()))); evalstack.push(real(log10(evalstack.pop_real())));
break; break;
case _log: case _log:
evalstack.push(real(log((real&) evalstack.pop()))); evalstack.push(real(log(evalstack.pop_real())));
break; break;
case _sin: case _sin:
evalstack.push(real(sin((real&) evalstack.pop()))); evalstack.push(real(sin(evalstack.pop_real())));
break; break;
case _cos: case _cos:
evalstack.push(real(cos((real&) evalstack.pop()))); evalstack.push(real(cos(evalstack.pop_real())));
break; break;
case _tan: case _tan:
evalstack.push(real(tan((real&) evalstack.pop()))); evalstack.push(real(tan(evalstack.pop_real())));
break; break;
case _left: case _left:
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
s2 = (TString&) evalstack.pop(); s2 = evalstack.pop_string();
s1 = s2.left((int)o2.integer()); s1 = s2.left((int)o2.integer());
evalstack.push(s1); evalstack.push(s1);
break; break;
case _right: case _right:
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
s2 = (TString&) evalstack.pop(); s2 = evalstack.pop_string();
s1 = s2.right((int)o2.integer()); s1 = s2.right((int)o2.integer());
evalstack.push(s1); evalstack.push(s1);
break; break;
@ -512,7 +568,8 @@ void TExpression::eval()
{ {
int count = (int)((const real&)evalstack.pop()).integer(); int count = (int)((const real&)evalstack.pop()).integer();
if (count == 0) count--; if (count == 0) count--;
const int from = (int)((const real&)evalstack.pop()).integer() - 1; int from = (int)((const real&)evalstack.pop()).integer() - 1;
if (from < 0) from = 0;
const TString& s = ((const TString&)evalstack.pop()).mid(from, count); const TString& s = ((const TString&)evalstack.pop()).mid(from, count);
evalstack.push(s); evalstack.push(s);
} }
@ -520,59 +577,63 @@ void TExpression::eval()
case _substr: case _substr:
{ {
const int to = (int)((const real&)evalstack.pop()).integer(); const int to = (int)((const real&)evalstack.pop()).integer();
const int from = (int)((const real&)evalstack.pop()).integer() - 1; int from = (int)((const real&)evalstack.pop()).integer() - 1;
if (from < 0) from = 0;
const TString& s = ((const TString&)evalstack.pop()).sub(from, to); const TString& s = ((const TString&)evalstack.pop()).sub(from, to);
evalstack.push(s); evalstack.push(s);
} }
break; break;
case _pow: case _pow:
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real(pow(o1, o2))); evalstack.push(real(pow(o1, o2)));
break; break;
case _min: case _min:
o2 = (real&)evalstack.pop(); o2 = (real&)evalstack.pop();
o1 = (real&)evalstack.pop(); o1 = (real&)evalstack.pop();
evalstack.push(real(fnc_min(o1, o2))); evalstack.push(o1 < o2 ? o1 : o2);
break; break;
case _max: case _max:
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
evalstack.push(real(fnc_max(o1, o2))); evalstack.push(o1 > o2 ? o1 : o2);
break; break;
case _upper: case _upper:
s1 = (TString&) evalstack.pop(); /*
s1 = evalstack.pop_string();
s1.upper(); s1.upper();
evalstack.push(s1); evalstack.push(s1);
*/
evalstack.peek_string().upper();
break; break;
case _round: case _round:
{ {
const int ndec = (int)((real&) evalstack.pop()).integer(); const int ndec = (int)(evalstack.pop_real()).integer();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
o1.round(ndec); o1.round(ndec);
evalstack.push(o1); evalstack.push(o1);
} }
break; break;
case _trunc: case _trunc:
{ {
const int ndec = (int)((real&) evalstack.pop()).integer(); const int ndec = (int)(evalstack.pop_real()).integer();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
o1.trunc(ndec); o1.trunc(ndec);
evalstack.push(o1); evalstack.push(o1);
} }
break; break;
case _ceil: case _ceil:
{ {
const int ndec = (int)((real&) evalstack.pop()).integer(); const int ndec = (int)(evalstack.pop_real()).integer();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
o1.ceil(ndec); o1.ceil(ndec);
evalstack.push(o1); evalstack.push(o1);
} }
break; break;
case _perc: case _perc:
{ {
o2 = (real&) evalstack.pop(); o2 = evalstack.pop_real();
o1 = (real&) evalstack.pop(); o1 = evalstack.pop_real();
const real val = real(o1 * o2 / 100.0); const real val = real(o1 * o2 / 100.0);
evalstack.push(val); evalstack.push(val);
} }
@ -589,16 +650,16 @@ void TExpression::eval()
{ {
if (type == _strexpr) if (type == _strexpr)
{ {
s1 = (TString&)evalstack.pop(); s1 = evalstack.pop_string();
s2 = (TString&)evalstack.pop(); s2 = evalstack.pop_string();
const real cond = (real) (TString&) evalstack.pop();; const real cond(evalstack.pop_string());
evalstack.push(cond.is_zero() ? s1 : s2); evalstack.push(cond.is_zero() ? s1 : s2);
} }
else else
{ {
o1 = (real&)evalstack.pop(); o1 = (real&)evalstack.pop();
o2 = (real&)evalstack.pop(); o2 = (real&)evalstack.pop();
const real cond = (real&) evalstack.pop();; const real cond = (real&)evalstack.pop();
evalstack.push(cond.is_zero() ? o1 : o2); evalstack.push(cond.is_zero() ? o1 : o2);
} }
} }
@ -636,11 +697,17 @@ void TExpression::eval()
break; break;
} }
} }
if (_type == _strexpr) // L'espressione non e' vuota
_val = (TString&)evalstack.pop(); if (_code.items() > 1)
{
if (_type == _strexpr)
_val = evalstack.pop_string();
else
_val = evalstack.pop_real();
}
else else
_val = (real&)evalstack.pop(); _val = ZERO;
} }
@ -667,42 +734,49 @@ TCodesym TExpression::tok2fun(const char* tok) const
int f = 0, l = MAX_TOK-1, i; int f = 0, l = MAX_TOK-1, i;
while (TRUE) while (TRUE)
{ {
i = (f+l)>>1; // i = (f+l)>>1;
i = (toupper(*tok) - *fnstr[f]) * (l-f+1) / (*fnstr[l] - *fnstr[f] + 1);
if (i < f || i > l)
return _invalid;
const int cmp = stricmp(tok, fnstr[i]); const int cmp = stricmp(tok, fnstr[i]);
if (cmp == 0) if (cmp == 0)
break; break;
if (cmp > 0) f = i+1; if (cmp > 0) f = i+1;
else l = i-1; else l = i-1;
if (f > l) if (f > l)
{ return _invalid;
i = -1; }
break; CHECKD(i >= 0 && i < MAX_TOK, "Invalid function index ", i);
} return fntok[i];
}
return i >= 0 ? fntok[i] : _invalid;
} }
TCodesym TExpression::__gettoken(bool reduct) TCodesym TExpression::__gettoken(bool /* reduct */)
{ {
TCodesym sym = _invalid; TCodesym sym = _invalid;
int i = 0; int i = 0;
_tok[0] = '\0'; _tok[0] = '\0';
while (isspace(*_s)) _s++; while (isspace(*_s)) _s++;
if (!*_s) return _endsym; if (!*_s) return _endsym;
/*
if ((reduct) && (*_s == ',')) if ((reduct) && (*_s == ','))
{ {
_s++; _s++;
return _comma; return _comma;
} }
if (isdigit(*_s) || (*_s == '.') || (*_s == ',')) */
if (isdigit(*_s) || (*_s == '.') /* || (*_s == ',') */)
{ {
sym = _number; sym = _number;
while (isalpha(*_s) || isdigit(*_s) || (*_s == '-') || (*_s == '[') || while (isalnum(*_s) || (*_s == '-') || (*_s == '[') ||
(*_s == ']') || (*_s == '.') || (*_s == ':') || (*_s == ']') || (*_s == '.') || (*_s == ':') ||
(!reduct && (*_s == ','))) (*_s == '_') || (sym == _variable && (*_s == ',')))
{ {
if (*_s == '-') if (*_s == '-')
{ {
@ -714,19 +788,22 @@ TCodesym TExpression::__gettoken(bool reduct)
else else
{ {
if (sym == _number) if (sym == _number)
if ((isalpha(*_s)) ||(*_s == '[') || (*_s == ']') || {
(*_s == ',') || (*_s == ':')) sym = _variable; if (isalpha(*_s) || (*_s == '[') || (*_s == ']') ||
(*_s == ',') || (*_s == ':') || (*_s == '_'))
sym = _variable;
}
_tok[i++] = *(_s++); _tok[i++] = *(_s++);
} }
} }
_tok[i] = '\0'; _tok[i] = '\0';
return sym; return sym;
} }
if (isalpha(*_s) || (*_s == '#')) if (isalpha(*_s) || (*_s == '#') || (*_s == '_'))
{ {
_tok[i++] = *(_s++); _tok[i++] = *(_s++);
while (isalpha(*_s) || isdigit(*_s) || (*_s == '-') || (*_s == '[') || while (isalnum(*_s) || (*_s == '-') || (*_s == '[') ||
(*_s == ']') || (*_s == ':') || (!reduct && (*_s == ','))) (*_s == ']') || (*_s == ':') || (*_s == ',') || (*_s == '_'))
{ {
if (*_s == '-') if (*_s == '-')
{ {
@ -760,7 +837,8 @@ TCodesym TExpression::__gettoken(bool reduct)
return _string; return _string;
} }
case ',' : case ',' :
_s++; _tok[i++] = *(_s++);
_tok[i] = '\0';
return _comma; return _comma;
case '(' : case '(' :
_tok[i++] = *(_s++); _tok[i++] = *(_s++);
@ -854,18 +932,38 @@ TCodesym TExpression::__factor(TCodesym startsym)
case _lpar: case _lpar:
sym = __gettoken(); sym = __gettoken();
sym = __expression(sym); sym = __expression(sym);
if (sym == _rpar) sym = __gettoken(); if (sym == _rpar) sym = __gettoken();
else sym = _invalid;
break; break;
case _variable: case _variable:
{
int from = 1, to = 0;
char* quadra = strchr(_tok, '[');
if (quadra)
{
if (sscanf(quadra, "[%d,%d]", &from, &to) == 0)
{
sym = _invalid;
break;
}
*quadra = '\0';
}
_code.add(_variable, _tok);
if (quadra)
{
_code.add(_number, real(from));
_code.add(_number, real(to > from ? to-from+1 : 0));
_code.add(_mid);
}
for (int i = numvar()-1 ; i >= 0; i--)
if (strcmp(_tok, varname(i)) == 0) break;
if (i < 0) _var.add(_tok);
sym = __gettoken(TRUE);
}
break;
case _number: case _number:
case _string: case _string:
_code.add(startsym, _tok); _code.add(startsym, _tok);
if (startsym == _variable)
{
for (int i = 0 ; i < numvar(); i++)
if (strcmp(_tok, varname(i)) == 0) break;
if (i == numvar()) _var.add(_tok);
}
sym = __gettoken(TRUE); sym = __gettoken(TRUE);
break; break;
case _userfunc: case _userfunc:
@ -901,6 +999,8 @@ TCodesym TExpression::__factor(TCodesym startsym)
sym = __gettoken(TRUE); sym = __gettoken(TRUE);
} }
} }
else
sym = _invalid;
} }
} }
break; break;
@ -926,8 +1026,7 @@ TCodesym TExpression::__factor(TCodesym startsym)
sym = __gettoken(); sym = __gettoken();
if (sym == _lpar) sym = __gettoken(); if (sym == _lpar) sym = __gettoken();
else break; else break;
if ((sym == _string) || (sym == _variable)) sym = __expression(sym); sym = __expression(sym);
else break;
if (sym == _rpar) sym = __gettoken(); if (sym == _rpar) sym = __gettoken();
else break; else break;
_code.add(startsym); _code.add(startsym);
@ -958,8 +1057,7 @@ TCodesym TExpression::__factor(TCodesym startsym)
sym = __gettoken(); sym = __gettoken();
if (sym == _lpar) sym = __gettoken(TRUE); if (sym == _lpar) sym = __gettoken(TRUE);
else break; else break;
if ((sym == _string) || (sym == _variable)) sym = __expression(sym); sym = __expression(sym);
else break;
if (sym == _comma) sym = __gettoken(TRUE); if (sym == _comma) sym = __gettoken(TRUE);
else break; else break;
sym = __expression(sym); sym = __expression(sym);
@ -1005,29 +1103,25 @@ TCodesym TExpression::__factor(TCodesym startsym)
TCodesym TExpression::__term(TCodesym startsym) TCodesym TExpression::__term(TCodesym startsym)
{ {
TCodesym sym; TCodesym sym = __factor(startsym);
while (sym == _multiply || sym == _divide)
sym = __factor(startsym);
while ((sym != _endsym) && ((sym == _multiply) || (sym == _divide)))
{ {
TCodesym savedsym = sym; const TCodesym savedsym = sym;
sym = __gettoken(); sym = __gettoken();
sym = __factor(sym); sym = __factor(sym);
_code.add(savedsym); _code.add(savedsym);
} }
return sym; return sym;
} }
TCodesym TExpression::__expression(TCodesym startsym) TCodesym TExpression::__expression(TCodesym startsym)
{ {
TCodesym sym; TCodesym sym;
if ((startsym == _minus) || (startsym == _not) || (startsym == _plus)) if ((startsym == _minus) || (startsym == _not) || (startsym == _plus))
sym =__gettoken(); sym =__gettoken();
else sym = startsym; else
sym = startsym;
sym = __term(sym); sym = __term(sym);
if ((startsym == _minus) || (startsym == _not)) if ((startsym == _minus) || (startsym == _not))
_code.add(startsym == _not ? startsym : _chgs); _code.add(startsym == _not ? startsym : _chgs);
@ -1050,18 +1144,20 @@ bool TExpression::set(const char* expression, TTypeexp type)
_original = expression; _original = expression;
_type = type; _type = type;
_dirty = TRUE; _dirty = TRUE;
return compile(expression, type); return compile(_original, type);
} }
bool TExpression::compile(const char* expression, TTypeexp type) bool TExpression::compile(const char* expression, TTypeexp type)
{ {
TString sc(256);
TCodesym currsym; TCodesym currsym;
_user_func_defined = FALSE; _user_func_defined = FALSE;
_s = expression; _s = expression;
_type = type; _type = type;
/*
TString sc(256);
while (((currsym = __gettoken()) != _endsym) && (currsym != _invalid)) while (((currsym = __gettoken()) != _endsym) && (currsym != _invalid))
{ {
if (currsym == _variable) if (currsym == _variable)
@ -1102,14 +1198,17 @@ bool TExpression::compile(const char* expression, TTypeexp type)
else sc << " " << _tok; else sc << " " << _tok;
} }
_s = sc; _s = sc;
*/
_val = real(0.0); _val = real(0.0);
_code.clear(); _code.clear();
if (!*_s) return TRUE; if (*_s == '\0')
if ((currsym = __gettoken()) == _invalid) return FALSE; return TRUE;
if ((currsym = __gettoken()) == _invalid)
return FALSE;
return __expression(currsym) == _endsym; return __expression(currsym) == _endsym;
} }
const char* TExpression::last_compiled_token() const const char* TExpression::last_token() const
{ {
return _tok; return _tok;
} }

24
include/expr.h
View File

@ -1,14 +1,15 @@
#ifndef __EXPR_H #ifndef __EXPR_H
#define __EXPR_H #define __EXPR_H
#ifndef __STRINGS_H
#include <strings.h>
#endif
#ifndef __REAL_H #ifndef __REAL_H
#include <real.h> #include <real.h>
#endif #endif
#ifndef __STACK_H
#include <stack.h>
#endif
// @doc INTERNAL // @doc INTERNAL
// @enum TCodesym | Lista di simboli/istruzioni possibili // @enum TCodesym | Lista di simboli/istruzioni possibili
@ -363,7 +364,14 @@ public:
{} {}
}; };
class TStack; class TEval_stack : public TStack
{
public:
real& pop_real();
real& peek_real();
TString& pop_string();
TString& peek_string();
};
// @doc EXTERNAL // @doc EXTERNAL
@ -396,7 +404,7 @@ class TExpression : public TObject
// @access Protected Member // @access Protected Member
protected: protected:
// @cmember funzione utente da ricalcolare // @cmember funzione utente da ricalcolare
virtual bool user_func_dirty() { return _user_func_defined;} virtual bool user_func_dirty() const { return _user_func_defined; }
// @cmember stampa un messaggio d'errore // @cmember stampa un messaggio d'errore
virtual bool print_error(const char* msg) const; virtual bool print_error(const char* msg) const;
// @cmember Valuta (calcola) l'espressione // @cmember Valuta (calcola) l'espressione
@ -418,7 +426,7 @@ protected:
protected: // TObject protected: // TObject
// @cmember Stampa l'espressione su <p out> (serve per implementare l'insertore) // @cmember Stampa l'espressione su <p out> (serve per implementare l'insertore)
virtual void print_on(ostream& out) const ; virtual void print_on(ostream& out) const ;
virtual void evaluate_user_func(int index, int nparms, TStack & stack, TTypeexp type) const; virtual void evaluate_user_func(int index, int nparms, TEval_stack& stack, TTypeexp type) const;
virtual int parse_user_func(const char * name, int nparms) const { return -1; } virtual int parse_user_func(const char * name, int nparms) const { return -1; }
// @access Public Member // @access Public Member
@ -460,7 +468,7 @@ public:
{ _type = type; } { _type = type; }
// @cmember Setta l'espressione e la compila (ritorna il risultato della compilazione) // @cmember Setta l'espressione e la compila (ritorna il risultato della compilazione)
bool set(const char* expression, TTypeexp type = _numexpr); bool set(const char* expression, TTypeexp type = _numexpr);
const char* last_compiled_token() const; const char* last_token() const;
// @cmember Ritorna l'espressione originale // @cmember Ritorna l'espressione originale
const char * string() const { return _original; } const char * string() const { return _original; }

2
include/printapp.cpp
View File

@ -886,7 +886,7 @@ void TPrint_application::set_row (
if (ch == 't' || ch == 'a') if (ch == 't' || ch == 'a')
t << 's'; t << 's';
else if (ch == 'r') else if (ch == 'r')
#ifdef __LONGDOUBLE #ifdef __LONGDOUBLE__
t << "Lf"; t << "Lf";
#else #else
t << 't'; t << 't';

15
include/progind.cpp
View File

@ -28,14 +28,9 @@ TIndwin::TIndwin(long max, const char* txt, bool cancel, bool bar, int div)
word maxlen = div; word maxlen = div;
const word lines = measure_text(testo, maxlen); const word lines = measure_text(testo, maxlen);
int ver = lines+3;
int hor = maxlen+3; if (hor > 78) hor = 78; int hor = maxlen+3; if (hor > 78) hor = 78;
int ver = lines+3;
if (bar) ver += bar ? 2 : 0;
{
_bar = ver * CHARY;
ver += 2;
}
ver += cancel ? 2 : 0; ver += cancel ? 2 : 0;
set_win(create_interface(TASK_WIN, -1, -1, hor, ver, TITLE_TEXT, this, FALSE)); set_win(create_interface(TASK_WIN, -1, -1, hor, ver, TITLE_TEXT, this, FALSE));
@ -45,6 +40,12 @@ TIndwin::TIndwin(long max, const char* txt, bool cancel, bool bar, int div)
testo.replace('\n', '\r'); testo.replace('\n', '\r');
_text->set_caption(testo); _text->set_caption(testo);
if (bar)
{
RCT r; _text->get_rect(r);
_bar = r.bottom + CHARY;
}
if (cancel) if (cancel)
{ {
_cancel = new TPushbutton_control(win(), DLG_CANCEL, -11, -1, 10, 2, "", "Annulla", BMP_CANCEL); _cancel = new TPushbutton_control(win(), DLG_CANCEL, -11, -1, 10, 2, "", "Annulla", BMP_CANCEL);

2
include/rectypes.h
View File

@ -43,7 +43,7 @@ enum TDirop {
// @enum TFieldtypes | Elenco tipi di campi // @enum TFieldtypes | Elenco tipi di campi
enum TFieldtypes { enum TFieldtypes {
_nullfld, // @emem Campo vuoto _nullfld, // @emem Campo non definito
_alfafld, // @emem Campo di tipo alfanumerico _alfafld, // @emem Campo di tipo alfanumerico
_intfld, // @emem Campo di tipo intero _intfld, // @emem Campo di tipo intero
_longfld, // @emem Campo di tipo intero lungo _longfld, // @emem Campo di tipo intero lungo

8
include/relation.cpp
View File

@ -1271,7 +1271,7 @@ TRecnotype TCursor::readrec()
// @rdesc Ritorna il numero di errore che si verifica nel porre il lock (NOERR) se // @rdesc Ritorna il numero di errore che si verifica nel porre il lock (NOERR) se
// non si verificano errori // non si verificano errori
int TCursor::lock( int TCursor::lock(
TReclock l) // @parm Tipo di locke da porre sul record (vedi <t TReclock>) TReclock l) // @parm Tipo di lock da porre sul record (vedi <t TReclock>)
{ {
int rt=NOERR; int rt=NOERR;
switch(l) switch(l)
@ -1685,8 +1685,10 @@ TFieldref& TFieldref::operator =(
_fileid = pos = 0; _fileid = pos = 0;
} }
int par = s.find('[', pos); int par = s.find('[', pos); // Cerca la fine del nome del campo
_name = s.sub(pos, par); _name.strip(" "); _name = s.sub(pos, par); // Estrae il nome del campo
_name.strip(" "); // Elimina eventuali spazi superflui
_name.upper(); // Converte in maiuscolo il nome del campo
if (par > 0) if (par > 0)
{ {

20
include/sheet.cpp
View File

@ -1081,8 +1081,11 @@ bool TBrowse_sheet::browse_field_handler(TMask_field& f, KEY k)
c.set(f.get()); c.set(f.get());
TBrowse* b = e.browse(); TBrowse* b = e.browse();
b->do_input(FALSE); if (b)
rec = b->cursor()->read(_isgteq); {
b->do_input(FALSE);
rec = b->cursor()->read(_isgteq);
}
} else } else
if (k == K_F2) if (k == K_F2)
rec = 0; rec = 0;
@ -1125,7 +1128,8 @@ bool TBrowse_sheet::last_browse_field_handler(TMask_field& f, KEY k)
TBrowse_sheet::TBrowse_sheet(TCursor* cursor, const char* fields, TBrowse_sheet::TBrowse_sheet(TCursor* cursor, const char* fields,
const char* title, const char* head, byte buttons, const char* title, const char* head, byte buttons,
TEdit_field* f, TToken_string& sibling) TEdit_field* f, TToken_string& sibling)
: TCursor_sheet(cursor, fields, title, head, buttons, f->browse()->input_fields()), : TCursor_sheet(cursor, fields, title, head, buttons,
f->browse() ? f->browse()->input_fields() : 1),
_field(f), _sel(0) _field(f), _sel(0)
{ {
TToken_string ca; // Tag buttons TToken_string ca; // Tag buttons
@ -1143,11 +1147,15 @@ TBrowse_sheet::TBrowse_sheet(TCursor* cursor, const char* fields,
if (n > 0) if (n > 0)
add_tag_button(0, ca, _sel); add_tag_button(0, ca, _sel);
TBrowse* browse = f->browse();
if (browse == NULL)
return;
TToken_string tids = head; TToken_string tids = head;
TToken_string tfns = fields; TToken_string tfns = fields;
TToken_string ids = f->browse()->get_input_fields(); TToken_string ids = browse->get_input_fields();
TToken_string fns = f->browse()->get_input_field_names(); TToken_string fns = browse->get_input_field_names();
TEditable_field* e = NULL; TEditable_field* e = NULL;
short y = 0; short y = 0;
for (const char* i = ids.get(0); i; i = ids.get()) for (const char* i = ids.get(0); i; i = ids.get())

4
include/stack.cpp
View File

@ -15,12 +15,12 @@ void TStack::push(TObject* o)
TObject& TStack::pop() TObject& TStack::pop()
{ {
CHECK(count() > 0, "Stack underflow!"); CHECK(_sp > 0, "Stack underflow!");
return (*this)[--_sp]; return (*this)[--_sp];
} }
TObject& TStack::peek(int depth) const TObject& TStack::peek(int depth) const
{ {
CHECK(depth > _sp, "Stack underflow!"); CHECKD(depth >= 0 && depth < _sp, "Stack depth error: ", depth);
return (*this)[_sp-depth-1]; return (*this)[_sp-depth-1];
} }

8
include/strings.cpp
View File

@ -402,7 +402,7 @@ const TString& TString::mid(
#ifdef DBG #ifdef DBG
if (from < 0) if (from < 0)
{ {
yesnofatal_box("Ivalid MID parameter: from = %d", from); NFCHECK("Ivalid MID parameter: from = %d", from);
from = 0; from = 0;
} }
#endif #endif
@ -435,11 +435,9 @@ TString& TString::cut(int n)
CHECKD(n >= 0, "Invalid TString::cut position ", n); CHECKD(n >= 0, "Invalid TString::cut position ", n);
if (n <= _size) if (n <= _size)
_str[n] = '\0'; _str[n] = '\0';
#ifdef DBG
else else
yesnofatal_box("Hai tagliato a %d la stringa '%s' lunga %d(%d)", NFCHECK("Hai tagliato a %d la stringa '%s' lunga %d(%d)",
n, _str, len(), size()); n, _str, len(), size());
#endif
return *this; return *this;
} }

2
include/text.h
View File

@ -198,7 +198,7 @@ public:
// @cmember Costruttore // @cmember Costruttore
TTextfile(const char* file = NULL, int pagesize = DEFAULT_PAGESIZE, direction preferred = updown, bool interactive = TRUE); TTextfile(const char* file = NULL, int pagesize = DEFAULT_PAGESIZE, direction preferred = updown, bool interactive = TRUE);
// @cmember DIstruttore // @cmember Distruttore
virtual ~TTextfile(); virtual ~TTextfile();
}; };

9
include/viswin.cpp
View File

@ -667,8 +667,8 @@ void TViswin::paint_screen ()
xvt_dwin_draw_set_pos (win (), b); xvt_dwin_draw_set_pos (win (), b);
xvt_dwin_draw_line (win (), e); xvt_dwin_draw_line (win (), e);
set_brush (COLOR_DKGRAY); set_brush (COLOR_DKGRAY);
bar (X_OFFSET-1, (int)(j+(long)Y_OFFSET-origin().y),(int)columns(), bar (X_OFFSET-1, (int)(j+(long)Y_OFFSET-origin().y),
(int)(rows()-(long)BUTTONROW_SIZE)); (int)columns()+1, (int)(rows()-(long)BUTTONROW_SIZE));
autoscroll (TRUE); autoscroll (TRUE);
break; break;
#endif #endif
@ -2524,7 +2524,10 @@ TViswin::TViswin(const char *fname,
// load info from config on buttons and rulers // load info from config on buttons and rulers
TConfig cnf(CONFIG_USER, "Visualizzazione"); TConfig cnf(CONFIG_USER, "Visualizzazione");
_showbuts = cnf.get_bool("Bottoni", NULL, -1,TRUE); _showbuts = cnf.get_bool("Bottoni", NULL, -1,TRUE);
_rulers = cnf.get_bool("Righelli", NULL, -1,TRUE);
// Se rulers vale 3 allora leggi dal config il vero valore
if (_rulers != FALSE && _rulers != TRUE)
_rulers = cnf.get_bool("Righelli", NULL, -1,TRUE);
} }
const int larg = 76; const int larg = 76;

4
include/viswin.h
View File

@ -328,11 +328,11 @@ public:
void find_next(); void find_next();
// @cmember void | TViswin | const char* fname=NULL, const char* title=NULL, // @cmember void | TViswin | const char* fname=NULL, const char* title=NULL,
// bool editbutton=TRUE, int width=0, bool rulers=TRUE, // bool editbutton=TRUE, int width=0, bool rulers=3,
// WINDOW parent=NULL_WIN, TBrowsefile_field*=NULL | Costruttore // WINDOW parent=NULL_WIN, TBrowsefile_field*=NULL | Costruttore
TViswin(const char* fname=NULL, const char* title=NULL, bool editbutton=TRUE, TViswin(const char* fname=NULL, const char* title=NULL, bool editbutton=TRUE,
bool printbutton=TRUE, bool linkbutton=TRUE, int x=-1, int y=-1, int height=0, bool printbutton=TRUE, bool linkbutton=TRUE, int x=-1, int y=-1, int height=0,
int width=0, bool rulers=TRUE, WINDOW parent=NULL_WIN, TBrowsefile_field* =NULL); int width=0, bool rulers=3, WINDOW parent=NULL_WIN, TBrowsefile_field* =NULL);
// @cmember Distruttore // @cmember Distruttore
virtual ~TViswin (); virtual ~TViswin ();
}; };