Line data Source code
1 : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : /*
3 : * This file is part of the LibreOffice project.
4 : *
5 : * This Source Code Form is subject to the terms of the Mozilla Public
6 : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : *
9 : * This file incorporates work covered by the following license notice:
10 : *
11 : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : * contributor license agreements. See the NOTICE file distributed
13 : * with this work for additional information regarding copyright
14 : * ownership. The ASF licenses this file to you under the Apache
15 : * License, Version 2.0 (the "License"); you may not use this file
16 : * except in compliance with the License. You may obtain a copy of
17 : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : */
19 :
20 : #include <stdlib.h>
21 : #include <stdio.h>
22 : #include <string.h>
23 : #include <ctype.h>
24 : #include <limits.h>
25 :
26 : #include <rscerror.h>
27 : #include <rschash.hxx>
28 : #include <rscdb.hxx>
29 : #include <rsctop.hxx>
30 : #include <rsckey.hxx>
31 : #include <rscpar.hxx>
32 : #include <rscdef.hxx>
33 :
34 : #include <rsclex.hxx>
35 : #include <rscyacc.hxx>
36 :
37 : #include <rtl/textcvt.h>
38 : #include <rtl/textenc.h>
39 :
40 :
41 67701 : const char* StringContainer::putString( const char* pString )
42 : {
43 67701 : OString aString( static_cast<const sal_Char*>(pString) );
44 : std::pair<
45 : boost::unordered_set< OString, OStringHash >::iterator,
46 : bool > aInsert =
47 67701 : m_aStrings.insert( aString );
48 :
49 67701 : return aInsert.first->getStr();
50 : }
51 :
52 : int c;
53 : bool bLastInclude;// War letztes Symbol INCLUDE
54 : RscFileInst* pFI;
55 : RscTypCont* pTC;
56 : RscExpression * pExp;
57 : struct KeyVal
58 : {
59 : int nKeyWord;
60 : YYSTYPE aYYSType;
61 : } aKeyVal[ 1 ];
62 : bool bTargetDefined;
63 :
64 : StringContainer* pStringContainer = NULL;
65 :
66 :
67 90209 : sal_uInt32 GetNumber()
68 : {
69 90209 : sal_uInt32 l = 0;
70 90209 : sal_uInt32 nLog = 10;
71 :
72 90209 : if( '0' == c )
73 : {
74 5287 : c = pFI->GetFastChar();
75 5287 : if( 'x' == c )
76 : {
77 1726 : nLog = 16;
78 1726 : c = pFI->GetFastChar();
79 : }
80 : }
81 :
82 90209 : if( nLog == 16 )
83 : {
84 10564 : while( isxdigit( c ) )
85 : {
86 7112 : if( isdigit( c ) )
87 3770 : l = l * nLog + (c - '0');
88 : else
89 3342 : l = l * nLog + (toupper( c ) - 'A' + 10 );
90 :
91 7112 : c = pFI->GetFastChar();
92 : }
93 : }
94 : else
95 : {
96 427964 : while( isdigit( c ) || 'x' == c )
97 : {
98 250998 : l = l * nLog + (c - '0');
99 250998 : c = pFI->GetFastChar();
100 : }
101 : }
102 :
103 182790 : while( c=='U' || c=='u' || c=='l' || c=='L' ) //Wg. Unsigned Longs
104 2372 : c = pFI->GetFastChar();
105 :
106 90209 : if( l > 0x7fffffff ) //Oberstes bit gegebenenfalls abschneiden;
107 60 : l &= 0x7fffffff;
108 :
109 90209 : return l;
110 : }
111 :
112 818380 : int MakeToken( YYSTYPE * pTokenVal )
113 : {
114 : int c1;
115 :
116 : while( true ) // Kommentare und Leerzeichen ueberlesen
117 : {
118 2421104 : while( isspace( c ) )
119 784344 : c = pFI->GetFastChar();
120 :
121 818380 : if( '/' == c )
122 : {
123 0 : c1 = c;
124 0 : c = pFI->GetFastChar();
125 0 : if( '/' == c )
126 : {
127 0 : while( '\n' != c && !pFI->IsEof() )
128 0 : c = pFI->GetFastChar();
129 :
130 0 : c = pFI->GetFastChar();
131 : }
132 0 : else if( '*' == c )
133 : {
134 0 : c = pFI->GetFastChar();
135 0 : do
136 : {
137 0 : while( '*' != c && !pFI->IsEof() )
138 0 : c = pFI->GetFastChar();
139 :
140 0 : c = pFI->GetFastChar();
141 : }
142 0 : while( '/' != c && !pFI->IsEof() );
143 0 : c = pFI->GetFastChar();
144 : }
145 : else
146 0 : return( c1 );
147 : }
148 : else
149 818380 : break;
150 : }
151 :
152 : // FIXME: wtf is this supposed to do?
153 818380 : if( (c != 0) == pFI->IsEof() )
154 : {
155 0 : return( 0 );
156 : }
157 :
158 818380 : if( bLastInclude )
159 : {
160 0 : bLastInclude = false; //Zuruecksetzten
161 0 : if( '<' == c )
162 : {
163 0 : OStringBuffer aBuf( 256 );
164 0 : c = pFI->GetFastChar();
165 0 : while( '>' != c && !pFI->IsEof() )
166 : {
167 0 : aBuf.append( sal_Char(c) );
168 0 : c = pFI->GetFastChar();
169 : }
170 0 : c = pFI->GetFastChar();
171 0 : pTokenVal->string = const_cast<char*>(pStringContainer->putString( aBuf.getStr() ));
172 0 : return( INCLUDE_STRING );
173 : }
174 : }
175 :
176 818380 : if( c == '"' )
177 : {
178 66641 : OStringBuffer aBuf( 256 );
179 66641 : bool bDone = false;
180 1212141 : while( !bDone && !pFI->IsEof() && c )
181 : {
182 1078859 : c = pFI->GetFastChar();
183 1078859 : if( c == '"' )
184 : {
185 82470 : do
186 : {
187 82470 : c = pFI->GetFastChar();
188 : }
189 149111 : while( c == ' ' || c == '\t' );
190 :
191 66641 : if( c == '"' )
192 : {
193 : // this is a continued string
194 : // note: multiline string continuations are handled by the parser
195 : // see rscyacc.y
196 : }
197 : else
198 66641 : bDone = true;
199 : }
200 1012218 : else if( c == '\\' )
201 : {
202 1284 : aBuf.append( '\\' );
203 1284 : c = pFI->GetFastChar();
204 1284 : if( c )
205 1284 : aBuf.append( sal_Char(c) );
206 : }
207 : else
208 1010934 : aBuf.append( sal_Char(c) );
209 : }
210 66641 : pTokenVal->string = const_cast<char*>(pStringContainer->putString( aBuf.getStr() ));
211 66641 : return STRING;
212 : }
213 751739 : if (isdigit (c))
214 : {
215 90209 : pTokenVal->value = GetNumber();
216 90209 : return( NUMBER );
217 : }
218 :
219 661530 : if( isalpha (c) || (c == '_') )
220 : {
221 : Atom nHashId;
222 159618 : OStringBuffer aBuf( 256 );
223 :
224 1205554 : while( isalnum (c) || (c == '_') || (c == '-') )
225 : {
226 886318 : aBuf.append( sal_Char(c) );
227 886318 : c = pFI->GetFastChar();
228 : }
229 :
230 159618 : nHashId = pHS->getID( aBuf.getStr(), true );
231 159618 : if( InvalidAtom != nHashId )
232 : {
233 : KEY_STRUCT aKey;
234 :
235 : // Suche nach dem Schluesselwort
236 159618 : if( pTC->aNmTb.Get( nHashId, &aKey ) )
237 : {
238 :
239 : // Schluesselwort gefunden
240 159618 : switch( aKey.nTyp )
241 : {
242 : case CLASSNAME:
243 43736 : pTokenVal->pClass = reinterpret_cast<RscTop *>(aKey.yylval);
244 43736 : break;
245 : case VARNAME:
246 77223 : pTokenVal->varid = aKey.nName;
247 77223 : break;
248 : case CONSTNAME:
249 33433 : pTokenVal->constname.hashid = aKey.nName;
250 33433 : pTokenVal->constname.nValue = aKey.yylval;
251 33433 : break;
252 : case BOOLEAN:
253 3178 : pTokenVal->svbool = (bool)aKey.yylval;
254 3178 : break;
255 : case INCLUDE:
256 0 : bLastInclude = true;
257 : //fall-through
258 : default:
259 2048 : pTokenVal->value = aKey.yylval;
260 : }
261 :
262 159618 : return aKey.nTyp;
263 : }
264 : else
265 : {
266 0 : pTokenVal->string = const_cast<char*>(pStringContainer->putString( aBuf.getStr() ));
267 0 : return SYMBOL;
268 : }
269 : }
270 : else
271 : {
272 : // Symbol
273 : RscDefine * pDef;
274 :
275 0 : pDef = pTC->aFileTab.FindDef( aBuf.getStr() );
276 0 : if( pDef )
277 : {
278 0 : pTokenVal->defineele = pDef;
279 :
280 0 : return RSCDEFINE;
281 : }
282 :
283 0 : pTokenVal->string = const_cast<char*>(pStringContainer->putString( aBuf.getStr() ));
284 0 : return SYMBOL;
285 159618 : }
286 : }
287 :
288 501912 : if( c=='<' )
289 : {
290 4418 : c = pFI->GetFastChar();
291 4418 : if( c=='<' )
292 : {
293 831 : c = pFI->GetFastChar();
294 831 : return LEFTSHIFT;
295 : }
296 : else
297 3587 : return '<';
298 : }
299 :
300 497494 : if( c=='>' )
301 : {
302 3587 : c = pFI->GetFastChar();
303 3587 : if( c=='>' )
304 : {
305 0 : c = pFI->GetFastChar();
306 0 : return RIGHTSHIFT;
307 : }
308 : else
309 3587 : return '>';
310 : }
311 :
312 493907 : c1 = c;
313 493907 : c = pFI->GetFastChar();
314 493907 : return c1;
315 : }
316 :
317 818324 : int yylex()
318 : {
319 818324 : if( bTargetDefined )
320 0 : bTargetDefined = false;
321 : else
322 818324 : aKeyVal[ 0 ].nKeyWord = MakeToken( &aKeyVal[ 0 ].aYYSType );
323 :
324 818324 : yylval = aKeyVal[ 0 ].aYYSType;
325 818324 : return aKeyVal[ 0 ].nKeyWord;
326 : }
327 :
328 : #if defined SOLARIS
329 : extern "C" void yyerror( const char* pMessage )
330 : #else
331 0 : void yyerror( char* pMessage )
332 : #endif
333 : {
334 0 : pTC->pEH->Error( ERR_YACC, NULL, RscId(), pMessage );
335 0 : }
336 :
337 475 : void InitParser( RscFileInst * pFileInst )
338 : {
339 475 : pTC = pFileInst->pTypCont; // Datenkontainer setzten
340 475 : pFI = pFileInst;
341 475 : pStringContainer = new StringContainer();
342 475 : pExp = NULL; //fuer MacroParser
343 475 : bTargetDefined = false;
344 :
345 : // Anfangszeichen initialisieren
346 475 : bLastInclude = false;
347 475 : c = pFI->GetFastChar();
348 475 : }
349 :
350 475 : void EndParser()
351 : {
352 : // Stack abraeumen
353 950 : while( ! S.IsEmpty() )
354 0 : S.Pop();
355 :
356 : // free string container
357 475 : delete pStringContainer;
358 475 : pStringContainer = NULL;
359 :
360 475 : if( pExp )
361 0 : delete pExp;
362 475 : pTC = NULL;
363 475 : pFI = NULL;
364 475 : pExp = NULL;
365 :
366 475 : }
367 :
368 56 : void IncludeParser( RscFileInst * pFileInst )
369 : {
370 : int nToken; // Wert des Tokens
371 : YYSTYPE aYYSType; // Daten des Tokens
372 : RscFile * pFName; // Filestruktur
373 : sal_uLong lKey; // Fileschluessel
374 56 : RscTypCont * pTypCon = pFileInst->pTypCont;
375 :
376 56 : pFName = pTypCon->aFileTab.Get( pFileInst->GetFileIndex() );
377 56 : InitParser( pFileInst );
378 :
379 56 : nToken = MakeToken( &aYYSType );
380 112 : while( 0 != nToken && CLASSNAME != nToken )
381 : {
382 0 : if( '#' == nToken )
383 : {
384 0 : if( INCLUDE == (nToken = MakeToken( &aYYSType )) )
385 : {
386 0 : if( STRING == (nToken = MakeToken( &aYYSType )) )
387 : {
388 : lKey = pTypCon->aFileTab.NewIncFile( aYYSType.string,
389 0 : aYYSType.string );
390 0 : pFName->InsertDependFile( lKey, ULONG_MAX );
391 : }
392 0 : else if( INCLUDE_STRING == nToken )
393 : {
394 : lKey = pTypCon->aFileTab.NewIncFile( aYYSType.string,
395 0 : OString() );
396 0 : pFName->InsertDependFile( lKey, ULONG_MAX );
397 : }
398 : }
399 : }
400 0 : nToken = MakeToken( &aYYSType );
401 : }
402 :
403 56 : EndParser();
404 56 : }
405 :
406 419 : ERRTYPE parser( RscFileInst * pFileInst )
407 : {
408 419 : ERRTYPE aError;
409 :
410 419 : InitParser( pFileInst );
411 :
412 419 : aError = yyparse();
413 :
414 419 : EndParser();
415 :
416 : // yyparser gibt 0 zurueck, wenn erfolgreich
417 419 : if( 0 == aError )
418 419 : aError.Clear();
419 419 : if( pFileInst->pTypCont->pEH->nErrors )
420 0 : aError = ERR_ERROR;
421 419 : pFileInst->SetError( aError );
422 419 : return( aError );
423 : }
424 :
425 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
