source:
trunk/third/perl/keywords.pl
@
10724
Revision 10724, 2.2 KB checked in by ghudson, 27 years ago (diff)  


Rev  Line  

[10723]  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  abs  
45  accept  
46  alarm  
47  and  
48  atan2  
49  bind  
50  binmode  
51  bless  
52  caller  
53  chdir  
54  chmod  
55  chomp  
56  chop  
57  chown  
58  chr  
59  chroot  
60  close  
61  closedir  
62  cmp  
63  connect  
64  continue  
65  cos  
66  crypt  
67  dbmclose  
68  dbmopen  
69  defined  
70  delete  
71  die  
72  do  
73  dump  
74  each  
75  else  
76  elsif  
77  endgrent  
78  endhostent  
79  endnetent  
80  endprotoent  
81  endpwent  
82  endservent  
83  eof  
84  eq  
85  eval  
86  exec  
87  exists  
88  exit  
89  exp  
90  fcntl  
91  fileno  
92  flock  
93  for  
94  foreach  
95  fork  
96  format  
97  formline  
98  ge  
99  getc  
100  getgrent  
101  getgrgid  
102  getgrnam  
103  gethostbyaddr  
104  gethostbyname  
105  gethostent  
106  getlogin  
107  getnetbyaddr  
108  getnetbyname  
109  getnetent  
110  getpeername  
111  getpgrp  
112  getppid  
113  getpriority  
114  getprotobyname  
115  getprotobynumber  
116  getprotoent  
117  getpwent  
118  getpwnam  
119  getpwuid  
120  getservbyname  
121  getservbyport  
122  getservent  
123  getsockname  
124  getsockopt  
125  glob  
126  gmtime  
127  goto  
128  grep  
129  gt  
130  hex  
131  if  
132  index  
133  int  
134  ioctl  
135  join  
136  keys  
137  kill  
138  last  
139  lc  
140  lcfirst  
141  le  
142  length  
143  link  
144  listen  
145  local  
146  localtime  
147  log  
148  lstat  
149  lt  
150  m  
151  map  
152  mkdir  
153  msgctl  
154  msgget  
155  msgrcv  
156  msgsnd  
157  my  
158  ne  
159  next  
160  no  
161  not  
162  oct  
163  open  
164  opendir  
165  or  
166  ord  
167  pack  
168  package  
169  pipe  
170  pop  
171  pos  
172  
173  printf  
174  prototype  
175  push  
176  q  
177  
178  quotemeta  
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 
Note: See TracBrowser
for help on using the repository browser.