IL/eng.h at master · CapelliC/IL · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106

/*
    IL : Intlog Language
    Object Oriented Prolog Project
    Copyright (C) 1992-2021 - Ing. Capelli Carlo

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
*/


#ifndef ENG_H_
#define ENG_H_

//---------------------------------
// engine(s) tied in handlers list
//---------------------------------

#include "iafx.h"

#include <iostream>
using namespace std;

// forward classes
class IntlogExec;
class DbIntlog;
class OperTable;
class IntlogParser;
class MsgTable;

typedef unsigned    EngHandle;
#define EH_NULL     unsigned(-1)

#include "kstr.h"

class IAFX_API EngineHandlers : protected slist {
public:
    EngineHandlers(ostream *msgStream);
    virtual ~EngineHandlers();

    virtual EngHandle create(DbIntlog* = nullptr);
    virtual int destroy(EngHandle);

    IntlogExec* HtoD(EngHandle) const;
    EngHandle DtoH(const IntlogExec*) const;

    virtual DbIntlog *makeDb(kstring, DbIntlog *);
    virtual DbIntlog *makeDb(DbIntlog *);

    OperTable* get_optbl() const;
    IntlogParser* get_parser() const;
    MsgTable* get_msgtbl() const;

    // display global error messages
    virtual void ErrMsg(int code, ...);

protected:

    virtual IntlogExec* build(DbIntlog*) = 0;

    struct eh : e_slist {
        IntlogExec* eng;
        EngHandle handle;
        ~eh();
    };

    eh *getH(EngHandle) const;

    OperTable* OpTbl;
    IntlogParser* ParseG;
    DbIntlog* DbRoot;
    MsgTable* MsgTbl;
};

inline IntlogParser* EngineHandlers::get_parser() const {
    return ParseG;
}
inline OperTable* EngineHandlers::get_optbl() const {
    return OpTbl;
}
inline MsgTable* EngineHandlers::get_msgtbl() const {
    return MsgTbl;
}

// system control
#ifndef _AFXDLL
    extern EngineHandlers* all_engines;
    inline EngineHandlers* GetEngines() { return all_engines; }
    inline void SetEngines(EngineHandlers* pEngines) { all_engines = pEngines; }
#else
    extern IAFX_API EngineHandlers* GetEngines();
    extern IAFX_API void SetEngines(EngineHandlers* pEngines);
#endif

#endif