summaryrefslogtreecommitdiffstats
path: root/src/lib/krb5/asn.1/process.perl
diff options
context:
space:
mode:
authorTheodore Tso <tytso@mit.edu>1995-02-10 22:57:18 +0000
committerTheodore Tso <tytso@mit.edu>1995-02-10 22:57:18 +0000
commitf76d82bcc384cb82b86ce01ddb519830dda93ea8 (patch)
tree8e3ead01efda879f9b9228b2a23ac9046a5a8741 /src/lib/krb5/asn.1/process.perl
parent0e8ad8589dc7e91ef6181a5e6e3d74e816bef806 (diff)
downloadkrb5-f76d82bcc384cb82b86ce01ddb519830dda93ea8.tar.gz
krb5-f76d82bcc384cb82b86ce01ddb519830dda93ea8.tar.xz
krb5-f76d82bcc384cb82b86ce01ddb519830dda93ea8.zip
Removed ISODE cruft
krb5_encode.h and krb5_decode.h have been poured into include/krb5/asn1.h. git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@4938 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/lib/krb5/asn.1/process.perl')
-rw-r--r--src/lib/krb5/asn.1/process.perl50
1 files changed, 0 insertions, 50 deletions
diff --git a/src/lib/krb5/asn.1/process.perl b/src/lib/krb5/asn.1/process.perl
deleted file mode 100644
index ce3e84b4d..000000000
--- a/src/lib/krb5/asn.1/process.perl
+++ /dev/null
@@ -1,50 +0,0 @@
-#
-# usage: perl process <input-c-file> <output-prefix> <c-flist> <o-flist>
-#
-$header = "";
-$count = 0;
-$pepyid = "";
-$extrainclude = '#include <krb5/asn.1/KRB5-types-aux.h>' . "\n";
-
-if ($#ARGV != 3) {die "Usage: process input-file.c output-prefix cflist-file oflist-file";}
-
-print "processing ", $ARGV[0], "\n";
-open(CFILE, "< $ARGV[0]") || die "can't open $ARGV[0]";
-open(CFLIST, "> $ARGV[2]") || die "can't open $ARGV[2]";
-open(OFLIST, "> $ARGV[3]") || die "can't open $ARGV[2]";
-
-mainloop: while (<CFILE>) {
- next mainloop if /^# line/;
- if (/pepyid/) {
- $pepyid = $_;
- } elsif (/^\/\* ARGS|^free/) {
- print "processing output from $pepyid" if ($count == 0);
- close(OUTFILE);
- $ofile = "$ARGV[1]" . $count . ".c";
- open(OUTFILE, ">$ofile" ) || die "can't open file $ofile";
- print OUTFILE $pepyid if ($count == 0);
- print $ofile, "\n";
- @clist = (@clist, " " . $ofile);
- $count++;
- print OUTFILE $header;
- print OUTFILE $extrainclude;
- print OUTFILE $_;
- } elsif ($count == 0) {
- $header .= $_;
- } else {
- print OUTFILE $_;
- }
-}
-close(OUTFILE);
-print CFLIST "TYPESSRCS= ", @clist, "\n";
-close(CFLIST);
-while ($cfile = shift(@clist)) {
- $cfile =~ s/.c$/.o/;
- @olist = (@olist, $cfile);
-}
-print OFLIST "TYPESOBJS=", @olist, "\n";
-close(OFLIST);
-#
-# $Source$
-# $Author$
-# $Id$