[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/backups backupRoot,1.1.1.1,1.2

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

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

Modified Files:
	backupRoot 
Log Message:
don't save all root files as Frontier.root on Mac OS

Index: backupRoot
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/backups/backupRoot,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** backupRoot	26 Mar 2005 19:42:35 -0000	1.1.1.1
--- backupRoot	27 Mar 2005 23:06:11 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.backups.backupRoot
  
! Çthe backup goes into a "backups" folder in the Frontier folder
	Çfirst we create the backups folder if it doesn't already exist.
	Çthen we copy the file
	Çthen check to see that it exists and is the right size (pays to be paranoid!)
	Çthen increment the backup serial number and save the root file (again paranoia)
	Çand finally report the success of the backup operation

backups.init ();
fileMenu.save (); Çmake sure all changes are on disk
try {
	file.sureFolder (user.backups.folder)}
else {
	ÇFrontier must have been moved or its folder re-named.
		ÇFriday, January 02, 1998 at 10:21:09 PM by PBS
	user.backups.folder = Frontier.pathstring + "backups" + file.getPathChar ()};

local (source = Frontier.getFilePath (), dest);
case sys.os () {
	"MacOS" {
		dest = user.backups.folder + "Frontier.root." + user.backups.nextBackup}}
else {
	dest = user.backups.folder + "Frontier." + user.backups.nextBackup + ".root"};
if file.exists (dest) { //11/28/97 DW -- confirm file overwrite
	if not dialog.confirm ("The file \"" + dest + "\" exists. Replace it?") {
		return ("")};
	file.delete (dest)};
msg ("Copying...");
file.copy (source, dest);
msg ("");

bundle { Çcheck to see if the backup file exists and is the right size
	local (f = file.fileFromPath (dest));
	if not file.exists (dest) { Çuser wants to know if ANYTHING went wrong
		scriptError (f + " wasn't created.")};
	local (diff = file.size (dest) - file.size (source));
	if diff != 0 { Çthe user wants to know...
		scriptError (f + " isn't the correct size, difference = " + diff)}};

user.backups.nextBackup++; Çeverything went as planned, the backup is cool
fileMenu.save (); Çbe sure backups.nextbackup is correct on disk

bundle { //11/28/97 DW -- call the custom backup script if it's there
	try {
		user.backups.lastFname = file.fileFromPath (dest);
		user.backups.script ()}};

return (dest)
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.backups.backupRoot
  
! ÇChanges
	Ç12/6/04; 7:11:24 PM by TAC
		Çdon't save all root files as Frontier.root on Mac OS
	ÇNotes
		Çthe backup goes into a "backups" folder in the Frontier folder
			Çfirst we create the backups folder if it doesn't already exist.
			Çthen we copy the file
			Çthen check to see that it exists and is the right size (pays to be paranoid!)
			Çthen increment the backup serial number and save the root file (again paranoia)
			Çand finally report the success of the backup operation

backups.init ();
fileMenu.save (); Çmake sure all changes are on disk
try {
	file.sureFolder (user.backups.folder)}
else {
	ÇFrontier must have been moved or its folder re-named.
		ÇFriday, January 02, 1998 at 10:21:09 PM by PBS
	user.backups.folder = Frontier.pathstring + "backups" + file.getPathChar ()};

local (source = Frontier.getFilePath (), dest);
case sys.os () {
	"MacOS" {
		dest = user.backups.folder + file.fileFromPath (source) + "." + user.backups.nextBackup}} // 12/6/04; 7:11:24 PM by TAC - don't save all root files as Frontier.root
else {
	dest = user.backups.folder + "Frontier." + user.backups.nextBackup + ".root"};
if file.exists (dest) { //11/28/97 DW -- confirm file overwrite
	if not dialog.confirm ("The file \"" + dest + "\" exists. Replace it?") {
		return ("")};
	file.delete (dest)};
msg ("Copying...");
file.copy (source, dest);
msg ("");

bundle { Çcheck to see if the backup file exists and is the right size
	local (f = file.fileFromPath (dest));
	if not file.exists (dest) { Çuser wants to know if ANYTHING went wrong
		scriptError (f + " wasn't created.")};
	local (diff = file.size (dest) - file.size (source));
	if diff != 0 { Çthe user wants to know...
		scriptError (f + " isn't the correct size, difference = " + diff)}};

user.backups.nextBackup++; Çeverything went as planned, the backup is cool
fileMenu.save (); Çbe sure backups.nextbackup is correct on disk

bundle { //11/28/97 DW -- call the custom backup script if it's there
	try {
		user.backups.lastFname = file.fileFromPath (dest);
		user.backups.script ()}};

return (dest)
\ No newline at end of file