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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
/* ScummVM - Graphic Adventure Engine
*
* ScummVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* 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.
*
*/
#include "engines/mohawk/livingbooks.h"
#include "engines/mohawk/livingbooks_lbx.h"
namespace Mohawk {
class LBXDataFile : public LBXObject {
public:
LBXDataFile(MohawkEngine_LivingBooks *vm);
~LBXDataFile();
bool call(uint callId, const Common::Array<LBValue> ¶ms, LBValue &result);
protected:
Common::INIFile _dataFile;
Common::String _curSection;
void open(const Common::String &filename);
bool sectionExists(const Common::String §ion);
};
LBXDataFile::LBXDataFile(MohawkEngine_LivingBooks *vm) : LBXObject(vm) {
}
LBXDataFile::~LBXDataFile() {
}
enum {
kLBXDataFileOpen = 1,
kLBXDataFileAddSection = 3,
kLBXDataFileGetSectionList = 4,
kLBXDataFileSetCurSection = 5,
kLBXDataFileSetKey = 7,
kLBXDataFileLoadCurSectionVars = 8,
kLBXDataFileDeleteCurSection = 10,
kLBXDataFileSectionExists = 14
};
bool LBXDataFile::call(uint callId, const Common::Array<LBValue> ¶ms, LBValue &result) {
switch (callId) {
case kLBXDataFileOpen:
if (params.size() != 1)
error("incorrect number of parameters (%d) to LBXDataFile::open", params.size());
open(params[0].toString());
return false;
case kLBXDataFileAddSection:
if (params.size() != 1)
error("incorrect number of parameters (%d) to LBXDataFile::addSection", params.size());
_dataFile.addSection(params[0].toString());
_curSection = params[0].toString();
return false;
case kLBXDataFileGetSectionList:
{
Common::SharedPtr<LBList> list = Common::SharedPtr<LBList>(new LBList);
Common::INIFile::SectionList sections = _dataFile.getSections();
for (Common::List<Common::INIFile::Section>::const_iterator i = sections.begin(); i != sections.end(); ++i)
list->array.push_back(LBValue(i->name));
result = LBValue(list);
}
return true;
case kLBXDataFileSetCurSection:
if (params.size() != 1)
error("incorrect number of parameters (%d) to LBXDataFile::setCurSection", params.size());
_curSection = params[0].toString();
return false;
case kLBXDataFileSetKey:
if (params.size() != 2)
error("incorrect number of parameters (%d) to LBXDataFile::setKey", params.size());
_dataFile.setKey(params[0].toString(), _curSection, params[1].toString());
return false;
case kLBXDataFileLoadCurSectionVars:
if (params.size() != 0)
error("incorrect number of parameters (%d) to LBXDataFile::loadCurSectionVars", params.size());
{
const Common::INIFile::SectionKeyList globals = _dataFile.getKeys(_curSection);
for (Common::INIFile::SectionKeyList::const_iterator i = globals.begin(); i != globals.end(); i++) {
Common::String command = Common::String::format("%s = %s", i->key.c_str(), i->value.c_str());
LBCode tempCode(_vm, 0);
uint offset = tempCode.parseCode(command);
tempCode.runCode(NULL, offset);
}
}
return false;
case kLBXDataFileDeleteCurSection:
if (params.size() != 0)
error("incorrect number of parameters (%d) to LBXDataFile::deleteCurSection", params.size());
_dataFile.removeSection(_curSection);
return false;
case kLBXDataFileSectionExists:
if (params.size() != 1)
error("incorrect number of parameters (%d) to LBXDataFile::sectionExists", params.size());
if (_dataFile.hasSection(params[0].toString()))
result = 1;
else
result = 0;
return true;
default:
error("LBXDataFile call %d is unknown", callId);
}
}
void LBXDataFile::open(const Common::String &filename) {
_dataFile.clear();
if (_dataFile.loadFromFile(filename))
return;
// FIXME: try savegames
error("LBXDataFile::open: couldn't open '%s'", filename.c_str());
}
Common::SharedPtr<LBXObject> createLBXObject(MohawkEngine_LivingBooks *vm, uint16 type) {
switch (type) {
case 1001:
return Common::SharedPtr<LBXObject>(new LBXDataFile(vm));
default:
error("unknown LBX object type %d", type);
}
}
} // End of namespace Mohawk
|
