[ast] improved polynomial display with unicode superscripts
[scilab.git] / scilab / modules / ast / src / cpp / symbol / libraries.cpp
1 /*
2 *  Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 *  Copyright (C) 2015 - Scilab Enterprises - Antoine ELIAS
4 *
5  * Copyright (C) 2012 - 2016 - Scilab Enterprises
6  *
7  * This file is hereby licensed under the terms of the GNU GPL v2.0,
8  * pursuant to article 5.3.4 of the CeCILL v.2.1.
9  * This file was originally licensed under the terms of the CeCILL v2.1,
10  * and continues to be available under such terms.
11  * For more information, see the COPYING file which you should have received
12  * along with this program.
13 *
14 */
15
16 #include <algorithm>
17 #include "libraries.hxx"
18
19 namespace symbol
20 {
21
22 void Library::put(types::Library* _pLib, int _iLevel)
23 {
24     if (empty() || top()->m_iLevel < _iLevel)
25     {
26         //create a new level
27         stack.push(new ScopedLibrary(_iLevel, _pLib));
28     }
29     else
30     {
31         //update current level
32         types::Library* pLib = top()->m_pLib;
33         if (pLib != _pLib)
34         {
35             // data is manage by variables.
36             // So if this library have to be killed
37             // this is alredy done by variables.
38             //pLib->killMe();
39             top()->m_pLib = _pLib;
40         }
41     }
42 }
43
44 types::MacroFile* Library::get(const Symbol& _keyMacro) const
45 {
46     if (empty() == false)
47     {
48         return top()->getMacroFile(_keyMacro);
49     }
50
51     return nullptr;
52 }
53
54 int Library::getMacrosName(std::list<std::wstring>& lst)
55 {
56     if (empty() == false)
57     {
58         top()->m_pLib->getMacrosName(lst);
59     }
60
61     return static_cast<int>(lst.size());
62 }
63
64 Library* Libraries::getOrCreate(const Symbol& _key)
65 {
66     MapLibs::const_iterator it = libs.find(_key);
67     if (it == libs.end())
68     {
69         //create an empty StackedValues
70         Library* lib = new Library(_key);
71         libs[_key] = lib;
72         return lib;
73     }
74
75     return it->second;
76 }
77
78 int Libraries::getLevel(const Symbol& _key) const
79 {
80     MapLibs::const_iterator it = libs.find(_key);
81     if (it != libs.end())
82     {
83         if (!it->second->empty())
84         {
85             return it->second->top()->m_iLevel;
86         }
87     }
88     else
89     {
90         for (auto i = libs.rbegin(), end = libs.rend(); i != end; ++i)
91         {
92             Library * lib = i->second;
93             if (!lib->empty())
94             {
95                 types::MacroFile * pMF = lib->get(_key);
96                 if (pMF)
97                 {
98                     return lib->top()->m_iLevel;
99                 }
100             }
101         }
102     }
103
104     return SCOPE_ALL;
105 }
106
107 void Libraries::put(const Symbol& _keyLib, types::Library* _pLib, int _iLevel)
108 {
109     Library* lib = getOrCreate(_keyLib);
110     lib->put(_pLib, _iLevel);
111 }
112
113 bool Libraries::putInPreviousScope(const Symbol& _keyLib, types::Library* _pLib, int _iLevel)
114 {
115     Library* lib = getOrCreate(_keyLib);
116
117     if (lib->empty())
118     {
119         lib->put(_pLib, _iLevel);
120     }
121     else if (lib->top()->m_iLevel > _iLevel)
122     {
123         ScopedLibrary* pLib = lib->top();
124         lib->pop();
125         putInPreviousScope(_keyLib, _pLib, _iLevel);
126         lib->put(pLib);
127     }
128     else
129     {
130         lib->put(_pLib, _iLevel);
131     }
132
133     return true;
134 }
135
136 types::InternalType* Libraries::get(const Symbol& _key, int _iLevel)
137 {
138     //does _key is a lib name
139     auto lib = libs.find(_key);
140     if (lib != libs.end())
141     {
142         if (lib->second->empty() == false)
143         {
144             if (_iLevel == SCOPE_ALL || lib->second->top()->m_iLevel == _iLevel)
145             {
146                 return lib->second->top()->m_pLib;
147             }
148         }
149     }
150
151     //does _key is a macro in a lib
152     auto it = libs.rbegin();
153     for (auto it = libs.rbegin(), itEnd = libs.rend(); it != itEnd; ++it)
154     {
155         Library* lib = it->second;
156         if (it->second->empty() == false)
157         {
158             if (_iLevel == SCOPE_ALL || it->second->top()->m_iLevel == _iLevel)
159             {
160                 types::MacroFile* pMF = it->second->get(_key);
161                 if (pMF)
162                 {
163                     return (types::InternalType*)pMF;
164                 }
165             }
166         }
167     }
168
169     return NULL;
170 }
171
172 bool Libraries::remove(const Symbol& _key, int _iLevel)
173 {
174     MapLibs::iterator it = libs.find(_key);
175     if (it != libs.end())
176     {
177         if (it->second->empty() == false)
178         {
179             if (it->second->top()->m_iLevel == _iLevel)
180             {
181                 ScopedLibrary * pSL = it->second->top();
182                 it->second->pop();
183                 delete pSL;
184                 return true;
185             }
186         }
187     }
188
189     return false;
190 }
191
192 int Libraries::getMacrosName(std::list<std::wstring>& lst)
193 {
194     MapLibs::iterator it = libs.begin();
195     MapLibs::iterator itEnd = libs.end();
196     for (auto it : libs)
197     {
198         it.second->getMacrosName(lst);
199     }
200
201     return static_cast<int>(lst.size());
202 }
203
204 int Libraries::getVarsName(std::list<std::wstring>& lst)
205 {
206     for (auto it : libs)
207     {
208         if (it.second->empty() == false)
209         {
210             lst.push_back(it.first.getName().c_str());
211         }
212     }
213
214     return static_cast<int>(lst.size());
215 }
216
217 int Libraries::getVarsToVariableBrowser(std::list<Library*>& lst)
218 {
219     for (auto lib : libs)
220     {
221         if (lib.second->empty() == false)
222         {
223             lst.push_back(lib.second);
224         }
225     }
226
227     return static_cast<int>(lst.size());
228 }
229
230 void Libraries::clearAll()
231 {
232     for (auto lib : libs)
233     {
234         while (!lib.second->empty())
235         {
236             ScopedLibrary * pSL = lib.second->top();
237             types::InternalType * pIT = pSL->m_pLib;
238             pIT->killMe();
239             lib.second->pop();
240             delete pSL;
241         }
242
243         delete lib.second;
244     }
245 }
246
247 bool Libraries::getVarsNameForWho(std::list<std::wstring>* lstVarName, int* iVarLenMax, bool bSorted) const
248 {
249     for (auto it = libs.begin(), itEnd = libs.end(); it != itEnd; ++it)
250     {
251         std::wstring wstrVarName(it->first.getName().c_str());
252         if (lstVarName && it->second->empty() == false)
253         {
254             lstVarName->push_back(wstrVarName);
255             *iVarLenMax = std::max(*iVarLenMax, (int)wstrVarName.size());
256         }
257     }
258
259     if (bSorted)
260     {
261         if (lstVarName)
262         {
263             lstVarName->sort();
264         }
265     }
266
267     return true;
268 }
269
270 int Libraries::whereis(std::list<std::wstring>& lst, const Symbol& _key)
271 {
272     for (auto lib : libs)
273     {
274         if (lib.second->get(_key) != NULL)
275         {
276             lst.push_back(lib.first.getName());
277         }
278     }
279     return static_cast<int>(lst.size());
280 }
281
282 int Libraries::librarieslist(std::list<std::wstring>& lst)
283 {
284     for (auto lib : libs)
285     {
286         if (lib.second->empty() == false)
287         {
288             lst.push_back(lib.first.getName());
289         }
290     }
291
292     return static_cast<int>(lst.size());
293 }
294
295 }