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

2012-10-08 19:00 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbmisc/numtxtru.prg
    ! don't use # op.
This commit is contained in:
Viktor Szakats
2012-10-08 17:01:42 +00:00
parent 54b81df2cc
commit 90dfbb1e40
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-10-08 19:00 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbmisc/numtxtru.prg
! don't use # op.
2012-10-08 18:37 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/src/rtl/cdpapihb.c
% minor optimization
@@ -32,7 +36,7 @@
* applied coding standards (no common.ch, no '=' op, move test
code to separate source, use iif(), unicode support, UTF-8/ASCII
source only, use svn props, use IS*()/hb_default() functions,
updated .hbx)
updated .hbx, hbformat, hb_ntos(), PROCEDURE Main(), no # and <> ops)
* changed interface to accept language code as string
instead of numeric constant.
; Please review

10
harbour/contrib/hbmisc/numtxtru.prg
View File

@@ -184,8 +184,8 @@ STATIC aRus := { ;
{ NTSR_MALE, "руб.", "рубль", "рубля", "рублей" }, ;
{ NTSR_FEMA, "коп.", "копейка", "копейки", "копеек" }, ;
"минус", ;
{ "января", "февраля", "марта", "апреля", "мая", "июня", ;
"июля", "августа", "сентября", "октября", "ноября", "декабря" }, ;
{ "января", "февраля", "марта", "апреля", "мая", "июня", ;
"июля", "августа", "сентября", "октября", "ноября", "декабря" }, ;
{ "год", "года" } }
/* Ukrainian messages */
@@ -302,8 +302,8 @@ STATIC aUkr := { ;
{ NTSR_FEMA, "грн.", "гривня", "гривнi", "гривень" }, ;
{ NTSR_FEMA, "коп.", "копiйка", "копiйки", "копiйок" }, ;
"мiнус", ;
{ "сiчня", "лютого", "березня", "квiтня", "травня", "червня", ;
"липня", "серпня", "вересня", "жовтня", "листопада", "грудня" }, ;
{ "сiчня", "лютого", "березня", "квiтня", "травня", "червня", ;
"липня", "серпня", "вересня", "жовтня", "листопада", "грудня" }, ;
{ "рiк", "року" } }
/* Belorussian messages */
@@ -624,7 +624,7 @@ STATIC FUNCTION TriToStr( nValue, aMsg, nGender, lOrd, lLast, nTri )
IF nValue >= 20
nTemp := nValue % 10
IF ! lOrd .OR. nTemp # 0 .OR. ! lLast
IF ! lOrd .OR. nTemp != 0 .OR. ! lLast
nIdx := NTSR_MALE
ELSEIF lLast .AND. nTemp == 0 .AND. nTri == 0
nIdx := NTSR_CNT