Mercurial > octave-nkf

annotate src/mk-errno-list @ 6021:60f9ced8ab53 ss-2-9-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-02 20:02:20 by jwe]
author jwe
date Mon, 02 Oct 2006 20:02:21 +0000
parents 73a87a677257
children 4270ded9ddc6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5494
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
1 #! /bin/sh
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
2
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
3 if [ $# -ne 2 ]; then
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
4 echo "usage: get-errno-list [--perl PERL|--python PYTHON]" 1>&2
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
5 exit 1
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
6 fi
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
7
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
8 if [ $1 = "--perl" ]; then
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
9 PERL="$2";
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
10 $PERL -e 'foreach $key (keys(%!)) {
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
11 $x .= "#if defined ($key)\n { \"$key\", $key, },\n#endif\n";
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
12 }
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
13 while (<>) {
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
14 s/^ *\@SYSDEP_ERRNO_LIST\@/$ x/;
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
15 print;
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
16 }'
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
17
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
18 elif [ $1 = "--python" ]; then
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
19 PYTHON="$2";
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
20 $PYTHON -c '
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
21 from errno import errorcode
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
22 from sys import stdin
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
23
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
24 t = "#if defined (%s)\n { \"%s\", %s, },\n#endif\n"
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
25 errstr = ""
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
26 for k in errorcode.keys():
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
27 errstr += t % tuple(3*[errorcode[k]])
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
28
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
29 for l in stdin:
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
30 print l.replace("@SYSDEP_ERRNO_LIST@", errstr),
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
31 '
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
32 fi
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
33
73a87a677257 [project @ 2005-10-14 07:29:20 by jwe]
jwe
parents:
diff changeset
34 exit $?