summaryrefslogtreecommitdiff
path: root/keywords.pl
diff options
context:
space:
mode:
authorSteffen Mueller <smueller@cpan.org>2010-10-10 15:43:47 +0200
committerSteffen Mueller <smueller@cpan.org>2010-10-10 15:55:11 +0200
commitaf00134636ffe4172cbffeaed3bbad802e58d8a0 (patch)
treef5ab1e5e8ec6035e6bf8c3e3f497b822e0ff8c1c /keywords.pl
parent98f8176da90af0f0d21fac5f61e6d180814b57c9 (diff)
downloadperl-af00134636ffe4172cbffeaed3bbad802e58d8a0.tar.gz
Move regen scripts to regen/
Moves the various scripts that are called by regen.pl to a subdirectory to reduce clutter.
Diffstat (limited to 'keywords.pl')
-rwxr-xr-xkeywords.pl315
1 files changed, 0 insertions, 315 deletions
diff --git a/keywords.pl b/keywords.pl
deleted file mode 100755
index 7ce010e609..0000000000
--- a/keywords.pl
+++ /dev/null
@@ -1,315 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Regenerate (overwriting only if changed):
-#
-# keywords.h
-#
-# from information stored in the DATA section of this file.
-#
-# Accepts the standard regen_lib -q and -v args.
-#
-# This script is normally invoked from regen.pl.
-
-use strict;
-
-require 'regen_lib.pl';
-
-my $kw = safer_open("keywords.h-new");
-select $kw;
-
-print <<EOM;
-/* -*- buffer-read-only: t -*-
- *
- * keywords.h
- *
- * Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2005,
- * 2006, 2007, by Larry Wall and others
- *
- * You may distribute under the terms of either the GNU General Public
- * License or the Artistic License, as specified in the README file.
- *
- * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
- * This file is built by keywords.pl from its data. Any changes made here
- * will be lost!
- */
-EOM
-
-# Read & print data.
-
-my $keynum = 0;
-while (<DATA>) {
- chop;
- next unless $_;
- next if /^#/;
- my ($keyword) = split;
- print &tab(5, "#define KEY_$keyword"), $keynum++, "\n";
-}
-
-print $kw "\n/* ex: set ro: */\n";
-
-safer_close($kw);
-
-rename_if_different("keywords.h-new", "keywords.h");
-
-###########################################################################
-sub tab {
- my ($l, $t) = @_;
- $t .= "\t" x ($l - (length($t) + 1) / 8);
- $t;
-}
-###########################################################################
-__END__
-
-NULL
-__FILE__
-__LINE__
-__PACKAGE__
-__DATA__
-__END__
-AUTOLOAD
-BEGIN
-UNITCHECK
-CORE
-DESTROY
-END
-INIT
-CHECK
-abs
-accept
-alarm
-and
-atan2
-bind
-binmode
-bless
-break
-caller
-chdir
-chmod
-chomp
-chop
-chown
-chr
-chroot
-close
-closedir
-cmp
-connect
-continue
-cos
-crypt
-dbmclose
-dbmopen
-default
-defined
-delete
-die
-do
-dump
-each
-else
-elsif
-endgrent
-endhostent
-endnetent
-endprotoent
-endpwent
-endservent
-eof
-eq
-eval
-exec
-exists
-exit
-exp
-fcntl
-fileno
-flock
-for
-foreach
-fork
-format
-formline
-ge
-getc
-getgrent
-getgrgid
-getgrnam
-gethostbyaddr
-gethostbyname
-gethostent
-getlogin
-getnetbyaddr
-getnetbyname
-getnetent
-getpeername
-getpgrp
-getppid
-getpriority
-getprotobyname
-getprotobynumber
-getprotoent
-getpwent
-getpwnam
-getpwuid
-getservbyname
-getservbyport
-getservent
-getsockname
-getsockopt
-given
-glob
-gmtime
-goto
-grep
-gt
-hex
-if
-index
-int
-ioctl
-join
-keys
-kill
-last
-lc
-lcfirst
-le
-length
-link
-listen
-local
-localtime
-lock
-log
-lstat
-lt
-m
-map
-mkdir
-msgctl
-msgget
-msgrcv
-msgsnd
-my
-ne
-next
-no
-not
-oct
-open
-opendir
-or
-ord
-our
-pack
-package
-pipe
-pop
-pos
-print
-printf
-prototype
-push
-q
-qq
-qr
-quotemeta
-qw
-qx
-rand
-read
-readdir
-readline
-readlink
-readpipe
-recv
-redo
-ref
-rename
-require
-reset
-return
-reverse
-rewinddir
-rindex
-rmdir
-s
-say
-scalar
-seek
-seekdir
-select
-semctl
-semget
-semop
-send
-setgrent
-sethostent
-setnetent
-setpgrp
-setpriority
-setprotoent
-setpwent
-setservent
-setsockopt
-shift
-shmctl
-shmget
-shmread
-shmwrite
-shutdown
-sin
-sleep
-socket
-socketpair
-sort
-splice
-split
-sprintf
-sqrt
-srand
-stat
-state
-study
-sub
-substr
-symlink
-syscall
-sysopen
-sysread
-sysseek
-system
-syswrite
-tell
-telldir
-tie
-tied
-time
-times
-tr
-truncate
-uc
-ucfirst
-umask
-undef
-unless
-unlink
-unpack
-unshift
-untie
-until
-use
-utime
-values
-vec
-wait
-waitpid
-wantarray
-warn
-when
-while
-write
-x
-xor
-y