changelog shortlog tags branches changeset file revisions annotate raw help

Mercurial > hg > ventivac / appl/cmd/venti/copy.b

revision 127: 7f377ffc9ad3
parent 122: 84abb5444a76
     1.1--- a/appl/cmd/venti/copy.b	Mon Aug 20 13:08:21 2007 +0200
     1.2+++ b/appl/cmd/venti/copy.b	Mon Aug 20 13:51:43 2007 +0200
     1.3@@ -9,15 +9,13 @@
     1.4 include "arg.m";
     1.5 include "string.m";
     1.6 include "venti.m";
     1.7-include "vac.m";
     1.8 
     1.9 str: String;
    1.10 venti: Venti;
    1.11-vac: Vac;
    1.12 
    1.13 print, sprint, fprint, fildes: import sys;
    1.14-Pointertype0, Pointertype6, Score, Session, Roottype, Dirtype, Datatype, Scoresize: import venti;
    1.15-Pointervarmask, Root, Rootsize, Entry, Entrysize, Entryactive, Entrydir: import vac;
    1.16+Pointertype0, Pointertype6, Score, Session, Roottype, Dirtype, Datatype, Scoresize, Pointervarmask, Root, Rootsize, Entry, Entrysize, Entryactive, Entrydir: import venti;
    1.17+
    1.18 
    1.19 Venticopy: module {
    1.20 	init:	fn(nil: ref Draw->Context, args: list of string);
    1.21@@ -34,10 +32,8 @@
    1.22 	arg := load Arg Arg->PATH;
    1.23 	str = load String String->PATH;
    1.24 	venti = load Venti Venti->PATH;
    1.25-	vac = load Vac Vac->PATH;
    1.26 
    1.27 	venti->init();
    1.28-	vac->init();
    1.29 
    1.30 	arg->init(args);
    1.31 	arg->setusage(sprint("%s [-df] srcaddr dstaddr [vac:]score", arg->progname()));
    1.32@@ -112,7 +108,7 @@
    1.33 			if(!(e.flags&Entryactive))
    1.34 				continue;
    1.35 			tvar := 0;
    1.36-			if(e.flags & Vac->Entryvarblocks)
    1.37+			if(e.flags & Venti->Entryvarblocks)
    1.38 				tvar = Pointervarmask;
    1.39 			nt := Datatype;
    1.40 			if(e.flags&Entrydir)