hg/stx-libcomp: comparison Scanner.st

equal deleted inserted replaced

-:915a98fda4d2
+:a98543e59971
 saveComments ifTrue:[
 commentText := commentStream contents.
 self endComment:commentText type:commentType.
 ].
-parserFlags warnAboutBadComments ifTrue:[
+ignoreWarnings ifFalse:[
-anyNonBlank ifFalse:[
+parserFlags warnAboutBadComments ifTrue:[
-commentType ~~ #eolComment ifTrue:[
+anyNonBlank ifFalse:[
-self isDoIt ifFalse:[
+commentType ~~ #eolComment ifTrue:[
-self warning:'empty comment' position:startPos to:endPos+1.
+self isDoIt ifFalse:[
-parserFlags warnAboutBadComments:false.
+self
-]
+warning:'empty comment'
-].
+doNotShowAgainAction:[ ParserFlags warnAboutBadComments: false ]
-].
+position:startPos to:endPos+1.
-].
+parserFlags warnAboutBadComments:false.
+]
+].
+].
+].
+].
 "Modified: / 30-07-2013 / 20:56:33 / cg"
 !
 skipToEndOfLineRememberingIn:commentStreamOrNil
 [hereChar notNil and:[hereChar ~~ Character cr]] whileTrue:[
 ! !
 !Scanner class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.302 2013-08-25 16:51:53 cg Exp $'
+^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.303 2013-08-26 09:24:41 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.302 2013-08-25 16:51:53 cg Exp $'
+^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.303 2013-08-26 09:24:41 cg Exp $'
 ! !
 Scanner initialize!