Add `Filename >> #readStreamDo:` and `#writeStreamDo:` jv
authorJan Vrany <jan.vrany@labware.com>
Mon, 31 Oct 2022 12:24:17 +0000
branchjv
changeset 1499 ca603605f130
parent 1498 c0ba52bc2eb6
child 1500 ded9557e0bbe
Add `Filename >> #readStreamDo:` and `#writeStreamDo:`
extensions.st
stx_libcompat.st
--- a/extensions.st	Fri Dec 03 11:39:26 2021 +0000
+++ b/extensions.st	Mon Oct 31 12:24:17 2022 +0000
@@ -1447,6 +1447,22 @@
     "Created: / 15-03-2021 / 14:25:58 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
+!Filename methodsFor:'Compatibility-Pharo'!
+
+readStreamDo: aBlock
+    ^ self readingFileDo: aBlock
+
+    "Created: / 31-10-2022 / 12:20:24 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
+!Filename methodsFor:'Compatibility-Pharo'!
+
+writeStreamDo: aBlock
+    ^ self writingFileDo: aBlock
+
+    "Created: / 31-10-2022 / 12:20:02 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
 !GenericException methodsFor:'Compatibility-Squeak'!
 
 signal
--- a/stx_libcompat.st	Fri Dec 03 11:39:26 2021 +0000
+++ b/stx_libcompat.st	Mon Oct 31 12:24:17 2022 +0000
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 2006 by eXept Software AG
- COPYRIGHT (c) 2020-2021 LabWare
+ COPYRIGHT (c) 2020-2022 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -26,7 +26,7 @@
 copyright
 "
  COPYRIGHT (c) 2006 by eXept Software AG
- COPYRIGHT (c) 2020-2021 LabWare
+ COPYRIGHT (c) 2020-2022 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -118,7 +118,10 @@
         #'stx:goodies/monticello'    "PackageOrganizer - referenced by PackageInfo>>register "
         #'stx:libcomp'    "Parser - referenced by VAST::Application class>>initializeAfterLoad "
         #'stx:libtool'    "Tools::ClassCategoryList - referenced by SystemOrganization class>>addCategory: "
+        #'stx:goodies/communication'    "HTTPInterface - referenced by HTTPSocket class>>httpGet:accept:" 
     )
+
+    "Modified: / 22-09-2022 / 17:04:50 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 mandatoryPreRequisites
@@ -141,22 +144,6 @@
     )
 !
 
-referencedPreRequisites
-    "list packages which are a prerequisite, because they contain
-     classes which are referenced by my classes.
-     These packages are NOT needed as a prerequisite for compiling or loading,
-     however, a class from it may be referenced during execution and having it
-     unloaded then may lead to a runtime doesNotUnderstand error, unless the caller
-     includes explicit checks for the package being present.
-     This method is generated automatically,
-     by searching all classes (and their packages) which are referenced by my classes.
-     Please also take a look at the #mandatoryPreRequisites method"
-
-    ^ #(
-        #'stx:goodies/communication'    "HTTPInterface - referenced by HTTPSocket class>>httpGet:accept:"
-    )
-!
-
 subProjects
     "list packages which are known as subprojects.
      The generated makefile will enter those and make there as well.