1713 |
1713 |
1714 localSourceStream |
1714 localSourceStream |
1715 "try to open a stream from a local source file, |
1715 "try to open a stream from a local source file, |
1716 searching in standard places." |
1716 searching in standard places." |
1717 |
1717 |
1718 |fileName aStream| |
1718 |dir fileName aStream| |
1719 |
1719 |
1720 package notNil ifTrue:[ |
1720 package notNil ifTrue:[ |
|
1721 "/ |
|
1722 "/ old: look in 'source/<filename>' |
|
1723 "/ this is still kept in order to find user-private |
|
1724 "/ classes in her currentDirectory. |
|
1725 "/ |
1721 fileName := Smalltalk getSourceFileName:(package copyReplaceAll:$: with:$/) , '/' , source. |
1726 fileName := Smalltalk getSourceFileName:(package copyReplaceAll:$: with:$/) , '/' , source. |
1722 fileName notNil ifTrue:[ |
1727 fileName notNil ifTrue:[ |
|
1728 aStream := fileName asFilename readStreamOrNil. |
|
1729 aStream notNil ifTrue:[^ aStream]. |
|
1730 ]. |
|
1731 "/ |
|
1732 "/ new: look in package-dir |
|
1733 "/ |
|
1734 dir := Smalltalk getPackageDirectoryForPackage:package. |
|
1735 dir notNil ifTrue:[ |
|
1736 fileName := dir construct:source. |
1723 aStream := fileName asFilename readStreamOrNil. |
1737 aStream := fileName asFilename readStreamOrNil. |
1724 aStream notNil ifTrue:[^ aStream]. |
1738 aStream notNil ifTrue:[^ aStream]. |
1725 ]. |
1739 ]. |
1726 ]. |
1740 ]. |
1727 fileName := Smalltalk getSourceFileName:source. |
1741 fileName := Smalltalk getSourceFileName:source. |