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