version 1.3, 1996/09/19 22:17:37
|
version 1.6, 1997/07/31 16:17:10
|
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 -- ) |
get-sourcepos |
get-sourcepos |
>r type ." :" r> 0 .r ; |
>r type ." :" |
|
base @ decimal r> 0 .r base ! ; |