select KW;
print <<EOM;
-/*
+/* -*- buffer-read-only: t -*-
+ *
* keywords.h
*
- * Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002,
- * by Larry Wall and others
+ * Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2005,
+ * 2006, by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
print &tab(5, "#define KEY_$keyword"), $keynum++, "\n";
}
+print KW "\n/* ex: set ro: */\n";
+
close KW or die "Error closing keywords.h: $!";
###########################################################################
bind
binmode
bless
+break
caller
chdir
chmod
crypt
dbmclose
dbmopen
+default
defined
delete
die
getservent
getsockname
getsockopt
+given
glob
gmtime
goto
rindex
rmdir
s
+say
scalar
seek
seekdir
waitpid
wantarray
warn
+when
while
write
x