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

Patch level : 2.0 nopatch

Browse Source 
Files correlati     : omnia0.exe omnia.xml
Ricompilazione Demo : [ ]
Commento            :

Ultimissima verisione dell'acqua tutte le cose.


git-svn-id: svn://10.65.10.50/trunk@11735 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2004-02-02 08:40:25 +00:00
parent b321753a69
commit e15b71e0e0
4 changed files with 187 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

185
omnia/Omnia0.cpp
View File

@ -1,49 +1,133 @@
#include <windows.h> #include <windows.h>
#include <fstream.h> #include <fstream.h>
#include <stdio.h>
#include "date.h"
#include "expr.h" #include "expr.h"
#include "utility.h" #include "utility.h"
#include "xml.h" #include "xml.h"
class TExpr_omnia : public TExpression
{
enum { _date2k, _periodlastday, _recno };
static int _curr_recno;
protected:
virtual int parse_user_func(const char* name, int nparms) const;
virtual void evaluate_user_func(int index, int nparms, TEval_stack& stack, TTypeexp type) const;
public:
static void set_curr_recno(int n) { _curr_recno = n; }
TExpr_omnia(const char* exp) { set(exp, _strexpr); }
};
int TExpr_omnia::_curr_recno = 0;
int TExpr_omnia::parse_user_func(const char* name, int nparms) const
{
if (strcmp(name, "DATE2K") == 0)
return nparms == 1 ? _date2k : -1;
if (strcmp(name, "PERIODLASTDAY") == 0)
return nparms == 1 ? _periodlastday : -1;
if (strcmp(name, "RECNO") == 0)
return nparms == 0 ? _recno : -1;
return -1;
}
void TExpr_omnia::evaluate_user_func(int index, int nparms, TEval_stack& stack, TTypeexp type) const
{
switch (index)
{
case _date2k: // Acqua Omnia Only
{
TString& str = stack.peek_string();
TToken_string tok(str, '/');
const int d = tok.get_int(0);
const int m = tok.get_int();
int y = tok.get_int();
if (d > 0 && m > 0 && y < 100)
{
y += 2000;
const TDate milleniumbug(d, m, y);
str = milleniumbug.string(full, '/');
}
}
break;
case _periodlastday: // Acqua Omnia Only
{
TString& period = stack.peek_string();
char m1[4], m2[4];
int year = 0;
sscanf(period, "%3s-%3s/%d", m1, m2, &year);
const TString4 strMonth = m2;
for (int month = 12; month > 0; month--)
{
if (strMonth.compare(itom(month), 3, true) == 0)
break;
}
if (month > 0)
{
TDate day(1, month, year);
day.set_end_month();
period = day.string(full, '/');
}
}
break;
case _recno:
stack.push(_curr_recno);
break;
default:
break;
}
}
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TTextRecord // TTextRecord
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
class TTextRecord : public TString_array class TTextRecord : public TString_array
{ {
const TXmlItem* m_trc;
const TXmlItem* m_inrec; const TXmlItem* m_inrec;
const TXmlItem* m_outrec;
int m_nLines, m_nColumns; int m_nLines, m_nColumns;
TString m_str; TString m_str;
protected: protected:
char* GetLineBuffer(int i, int size); char* GetLineBuffer(int i, int size);
const TString& GetFieldValue(const TXmlItem& field) const; const TString& GetFieldValue(const TXmlItem& field) const;
const TXmlItem* FindField(const TString& name) const; const TXmlItem* FindInputField(const TString& name) const;
public: public:
void SetTrc(const TXmlItem& trc); void SetTrc(const TXmlItem& trc);
bool Read(istream& input); bool Read(istream& input);
const TString& GetValue(const TString& name) const; const TString& GetValue(const TString& name) const;
const TString& Evaluate(TExpression& exp) const; const TString& Evaluate(TExpr_omnia& exp) const;
TTextRecord() : m_trc(NULL), m_nLines(0), m_nColumns(0) { } TTextRecord() : m_nLines(0), m_nColumns(0) { }
TTextRecord(const TXmlItem& trc) : m_trc(&trc) { } TTextRecord(const TXmlItem& trc) { SetTrc(trc); }
}; };
void TTextRecord::SetTrc(const TXmlItem& trc) void TTextRecord::SetTrc(const TXmlItem& trc)
{ {
m_trc = &trc; const TXmlItem& input = *trc.FindFirst("Input");
m_nLines = input.GetIntAttr("Lines");
m_nLines = trc.GetIntAttr("Lines");
if (m_nLines <= 0) if (m_nLines <= 0)
m_nLines = 1; m_nLines = 1;
m_nColumns = trc.GetIntAttr("Columns"); m_nColumns = input.GetIntAttr("Columns");
m_inrec = trc.FindFirst("Record"); m_inrec = input.FindFirst("Record");
CHECK(m_inrec, "Null input record"); CHECK(m_inrec, "Null input record");
m_outrec = trc.FindFirst("Output")->FindFirst("Record");
CHECK(m_outrec, "Null output record");
} }
char* TTextRecord::GetLineBuffer(int i, int size) char* TTextRecord::GetLineBuffer(int i, int size)
@ -64,23 +148,27 @@ char* TTextRecord::GetLineBuffer(int i, int size)
bool TTextRecord::Read(istream& input) bool TTextRecord::Read(istream& input)
{ {
bool ok = true; bool ok = !input.eof();
if (m_nLines <= 1 && m_nColumns > 0) // Record a lunghezza fissa if (ok)
{ {
char* buff = GetLineBuffer(0, m_nColumns); if (m_nLines <= 1 && m_nColumns > 0) // Record a lunghezza fissa
input.read(buff, m_nColumns);
buff[m_nColumns] = '\0';
}
else
{
int size = m_nColumns;
if (size <= 0)
size = 1024*16;
for (int i = 0; i < m_nLines; i++)
{ {
char* buff = GetLineBuffer(i, size); char* buff = GetLineBuffer(0, m_nColumns);
input.getline(buff, size); input.read(buff, m_nColumns);
buff[size] = '\0'; buff[m_nColumns] = '\0';
ok = *buff != '\0';
}
else
{
int size = m_nColumns;
if (size <= 0)
size = 1024*16;
for (int i = 0; i < m_nLines; i++)
{
char* buff = GetLineBuffer(i, size);
input.getline(buff, size);
buff[size] = '\0';
}
} }
} }
return ok; return ok;
@ -114,7 +202,7 @@ const TString& TTextRecord::GetFieldValue(const TXmlItem& field) const
return str; return str;
} }
const TXmlItem* TTextRecord::FindField(const TString& name) const const TXmlItem* TTextRecord::FindInputField(const TString& name) const
{ {
for (int i = 0; i < m_inrec->GetChildren(); i++) for (int i = 0; i < m_inrec->GetChildren(); i++)
{ {
@ -127,25 +215,19 @@ const TXmlItem* TTextRecord::FindField(const TString& name) const
const TString& TTextRecord::GetValue(const TString& name) const const TString& TTextRecord::GetValue(const TString& name) const
{ {
const TXmlItem* f = FindField(name); const TXmlItem* f = FindInputField(name);
if (f != NULL) if (f != NULL)
return GetFieldValue(*f); return GetFieldValue(*f);
return name; return name;
} }
const TString& TTextRecord::Evaluate(TExpression& exp) const const TString& TTextRecord::Evaluate(TExpr_omnia& exp) const
{ {
TString& str = (TString&)m_str; TString& str = (TString&)m_str;
str = exp.string();
if (str.starts_with("BEFORE(AFTER"))
{
int i = 0;
i++;
}
const int nv = exp.numvar(); const int nv = exp.numvar();
if (nv > 0) if (nv > 0 || strchr(exp.string(), '(') != NULL)
{ {
for (int i = nv-1; i >= 0; i--) for (int i = nv-1; i >= 0; i--)
{ {
@ -169,11 +251,14 @@ class TScrittore : public TObject
{ {
private: private:
ofstream* _out; ofstream* _out;
int _recno;
public: public:
ofstream& OutStream() { return *_out; } ofstream& OutStream() { return *_out; }
int inc_recno() { _recno++; return _recno; }
int recno() const { return _recno; }
TScrittore(const char* name) { _out = new ofstream(name); } TScrittore(const char* name) : _recno(0) { _out = new ofstream(name); }
virtual~ TScrittore() { delete _out; } virtual~ TScrittore() { delete _out; }
}; };
@ -187,12 +272,12 @@ class TCasaEditrice : public TAssoc_array
const TXmlItem& m_trc; const TXmlItem& m_trc;
TString m_strPrefix, m_strExt; TString m_strPrefix, m_strExt;
TExpression* m_exprSuffix; TExpr_omnia* m_exprSuffix;
TString m_strRecHead, m_strRecFoot, m_strFldHead, m_strFldFoot; TString m_strRecHead, m_strRecFoot, m_strFldHead, m_strFldFoot;
protected: protected:
ofstream& OutStream(const char* suffix); TScrittore& Scrittore(const char* suffix);
void WriteHeader(ostream& output) const; void WriteHeader(ostream& output) const;
void WriteFooter(ostream& output) const; void WriteFooter(ostream& output) const;
@ -262,7 +347,7 @@ void TCasaEditrice::WriteFooter(ostream& output) const
} }
} }
ofstream& TCasaEditrice::OutStream(const char* suffix) TScrittore& TCasaEditrice::Scrittore(const char* suffix)
{ {
TScrittore* s = (TScrittore*)objptr(suffix); TScrittore* s = (TScrittore*)objptr(suffix);
if (s == NULL) if (s == NULL)
@ -275,7 +360,7 @@ ofstream& TCasaEditrice::OutStream(const char* suffix)
add(suffix, s); add(suffix, s);
WriteHeader(s->OutStream()); WriteHeader(s->OutStream());
} }
return s->OutStream(); return *s;
} }
ofstream& TCasaEditrice::ChooseOutput(const TTextRecord& rec) ofstream& TCasaEditrice::ChooseOutput(const TTextRecord& rec)
@ -283,7 +368,10 @@ ofstream& TCasaEditrice::ChooseOutput(const TTextRecord& rec)
TString16 strSuffix; TString16 strSuffix;
if (m_exprSuffix != NULL) if (m_exprSuffix != NULL)
strSuffix = rec.Evaluate(*m_exprSuffix); strSuffix = rec.Evaluate(*m_exprSuffix);
return OutStream(strSuffix);
TScrittore& s = Scrittore(strSuffix);
TExpr_omnia::set_curr_recno(s.inc_recno());
return s.OutStream();
} }
TCasaEditrice::TCasaEditrice(const TXmlItem& trc, const char* name) : m_trc(trc), m_exprSuffix(NULL) TCasaEditrice::TCasaEditrice(const TXmlItem& trc, const char* name) : m_trc(trc), m_exprSuffix(NULL)
@ -307,7 +395,7 @@ TCasaEditrice::TCasaEditrice(const TXmlItem& trc, const char* name) : m_trc(trc)
const TString strSuffix = pOutFile->GetAttr("Suffix"); const TString strSuffix = pOutFile->GetAttr("Suffix");
if (strSuffix.not_empty()) if (strSuffix.not_empty())
m_exprSuffix = new TExpression(strSuffix, _strexpr); m_exprSuffix = new TExpr_omnia(strSuffix);
TXmlItem* pRecOut = pOutFile->FindFirst("Record"); TXmlItem* pRecOut = pOutFile->FindFirst("Record");
CHECK(pRecOut, "NULL output record"); CHECK(pRecOut, "NULL output record");
@ -365,7 +453,7 @@ bool TLettore::load_trc(const char* t)
const TString& TLettore::evaluate(int index) const const TString& TLettore::evaluate(int index) const
{ {
TExpression& exp = (TExpression&)_expressions[index]; TExpr_omnia& exp = (TExpr_omnia&)_expressions[index];
return _curr.Evaluate(exp); return _curr.Evaluate(exp);
} }
@ -405,7 +493,7 @@ int TLettore::convert(const TFilename& src, const TFilename& trc, const TFilenam
return 4; return 4;
} }
_curr.SetTrc(*infile); _curr.SetTrc(_trc);
const int inmode = infile->GetIntAttr("Binary") != 0 ? (ios::in|ios::binary) : ios::in; const int inmode = infile->GetIntAttr("Binary") != 0 ? (ios::in|ios::binary) : ios::in;
ifstream input(src, inmode); ifstream input(src, inmode);
@ -417,17 +505,16 @@ int TLettore::convert(const TFilename& src, const TFilename& trc, const TFilenam
{ {
const TXmlItem* outfield = recout->GetChild(i); const TXmlItem* outfield = recout->GetChild(i);
outfield->GetEnclosedText(expr); outfield->GetEnclosedText(expr);
_expressions.add(new TExpression(expr, _strexpr)); _expressions.add(new TExpr_omnia(expr));
} }
while (!input.eof()) while (_curr.Read(input))
{ {
_curr.Read(input);
ofstream& output = mondadori.ChooseOutput(_curr); ofstream& output = mondadori.ChooseOutput(_curr);
output << mondadori.RecHead(); output << mondadori.RecHead();
for (int i = 0; i < recout->GetChildren(); i++) for (int i = 0; i < recout->GetChildren(); i++)
{ {
const TXmlItem* outfield = recout->GetChild(i); TXmlItem* outfield = recout->GetChild(i);
outfield->GetEnclosedText(expr); outfield->GetEnclosedText(expr);
const TString& val = evaluate(i); const TString& val = evaluate(i);
output << mondadori.FldHead() << val << mondadori.FldFoot(); output << mondadori.FldHead() << val << mondadori.FldFoot();

52
omnia/expr.cpp
View File

@ -717,7 +717,7 @@ void TExpression::eval()
const TString& s1 = evalstack.pop_string(); const TString& s1 = evalstack.pop_string();
TString& s2 = evalstack.peek_string(); TString& s2 = evalstack.peek_string();
const int pos = s2.find(s1); const int pos = s2.find(s1);
if (pos > 0) if (pos >= 0)
s2 = s2.mid(pos+s1.len()); s2 = s2.mid(pos+s1.len());
else else
s2.cut(0); s2.cut(0);
@ -732,6 +732,22 @@ void TExpression::eval()
s2.cut(pos); s2.cut(pos);
} }
break; break;
case _between:
{
const TString& end = evalstack.pop_string();
const TString& start = evalstack.pop_string();
TString& str = evalstack.peek_string();
int from = str.find(start);
if (from >= 0)
{
from += start.len();
const int to = str.find(end, from);
str = str.sub(from , to);
}
else
str.cut(0);
}
break;
case _rfind: case _rfind:
{ {
const TString& s1 = evalstack.pop_string(); const TString& s1 = evalstack.pop_string();
@ -759,24 +775,24 @@ HIDDEN char _tok[81];
TCodesym TExpression::tok2fun(const char* tok) const TCodesym TExpression::tok2fun(const char* tok) const
{ {
const int MAX_TOK = 31; const int MAX_TOK = 32;
HIDDEN const char* fnstr[MAX_TOK] = { "AFTER", "ANSI", "BEFORE", "CEIL", HIDDEN const char* fnstr[MAX_TOK] = { "AFTER", "ANSI", "BEFORE", "BETWEEN", "CEIL",
"COS", "EXP", "EXP10", "IF", "LEFT", "COS", "EXP", "EXP10", "IF",
"LEN", "LOG", "LOG10", "MAX", "MID", "LEFT", "LEN", "LOG", "LOG10",
"MIN", "NUM", "PERC", "POW", "RFIND", "MAX", "MID", "MIN", "NUM", "PERC", "POW",
"RIGHT", "ROUND", "SCORP", "SIN", "SQR", "RFIND", "RIGHT", "ROUND", "SCORP", "SIN", "SQR",
"SQRT", "STR", "SUBSTR", "TAN", "TRIM", "SQRT", "STR", "SUBSTR", "TAN", "TRIM",
"TRUNC", "UPPER" }; "TRUNC", "UPPER" };
HIDDEN TCodesym fntok[MAX_TOK] = { _after, _ansi, _before, _ceil, HIDDEN TCodesym fntok[MAX_TOK] = { _after, _ansi, _before, _between, _ceil,
_cos, _exp, _exp10, _if, _left, _cos, _exp, _exp10, _if,
_len, _log, _log10, _max, _mid, _left, _len, _log, _log10,
_min, _num, _perc, _pow, _rfind, _max, _mid, _min, _num, _perc, _pow,
_right, _round, _scorp, _sin, _sqr, _rfind, _right, _round, _scorp, _sin, _sqr,
_sqrt, _str, _substr, _tan, _trim, _sqrt, _str, _substr, _tan, _trim,
_trunc, _upper }; _trunc, _upper };
int f = 0, l = MAX_TOK-1, i = MAX_TOK/2; int f = 0, l = MAX_TOK-1, i = MAX_TOK/2;
while (TRUE) while (TRUE)
{ {
// i = (f+l)>>1; // i = (f+l)>>1;
@ -1100,6 +1116,7 @@ TCodesym TExpression::__factor(TCodesym startsym)
break; break;
case _mid: case _mid:
case _substr: case _substr:
case _between:
sym = __function(3, true, nparms_found); sym = __function(3, true, nparms_found);
_code.add(startsym); _code.add(startsym);
break; break;
@ -1133,7 +1150,6 @@ TCodesym TExpression::__term(TCodesym startsym)
return sym; return sym;
} }
TCodesym TExpression::__expression(TCodesym startsym) TCodesym TExpression::__expression(TCodesym startsym)
{ {
TCodesym sym; TCodesym sym;

1
omnia/expr.h
View File

@ -71,6 +71,7 @@ enum TCodesym {
_trim, // @emem Elimina spazi iniziali e finali di una stringa _trim, // @emem Elimina spazi iniziali e finali di una stringa
_before, // @emem Estrae la parte precedente una stringa fissa data _before, // @emem Estrae la parte precedente una stringa fissa data
_after, // @emem Estrae la parte seguente una stringa fissa data _after, // @emem Estrae la parte seguente una stringa fissa data
_between, // @emem Estrae la parte tra due stringhe fisse date
_rfind, // @emem Cerca una stringa all'indietro _rfind, // @emem Cerca una stringa all'indietro
}; };
// @doc INTERNAL // @doc INTERNAL

27
omnia/omnia.xml
View File

@ -21,7 +21,12 @@
<Field Name="Destinazione" X="52" Length="20" /> <Field Name="Destinazione" X="52" Length="20" />
<Field Name="QuotaFissaContatore" X="3255" Length="91" /> <Field Name="QuotaFissaContatore" X="3255" Length="91" />
<Field Name="Anticipo" X="206" Length="9" /> <Field Name="Anticipo" X="206" Length="9" />
<Field Name="DataLettura" X="258" Length="39" /> <Field Name="Periodo" X="137" Length="12" />
<Field Name="LetturaPre" X="258" Length="39" />
<Field Name="LetturaAtt" X="388" Length="39" />
<Field Name="Consumo" X="312" Length="9" />
<Field Name="ConsumoFatturato" X="443" Length="9" />
<Field Name="TipoLettura" X="454" Length="64" />
<Field Name="Imponibile" X="6932" Length="16" /> <Field Name="Imponibile" X="6932" Length="16" />
</Record> </Record>
</Input> </Input>
@ -34,9 +39,9 @@
<Field Name="Zona">Impianto</Field> <Field Name="Zona">Impianto</Field>
<Field Name="Mastro">1</Field> <Field Name="Mastro">1</Field>
<Field Name="CodiceTecnico">000000</Field> <Field Name="CodiceTecnico">000000</Field>
<Field Name="Giro">"RECNO()"</Field> <Field Name="Giro">RECNO()</Field>
<Field Name="Via">BEFORE(Indirizzo, ",")</Field> <Field Name="Via">BEFORE(Indirizzo, ",")</Field>
<Field Name="Civico">BEFORE(AFTER(Indirizzo, ","), "/")</Field> <Field Name="Civico">BETWEEN(Indirizzo, ",", "/")</Field>
<Field Name="LetteraCivico">AFTER(Indirizzo, "/")</Field> <Field Name="LetteraCivico">AFTER(Indirizzo, "/")</Field>
<Field Name="InternoCivico" /> <Field Name="InternoCivico" />
<Field Name="LetteraInterno" /> <Field Name="LetteraInterno" />
@ -58,7 +63,7 @@
<Field Name="ImpiantoTecnico">Impianto</Field> <Field Name="ImpiantoTecnico">Impianto</Field>
<Field Name="MastroTecnico">1</Field> <Field Name="MastroTecnico">1</Field>
<Field Name="SubMastroTecnico">1</Field> <Field Name="SubMastroTecnico">1</Field>
<Field Name="GiroTecnico">"RECNO()"</Field> <Field Name="GiroTecnico">RECNO()</Field>
<Field Name="DataCreazione" /> <Field Name="DataCreazione" />
<Field Name="Impianto2">Impianto</Field> <Field Name="Impianto2">Impianto</Field>
<Field Name="Progressivo">Progressivo</Field> <Field Name="Progressivo">Progressivo</Field>
@ -95,7 +100,7 @@
<Field Name="Minimi5" /> <Field Name="Minimi5" />
<Field Name="CategoriaUso5" /> <Field Name="CategoriaUso5" />
<Field Name="Tipologia" /> <Field Name="Tipologia" />
<Field Name="QuotaFissaContatore">BEFORE(AFTER(QuotaFissaContatore, "E/ms."),"=")</Field> <Field Name="QuotaFissaContatore">BETWEEN(QuotaFissaContatore, "E/ms.", "=")</Field>
<Field Name="Antincendio">"NO"</Field> <Field Name="Antincendio">"NO"</Field>
<Field Name="Perodicita">4</Field> <Field Name="Perodicita">4</Field>
<Field Name="NumeroContratto">Contratto</Field> <Field Name="NumeroContratto">Contratto</Field>
@ -109,16 +114,16 @@
<Field Name="Penale">"SI"</Field> <Field Name="Penale">"SI"</Field>
<Field Name="Mora">"SI"</Field> <Field Name="Mora">"SI"</Field>
<Field Name="Note2" /> <Field Name="Note2" />
<Field Name="Data1">BEFORE(AFTER(DataLettura, "DEL"),"mc.")</Field> <Field Name="DataLetturaPrec">DATE2K(BETWEEN(LetturaPre, "DEL "," mc."))</Field>
<Field Name="Lettura1">AFTER(DataLettura, "mc.")</Field> <Field Name="LetturaPrec">AFTER(LetturaPre, "mc. ")</Field>
<Field Name="Consumo1">0</Field> <Field Name="Consumo1">0</Field>
<Field Name="TipoLettura1">10</Field> <Field Name="TipoLettura1">10</Field>
<Field Name="CodicePlacca1">CodicePlacca</Field> <Field Name="CodicePlacca1">CodicePlacca</Field>
<Field Name="LetturaFatturata1">"SI"</Field> <Field Name="LetturaFatturata1">"SI"</Field>
<Field Name="Data2">"???"</Field> <Field Name="DataLeturaAtt">IF(BETWEEN(LetturaAtt, " DEL ", " mc.")=" /==/==", PERIODLASTDAY(Periodo), DATE2K(BETWEEN(LetturaAtt, " DEL ", " mc.")))</Field>
<Field Name="Lettura2">"???"</Field> <Field Name="LetturaAtt">IF(AFTER(LetturaAtt,"mc. ")="========", AFTER(LetturaPre, "mc. "), AFTER(LetturaAtt, "mc. "))</Field>
<Field Name="Consumo2">"???"</Field> <Field Name="Consumo2">IF(MID(TipoLettura, 1, 13)="Lettura reale", Consumo, ConsumoFatturato)</Field>
<Field Name="TipoLettura2">"???"</Field> <Field Name="TipoLettura2">IF(MID(TipoLettura, 1, 13)="Lettura reale", 0, 3)</Field>
<Field Name="CodicePlacca2" /> <Field Name="CodicePlacca2" />
<Field Name="LetturaFatturata2">"SI"</Field> <Field Name="LetturaFatturata2">"SI"</Field>
<Field Name="Data3" /> <Field Name="Data3" />