keywords.pl

   1 #!/usr/bin/perl
   2
   3 require 'regen_lib.pl';
   4 safer_unlink ("keywords.h");
   5 open(KW, ">keywords.h") || die "Can't create keywords.h: $!\n";
   6 select KW;
   7
   8 print <<EOM;
   9 /*
  10  *    keywords.h
  11  *
  12  *    Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002,
  13  *    by Larry Wall and others
  14  *
  15  *    You may distribute under the terms of either the GNU General Public
  16  *    License or the Artistic License, as specified in the README file.
  17  *
  18  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
  19  *  This file is built by keywords.pl from its data.  Any changes made here
  20  *  will be lost!
  21  */
  22 EOM
  23
  24 # Read & print data.
  25
  26 $keynum = 0;
  27 while (<DATA>) {
  28     chop;
  29     next unless $_;
  30     next if /^#/;
  31     ($keyword) = split;
  32     print &tab(5, "#define KEY_$keyword"), $keynum++, "\n";
  33 }
  34
  35 close KW or die "Error closing keywords.h: $!";
  36
  37 ###########################################################################
  38 sub tab {
  39     local($l, $t) = @_;
  40     $t .= "\t" x ($l - (length($t) + 1) / 8);
  41     $t;
  42 }
  43 ###########################################################################
  44 __END__
  45
  46 NULL
  47 __FILE__
  48 __LINE__
  49 __PACKAGE__
  50 __DATA__
  51 __END__
  52 AUTOLOAD
  53 BEGIN
  54 CORE
  55 DESTROY
  56 END
  57 INIT
  58 CHECK
  59 abs
  60 accept
  61 alarm
  62 and
  63 atan2
  64 bind
  65 binmode
  66 bless
  67 caller
  68 chdir
  69 chmod
  70 chomp
  71 chop
  72 chown
  73 chr
  74 chroot
  75 close
  76 closedir
  77 cmp
  78 connect
  79 continue
  80 cos
  81 crypt
  82 dbmclose
  83 dbmopen
  84 defined
  85 delete
  86 die
  87 do
  88 dump
  89 each
  90 else
  91 elsif
  92 endgrent
  93 endhostent
  94 endnetent
  95 endprotoent
  96 endpwent
  97 endservent
  98 eof
  99 eq
 100 err
 101 eval
 102 exec
 103 exists
 104 exit
 105 exp
 106 fcntl
 107 fileno
 108 flock
 109 for
 110 foreach
 111 fork
 112 format
 113 formline
 114 ge
 115 getc
 116 getgrent
 117 getgrgid
 118 getgrnam
 119 gethostbyaddr
 120 gethostbyname
 121 gethostent
 122 getlogin
 123 getnetbyaddr
 124 getnetbyname
 125 getnetent
 126 getpeername
 127 getpgrp
 128 getppid
 129 getpriority
 130 getprotobyname
 131 getprotobynumber
 132 getprotoent
 133 getpwent
 134 getpwnam
 135 getpwuid
 136 getservbyname
 137 getservbyport
 138 getservent
 139 getsockname
 140 getsockopt
 141 glob
 142 gmtime
 143 goto
 144 grep
 145 gt
 146 hex
 147 if
 148 index
 149 int
 150 ioctl
 151 join
 152 keys
 153 kill
 154 last
 155 lc
 156 lcfirst
 157 le
 158 length
 159 link
 160 listen
 161 local
 162 localtime
 163 lock
 164 log
 165 lstat
 166 lt
 167 m
 168 map
 169 mkdir
 170 msgctl
 171 msgget
 172 msgrcv
 173 msgsnd
 174 my
 175 ne
 176 next
 177 no
 178 not
 179 oct
 180 open
 181 opendir
 182 or
 183 ord
 184 our
 185 pack
 186 package
 187 pipe
 188 pop
 189 pos
 190 print
 191 printf
 192 prototype
 193 push
 194 q
 195 qq
 196 qr
 197 quotemeta
 198 qw
 199 qx
 200 rand
 201 read
 202 readdir
 203 readline
 204 readlink
 205 readpipe
 206 recv
 207 redo
 208 ref
 209 rename
 210 require
 211 reset
 212 return
 213 reverse
 214 rewinddir
 215 rindex
 216 rmdir
 217 s
 218 scalar
 219 seek
 220 seekdir
 221 select
 222 semctl
 223 semget
 224 semop
 225 send
 226 setgrent
 227 sethostent
 228 setnetent
 229 setpgrp
 230 setpriority
 231 setprotoent
 232 setpwent
 233 setservent
 234 setsockopt
 235 shift
 236 shmctl
 237 shmget
 238 shmread
 239 shmwrite
 240 shutdown
 241 sin
 242 sleep
 243 socket
 244 socketpair
 245 sort
 246 splice
 247 split
 248 sprintf
 249 sqrt
 250 srand
 251 stat
 252 study
 253 sub
 254 substr
 255 symlink
 256 syscall
 257 sysopen
 258 sysread
 259 sysseek
 260 system
 261 syswrite
 262 tell
 263 telldir
 264 tie
 265 tied
 266 time
 267 times
 268 tr
 269 truncate
 270 uc
 271 ucfirst
 272 umask
 273 undef
 274 unless
 275 unlink
 276 unpack
 277 unshift
 278 untie
 279 until
 280 use
 281 utime
 282 values
 283 vec
 284 wait
 285 waitpid
 286 wantarray
 287 warn
 288 while
 289 write
 290 x
 291 xor
 292 y