keywords.pl

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