Re: [gforth] #line directive?

[Josh Grams]

On Mon, 25 Jul 2011 at 14:42:12 +0200, Anton Ertl wrote:
>On Sun, Jul 24, 2011 at 09:10:33PM -0400, Josh Grams wrote:
>> Are there other gotchas that I need to watch out for?
>
>None come to my mind.

Cool, thanks.

Actually memory allocation is a bit of a problem with that version; you
have to pass it a non-transient string, and I'd rather not repeatedly
allocate the filename string.  So here's one which handles allocation.
I haven't tested extensively, but it seems to work for me.

--Josh

: ?included ( c-addr u -- c-addr' u flag )
        \G If the file @var{c-addr u} is in the list of earlier included
        \G files, return @code{true} and the matching filename string
        \G @var{c-addr' u} from the list, otherwise return @code{false} and
        \G the original string.
    included-files 2@  2 cells * bounds ?do
                2dup i 2@ str= if 2drop i 2@ true unloop exit then
        2 cells +loop false ;

: >sourcefile ( u.line# c-addr u -- )
        ?included 0= if save-mem 2dup add-included-file then
        loadfilename 2!  1- loadline ! ;

: #line ( "N "filename"" -- )
        parse-word evaluate  [char] "
                dup parse -trailing abort" expected filename string" drop
        parse cr >sourcefile ;