Commit 9d9cf23

@@ -0,0 +1,152 @@
+// 部分取自 modern-nju-thesis
+
+// 双语参考文献
+#let bilingual-bibliography(
+  bibliography: none,
+  title: [参考文献#metadata((en: "References"))],
+  full: false,
+  style: "gb-7714-2005-numeric",
+  mapping: (:),
+  extra-comma-before-et-al-trans: false,
+  // 用于控制多位译者时表现为 `et al. tran`(false) 还是 `et al., tran`(true)
+  allow-comma-in-name: false,
+  // 如果使用的 CSL 中，英文姓名中会出现逗号，请设置为 true
+) = {
+  assert(bibliography != none, message: "请传入带有 source 的 bibliography 函数。")
+
+  // Please fill in the remaining mapping table here
+  mapping = (
+    (
+      //"等": "et al",
+      "卷": "Vol.",
+      "册": "Bk.",
+      // "译": ", tran",
+      // "等译": "et al. tran",
+      // 注: 请见下方译者数量判断部分。
+    )
+      + mapping
+  )
+
+  let to-string(content) = {
+    if content.has("text") {
+      content.text
+    } else if content.has("children") {
+      content.children.map(to-string).join("")
+    } else if content.has("child") {
+      to-string(content.child)
+    } else if content.has("body") {
+      to-string(content.body)
+    } else if content == [ ] {
+      " "
+    }
+  }
+
+  show grid.cell.where(x: 1): it => {
+    // 后续的操作是对 string 进行的。
+    let ittext = to-string(it)
+    // 判断是否为中文文献：去除特定词组后，仍有至少两个连续汉字。
+    let pureittext = ittext.replace(regex("[等卷册和版本章期页篇译间者(不详)]"), "")
+    if pureittext.find(regex("\p{sc=Hani}{2,}")) != none {
+      ittext
+    } else {
+      // 若不是中文文献，进行替换
+      // 第xxx卷、第xxx册的情况：变为 Vol. XXX 或 Bk. XXX。
+      let reptext = ittext
+      reptext = reptext.replace(
+        regex("(第\s?)?\d+\s?[卷册]"),
+        itt => {
+          if itt.text.contains("卷") {
+            "Vol. "
+          } else {
+            "Bk. "
+          }
+          itt.text.find(regex("\d+"))
+        },
+      )
+
+      // 第xxx版/第xxx本的情况：变为 1st ed 格式。
+      reptext = reptext.replace(
+        regex("(第\s?)?\d+\s?[版本]"),
+        itt => {
+          let num = itt.text.find(regex("\d+"))
+          num
+          if num.clusters().len() == 2 and num.clusters().first() == "1" {
+            "th"
+          } else {
+            (
+              "1": "st",
+              "2": "nd",
+              "3": "rd",
+            ).at(num.clusters().last(), default: "th")
+          }
+          " ed"
+        },
+      )
+
+      // 译者数量判断：单数时需要用 trans，复数时需要用 tran 。
+      /*
+      注:
+          1. 目前判断译者数量的方法非常草率：有逗号就是多个作者。但是在部分 GB/T 7714-2015 方言中，姓名中可以含有逗号。如果使用的 CSL 是姓名中含有逗号的版本，请将 bilingual-bibliography 的 allow-comma-in-name 参数设为 true。
+          2. 在 GB/T 7714-2015 原文中有 `等译`（P15 10.1.3 小节 示例 1-[1] 等），但未给出相应的英文缩写翻译。CSL 社区库内的 GB/T 7714-2015 会使用 `等, 译` 和 `et al., tran` 的写法。为使中英文与标准原文写法一致，本小工具会译作 `et al. tran`。若需要添加逗号，请将 bilingual-bibliography 的 extra-comma-before-et-al-trans 参数设为 true。
+          3. GB/T 7714-2015 P8 7.2 小节规定：“译”前需加逗号。因此单个作者的情形，“译” 会被替换为 ", trans"。与“等”并用时的情况请见上一条注。
+          如果工作不正常，可以考虑换为简单关键词替换，即注释这段情况，取消 13 行 mapping 内 `译` 条目的注释。
+      */
+      reptext = reptext.replace(
+        regex("\].+?译"),
+        itt => {
+          // 我想让上面这一行匹配变成非贪婪的，但加问号后没啥效果？
+          let comma-in-itt = itt.text.replace(regex(",?\s?译"), "").matches(",")
+          if (
+            type(comma-in-itt) == array
+              and comma-in-itt.len()
+                >= (
+                  if allow-comma-in-name { 2 } else { 1 }
+                )
+          ) {
+            if extra-comma-before-et-al-trans {
+              itt.text.replace(regex(",?\s?译"), ", tran")
+            } else {
+              itt.text.replace(regex(",?\s?译"), " tran")
+            }
+          } else {
+            itt.text.replace(regex(",?\s?译"), ", trans")
+          }
+        },
+      )
+
+      // `等` 特殊处理：`等`后方接内容也需要译作 `et al.`，如 `等译` 需要翻译为 `et al. trans`
+      reptext = reptext.replace(
+        regex("等."),
+        itt => {
+          "et al."
+          // 如果原文就是 `等.`，则仅需简单替换，不需要额外处理
+          // 如果原文 `等` 后没有跟随英文标点，则需要补充一个空格
+          if not itt.text.last() in (".", ",", ";", ":", "[", "]", "/", "\\", "<", ">", "?", "(", ")", " ", "\"", "'") {
+            " "
+          }
+          // 原文有英文句号时不需要重复句号，否则需要将匹配到的最后一个字符吐回来
+          if not itt.text.last() == "." {
+            itt.text.last()
+          }
+        },
+      )
+
+      // 其他情况：直接替换
+      reptext = reptext.replace(
+        regex("\p{sc=Hani}+"),
+        itt => {
+          mapping.at(itt.text, default: itt.text)
+          // 注意：若替换功能工作良好，应该不会出现 `default` 情形
+        },
+      )
+      reptext
+    }
+  }
+
+  set text(lang: "zh")
+  bibliography(
+    title: title,
+    full: full,
+    style: style,
+  )
+}

@@ -9,6 +9,7 @@
 #import "pages/bachelor-abstract-en.typ": bachelor-abstract-en
 #import "pages/bachelor-outline-page.typ": bachelor-outline-page
 #import "pages/bachelor-outline-page-en.typ": bachelor-outline-page-en
+#import "pages/bilingual-bibliography.typ": bilingual-bibliography
 #import "utils/style.typ": 字体, 字号
 
 // 使用函数闭包特性，通过 `documentclass` 函数类进行全局信息配置，然后暴露出拥有了全局配置的、具体的 `layouts` 和 `templates` 内部函数。
@@ -103,5 +104,7 @@
       ..args,
       fonts: fonts + args.named().at("fonts", default: (:)),
     ),
+    // 双语参考文献页
+    bilingual-bibliography: (..args) => bilingual-bibliography(..args),
   )
 }