ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/staticperl/perl/keywords.pl
Revision: 1.1
Committed: Thu Jun 30 14:26:41 2005 UTC (21 years, 3 months ago) by root
Content type: text/plain
Branch: MAIN
CVS Tags: PERL-5-8-7, HEAD
Branch point for: PERL
Log Message: 
*** empty log message ***

File Contents

# User Rev Content
1 root 1.1 #!/usr/bin/perl
2    
3     require 'regen_lib.pl';
4     safer_unlink ("keywords.h");
5     open(KW, ">keywords.h") || die "Can't create keywords.h: $!\n";
6     binmode KW;
7     select KW;
8    
9     print <<EOM;
10     /*
11     * keywords.h
12     *
13     * Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002,
14     * by Larry Wall and others
15     *
16     * You may distribute under the terms of either the GNU General Public
17     * License or the Artistic License, as specified in the README file.
18     *
19     * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
20     * This file is built by keywords.pl from its data. Any changes made here
21     * will be lost!
22     */
23     EOM
24    
25     # Read & print data.
26    
27     $keynum = 0;
28     while (<DATA>) {
29     chop;
30     next unless $_;
31     next if /^#/;
32     ($keyword) = split;
33     print &tab(5, "#define KEY_$keyword"), $keynum++, "\n";
34     }
35    
36     close KW or die "Error closing keywords.h: $!";
37    
38     ###########################################################################
39     sub tab {
40     local($l, $t) = @_;
41     $t .= "\t" x ($l - (length($t) + 1) / 8);
42     $t;
43     }
44     ###########################################################################
45     __END__
46    
47     NULL
48     __FILE__
49     __LINE__
50     __PACKAGE__
51     __DATA__
52     __END__
53     AUTOLOAD
54     BEGIN
55     CORE
56     DESTROY
57     END
58     INIT
59     CHECK
60     abs
61     accept
62     alarm
63     and
64     atan2
65     bind
66     binmode
67     bless
68     caller
69     chdir
70     chmod
71     chomp
72     chop
73     chown
74     chr
75     chroot
76     close
77     closedir
78     cmp
79     connect
80     continue
81     cos
82     crypt
83     dbmclose
84     dbmopen
85     defined
86     delete
87     die
88     do
89     dump
90     each
91     else
92     elsif
93     endgrent
94     endhostent
95     endnetent
96     endprotoent
97     endpwent
98     endservent
99     eof
100     eq
101     eval
102     exec
103     exists
104     exit
105     exp
106     fcntl
107     fileno
108     flock
109     for
110     foreach
111     fork
112     format
113     formline
114     ge
115     getc
116     getgrent
117     getgrgid
118     getgrnam
119     gethostbyaddr
120     gethostbyname
121     gethostent
122     getlogin
123     getnetbyaddr
124     getnetbyname
125     getnetent
126     getpeername
127     getpgrp
128     getppid
129     getpriority
130     getprotobyname
131     getprotobynumber
132     getprotoent
133     getpwent
134     getpwnam
135     getpwuid
136     getservbyname
137     getservbyport
138     getservent
139     getsockname
140     getsockopt
141     glob
142     gmtime
143     goto
144     grep
145     gt
146     hex
147     if
148     index
149     int
150     ioctl
151     join
152     keys
153     kill
154     last
155     lc
156     lcfirst
157     le
158     length
159     link
160     listen
161     local
162     localtime
163     lock
164     log
165     lstat
166     lt
167     m
168     map
169     mkdir
170     msgctl
171     msgget
172     msgrcv
173     msgsnd
174     my
175     ne
176     next
177     no
178     not
179     oct
180     open
181     opendir
182     or
183     ord
184     our
185     pack
186     package
187     pipe
188     pop
189     pos
190     print
191     printf
192     prototype
193     push
194     q
195     qq
196     qr
197     quotemeta
198     qw
199     qx
200     rand
201     read
202     readdir
203     readline
204     readlink
205     readpipe
206     recv
207     redo
208     ref
209     rename
210     require
211     reset
212     return
213     reverse
214     rewinddir
215     rindex
216     rmdir
217     s
218     scalar
219     seek
220     seekdir
221     select
222     semctl
223     semget
224     semop
225     send
226     setgrent
227     sethostent
228     setnetent
229     setpgrp
230     setpriority
231     setprotoent
232     setpwent
233     setservent
234     setsockopt
235     shift
236     shmctl
237     shmget
238     shmread
239     shmwrite
240     shutdown
241     sin
242     sleep
243     socket
244     socketpair
245     sort
246     splice
247     split
248     sprintf
249     sqrt
250     srand
251     stat
252     study
253     sub
254     substr
255     symlink
256     syscall
257     sysopen
258     sysread
259     sysseek
260     system
261     syswrite
262     tell
263     telldir
264     tie
265     tied
266     time
267     times
268     tr
269     truncate
270     uc
271     ucfirst
272     umask
273     undef
274     unless
275     unlink
276     unpack
277     unshift
278     untie
279     until
280     use
281     utime
282     values
283     vec
284     wait
285     waitpid
286     wantarray
287     warn
288     while
289     write
290     x
291     xor
292     y