1 #!/usr/bin/perl -w
3 use File::Compare qw(compare);
5 sub format_one {
6 my ($out, $name) = @_;
7 my ($state, $description);
8 $state = 0;
9 open I, '<', "$name.txt" or die "No such file $name.txt";
10 while (<I>) {
11 if (/^NAME$/) {
12 $state = 1;
13 next;
14 }
15 if ($state == 1 && /^----$/) {
16 $state = 2;
17 next;
18 }
19 next if ($state != 2);
20 chomp;
21 $description = $_;
22 last;
23 }
24 close I;
25 if (!defined $description) {
26 die "No description found in $name.txt";
27 }
28 if (my ($verify_name, $text) = ($description =~ /^($name) - (.*)/)) {
29 print $out "gitlink:$name\[1\]::\n";
30 print $out "\t$text.\n\n";
31 }
32 else {
33 die "Description does not match $name: $description";
34 }
35 }
37 my %cmds = ();
38 while (<DATA>) {
39 next if /^#/;
41 chomp;
42 my ($name, $cat) = /^(\S+)\s+(.*)$/;
43 push @{$cmds{$cat}}, $name;
44 }
46 for my $cat (qw(ancillaryinterrogators
47 ancillarymanipulators
48 mainporcelain
49 plumbinginterrogators
50 plumbingmanipulators
51 synchingrepositories
52 foreignscminterface
53 purehelpers
54 synchelpers)) {
55 my $out = "cmds-$cat.txt";
56 open O, '>', "$out+" or die "Cannot open output file $out+";
57 for (@{$cmds{$cat}}) {
58 format_one(\*O, $_);
59 }
60 close O;
62 if (-f "$out" && compare("$out", "$out+") == 0) {
63 unlink "$out+";
64 }
65 else {
66 print STDERR "$out\n";
67 rename "$out+", "$out";
68 }
69 }
71 __DATA__
72 git-add mainporcelain
73 git-am mainporcelain
74 git-annotate ancillaryinterrogators
75 git-applymbox ancillaryinterrogators
76 git-applypatch purehelpers
77 git-apply plumbingmanipulators
78 git-archimport foreignscminterface
79 git-archive mainporcelain
80 git-bisect mainporcelain
81 git-blame ancillaryinterrogators
82 git-branch mainporcelain
83 git-bundle mainporcelain
84 git-cat-file plumbinginterrogators
85 git-checkout-index plumbingmanipulators
86 git-checkout mainporcelain
87 git-check-ref-format purehelpers
88 git-cherry ancillaryinterrogators
89 git-cherry-pick mainporcelain
90 git-clean mainporcelain
91 git-clone mainporcelain
92 git-commit mainporcelain
93 git-commit-tree plumbingmanipulators
94 git-convert-objects ancillarymanipulators
95 git-count-objects ancillaryinterrogators
96 git-cvsexportcommit foreignscminterface
97 git-cvsimport foreignscminterface
98 git-cvsserver foreignscminterface
99 git-daemon synchingrepositories
100 git-describe mainporcelain
101 git-diff-files plumbinginterrogators
102 git-diff-index plumbinginterrogators
103 git-diff mainporcelain
104 git-diff-tree plumbinginterrogators
105 git-fast-import ancillarymanipulators
106 git-fetch mainporcelain
107 git-fetch-pack synchingrepositories
108 git-fmt-merge-msg purehelpers
109 git-for-each-ref plumbinginterrogators
110 git-format-patch mainporcelain
111 git-fsck ancillaryinterrogators
112 git-gc mainporcelain
113 git-get-tar-commit-id ancillaryinterrogators
114 git-grep mainporcelain
115 git-hash-object plumbingmanipulators
116 git-http-fetch synchelpers
117 git-http-push synchelpers
118 git-imap-send foreignscminterface
119 git-index-pack plumbingmanipulators
120 git-init mainporcelain
121 git-instaweb ancillaryinterrogators
122 gitk mainporcelain
123 git-local-fetch synchingrepositories
124 git-log mainporcelain
125 git-lost-found ancillarymanipulators
126 git-ls-files plumbinginterrogators
127 git-ls-remote plumbinginterrogators
128 git-ls-tree plumbinginterrogators
129 git-mailinfo purehelpers
130 git-mailsplit purehelpers
131 git-merge-base plumbinginterrogators
132 git-merge-file plumbingmanipulators
133 git-merge-index plumbingmanipulators
134 git-merge mainporcelain
135 git-merge-one-file purehelpers
136 git-merge-tree ancillaryinterrogators
137 git-mergetool ancillarymanipulators
138 git-mktag plumbingmanipulators
139 git-mktree plumbingmanipulators
140 git-mv mainporcelain
141 git-name-rev plumbinginterrogators
142 git-pack-objects plumbingmanipulators
143 git-pack-redundant plumbinginterrogators
144 git-pack-refs ancillarymanipulators
145 git-parse-remote synchelpers
146 git-patch-id purehelpers
147 git-peek-remote purehelpers
148 git-prune ancillarymanipulators
149 git-prune-packed plumbingmanipulators
150 git-pull mainporcelain
151 git-push mainporcelain
152 git-quiltimport foreignscminterface
153 git-read-tree plumbingmanipulators
154 git-rebase mainporcelain
155 git-receive-pack synchelpers
156 git-reflog ancillarymanipulators
157 git-relink ancillarymanipulators
158 git-repack ancillarymanipulators
159 git-config ancillarymanipulators
160 git-remote ancillarymanipulators
161 git-request-pull foreignscminterface
162 git-rerere ancillaryinterrogators
163 git-reset mainporcelain
164 git-revert mainporcelain
165 git-rev-list plumbinginterrogators
166 git-rev-parse ancillaryinterrogators
167 git-rm mainporcelain
168 git-runstatus ancillaryinterrogators
169 git-send-email foreignscminterface
170 git-send-pack synchingrepositories
171 git-shell synchelpers
172 git-shortlog mainporcelain
173 git-show mainporcelain
174 git-show-branch ancillaryinterrogators
175 git-show-index plumbinginterrogators
176 git-show-ref plumbinginterrogators
177 git-sh-setup purehelpers
178 git-ssh-fetch synchingrepositories
179 git-ssh-upload synchingrepositories
180 git-status mainporcelain
181 git-stripspace purehelpers
182 git-svn foreignscminterface
183 git-svnimport foreignscminterface
184 git-symbolic-ref plumbingmanipulators
185 git-tag mainporcelain
186 git-tar-tree plumbinginterrogators
187 git-unpack-file plumbinginterrogators
188 git-unpack-objects plumbingmanipulators
189 git-update-index plumbingmanipulators
190 git-update-ref plumbingmanipulators
191 git-update-server-info synchingrepositories
192 git-upload-archive synchelpers
193 git-upload-pack synchelpers
194 git-var plumbinginterrogators
195 git-verify-pack plumbinginterrogators
196 git-verify-tag ancillaryinterrogators
197 git-whatchanged ancillaryinterrogators
198 git-write-tree plumbingmanipulators