73bc371744
* utils/hbmk2/hbmk2.prg
! HBSHELL_CLIPPER() extended to reset the date format
to Clipper default as well
+ documented that the default date format for strings
is the ISO one (yyyy-mm-dd)
* src/rtl/filesys.c
! hb_fsSetAttr() (and hb_FSetAttr()/SetFAttr()/etc)
to handle the archive attribute correctly on Windows.
Previously a call was always setting it.
Thanks for the report and research to Tony Quick.
; Checkme
* contrib/hbnf/fttext.c
! fixed internal error in FT_READLN() when used on an
LF delimited text file. This API pbly needs more
thorough review regarding portable EOL handling, f.e.
it seems buggy when CRLF pair falls onto the buffer
(length = 4096) boundary.
! fixed 1 byte read past buffer in internal _findeol()
function
; Checkme
* contrib/hbnf/doc/en/fttext.txt
* updates regarding EOL
* contrib/hbcups/tests/test.prg
* contrib/hbmisc/tests/hb_f.prg
* contrib/hbnf/tests/dfile.prg
* contrib/hbnf/tests/fttext.prg
+ accept filename as parameter
* contrib/hbpgsql/tests/test.prg
* contrib/hbwin/tests/mapimail.prg
* contrib/xhb/tests/copyfile.prg
! minor cleanups
* bin/3rdpatch.hb
* tests/fixcase.hb
* minor formatting
195 lines
4.7 KiB
Plaintext
195 lines
4.7 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Function naming casing fixer
|
|
*
|
|
* The script takes proper casing from .hbx files
|
|
* and applies it to whole source tree. (except
|
|
* C sources and some certain files)
|
|
*
|
|
* BEWARE: ugly code
|
|
*
|
|
* Copyright 2012 Viktor Szakats (harbour syenar.net)
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
#include "directry.ch"
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE Main( cFile )
|
|
|
|
LOCAL aFile
|
|
LOCAL cExt
|
|
|
|
LOCAL hAll := { => }
|
|
|
|
LOCAL hExtExceptions := { ;
|
|
hb_libExt() =>, ;
|
|
".zip" =>, ;
|
|
".7z" =>, ;
|
|
".exe" =>, ;
|
|
".o" =>, ;
|
|
".js" =>, ;
|
|
".dif" =>, ;
|
|
".c" =>, ;
|
|
".h" =>, ;
|
|
".api" =>, ;
|
|
".exe" =>, ;
|
|
".y" =>, ;
|
|
".yyc" =>, ;
|
|
".yyh" =>, ;
|
|
".a" =>, ;
|
|
".afm" =>, ;
|
|
".bmp" =>, ;
|
|
".dat" =>, ;
|
|
".dbf" =>, ;
|
|
".exe" =>, ;
|
|
".frm" =>, ;
|
|
".gif" =>, ;
|
|
".icns" =>, ;
|
|
".ico" =>, ;
|
|
".jpg" =>, ;
|
|
".lbl" =>, ;
|
|
".lib" =>, ;
|
|
".mdb" =>, ;
|
|
".ng" =>, ;
|
|
".odt" =>, ;
|
|
".pdf" =>, ;
|
|
".pfb" =>, ;
|
|
".png" =>, ;
|
|
".sq3" =>, ;
|
|
".tif" => }
|
|
|
|
LOCAL hFileExceptions := { ;
|
|
"ChangeLog.txt" =>, ;
|
|
"std.ch" =>, ;
|
|
"wcecon.prg" =>, ;
|
|
"uc16_gen.prg" =>, ;
|
|
"clsscope.prg" =>, ;
|
|
"speedstr.prg" =>, ;
|
|
"cpinfo.prg" =>, ;
|
|
"clsccast.prg" =>, ;
|
|
"clsicast.prg" =>, ;
|
|
"clsscast.prg" =>, ;
|
|
"big5_gen.prg" =>, ;
|
|
"foreach2.prg" =>, ;
|
|
"speedtst.prg" =>, ;
|
|
"keywords.prg" =>, ;
|
|
"xhb-diff.txt" =>, ;
|
|
"pp.txt" =>, ;
|
|
"locks.txt" =>, ;
|
|
"oldnews.txt" =>, ;
|
|
"news.html" =>, ;
|
|
"news1.html" =>, ;
|
|
"c_std.txt" =>, ;
|
|
"tracing.txt" =>, ;
|
|
"pcode.txt" => }
|
|
|
|
LOCAL aMaskExceptions := { ;
|
|
"contrib/xhb/thtm.prg" , ;
|
|
"contrib/hbnetio/readme.txt" , ;
|
|
"contrib/hbnetio/tests/*" , ;
|
|
"extras/httpsrv/home/*" , ;
|
|
"tests/hbpptest/*" , ;
|
|
"tests/mt/*" , ;
|
|
"tests/multifnc/*" , ;
|
|
"tests/rddtest/*" }
|
|
|
|
hb_cdpSelect( "EN" )
|
|
|
|
hb_HCaseMatch( hAll, .F. )
|
|
|
|
__hbformat_BuildListOfFunctions( hAll )
|
|
|
|
IF HB_ISSTRING( cFile )
|
|
ProcFile( hAll, cFile )
|
|
ELSE
|
|
FOR EACH aFile IN hb_DirScan( "", hb_osFileMask() )
|
|
cExt := hb_FNameExt( aFile[ F_NAME ] )
|
|
IF ! Empty( hb_FNameExt( aFile[ F_NAME ] ) ) .AND. ;
|
|
!( hb_FNameExt( aFile[ F_NAME ] ) $ hExtExceptions ) .AND. ;
|
|
!( hb_FNameNameExt( aFile[ F_NAME ] ) $ hFileExceptions ) .AND. ;
|
|
AScan( aMaskExceptions, {| tmp | hb_FileMatch( StrTran( aFile[ F_NAME ], "\", "/" ), tmp ) } ) == 0
|
|
ProcFile( hAll, aFile[ F_NAME ] )
|
|
ENDIF
|
|
NEXT
|
|
ENDIF
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE ProcFile( hAll, cFileName )
|
|
|
|
LOCAL cLog := MemoRead( cFileName )
|
|
LOCAL cHit
|
|
LOCAL tmp
|
|
|
|
LOCAL nPos
|
|
LOCAL cName
|
|
|
|
LOCAL a
|
|
LOCAL cProper
|
|
|
|
LOCAL nChanged := 0
|
|
|
|
FOR EACH a IN hb_regexAll( "([A-Za-z] |[^A-Za-z_:]|^)([A-Za-z_][A-Za-z0-9_]+\()", cLog,,,,, .T. )
|
|
IF Len( a[ 2 ] ) != 2 .OR. !( Left( a[ 2 ], 1 ) $ "D" /* "METHOD" */ )
|
|
cProper := ProperCase( hAll, hb_StrShrink( a[ 3 ], 1 ) ) + "("
|
|
IF !( cProper == a[ 3 ] ) .AND. ;
|
|
!( Upper( cProper ) == "FILE(" ) .AND. ; /* interacts with "file(s)" text */
|
|
!( Upper( cProper ) == "INT(" ) /* interacts with SQL statements */
|
|
cLog := StrTran( cLog, a[ 1 ], StrTran( a[ 1 ], a[ 3 ], cProper ) )
|
|
? cFileName, a[ 3 ], cProper, "|" + a[ 1 ] + "|"
|
|
nChanged++
|
|
ENDIF
|
|
ENDIF
|
|
NEXT
|
|
|
|
IF nChanged > 0
|
|
? cFileName, "changed: ", nChanged
|
|
hb_MemoWrit( cFileName, cLog )
|
|
ENDIF
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION ProperCase( hAll, cName )
|
|
|
|
IF cName $ hAll
|
|
RETURN hb_HKeyAt( hAll, hb_HPos( hAll, cName ) )
|
|
ENDIF
|
|
|
|
RETURN cName
|
|
|
|
STATIC PROCEDURE __hbformat_BuildListOfFunctions( hFunctions )
|
|
|
|
WalkDir( hb_DirBase() + ".." + hb_ps() + "include", hFunctions )
|
|
WalkDir( hb_DirBase() + ".." + hb_ps() + "contrib", hFunctions )
|
|
WalkDir( hb_DirBase() + ".." + hb_ps() + "extras", hFunctions )
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE WalkDir( cDir, hFunctions )
|
|
|
|
LOCAL aFile
|
|
|
|
cDir := hb_DirSepAdd( cDir )
|
|
|
|
FOR EACH aFile IN hb_DirScan( cDir, "*.hbx" )
|
|
HBXToFuncList( hFunctions, hb_MemoRead( cDir + aFile[ F_NAME ] ) )
|
|
NEXT
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE HBXToFuncList( hFunctions, cHBX )
|
|
LOCAL cLine
|
|
|
|
FOR EACH cLine IN hb_ATokens( StrTran( cHBX, Chr( 13 ) ), Chr( 10 ) )
|
|
IF Left( cLine, Len( "DYNAMIC " ) ) == "DYNAMIC "
|
|
hFunctions[ SubStr( cLine, Len( "DYNAMIC " ) + 1 ) ] := NIL
|
|
ENDIF
|
|
NEXT
|
|
|
|
RETURN
|