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

Aggiustate sciocchezzuole su righe disabilitate array-sheet

Browse Source 
Altri files modificati per cause spurie (fmkmk problematici)


git-svn-id: svn://10.65.10.50/trunk@802 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1994-12-29 14:51:43 +00:00
parent 929a349a3c
commit ecfe1f34a1
20 changed files with 1040 additions and 1000 deletions

4
include/bagn005.h

@ -1,3 +1,3 @@
#define F_STRING 101
#define F_DIRECT 102
#define F_STRING 101
#define F_DIRECT 102
#define F_CASE 103

36
include/bagn005.uml

@ -1 +1,35 @@
/* Maschera ricerca per viswin */
/* Maschera ricerca per viswin */
#include "bagn005.h"
PAGE "Cerca testo" -1 -1 55 11
STRING F_STRING 45 70
BEGIN
PROMPT 1 1 "Ricerca: "
END
LIST F_DIRECT
BEGIN
PROMPT 1 2 "Direzione "
ITEM "D|Avanti"
ITEM "U|Indietro"
END
BOOLEAN F_CASE
BEGIN
PROMPT 30 2 "Maiuscolo/Minuscolo"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

124
include/cfven.h

@ -1,67 +1,67 @@
#ifndef __CFVEN_H
#define __CFVEN_H
#define CFV_TIPOCF "TIPOCF"
#define CFV_CODCF "CODCF"
#define CFV_CODINDDOC "CODINDDOC"
#define CFV_CODNOTE "CODNOTE"
#define CFV_CODLEG "CODLEG"
#define CFV_CODCATC "CODCATC"
#define CFV_CODZONA "CODZONA"
#define CFV_CODAG "CODAG"
#define CFV_PROVV "PROVV"
#define CFV_LIQPAG "LIQPAG"
#define CFV_CODPRCF "CODPRCF"
#define CFV_CODINDSP "CODINDSP"
#define CFV_CODNOTESP1 "CODNOTESP1"
#define CFV_CODNOTESP2 "CODNOTESP2"
#define CFV_CODSPMEZZO "CODSPMEZZO"
#define CFV_CODPORTO "CODPORTO"
#define CFV_CODVETT1 "CODVETT1"
#define CFV_CODVETT2 "CODVETT2"
#define CFV_CODVETT3 "CODVETT3"
#define CFV_RAGGDOC "RAGGDOC"
#define CFV_NCOPIE "NCOPIE"
#define CFV_CODCFASS "CODCFASS"
#define CFV_ASSFIS "ASSFIS"
#define CFV_FATTSOSP "FATTSOSP"
#define CFV_VSNRPROT "VSNRPROT"
#define CFV_VSDATAREG "VSDATAREG"
#define CFV_NSNPROT "NSNPROT"
#define CFV_NSDATAREG "NSDATAREG"
#define CFV_ADDBNS1500 "ADDBNS1500"
#define CFV_CATFIN "CATFIN"
#define CFV_CODABIPR "CODABIPR"
#define CFV_CODCABPR "CODCABPR"
#define CFV_CODINDEFF "CODINDEFF"
#define CFV_EMEFFRICH "EMEFFRICH"
#define CFV_IMPMINEFF "IMPMINEFF"
#define CFV_NONACCEFF "NONACCEFF"
#define CFV_NONSCADEFF "NONSCADEFF"
#define CFV_ADDBOLLIRB "ADDBOLLIRB"
#define CFV_ADDBOLLITR "ADDBOLLITR"
#define CFV_ADDSPINC "ADDSPINC"
#define CFV_IVARID "IVARID"
#define CFV_CATVEN "CATVEN"
#define CFV_GESTCONTR "GESTCONTR"
#define CFV_CODLIST "CODLIST"
#define CFV_CODSCINC "CODSCINC"
#define CFV_SCONTOCL "SCONTOCL"
#define CFV_CODMAG "CODMAG"
#define CFV_CODSP1 "CODSP1"
#define CFV_CODSP2 "CODSP2"
#define CFV_CODSP3 "CODSP3"
#define CFV_CODSP4 "CODSP4"
#define CFV_PROFSOLL "PROFSOLL"
#define CFV_MAXSOLL "MAXSOLL"
#define CFV_DATAESC "DATAESC"
#define CFV_DATASOLL "DATASOLL"
#define CFV_SCONTOR "SCONTOR"
#define CFV_TITOLO "TITOLO"
#define CFV_RAGGOR "RAGGOR"
#define CFV_MINORD "MINORD"
#define CFV_MAXORD "MAXORD"
#define CFV_PREVORD "PREVORD"
#define CFV_TIPOEVORD "TIPOEVORD"
#define CFV_TIPOCF "TIPOCF"
#define CFV_CODCF "CODCF"
#define CFV_CODINDDOC "CODINDDOC"
#define CFV_CODNOTE "CODNOTE"
#define CFV_CODLEG "CODLEG"
#define CFV_CODCATC "CODCATC"
#define CFV_CODZONA "CODZONA"
#define CFV_CODAG "CODAG"
#define CFV_PROVV "PROVV"
#define CFV_LIQPAG "LIQPAG"
#define CFV_CODPRCF "CODPRCF"
#define CFV_CODINDSP "CODINDSP"
#define CFV_CODNOTESP1 "CODNOTESP1"
#define CFV_CODNOTESP2 "CODNOTESP2"
#define CFV_CODSPMEZZO "CODSPMEZZO"
#define CFV_CODPORTO "CODPORTO"
#define CFV_CODVETT1 "CODVETT1"
#define CFV_CODVETT2 "CODVETT2"
#define CFV_CODVETT3 "CODVETT3"
#define CFV_RAGGDOC "RAGGDOC"
#define CFV_NCOPIE "NCOPIE"
#define CFV_CODCFASS "CODCFASS"
#define CFV_ASSFIS "ASSFIS"
#define CFV_FATTSOSP "FATTSOSP"
#define CFV_VSNRPROT "VSNRPROT"
#define CFV_VSDATAREG "VSDATAREG"
#define CFV_NSNPROT "NSNPROT"
#define CFV_NSDATAREG "NSDATAREG"
#define CFV_ADDBNS1500 "ADDBNS1500"
#define CFV_CATFIN "CATFIN"
#define CFV_CODABIPR "CODABIPR"
#define CFV_CODCABPR "CODCABPR"
#define CFV_CODINDEFF "CODINDEFF"
#define CFV_EMEFFRICH "EMEFFRICH"
#define CFV_IMPMINEFF "IMPMINEFF"
#define CFV_NONACCEFF "NONACCEFF"
#define CFV_NONSCADEFF "NONSCADEFF"
#define CFV_ADDBOLLIRB "ADDBOLLIRB"
#define CFV_ADDBOLLITR "ADDBOLLITR"
#define CFV_ADDSPINC "ADDSPINC"
#define CFV_IVARID "IVARID"
#define CFV_CATVEN "CATVEN"
#define CFV_GESTCONTR "GESTCONTR"
#define CFV_CODLIST "CODLIST"
#define CFV_CODSCINC "CODSCINC"
#define CFV_SCONTOCL "SCONTOCL"
#define CFV_CODMAG "CODMAG"
#define CFV_CODSP1 "CODSP1"
#define CFV_CODSP2 "CODSP2"
#define CFV_CODSP3 "CODSP3"
#define CFV_CODSP4 "CODSP4"
#define CFV_PROFSOLL "PROFSOLL"
#define CFV_MAXSOLL "MAXSOLL"
#define CFV_DATAESC "DATAESC"
#define CFV_DATASOLL "DATASOLL"
#define CFV_SCONTOR "SCONTOR"
#define CFV_TITOLO "TITOLO"
#define CFV_RAGGOR "RAGGOR"
#define CFV_MINORD "MINORD"
#define CFV_MAXORD "MAXORD"
#define CFV_PREVORD "PREVORD"
#define CFV_TIPOEVORD "TIPOEVORD"
#endif

