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