如何打开R-MASS.mo文件查看内容并转换为PO格式？

问题背景 #

我正在研究如何为R库的文档和消息实现多语言支持，发现MASS包采用了这种机制。比如它的意大利语翻译文件被编译成了二进制MO格式，路径为：
MASS_7.3-58.1\MASS\inst\po\it\LC_MESSAGES\R-MASS.mo

我的需求是：如何打开这个R-MASS.mo文件查看其中的意大利语内容，或者将其转换为可读的PO文本格式？

我已经在Windows和Debian虚拟机上安装了GNU gettext，但查手册没找到提取MO文件的方法。有没有可以读取该二进制文件并完成转换的R脚本？（类似readRDB处理.rdx/.rdb文件的方式）

解决方案 #

方法一：使用GNU gettext的msgunfmt命令 #

GNU gettext自带的msgunfmt工具就是专门用于将MO二进制文件转换回PO文本文件的，你之前可能忽略了这个命令：

• Debian/Linux环境：直接在终端执行以下命令，生成对应的PO文件：

  msgunfmt R-MASS.mo -o R-MASS.po
  

  生成的R-MASS.po可以用任意文本编辑器打开，直接查看意大利语翻译内容。

• Windows环境：如果是通过GnuWin32或Chocolatey安装的完整gettext工具包，找到msgunfmt.exe所在的目录（通常是gettext-tools\bin），在命令提示符或PowerShell中运行：

  .\msgunfmt.exe R-MASS.mo -o R-MASS.po
  

方法二：使用R脚本处理 #

如果你想用R完成转换或读取，有两种方式可选：

方式1：借助第三方包poio

poio是专门处理PO/MO文件的R包，操作简单：

# 安装并加载包
install.packages("poio")
library(poio)

# 读取MO文件
mo_content <- read_mo("R-MASS.mo")
# 转换为PO文件并保存
write_po(mo_content, "R-MASS.po")
# 直接在R中查看翻译内容
print(mo_content)

方式2：手动解析MO二进制结构（无依赖）

如果你不想依赖第三方包，可以手动解析MO文件的固定二进制结构（包含魔数、版本、条目偏移表等），以下是一个简化的实现脚本：

read_mo_simple <- function(file_path) {
  con <- file(file_path, "rb")
  on.exit(close(con))
  
  # 读取魔数判断字节序
  magic <- readBin(con, integer(), n = 1, size = 4)
  endian <- if (magic == as.integer(0x950412de)) "big" else "little"
  
  # 读取版本和条目数量
  version <- readBin(con, integer(), n = 1, size = 4, endian = endian)
  num_entries <- readBin(con, integer(), n = 1, size = 4, endian = endian)
  
  # 读取原始字符串与翻译字符串的偏移表
  orig_table <- matrix(readBin(con, integer(), n = num_entries*2, size = 4, endian = endian), ncol = 2)
  trans_table <- matrix(readBin(con, integer(), n = num_entries*2, size = 4, endian = endian), ncol = 2)
  
  translations <- list()
  for (i in seq_len(num_entries)) {
    # 读取原始字符串
    seek(con, orig_table[i, 1])
    orig_str <- readBin(con, character(), n = 1, size = orig_table[i, 2])
    # 读取翻译字符串
    seek(con, trans_table[i, 1])
    trans_str <- readBin(con, character(), n = 1, size = trans_table[i, 2])
    
    if (nzchar(orig_str)) translations[[orig_str]] <- trans_str
  }
  
  return(translations)
}

# 使用示例：读取并查看翻译内容
it_translations <- read_mo_simple("R-MASS.mo")
head(it_translations)

内容的提问来源于stack exchange，提问作者mshaffer