fce9739764
- utils/hbmk2/po/hbmk2.hu!.po
- deleted accidentally added file
* utils/hbmk2/_md_make.hb
* utils/hbmk2/_po_pull.hb
* minor tweaks
* utils/hbmk2/po/hbmk2.hu.po
+ added two translations for testing automatic .po translation upload
67 lines
1.7 KiB
Plaintext
67 lines
1.7 KiB
Plaintext
/*
|
|
* Downloads .po files from Transifex localization site
|
|
*
|
|
* Copyright 2013 Viktor Szakats (harbour syenar.net)
|
|
* www - http://harbour-project.org
|
|
*
|
|
* Requires: curl (built with SSL)
|
|
* Reference: http://help.transifex.com/features/api/api-v2.1.html
|
|
*
|
|
*/
|
|
|
|
#pragma -w3
|
|
|
|
PROCEDURE Main( cLogin )
|
|
|
|
LOCAL cBase := hb_DirBase()
|
|
|
|
LOCAL json
|
|
LOCAL cLang
|
|
LOCAL cTemp
|
|
|
|
LOCAL cProject := "harbour"
|
|
LOCAL cMain := cBase + "hbmk2.prg"
|
|
LOCAL cPO_Dir := cBase + hb_DirSepToOS( "po/" )
|
|
|
|
IF Empty( cLogin )
|
|
cLogin := GetEnv( "HB_TRANSIFEX_LOGIN" ) /* Format: username:password */
|
|
ENDIF
|
|
|
|
FClose( hb_FTempCreateEx( @cTemp ) )
|
|
|
|
? "pulling .po files:"
|
|
|
|
FOR EACH cLang IN hb_ATokens( hb_regexAll( "-lng=([a-zA-Z0-9_\-,]*)", hb_MemoRead( hb_FNameExtSet( cMain, ".hbp" ) ),,,,, .T. )[ 1 ][ 2 ], "," )
|
|
|
|
?? "", cLang
|
|
|
|
hb_run( hb_StrFormat( "curl -s -i -L --user %1$s -X " + ;
|
|
"GET https://www.transifex.com/api/2/project/%2$s/resource/%3$s/translation/%4$s/" + ;
|
|
" -o %5$s", ;
|
|
cLogin, cProject, hb_FNameName( cMain ), cLang, cTemp ) )
|
|
|
|
IF hb_jsonDecode( GetJSON( hb_MemoRead( cTemp ) ), @json ) > 0
|
|
hb_MemoWrit( cPO_Dir + hb_FNameName( cMain ) + "." + cLang + ".po", DoctorContent( json[ "content" ] ) )
|
|
ELSE
|
|
? "API error"
|
|
ENDIF
|
|
NEXT
|
|
|
|
FErase( cTemp )
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION DoctorContent( cString )
|
|
|
|
cString := StrTran( cString, hb_UChar( 0x23CE ), "\n" ) /* convert RETURN SYMBOL used by Transifex for NEWLINE */
|
|
cString := StrTran( cString, e"\n", hb_eol() )
|
|
|
|
RETURN cString
|
|
|
|
STATIC FUNCTION GetJSON( cString )
|
|
|
|
cString := SubStr( cString, At( "{", cString ) )
|
|
cString := Left( cString, RAt( "}", cString ) )
|
|
|
|
RETURN cString
|