Re: Updated _acroread completer

[Haakon Riiser <haakon.riiser@xxxxxxxxxx>]

[Oliver Kiddle]

>> The output of acroread -version cannot be piped to stdout for
>> some reason, so the version number must be read from
>> ACROREAD-PREFIX/Reader/AcroVersion.  Since acroread might have
>> been started via a wrapper script, the only failsafe way of
>> determining ACROREAD-PREFIX is to look at the output of acroread
>> -help.
> 
> Unfortunately, this doesn't work on the system I tried it on, using
> Adobe's rpm. /usr/bin/acroread is a symbolic like to
> /usr/local/Adobe/Acrobat7.0/bin/acroread. Handling that involves using ls
> to get the symlink destination.
> 
> Is acroread always a script? The following works well (and very quickly)
> on any system I have access to:
>   grep '^ver=' =acroread
> 
> From a completion function, we can use $commands[$words[1]] instead
> of =acroread.

It doesn't work when acroread is a wrapper script, which it is
in my case.  (I used a wrapper instead of a symlink, because the
script needs to do some things before it starts acroread, such
as turning off core dumps (some versions of acroread 5.x used to
crash a _lot_).)  Even if I rename the script to something other
than 'acroread', I still couldn't use =acroread since the real
acroread executable isn't in my PATH. :-/

So I'll just have to resolve the symlink using readlink.  I assume
the most portable way to do this is perl, unless there is a way
to make zsh expand the link itself.  I have attached a version that
does this.  Should handle any level of symbolic links that point to
new symbolic links.

-- 
 Haakon

#compdef acroread

local curcontext="$curcontext" state line

# The output of acroread -version cannot be piped to stdout for some reason, so
# the version number must be read from ACROREAD-PREFIX/Reader/AcroVersion.
# Since acroread might have been started via a wrapper script, the only
# failsafe way of determining ACROREAD-PREFIX is to look at the output of
# acroread -help.
if [[ -z $_acroread_version ]]; then
    local acropath=${${(s. .)${${(f)"$($words[1] -help 2>&1)"}[1]}}[2]}
    while [[ -L $acropath ]]; do
        acropath=$(perl -e 'print readlink($ARGV[0])' $acropath)
    done
    local version_file=${acropath%/*}/../Reader/AcroVersion
    [[ -r $version_file ]] && _acroread_version=$(< $version_file)
fi

if [[ $_acroread_version == 7.* ]]; then
    _arguments -C \
      '--display=:X display:_x_display' \
      '--screen=:X screen (overrides the screen part of DISPLAY)' \
      --sync \
      '-geometry:[<width>x<height>][{+|-}<x offset>{+|-}<y offset>]' \
      -help \
      -iconic \
      '*-setenv:<var>=<value>' \
      -tempFile \
      '-tempFileTitle:title' \
      -openInNewWindow \
      -version \
      '-visual:X visual:_x_visual' \
      '-toPostScript:*::PostScript conversion options:= ->tops' \
      '*:PDF file:_files -g "*.(#i)pdf(-.)"' && return

    [[ -n "$state" ]] && _arguments \
      '-pairs:*:pdf_file_1 ps_file_1 ...:_files -g "*.(#i)(pdf|ps)(-.)"' \
      -binary \
      '-start:integer' \
      '-end:integer' \
      -optimizeForSpeed \
      -landscape \
      -reverse \
      '(-even)-odd' \
      '(-odd)-even' \
      -commentsOff \
      -annotsOff \
      '(-level3)-level2' \
      '(-level2)-level3' \
      -printerhalftones \
      -saveVM \
      '-scale:integer' \
      -shrink \
      -expand \
      '-size:page size (or custom size wxh in points):(letter tabloid ledger legal executive a3 a4 a5 b4 b5)' \
      '-transQuality:transparency flattening level:(1 2 3 4 5)' \
      '*:PDF file:_files -g "*.(#i)pdf(-.)"' && return
else
    _x_arguments -C \
      -help \
      -helpall \
      \*-iconic \
      \*+iconic \
      '-name:application name:_x_name' \
      '*-setenv:<var>=<value>' \
      -tempFile \
      '-tempFileTitle:title' \
      '(+useFrontEndProgram)-useFrontEndProgram' \
      '(-useFrontEndProgram)+useFrontEndProgram' \
      '-visual:X visual:_x_visual' \
      '-xrm:X resource specification:_x_resource' \
      '-toPostScript:*::PostScript conversion options:= ->tops' \
      '*:PDF file:_files -g "*.(#i)pdf(-.)"' && return

    [[ -n "$state" ]] && _arguments \
      '-pairs:*:pdf_file_1 ps_file_1 ...:_files -g "*.(#i)(pdf|ps)(-.)"' \
      -binary \
      '-start:integer' \
      '-end:integer' \
      -optimizeForSpeed \
      -landscape \
      -reverse \
      '(-even)-odd' \
      '(-odd)-even' \
      -commentsOff \
      '(-level2 -level3)-level1' \
      '(-level1 -level3)-level2' \
      '(-level1 -level2)-level3' \
      -printerhalftones \
      -saveVM \
      '-scale:integer' \
      -shrink \
      '-size:page size (or custom size wxh in points):(letter tabloid ledger legal executive a3 a4 a5 b4 b5)' \
      '-transQuality:transparency flattening level:(1 2 3 4 5)' \
      '*:PDF file:_files -g "*.(#i)pdf(-.)"' && return
fi

return 1