1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#!/usr/bin/env ruby
require 'optparse'
require 'pp'
$opts = {:bin => '../debian/build/src/cdo',:outfile => 'cdoCompletion'}
OptionParser.new do |o|
o.banner = "Create auto completion files for different shells\n " +
"Usage: makecompl.rb [-h] [-b CMD] [-o FILENAME]"
o.separator("")
o.separator("Options are ...")
o.on("-b",
"--binary CMD",
"Choose a CDO binary different from #{$opts[:bin]}") {|cmd| $opts[:bin] = cmd}
o.on("-o",
"--outfile FILENAME",
"Set the filename for all completions files (default: #{$opts[:outfile]})") {|fname| $opts[:outfile] = fname}
o.on("-h","--help","Show this help") {puts o
puts
puts <<-'END'
RESTRICTIONS:
Supported shells are TCSH, BASH and ZSH. For tcsh completion is only performed
for regular options and operators with prepended '-'. Bash and zsh also
complete opertors without leading '-'.
AUTHOR: Ralf Mueller, ralf.mueller@mpimet.mpg.de
LICENSE: CDO's License
END
exit
}
end.parse!
#===============================================================================
def getOperators
# try to run the CDO binary first
cmd = $opts[:bin] + ' --operators'
help = IO.popen(cmd).readlines.map {|l| l.chomp.lstrip}
if 5 >= help.size
puts "Operators could not get listed by running the CDO binary (#{$opts[:bin]})"
puts "Create operator list by scanning the documentation..."
Dir.glob('../doc/tex/mod/*').map {|mod|
File.open(mod).readlines.grep(/Operators/).map {|line|
line.chomp.split('=')[-1].split(' ')
}
}.flatten
else
help.map {|line| line.split[0]}
end
end
def getOptions
cmd = $opts[:bin] + ' -h 2>&1'
options = IO.popen(cmd).readlines.map {|l| l.chomp.lstrip}.grep(/^--*\w+(,| )/).map {|line| line.split[0]}#{|item| /^-(-)\w+ /.match(item)}.map {|o| o[0,2]}
if options.empty?
puts "Commandline options could not get listed by running the CDO binary (#{$opts[:bin]})"
puts "Go on processing operators only ..."
exit 1
end
options
end
#===============================================================================
operators = getOperators.sort
options = getOptions.sort
#pp operators; pp options
# Create the configuration files
complCmds = {
:tcsh => ['set cdoCmpl = (\\','); complete cdo \'c/-/$cdoCmpl/\' \'n/*/f/\''],
:zsh => ['compctl -k "(' ,')" -f cdo'],
:bash => ['complete -W "' ,'" -f cdo']
}
[:bash, :zsh, :tcsh].each {|shell|
# tcsh: Remove the prepended '-' from the cdo cmdline options. This will be
# added through tcsh's completion command
# otherwise: Add operators WITH leading '-'
completions = (:tcsh == shell ) ? options.map {|o| o[1..-1]} + operators : options + operators.map {|o| "#{o} -#{o}"}
File.open($opts[:outfile] + '.' + shell.to_s,'w') {|f|
f << complCmds[shell][0] << "\n"
completions.each {|item| f << item << " \\" << "\n" }
f << complCmds[shell][1] << "\n"
}
}
|
