xopen-msg.sed
上传用户:xxcykj
上传日期:2007-01-04
资源大小:727k
文件大小:3k
- # po2msg.sed - Convert Uniforum style .po file to X/Open style .msg file
- # Copyright (C) 1995 Free Software Foundation, Inc.
- # Ulrich Drepper <drepper@gnu.ai.mit.edu>, 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.
- #
- #
- # The first directive in the .msg should be the definition of the
- # message set number. We use always set number 1.
- #
- 1 {
- i
- $set 1 # Automatically created by po2msg.sed
- h
- s/.*/0/
- x
- }
- #
- # We copy all comments into the .msg file. Perhaps they can help.
- #
- /^#/ s/^#[ ]*/$ /p
- #
- # We copy the original message as a comment into the .msg file.
- #
- /^msgid/ {
- # Does not work now
- # /"$/! {
- # s/\$//
- # s/$/ ... (more lines following)"/
- # }
- s/^msgid[ ]*"(.*)"$/$ Original Message: 1/
- p
- }
- #
- # The .msg file contains, other then the .po file, only the translations
- # but each given a unique ID. Starting from 1 and incrementing by 1 for
- # each message we assign them to the messages.
- # It is important that the .po file used to generate the cat-id-tbl.c file
- # (with po-to-tbl) is the same as the one used here. (At least the order
- # of declarations must not be changed.)
- #
- /^msgstr/ {
- s/msgstr[ ]*"(.*)"/1/
- x
- # The following nice solution is by
- # Bruno <Haible@ma2s2.mathematik.uni-karlsruhe.de>
- 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/^(_*)$/01/
- # Increment the last digit.
- s/8(_*)$/91/
- s/7(_*)$/81/
- s/6(_*)$/71/
- s/5(_*)$/61/
- s/4(_*)$/51/
- s/3(_*)$/41/
- s/2(_*)$/31/
- s/1(_*)$/21/
- s/0(_*)$/11/
- # Convert the hidden `9' digits to `0's.
- s/_/0/g
- x
- # Bring the line in the format `<number> <message>'
- G
- s/^[^n]*$/& /
- s/(.*)n([0-9]*)/2 1/
- # Clear flag from last substitution.
- tb
- # Append the next line.
- :b
- N
- # Look whether second part is a continuation line.
- s/(.*n)"(.*)"/12/
- # Yes, then branch.
- ta
- P
- D
- # Note that `D' includes a jump to the start!!
- # We found a continuation line. But before printing insert ''.
- :a
- s/(.*)(n.*)/1\2/
- P
- # We cannot use the sed command `D' here
- s/.*n(.*)/1/
- tb
- }
- d