add 01textpre

texjporg · Mar 4, 2022 · dbb8b4f · dbb8b4f
1 parent 9d1bf86
commit dbb8b4f
Show file tree

Hide file tree

Showing 6 changed files with 305 additions and 0 deletions.
diff --git a/tests/01textpre-p.bbl.base b/tests/01textpre-p.bbl.base
@@ -0,0 +1,23 @@
+\verb|text.prefix$| の動作 \\
+\\
+\noindent あいうえおの最初の1文字 = 「あ」
+\\ あいうえおの最初の2文字 = 「あ」
+\\ あいうえおの最初の3文字 = 「あい」
+\\ あいうえおの最初の4文字 = 「あい」
+\\ あいうえおの最初の5文字 = 「あいう」
+\\ あいうえおの最初の6文字 = 「あいう」
+\\ abcdefの最初の1文字 = 「a」
+\\ abcdefの最初の2文字 = 「ab」
+\\ abcdefの最初の3文字 = 「abc」
+\\ abcdefの最初の4文字 = 「abcd」
+\\ abcdefの最初の5文字 = 「abcde」
+\\ abcdefの最初の6文字 = 「abcdef」
+
+\begin{thebibliography}{9}
+
+\bibitem{dek}
+Donald~E. Knuth.
+\newblock {\em The Art of Computer Programming}.
+\newblock 1973.
+
+\end{thebibliography}
diff --git a/tests/01textpre-p.tex b/tests/01textpre-p.tex
@@ -0,0 +1,12 @@
+\documentclass[a4j,10pt]{jarticle}
+
+\begin{document}
+
+\texttt{pbibtex} を利用するケース。
+\vspace*{1em}
+
+\cite{dek}
+\bibliographystyle{01textpre}
+\bibliography{01test}
+
+\end{document}
diff --git a/tests/01textpre-up.bbl.base b/tests/01textpre-up.bbl.base
@@ -0,0 +1,23 @@
+\verb|text.prefix$| の動作 \\
+\\
+\noindent あいうえおの最初の1文字 = 「あ」
+\\ あいうえおの最初の2文字 = 「あ」
+\\ あいうえおの最初の3文字 = 「あ」
+\\ あいうえおの最初の4文字 = 「あい」
+\\ あいうえおの最初の5文字 = 「あい」
+\\ あいうえおの最初の6文字 = 「あい」
+\\ abcdefの最初の1文字 = 「a」
+\\ abcdefの最初の2文字 = 「ab」
+\\ abcdefの最初の3文字 = 「abc」
+\\ abcdefの最初の4文字 = 「abcd」
+\\ abcdefの最初の5文字 = 「abcde」
+\\ abcdefの最初の6文字 = 「abcdef」
+
+\begin{thebibliography}{9}
+
+\bibitem{dek}
+Donald~E. Knuth.
+\newblock {\em The Art of Computer Programming}.
+\newblock 1973.
+
+\end{thebibliography}
diff --git a/tests/01textpre-up.tex b/tests/01textpre-up.tex
@@ -0,0 +1,12 @@
+\documentclass[a4j,10pt]{ujarticle}
+
+\begin{document}
+
+\texttt{upbibtex} を利用するケース。
+\vspace*{1em}
+
+\cite{dek}
+\bibliographystyle{01textpre}
+\bibliography{01test}
+
+\end{document}
diff --git a/tests/01textpre.bst b/tests/01textpre.bst
@@ -0,0 +1,219 @@
+% Sample BST for testing (u)pbibtex
+% 日本語文字を含みます
+
+ENTRY
+  { author
+    title
+    year
+  }
+  {is.kanji.entry}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block }
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+}
+STRINGS { s t }
+
+FUNCTION {output.nonnull}
+{ 's :=
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+	{
+          add.period$ write$
+	  newline$
+	  "\newblock " write$
+	}
+	{ output.state before.all =
+	    'write$
+	    { add.period$ " " * write$ }
+	  if$
+	}
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+  s
+}
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem{" write$
+  cite$ write$
+  "}" write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+FUNCTION {fin.entry}
+{
+  add.period$
+  write$
+  newline$
+}
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "{\em " swap$ * "}" * }
+  if$
+}
+
+INTEGERS { nameptr namesleft numnames }
+FUNCTION {format.names}
+{ 's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr "{ff~}{vv~}{ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { namesleft #1 >
+            { ", " * t * }
+            { numnames #2 >
+                { "," * }
+                'skip$
+              if$
+              t "others" =
+                { " et~al." * }
+                { " and " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { "" }
+    { year }
+  if$
+}
+
+FUNCTION {format.btitle}
+{ title emphasize
+}
+
+FUNCTION {book}
+{ output.bibitem
+  format.authors output.nonnull
+  new.block
+  format.btitle "title" output.check
+  new.block
+  format.date "year" output.check
+  fin.entry
+}
+
+FUNCTION {default.type} { book }
+
+READ
+
+SORT
+
+STRINGS { str }
+FUNCTION {check.text.prefix}
+{
+  % forum:2006
+  "\verb|text.prefix$| の動作 \\" write$  newline$
+  "\\" write$  newline$
+  "あいうえお" #1 text.prefix$ 'str :=
+  "\noindent あいうえおの最初の1文字 = 「" str * "」" * write$  newline$
+  "あいうえお" #2 text.prefix$ 'str :=
+  "\\ あいうえおの最初の2文字 = 「" str * "」" * write$  newline$
+  "あいうえお" #3 text.prefix$ 'str :=
+  "\\ あいうえおの最初の3文字 = 「" str * "」" * write$  newline$
+  "あいうえお" #4 text.prefix$ 'str :=
+  "\\ あいうえおの最初の4文字 = 「" str * "」" * write$  newline$
+  "あいうえお" #5 text.prefix$ 'str :=
+  "\\ あいうえおの最初の5文字 = 「" str * "」" * write$  newline$
+  "あいうえお" #6 text.prefix$ 'str :=
+  "\\ あいうえおの最初の6文字 = 「" str * "」" * write$  newline$
+  "abcdef" #1 text.prefix$ 'str :=
+  "\\ abcdefの最初の1文字 = 「" str * "」" * write$  newline$
+  "abcdef" #2 text.prefix$ 'str :=
+  "\\ abcdefの最初の2文字 = 「" str * "」" * write$  newline$
+  "abcdef" #3 text.prefix$ 'str :=
+  "\\ abcdefの最初の3文字 = 「" str * "」" * write$  newline$
+  "abcdef" #4 text.prefix$ 'str :=
+  "\\ abcdefの最初の4文字 = 「" str * "」" * write$  newline$
+  "abcdef" #5 text.prefix$ 'str :=
+  "\\ abcdefの最初の5文字 = 「" str * "」" * write$  newline$
+  "abcdef" #6 text.prefix$ 'str :=
+  "\\ abcdefの最初の6文字 = 「" str * "」" * write$  newline$
+  newline$
+}
+EXECUTE {check.text.prefix}
+
+FUNCTION {begin.bib}
+{ preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+  "\begin{thebibliography}{9}" write$ newline$
+}
+EXECUTE {begin.bib}
+EXECUTE {init.state.consts}
+ITERATE {call.type$}
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+EXECUTE {end.bib}
diff --git a/tests/test.sh b/tests/test.sh
@@ -32,6 +32,22 @@ uplatex -kanji=utf8 01substring-up
 dvipdfmx 01substring-up
 diff 01substring-up.bbl.base 01substring-up.bbl || exit 1
 
+### 01textpre: text.prefix$
+
+platex -kanji=utf8 01textpre-p
+pbibtex -kanji=utf8 01textpre-p
+platex -kanji=utf8 01textpre-p
+platex -kanji=utf8 01textpre-p
+dvipdfmx 01textpre-p
+diff 01textpre-p.bbl.base 01textpre-p.bbl || exit 1
+
+uplatex -kanji=utf8 01textpre-up
+upbibtex -kanji=utf8 01textpre-up
+uplatex -kanji=utf8 01textpre-up
+uplatex -kanji=utf8 01textpre-up
+dvipdfmx 01textpre-up
+diff 01textpre-up.bbl.base 01textpre-up.bbl || exit 1
+
 ### 02jnewline: line break in BBL output
 
 ptex -kanji=utf8 02jnewline