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

[<and...@us...>]

Revision: 1368
Author:   andreradke
Date:     2006-05-07 04:58:24 -0700 (Sun, 07 May 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1368&view=rev

Log Message:
-----------
Update file.readWholeFile glue script for kernel implementation (rev 1249). The kernel implementation will be used by 10.1a10 and later.

ViewCVS Links:
-------------
    http://svn.sourceforge.net/frontierkernel/?rev=1249&view=rev

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-06 20:17:17 UTC (rev 1367)
+++ ODBs/trunk/frontierRoot/system/verbs/builtins/file/readWholeFile.fvc	2006-05-07 11:58:24 UTC (rev 1368)
@@ -1,9 +1,16 @@
-FrontierVcsFile:1:scpt:system.verbs.builtins.file.readWholeFile
+FrontierVcsFile:2:scpt:system.verbs.builtins.file.readWholeFile
 
 on readWholeFile (f) {
-	\xC710/31/97 at 1:02:04 PM by DW -- moved from toys.readWholeFile
-	local (s);
-	file.open (f);
-	s = file.read (f, infinity);
-	file.close (f);
-	return (s)}
\ No newline at end of file
+	«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") {
+		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.