Merge from vendor branch DIFFUTILS:
[dragonfly.git] / contrib / diffutils-2.8.1 / exgettext
1 #! /bin/sh
2 # Wrapper around gettext for programs using the msgid convention.
3
4 # Copyright (C) 1998, 2001 Free Software Foundation, Inc.
5
6 # Written by Paul Eggert <eggert@twinsun.com>.
7
8 # This program is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 2, or (at your option)
11 # any later version.
12
13 # This program is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 # GNU General Public License for more details.
17
18 # You should have received a copy of the GNU General Public License
19 # along with GNU CC; see the file COPYING.  If not, write to
20 # the Free Software Foundation, 59 Temple Place - Suite 330,
21 # Boston, MA 02111-1307, USA.
22
23 # Always operate in the C locale.
24 LANG=C
25 LANGUAGE=C
26 LC_ALL=C
27 export LANG LANGUAGE LC_ALL
28
29 # Set AWK if environment has not already set it.
30 AWK=${AWK-awk}
31
32 # The argument to this wrapper is the xgettext command to be executed.
33 # Extract the xgettext program name from the rest of the command.
34 xgettext=${1?}
35 shift
36
37 # Save work if we're just wrapping a no-op.
38 case $xgettext in
39 :) exit;;
40 esac
41
42 # Find the files to be scanned, and the directory to scan them from.
43 directory=.
44 files=
45 for i
46 do
47   case $i in
48   --directory=*)
49     directory=`expr " $i" : ' --directory=\(.*\)'`;;
50   --files-from=*)
51     files_from=`expr " $i" : ' --files-from=\(.*\)'`
52     files=`$AWK '/^[^#]/ { print }' $files_from`;;
53   esac
54 done
55
56 # Generate keyword options for xgettext,
57 # by scanning for declarations of functions
58 # whose parameter names end in "msgid".
59 generate_keyword_options='
60   /^[A-Z_a-z].*\(.*msgid[,)]/ {
61
62     paren_index = index($0, "(")
63
64     name = substr($0, 1, paren_index - 1)
65     sub(/[^0-9A-Z_a-z]*$/, "", name)
66     sub(/[       ]+PARAMS/, "", name)
67     sub(/[       ]+VPARAMS/, "", name)
68     sub(/.*[^0-9A-Z_a-z]/, "", name)
69
70     args = substr($0, paren_index)
71     sub(/msgid[,)].*/, "", args)
72     for (n = 1; sub(/^[^,]*,/, "", args); n++) {
73       continue;
74     }
75
76     if (n == 1) {
77       keyword = name
78     } else {
79       keyword = name ":" n
80     }
81
82     if (! keyword_seen[keyword]++) {
83       print "--keyword=" keyword
84     }
85   }
86 '
87 keyword_options=`(
88   cd $directory &&
89   $AWK "$generate_keyword_options" $files < /dev/null
90 )` || exit
91
92 # Generate temporary file reflecting the %e strings in the scanned files.
93 tmp=tmp-emsgids.c
94
95 generate_emsgids='
96   /%e.*}/ {
97     line = $0
98     while ((percent_index = index(line, "%e")) != 0) {
99       line = substr(line, percent_index + 2)
100       bracket_index = index(line, "}")
101       if (bracket_index == 0) {
102         continue
103       }
104       msgid = substr(line, 1, bracket_index - 1)
105       if (index(msgid, "%") != 0) {
106         continue
107       }
108       printf "#line %d \"%s\"\n", FNR, FILENAME
109       printf "_(\"%s\")\n", msgid
110       line = substr(line, bracket_index + 1)
111     }
112   }
113 '
114 (cd $directory &&
115  $AWK "$generate_emsgids" $files < /dev/null
116 ) > $directory/$tmp || exit
117
118 # Run the xgettext command, with temporary added as a file to scan.
119 "$xgettext" $keyword_options ${1+"$@"} $tmp || exit
120
121 # Clean up.
122 # If we don't get here, `make clean' will remove this file later.
123 rm -f $directory/$tmp