summaryrefslogtreecommitdiff
path: root/basic/source/sbx/sbxform.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'basic/source/sbx/sbxform.cxx')
-rw-r--r--basic/source/sbx/sbxform.cxx124
1 files changed, 62 insertions, 62 deletions
diff --git a/basic/source/sbx/sbxform.cxx b/basic/source/sbx/sbxform.cxx
index 182b4e7db37c..533de965dbbb 100644
--- a/basic/source/sbx/sbxform.cxx
+++ b/basic/source/sbx/sbxform.cxx
@@ -2,7 +2,7 @@
/*************************************************************************
*
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
+ *
* Copyright 2000, 2010 Oracle and/or its affiliates.
*
* OpenOffice.org - a multi-platform office productivity suite
@@ -41,26 +41,26 @@ TODO: gibt es noch irgend welche Star-Basic Besonderheiten ?
BEMERKUNG: Visual-Basic behandelt folgende (ung"ultige) Format-Strings
wie angezeigt:
- ##0##.##0## --> ##000.000##
+ ##0##.##0## --> ##000.000##
(diese Klasse verh"alt sich genau so).
*/
-#include <stdio.h> // f"ur: sprintf()
-#include <float.h> // f"ur: DBL_DIG, DBL_EPSILON
-#include <math.h> // f"ur: floor(), fabs(), log10(), pow()
+#include <stdio.h> // f"ur: sprintf()
+#include <float.h> // f"ur: DBL_DIG, DBL_EPSILON
+#include <math.h> // f"ur: floor(), fabs(), log10(), pow()
//=================================================================
//=========================== DEFINES =============================
//=================================================================
-#define _NO_DIGIT -1
+#define _NO_DIGIT -1
-#define MAX_NO_OF_EXP_DIGITS 5
+#define MAX_NO_OF_EXP_DIGITS 5
// +4 wegen dem Wertebereich: zwischen -308 und +308
// +1 f"ur abschliessende 0
-#define MAX_NO_OF_DIGITS DBL_DIG
-#define MAX_DOUBLE_BUFFER_LENGTH MAX_NO_OF_DIGITS + 9
+#define MAX_NO_OF_DIGITS DBL_DIG
+#define MAX_DOUBLE_BUFFER_LENGTH MAX_NO_OF_DIGITS + 9
// +1 f"ur Vorzeichen
// +1 f"ur Ziffer vor dem Dezimal-Punkt
// +1 f"ur Dezimal-Punkt
@@ -69,38 +69,38 @@ BEMERKUNG: Visual-Basic behandelt folgende (ung"ultige) Format-Strings
// +1 f"ur abschliessende 0
// Defines f"ur die Ziffern:
-#define ASCII_0 '0' // 48
-#define ASCII_9 '9' // 57
+#define ASCII_0 '0' // 48
+#define ASCII_9 '9' // 57
-#define CREATE_1000SEP_CHAR '@'
+#define CREATE_1000SEP_CHAR '@'
-#define FORMAT_SEPARATOR ';'
+#define FORMAT_SEPARATOR ';'
// vordefinierte Formate f"ur den Format$()-Befehl:
-#define BASICFORMAT_GENERALNUMBER "General Number"
-#define BASICFORMAT_CURRENCY "Currency"
-#define BASICFORMAT_FIXED "Fixed"
-#define BASICFORMAT_STANDARD "Standard"
-#define BASICFORMAT_PERCENT "Percent"
-#define BASICFORMAT_SCIENTIFIC "Scientific"
-#define BASICFORMAT_YESNO "Yes/No"
-#define BASICFORMAT_TRUEFALSE "True/False"
-#define BASICFORMAT_ONOFF "On/Off"
-
-#define EMPTYFORMATSTRING ""
+#define BASICFORMAT_GENERALNUMBER "General Number"
+#define BASICFORMAT_CURRENCY "Currency"
+#define BASICFORMAT_FIXED "Fixed"
+#define BASICFORMAT_STANDARD "Standard"
+#define BASICFORMAT_PERCENT "Percent"
+#define BASICFORMAT_SCIENTIFIC "Scientific"
+#define BASICFORMAT_YESNO "Yes/No"
+#define BASICFORMAT_TRUEFALSE "True/False"
+#define BASICFORMAT_ONOFF "On/Off"
+
+#define EMPTYFORMATSTRING ""
// Bem.: Visual-Basic hat bei Floating-Point-Zahlen maximal 12 Stellen
-// nach dem Dezimal-Punkt.
+// nach dem Dezimal-Punkt.
// Alle Format-Strings sind kompatibel zu Visual-Basic:
-#define GENERALNUMBER_FORMAT "0.############"
+#define GENERALNUMBER_FORMAT "0.############"
// max. 12 Stellen in Visual-Basic !
-#define CURRENCY_FORMAT "@$0.00;@($0.00)"
-#define FIXED_FORMAT "0.00"
-#define STANDARD_FORMAT "@0.00"
-#define PERCENT_FORMAT "0.00%"
-#define SCIENTIFIC_FORMAT "#.00E+00"
+#define CURRENCY_FORMAT "@$0.00;@($0.00)"
+#define FIXED_FORMAT "0.00"
+#define STANDARD_FORMAT "@0.00"
+#define PERCENT_FORMAT "0.00%"
+#define SCIENTIFIC_FORMAT "#.00E+00"
// BEMERKUNG: das Zeichen @ bedeutet, das Tausender-Separatoren erzeugt
-// weden sollen. Dies ist eine StarBasic 'Erweiterung'.
+// weden sollen. Dies ist eine StarBasic 'Erweiterung'.
//=================================================================
@@ -145,7 +145,7 @@ SbxBasicFormater::SbxBasicFormater( sal_Unicode _cDecPoint, sal_Unicode _cThousa
/*
void SbxBasicFormater::ShowError( char * sErrMsg )
{
-// cout << "ERROR in Format$(): " << sErrMsg << endl;
+// cout << "ERROR in Format$(): " << sErrMsg << endl;
}
*/
// verschiebt alle Zeichen des Strings, angefangen von der nStartPos,
@@ -397,7 +397,7 @@ short SbxBasicFormater::GetDigitAtPos( double dNumber, short nPos,
nMaxDigit = (short)get_number_of_digits( dNumber );
// f"uhrende Ziffern 'l"oschen'
// Bem.: Fehler nur bei Zahlen gr"osser 0, d.h. bei Ziffern vor dem
- // Dezimal-Punkt
+ // Dezimal-Punkt
if( nMaxDigit<nPos && !bFoundFirstDigit && nPos>=0 )
return _NO_DIGIT;
// Ziffer gefunden, setze Flag:
@@ -423,7 +423,7 @@ short SbxBasicFormater::RoundDigit( double dNumber )
// ist der Wertebereich g"ultig ?
if( dNumber<0.0 || dNumber>10.0 )
return -1;
- short nTempHigh = (short)(dNumber+0.5); // ggf. floor( )
+ short nTempHigh = (short)(dNumber+0.5); // ggf. floor( )
return nTempHigh;
}
@@ -435,7 +435,7 @@ short SbxBasicFormater::RoundDigit( double dNumber )
// werden muss
String SbxBasicFormater::GetPosFormatString( const String& sFormatStrg, BOOL & bFound )
{
- bFound = FALSE; // default...
+ bFound = FALSE; // default...
USHORT nPos = sFormatStrg.Search( FORMAT_SEPARATOR );
if( nPos!=STRING_NOTFOUND )
@@ -454,7 +454,7 @@ String SbxBasicFormater::GetPosFormatString( const String& sFormatStrg, BOOL & b
// siehe auch GetPosFormatString()
String SbxBasicFormater::GetNegFormatString( const String& sFormatStrg, BOOL & bFound )
{
- bFound = FALSE; // default...
+ bFound = FALSE; // default...
USHORT nPos = sFormatStrg.Search( FORMAT_SEPARATOR );
if( nPos!=STRING_NOTFOUND )
@@ -481,7 +481,7 @@ String SbxBasicFormater::GetNegFormatString( const String& sFormatStrg, BOOL & b
// siehe auch GetPosFormatString()
String SbxBasicFormater::Get0FormatString( const String& sFormatStrg, BOOL & bFound )
{
- bFound = FALSE; // default...
+ bFound = FALSE; // default...
USHORT nPos = sFormatStrg.Search( FORMAT_SEPARATOR );
if( nPos!=STRING_NOTFOUND )
@@ -513,7 +513,7 @@ String SbxBasicFormater::Get0FormatString( const String& sFormatStrg, BOOL & bFo
// siehe auch GetPosFormatString()
String SbxBasicFormater::GetNullFormatString( const String& sFormatStrg, BOOL & bFound )
{
- bFound = FALSE; // default...
+ bFound = FALSE; // default...
USHORT nPos = sFormatStrg.Search( FORMAT_SEPARATOR );
if( nPos!=STRING_NOTFOUND )
@@ -584,7 +584,7 @@ short SbxBasicFormater::AnalyseFormatString( const String& sFormatStrg,
nNoOfDigitsLeft++;
// TODO hier ggf. bessere Fehler-"Uberpr"ufung der Mantisse auf g"ultige Syntax (siehe Grammatik)
// ACHTUNG: 'undefiniertes' Verhalten falls # und 0
- // gemischt werden !!!
+ // gemischt werden !!!
// BEMERKUNG: eigentlich sind #-Platzhalter bei Scientific
// Darstellung vor dem Dezimal-Punkt sinnlos !
if( c=='#' )
@@ -592,16 +592,16 @@ short SbxBasicFormater::AnalyseFormatString( const String& sFormatStrg,
}
else if( nState==1 )
nNoOfDigitsRight++;
- else if( nState==-1 ) // suche 0 im Exponent
+ else if( nState==-1 ) // suche 0 im Exponent
{
- if( c=='#' ) // # schaltet den Zustand weiter
+ if( c=='#' ) // # schaltet den Zustand weiter
{
nNoOfOptionalExponentDigits++;
nState = -2;
}
nNoOfExponentDigits++;
}
- else if( nState==-2 ) // suche # im Exponent
+ else if( nState==-2 ) // suche # im Exponent
{
if( c=='0' )
// ERROR: 0 nach # im Exponent ist NICHT erlaubt !!
@@ -613,14 +613,14 @@ short SbxBasicFormater::AnalyseFormatString( const String& sFormatStrg,
case '.':
nState++;
if( nState>1 )
- return -1; // ERROR: zu viele Dezimal-Punkte
+ return -1; // ERROR: zu viele Dezimal-Punkte
break;
case '%':
bPercent = TRUE;
/* old:
bPercent++;
if( bPercent>1 )
- return -2; // ERROR: zu viele Prozent-Zeichen
+ return -2; // ERROR: zu viele Prozent-Zeichen
*/
break;
case '(':
@@ -633,19 +633,19 @@ short SbxBasicFormater::AnalyseFormatString( const String& sFormatStrg,
// Zeichen gepr"uft
if( ch!=0 && (ch==',' || ch=='.') )
nMultipleThousandSeparators++;
- } break;
+ } break;
case 'e':
case 'E':
// #i13821 not when no digits before
if( nNoOfDigitsLeft > 0 || nNoOfDigitsRight > 0 )
{
- nState = -1; // breche jetzt das Z"ahlen der Stellen ab
+ nState = -1; // breche jetzt das Z"ahlen der Stellen ab
bScientific = TRUE;
}
/* old:
bScientific++;
if( bScientific>1 )
- return -3; // ERROR: zu viele Exponent-Zeichen
+ return -3; // ERROR: zu viele Exponent-Zeichen
*/
break;
// EIGENES Kommando-Zeichen, das die Erzeugung der
@@ -668,10 +668,10 @@ void SbxBasicFormater::ScanFormatString( double dNumber,
const String& sFormatStrg, String& sReturnStrg,
BOOL bCreateSign )
{
- short /*nErr,*/nNoOfDigitsLeft,nNoOfDigitsRight,nNoOfOptionalDigitsLeft,
+ short /*nErr,*/nNoOfDigitsLeft,nNoOfDigitsRight,nNoOfOptionalDigitsLeft,
nNoOfExponentDigits,nNoOfOptionalExponentDigits,
nMultipleThousandSeparators;
- BOOL bPercent,bCurrency,bScientific,bGenerateThousandSeparator;
+ BOOL bPercent,bCurrency,bScientific,bGenerateThousandSeparator;
// Initialisiere den Return-String
sReturnStrg = String();
@@ -738,7 +738,7 @@ void SbxBasicFormater::ScanFormatString( double dNumber,
if( bScientific )
{
//if( nNoOfOptionalDigitsLeft>0 )
- // ShowError( "# in scientific-format in front of the decimal-point has no effect" );
+ // ShowError( "# in scientific-format in front of the decimal-point has no effect" );
// beim Exponent ggf. "uberz"ahlige Stellen vor dem Komma abziehen
dExponent = dExponent - (double)(nNoOfDigitsLeft-1);
nDigitPos = nMaxDigit;
@@ -817,13 +817,13 @@ void SbxBasicFormater::ScanFormatString( double dNumber,
// muss f"ur eine leere Stelle eventuell eine 0 ausgegeben werden ?
if( nMaxDigit<nDigitPos && ( c=='0' || bZeroSpaceOn ) )
{
- AppendDigit( sReturnStrg,0 ); // Ja
+ AppendDigit( sReturnStrg,0 ); // Ja
// jetzt wurde wirklich eine Ziffer ausgegeben, Flag setzen
bFirstDigit = FALSE;
bZeroSpaceOn = 1;
// BEM.: bei Visual-Basic schaltet die erste 0 f"ur alle
// nachfolgenden # (bis zum Dezimal-Punkt) die 0 ein,
- // dieses Verhalten wird hier mit dem Flag simmuliert.
+ // dieses Verhalten wird hier mit dem Flag simmuliert.
// muss ggf. ein Tausender-Trennzeichen erzeugt werden?
if( bGenerateThousandSeparator && ( c=='0' || nMaxDigit>=nDigitPos ) && nDigitPos>0 && (nDigitPos % 3 == 0) )
StrAppendChar( sReturnStrg,cThousandSep );
@@ -870,7 +870,7 @@ void SbxBasicFormater::ScanFormatString( double dNumber,
}
// muss f"ur eine leere Stelle eventuell eine 0 ausgegeben werden ?
if( nMaxExponentDigit<nExponentPos && c=='0' )
- AppendDigit( sReturnStrg,0 ); // Ja
+ AppendDigit( sReturnStrg,0 ); // Ja
else
#ifdef _with_sprintf
AppendDigit( sReturnStrg,GetDigitAtPosExpScan( dExponent,nExponentPos,bFoundFirstDigit ) );
@@ -881,7 +881,7 @@ void SbxBasicFormater::ScanFormatString( double dNumber,
}
break;
case '.':
- if( bDigitPosNegative ) // #i13821: If no digits before .
+ if( bDigitPosNegative ) // #i13821: If no digits before .
{
bDigitPosNegative = false;
nDigitPos = 0;
@@ -941,7 +941,7 @@ void SbxBasicFormater::ScanFormatString( double dNumber,
nState++;
// gebe Exponent-Zeichen aus
StrAppendChar( sReturnStrg,c );
- // i++; // MANIPULATION der Schleifen-Variable !
+ // i++; // MANIPULATION der Schleifen-Variable !
c = sFormatStrg.GetChar( ++i );
// und gebe Vorzeichen / Exponent aus
if( c!=0 )
@@ -961,18 +961,18 @@ void SbxBasicFormater::ScanFormatString( double dNumber,
StrAppendChar( sReturnStrg,'+' );
}
//else
- // ShowError( "operator e/E did not find + or -" );
+ // ShowError( "operator e/E did not find + or -" );
}
//else
- // ShowError( "operator e/E ended with 0" );
+ // ShowError( "operator e/E ended with 0" );
break;
case ',':
// ACHTUNG: nur falls Zahl bisher ausgegeben wurde
- // das Zeichen ausgeben
+ // das Zeichen ausgeben
////--> Siehe Kommentar vom 11.7. in AnalyseFormatString()
////if( !bFirstDigit )
- //// // gebe Tausender-Trennzeichen aus
- //// StrAppendChar( sReturnStrg,cThousandSep );
+ //// // gebe Tausender-Trennzeichen aus
+ //// StrAppendChar( sReturnStrg,cThousandSep );
break;
case ';':
break;
@@ -1007,7 +1007,7 @@ void SbxBasicFormater::ScanFormatString( double dNumber,
if( c!=0 )
StrAppendChar( sReturnStrg,c );
//else
- // ShowError( "operator \\ ended with 0" );
+ // ShowError( "operator \\ ended with 0" );
break;
case CREATE_1000SEP_CHAR:
// hier ignorieren, Aktion wurde schon in
generated by cgit v1.2.3 (git 2.39.1) at 2024-04-25 21:14:20 +0000