28
include/conf.h

@ -6,7 +6,7 @@
#define LisGest 4
#define OptLab 5
#define FatScar 6
#define EsInCor 7
#define EsInCor 7
#define ScDisFat 8
#define DisRegMov 9
#define MovRB 10
@ -22,20 +22,20 @@
#define RegScadNeg 20
#define ChkGiacNeg 21
#define CodCespStrut 22
#define PrPagScCli 23
#define JOURNALING 24
#define RiepArt 25
#define ShiftQAlt 26
#define PrPagScCli 23
#define JOURNALING 24
#define RiepArt 25
#define ShiftQAlt 26
#define NoQtaInRBF 27
#define RifOrdine 28
#define AutoNumOr 29
#define ContCess 30
#define CODEAN13 31
#define CHIMAGEST 32
#define VISGIACFAT 33
#define SCCLIFND 34
#define DPARTAUT 35
#define SPEEDBOL 36
#define RifOrdine 28
#define AutoNumOr 29
#define ContCess 30
#define CODEAN13 31
#define CHIMAGEST 32
#define VISGIACFAT 33
#define SCCLIFND 34
#define DPARTAUT 35
#define SPEEDBOL 36
/* @END */

2
include/fieldbuf.h

@ -16,7 +16,7 @@
class TField_array : public TArray
{
public:
// @FPUB
// @FPUB
TField& operator[] (int index) const { return (TField&)TArray::operator[](index); } // Operatore [] ritorna il campo di posto index.

230
include/form.h

@ -1,115 +1,115 @@
#ifndef __FORM_H
#define __FORM_H
#ifndef __PRINTER_H
#include <printer.h>
#endif
#ifndef __SCANNER_H
#include <scanner.h>
#endif
#ifndef __MASK_H
class TMask;
#endif
#ifndef __RELATION_H
class TRelation;
class TCursor;
#endif
enum pagetype { odd_page, even_page, first_page, last_page };
class TForm;
class TForm_item;
class TPrint_section : public TArray
{
static TMask* _msk;
word _height; // Altezza della sezione
TForm* _form; // Form cui appartiene alla sezione
TArray _item; // Lista dei campi da stampare
const TPrint_section& copy(const TPrint_section& ps);
protected:
virtual void print_on(ostream& out) const;
TForm_item* parse_item(const TString& key);
TForm_item* parse_item(TScanner& scanner);
public:
TPrintrow& row(int num);
TForm* form() const { return _form; }
TForm_item& field(int n) const { return (TForm_item&)_item[n]; }
word fields() const { return _item.items(); }
word height() const { return _height; }
virtual bool ok() const { return height() > 0 || fields() > 0; }
void reset();
bool update();
bool parse(TScanner& scanner);
bool edit(const char* title);
const TPrint_section& operator=(const TPrint_section& ps) { return copy(ps); }
TPrint_section(TForm* parent);
TPrint_section(const TPrint_section& ps) { copy(ps); }
virtual ~TPrint_section();
};
class TForm : public TObject
{
friend class TForm_editor;
TFilename _name; // Profile name
TRelation* _relation; // Can be NULL
TCursor* _cursor; // Can be NULL
TArray _head; // Headers
TArray _body; // Bodies
TArray _foot; // Footers
bool _lastpage; // I am about to print the last page
TPrint_section* exist(char s, pagetype t, bool create = FALSE); // Can be NULL
static void header_handler(TPrinter& p);
static void footer_handler(TPrinter& p);
protected:
// H = Header, B = Body, F = Footer, R = Relation
TPrint_section& section(char s = 'B', word page = 1);
word height(); // Height of first page
void print_section(ostream& out, char s) const;
virtual void print_on(ostream& out) const;
bool edit_relation();
bool parse_use(TScanner&);
bool parse_join(TScanner&);
word page(const TPrinter& p) const;
virtual long records() const;
virtual word set_header(word p, bool u);
virtual word set_body(word p, bool u);
virtual word set_footer(word p, bool u);
public:
bool print(long from = 0L, long to = -1L);
const TFilename& name() const { return _name; }
TRelation* relation() const { return _relation; }
TCursor* cursor() const { return _cursor; }
TForm(const char* form);
virtual ~TForm();
};
#endif
#ifndef __FORM_H
#define __FORM_H
#ifndef __PRINTER_H
#include <printer.h>
#endif
#ifndef __SCANNER_H
#include <scanner.h>
#endif
#ifndef __MASK_H
class TMask;
#endif
#ifndef __RELATION_H
class TRelation;
class TCursor;
#endif
enum pagetype { odd_page, even_page, first_page, last_page };
class TForm;
class TForm_item;
class TPrint_section : public TArray
{
static TMask* _msk;
word _height; // Altezza della sezione
TForm* _form; // Form cui appartiene alla sezione
TArray _item; // Lista dei campi da stampare
const TPrint_section& copy(const TPrint_section& ps);
protected:
virtual void print_on(ostream& out) const;
TForm_item* parse_item(const TString& key);
TForm_item* parse_item(TScanner& scanner);
public:
TPrintrow& row(int num);
TForm* form() const { return _form; }
TForm_item& field(int n) const { return (TForm_item&)_item[n]; }
word fields() const { return _item.items(); }
word height() const { return _height; }
virtual bool ok() const { return height() > 0 || fields() > 0; }
void reset();
bool update();
bool parse(TScanner& scanner);
bool edit(const char* title);
const TPrint_section& operator=(const TPrint_section& ps) { return copy(ps); }
TPrint_section(TForm* parent);
TPrint_section(const TPrint_section& ps) { copy(ps); }
virtual ~TPrint_section();
};
class TForm : public TObject
{
friend class TForm_editor;
TFilename _name; // Profile name
TRelation* _relation; // Can be NULL
TCursor* _cursor; // Can be NULL
TArray _head; // Headers
TArray _body; // Bodies
TArray _foot; // Footers
bool _lastpage; // I am about to print the last page
TPrint_section* exist(char s, pagetype t, bool create = FALSE); // Can be NULL
static void header_handler(TPrinter& p);
static void footer_handler(TPrinter& p);
protected:
// H = Header, B = Body, F = Footer, R = Relation
TPrint_section& section(char s = 'B', word page = 1);
word height(); // Height of first page
void print_section(ostream& out, char s) const;
virtual void print_on(ostream& out) const;
bool edit_relation();
bool parse_use(TScanner&);
bool parse_join(TScanner&);
word page(const TPrinter& p) const;
virtual long records() const;
virtual word set_header(word p, bool u);
virtual word set_body(word p, bool u);
virtual word set_footer(word p, bool u);
public:
bool print(long from = 0L, long to = -1L);
const TFilename& name() const { return _name; }
TRelation* relation() const { return _relation; }
TCursor* cursor() const { return _cursor; }
TForm(const char* form);
virtual ~TForm();
};
#endif

30
include/indsp.h

@ -1,20 +1,20 @@
#ifndef __INDSP_H
#define __INDSP_H
#define IND_TIPOCF "TIPOCF"
#define IND_CODCF "CODCF"
#define IND_CODIND "CODIND"
#define IND_RAGSOC "RAGSOC"
#define IND_INDIR "INDIR"
#define IND_CIV "CIV"
#define IND_LOCALITA "LOCALITA"
#define IND_CAP "CAP"
#define IND_STATO "STATO"
#define IND_COM "COM"
#define IND_PTEL "PTEL"
#define IND_TEL "TEL"
#define IND_PFAX "PFAX"
#define IND_FAX "FAX"
#define IND_IVARID "IVARID"
#define IND_TIPOCF "TIPOCF"
#define IND_CODCF "CODCF"
#define IND_CODIND "CODIND"
#define IND_RAGSOC "RAGSOC"
#define IND_INDIR "INDIR"
#define IND_CIV "CIV"
#define IND_LOCALITA "LOCALITA"
#define IND_CAP "CAP"
#define IND_STATO "STATO"
#define IND_COM "COM"
#define IND_PTEL "PTEL"
#define IND_TEL "TEL"
#define IND_PFAX "PFAX"
#define IND_FAX "FAX"
#define IND_IVARID "IVARID"
#endif

118
include/ldfile.cpp

@ -1,69 +1,69 @@
#include <stdio.h>
#include <stdlib.h>
#include <stdtypes.h>
#include <strings.h>
#include <scanner.h>
#include <isam.h>
#include <tabutil.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdtypes.h>
#include <strings.h>
#include <scanner.h>
#include <isam.h>
#include <tabutil.h>
int main(int argc,char** argv)
{
init_global_vars();
if (argc > 2)
{
argv++;
TScanner dfile(*argv);
TLocalisamfile* of;
TString s(dfile.line());
TToken_string w(s);
const char* work = w.get();
const int nf = atoi(work);
const TString nt(work);
const int reclen = w.get_int();
init_global_vars();
if (argc > 2)
{
argv++;
TScanner dfile(*argv);
TLocalisamfile* of;
TString s(dfile.line());
TToken_string w(s);
const char* work = w.get();
const int nf = atoi(work);
const TString nt(work);
const int reclen = w.get_int();
if (nf) of = new TLocalisamfile(nf);
else of = new TTable(nt);
if (nf) of = new TLocalisamfile(nf);
else of = new TTable(nt);
TToken_string d(40, ',');
TToken_string d(40, ',');
while (*(work = dfile.line()))
d.add(work);
argv++;
TScanner ifile(*argv);
while (*(work = dfile.line()))
d.add(work);
argv++;
TScanner ifile(*argv);
TString name, just(3), ws(256);
TString name, just(3), ws(256);
while (*(work = ifile.line()))
{
s = work;
s.left_just(reclen);
d.restart();
of->zero();
w = d.get();
while (w.not_empty())
{
const int st = w.get_int();
const int len = w.get_int();
name = w.get();
if (name != "-")
{
ws = s.mid(st, len);
just = w.get();
if (just == "Z") ws.right_just(len, '0');
else
if (just == "R") ws.right_just(len);
else
if (just == "L") ws.left_just(len);
of->put(name, ws);
}
w = d.get();
}
of->write();
if (of->bad()) of->rewrite();
}
delete of;
}
free_global_vars();
while (*(work = ifile.line()))
{
s = work;
s.left_just(reclen);
d.restart();
of->zero();
w = d.get();
while (w.not_empty())
{
const int st = w.get_int();
const int len = w.get_int();
name = w.get();
if (name != "-")
{
ws = s.mid(st, len);
just = w.get();
if (just == "Z") ws.right_just(len, '0');
else
if (just == "R") ws.right_just(len);
else
if (just == "L") ws.left_just(len);
of->put(name, ws);
}
w = d.get();
}
of->write();
if (of->bad()) of->rewrite();
}
delete of;
}
free_global_vars();
}

138
include/ldfile1.cpp

@ -1,79 +1,79 @@
#include <stdio.h>
#include <stdlib.h>
#include <stdtypes.h>
#include <strings.h>
#include <scanner.h>
#include <isam.h>
#include <tabutil.h>
#include <utility.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdtypes.h>
#include <strings.h>
#include <scanner.h>
#include <isam.h>
#include <tabutil.h>
#include <utility.h>
int main(int argc,char** argv)
{
init_global_vars();
if (argc > 2)
{
argv++;
TScanner dfile(*argv);
TLocalisamfile* of;
TString s(dfile.line());
TToken_string w(s);
const char* work = w.get();
const int nf = atoi(work);
const TString nt(work);
const int reclen = w.get_int();
init_global_vars();
if (argc > 2)
{
argv++;
TScanner dfile(*argv);
TLocalisamfile* of;
TString s(dfile.line());
TToken_string w(s);
const char* work = w.get();
const int nf = atoi(work);
const TString nt(work);
const int reclen = w.get_int();
if (nf) of = new TLocalisamfile(nf);
else of = new TTable(nt);
if (nf) of = new TLocalisamfile(nf);
else of = new TTable(nt);
TToken_string d(40, ',');
TToken_string d(40, ',');
while (*(work = dfile.line()))
d.add(work);
argv++;
TScanner ifile(*argv);
while (*(work = dfile.line()))
d.add(work);
argv++;
TScanner ifile(*argv);
TString name, ws(256), depcom(10);
int ncodi = 2, ncodd = 2;
TString name, ws(256), depcom(10);
int ncodi = 2, ncodd = 2;
while (*(work = ifile.line()))
{
s = work;
s.left_just(reclen);
d.restart();
w = d.get();
int st = w.get_int();
int len = w.get_int();
name = w.get();
ws = s.mid(st, len);
if (ws != depcom)
{
if (depcom.not_empty()) of->rewrite();
ncodi = 2;
ncodd = 2;
of->zero();
of->put(name, ws);
of->read();
if (of->good()) depcom = ws;
else depcom = "";
}
w = d.get();
st = w.get_int();
len = w.get_int();
name = s.mid(st, len);
w = d.get();
st = w.get_int();
len = w.get_int();
ws = s.mid(st, len);
if (name == "UI")
name = format("UFFIVA%1d", ncodi++);
else
name = format("UFFIIDD%1d", ncodd++);
of->put(name, ws);
}
if (depcom.not_empty()) of->rewrite();
delete of;
}
free_global_vars();
while (*(work = ifile.line()))
{
s = work;
s.left_just(reclen);
d.restart();
w = d.get();
int st = w.get_int();
int len = w.get_int();
name = w.get();
ws = s.mid(st, len);
if (ws != depcom)
{
if (depcom.not_empty()) of->rewrite();
ncodi = 2;
ncodd = 2;
of->zero();
of->put(name, ws);
of->read();
if (of->good()) depcom = ws;
else depcom = "";
}
w = d.get();
st = w.get_int();
len = w.get_int();
name = s.mid(st, len);
w = d.get();
st = w.get_int();
len = w.get_int();
ws = s.mid(st, len);
if (name == "UI")
name = format("UFFIVA%1d", ncodi++);
else
name = format("UFFIIDD%1d", ncodd++);
of->put(name, ws);
}
if (depcom.not_empty()) of->rewrite();
delete of;
}
free_global_vars();
}

1134
include/maskfld.h

File diff suppressed because it is too large Load Diff

36
include/pr.cpp

@ -5,7 +5,7 @@
class MyApp : public TPrintapp
{
int counter;
int counter;
public:
virtual void preprocess_page();
virtual bool create();
@ -15,34 +15,34 @@ public:
void MyApp::preprocess_page()
{
reset_row(1);
set_row(1,"%d: Ragsoc: @10S", ++counter, FLD(LF_ANAG,"RAGSOC"));
reset_row(1);
set_row(1,"%d: Ragsoc: @10S", ++counter, FLD(LF_ANAG,"RAGSOC"));
}
bool MyApp::create()
{
TPrintapp::create();
disable_sorting_menu();
disable_selection_menu();
return TRUE;
TPrintapp::create();
disable_sorting_menu();
disable_selection_menu();
return TRUE;
}
main(int argc, char* argv[])
{
MyApp app;
int dummy;
MyApp app;
int dummy;
cout << "process is: " << getpid();
fscanf(stdin,"%d",&dummy);
cout << "process is: " << getpid();
fscanf(stdin,"%d",&dummy);
TRelation tr_giu(LF_ANAG);
TCursor ttr(&tr_giu);
TRelation tr_giu(LF_ANAG);
TCursor ttr(&tr_giu);
app.cursor(&ttr);
app.set_config_file("pr2.stp");
app.set_row(2,"-------- riga statica con codanagr: @pn --------",
FLD(LF_ANAG,"CODANAGR","@@@@@@@@@"));
app.run(argc, argv, "Trial Print Application");
app.cursor(&ttr);
app.set_config_file("pr2.stp");
app.set_row(2,"-------- riga statica con codanagr: @pn --------",
FLD(LF_ANAG,"CODANAGR","@@@@@@@@@"));
app.run(argc, argv, "Trial Print Application");
}

46
include/sheet.cpp

@ -203,7 +203,7 @@ void TSheet::handler(WINDOW win, EVENT* ep)
select(nuo);
if (ep->type == E_MOUSE_DBL)
dispatch_e_char(win, K_ENTER);
else if (_checkable && _check_enabled && vec == nuo)
else if (_checkable && _check_enabled && !_disabled[nuo] && vec == nuo)
{
_checked.not(nuo);
force_update();
@ -456,30 +456,29 @@ bool TSheet::update_row(long n)
const char* s;
int x = 0;
const bool chk = _checked[n] && !_disabled[n];
bool changed = FALSE;
if (chk)
{
changed = TRUE;
set_color(MASK_BACK_COLOR, COLOR_LTGRAY);
}
else if (_disabled[n])
{
set_color(COLOR_GRAY, COLOR_LTGRAY);
changed = TRUE;
}
for (int j = 0; (s = t.get()) != NULL; x += _size[j++]+1)
{
int x1 = x;
bool changed = FALSE;
if (n >= 0)
{
if (_checkable && j == 0)
{
const bool c = _checked[n];
s = c ? "X" : " ";
if (c)
{
changed = TRUE;
set_color(COLOR_RED, COLOR_LTGRAY);
}
{
s = chk ? "X" : " ";
}
const bool c = _disabled[n];
if (c)
{
set_color(COLOR_GRAY, COLOR_LTGRAY);
changed = TRUE;
}
switch (_type[j])
{
case 'R':
@ -496,9 +495,9 @@ bool TSheet::update_row(long n)
x1 += (_size[j]-strlen(s)) >> 1; // Centra le testate
stringat(x1, y, s);
if (changed)
set_color(COLOR_BLACK, COLOR_LTGRAY);
}
if (changed)
set_color(COLOR_BLACK, COLOR_LTGRAY);
return TRUE;
}
@ -604,6 +603,13 @@ TArray_sheet::TArray_sheet(short x, short y, short dx, short dy,
: TSheet(x, y, dx, dy, caption, head, buttons, 0L, parent)
{}
bool TArray_sheet::destroy(int i)
{
uncheck(-1);
enable(-1);
return _data.destroy(i, TRUE);
}
void TArray_sheet::page_build(long first, byte num)
{
for (byte i = 0; i < num; i++)

2
include/sheet.h

@ -120,7 +120,7 @@ public:
long add(TToken_string* s);
long insert(const TToken_string& s, long n);
virtual TToken_string& row(long s = -1) { return (s < 0) ? data(selected()) : data(s); }
bool destroy(int i = -1) { uncheck(-1); return _data.destroy(i, TRUE); }
bool destroy(int i = -1);
};

26
include/sortfld.h

@ -5,17 +5,17 @@
#include <object.h>
#endif
/*
@(SH) Header
@(SH) Header
@(C#) PUBBLICHE
@(C#) PUBBLICHE
@(C$) PRIVATE
@(C$) PRIVATE
@(VG#) PUBBLICHE
@(VG#) PUBBLICHE
@(VG$) PRIVATE
-------------------------------------------------------------------------------
*/
@(VG$) PRIVATE
-------------------------------------------------------------------------------
*/
// @C
// Classe TSort_field : public TObject
@ -24,12 +24,12 @@
class TSort_field : public TObject
{
protected:
// @DPROT
// @DPROT
int pos;
int len;
char ad;
public:
// @FPUB
// @FPUB
virtual const char* class_name() const pure;
virtual void print_on(ostream& out) const pure;
virtual void read_from(istream&) {};
@ -37,10 +37,10 @@ public:
virtual bool ok() const pure;
TSort_field(int pos = -1, int len = 0, char ad = 'a');
set(int pos, int len, char ad); // Setta posizione lunghezza e verso
int position() { return f_pos; } // Ritorna prima posizione del campo
int lenght() { return f_len; } // Ritorna lunghezza del campo e tipo
char direction() { return ad; } // Ritorna verso dell'ordinamento
set(int pos, int len, char ad); // Setta posizione lunghezza e verso
int position() { return f_pos; } // Ritorna prima posizione del campo
int lenght() { return f_len; } // Ritorna lunghezza del campo e tipo
char direction() { return ad; } // Ritorna verso dell'ordinamento
};
#endif // __SORTFLD_H

6
include/stack.cpp

@ -5,11 +5,11 @@ TStack::TStack(int size) : TArray(size), _sp(0)
void TStack::push(const TObject& o)
{
add(o, _sp++);
add(o, _sp++);
}
TObject& TStack::pop()
{
CHECK(count() > 0, "Stack underflow!");
return (*this)[--_sp];
CHECK(count() > 0, "Stack underflow!");
return (*this)[--_sp];
}

12
include/stack.h

@ -11,16 +11,16 @@
class TStack : private TArray
{
// @DPRIV
int _sp; // Puntatore alla cima dello stack
// @DPRIV
int _sp; // Puntatore alla cima dello stack
public:
// @FPUB
// @FPUB
TStack(int size); // Chiama il costruttore di TArray(size)
int count() const { return _sp; } // Ritorna il puntatore allo stack
void push(const TObject&); // Aggiunge un oggetto sullo stack
TObject& pop(); // Ritorna il primo oggetto sulla cima dello stack
int count() const { return _sp; } // Ritorna il puntatore allo stack
void push(const TObject&); // Aggiunge un oggetto sullo stack
TObject& pop(); // Ritorna il primo oggetto sulla cima dello stack
};
#endif

12
include/syscursor.h

@ -7,14 +7,14 @@
class TSystem_cursor : public TCursor
{
virtual TRecnotype buildcursor(TRecnotype rp);
virtual TRecnotype buildcursor(TRecnotype rp);
public:
public:
void mark_deleted(bool deleted = FALSE);
void recall() { mark_deleted(FALSE);}
TSystem_cursor(TRelation* f, const char* filter = "", int key = 1, TRectype* from = NULL, TRectype* to = NULL) : TCursor(f, filter, key, from, to) {}
virtual ~TSystem_cursor() {}
void mark_deleted(bool deleted = FALSE);
void recall() { mark_deleted(FALSE);}
TSystem_cursor(TRelation* f, const char* filter = "", int key = 1, TRectype* from = NULL, TRectype* to = NULL) : TCursor(f, filter, key, from, to) {}
virtual ~TSystem_cursor() {}
};
#endif

6
include/sysfld.h

@ -2,9 +2,9 @@
#define __SYSFLD_H
/* @M */
#define RFLD_SYS_DATE "_DAL"
#define RFLD_SYS_FIRST "_FLNK"
#define RFLD_SYS_LAST "_LLNK"
#define RFLD_SYS_DATE "_DAL"
#define RFLD_SYS_FIRST "_FLNK"
#define RFLD_SYS_LAST "_LLNK"
/* @END */
#endif // __SYSFLD_H

14
include/value.h

@ -1,4 +1,4 @@
// $Id: value.h,v 1.1.1.1 1994-08-12 10:52:08 alex Exp $
// $Id: value.h,v 1.2 1994-12-29 14:51:40 villa Exp $
// language types for Simulation and SimulationManager
// -------------------------------------------------------------------------
@ -18,7 +18,7 @@
enum basetype
{
UNDEFINED, VOID, INT, LONG, CHAR, DOUBLE, STRING
};
};
class Value
{
@ -41,19 +41,19 @@ public:
Value(char c) { sprintf(_buf,"%c",c); _type = CHAR; }
Value(double d) { sprintf(_buf,"%lf",d); _type = DOUBLE; }
Value(Value& vl){ strcpy(_buf,vl._buf); v = vl.v; _s = vl._s;
_type = vl._type; }
_type = vl._type; }
enum basetype type() { return _type; }
operator int() { sscanf(_type == STRING ? _s : _buf,"%d",&(v.i));
return v.i; }
return v.i; }
operator double() { sscanf(_type == STRING ? _s : _buf,"%lf",&(v.d));
return v.d; }
return v.d; }
operator char*() { return _type == STRING ? _s : _buf; }
operator long() { sscanf(_type == STRING ? _s : _buf,"%ld",&(v.l));
return v.l; }
return v.l; }
operator char() { sscanf(_type == STRING ? _s : _buf,"%c",&(v.c));
return v.c; }
return v.c; }
Value& operator=(const Value& val);
};

