diff options
author | Theodore Tso <tytso@mit.edu> | 1995-02-10 22:57:18 +0000 |
---|---|---|
committer | Theodore Tso <tytso@mit.edu> | 1995-02-10 22:57:18 +0000 |
commit | f76d82bcc384cb82b86ce01ddb519830dda93ea8 (patch) | |
tree | 8e3ead01efda879f9b9228b2a23ac9046a5a8741 /src/lib/krb5/asn.1/process.perl | |
parent | 0e8ad8589dc7e91ef6181a5e6e3d74e816bef806 (diff) | |
download | krb5-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.perl | 50 |
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$ |