Subversion Repositories or1k

# po2tbl.sed - Convert Uniforum style .po file to lookup table for catgets

# Copyright (C) 1995 Free Software Foundation, Inc.

# Ulrich Drepper , 1995.

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2, or (at your option)

# any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

#

1 {

  i\

/* Automatically generated by po2tbl.sed from @PACKAGE NAME@.pot.  */\

\

#if HAVE_CONFIG_H\

# include \

#endif\

\

#include "libgettext.h"\

\

const struct _msg_ent _msg_tbl[] = {

  h

  s/.*/0/

  x

}

#

# Write msgid entries in C array form.

#

/^msgid/ {

  s/msgid[      ]*\(".*"\)/  {\1/

  tb

# Append the next line

  :b

  N

# Look whether second part is continuation line.

  s/\(.*\)"\(\n\)"\(.*"\)/\1\2\3/

# Yes, then branch.

  ta

# Because we assume that the input file correctly formed the line

# just read cannot be again be a msgid line.  So it's safe to ignore

# it.

  s/\(.*\)\n.*/\1/

  bc

# We found a continuation line.  But before printing insert '\'.

  :a

  s/\(.*\)\(\n.*\)/\1\\\2/

  P

# We cannot use D here.

  s/.*\n\(.*\)/\1/

# Some buggy seds do not clear the `successful substitution since last ``t'''

# flag on `N', so we do a `t' here to clear it.

  tb

# Not reached

  :c

  x

# The following nice solution is by

# Bruno 

  td

# Increment a decimal number in pattern space.

# First hide trailing `9' digits.

  :d

  s/9\(_*\)$/_\1/

  td

# Assure at least one digit is available.

  s/^\(_*\)$/0\1/

# Increment the last digit.

  s/8\(_*\)$/9\1/

  s/7\(_*\)$/8\1/

  s/6\(_*\)$/7\1/

  s/5\(_*\)$/6\1/

  s/4\(_*\)$/5\1/

  s/3\(_*\)$/4\1/

  s/2\(_*\)$/3\1/

  s/1\(_*\)$/2\1/

  s/0\(_*\)$/1\1/

# Convert the hidden `9' digits to `0's.

  s/_/0/g

  x

  G

  s/\(.*\)\n\([0-9]*\)/\1, \2},/

  s/\(.*\)"$/\1/

  p

}

#

# Last line.

#

$ {

  i\

};\

  g

  s/0*\(.*\)/int _msg_tbl_length = \1;/p

}

d