SF.net SVN: frontierkernel: [1389] ODBs/trunk/frontierRoot/system/verbs/builtins/file/readWholeFile.fvc

[<cre...@us...>]

Revision: 1389
Author:   creecode
Date:     2006-05-20 11:41:12 -0700 (Sat, 20 May 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1389&view=rev

Log Message:
-----------
kernelized

Modified Paths:
--------------
    ODBs/trunk/frontierRoot/system/verbs/builtins/file/readWholeFile.fvc
Modified: ODBs/trunk/frontierRoot/system/verbs/builtins/file/readWholeFile.fvc
===================================================================
--- ODBs/trunk/frontierRoot/system/verbs/builtins/file/readWholeFile.fvc	2006-05-20 18:38:30 UTC (rev 1388)
+++ ODBs/trunk/frontierRoot/system/verbs/builtins/file/readWholeFile.fvc	2006-05-20 18:41:12 UTC (rev 1389)
@@ -1,16 +1,24 @@
 FrontierVcsFile:2:scpt:system.verbs.builtins.file.readWholeFile
 
 on readWholeFile (f) {
-	«Change notes
-		«10/31/97 at 1:02:04 PM by DW -- moved from toys.readWholeFile
-		«06/07/2006 at 1:45:42 PM by AR -- kernelized
-	if date.versionLessThan (Frontier.version(), "10.1a10") {
+	«Changes
+		«06/07/2006 at 1:45:42 PM by AR
+			«kernelized
+		«10/31/97 at 1:02:04 PM by DW
+			«moved from toys.readWholeFile
+	
+	if date.versionLessThan (Frontier.version (), "10.1a10") {
 		local (s);
+		
 		file.open (f);
+		
 		s = file.read (f, infinity);
+		
 		file.close (f);
+		
 		return (s)}
 	else {
 		on kernelCall (f) {
 			kernel (file.readwholefile)};
+		
 		return (kernelCall (f))}}
\ No newline at end of file


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.