|
version 1.31, 2001/02/27 15:36:02
|
version 1.39, 2001/05/18 18:52:09
|
|
Line 2
|
Line 2
|
| |
|
| # Scott Harrison |
# Scott Harrison |
| # November 2000 |
# November 2000 |
| |
# 12/5/2000,12/7,12/8,12/9,12/10,12/11,12/12,12/13,12/14,12/21 Scott Harrison |
| # Read in loncapa tags and metagroup tags |
# 1/8/2001,1/10/2001,1/13/2001,1/16/2001,1/18/2001,1/23/2001 Scott Harrison |
| |
# 2/26/2001,2/27/2001,3/5/2001,4/10/2001,4/11,2001,4/13,2001 Scott Harrison |
| |
# 4/17/2001 Scott Harrison |
| |
|
| |
# 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 179 ALL: ALL
|
Line 190 ALL: ALL
|
| END |
END |
| close OUT; |
close OUT; |
| |
|
| `install -o 500 -g 500 -m 0700 -d BinaryRoot/home/www`; |
`install -o www -g users -m 0700 -d BinaryRoot/home/www`; |
| open OUT,">>setup_file_list.txt"; |
open OUT,">>setup_file_list.txt"; |
| print OUT "BinaryRoot/home/www\n"; |
print OUT "BinaryRoot/home/www\n"; |
| close OUT; |
close OUT; |
|
Line 568 sub make_files_build_segment {
|
Line 579 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 591 sub make_files_build_segment {
|
Line 604 sub make_files_build_segment {
|
| if ($build) { |
if ($build) { |
| my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'}; |
my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'}; |
| my $source2=$source; |
my $source2=$source; |
| $source2=~s/^[^\/]+\///; |
# $source2=~s/^[^\/]+\///; |
| $source2="../" . $source2; |
$source2="../../" . $source2; |
| $sources.="$source2 "; |
$sources.="$source2 "; |
| my $directory=$build; |
my $directory=$build; |
| $directory=~s/^[^\/]+\///; |
# $directory=~s/^[^\/]+\///; |
| $directory=~s/([^\/]+)$//; |
$directory=~s/([^\/]+)$//; |
| $directory="../" . $directory; |
$directory="../../" . $directory; |
| my $buildfile=$1; |
my $buildfile=$1; |
| my $sdir=$source; |
my $sdir=$source; |
| $sdir=~s/^[^\/]+\///; |
# $sdir=~s/^[^\/]+\///; |
| $sdir=~s/([^\/]+)$//; |
$sdir=~s/([^\/]+)$//; |
| $sdir="../" . $sdir; |
$sdir="../../" . $sdir; |
| $dependencies=~s/\s+$//; |
$dependencies=~s/\s+$//; |
| my $depstat=""; |
my $depstat=""; |
| if ($dependencies=~s/\s+\[ALWAYS_RUN_BUILD_COMMAND\]//) { |
if ($dependencies=~s/\s+\[ALWAYS_RUN_BUILD_COMMAND\]//) { |
| $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 674 END
|
Line 703 END
|
| my $rot=$filesfull[$i]; |
my $rot=$filesfull[$i]; |
| $rot=~s/[^\/]+$/\./ if $rot=~/\*/; |
$rot=~s/[^\/]+$/\./ if $rot=~/\*/; |
| my ($owner,$group)=split(/\:/,$devchown); |
my ($owner,$group)=split(/\:/,$devchown); |
| if ($category ne 'conf') { |
if ($category ne 'conf' && $category ne 'symbolic link') { |
| $description.=<<END if $category ne 'symbolic link'; |
if ($source!~/\*/) { |
| |
$description.=<<END; |
| |
\ttest -e \$(SOURCE)/$source \&\& install -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot || echo "**** LON-CAPA WARNING **** CVS source file does not exist: \$(SOURCE)/$source" |
| |
END |
| |
} |
| |
else { |
| |
$description.=<<END; |
| \tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot |
\tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot |
| END |
END |
| |
} |
| } |
} |
| } |
} |
| } |
} |
|
Line 727 END
|
Line 763 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'` 2 > /dev/null; 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 |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to parse.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build