{import * from CURL.LANGUAGE.SOURCE}

{define-macro public {this-file ?empty:{pattern}}
    {return
        {Literal
            {if-non-null url = empty.url then
                url.name
             else
                "[unknown file]"
            }
        }
    }
}


{define-macro public {this-line ?empty:{pattern}}
    let line:int = {empty.location-to-line-column empty.start-location}
    {return {Literal line}}
}

It is just what I want.

For debug, I have to say there is a big difference between
having this macro or not having.

very helpful for me, thanks very much!

-- TM


*******************************************
To unsubscribe from this list, send a mail to:
mailto:[EMAIL PROTECTED]
To contact a human list administrator, send a mail to:
mailto:[EMAIL PROTECTED]
To recieve a list of other options for this list, send a mail to:
mailto:[EMAIL PROTECTED]

Reply via email to