From b0f3dde8da6263ad55c68058d0b2c7b9b34ccf3c Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= Date: Wed, 30 May 2007 09:21:13 +0000 Subject: [PATCH] should not be here --- org.glite.lb.types/at3 | 79 -------------------------------------------------- 1 file changed, 79 deletions(-) delete mode 100644 org.glite.lb.types/at3 diff --git a/org.glite.lb.types/at3 b/org.glite.lb.types/at3 deleted file mode 100644 index 1b3974e..0000000 --- a/org.glite.lb.types/at3 +++ /dev/null @@ -1,79 +0,0 @@ -#!/usr/bin/perl -w - -use File::Basename; - -my $lines = $ENV{AT3_LINES}; - -my $prefix; -BEGIN{ $prefix = '/opt/glite'; } - -use lib "$prefix/share/perl"; -use gLite::LB::MultiStruct; -require "$prefix/share/lb/at3/types.T"; - -my $eventsn = "$prefix/share/lb/at3/events.T"; -my $statusn = "$prefix/share/lb/at3/status.T"; - -my $indent = ''; - -my $event = new MultiStruct; -my $status = new MultiStruct; - -sub gen { - local $_ = shift; - - s/^\n!//; - s/\n!/\n/g; - print $_; -} - - -open EVENTS,$eventsn or die "$eventsn: $!\n"; -$event->load(\*EVENTS); -close EVENTS; - -open STATUS,$statusn or die "$statusn: $!\n"; -$status->load(\*STATUS); -close STATUS; - -my $code; -my $startcode; -while (<>) { - chomp; - if (/^\@\@\@LANG: (\S+)$/) { - $StructField::lang = $1; - next; - } - - if ($code) { - if (/^\@\@\@}$/) { - $code .= "1;\n"; - print "#line $startcode \"$ARGV\"\n/* begin */\n" if $lines; - eval $code or warn "eval: $@ at $ARGV:$.\n"; - my $nxtline = $.+1; - print "/* end */\n#line $nxtline \"$ARGV\"\n" if $lines; - undef $code; - } - else { $code .= $_."\n"; } - } - else { - if (/^\@\@\@{$/) { - $startcode = $.; - $code = "\n"; - } - elsif (/^\@\@\@AUTO$/) { - print qq{ - !! Automatically generated file - !! Do not edit, your changes will be discarded upon build - !! Change the corresponding template file $ARGV - -}; - print "#line $. \"$ARGV\"\n" if $lines; - } - else { - print "$_\n"; - } - } -} - -# print $event_common{prog}->copy('bla','hu'); -- 1.8.2.3