fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-12-05 12:15 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/tests/cpinfo.prg
    * small modification for non latin CPs having first lower letter before
      upper
    * keep signature for generated CP files as "$Id' + "$" to avoid
      automatic replacing by SVN
This commit is contained in:
Przemyslaw Czerpak
2010-12-05 11:15:54 +00:00
parent 726dc18996
commit 1881948236
2 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -16,6 +16,13 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-12-05 12:15 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/tests/cpinfo.prg
* small modification for non latin CPs having first lower letter before
upper
* keep signature for generated CP files as "$Id' + "$" to avoid
automatic replacing by SVN
2010-12-05 10:51 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/codepage/cpcskamc.c
* harbour/src/codepage/cpskkamc.c

18
harbour/tests/cpinfo.prg
View File

@@ -19,7 +19,7 @@
proc main( cdp, info, unicode )
local cUp, cLo, cUp2, cLo2, cOrd, cOrd2, cOrdMix, cMix, c, i, a
local lWarn, lBin, lSort, lEqual, lMixed
local lWarn, lBin, lSort, lEqual, lMixed, lIsUp, lIsLo
set alternate to cpinfo.txt additive
set alternate on
@@ -188,15 +188,23 @@ proc main( cdp, info, unicode )
cUp2 := substr( cUp, 27 )
cLo2 := substr( cLo, 27 )
cOrd2 := ""
lIsUp := lIsLo := .f.
for i := 0 to 255
c := chr( i )
if c $ cUp2
if ! c $ cOrd2
if ! lIsUp
cOrd2 += cUp2
lIsUp := .t.
if lIsLo
cOrd2 += cLo2
endif
endif
elseif c $ cLo2
if ! c $ cOrd2
cOrd2 += cLo2
if !lIsLo
if lIsUp
cOrd2 += cLo2
endif
lIsLo := .t.
endif
else
cOrd2 += chr( i )
@@ -407,7 +415,7 @@ static function genCPfile( id, info, unicode, flags, upper, lower, sort, ;
local cDef
cDef := ;
'/*' + EOL + ' * $Id$' + EOL + ' */' + EOL + EOL + ;
'/*' + EOL + ' * $Id' + '$' + EOL + ' */' + EOL + EOL + ;
'/*' + EOL + ;
' * Harbour Project source code:' + EOL + ;
' * National Collation Support Module ( $1 )' + EOL + ;