author | František Kučera <franta-hg@frantovo.cz> |
Fri, 27 Dec 2013 18:16:45 +0100 | |
branch | v_0 |
changeset 82 | adea6d8d3708 |
parent 81 | 847c83288d01 |
child 83 | 9563232ea0b7 |
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 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
3 |
# 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
|
4 |
# 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
|
5 |
# 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
|
6 |
# 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
|
7 |
# 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
|
8 |
|
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
9 |
# 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
|
10 |
|
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
11 |
use strict; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
12 |
use warnings; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
13 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
14 |
my $configDir = "~"; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
15 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
16 |
while (<>) { |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
17 |
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
|
18 |
$configDir .= "/$1"; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
19 |
last; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
20 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
21 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
22 |
|
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
23 |
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
|
24 |
my $formattersFile = "$configDir/bash-completion/formatters"; |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
25 |
|
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
26 |
print 'have sql-dk && |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
27 |
_sql_dk() |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
28 |
{ |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
29 |
local cur prev |
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 |
COMPREPLY=() |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
32 |
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
|
33 |
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
|
34 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
35 |
case "$prev" in |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
36 |
--db) |
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
37 |
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
|
38 |
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
|
39 |
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
|
40 |
fi |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
41 |
;; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
42 |
--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
|
43 |
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
|
44 |
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
|
45 |
else |
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
46 |
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
|
47 |
'; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
48 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
49 |
while (<>) { |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
50 |
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
|
51 |
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
|
52 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
53 |
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
|
54 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
55 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
56 |
|
82
adea6d8d3708
bash completion: use dynamic completion derived from configuration if available
František Kučera <franta-hg@frantovo.cz>
parents:
81
diff
changeset
|
57 |
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
|
58 |
fi |
81
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
59 |
return 0 |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
60 |
;; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
61 |
esac; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
62 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
63 |
COMPREPLY=( $( compgen -W " |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
64 |
'; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
65 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
66 |
while (<>) { |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
67 |
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
|
68 |
print " $1\n"; |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
69 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
70 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
71 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
72 |
print ' " -- $cur ) ) |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
73 |
return 0 |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
74 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
75 |
} |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
76 |
|
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
77 |
complete -F _sql_dk sql-dk |
847c83288d01
bash completion: perl + bash + ant for generating completion script
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
78 |
'; |