fetch

#!/bin/rc

upstream=git://git.netsurf-browser.org
modules=( \
	expat \
	zlib \
	libjpeg \
	libpng \
	libcss \
	libdom \
	libhubbub \
	libnsbmp \
	libnsgif \
	libparserutils \
	libsvgtiny \
	libwapcaplet \
	libnsutils \
	libutf8proc \
	libnspsl \
	libnslog \
	netsurf \
	nsgenbind \
)

fn do {
	cmd=$1
	shift
	for(m in $modules)@{
		echo '==> '$m: git/$cmd $*
		cd $m
		git/$cmd $*
	}
}

base=$portcode
switch($1){
	case 'clone'
		switch($2){
		case ssh
			portcode=git+ssh://git@github.com/netsurf-plan9
		case http
			portcode=https://github.com/netsurf-plan9
		case *
			>[1=2] echo fetch clone '[http|ssh]'
			exit noproto
		}
		for(m in $modules)@{
			echo '==> '$m
			git/clone $portcode/$m.git
			cd $m
			echo '[remote "upstream"]' >> .git/config
			echo '	url='$upstream/$m.git >> .git/config
			git/branch -n -b origin/plan9 plan9
		}
	case 'sync-upstream'
		do pull -f -b upstream/master -u upstream
	case 'pull'
		git/pull
		do pull
	case 'push'
		do push
	case 'do'
		shift
		do $*
}