From 31868b85be4e9da11a20e367f32db1df317a52d1 Mon Sep 17 00:00:00 2001 From: Mark Whitley Date: Tue, 17 Apr 2001 17:37:47 +0000 Subject: [PATCH] Added some help messages. --- examples/mk2knr.pl | 10 +++++++++- scripts/mk2knr.pl | 10 +++++++++- 2 files changed, 18 insertions(+), 2 deletions(-) diff --git a/examples/mk2knr.pl b/examples/mk2knr.pl index 29f94a188..aaf4963b1 100755 --- a/examples/mk2knr.pl +++ b/examples/mk2knr.pl @@ -19,6 +19,8 @@ $convertme = 'convertme.pl'; $convert = 0; %converted = (); +# if no files were specified, print usage +die "usage: $0 file.c | file.h\n" if scalar(@ARGV) == 0; # prepare the "convert me" file open(CM, ">$convertme") or die "convertme.pl $!"; @@ -29,7 +31,7 @@ while (<>) { # if the line says "getopt" in it anywhere, we don't want to muck with it # because option lists tend to include strings like "cxtzvOf:" which get - # matched by the javaStyle / Hungarian and PascalStyle regexps below + # matched by the "check for mixed case" regexps below next if /getopt/; # tokenize the string into just the variables @@ -45,6 +47,9 @@ while (<>) { # this checks for PascalStyle $convert++ if ($var =~ /^[A-Z][a-z]+[A-Z][a-z]+/); + # if we want to add more checks, we can add 'em here, but the above + # checks catch "just enough" and not too much, so prolly not. + if ($convert) { $convert = 0; @@ -74,3 +79,6 @@ while (<>) { close(CM); chmod 0755, $convertme; +# print a helpful help message +print "Done. Scheduled name changes are in $convertme.\n"; +print "Please review/modify it and then type ./$convertme to do the search & replace.\n"; diff --git a/scripts/mk2knr.pl b/scripts/mk2knr.pl index 29f94a188..aaf4963b1 100755 --- a/scripts/mk2knr.pl +++ b/scripts/mk2knr.pl @@ -19,6 +19,8 @@ $convertme = 'convertme.pl'; $convert = 0; %converted = (); +# if no files were specified, print usage +die "usage: $0 file.c | file.h\n" if scalar(@ARGV) == 0; # prepare the "convert me" file open(CM, ">$convertme") or die "convertme.pl $!"; @@ -29,7 +31,7 @@ while (<>) { # if the line says "getopt" in it anywhere, we don't want to muck with it # because option lists tend to include strings like "cxtzvOf:" which get - # matched by the javaStyle / Hungarian and PascalStyle regexps below + # matched by the "check for mixed case" regexps below next if /getopt/; # tokenize the string into just the variables @@ -45,6 +47,9 @@ while (<>) { # this checks for PascalStyle $convert++ if ($var =~ /^[A-Z][a-z]+[A-Z][a-z]+/); + # if we want to add more checks, we can add 'em here, but the above + # checks catch "just enough" and not too much, so prolly not. + if ($convert) { $convert = 0; @@ -74,3 +79,6 @@ while (<>) { close(CM); chmod 0755, $convertme; +# print a helpful help message +print "Done. Scheduled name changes are in $convertme.\n"; +print "Please review/modify it and then type ./$convertme to do the search & replace.\n"; -- 2.25.1