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 LE
  42 LT
  43 NE
  44 RESTART
  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 log
 149 lstat
 150 lt
 151 m
 152 map
 153 mkdir
 154 msgctl
 155 msgget
 156 msgrcv
 157 msgsnd
 158 my
 159 ne
 160 next
 161 no
 162 not
 163 oct
 164 open
 165 opendir
 166 or
 167 ord
 168 pack
 169 package
 170 pipe
 171 pop
 172 pos
 173 print
 174 printf
 175 prototype
 176 push
 177 q
 178 qq
 179 quotemeta
 180 qw
 181 qx
 182 rand
 183 read
 184 readdir
 185 readline
 186 readlink
 187 readpipe
 188 recv
 189 redo
 190 ref
 191 rename
 192 require
 193 reset
 194 return
 195 reverse
 196 rewinddir
 197 rindex
 198 rmdir
 199 s
 200 scalar
 201 seek
 202 seekdir
 203 select
 204 semctl
 205 semget
 206 semop
 207 send
 208 setgrent
 209 sethostent
 210 setnetent
 211 setpgrp
 212 setpriority
 213 setprotoent
 214 setpwent
 215 setservent
 216 setsockopt
 217 shift
 218 shmctl
 219 shmget
 220 shmread
 221 shmwrite
 222 shutdown
 223 sin
 224 sleep
 225 socket
 226 socketpair
 227 sort
 228 splice
 229 split
 230 sprintf
 231 sqrt
 232 srand
 233 stat
 234 study
 235 sub
 236 substr
 237 symlink
 238 syscall
 239 sysopen
 240 sysread
 241 sysseek
 242 system
 243 syswrite
 244 tell
 245 telldir
 246 tie
 247 tied
 248 time
 249 times
 250 tr
 251 truncate
 252 uc
 253 ucfirst
 254 umask
 255 undef
 256 unless
 257 unlink
 258 unpack
 259 unshift
 260 untie
 261 until
 262 use
 263 utime
 264 values
 265 vec
 266 wait
 267 waitpid
 268 wantarray
 269 warn
 270 while
 271 write
 272 x
 273 xor
 274 y