36
include/viswin.cpp

@ -1967,23 +1967,23 @@ void TViswin::find_next()
}
TViswin ::TViswin (const char *fname,
const char *title,
bool editbutton,
bool printbutton,
bool linkbutton,
int x, int y,
int height, int width,
bool rulers,
WINDOW parent,
TBrowsefile_field* brwfld):
_filename (fname), _txt (fname, BUFFERSIZE), _islink (linkbutton), _isedit (editbutton),
_isprint (printbutton), _isbar (FALSE), _istimer (FALSE), _iscross (FALSE),
_isselection (FALSE), _sel_displayed (FALSE), _cross_displayed (FALSE),
_link_displayed (FALSE), _point_displayed (FALSE), _selecting (FALSE),
_scrolling (FALSE), _selflag (FALSE), _need_update (TRUE), _need_scroll (none),
_multiple (FALSE), _rulers(rulers), _txt_to_find(64),
_frozen (FALSE), _brwfld(brwfld), _link_button(-1), _down_dir(TRUE)
TViswin::TViswin(const char *fname,
const char *title,
bool editbutton,
bool printbutton,
bool linkbutton,
int x, int y,
int height, int width,
bool rulers,
WINDOW parent,
TBrowsefile_field* brwfld):
_filename (fname), _txt (fname, BUFFERSIZE), _islink (linkbutton), _isedit (editbutton),
_isprint (printbutton), _isbar (FALSE), _istimer (FALSE), _iscross (FALSE),
_isselection (FALSE), _sel_displayed (FALSE), _cross_displayed (FALSE),
_link_displayed (FALSE), _point_displayed (FALSE), _selecting (FALSE),
_scrolling (FALSE), _selflag (FALSE), _need_update (TRUE), _need_scroll (none),
_multiple (FALSE), _rulers(rulers), _txt_to_find(64),
_frozen (FALSE), _brwfld(brwfld), _link_button(-1), _down_dir(TRUE)
{
if (title == NULL)
title = (fname ? fname : "Anteprima di stampa");
@ -2070,7 +2070,7 @@ TViswin ::TViswin (const char *fname,
_curbut = 0;
if (_isopen)
_wtimer = set_timer (win (), 150l);
_wtimer = set_timer(win(), 150l);
_point.set (0, 0);
autoscroll (FALSE);