keywords.pl

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