loncom/build/parse.pl - diff

Return to parse.pl CVS log

Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/Attic/parse.pl between versions 1.30 and 1.33

version 1.30, 2001/02/27 15:23:35	version 1.33, 2001/04/11 03:06:00
Line 2	Line 2

# Scott Harrison	# Scott Harrison
# November 2000	# November 2000
	# ...
	# 04/10/2001

# Read in loncapa tags and metagroup tags
	# Read in loncapa tags and metagroup tags. Output various
	# useful files for viewing, compiling, monitoring, updating,
	# and installing.

	# This code works well. HOWEVER, I was in a rush when I
	# wrote it. Future plans are that the parsing should be
	# much more event-state based and the input should be
	# more XML-ish. -Scott

# ---------------------------------------------- Read in command line arguments	# ---------------------------------------------- Read in command line arguments
my ($file,$mode)=@ARGV;	my ($file,$mode)=@ARGV;
Line 568 sub make_files_build_segment {	Line 578 sub make_files_build_segment {
my $description;	my $description;
my @allfiles=keys %{$info{'LOCATION'}{$distribution}};	my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
my $tab="\t";	my $tab="\t";
my $sources="all: ";	my $sources="# Dynamic Makefile generated by LON-CAPA build process\n\n";
	$sources.="SHELL=\"/bin/sh\"\n\n";
	$sources.="\nall: ";
foreach my $d (@$dirs) {	foreach my $d (@$dirs) {
# set other values	# set other values
my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};	my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'};
Line 609 sub make_files_build_segment {	Line 621 sub make_files_build_segment {
$depstat=" alwaysrun";	$depstat=" alwaysrun";
}	}
$dependencies=~s/\s+/ $sdir/gs;	$dependencies=~s/\s+/ $sdir/gs;
	my @deps=split(/\s+/,$dependencies);
	shift @deps;
	my $testing=<<END;
	\@if !(echo "");\\
	then echo "** LON-CAPA WARNING ** Strange shell. Check your path settings.";\\
	END
	foreach my $d (@deps) {
	$testing.=<<END;
	elif !(test -r $d);\\
	then echo "** LON-CAPA WARNING ** missing the file: $d";\\
	END
	}
	chop $testing;
$description.=<<END;	$description.=<<END;
$source2: $dependencies$depstat	$source2: $depstat
${tab}cd $directory; sh ./$buildfile	$testing
	else \\
	${tab}cd $directory; sh ./$buildfile;\\
	fi

END	END
}	}
Line 727 END	Line 755 END
my ($owner,$group)=split(/\:/,$devchown);	my ($owner,$group)=split(/\:/,$devchown);
if ($category eq 'conf') {	if ($category eq 'conf') {
$description.=<<END;	$description.=<<END;
\tcp -p \$(TARGET)/$rot \$(TARGET)/$rot`date +'.\%Y\%m\%d\%H\%M\%S'`; install -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot	\tcp -p \$(TARGET)/$rot \$(TARGET)/$rot`date +'.\%Y\%m\%d\%H\%M\%S'` 2>/dev/null; install -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
END	END
}	}
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.30
changed lines
	Added in v.1.33