Fix for filing out Java extensions.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 17 Sep 2013 11:23:57 +0100
changeset 345 a25283e84b95
parent 344 98434d42736d
child 346 8a906e350b13
Fix for filing out Java extensions. Make sure the directory for Java extensions container exists before filing out the container.
common/SCMAbstractPackageModel.st
common/common.rc
mercurial/HGWorkingCopyFile.st
mercurial/mercurial.rc
--- a/common/SCMAbstractPackageModel.st	Thu Sep 12 15:54:16 2013 +0100
+++ b/common/SCMAbstractPackageModel.st	Tue Sep 17 11:23:57 2013 +0100
@@ -343,11 +343,14 @@
     entry := wcroot / 'java' / 'extensions'.
     comps := aJavaClass theNonMetaclass name tokensBasedOn: $/.
     1 to: comps size - 1 do:[:i|entry := entry / (comps at:i)].
+    entry exists ifFalse:[
+         entry recursiveMakeDirectory.
+    ].
     entry := entry / (comps last , '.' , aProgrammingLanguage sourceFileSuffix).
     ^entry writeStream.
 
     "Created: / 04-09-2012 / 23:17:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 10-12-2012 / 05:52:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-09-2013 / 02:54:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 containersToKeep
--- a/common/common.rc	Thu Sep 12 15:54:16 2013 +0100
+++ b/common/common.rc	Tue Sep 17 11:23:57 2013 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "Copyright Jan Vrany 2012\0"
       VALUE "ProductName", "Smalltalk/X SCM Support Library\0"
       VALUE "ProductVersion", "6.2.3.0\0"
-      VALUE "ProductDate", "Fri, 12 Jul 2013 16:35:38 GMT\0"
+      VALUE "ProductDate", "Tue, 17 Sep 2013 10:22:57 GMT\0"
     END
 
   END
--- a/mercurial/HGWorkingCopyFile.st	Thu Sep 12 15:54:16 2013 +0100
+++ b/mercurial/HGWorkingCopyFile.st	Tue Sep 17 11:23:57 2013 +0100
@@ -82,6 +82,14 @@
     "Created: / 24-09-2012 / 13:52:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!HGWorkingCopyFile methodsFor:'* As yet uncategorized *'!
+
+writeStream
+    ^ filename writeStream
+
+    "Created: / 17-09-2013 / 02:53:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !HGWorkingCopyFile methodsFor:'accessing'!
 
 changeset
--- a/mercurial/mercurial.rc	Thu Sep 12 15:54:16 2013 +0100
+++ b/mercurial/mercurial.rc	Tue Sep 17 11:23:57 2013 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "Copyright Jan Vrany 2012\0"
       VALUE "ProductName", "Smalltalk/X Mercurial Integration\0"
       VALUE "ProductVersion", "6.2.3.0\0"
-      VALUE "ProductDate", "Thu, 05 Sep 2013 11:38:49 GMT\0"
+      VALUE "ProductDate", "Tue, 17 Sep 2013 10:22:43 GMT\0"
     END
 
   END