_makenotes.bat

来自「delphi开发语言下的源代码分析」· Batch 代码 · 共 23 行

@if "%1"=="" goto ERROR
@if NOT EXIST "%1" goto ERROR

@if "%2"=="" goto CMD2
@if EXIST "%2" del "%2"
@bin\BPatch.exe "%1" "%2"< bin\diff.lst
@echo OK!
@goto EXIT

:CMD2
@if EXIST "%1.bak" del "%1.bak"
@bin\BPatch.exe "%1" "%1.bak" < bin\diff.lst
@echo OK!
@goto EXIT

:ERROR
@echo The tool add full notes to Delphi7's MemMgr
@echo usage:
@echo     _MakeNotes GetMem.inc
@echo  or
@echo     _MakeNotes GetMem.inc new_GetMem.inc

:EXIT