86 lines
2.1 KiB
Plaintext
86 lines
2.1 KiB
Plaintext
/*
|
|
* Strips VCS id headers from source files
|
|
*
|
|
* Copyright 2013 Viktor Szakats (vszakats.net/harbour)
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
#pragma -w3
|
|
#pragma -km+
|
|
#pragma -ko+
|
|
|
|
#include "directry.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL aFile
|
|
LOCAL cExt
|
|
LOCAL tmp
|
|
|
|
LOCAL cHdr1 := ;
|
|
"/*" + hb_eol() + ;
|
|
" * $" + "Id" + "$" + hb_eol() + ;
|
|
" */" + hb_eol()
|
|
|
|
LOCAL cHdr2 := ;
|
|
"/*" + hb_eol() + ;
|
|
" * $" + "Id" + "$" + hb_eol() + ;
|
|
" */" + hb_eol()
|
|
|
|
LOCAL cHdr3 := ;
|
|
"#" + hb_eol() + ;
|
|
"# $" + "Id" + "$" + hb_eol() + ;
|
|
"#" + hb_eol()
|
|
|
|
LOCAL cHdr4 := ;
|
|
"@rem" + hb_eol() + ;
|
|
"@rem $" + "Id" + "$" + hb_eol() + ;
|
|
"@rem" + hb_eol()
|
|
|
|
LOCAL cHdr5 := ;
|
|
"rem" + hb_eol() + ;
|
|
"rem $" + "Id" + "$" + hb_eol() + ;
|
|
"rem" + hb_eol()
|
|
|
|
LOCAL cHdr6 := ;
|
|
";" + hb_eol() + ;
|
|
"; $" + "Id" + "$" + hb_eol() + ;
|
|
";" + hb_eol()
|
|
|
|
LOCAL cHdr7 := ;
|
|
"'" + hb_eol() + ;
|
|
"' $" + "Id" + "$" + hb_eol() + ;
|
|
"'" + hb_eol()
|
|
|
|
FOR EACH aFile IN Directory( hb_osFileMask() )
|
|
|
|
cExt := hb_FNameExt( aFile[ F_NAME ] )
|
|
|
|
IF Empty( cExt ) .OR. ;
|
|
"|" + cExt + "|" $ "|.c|.h|.hb|.prg|.hbm|.hbp|.hbc|.ini|.bat|.sh|.vbs|.def|.api|.ch|.txt|.mk|"
|
|
|
|
tmp := MemoRead( aFile[ F_NAME ] )
|
|
tmp := StrTran( tmp, cHdr1 )
|
|
tmp := StrTran( tmp, cHdr2 )
|
|
tmp := StrTran( tmp, cHdr3 )
|
|
tmp := StrTran( tmp, cHdr4 )
|
|
tmp := StrTran( tmp, cHdr5 )
|
|
tmp := StrTran( tmp, cHdr6 )
|
|
tmp := StrTran( tmp, cHdr7 )
|
|
|
|
IF ! "|" + cExt + "|" $ "|.hbm|.hbp|.hbc|.txt|"
|
|
IF Left( tmp, Len( hb_eol() ) + 2 ) == hb_eol() + "//" .OR. ;
|
|
Left( tmp, Len( hb_eol() ) + 2 ) == hb_eol() + "/*" .OR. ;
|
|
Left( tmp, Len( hb_eol() ) + 1 ) == hb_eol() + ";" .OR. ;
|
|
Left( tmp, Len( hb_eol() ) + 1 ) == hb_eol() + "#"
|
|
tmp := SubStr( tmp, Len( hb_eol() ) + 1 )
|
|
ENDIF
|
|
ENDIF
|
|
|
|
hb_MemoWrit( aFile[ F_NAME ], tmp )
|
|
ENDIF
|
|
NEXT
|
|
|
|
RETURN
|