author | František Kučera <franta-hg@frantovo.cz> |
Mon, 04 Mar 2019 22:26:24 +0100 | |
branch | v_0 |
changeset 242 | 0503996934e0 |
parent 222 | 5ffeb18b6f85 |
child 250 | aae5009bd0af |
permissions | -rwxr-xr-x |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
1 |
#!/usr/bin/perl |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
2 |
|
83
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
3 |
# SQL-DK |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
4 |
# Copyright © 2013 František Kučera (frantovo.cz) |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
5 |
# |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
6 |
# This program is free software: you can redistribute it and/or modify |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
7 |
# it under the terms of the GNU General Public License as published by |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
8 |
# the Free Software Foundation, either version 3 of the License, or |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
9 |
# (at your option) any later version. |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
10 |
# |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
11 |
# This program is distributed in the hope that it will be useful, |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
12 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
13 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
14 |
# GNU General Public License for more details. |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
15 |
# |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
16 |
# You should have received a copy of the GNU General Public License |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
17 |
# along with this program. If not, see <http://www.gnu.org/licenses/>. |
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
18 |
|
9563232ea0b7
bash completion: license
František Kučera <franta-hg@frantovo.cz>
parents:
82
diff
changeset
|
19 |
|
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
20 |
# Parses Java source code from STDIN and generates script for BASH completion |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
21 |
# Input (in this order): |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
22 |
# info/globalcode/sql/dk/Constants.java |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
23 |
# info/globalcode/sql/dk/formatting/* |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
24 |
# info/globalcode/sql/dk/CLIParser.java |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
25 |
|
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
26 |
# TODO: support database/formatter names with spaces |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
27 |
|
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
28 |
use strict; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
29 |
use warnings; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
30 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
31 |
my $configDir = "~"; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
32 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
33 |
while (<>) { |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
34 |
if (/"(.*?)".*? \/\/\s*bash-completion:dir/) { |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
35 |
$configDir .= "/$1"; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
36 |
last; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
37 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
38 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
39 |
|
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
40 |
my $databasesFile = "$configDir/bash-completion/databases"; |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
41 |
my $formattersFile = "$configDir/bash-completion/formatters"; |
222
5ffeb18b6f85
bash_completion.pl: defaultFormatter
František Kučera <franta-hg@frantovo.cz>
parents:
221
diff
changeset
|
42 |
my $defaultFormatterFile = "$configDir/bash-completion/default-formatter"; |
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
43 |
my $formatterPropertiesDir = "$configDir/bash-completion/formatter-properties"; |
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
44 |
|
110
ff6bbd0223c3
Bash completion: no 'have sql-dk' test
František Kučera <franta-hg@frantovo.cz>
parents:
84
diff
changeset
|
45 |
print '#have sql-dk && |
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
46 |
_sql_dk_bash_completion_find_formatter() { |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
47 |
local previous |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
48 |
for token in "$@"; do |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
49 |
if [ "x$previous" == "x--formatter" ]; then |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
50 |
echo -n "$token"; |
222
5ffeb18b6f85
bash_completion.pl: defaultFormatter
František Kučera <franta-hg@frantovo.cz>
parents:
221
diff
changeset
|
51 |
return 0; |
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
52 |
fi |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
53 |
previous="$token"; |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
54 |
done |
222
5ffeb18b6f85
bash_completion.pl: defaultFormatter
František Kučera <franta-hg@frantovo.cz>
parents:
221
diff
changeset
|
55 |
|
5ffeb18b6f85
bash_completion.pl: defaultFormatter
František Kučera <franta-hg@frantovo.cz>
parents:
221
diff
changeset
|
56 |
if [ -f '.$defaultFormatterFile.' ]; then |
5ffeb18b6f85
bash_completion.pl: defaultFormatter
František Kučera <franta-hg@frantovo.cz>
parents:
221
diff
changeset
|
57 |
cat '.$defaultFormatterFile.' |
5ffeb18b6f85
bash_completion.pl: defaultFormatter
František Kučera <franta-hg@frantovo.cz>
parents:
221
diff
changeset
|
58 |
fi |
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
59 |
} |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
60 |
|
222
5ffeb18b6f85
bash_completion.pl: defaultFormatter
František Kučera <franta-hg@frantovo.cz>
parents:
221
diff
changeset
|
61 |
_sql_dk_bash_completion_formatter_property_name() { |
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
62 |
if [ -n "$formatter" ]; then # TODO: this does not match formatter name in apostrophes or quotes |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
63 |
local formatter_dir='.$formatterPropertiesDir.'/$formatter |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
64 |
if [ -d $formatter_dir ]; then |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
65 |
ls -1 $formatter_dir; |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
66 |
fi |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
67 |
fi |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
68 |
} |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
69 |
|
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
70 |
_sql_dk_bash_completion_formatter_property_choice() { |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
71 |
local property="${COMP_WORDS[COMP_CWORD-1]}"; |
221
e38910065d55
bash-completion: --formatter-property choices: first working version
František Kučera <franta-hg@frantovo.cz>
parents:
220
diff
changeset
|
72 |
local formatter_dir='.$formatterPropertiesDir.'/$formatter |
e38910065d55
bash-completion: --formatter-property choices: first working version
František Kučera <franta-hg@frantovo.cz>
parents:
220
diff
changeset
|
73 |
local property_choices_file=$formatter_dir/$property/choices; |
e38910065d55
bash-completion: --formatter-property choices: first working version
František Kučera <franta-hg@frantovo.cz>
parents:
220
diff
changeset
|
74 |
if [ -f $property_choices_file ]; then |
e38910065d55
bash-completion: --formatter-property choices: first working version
František Kučera <franta-hg@frantovo.cz>
parents:
220
diff
changeset
|
75 |
cat $property_choices_file; |
e38910065d55
bash-completion: --formatter-property choices: first working version
František Kučera <franta-hg@frantovo.cz>
parents:
220
diff
changeset
|
76 |
fi |
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
77 |
} |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
78 |
|
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
79 |
_sql_dk_bash_completion() { |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
80 |
local cur prev formatter |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
81 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
82 |
COMPREPLY=() |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
83 |
cur=${COMP_WORDS[COMP_CWORD]} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
84 |
prev=${COMP_WORDS[COMP_CWORD-1]} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
85 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
86 |
case "$prev" in |
159
9632b23df30c
InfoLister: list configured and configurable JDBC driver properties – option: --list-jdbc-properties
František Kučera <franta-hg@frantovo.cz>
parents:
110
diff
changeset
|
87 |
--db | --test-connection | --list-jdbc-properties) |
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
88 |
if [ -f '.$databasesFile.' ]; then |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
89 |
COMPREPLY=( $( compgen -W " $( cat '.$databasesFile.' ) " -- $cur ) ) |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
90 |
return 0 |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
91 |
fi |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
92 |
;; |
209
8dfe037b3274
property annotations: grounds for --list-formatter-properties
František Kučera <franta-hg@frantovo.cz>
parents:
159
diff
changeset
|
93 |
--formatter | --list-formatter-properties) |
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
94 |
if [ -f '.$formattersFile.' ]; then |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
95 |
COMPREPLY=( $( compgen -W " $( cat '.$formattersFile.' ) " -- $cur ) ) |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
96 |
else |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
97 |
COMPREPLY=( $( compgen -W " |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
98 |
'; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
99 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
100 |
while (<>) { |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
101 |
if (/"(.*?)".*? \/\/\s*bash-completion:formatter/) { |
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
102 |
print " $1\n"; |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
103 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
104 |
last if (/\/\/\s*bash-completion:options/); |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
105 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
106 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
107 |
|
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
108 |
print ' " -- $cur ) ); |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
109 |
fi |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
110 |
return 0 |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
111 |
;; |
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
112 |
--formatter-property) |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
113 |
formatter=$( _sql_dk_bash_completion_find_formatter "${COMP_WORDS[@]}" ); |
222
5ffeb18b6f85
bash_completion.pl: defaultFormatter
František Kučera <franta-hg@frantovo.cz>
parents:
221
diff
changeset
|
114 |
COMPREPLY=( $( compgen -W "$(_sql_dk_bash_completion_formatter_property_name )" -- $cur ) ); |
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
115 |
return 0; |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
116 |
;; |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
117 |
esac; |
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
118 |
|
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
119 |
if [ "x${COMP_WORDS[COMP_CWORD-2]}" == "x--formatter-property" ]; then |
221
e38910065d55
bash-completion: --formatter-property choices: first working version
František Kučera <franta-hg@frantovo.cz>
parents:
220
diff
changeset
|
120 |
formatter=$( _sql_dk_bash_completion_find_formatter "${COMP_WORDS[@]}" ); |
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
121 |
COMPREPLY=( $( compgen -W "$(_sql_dk_bash_completion_formatter_property_choice )" -- $cur ) ); |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
122 |
return 0; |
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
123 |
fi |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
124 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
125 |
COMPREPLY=( $( compgen -W " |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
126 |
'; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
127 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
128 |
while (<>) { |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
129 |
if (/"(.*?)".*? \/\/\s*bash-completion:option/) { |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
130 |
print " $1\n"; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
131 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
132 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
133 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
134 |
print ' " -- $cur ) ) |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
135 |
return 0 |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
136 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
137 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
138 |
|
220
0bc544b38cfa
bash-completion: --formatter-property names
František Kučera <franta-hg@frantovo.cz>
parents:
209
diff
changeset
|
139 |
complete -F _sql_dk_bash_completion sql-dk |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
140 |
'; |