xref: /aoo4110/main/rsc/source/parser/rscpar.cxx (revision b1cdbd2c)
1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski  *
3*b1cdbd2cSJim Jagielski  * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski  * or more contributor license agreements.  See the NOTICE file
5*b1cdbd2cSJim Jagielski  * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski  * regarding copyright ownership.  The ASF licenses this file
7*b1cdbd2cSJim Jagielski  * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski  * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski  * with the License.  You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski  *
11*b1cdbd2cSJim Jagielski  *   http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski  *
13*b1cdbd2cSJim Jagielski  * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski  * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski  * KIND, either express or implied.  See the License for the
17*b1cdbd2cSJim Jagielski  * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski  * under the License.
19*b1cdbd2cSJim Jagielski  *
20*b1cdbd2cSJim Jagielski  *************************************************************/
21*b1cdbd2cSJim Jagielski 
22*b1cdbd2cSJim Jagielski 
23*b1cdbd2cSJim Jagielski 
24*b1cdbd2cSJim Jagielski // MARKER(update_precomp.py): autogen include statement, do not remove
25*b1cdbd2cSJim Jagielski #include "precompiled_rsc.hxx"
26*b1cdbd2cSJim Jagielski /****************** I N C L U D E S **************************************/
27*b1cdbd2cSJim Jagielski // C and C++ Includes.
28*b1cdbd2cSJim Jagielski #include <string.h>
29*b1cdbd2cSJim Jagielski #include <rscpar.hxx>
30*b1cdbd2cSJim Jagielski #include <rscdb.hxx>
31*b1cdbd2cSJim Jagielski 
32*b1cdbd2cSJim Jagielski /****************** R s c F i l e I n s t ********************************/
33*b1cdbd2cSJim Jagielski /****************** C O D E **********************************************/
34*b1cdbd2cSJim Jagielski /*************************************************************************
35*b1cdbd2cSJim Jagielski |*
36*b1cdbd2cSJim Jagielski |*	  RscFileInst::Init()
37*b1cdbd2cSJim Jagielski |*
38*b1cdbd2cSJim Jagielski |*	  Beschreibung
39*b1cdbd2cSJim Jagielski |*	  Ersterstellung	MM 05.11.91
40*b1cdbd2cSJim Jagielski |*	  Letzte Aenderung	MM 17.02.93
41*b1cdbd2cSJim Jagielski |*
42*b1cdbd2cSJim Jagielski *************************************************************************/
Init()43*b1cdbd2cSJim Jagielski void RscFileInst::Init()
44*b1cdbd2cSJim Jagielski {
45*b1cdbd2cSJim Jagielski 	nLineNo = 0;
46*b1cdbd2cSJim Jagielski 	nLineBufLen = 256;
47*b1cdbd2cSJim Jagielski 	pLine = (char *)rtl_allocateMemory( nLineBufLen );
48*b1cdbd2cSJim Jagielski 	*pLine = '\0';
49*b1cdbd2cSJim Jagielski 	nScanPos = 0;
50*b1cdbd2cSJim Jagielski 	cLastChar = '\0';
51*b1cdbd2cSJim Jagielski 	bEof = sal_False;
52*b1cdbd2cSJim Jagielski };
53*b1cdbd2cSJim Jagielski 
54*b1cdbd2cSJim Jagielski /*************************************************************************
55*b1cdbd2cSJim Jagielski |*
56*b1cdbd2cSJim Jagielski |*	  RscFileInst::RscFileInst()
57*b1cdbd2cSJim Jagielski |*
58*b1cdbd2cSJim Jagielski |*	  Beschreibung
59*b1cdbd2cSJim Jagielski |*	  Ersterstellung	MM 06.06.91
60*b1cdbd2cSJim Jagielski |*	  Letzte Aenderung	MM 06.06.91
61*b1cdbd2cSJim Jagielski |*
62*b1cdbd2cSJim Jagielski *************************************************************************/
RscFileInst(RscTypCont * pTC,sal_uLong lIndexSrc,sal_uLong lFIndex,FILE * fFile)63*b1cdbd2cSJim Jagielski RscFileInst::RscFileInst( RscTypCont * pTC, sal_uLong lIndexSrc,
64*b1cdbd2cSJim Jagielski 						  sal_uLong lFIndex, FILE * fFile )
65*b1cdbd2cSJim Jagielski {
66*b1cdbd2cSJim Jagielski 	pTypCont = pTC;
67*b1cdbd2cSJim Jagielski 	Init();
68*b1cdbd2cSJim Jagielski 
69*b1cdbd2cSJim Jagielski 	lFileIndex = lFIndex;
70*b1cdbd2cSJim Jagielski 	lSrcIndex = lIndexSrc;
71*b1cdbd2cSJim Jagielski 	fInputFile = fFile;
72*b1cdbd2cSJim Jagielski 
73*b1cdbd2cSJim Jagielski 	//Status: Zeiger am Ende des Lesepuffers
74*b1cdbd2cSJim Jagielski 	nInputPos = nInputEndPos = nInputBufLen = READBUFFER_MAX;
75*b1cdbd2cSJim Jagielski 	pInput	  = (char *)rtl_allocateMemory( nInputBufLen );
76*b1cdbd2cSJim Jagielski }
77*b1cdbd2cSJim Jagielski 
RscFileInst(RscTypCont * pTC,sal_uLong lIndexSrc,sal_uLong lFIndex,const ByteString & rBuf)78*b1cdbd2cSJim Jagielski RscFileInst::RscFileInst( RscTypCont * pTC, sal_uLong lIndexSrc,
79*b1cdbd2cSJim Jagielski 						  sal_uLong lFIndex, const ByteString& rBuf )
80*b1cdbd2cSJim Jagielski {
81*b1cdbd2cSJim Jagielski 	pTypCont	 = pTC;
82*b1cdbd2cSJim Jagielski 	Init();
83*b1cdbd2cSJim Jagielski 	lFileIndex	 = lFIndex;
84*b1cdbd2cSJim Jagielski 	lSrcIndex	 = lIndexSrc;
85*b1cdbd2cSJim Jagielski 	fInputFile	 = NULL;
86*b1cdbd2cSJim Jagielski 	nInputPos	 = 0;
87*b1cdbd2cSJim Jagielski 	nInputEndPos = rBuf.Len();
88*b1cdbd2cSJim Jagielski 
89*b1cdbd2cSJim Jagielski 	// Muss groesser sein wegen Eingabeende bei nInputBufLen < nInputEndPos
90*b1cdbd2cSJim Jagielski 	nInputBufLen = nInputEndPos +1;
91*b1cdbd2cSJim Jagielski 	pInput		 = (char *)rtl_allocateMemory( nInputBufLen +100 );
92*b1cdbd2cSJim Jagielski 	memcpy( pInput, rBuf.GetBuffer(), nInputEndPos );
93*b1cdbd2cSJim Jagielski }
94*b1cdbd2cSJim Jagielski 
95*b1cdbd2cSJim Jagielski /*************************************************************************
96*b1cdbd2cSJim Jagielski |*
97*b1cdbd2cSJim Jagielski |*	  RscFileInst::~RscFileInst()
98*b1cdbd2cSJim Jagielski |*
99*b1cdbd2cSJim Jagielski |*	  Beschreibung
100*b1cdbd2cSJim Jagielski |*	  Ersterstellung	MM 06.06.91
101*b1cdbd2cSJim Jagielski |*	  Letzte Aenderung	MM 06.06.91
102*b1cdbd2cSJim Jagielski |*
103*b1cdbd2cSJim Jagielski *************************************************************************/
~RscFileInst()104*b1cdbd2cSJim Jagielski RscFileInst::~RscFileInst(){
105*b1cdbd2cSJim Jagielski 	if( pInput )
106*b1cdbd2cSJim Jagielski 		rtl_freeMemory( pInput );
107*b1cdbd2cSJim Jagielski 	if( pLine )
108*b1cdbd2cSJim Jagielski 		rtl_freeMemory( pLine );
109*b1cdbd2cSJim Jagielski }
110*b1cdbd2cSJim Jagielski 
111*b1cdbd2cSJim Jagielski /*************************************************************************
112*b1cdbd2cSJim Jagielski |*
113*b1cdbd2cSJim Jagielski |*	  RscFileInst::GetChar()
114*b1cdbd2cSJim Jagielski |*
115*b1cdbd2cSJim Jagielski |*	  Beschreibung
116*b1cdbd2cSJim Jagielski |*	  Ersterstellung	MM 01.06.91
117*b1cdbd2cSJim Jagielski |*	  Letzte Aenderung	MM 09.08.91
118*b1cdbd2cSJim Jagielski |*
119*b1cdbd2cSJim Jagielski *************************************************************************/
GetChar()120*b1cdbd2cSJim Jagielski int RscFileInst::GetChar()
121*b1cdbd2cSJim Jagielski {
122*b1cdbd2cSJim Jagielski 	if( pLine[ nScanPos ] )
123*b1cdbd2cSJim Jagielski 		return( pLine[ nScanPos++ ] );
124*b1cdbd2cSJim Jagielski 	else if( nInputPos >= nInputEndPos && nInputEndPos != nInputBufLen )
125*b1cdbd2cSJim Jagielski 	{
126*b1cdbd2cSJim Jagielski 		// Dateiende
127*b1cdbd2cSJim Jagielski 		bEof = sal_True;
128*b1cdbd2cSJim Jagielski 		return 0;
129*b1cdbd2cSJim Jagielski 	}
130*b1cdbd2cSJim Jagielski 	else
131*b1cdbd2cSJim Jagielski 	{
132*b1cdbd2cSJim Jagielski 		GetNewLine();
133*b1cdbd2cSJim Jagielski 		return( '\n' );
134*b1cdbd2cSJim Jagielski 	}
135*b1cdbd2cSJim Jagielski }
136*b1cdbd2cSJim Jagielski 
137*b1cdbd2cSJim Jagielski /*************************************************************************
138*b1cdbd2cSJim Jagielski |*
139*b1cdbd2cSJim Jagielski |*	  RscFileInst::GetNewLine()
140*b1cdbd2cSJim Jagielski |*
141*b1cdbd2cSJim Jagielski |*	  Beschreibung
142*b1cdbd2cSJim Jagielski |*	  Ersterstellung	MM 06.06.91
143*b1cdbd2cSJim Jagielski |*	  Letzte Aenderung	MM 06.06.91
144*b1cdbd2cSJim Jagielski |*
145*b1cdbd2cSJim Jagielski *************************************************************************/
GetNewLine()146*b1cdbd2cSJim Jagielski void RscFileInst::GetNewLine()
147*b1cdbd2cSJim Jagielski {
148*b1cdbd2cSJim Jagielski 	nLineNo++;
149*b1cdbd2cSJim Jagielski 	nScanPos = 0;
150*b1cdbd2cSJim Jagielski 
151*b1cdbd2cSJim Jagielski 	//laeuft bis Dateiende
152*b1cdbd2cSJim Jagielski 	sal_uInt32 nLen = 0;
153*b1cdbd2cSJim Jagielski 	while( (nInputPos < nInputEndPos) || (nInputEndPos == nInputBufLen) )
154*b1cdbd2cSJim Jagielski 	{
155*b1cdbd2cSJim Jagielski 		if( (nInputPos >= nInputEndPos) && fInputFile )
156*b1cdbd2cSJim Jagielski 		{
157*b1cdbd2cSJim Jagielski 			nInputEndPos = fread( pInput, 1, nInputBufLen, fInputFile );
158*b1cdbd2cSJim Jagielski 			nInputPos = 0;
159*b1cdbd2cSJim Jagielski 		}
160*b1cdbd2cSJim Jagielski 
161*b1cdbd2cSJim Jagielski 		while( nInputPos < nInputEndPos )
162*b1cdbd2cSJim Jagielski 		{
163*b1cdbd2cSJim Jagielski 			//immer eine Zeile lesen
164*b1cdbd2cSJim Jagielski 			if( nLen >= nLineBufLen )
165*b1cdbd2cSJim Jagielski 			{
166*b1cdbd2cSJim Jagielski 				nLineBufLen += 256;
167*b1cdbd2cSJim Jagielski 				// einen dazu fuer '\0'
168*b1cdbd2cSJim Jagielski 				pLine = (char*)rtl_reallocateMemory( pLine, nLineBufLen +1 );
169*b1cdbd2cSJim Jagielski 			}
170*b1cdbd2cSJim Jagielski 
171*b1cdbd2cSJim Jagielski 			// cr lf, lf cr, lf oder cr wird '\0'
172*b1cdbd2cSJim Jagielski 			if( pInput[ nInputPos ] == '\n' ){
173*b1cdbd2cSJim Jagielski 				nInputPos++;
174*b1cdbd2cSJim Jagielski 				if( cLastChar != '\r' ){
175*b1cdbd2cSJim Jagielski 					cLastChar = '\n';
176*b1cdbd2cSJim Jagielski 					pLine[ nLen++ ] = '\0';
177*b1cdbd2cSJim Jagielski 					goto END;
178*b1cdbd2cSJim Jagielski 				}
179*b1cdbd2cSJim Jagielski 			}
180*b1cdbd2cSJim Jagielski 			else if( pInput[ nInputPos ] == '\r' ){
181*b1cdbd2cSJim Jagielski 				nInputPos++;
182*b1cdbd2cSJim Jagielski 				if( cLastChar != '\n' ){
183*b1cdbd2cSJim Jagielski 					cLastChar = '\r';
184*b1cdbd2cSJim Jagielski 					pLine[ nLen++ ] = '\0';
185*b1cdbd2cSJim Jagielski 					goto END;
186*b1cdbd2cSJim Jagielski 				}
187*b1cdbd2cSJim Jagielski 			}
188*b1cdbd2cSJim Jagielski 			else
189*b1cdbd2cSJim Jagielski             {
190*b1cdbd2cSJim Jagielski 				pLine[ nLen++ ] = pInput[ nInputPos++ ];
191*b1cdbd2cSJim Jagielski                 if( nLen > 2 )
192*b1cdbd2cSJim Jagielski                 {
193*b1cdbd2cSJim Jagielski                     if( (unsigned char)pLine[nLen-3] == 0xef &&
194*b1cdbd2cSJim Jagielski                         (unsigned char)pLine[nLen-2] == 0xbb &&
195*b1cdbd2cSJim Jagielski                         (unsigned char)pLine[nLen-1] == 0xbf )
196*b1cdbd2cSJim Jagielski                     {
197*b1cdbd2cSJim Jagielski                         nLen -= 3;
198*b1cdbd2cSJim Jagielski                     }
199*b1cdbd2cSJim Jagielski                 }
200*b1cdbd2cSJim Jagielski             }
201*b1cdbd2cSJim Jagielski 		};
202*b1cdbd2cSJim Jagielski 	};
203*b1cdbd2cSJim Jagielski 
204*b1cdbd2cSJim Jagielski 	// Abbruch ueber EOF
205*b1cdbd2cSJim Jagielski 	pLine[ nLen ] = '\0';
206*b1cdbd2cSJim Jagielski 
207*b1cdbd2cSJim Jagielski END:
208*b1cdbd2cSJim Jagielski 	if( pTypCont->pEH->GetListFile() ){
209*b1cdbd2cSJim Jagielski 		char buf[ 10 ];
210*b1cdbd2cSJim Jagielski 
211*b1cdbd2cSJim Jagielski 		sprintf( buf, "%5d ", (int)GetLineNo() );
212*b1cdbd2cSJim Jagielski 		pTypCont->pEH->LstOut( buf );
213*b1cdbd2cSJim Jagielski 		pTypCont->pEH->LstOut( GetLine() );
214*b1cdbd2cSJim Jagielski 		pTypCont->pEH->LstOut( "\n" );
215*b1cdbd2cSJim Jagielski 	}
216*b1cdbd2cSJim Jagielski }
217*b1cdbd2cSJim Jagielski 
218*b1cdbd2cSJim Jagielski /*************************************************************************
219*b1cdbd2cSJim Jagielski |*
220*b1cdbd2cSJim Jagielski |*	  RscFileInst::SetError()
221*b1cdbd2cSJim Jagielski |*
222*b1cdbd2cSJim Jagielski |*	  Beschreibung
223*b1cdbd2cSJim Jagielski |*	  Ersterstellung	MM 05.11.91
224*b1cdbd2cSJim Jagielski |*	  Letzte Aenderung	MM 05.11.91
225*b1cdbd2cSJim Jagielski |*
226*b1cdbd2cSJim Jagielski *************************************************************************/
SetError(ERRTYPE aError)227*b1cdbd2cSJim Jagielski void RscFileInst::SetError( ERRTYPE aError )
228*b1cdbd2cSJim Jagielski {
229*b1cdbd2cSJim Jagielski 	if( aError.IsOk() )
230*b1cdbd2cSJim Jagielski 	{
231*b1cdbd2cSJim Jagielski 		aFirstError = aError;
232*b1cdbd2cSJim Jagielski 		nErrorLine	= GetLineNo();
233*b1cdbd2cSJim Jagielski 		nErrorPos	= GetScanPos() -1;
234*b1cdbd2cSJim Jagielski 	};
235*b1cdbd2cSJim Jagielski };
236