From: Aleš Křenek <ljocha@ics.muni.cz>
Date: Wed, 30 May 2007 09:21:13 +0000 (+0000)
Subject: should not be here
X-Git-Tag: glite-yaim-lb_R_3_1_1-1~67
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=b0f3dde8da6263ad55c68058d0b2c7b9b34ccf3c;p=jra1mw.git

should not be here
---

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');