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