summaryrefslogtreecommitdiff
path: root/biblio/bibtex/bibtex-x/tests/testiscjk.bst
blob: c744b6548cb702868549ccadc44222503ea144aa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
% BibTeXu test style file
% Copyright 2022 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
% You may freely use, modify and/or distribute this file.
%
% Test for built-in functions is.cjk.str$ and is.kanji.str$

ENTRY {field}{}{}

FUNCTION {output_entry} {
  "\item " field * write$
      ": " field is.cjk.str$ int.to.str$ * write$
      " " field is.kanji.str$ int.to.str$ * write$
      " hz:"   field is.cjk.str$ #1    & int.to.str$ * write$
      " kn:"   field is.cjk.str$ #2    & int.to.str$ * write$
      " hg:"   field is.cjk.str$ #4    & int.to.str$ * write$
      " bp:"   field is.cjk.str$ #8    & int.to.str$ * write$
      " misc:" field is.cjk.str$ #2048 & int.to.str$ * write$
      newline$
}

FUNCTION {type} {output_entry}

READ

FUNCTION {set_sort_key} {
  field 'sort.key$ :=
}

ITERATE {set_sort_key}

SORT

FUNCTION {output_bgn} {
  "\section*{Test result}" write$ newline$
  "\begin{itemize}" write$ newline$
}

FUNCTION {output_end} {
  "\end{itemize}" write$ newline$
  "\endinput" write$ newline$
}

EXECUTE {output_bgn}

ITERATE {call.type$}

EXECUTE {output_end}