SVN__PackagePattern.st
changeset 1128 30a62d7a8050
parent 888 132efbbc8803
child 1171 3d1dc13fecf8
equal deleted inserted replaced
1127:7fbd4868f709 1128:30a62d7a8050
   116 matches: package
   116 matches: package
   117 
   117 
   118     ^self match: package into: nil.
   118     ^self match: package into: nil.
   119 
   119 
   120     "Created: / 12-03-2011 / 21:20:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   120     "Created: / 12-03-2011 / 21:20:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   121 ! !
       
   122 
       
   123 !PackagePattern methodsFor:'printing & storing'!
       
   124 
       
   125 printOn:aStream
       
   126     "append a printed representation if the receiver to the argument, aStream"
       
   127 
       
   128     pattern printOn:aStream.
       
   129 
       
   130     "Modified: / 18-10-2012 / 16:02:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   121 ! !
   131 ! !
   122 
   132 
   123 !PackagePattern methodsFor:'private'!
   133 !PackagePattern methodsFor:'private'!
   124 
   134 
   125 matchAt: componentIdx into: replacements index: replacementIndex in: packageComponents from: start
   135 matchAt: componentIdx into: replacements index: replacementIndex in: packageComponents from: start