#!/usr/bin/awk -f
# $Id: move1,v 1.4 2000/11/01 11:21:15 herbert Exp $

BEGIN {
	out = ARGV[1]
	dist = ARGV[2]
	ARGC = 1
	max = 0
	printf("") > out
}

NF < 3 {
	source = 1
	prev = ""
	next
}

prev != $2 {
	prev = $2
	count = 0
}

count >= max {
	print "d { set -e; mkdir " max "; cd " max "; xargs mkdir -p; } " \
	      "< ../.apt-move/" dist ".dirs"
	print max++ > out
}

source {
	while ((ret = getline line < $3) > 0) {
		if (tolower(line) ~ /^files:/) {
			break
		}
	}
	if (ret < 0) {
		next
	}
	olddir = $3
	sub(/[^\/]*$/, "", olddir)
	newdir = $1
	sub(/[^\/]*$/, "", newdir)
	while ((ret = getline line < $3) > 0) {
		if (line !~ /^ /) {
			break
		}
		split(line, linef)
		print "n " olddir linef[3] " " count "/" newdir linef[3]
	}
	close($3)
}

{
	print "m " $3 " " count++ "/" $1
}
