1 6feb942a 2005-09-13 devnull #!/usr/local/plan9/bin/rc
 2 6feb942a 2005-09-13 devnull 
 3 6feb942a 2005-09-13 devnull nl='
 4 6feb942a 2005-09-13 devnull '
 5 6feb942a 2005-09-13 devnull 
 6 6feb942a 2005-09-13 devnull fn comma {
 7 6feb942a 2005-09-13 devnull 	if(! ~ $#* 0 1){
 8 6feb942a 2005-09-13 devnull 		echo -n $1
 9 6feb942a 2005-09-13 devnull 		shift
10 6feb942a 2005-09-13 devnull 		sep=' '
11 6feb942a 2005-09-13 devnull 		len=0
12 6feb942a 2005-09-13 devnull 		for(i){
13 6feb942a 2005-09-13 devnull 			echo -n $sep$i
14 6feb942a 2005-09-13 devnull 			sep=', '
15 6feb942a 2005-09-13 devnull 			l=`{echo -n $sep$i|9 wc -c}
16 6feb942a 2005-09-13 devnull 			len=`{echo $l+$len | hoc}
17 6feb942a 2005-09-13 devnull 			if(test $len -gt 60){
18 6feb942a 2005-09-13 devnull 				sep=','^$nl^' '
19 6feb942a 2005-09-13 devnull 				len=0
20 6feb942a 2005-09-13 devnull 			}
21 6feb942a 2005-09-13 devnull 		}
22 6feb942a 2005-09-13 devnull 		echo
23 6feb942a 2005-09-13 devnull 	}
24 6feb942a 2005-09-13 devnull }
25 6feb942a 2005-09-13 devnull 
26 6feb942a 2005-09-13 devnull if(~ $#* 1 && ~ $1 all)
27 6feb942a 2005-09-13 devnull 	*=`{9 ls -p ../pkg | grep -v CVS}
28 6feb942a 2005-09-13 devnull 
29 6feb942a 2005-09-13 devnull if(~ $#TREE9 0)
30 6feb942a 2005-09-13 devnull 	TREE9=$PLAN9
31 6feb942a 2005-09-13 devnull 
32 6feb942a 2005-09-13 devnull date=`{u date +%Y%m%d}
33 6feb942a 2005-09-13 devnull march=`{uname -m}
34 6feb942a 2005-09-13 devnull arch=all
35 6feb942a 2005-09-13 devnull switch($march){
36 6feb942a 2005-09-13 devnull case i*86
37 6feb942a 2005-09-13 devnull 	march=i386
38 6feb942a 2005-09-13 devnull }
39 6feb942a 2005-09-13 devnull 
40 6feb942a 2005-09-13 devnull for(i)@{
41 6feb942a 2005-09-13 devnull 	if(! test -f ../pkg/$i){
42 6feb942a 2005-09-13 devnull 		echo no package ../pkg/$i
43 6feb942a 2005-09-13 devnull 		exit 1
44 6feb942a 2005-09-13 devnull 	}
45 6feb942a 2005-09-13 devnull 	package=plan9port-$i
46 6feb942a 2005-09-13 devnull 	grepfor=$i
47 6feb942a 2005-09-13 devnull 	. ../pkg/$i
48 6feb942a 2005-09-13 devnull 	deb=$package^_$date^_$arch.deb
49 6feb942a 2005-09-13 devnull 	rm -rf $i $deb
50 6feb942a 2005-09-13 devnull 	mkdir $i $i/DEBIAN
51 7c024ff2 2005-09-13 devnull 	whatis grepfor
52 7c024ff2 2005-09-13 devnull 	awk -v'grepfor='$grepfor -v 'pkg='$i -v 'plan9='$TREE9 '
53 7c024ff2 2005-09-13 devnull 	BEGIN { print "grep for " grepfor >"/dev/stderr" }
54 7c024ff2 2005-09-13 devnull 	$2==grepfor {
55 6feb942a 2005-09-13 devnull 		dir=$1
56 6feb942a 2005-09-13 devnull 		sub("/[^/]+$", "/", dir)
57 6feb942a 2005-09-13 devnull 		if(dir != lastdir){
58 6feb942a 2005-09-13 devnull 			printf("mkdir -p ''%s''\n", pkg "/usr/local/plan9/" dir);
59 6feb942a 2005-09-13 devnull 			lastdir = dir
60 6feb942a 2005-09-13 devnull 		}
61 6feb942a 2005-09-13 devnull 		if($1 !~ /\/$/)
62 6feb942a 2005-09-13 devnull 			printf("cp ''%s'' ''%s''\n", plan9 "/" $1, pkg "/usr/local/plan9/" $1)
63 7c024ff2 2005-09-13 devnull 	}' $TREE9/dist/filelist | rc
64 68e139f2 2005-09-13 devnull 	size=`{du -sk $i | awk '{print $1}'}
65 68e139f2 2005-09-13 devnull 	{
66 68e139f2 2005-09-13 devnull 		echo Package: $package
67 68e139f2 2005-09-13 devnull 		echo Version: $date
68 68e139f2 2005-09-13 devnull 		echo Architecture: $arch
69 68e139f2 2005-09-13 devnull 		comma Depends: $depends
70 68e139f2 2005-09-13 devnull 		comma Suggests: $suggests
71 68e139f2 2005-09-13 devnull 		comma Conflicts: $conflicts
72 68e139f2 2005-09-13 devnull 		echo Source: plan9port-src
73 68e139f2 2005-09-13 devnull 		echo Installed-Size: $size
74 68e139f2 2005-09-13 devnull 		echo Maintainer: 'Russ Cox <rsc@swtch.com>'
75 68e139f2 2005-09-13 devnull 		echo Description: $desc
76 68e139f2 2005-09-13 devnull 	} >$i/DEBIAN/control
77 6feb942a 2005-09-13 devnull 	if(test -d $i/usr){
78 6feb942a 2005-09-13 devnull 		@{
79 6feb942a 2005-09-13 devnull 			cd $i
80 6feb942a 2005-09-13 devnull 			find usr -type f -print0 | xargs -0 -n 100 u md5sum
81 6feb942a 2005-09-13 devnull 		} >$i/DEBIAN/md5sums
82 6feb942a 2005-09-13 devnull 	}
83 6feb942a 2005-09-13 devnull 	if not
84 6feb942a 2005-09-13 devnull 		echo '>>>' $package is a virtual package.
85 6feb942a 2005-09-13 devnull 	dpkg -b $i pool/$deb
86 6feb942a 2005-09-13 devnull 	rm -rf $i
87 6feb942a 2005-09-13 devnull }
88 6feb942a 2005-09-13 devnull