1#!/usr/bin/perl 2 3my @translator_help = ( 4 "#. The strings in e2fsck's problem.c can be very hard to translate,\n", 5 "#. since the strings are expanded in two different ways. First of all,\n", 6 "#. there is an \@-expansion, where strings like \"\@i\" are expanded to\n", 7 "#. \"inode\", and so on. In order to make it easier for translators, the\n", 8 "#. e2fsprogs po template file has been enhanced with comments that show\n", 9 "#. the \@-expansion, for the strings in the problem.c file.\n", 10 "#.\n", 11 "#. Translators are free to use the \@-expansion facility if they so\n", 12 "#. choose, by providing translations for strings in e2fsck/message.c.\n", 13 "#. These translation can completely replace an expansion; for example,\n", 14 "#. if \"bblock\" (which indicated that \"\@b\" would be expanded to \"block\")\n", 15 "#. is translated as \"ddatenverlust\", then \"\@d\" will be expanded to\n", 16 "#. \"datenverlust\". Alternatively, translators can simply not use the\n", 17 "#. \@-expansion facility at all.\n", 18 "#.\n", 19 "#. The second expansion which is done for e2fsck's problem.c messages is\n", 20 "#. a dynamic %-expansion, which expands %i as an inode number, and so\n", 21 "#. on. A table of these expansions can be found below. Note that\n", 22 "#. %-expressions that begin with \"%D\" and \"%I\" are two-character\n", 23 "#. expansions; so for example, \"%Iu\" expands to the inode's user id\n", 24 "#. ownership field (inode->i_uid). Also the \"%B\" expansion is special:\n", 25 "#. it can expand to either the string \"indirect block\" (possibly preceded\n", 26 "#. by the word \"double\" or \"triple\"), or the string \"block #\" immediately\n", 27 "#. followed by an integer indicating a block sequence number.\n", 28 "#.\n", 29 "#. Please note that the %-expansion for most e2fsck's problem.c should not\n", 30 "#. use positional indicators such as %1$c, since although they look like c-style\n", 31 "#. format strings, they are NOT c-style format strings, and the positional\n", 32 "#. indicators (which BTW are GNU extensions and so won't work on other Unix\n", 33 "#. gettext implementations) won't work with e2fsck's print_e2fsck_message()\n", 34 "#. function found in e2fsck/message.c\n", 35 "#.\n", 36 "#. %b <blk> block number\n", 37 "#. %B \"indirect block\" | \"block #\"<blkcount> string | string+integer\n", 38 "#. %c <blk2> block number\n", 39 "#. %Di <dirent> -> ino inode number\n", 40 "#. %Dn <dirent> -> name string\n", 41 "#. %Dr <dirent> -> rec_len\n", 42 "#. %Dl <dirent> -> name_len\n", 43 "#. %Dt <dirent> -> filetype\n", 44 "#. %d <dir> inode number\n", 45 "#. %g <group> integer\n", 46 "#. %i <ino> inode number\n", 47 "#. %Is <inode> -> i_size\n", 48 "#. %IS <inode> -> i_extra_isize\n", 49 "#. %Ib <inode> -> i_blocks\n", 50 "#. %Il <inode> -> i_links_count\n", 51 "#. %Im <inode> -> i_mode\n", 52 "#. %IM <inode> -> i_mtime\n", 53 "#. %IF <inode> -> i_faddr\n", 54 "#. %If <inode> -> i_file_acl\n", 55 "#. %Id <inode> -> i_size_high\n", 56 "#. %Iu <inode> -> i_uid\n", 57 "#. %Ig <inode> -> i_gid\n", 58 "#. %It <str> file type\n", 59 "#. %j <ino2> inode number\n", 60 "#. %m <com_err error message>\n", 61 "#. %N <num>\n", 62 "#. %p ext2fs_get_pathname of directory <ino>\n", 63 "#. %P ext2fs_get_pathname of <dirent>->ino with <ino2> as\n", 64 "#. the containing directory. (If dirent is NULL\n", 65 "#. then return the pathname of directory <ino2>)\n", 66 "#. %q ext2fs_get_pathname of directory <dir>\n", 67 "#. %Q ext2fs_get_pathname of directory <ino> with <dir> as\n", 68 "#. the containing directory.\n", 69 "#. %s <str> miscellaneous string\n", 70 "#. %S backup superblock\n", 71 "#. %X <num> hexadecimal format\n", 72 "#.\n"); 73 74my $is_problem_file = 0; 75my $save_msg; 76my $msg_accum = ""; 77my $msg; 78my $expanded = 0; 79my $lines = 0; 80 81sub do_expand { 82 $msg =~ s/\@a/extended attribute/g; 83 $msg =~ s/\@A/error allocating/g; 84 $msg =~ s/\@b/block/g; 85 $msg =~ s/\@B/bitmap/g; 86 $msg =~ s/\@c/compress/g; 87 $msg =~ s/\@C/conflicts with some other fs block/g; 88 $msg =~ s/\@i/inode/g; 89 $msg =~ s/\@I/illegal/g; 90 $msg =~ s/\@j/journal/g; 91 $msg =~ s/\@D/deleted/g; 92 $msg =~ s/\@d/directory/g; 93 $msg =~ s/\@e/entry/g; 94 $msg =~ s/\@E/entry '%Dn' in %p (%i)/g; 95 $msg =~ s/\@f/filesystem/g; 96 $msg =~ s/\@F/for inode %i (%Q) is/g; 97 $msg =~ s/\@g/group/g; 98 $msg =~ s/\@h/HTREE directory inode/g; 99 $msg =~ s/\@l/lost+found/g; 100 $msg =~ s/\@L/is a link/g; 101 $msg =~ s/\@m/multiply-claimed/g; 102 $msg =~ s/\@n/invalid/g; 103 $msg =~ s/\@o/orphaned/g; 104 $msg =~ s/\@p/problem in/g; 105 $msg =~ s/\@q/quota/g; 106 $msg =~ s/\@r/root inode/g; 107 $msg =~ s/\@s/should be/g; 108 $msg =~ s/\@S/superblock/g; 109 $msg =~ s/\@u/unattached/g; 110 $msg =~ s/\@v/device/g; 111 $msg =~ s/\@x/extent/g; 112 $msg =~ s/\@z/zero-length/g; 113 $msg =~ s/\@\@/@/g; 114} 115 116 117while (<>) { 118 $lines++; 119 if ($lines == 6) { 120 print @translator_help; 121 } 122 if (/^#: /) 123 { 124 $is_problem_file = (/^#: e2fsck\/problem/) ? 1 : 0; 125 } 126 $msg = ""; 127 if (/^msgid / && $is_problem_file) { 128 ($msg) = /^msgid "(.*)"$/; 129 $save_msgid = $_; 130 if ($msg =~ /\@/) { 131 $expanded++; 132 } 133 &do_expand(); 134 if ($msg ne "") { 135 $msg_accum = $msg_accum . "#. \@-expanded: $msg\n"; 136 } 137 next; 138 } 139 if (/^"/ && $is_problem_file) { 140 ($msg) = /^"(.*)"$/; 141 $save_msgid = $save_msgid . $_; 142 if ($msg =~ /\@/) { 143 $expanded++; 144 } 145 &do_expand(); 146 $msg_accum = $msg_accum . "#. \@-expanded: $msg\n"; 147 next; 148 } 149 if (/^msgstr / && $is_problem_file) { 150 if ($expanded) { 151 print $msg_accum; 152 } 153 print $save_msgid; 154 $msg_accum = ""; 155 $expanded = 0; 156 } 157 print $_; 158} 159