summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorMark Whitley2001-04-17 17:37:47 +0000
committerMark Whitley2001-04-17 17:37:47 +0000
commit31868b85be4e9da11a20e367f32db1df317a52d1 (patch)
tree9e0f7e31bb1efe0c6963d9678e604ec9c43fc145 /examples
parent59a86cad676ab49bd4ad956fc6e78025527625ec (diff)
downloadbusybox-31868b85be4e9da11a20e367f32db1df317a52d1.zip
busybox-31868b85be4e9da11a20e367f32db1df317a52d1.tar.gz
Added some help messages.
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/mk2knr.pl10
1 files changed, 9 insertions, 1 deletions
diff --git a/examples/mk2knr.pl b/examples/mk2knr.pl
index 29f94a1..aaf4963 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";