keywords.pl

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