equal
deleted
inserted
replaced
359 |
359 |
360 "/ start with the last (so I don't have to update the positions) |
360 "/ start with the last (so I don't have to update the positions) |
361 eolComments sort:[:a :b | a startPosition < b startPosition]. |
361 eolComments sort:[:a :b | a startPosition < b startPosition]. |
362 |
362 |
363 eolComments reverseDo:[:each | |
363 eolComments reverseDo:[:each | |
364 source := (source copyTo:(each endPosition)),'"',(source copyFrom:(each endPosition + 1)) |
364 (source at:each endPosition) = $" ifTrue:[ |
|
365 "/ nothing to do... |
|
366 ] ifFalse:[ |
|
367 source := (source copyTo:(each endPosition)),'"',(source copyFrom:(each endPosition + 1)) |
|
368 ]. |
365 ]. |
369 ]. |
366 |
370 |
367 "/ to verify, check parsability |
371 "/ to verify, check parsability |
368 RBParser |
372 RBParser |
369 parseMethod:source |
373 parseMethod:source |
473 ! ! |
477 ! ! |
474 |
478 |
475 !VSEFileSourceWriter class methodsFor:'documentation'! |
479 !VSEFileSourceWriter class methodsFor:'documentation'! |
476 |
480 |
477 version |
481 version |
478 ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.10 2015-02-02 21:28:04 cg Exp $' |
482 ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.11 2015-02-02 21:56:02 cg Exp $' |
479 ! |
483 ! |
480 |
484 |
481 version_CVS |
485 version_CVS |
482 ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.10 2015-02-02 21:28:04 cg Exp $' |
486 ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.11 2015-02-02 21:56:02 cg Exp $' |
483 ! ! |
487 ! ! |
484 |
488 |