414 "Created: / 28-02-2014 / 09:33:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
414 "Created: / 28-02-2014 / 09:33:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
415 ! ! |
415 ! ! |
416 |
416 |
417 !SCMAbstractPackageWorkingCopy methodsFor:'file out'! |
417 !SCMAbstractPackageWorkingCopy methodsFor:'file out'! |
418 |
418 |
419 fileOutClass:cls |
419 fileOutClass: cls |
420 |
420 | stream | |
421 |stream| |
421 |
422 |
422 self makeLocalStringSource: cls. |
423 cls theNonMetaclass methodDictionary do: |
423 stream := self containerWriteStreamForClass: cls. |
424 [:each|each makeLocalStringSource]. |
|
425 |
|
426 cls theMetaclass methodDictionary do: |
|
427 [:each|each makeLocalStringSource]. |
|
428 |
|
429 stream := self containerWriteStreamForClass:cls. |
|
430 [ |
424 [ |
431 self fileOutClass:cls on:stream |
425 self fileOutClass: cls on: stream |
432 ] ensure:[ |
426 ] ensure: [ stream close ] |
433 stream close |
|
434 ] |
|
435 |
427 |
436 "Modified: / 11-06-2009 / 16:18:19 / Jan Vrany <vranyj1@fel.cvut.cz>" |
428 "Modified: / 11-06-2009 / 16:18:19 / Jan Vrany <vranyj1@fel.cvut.cz>" |
437 "Created: / 30-12-2009 / 19:04:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
429 "Created: / 30-12-2009 / 19:04:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
438 "Modified: / 03-07-2013 / 19:50:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
430 "Modified: / 03-07-2013 / 19:50:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
439 "Modified (format): / 30-07-2014 / 20:49:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
431 "Modified (format): / 30-07-2014 / 20:49:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
440 "Modified: / 26-10-2020 / 23:51:41 / Jan Vrany <jan.vrany@labware.com>" |
432 "Modified: / 26-10-2020 / 23:51:41 / Jan Vrany <jan.vrany@labware.com>" |
|
433 "Modified (format): / 04-07-2021 / 21:48:46 / Jan Vrany <jan.vrany@labware.com>" |
441 ! |
434 ! |
442 |
435 |
443 fileOutClass:cls on:clsStream |
436 fileOutClass:cls on:clsStream |
444 self manager |
437 self manager |
445 fileOutSourceCodeOf:cls |
438 fileOutSourceCodeOf:cls |
741 computeIsVirtual |
734 computeIsVirtual |
742 ^ self classes isEmpty and:[ self extensions isEmpty ]. |
735 ^ self classes isEmpty and:[ self extensions isEmpty ]. |
743 |
736 |
744 "Created: / 28-02-2014 / 23:46:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
737 "Created: / 28-02-2014 / 23:46:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
745 "Modified (comment): / 05-03-2014 / 23:21:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
738 "Modified (comment): / 05-03-2014 / 23:21:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
739 ! |
|
740 |
|
741 makeLocalStringSource: cls |
|
742 "Make sure all methods in given class (and its private classes) |
|
743 have 'local' source (that is, the source is in smalltalk memory |
|
744 as opposed to in a file on a disk) |
|
745 " |
|
746 |
|
747 cls theNonMetaclass methodDictionary do: [:each | |
|
748 each makeLocalStringSource |
|
749 ]. |
|
750 cls theMetaclass methodDictionary do: [:each | |
|
751 each makeLocalStringSource |
|
752 ]. |
|
753 cls privateClassesDo: [ :each | self makeLocalStringSource: each ] |
|
754 |
|
755 "Modified: / 09-07-2021 / 06:48:53 / Jan Vrany <jan.vrany@labware.com>" |
746 ! |
756 ! |
747 |
757 |
748 updateCachedValues |
758 updateCachedValues |
749 "Update all cached data" |
759 "Update all cached data" |
750 |
760 |