Re: type of "location" argument

[Jan-Peter Voigt]

Am 04.12.2013 15:04, schrieb Urs Liska:
>> Hi, its:
>> ly:input-location?
>>
>> HTH
> Unfortunately not (TH).
> This is what redirects me to
> 
> Input *
> unsmob_input (SCM s)
> {
>   if (SCM_IMP (s))
>     return 0;
>   if (SCM_CAR (s) == (SCM)input_tag) // ugh.
>     return (Input *) SCM_CDR (s);
>   else
>     return 0;
> }
> 
> And that's where I get stuck. This function looks like it somehow munges
> a Scheme pair or list, so I tried to access it through
> (car location)
> but that didn't work. Which isn't surprising because the original
> (write) would have printed something like (location "...") if it were a
> list, isn't it?
What are you trying to do? If you want to pass a location to a
music(scheme/void)-function, it looks like:

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\version "2.17.96"

% save the current location
saveLocation =
#(define-void-function (parser location name)(symbol?)
   (ly:parser-define! parser name location))

% show the file path of the given location
showFile =
#(define-void-function (parser location loc)(ly:input-location?)
   (ly:message "file '~A'" (car (ly:input-file-line-char-column location))))

% save location
\saveLocation hier
% show file name
\showFile \hier
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

The showFile function takes a ly:input-location as argument.

Or is it something else, you are going to do?