# HG changeset patch # User Jan Vrany # Date 1412462054 -3600 # Node ID e9919f8e47dec54b0433d6b1f3197249d623f37e # Parent 1825151d6455d2aff13b707ae91f42bd9f308a87 Removed leftover Smalltalk/X-ism: end-of-line comments. Not supported by Pharo. diff -r 1825151d6455 -r e9919f8e47de extensions.st --- a/extensions.st Sun Oct 05 00:29:07 2014 +0100 +++ b/extensions.st Sat Oct 04 23:34:14 2014 +0100 @@ -83,21 +83,14 @@ !PositionableStream methodsFor:'*petitparser-core-converting'! asPetitStream - "Some of my subclasses do not use the instance-variables collection, position and readLimit but instead have a completely different internal representation. In these cases just use the super implementation that is inefficient but should work in all cases." - - "DUNNO WHY, but on: collection from: position to: last set the start to position -1" - self breakPoint: #petitparser. + "Some of my subclasses do not use the instance-variables collection, position and readLimit but instead have a completely different internal representation. In these cases just use the super implementation that is inefficient but should work in all cases." - ^ (collection isNil or: [ position isNil or: [ readLimit isNil ] ]) - ifFalse: [ PPStream on: collection from: (position +1) to: readLimit ] - ifTrue: [ super asPetitStream ] - - -"/ ^ (collection isNil or: [ position isNil or: [ readLimit isNil ] ]) -"/ ifFalse: [ PPStream on: collection from: position to: readLimit ] -"/ ifTrue: [ super asPetitStream ] + ^ (collection isNil or: [ position isNil or: [ readLimit isNil ] ]) + ifFalse: [ PPStream on: collection from: ( position + 1 ) to: readLimit ] + ifTrue: [ super asPetitStream ] "Modified: / 18-12-2010 / 17:38:01 / Jan Kurs " + "Modified: / 04-10-2014 / 23:27:37 / Jan Vrany " ! ! !PositionableStream methodsFor:'*petitparser-core'! diff -r 1825151d6455 -r e9919f8e47de stx_goodies_petitparser.st --- a/stx_goodies_petitparser.st Sun Oct 05 00:29:07 2014 +0100 +++ b/stx_goodies_petitparser.st Sat Oct 04 23:34:14 2014 +0100 @@ -115,15 +115,6 @@ ) ! ! -!stx_goodies_petitparser class methodsFor:'description - actions'! - -postLoadAction - - "/self classes do: [:cls|cls isLoaded ifFalse:[cls autoload]] - - "Created: / 17-12-2010 / 19:55:52 / Jan Vrany " -! ! - !stx_goodies_petitparser class methodsFor:'description - compilation'! additionalRules_make_dot_proto @@ -237,13 +228,6 @@ !stx_goodies_petitparser class methodsFor:'description - project information'! -applicationIconFileName - "Return the name (without suffix) of an icon-file (the app's icon); will be included in the rc-resource file" - - ^ nil - "/ ^ self applicationName -! - companyName "Return a companyname which will appear in .rc" @@ -268,13 +252,6 @@ "Modified: / 17-12-2010 / 19:43:20 / Jan Vrany " ! -productInstallDirBaseName - "Returns a default installDir which will appear in .nsi. - This is usually not the one you want to keep" - - ^ (self package asCollectionOfSubstringsSeparatedByAny:':/') last -! - productName "Return a product name which will appear in .rc"