mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-31 06:25:31 +00:00
Code Issues Releases Wiki Activity

Fix line length issues to perl scripts

Browse Source
This commit is contained in:
Danny Mayer
2001-07-27 05:20:29 +00:00
parent 0ce385e126
commit 924b2e8230
2 changed files with 19 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
win32utils/makedefs.pl
View File

@@ -15,11 +15,11 @@
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION # NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. # WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# #
# $Id: makedefs.pl,v 1.2 2001/07/22 05:55:38 mayer Exp $ # $Id: makedefs.pl,v 1.3 2001/07/27 05:20:28 mayer Exp $
# #
# makedefs.pl # makedefs.pl
# This script goes through all of the lib header files and creates a .def file for # This script goes through all of the lib header files and creates a .def file
# each DLL for Win32. It recurses as necessary through the subdirectories # for each DLL for Win32. It recurses as necessary through the subdirectories
# #
# This program should only be run if it is necessary to regenerate # This program should only be run if it is necessary to regenerate
# the .def files. Normally these files should be updated by hand, adding # the .def files. Normally these files should be updated by hand, adding
@@ -101,9 +101,8 @@ $xdir = $_[0];
# #
#^(([_a-z0-9])*( ))*prefix_[_a-z]+_[a-z]+( )*\( #^(([_a-z0-9])*( ))*prefix_[_a-z]+_[a-z]+( )*\(
$prefix = $_[1]; $prefix = $_[1];
#$pattern = "\^\( \)\*$prefix\_\[\_a\-z\]\+_\[a\-z\]\+\( \)\*\\\("; $pattern = "\^\(\(\[\_a\-z0\-9\]\)\*\( \)\)\*\(\\*\( \)\+\)\*$prefix";
#$pattern = "\^\(\(\[\_a\-z0\-9\]\)\*\( \)\)\*$prefix\_\[\_a\-z0\-9\]\+_\[a\-z0\-9\]\+\( \)\*\\\("; $pattern = "$pattern\_\[\_a\-z0\-9\]\+_\[a\-z0\-9\]\+\( \)\*\\\(";
$pattern = "\^\(\(\[\_a\-z0\-9\]\)\*\( \)\)\*\(\\*\( \)\+\)\*$prefix\_\[\_a\-z0\-9\]\+_\[a\-z0\-9\]\+\( \)\*\\\(";
opendir(DIR,$xdir) || die "No Directory: $!"; opendir(DIR,$xdir) || die "No Directory: $!";
@files = grep(/\.h$/i, readdir(DIR)); @files = grep(/\.h$/i, readdir(DIR));
@@ -113,7 +112,8 @@ foreach $filename (sort @files) {
# #
# Open the file and locate the pattern. # Open the file and locate the pattern.
# #
open (HFILE, "$xdir/$filename") || die "Can't open file $filename : $!"; open (HFILE, "$xdir/$filename") ||
die "Can't open file $filename : $!";
# #
while (<HFILE>) { while (<HFILE>) {
if(/$pattern/) { if(/$pattern/) {

19
win32utils/makeversion.pl
View File

@@ -15,12 +15,12 @@
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION # NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. # WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# $Id: makeversion.pl,v 1.2 2001/07/22 05:55:39 mayer Exp $ # $Id: makeversion.pl,v 1.3 2001/07/27 05:20:29 mayer Exp $
# This script takes the version information from the version file located at the # This script takes the version information from the version file located
# root of the source tree and the api files in each library directory and writes # at the root of the source tree and the api files in each library directory
# the resulting information into a version.h file that the build process uses to # and writes the resulting information into a version.h file that the build
# build the executable code. # process uses to build the executable code.
# This program was written by PDM. danny.mayer@nominum.com 1-Jul-2001. # This program was written by PDM. danny.mayer@nominum.com 1-Jul-2001.
# #
# List of directories with version files # List of directories with version files
@@ -53,7 +53,8 @@ close(VERSIONFILE);
# Now set up the output version file # Now set up the output version file
$ThisDate = scalar localtime(); $ThisDate = scalar localtime();
open (OUTVERSIONFILE, ">$versionpath") || die "Can't open output file $versionpath: $!"; open (OUTVERSIONFILE, ">$versionpath") ||
die "Can't open output file $versionpath: $!";
#Standard Header #Standard Header
@@ -77,7 +78,8 @@ print OUTVERSIONFILE '/*
'; ';
print OUTVERSIONFILE "/*\n"; print OUTVERSIONFILE "/*\n";
print OUTVERSIONFILE " * $versionfile. Generated automatically by makeversion.pl.\n"; print OUTVERSIONFILE " * $versionfile.";
print OUTVERSIONFILE " Generated automatically by makeversion.pl.\n";
print OUTVERSIONFILE " * Date generated: $ThisDate\n"; print OUTVERSIONFILE " * Date generated: $ThisDate\n";
print OUTVERSIONFILE " */\n\n"; print OUTVERSIONFILE " */\n\n";
@@ -87,7 +89,8 @@ print OUTVERSIONFILE '
'; ';
$Version = "$Versions{'MAJORVER'}.$Versions{'MINORVER'}.$Versions{'PATCHVER'}$Versions{'RELEASETYPE'}$Versions{'RELEASEVER'}"; $Version = "$Versions{'MAJORVER'}.$Versions{'MINORVER'}.$Versions{'PATCHVER'}";
$Version = "$Version$Versions{'RELEASETYPE'}$Versions{'RELEASEVER'}";
print "BIND Version: $Version\n"; print "BIND Version: $Version\n";
print OUTVERSIONFILE "#define VERSION \"$Version\"\n\n"; print OUTVERSIONFILE "#define VERSION \"$Version\"\n\n";