gforth/source.fs - diff

Return to source.fs CVS log

Up to [gforth] / gforth

version 1.4, 1997/03/04 17:49:55	version 1.7, 1998/12/08 22:02:51
Line 1	Line 1
\ source location handling	\ source location handling

\ Copyright (C) 1995 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 26	Line 26
require struct.fs	require struct.fs

struct	struct
1 cells: field sourcepos-name#	cell% field sourcepos-name#
1 cells: field sourcepos-line#	cell% field sourcepos-line#
end-struct sourcepos	end-struct sourcepos

: sourcepos, ( -- )	: sourcepos, ( -- )
Line 36 end-struct sourcepos	Line 36 end-struct sourcepos

: get-sourcepos ( a-addr -- c-addr u n )	: get-sourcepos ( a-addr -- c-addr u n )
\ c-addr u is the filename, n is the line number	\ c-addr u is the filename, n is the line number
included-files 2@ drop over sourcepos-name# @ 2* cells + 2@	dup sourcepos-name# @ loadfilename#>str
rot sourcepos-line# @ ;	rot sourcepos-line# @ ;

: print-sourcepos ( a-addr -- )	: print-sourcepos ( a-addr -- )