58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
45 lines
1.0 KiB
Plaintext
45 lines
1.0 KiB
Plaintext
/*
|
|
* Check alignment dependent lang item(s)
|
|
*
|
|
* Copyright 2013 Viktor Szakats (vszakats.net/harbour)
|
|
*
|
|
*/
|
|
|
|
#pragma -w3
|
|
#pragma -km+
|
|
#pragma -ko+
|
|
|
|
#include "hblang.ch"
|
|
|
|
#define LEFTEQUAL( l, r ) ( Left( l, Len( r ) ) == r )
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL tmp
|
|
LOCAL nCount
|
|
LOCAL cName
|
|
LOCAL cPO
|
|
|
|
cPO := ;
|
|
PadR( "en", 6 ) + ' "' + ;
|
|
PadR( "", 15, "*" ) + ;
|
|
Str( 999999999999, 12 ) + " " + ;
|
|
DToC( Date() ) + ;
|
|
Str( 999999999999, 12 ) + '"' + hb_eol()
|
|
|
|
nCount := __dynsCount()
|
|
FOR tmp := 1 TO nCount
|
|
cName := __dynsGetName( tmp )
|
|
IF LEFTEQUAL( cName, "HB_LANG_" )
|
|
cName := SubStr( cName, Len( "HB_LANG_" ) + 1 )
|
|
IF ( Len( cName ) != 5 .OR. "_" $ cName ) .AND. ;
|
|
! "|" + cName + "|" $ "|RUKOI8|UAKOI8|ZHB5|ZHGB|"
|
|
cPO += PadR( Lower( cName ), 6 ) + ' "' + hb_langMessage( HB_LANG_ITEM_BASE_NATMSG, cName ) + '"' + hb_eol()
|
|
ENDIF
|
|
ENDIF
|
|
NEXT
|
|
|
|
hb_MemoWrit( hb_FNameExtSet( __FILE__, ".txt" ), cPO )
|
|
|
|
RETURN
|