[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/batchExporter batchImport,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/batchExporter
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26946

Modified Files:
	batchImport 
Log Message:
comment test code bundle

Index: batchImport
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/batchExporter/batchImport,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** batchImport	26 Mar 2005 19:42:35 -0000	1.1.1.1
--- batchImport	14 Jun 2005 01:05:28 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.batchExporter.batchImport
  
! on batchImport (folder = user.batchExporter.folder) {
	Ç5.0 -- 12/2/97 DW -- updated for fat page files and Windows
		ÇI wanted to add items to the export log, but there was a problem...
		ÇIt's almost certain that we're going to import the user.export table.
		ÇThat's where the log is stored! Ooops.
		ÇSo, instead, I keep the user informed with a msg call.
	local (f, adrobject, flImported, ctImported = 0);
	window.about ();
	fileloop (f in folder, infinity) {
		flImported = false;
		if sys.os () == "MacOS" {
			try { //see if it's a Frontier 4 export file
				rez.getNthResource (f, 'data', 1, @adrobject, @resdata);
				table.surePath (adrobject);
				unpack (@resdata, @resdata);
				unpack (@resdata, @resdata);
				table.moveAndRename (@resdata, adrobject);
				ctImported++;
				flImported = true}};
		if sys.os () == "MacOS" {
			if file.fileFromPath (f) beginsWith "." {
				continue}};
		if not flImported {
			adrobject = fatPages.importFatFile (f);
			ctImported++};
		msg ("Imported \"" + adrobject + "\".")};
	msg ("Saving the database...");
	fileMenu.save ();
	msg (ctImported + " objects imported.")};
bundle { Çtest code
	batchImport ()}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.batchExporter.batchImport
  
! on batchImport (folder = user.batchExporter.folder) {
	Ç5.0 -- 12/2/97 DW -- updated for fat page files and Windows
		ÇI wanted to add items to the export log, but there was a problem...
		ÇIt's almost certain that we're going to import the user.export table.
		ÇThat's where the log is stored! Ooops.
		ÇSo, instead, I keep the user informed with a msg call.
	local (f, adrobject, flImported, ctImported = 0);
	window.about ();
	fileloop (f in folder, infinity) {
		flImported = false;
		if sys.os () == "MacOS" {
			try { //see if it's a Frontier 4 export file
				rez.getNthResource (f, 'data', 1, @adrobject, @resdata);
				table.surePath (adrobject);
				unpack (@resdata, @resdata);
				unpack (@resdata, @resdata);
				table.moveAndRename (@resdata, adrobject);
				ctImported++;
				flImported = true}};
		if sys.os () == "MacOS" {
			if file.fileFromPath (f) beginsWith "." {
				continue}};
		if not flImported {
			adrobject = fatPages.importFatFile (f);
			ctImported++};
		msg ("Imported \"" + adrobject + "\".")};
	msg ("Saving the database...");
	fileMenu.save ();
	msg (ctImported + " objects imported.")};
Çbundle Çtest code
	ÇbatchImport ()
\ No newline at end of file