paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 21:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

added parameter check

Browse Source 
git-svn-id: trunk@6745 -
This commit is contained in:
mattias 2005-02-05 14:26:57 +00:00
parent 4bca03d262
commit a129127f96
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tools/install/create_fpc_tgz_from_local_dir.sh
View File

@ -35,11 +35,12 @@ fi
TmpBaseDir=/tmp TmpBaseDir=/tmp
TmpDir=$TmpBaseDir/fpc TmpDir=$TmpBaseDir/fpc
echo "copy $FPCSrcDir to /tmp/fpc ..." ppc386 -Fu../../lcl/units/i386/linux cvsexportlocal.pas
echo "extracting FPC from local cvs ..."
cd $TmpBaseDir cd $TmpBaseDir
rm -rf $TmpDir rm -rf $TmpDir
cd - cd -
sh create_clean_fpcsrc_directory.sh $FPCSrcDir $TmpDir ./cvsexportlocal $FPCSrcDir $TmpDir
if [ $RenameSmart = "yes" ]; then if [ $RenameSmart = "yes" ]; then
for Ext in pm pl; do for Ext in pm pl; do

5
tools/install/cvsexportlocal.pas
View File

@ -114,6 +114,11 @@ end;
procedure Init; procedure Init;
begin begin
if ParamCount<2 then begin
writeln('Usage:');
writeln(' cvsexportlocal <sourcedirectory> <destinationdirectory>');
Halt;
end;
InputDir := ExpandFileName(ParamStr(1)); InputDir := ExpandFileName(ParamStr(1));
OutputDir := ExpandFileName(ParamStr(2)); OutputDir := ExpandFileName(ParamStr(2));
end; end;