[Tonel] troublesome method for Tonel ...

[dalehenrich]

see pharo-vcs/tonel#72 ... will be useful to have this method in the Rowan test suite ...

[dalehenrich]

Found another troublesome method in the GemStone base image ((presumably the $$] ... $$ ] passes):

Extension { #name : 'CPreprocessor' }

{ #category : 'Private' }
CPreprocessor >> _initializePaths [
	| list |
  self nativeCppCmd .
	list := { '' }.
	(path ~~ nil and: [path first == $$]) ifTrue: [list add: self directory].
  cppArchMType ifNil:[  "not using native cpp"
	  list add: '/usr/include/'; add: '/usr/local/include/' .
    systemSearchPaths := { } .
  ] ifNotNil:[
    systemSearchPaths := { '/usr/include/' . '/usr/local/include/' }.
    cppArchMType == 50 ifTrue:[ systemSearchPaths add: '/usr/include/linux' ].
  ].
  searchPaths := list .

]

Results in the following stack:

./tonelParserDebug.tpz rowan_dev_350 -D -- -l -- problem_CPreprocessor.extension.st
Starting tonelParserDebug.tpz at 2019-07-23T15:57:55-07:00.
class definition #'CPreprocessor'
Last selector parsed was: '_initializePaths'
-----------------------------------------------------
 Near line 73 of file /home/dhenrich/rogue/_homes/rogue/_home/server/stones/rowan_dev_350/git/scripts/tonelParserDebug.tpz
GemStone: Error         Nonfatal
a TonelParseError occurred (error 2710), , Can't parse method body
Error Category: 231169 [GemStone] Number: 2710  Arg Count: 1 Context : 90580225 exception : 90572801
Arg 1: [20 sz:0 cls: 76289 UndefinedObject] nil
topaz > exec iferr 1 : stk 
==> 1 TonelParseError (AbstractException) >> _signalWith: @6 line 25   [methId 5133569]
2 TonelParseError (AbstractException) >> signal: @3 line 7   [methId 5134081]
3 TonelParseError class (AbstractException class) >> signal: @3 line 4   [methId 5116673]
4 TonelParser >> methodBody                     @60 line 39   [methId 47772161]
5 TonelParser >> methodDef:                     @7 line 8   [methId 47770369]
6 [] in TonelParser >> methodDefList            @17 line 11   [methId 47546881]
7 ExecBlock0 (ExecBlock) >> on:do:              @3 line 44   [methId 4861441]
8 TonelParser >> methodDefList                  @11 line 17   [methId 47768577]
9 TonelParser >> document                       @3 line 4   [methId 47769857]
10 TonelParser >> start                          @2 line 2   [methId 47767297]
11 [] in Executed Code                           @35 line 18   [methId 90561793]
12 [] in AbstractFileReference >> readStreamDo:  @9 line 4   [methId 43761409]
13 ExecBlock0 (ExecBlock) >> ensure:             @2 line 12   [methId 4868097]
14 FileReference (AbstractFileReference) >> readStreamDo: @5 line 5   [methId 42138369]
15 Executed Code                                 @26 line 14   [methId 90557441]
16 GsNMethod class >> _gsReturnToC               @1 line 1   [methId 5218561]
  [GsProcess 90580225]
Stopping at line 73 of /home/dhenrich/rogue/_homes/rogue/_home/server/stones/rowan_dev_350/git/scripts/tonelParserDebug.tpz

[dalehenrich]

work has been deferred until new FileSystem code (smalltalkci_port branch at moment) has been merged into candidateV2.0