1993 lines
138 KiB
Plaintext
1993 lines
138 KiB
Plaintext
%%
|
||
%% This is file `examples/hitbook/chinese/hitszthesis.bst',
|
||
%% generated with the docstrip utility.
|
||
%%
|
||
%% The original source files were:
|
||
%%
|
||
%% hithesis.dtx (with options: `shenzhenbst')
|
||
%%
|
||
%% This is a generated file.
|
||
%%
|
||
%% Copyright (C) 2017-2025 by Chu Yanshuo <yanshuoc@gmail.com>
|
||
%%
|
||
%% This file may be distributed and/or modified under the
|
||
%% conditions of the LaTeX Project Public License, either version 1.3a
|
||
%% of this license or (at your option) any later version.
|
||
%% The latest version of this license is in:
|
||
%%
|
||
%% http://www.latex-project.org/lppl.txt
|
||
%%
|
||
%% and version 1.3a or later is part of all distributions of LaTeX
|
||
%% version 2004/10/01 or later.
|
||
%%
|
||
%% To produce the documentation run the original source files ending with `.dtx'
|
||
%% through LaTeX.
|
||
%%
|
||
%% This bst file comes from https://github.com/YangLaTeX/hitszthesis
|
||
ENTRY % class Entry {
|
||
{ % public:
|
||
author % String author;
|
||
editor % String editor;
|
||
translator % String translator;
|
||
title % String title;
|
||
edition % String edition;
|
||
address % String address;
|
||
publisher % String publisher;
|
||
pages % String pages;
|
||
year % String year;
|
||
date % String date;
|
||
modifydate % String modifydate;
|
||
citedate % String citedate;
|
||
url % String url;
|
||
doi % String doi;
|
||
language % String language;
|
||
booktitle % String booktitle;
|
||
journal % String journal;
|
||
chapter % String chapter;
|
||
series % String series;
|
||
volume % String volume;
|
||
number % String number;
|
||
version % String version;
|
||
month % String month;
|
||
school % String school;
|
||
institution % String institution;
|
||
organization % String organization;
|
||
type % String type;
|
||
howpublished % String howpublished;
|
||
eid % String eid;
|
||
key % String key;
|
||
country % String country;
|
||
patentid % String patentid;
|
||
media % String media;
|
||
} { % // declare integer variables
|
||
required % int required; // withther the bibfield is required
|
||
} { % // declare String variables
|
||
label % String label; // label for the entry
|
||
mark % String mark; // mark for the entry
|
||
% // there is ahidden entry variable sort.key$
|
||
% String sort_key;
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
INTEGERS { % // declare global int variables
|
||
entry.count % static int entry_count; // number of entries
|
||
longest.label.width % static int longest_label_width; // width of the longest label
|
||
i % static int i;
|
||
j % static int j;
|
||
k % static int k;
|
||
} %
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
STRINGS { % // declare global String variables
|
||
longest.label % static String longest_label; // the longest label
|
||
s % static String s;
|
||
t % static String t;
|
||
} %
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
|
||
FUNCTION {true} {#1}
|
||
FUNCTION {false} {#0}
|
||
FUNCTION {debug.enabled} {true}
|
||
FUNCTION {cap.volume.en} {"Vol~"}
|
||
FUNCTION {cap.volume.zh} {"卷"}
|
||
FUNCTION {cap.edition.en} {"~ed"}
|
||
FUNCTION {cap.edition.zh} {"版"}
|
||
FUNCTION {cap.anonymous.en} {"Anon"}
|
||
FUNCTION {cap.anonymous.zh} {"佚名"}
|
||
FUNCTION {cap.no.address.en} {"［S.l.］"}
|
||
FUNCTION {cap.no.address.zh} {"［出版地不详］"}
|
||
FUNCTION {cap.no.publisher.en} {"［s.n.］"}
|
||
FUNCTION {cap.no.publisher.zh} {"［出版者不详］"}
|
||
FUNCTION {cap.et.al.en} {"，et~al"}
|
||
FUNCTION {cap.et.al.zh} {"，等"}
|
||
FUNCTION {cap.translate.en} {"~trans"}
|
||
FUNCTION {cap.translate.zh} {"译"}
|
||
FUNCTION {cap.doi.url} {"http://dx.doi.org/"}
|
||
FUNCTION {cap.st.en} {"st"}
|
||
FUNCTION {cap.nd.en} {"nd"}
|
||
FUNCTION {cap.rd.en} {"rd"}
|
||
FUNCTION {cap.th.en} {"th"}
|
||
|
||
FUNCTION {cap.space} {" "}
|
||
FUNCTION {cap.comma} {"\@，"}
|
||
FUNCTION {cap.colon} {"\thinspace{}\textnormal{：}"}
|
||
FUNCTION {cap.period} {"\@. "}
|
||
FUNCTION {cap.double.slash} {" //\thinspace{}"}
|
||
FUNCTION {cap.dash} {"\textnormal{-}"}
|
||
|
||
FUNCTION {env.bibbegin} { "\begin{thebibliography}" }
|
||
FUNCTION {env.bibend} { "\end{thebibliography}" }
|
||
FUNCTION {cmd.bibauthor} { "\providecommand{\bibauthor}[1]{#1}" }
|
||
FUNCTION {cmd.bibeditor} { "\providecommand{\bibeditor}[1]{#1}" }
|
||
FUNCTION {cmd.bibtranslator} { "\providecommand{\bibtranslator}[1]{#1}" }
|
||
FUNCTION {cmd.bibtitle} { "\providecommand{\bibtitle}[1]{#1}" }
|
||
FUNCTION {cmd.bibbooktitle} { "\providecommand{\bibbooktitle}[1]{#1}" }
|
||
FUNCTION {cmd.bibjournal} { "\providecommand{\bibjournal}[1]{#1}" }
|
||
FUNCTION {cmd.bibmark} { "\providecommand{\bibmark}[1]{\mbox{#1}}" }
|
||
FUNCTION {cmd.bibcountry} { "\providecommand{\bibcountry}[1]{#1}" }
|
||
FUNCTION {cmd.bibpatentid} { "\providecommand{\bibpatentid}[1]{#1}" }
|
||
FUNCTION {cmd.bibedition} { "\providecommand{\bibedition}[1]{#1}" }
|
||
FUNCTION {cmd.biborganization} { "\providecommand{\biborganization}[1]{#1}" }
|
||
FUNCTION {cmd.bibaddress} { "\providecommand{\bibaddress}[1]{#1}" }
|
||
FUNCTION {cmd.bibpublisher} { "\providecommand{\bibpublisher}[1]{#1}" }
|
||
FUNCTION {cmd.bibinstitution} { "\providecommand{\bibinstitution}[1]{#1}" }
|
||
FUNCTION {cmd.bibschool} { "\providecommand{\bibschool}[1]{#1}" }
|
||
FUNCTION {cmd.bibvolume} { "\providecommand{\bibvolume}[1]{#1}" }
|
||
FUNCTION {cmd.bibnumber} { "\providecommand{\bibnumber}[1]{#1}" }
|
||
FUNCTION {cmd.bibversion} { "\providecommand{\bibversion}[1]{#1}" }
|
||
FUNCTION {cmd.bibpages} { "\providecommand{\bibpages}[1]{#1}" }
|
||
FUNCTION {cmd.bibmodifydate} { "\providecommand{\bibmodifydate}[1]{#1}" }
|
||
FUNCTION {cmd.bibcitedate} { "\providecommand{\bibcitedate}[1]{#1}" }
|
||
FUNCTION {cmd.bibyear} { "\providecommand{\bibyear}[1]{#1}" }
|
||
FUNCTION {cmd.bibdate} { "\providecommand{\bibdate}[1]{#1}" }
|
||
FUNCTION {cmd.biburl} { "\providecommand{\biburl}[1]{\newline\url{#1}}" }
|
||
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {log.str} { % void Entry::log_str(String value, String message)
|
||
debug.enabled { % if (debug_enabled == 1) {
|
||
"DEBUG: " swap$ * " - '" * % message = "DEBUG: " + message + " - '";
|
||
swap$ * % message = message + value;
|
||
"'" * % message = message + "'";
|
||
top$ % log(message);
|
||
} { % } else {
|
||
pop$ pop$ % return;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {log.int} { % int Entry::log_int(int value, String message)
|
||
debug.enabled { % if (debug_enabled == 1) {
|
||
"DEBUG: " swap$ * " - " * % message = "DEBUG: " + message + " - ";
|
||
swap$ int.to.str$ * % message = message + int_to_str(value);
|
||
top$ % log(message);
|
||
} { % } else {
|
||
pop$ pop$ % return;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {not} { % int Entry::not(int x) {
|
||
{ % if (x == 1) {
|
||
false % return false;
|
||
} { % } else {
|
||
true % return true;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {and} { % int Entry::and(int x, int y) {
|
||
{ % if (y == 1) {
|
||
skip$ % return x;
|
||
} { % } else {
|
||
pop$ false % return false;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {or} { % int Entry::or(int x, int y) {
|
||
{ % if (y == 1) {
|
||
pop$ true % return true;
|
||
} { % } else {
|
||
skip$ % return x;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
% // calculate the length in characters of a string
|
||
% // We need this function since text.length$ is NOT
|
||
% // the length in characters.
|
||
INTEGERS {length.i} % static int length_i;
|
||
FUNCTION {length} { % int Entry::length(String str) {
|
||
duplicate$ empty$ { % if (empty(str)) {
|
||
pop$ #0 % return 0;
|
||
} { % } else {
|
||
#1 'length.i := % length_i = 1;
|
||
false % int stop = false;
|
||
{not} { % while (! stop) {
|
||
duplicate$ length.i #1 substring$ % String tmp = substring(str, length_i, 1);
|
||
"" = { % if (tmp == "") {
|
||
true % stop = true;
|
||
} { % } else {
|
||
length.i #1 + 'length.i := % length_i = length_i + 1;
|
||
false % stop = false;
|
||
} if$ % }
|
||
} while$ % }
|
||
pop$ length.i #1 - % return length_i - 1;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {is.digit} { % int Entry::is_digit(String ch) {
|
||
chr.to.int$ % int ascii = chr_to_int(ch);
|
||
duplicate$ "0" chr.to.int$ < { % if (ascii < chr_to_int("0")) {
|
||
pop$ false % return false;
|
||
} { % } else {
|
||
"9" chr.to.int$ > { % if (ascii > chr_to_int("9")) {
|
||
false % return false;
|
||
} { % } else {
|
||
true % return true;
|
||
} if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
% // test if str is a number
|
||
FUNCTION {is.number} { % int Entry::is_number(String str) {
|
||
duplicate$ empty$ not swap$ % int result = (! empty(str));
|
||
{ duplicate$ empty$ not} { % while (! empty(str)) {
|
||
duplicate$ #1 #1 substring$ is.digit { % if (is_digit(substring(str, 1, 1))) {
|
||
#2 global.max$ substring$ % str = substring(str, 2, global_max);
|
||
} { % } else {
|
||
pop$ pop$ false % result = false;
|
||
"" % str = "";
|
||
} if$ % }
|
||
} while$ % }
|
||
pop$ % return result;
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
% // extract the number prefix of str
|
||
FUNCTION {extract.number} { % String Entry::extract_number(String str) {
|
||
duplicate$ % String suffix = str;
|
||
duplicate$ length swap$ % int n = length(str);
|
||
duplicate$ empty$ % int stop = empty(suffix);
|
||
{ not } { % while (! stop) {
|
||
duplicate$ #1 #1 substring$ is.digit { % if (is_digit(substring(suffix, 1, 1))) {
|
||
#2 global.max$ substring$ % suffix = substring(suffix, 2, global_max);
|
||
duplicate$ empty$ % stop = empty(suffix);
|
||
} { % } else {
|
||
true % stop = true;
|
||
} if$ % }
|
||
} while$ % }
|
||
length - % int n = n - length(suffix);
|
||
#1 swap$ substring$ % return substring(str, 1, n);
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {get.last.chr} { % String Entry::get_last_chr(String str) {
|
||
duplicate$ length % int n = length(str);
|
||
duplicate$ #0 = { % if (n == 0) {
|
||
pop$ % return str;
|
||
} { % } else {
|
||
#1 substring$ % return substring(str, n, 1);
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {get.ordinal.suffix.en} { % String Entry::get_ordinal_suffix_en(String ch) {
|
||
duplicate$ "1" = { % if (num == "1") {
|
||
pop$ cap.st.en % return cap_st_en;
|
||
} { % } else {
|
||
duplicate$ "2" = { % if (num == "2") {
|
||
pop$ cap.nd.en % return cap_nd_en;
|
||
} { % } else {
|
||
duplicate$ "3" = { % if (num == "3") {
|
||
pop$ cap.rd.en % return cap_rd_en;
|
||
} { % } else {
|
||
pop$ cap.th.en % return cap_th_en;
|
||
} if$ % }
|
||
} if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {num.to.ordinal.en} { % String Entry::num_to_ordinal_en(String num) {
|
||
duplicate$ empty$ { % if (empty(num)) {
|
||
skip$ % return num;
|
||
} { % } else {
|
||
duplicate$ get.last.chr % String ch = get_last_chr(num);
|
||
get.ordinal.suffix.en % String str = get_ordinal_suffix_en(ch);
|
||
* % reutrn num + str;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
STRINGS {remove.dots.result} % static String remove_dots_result;
|
||
%
|
||
FUNCTION {remove.dots} { % String Entry::remove_dots(String str) {
|
||
"" 'remove.dots.result := % remove_dots_result = "";
|
||
{ duplicate$ empty$ not } { % while (! empty(str)) {
|
||
duplicate$ #1 #2 substring$ % String tmp = substring(str, 1, 2);
|
||
"\." = { % if (tmp == "\.") {
|
||
#3 global.max$ substring$ % str = substring(str, 3, global_max);
|
||
} { % } else {
|
||
duplicate$ #1 #1 substring$ % tmp = substring(str, 1, 1);
|
||
duplicate$ "." = { % if (tmp == ".") {
|
||
pop$ #2 global.max$ substring$ % str = substring(str, 2, global_max);
|
||
} { % } else {
|
||
remove.dots.result swap$ * % tmp = remove_dots_result + tmp;
|
||
'remove.dots.result := % remove_dots_result = tmp;
|
||
#2 global.max$ substring$ % str = substring(str, 2, global_max);
|
||
} if$ % }
|
||
} if$ % }
|
||
} while$ % }
|
||
pop$ remove.dots.result % return remove_dots_result;
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {add.brace} { % String Entry::add_brace(String str) {
|
||
"{" swap$ * "}" * % return "{" + str + "}";
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {add.bracket} { % String Entry::bracket(String str) {
|
||
"（" swap$ * "）\!\!" * % return "（" + str + "）\!\!";
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {add.squarebracket} { % String Entry::add_squarebracket(String str) {
|
||
"［" swap$ * "］" * % return "［" + str + "］";
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {add.textit} { % String Entry::add_textit(String str) {
|
||
"\textit{" swap$ * "}" * % return "\textit{" + str + "}";
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {add.textbf} { % String Entry::add_textbf(String str) {
|
||
"\textbf{" swap$ * "}" * % return "\textbf{" + str + "}";
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
% // test if str contains a dash '-'
|
||
FUNCTION {contain.dash} { % int Entry::contain_dash(String str) {
|
||
false swap$ % int result = false;
|
||
{ duplicate$ empty$ not} { % while (! empty(str)) {
|
||
duplicate$ #1 #1 substring$ "-" = { % if (substring(str, 1, 1) == "-") {
|
||
pop$ pop$ true % result = true;
|
||
"" % str = "";
|
||
} { % } else {
|
||
#2 global.max$ substring$ % str = substring(str, 2, global_max);
|
||
} if$ % }
|
||
} while$ % }
|
||
pop$ % return result;
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
% // extract the substring before the first '-'
|
||
% // returns the string itself if no '-'
|
||
FUNCTION {extract.before.first.dash} { % String Entry::extract_before_first_dash(String str) {
|
||
duplicate$ % String suffix = str;
|
||
duplicate$ length swap$ % int n = length(str);
|
||
duplicate$ empty$ % int stop = empty(suffix);
|
||
{ not } { % while (! stop) {
|
||
duplicate$ #1 #1 substring$ "-" = { % if (substring(suffix, 1, 1) == "-") {
|
||
true % stop = true;
|
||
} { % } else {4r
|
||
#2 global.max$ substring$ % suffix = substring(suffix, 2, global_max);
|
||
duplicate$ empty$ % stop = empty(suffix);
|
||
} if$ % }
|
||
} while$ % }
|
||
length - % int n = n - length(suffix);
|
||
#1 swap$ substring$ % return substring(str, 1, n);
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
% // extract the substring after the first '-'
|
||
% // returns the string itself if no '-'
|
||
FUNCTION {extract.after.first.dash} { % String Entry::extract_after_first_dash(String str) {
|
||
duplicate$ % String suffix = str;
|
||
duplicate$ empty$ % int stop = empty(suffix);
|
||
{ not } { % while (! stop) {
|
||
duplicate$ #1 #1 substring$ "-" = { % if (substring(suffix, 1, 1) == "-") {
|
||
true % stop = true;
|
||
} { % } else {4r
|
||
#2 global.max$ substring$ % suffix = substring(suffix, 2, global_max);
|
||
duplicate$ empty$ % stop = empty(suffix);
|
||
} if$ % }
|
||
} while$ % }
|
||
duplicate$ empty$ { % if (empty(suffix)) {
|
||
pop$ % return str;
|
||
} { % } else {
|
||
swap$ pop$ #2 global.max$ substring$ % return substring(suffix, 2, global_max);
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
% // extract the substring after the last '-'
|
||
% // returns the empty string if no '-'
|
||
FUNCTION {extract.after.last.dash} { % String Entry::extract_after_last_dash(String str) {
|
||
duplicate$ contain.dash not { % if (! contain_dash(str)) {
|
||
pop$ "" % return "";
|
||
} { % } else {
|
||
{duplicate$ contain.dash} { % while (contain_dash(str)) {
|
||
extract.after.first.dash % str = extract_after_first_dash(str);
|
||
} while$ % }
|
||
% return str;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {trim.start} { % String Entry::trim_start(String str) {
|
||
{duplicate$ #1 #1 substring$ " " =} { % while (substring(str, 1, 1) == " ") {
|
||
#2 global.max$ substring$ % str = substring(str, 2, global_max);
|
||
} while$ % }
|
||
% return str;
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {trim.end} { % String Entry::trim_end(String str) {
|
||
{duplicate$ get.last.chr " " =} { % while (get_last_chr(str) == " ") {
|
||
duplicate$ length #1 - % int n = length(str) - 1;
|
||
#1 swap$ substring$ % str = substring(str, 1, n);
|
||
} while$ % }
|
||
% return str;
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {trim} { % String Entry::trim(String str) {
|
||
trim.start % str = trim_start(str);
|
||
trim.end % return trim_end(str);
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {start.bibitem} { % void Entry::start_bibitem() {
|
||
newline$ % writeln();
|
||
"\bibitem{" cite$ * "}" * write$ % write("\bibitem{" + this.cite + "}");
|
||
newline$ % writeln();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {end.bibitem} { % void Entry::end_bibitem() {
|
||
cap.period write$ % write(cap_period);
|
||
newline$ % writeln();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {is.in.chinese} { % int Entry::is_in_chinese() {
|
||
language empty$ { % if (empty(this.language)) {
|
||
false % return false;
|
||
} { % } else {
|
||
language "zh" = { % if (this.language == "zh") {
|
||
true % return true;
|
||
} { % } else {
|
||
false % return false;
|
||
} if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {is.online} { % int Entry::is_online() {
|
||
url empty$ not { % if (! empty(this.url)) {
|
||
true % return true;
|
||
} { % } else {
|
||
doi empty$ not { % if (! empty(this.doi)) {
|
||
true % return true;
|
||
} { % } else {
|
||
false % return false;
|
||
} if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {set.mark} { % void Entry::set_mark(String mark) {
|
||
'mark := % this.mark = mark;
|
||
is.online { % if (is_online()) {
|
||
mark "/OL" * 'mark := % this.mark = this.mark + "/OL";
|
||
} { % } else {
|
||
media empty$ not { % if (! empty(this.media)) {
|
||
mark "/" * media * 'mark := % this.mark = this.mark + "/" + this.media;
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {cap.volume} { % String Entry::cap_volume() {
|
||
is.in.chinese { % if (is_in_chinese()) {
|
||
cap.volume.zh % return cap_volume_zh;
|
||
} { % } else {
|
||
cap.volume.en % return cap_volume_en;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {cap.edition} { % String Entry::cap_edition() {
|
||
is.in.chinese { % if (is_in_chinese()) {
|
||
cap.edition.zh % return cap_edition_zh;
|
||
} { % } else {
|
||
cap.edition.en % return cap_edition_en;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {cap.anonymous} { % String Entry::cap_anonymous() {
|
||
is.in.chinese { % if (is_in_chinese()) {
|
||
cap.anonymous.zh % return cap_anonymous_zh;
|
||
} { % } else {
|
||
cap.anonymous.en % return cap_anonymous_en;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {cap.no.address} { % String Entry::cap_no_address() {
|
||
is.in.chinese { % if (is_in_chinese()) {
|
||
cap.no.address.zh % return cap_no_address_zh;
|
||
} { % } else {
|
||
cap.no.address.en % return cap_no_address_en;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {cap.no.publisher} { % String Entry::cap_no_publisher() {
|
||
is.in.chinese { % if (is_in_chinese()) {
|
||
cap.no.publisher.zh % return cap_no_publisher_zh;
|
||
} { % } else {
|
||
cap.no.publisher.en % return cap_no_publisher_en;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {cap.et.al} { % String Entry::cap_et_al() {
|
||
is.in.chinese { % if (is_in_chinese()) {
|
||
cap.et.al.zh % return cap_et_al_zh;
|
||
} { % } else {
|
||
cap.et.al.en % return cap_et_al_en;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {cap.translate} { % String Entry::cap_translate() {
|
||
is.in.chinese { % if (is_in_chinese()) {
|
||
cap.translate.zh % return cap_translate_zh;
|
||
} { % } else {
|
||
cap.translate.en % return cap_translate_en;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.bibinfo} { % String Entry::format_bibinfo(String info, String type) {
|
||
swap$ add.brace swap$ % info = add_brace(info);
|
||
"\bib" swap$ * swap$ * % return "\bib" + type + info;
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
INTEGERS { nameindex namecount } % static int nameindex, namecount;
|
||
STRINGS { namelist nameformat } % static String namelist, nameformat;
|
||
STRINGS { firstname lastname jrname vonname} % static String firstname, lastname, jrname, vonname;
|
||
%
|
||
FUNCTION {format.names} { % String Entry::format_names(String names) {
|
||
'namelist := % namelist = names;
|
||
namelist num.names$ 'namecount := % namecount = num_names(namelist);
|
||
"" % String result = "";
|
||
#0 'nameindex := % nameindex = 0;
|
||
{nameindex namecount < nameindex #3 < and} { % while ((nameindex < namecount) && (nameindex < 3)) {
|
||
nameindex #1 + 'nameindex := % nameindex = nameindex + 1;
|
||
nameindex #1 > { % if (nameindex > 1) {
|
||
cap.comma * % result = result + cap_comma;
|
||
} 'skip$ if$ % }
|
||
namelist nameindex "{vv}" format.name$ % String tmp = format_name(namelist, nameindex, "{vv}");
|
||
'vonname := % vonname = tmp;
|
||
namelist nameindex "{jj}" format.name$ % tmp = format_name(namelist, nameindex, "{jj}");
|
||
remove.dots 'jrname := % jrname = remove_dots(tmp);
|
||
namelist nameindex "{f}" format.name$ % tmp = format_name(namelist, nameindex, "{f}");
|
||
remove.dots % tmp = remove_dots(tmp);
|
||
"u" change.case$ 'firstname := % firstname = change_case(tmp, "u");
|
||
namelist nameindex "{ll}" format.name$ % tmp = format_name(namelist, nameindex, "{ll}");
|
||
"u" change.case$ 'lastname := % lastname = change_case(tmp, "u");
|
||
jrname empty$ not { % if (! empty(jrname)) {
|
||
jrname * " " * % result = result + jrname + " "
|
||
} 'skip$ if$ % }
|
||
vonname empty$ not { % if (! empty(vonname)) {
|
||
vonname * " " * % result = result + vonname + " "
|
||
} 'skip$ if$ % }
|
||
lastname empty$ not { % if (! empty(lastname)) {
|
||
lastname * " " * % result = result + lastname + " "
|
||
} 'skip$ if$ % }
|
||
firstname empty$ not { % if (! empty(firstname)) {
|
||
firstname * " " * % result = result + firstname + " "
|
||
} 'skip$ if$ % }
|
||
trim.end % result = trim_end(result);
|
||
} while$ % }
|
||
nameindex namecount < { % if (nameindex < namecount) {
|
||
cap.et.al * % result = result + cap_et_al();
|
||
} 'skip$ if$ % }
|
||
} % }
|
||
%
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
% // format English names
|
||
FUNCTION {format.names.en} { % String Entry::format_names_en(String names) {
|
||
format.names % format_names(names);
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
% // format Chinese names
|
||
FUNCTION {format.names.zh} { % String Entry::format_names_zh(String names) {
|
||
format.names % format_names(names);
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.author} { % String Emtry::format_author(String authors) {
|
||
is.in.chinese { % if (is_in_chinese) {
|
||
format.names.zh % authors = format_names_zh(authors);
|
||
} { % } else {
|
||
format.names.en % authors = format_names_en(authors);
|
||
} if$ % }
|
||
"author" format.bibinfo % return format_bibinfo(authors, "author");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.editor} { % String Emtry::format_author(String editors) {
|
||
is.in.chinese { % if (is_in_chinese) {
|
||
format.names.zh % editors = format_names_zh(editors);
|
||
} { % } else {
|
||
format.names.en % editors = format_names_en(editors);
|
||
} if$ % }
|
||
"editor" format.bibinfo % return format_bibinfo(editors, "editor");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.translator} { % String Emtry::format_translator(String translators) {
|
||
is.in.chinese { % if (is_in_chinese) {
|
||
duplicate$ % String names = translators;
|
||
format.names.zh % translators = format_names_zh(translators);
|
||
swap$ num.names$ #3 > { % if (num_names(names) > 3) {
|
||
cap.translate.zh * % translators = translators + cap_translate_zh;
|
||
} { % } else {
|
||
cap.comma * cap.translate.zh * % translators = translators + cap_comma + cap_translate_zh;
|
||
} if$ % }
|
||
} { % } else {
|
||
duplicate$ % String names = translators;
|
||
format.names.en % translators = format_names_en(translators);
|
||
swap$ num.names$ #3 > { % if (num_names(names) > 3) {
|
||
cap.translate.en * % translators = translators + cap_translate_en;
|
||
} { % } else {
|
||
cap.comma * cap.translate.en * % translators = translators + cap_comma + cap_translate_en;
|
||
} if$ % }
|
||
} if$ % }
|
||
"translator" format.bibinfo % return format_bibinfo(translator, "translator");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.title} { % String Emtry::format_title(String title) {
|
||
"title" format.bibinfo % return format_bibinfo(title, "title");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.booktitle} { % String Emtry::format_booktitle(String booktitle) {
|
||
"booktitle" format.bibinfo % return format_bibinfo(booktitle, "booktitle");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.mark} { % String Emtry::format_mark(String mark) {
|
||
"\,［" swap$ * "］" * % mark = " ［" + mark + "］";
|
||
"mark" format.bibinfo % return format_bibinfo(mark, "mark");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.country} { % String Emtry::format_country(String country) {
|
||
"country" format.bibinfo % return format_bibinfo(country, "country");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.patentid} { % String Emtry::format_patentid(String patentid) {
|
||
"patentid" format.bibinfo % return format_bibinfo(patentid, "patentid");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.edition} { % String Emtry::format_edition(String edition) {
|
||
duplicate$ is.number { % if (is_number(edition)) {
|
||
is.in.chinese { % if (is_in_chinese()) {
|
||
cap.edition.zh * % edition = edition + cap_edition_zh;
|
||
} { % } else {
|
||
num.to.ordinal.en cap.edition.en * % edition = num_to_ordinal_en(edition) + cap_edition_en;
|
||
} if$ % }
|
||
} 'skip$ if$ % }
|
||
% // use a \mbox{} to prevent line break within edition
|
||
"\mbox{" swap$ * "}" * % edition = "\mbox{" + edition + "}";
|
||
"edition" format.bibinfo % return format_bibinfo(edition, "edition");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.organization} { % String Emtry::format_organization(String organization) {
|
||
"organization" format.bibinfo % return format_bibinfo(organization, "organization");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.address} { % String Emtry::format_address(String address) {
|
||
"address" format.bibinfo % return format_bibinfo(address, "address");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.publisher} { % String Emtry::format_publisher(String publisher) {
|
||
"publisher" format.bibinfo % return format_bibinfo(publisher, "publisher");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.institution} { % String Emtry::format_institution(String institution) {
|
||
"institution" format.bibinfo % return format_bibinfo(institution, "institution");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.school} { % String Emtry::format_school(String school) {
|
||
"school" format.bibinfo % return format_bibinfo(school, "school");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.year} { % String Emtry::format_year(String year) {
|
||
"year" format.bibinfo % return format_bibinfo(year, "year");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.date} { % String Emtry::format_date(String date) {
|
||
"date" format.bibinfo % return format_bibinfo(date, "date");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.journal} { % String Emtry::format_journal(String journal) {
|
||
"journal" format.bibinfo % return format_bibinfo(journal, "journal");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.volume} { % String Emtry::format_volume(String volume) {
|
||
"volume" format.bibinfo % return format_bibinfo(volume, "volume");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.number} { % String Emtry::format_number(String number) {
|
||
add.bracket % number = add_bracket(number);
|
||
"number" format.bibinfo % return format_bibinfo(number, "number");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.report.number} { % String Emtry::format_report_number(String number) {
|
||
"number" format.bibinfo % return format_bibinfo(number, "number");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.version} { % String Emtry::format_version(String version) {
|
||
"version" format.bibinfo % return format_bibinfo(version, "version");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.pages} { % String Emtry::format_pages(String pages) {
|
||
"pages" format.bibinfo % return format_bibinfo(pages, "pages");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.modifydate} { % String Emtry::format_modifydate(String modifydate) {
|
||
add.bracket % modifydate = add_bracket(modifydate);
|
||
"modifydate" format.bibinfo % return format_bibinfo(modifydate, "modifydate");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {format.citedate} { % String Emtry::format_citedate(String citedate) {
|
||
add.squarebracket % citedate = add_squarebracket(citedate);
|
||
"citedate" format.bibinfo % return format_bibinfo(citedate, "citedate");
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
% // NOTE: do not use the format_bibinfo() for URL,
|
||
% // since if the URL contains special symbols such
|
||
% // as '%', the \biburl{} will be broken.
|
||
FUNCTION {format.url} { % String Emtry::format_url(String url) {
|
||
"\url{" swap$ * "}" * % return "\url{" + url + "}";
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {get.full.title} { % String Entry::get_full_title() {
|
||
series empty$ { % if (empty(this.series)) {
|
||
volume empty$ { % if (empty(this.volume)) {
|
||
title % return this.title;
|
||
} { % } else {
|
||
title cap.colon * cap.volume * volume * % return this.title + cap_colon + cap_volume() + this.volume;
|
||
} if$ % }
|
||
} { % } else {
|
||
volume empty$ { % if (empty(this.volume)) {
|
||
series cap.colon * title * % return this.series + cap_colon + this.title;
|
||
} { % } else {
|
||
series cap.comma * cap.volume * volume * % String str = this.series + cap_comma + cal_volume() + this.volume;
|
||
cap.colon * title * % return str + cap_colon + this.title;
|
||
} if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {get.full.booktitle} { % String Entry::get_full_booktitle() {
|
||
series empty$ { % if (empty(this.series)) {
|
||
volume empty$ { % if (empty(this.volume)) {
|
||
booktitle % return this.booktitle;
|
||
} { % } else {
|
||
booktitle cap.colon * cap.volume * volume * % return this.booktitle + cap_colon + cap_volume() + this.volume;
|
||
} if$ % }
|
||
} { % } else {
|
||
volume empty$ { % if (empty(this.volume)) {
|
||
series cap.colon * booktitle * % return this.series + cap_colon + this.booktitle;
|
||
} { % } else {
|
||
series cap.comma * cap.volume * volume * % String str = this.series + cap_comma + cal_volume() + this.volume;
|
||
cap.colon * booktitle * % return str + cap_colon + this.booktitle;
|
||
} if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {get.pages} { % String Entry::get_pages() {
|
||
pages contain.dash { % if (contain_dash(this.pages)) {
|
||
pages extract.before.first.dash % String p1 = extract_before_first_dash(this.pages);
|
||
pages extract.after.last.dash % String p2 = extract_after_last_dash(this.pages);
|
||
cap.dash swap$ * * % return p1 + cap_dash + p2;
|
||
} { % } else {
|
||
pages % return this.pages;
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.author.or.editor} { % void Entry::output_author_or_editor(int required) {
|
||
'required := % this.required = required;
|
||
author empty$ not { % if (! empty(this.author)) {
|
||
author format.author write$ % write(format_author(this.author));
|
||
cap.period write$ % write(cap_period);
|
||
} { % } else {
|
||
editor empty$ not { % if (! empty(this.editor)) {
|
||
editor format.editor write$ % write(format_editor(this.editor));
|
||
cap.period write$ % write(cap_period);
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require author/editor: " cite$ * warning$% warning("Require author/editor: " + this.cite);
|
||
cap.anonymous format.author write$ % write(format_author(cap_anonymous()));
|
||
cap.period write$ % write(cap_period);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.author} { % void Entry::output_author(int required) {
|
||
'required := % this.required = required;
|
||
author empty$ not { % if (! empty(this.author)) {
|
||
author format.author write$ % write(format_author(this.author));
|
||
cap.period write$ % write(cap_period);
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require author: " cite$ * warning$ % warning("Require author: " + this.cite);
|
||
cap.anonymous format.author write$ % write(format_author(cap_anonymous()));
|
||
cap.period write$ % write(cap_period);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.editor} { % void Entry::output_editor(int required) {
|
||
'required := % this.required = required;
|
||
editor empty$ not { % if (! empty(this.editor)) {
|
||
editor format.editor write$ % write(format_editor(this.editor));
|
||
cap.period write$ % write(cap_period);
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require editor: " cite$ * warning$ % warning("Require editor: " + this.cite);
|
||
cap.anonymous format.editor write$ % write(format_editor(cap_anonymous()));
|
||
cap.period write$ % write(cap_period);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.title} { % void Entry::output_title(int required) {
|
||
'required := % this.required = required;
|
||
title empty$ not { % if (! empty(this.title)) {
|
||
title format.title write$ % write(format_title(this.title));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require title: " cite$ * warning$ % warning("Require title: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.series.volume.title} { % void Entry::output_series_volume_title(int required) {
|
||
'required := % this.required = required;
|
||
title empty$ not { % if (! empty(this.title)) {
|
||
get.full.title format.booktitle write$ % write(format_booktitle(get_full_title()));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require title: " cite$ * warning$ % warning("Require title: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.series.volume.booktitle} { % void Entry::output_series_volume_booktitle(int required) {
|
||
'required := % this.required = required;
|
||
booktitle empty$ not { % if (! empty(this.booktitle)) {
|
||
get.full.booktitle format.booktitle write$ % write(format_booktitle(get_full_booktitle());
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require booktitle: " cite$ * warning$ % warning("Require booktitle: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.journal} { % void Entry::output_journal(int required) {
|
||
'required := % this.required = required;
|
||
journal empty$ not { % if (! empty(this.journal)) {
|
||
cap.period write$ % write(cap_period);
|
||
journal format.journal write$ % write(format_journal(this.journal));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require journal: " cite$ * warning$ % warning("Require journal: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.mark} { % void Entry::output_mark(int required) {
|
||
'required := % this.required = required;
|
||
mark empty$ not { % if (! empty(this.mark)) {
|
||
mark format.mark write$ % write(format_mark(this.mark));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require mark: " cite$ * warning$ % warning("Require mark: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.translator} { % void Entry::output_translator(int required) {
|
||
'required := % this.required = required;
|
||
translator empty$ not { % if (! empty(this.translator)) {
|
||
cap.period write$ % write(cap_period);
|
||
translator format.translator write$ % write(format_translator(this.translator));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require translator: " cite$ * warning$ % warning("Require translator: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.edition} { % void Entry::output_edition(int required) {
|
||
'required := % this.required = required;
|
||
edition empty$ not { % if (! empty(this.edition)) {
|
||
cap.period write$ % write(cap_period);
|
||
edition format.edition write$ % write(format_edition(this.edition));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require edition: " cite$ * warning$ % warning("Require edition: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.address} { % void Entry::output_address(int required) {
|
||
'required := % this.required = required;
|
||
address empty$ not { % if (! empty(this.address)) {
|
||
cap.period write$ % write(cap_period);
|
||
address format.address write$ % write(format_address(this.address));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require address: " cite$ * warning$ % warning("Require address: " + this.cite);
|
||
cap.period write$ % write(cap_period);
|
||
cap.no.address format.address write$ % write(format_address(cap_no_address()));
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
FUNCTION {output.inproaddress} { % void Entry::output_inproaddress(int required) {
|
||
'required := % this.required = required;
|
||
address empty$ not { % if (! empty(this.address)) {
|
||
cap.comma write$ % write(cap_comma);
|
||
address format.address write$ % write(format_address(this.address));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require address: " cite$ * warning$ % warning("Require address: " + this.cite);
|
||
cap.comma write$ % write(cap_comma);
|
||
cap.no.address format.address write$ % write(format_address(cap_no_address()));
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.publisher} { % void Entry::output_publisher(int required) {
|
||
'required := % this.required = required;
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
cap.colon write$ % write(cap_colon);
|
||
publisher format.publisher write$ % write(format_publisher(this.publisher));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require publisher: " cite$ * warning$ % warning("Require publisher: " + this.cite);
|
||
cap.colon write$ % write(cap_colon);
|
||
cap.no.publisher format.publisher write$ % write(format_publisher(cap_no_publisher()));
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.publisher.no.address} { % void Entry::output_publisher_no_address(int required) {
|
||
'required := % this.required = required;
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
cap.period write$ % write(cap_period);
|
||
publisher format.publisher write$ % write(format_publisher(this.publisher));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require publisher: " cite$ * warning$ % warning("Require publisher: " + this.cite);
|
||
cap.period write$ % write(cap_period);
|
||
cap.no.publisher format.publisher write$ % write(format_publisher(cap_no_publisher()));
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.school} { % void Entry::output_school(int required) {
|
||
'required := % this.required = required;
|
||
school empty$ not { % if (! empty(this.school)) {
|
||
cap.colon write$ % write(cap_colon);
|
||
school format.school write$ % write(format_school(this.school));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require school: " cite$ * warning$ % warning("Require publisher: " + this.cite);
|
||
cap.colon write$ % write(cap_colon);
|
||
cap.no.publisher format.school write$ % write(format_school(cap_no_publisher()));
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.institution} { % void Entry::output_institution(int required) {
|
||
'required := % this.required = required;
|
||
institution empty$ not { % if (! empty(this.institution)) {
|
||
cap.colon write$ % write(cap_colon);
|
||
institution format.institution write$ % write(format_publisher(this.institution));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require institution: " cite$ * warning$ % warning("Require institution: " + this.cite);
|
||
cap.colon write$ % write(cap_colon);
|
||
cap.no.publisher format.institution write$ % write(format_institution(cap_no_publisher()));
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.year} { % void Entry::output_year(int required) {
|
||
'required := % this.required = required;
|
||
year empty$ not { % if (! empty(this.year)) {
|
||
year format.year write$ % write(format_year(this.year));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require year: " cite$ * warning$ % warning("Require year: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.pages} { % void Entry::output_pages(int required) {
|
||
'required := % this.required = required;
|
||
pages empty$ not { % if (! empty(this.pages)) {
|
||
cap.colon write$ % write(cap_colon);
|
||
get.pages format.pages write$ % write(format_pages(get_pages()));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require pages: " cite$ * warning$ % warning("Require pages: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.modifydate} { % void Entry::output_modifydate(int required) {
|
||
'required := % this.required = required;
|
||
modifydate empty$ not { % if (! empty(this.modifydate)) {
|
||
cap.space write$ % write(cap_space);
|
||
modifydate format.modifydate write$ % write(format_modifydate(this.modifydate));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require modifydate: " cite$ * warning$ % warning("Require modifydate: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.citedate} { % void Entry::output_citedate(int required) {
|
||
'required := % this.required = required;
|
||
citedate empty$ not { % if (! empty(this.citedate)) {
|
||
cap.space write$ % write(cap_space);
|
||
citedate format.citedate write$ % write(format_citedate(this.citedate));
|
||
} { % } else {
|
||
required is.online or { % if ((required == 1) || (is_online())) {
|
||
"Require citedate: " cite$ * warning$ % warning("Require citedate: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.date} { % void Entry::output_date(int required) {
|
||
'required := % this.required = required;
|
||
date empty$ not { % if (! empty(this.date)) {
|
||
date format.date write$ % write(format_date(this.date));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require date: " cite$ * warning$ % warning("Require date: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.volume} { % void Entry::output_volume(int required) {
|
||
'required := % this.required = required;
|
||
volume empty$ not { % if (! empty(this.volume)) {
|
||
cap.comma write$ % write(cap_comma);
|
||
volume format.volume write$ % write(format_volume(this.volume));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require volume: " cite$ * warning$ % warning("Require volume: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.number} { % void Entry::output_number(int required) {
|
||
'required := % this.required = required;
|
||
number empty$ not { % if (! empty(this.number)) {
|
||
number format.number write$ % write(format_number(this.number));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require number: " cite$ * warning$ % warning("Require number: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.report.number} { % void Entry::output_report_number(int required) {
|
||
'required := % this.required = required;
|
||
number empty$ not { % if (! empty(this.number)) {
|
||
cap.colon write$ % write(cap_colon);
|
||
number format.report.number write$ % write(format_report_number(this.number));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require number: " cite$ * warning$ % warning("Require number: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.country} { % void Entry::output_country(int required) {
|
||
'required := % this.required = required;
|
||
country empty$ not { % if (! empty(this.country)) {
|
||
cap.colon write$ % write(cap_colon);
|
||
country format.country write$ % write(format_country(this.country));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require country: " cite$ * warning$ % warning("Require country: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.patentid} { % void Entry::output_patentid(int required) {
|
||
'required := % this.required = required;
|
||
patentid empty$ not { % if (! empty(this.patentid)) {
|
||
cap.comma write$ % write(cap_comma);
|
||
patentid format.patentid write$ % write(format_patentid(this.patentid));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require patentid: " cite$ * warning$ % warning("Require patentid: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.start.year} { % void Entry::output_start_year(int required) {
|
||
'required := % this.required = required;
|
||
year empty$ not { % if (! empty(this.year)) {
|
||
year extract.before.first.dash % String str = extract_before_first_dash(this.year);
|
||
format.year write$ % write(format_year(str));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require year: " cite$ * warning$ % warning("Require year: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.start.volume} { % void Entry::output_start_volume(int required) {
|
||
'required := % this.required = required;
|
||
volume empty$ not { % if (! empty(this.volume)) {
|
||
cap.comma write$ % write(cap_comma);
|
||
volume extract.before.first.dash % String str = extract_before_first_dash(this.volume);
|
||
format.volume write$ % write(format_volume(str));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require volume: " cite$ * warning$ % warning("Require volume: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.start.number} { % void Entry::output_start_number(int required) {
|
||
'required := % this.required = required;
|
||
number empty$ not { % if (! empty(this.number)) {
|
||
number extract.before.first.dash % String str = extract_before_first_dash(this.number);
|
||
format.number write$ % write(format_number(str));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require number: " cite$ * warning$ % warning("Require number: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.end.year} { % void Entry::output_end_year(int required) {
|
||
'required := % this.required = required;
|
||
year empty$ not { % if (! empty(this.year)) {
|
||
year extract.after.last.dash % String str = extract_after_last_dash(this.year);
|
||
format.year write$ % write(format_year(str));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require year: " cite$ * warning$ % warning("Require year: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.end.volume} { % void Entry::output_end_volume(int required) {
|
||
'required := % this.required = required;
|
||
volume empty$ not { % if (! empty(this.volume)) {
|
||
cap.comma write$ % write(cap_comma);
|
||
volume extract.after.last.dash % String str = extract_after_last_dash(this.volume);
|
||
format.volume write$ % write(format_volume(str));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require volume: " cite$ * warning$ % warning("Require volume: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.end.number} { % void Entry::output_end_number(int required) {
|
||
'required := % this.required = required;
|
||
number empty$ not { % if (! empty(this.number)) {
|
||
number extract.after.last.dash % String str = extract_after_last_dash(this.number);
|
||
format.number write$ % write(format_number(str));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require number: " cite$ * warning$ % warning("Require number: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.url.or.doi} { % void Entry::output_url_or_doi(int required) {
|
||
'required := % this.required = required;
|
||
url empty$ not { % if (! empty(this.url)) {
|
||
cap.period write$ % write(cap_period);
|
||
url format.url write$ % write(format_url(this.url));
|
||
} { % } else {
|
||
doi empty$ not { % if (! empty(this.doi)) {
|
||
cap.period write$ % write(cap_period);
|
||
cap.doi.url doi * format.url write$ % write(format_url(cap_doi_url + this.doi));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require URL or DOI: " cite$ * warning$ % warning("Require URL or DOI: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.url} { % void Entry::output_url(int required) {
|
||
'required := % this.required = required;
|
||
url empty$ not { % if (! empty(this.url)) {
|
||
cap.period write$ % write(cap_period);
|
||
url format.url write$ % write(format_url(this.url));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require URL: " cite$ * warning$ % warning("Require URL: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {output.version} { % void Entry::output_version(int required) {
|
||
'required := % this.required = required;
|
||
version empty$ not { % if (! empty(this.version)) {
|
||
cap.period write$ % write(cap_period);
|
||
version format.version write$ % write(format_version(this.version));
|
||
} { % } else {
|
||
required { % if (required == 1) {
|
||
"Require version: " cite$ * warning$ % warning("Require version: " + this.cite);
|
||
} 'skip$ if$ % }
|
||
} if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {book.impl} { % void Entry::book_impl() {
|
||
start.bibitem % start_bibitem();
|
||
true output.author.or.editor % output_author_or_editor(true);
|
||
true output.series.volume.title % output_series_volume_title(true);
|
||
true output.mark % output_mark(true);
|
||
false output.translator % output_translator(false);
|
||
false output.edition % output_edition(false);
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
true output.address % output_address(true);
|
||
true output.publisher % output_publisher(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} { % } else {
|
||
cap.period write$ % write(cap_period);
|
||
} if$ % }
|
||
true output.year % output_year(true);
|
||
false output.pages % output_pages(false);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {book} { % void Entry::book() {
|
||
"M" set.mark % set_mark("M");
|
||
book.impl % book_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {collection} { % void Entry::collection() {
|
||
"G" set.mark % set_mark("G");
|
||
book.impl % book_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {proceedings} { % void Entry::proceedings() {
|
||
"C" set.mark % set_mark("C");
|
||
start.bibitem % start_bibitem();
|
||
true output.editor % output_editor(true);
|
||
true output.series.volume.title % output_series_volume_title(true);
|
||
true output.mark % output_mark(true);
|
||
false output.translator % output_translator(false);
|
||
false output.edition % output_edition(false);
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
true output.address % output_address(true);
|
||
true output.publisher % output_publisher(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} { % } else {
|
||
cap.period write$ % write(cap_period);
|
||
} if$ % }
|
||
true output.year % output_year(true);
|
||
false output.pages % output_pages(false);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {conference} { % void Entry::conference() {
|
||
proceedings % proceedings();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {thesis.impl} { % void Entry::thesis_impl() {
|
||
start.bibitem % start_bibitem();
|
||
true output.author % output_author(true);
|
||
true output.title % output_title(true);
|
||
true output.mark % output_mark(true);
|
||
false output.translator % output_translator(false);
|
||
true output.address % output_address(true);
|
||
true output.school % output_school(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
true output.year % output_year(true);
|
||
false output.pages % output_pages(false);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {phdthesis} { % void Entry::phdthesis() {
|
||
"D" set.mark % set_mark("D");
|
||
thesis.impl % thesis_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {mastersthesis} { % void Entry::mastersthesis() {
|
||
"D" set.mark % set_mark("D");
|
||
thesis.impl % thesis_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {bachelorthesis} { % void Entry::bachelorthesis() {
|
||
"D" set.mark % set_mark("D");
|
||
thesis.impl % thesis_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {techreport} { % void Entry::techreport() {
|
||
"R" set.mark % set_mark("R");
|
||
start.bibitem % start_bibitem();
|
||
true output.author % output_author(true);
|
||
true output.title % output_title(true);
|
||
false output.report.number % output_report_number(false);
|
||
true output.mark % output_mark(true);
|
||
false output.translator % output_translator(false);
|
||
false output.edition % output_edition(false);
|
||
false output.version % output_version(false);
|
||
institution empty$ not { % if (! empty(this.institution)) {
|
||
true output.address % output_address(true);
|
||
true output.institution % output_institution(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} { % } else {
|
||
cap.period write$ % write(cap_period);
|
||
} if$ % }
|
||
true output.year % output_year(true);
|
||
false output.pages % output_pages(false);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {standard} { % void Entry::standard() {
|
||
"S" set.mark % set_mark("S");
|
||
start.bibitem % start_bibitem();
|
||
true output.author % output_author(true);
|
||
true output.title % output_title(true);
|
||
true output.mark % output_mark(true);
|
||
false output.translator % output_translator(false);
|
||
false output.edition % output_edition(false);
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
true output.address % output_address(true);
|
||
true output.publisher % output_publisher(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} { % } else {
|
||
cap.period write$ % write(cap_period);
|
||
} if$ % }
|
||
true output.year % output_year(true);
|
||
false output.pages % output_pages(false);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {reference} { % void Entry::reference() {
|
||
"K" set.mark % set_mark("K");
|
||
start.bibitem % start_bibitem();
|
||
false output.author.or.editor % output_author_or_editor(false);
|
||
true output.series.volume.title % output_series_volume_title(true);
|
||
true output.mark % output_mark(true);
|
||
false output.translator % output_translator(false);
|
||
false output.edition % output_edition(false);
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
true output.address % output_address(true);
|
||
true output.publisher % output_publisher(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} { % } else {
|
||
cap.period write$ % write(cap_period);
|
||
} if$ % }
|
||
true output.year % output_year(true);
|
||
false output.pages % output_pages(false);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {manual} { % void Entry::manual() {
|
||
reference % reference();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {periodical.impl} { % void Entry::periodical_impl() {
|
||
start.bibitem % start_bibitem();
|
||
false output.editor % output_editor(false);
|
||
true output.title % output_title(true);
|
||
true output.mark % output_mark(true);
|
||
cap.period write$ % write(cap_period);
|
||
true output.start.year % output_start_year(true);
|
||
false output.start.volume % output_start_volume(false);
|
||
false output.start.number % output_start_number(false);
|
||
cap.dash write$ % write(cap_dash);
|
||
year contain.dash { % if (contain_dash(this.year)) {
|
||
true output.end.year % output_end_year(true);
|
||
false output.end.volume % output_end_volume(false);
|
||
false output.end.number % output_end_number(false);
|
||
} 'skip$ if$ % }
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
true output.address % output_address(true);
|
||
true output.publisher % output_publisher(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} { % } else {
|
||
cap.period write$ % write(cap_period);
|
||
} if$ % }
|
||
true output.start.year % output_start_year(true);
|
||
cap.dash write$ % write(cap_dash);
|
||
year contain.dash { % if (contain_dash(this.year)) {
|
||
true output.end.year % output_end_year(true);
|
||
} 'skip$ if$ % }
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {periodical} { % void Entry::periodical() {
|
||
"J" set.mark % set_mark("J");
|
||
periodical.impl % periodical_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {newspaper} { % void Entry::newspaper() {
|
||
"N" set.mark % set_mark("N");
|
||
periodical.impl % periodical_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {patent} { % void Entry::patent() {
|
||
"P" set.mark % set_mark("P");
|
||
start.bibitem % start_bibitem();
|
||
true output.author % output_author(true);
|
||
true output.title % output_title(true);
|
||
true output.country % output_country(true);
|
||
true output.patentid % output_patentid(true);
|
||
true output.mark % output_mark(true);
|
||
cap.period write$ % write(cap_period);
|
||
true output.date % output_date(true);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {online} { % void Entry::online() {
|
||
"EB" set.mark % set_mark("EB");
|
||
start.bibitem % start_bibitem();
|
||
false output.author % output_author(false);
|
||
true output.title % output_title(true);
|
||
true output.mark % output_mark(true);
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
address empty$ not { % if (! empty(this.address)) {
|
||
true output.address % output_address(true);
|
||
true output.publisher % output_publisher(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} { % } else {
|
||
true output.publisher.no.address % output_publisher_no_address(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} if$ % }
|
||
} { % } else {
|
||
cap.period write$ % write(cap_period);
|
||
} if$ % }
|
||
true output.year % output_year(true);
|
||
false output.modifydate % output_modifydate(false);
|
||
true output.citedate % output_citedate(true);
|
||
true output.url % output_url(true);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {webpage} { % void Entry::online() {
|
||
online % online();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {program.impl} { % void Entry::program_impl() {
|
||
start.bibitem % start_bibitem();
|
||
false output.author % output_author(false);
|
||
true output.title % output_title(true);
|
||
true output.mark % output_mark(true);
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
true output.address % output_address(true);
|
||
true output.publisher % output_publisher(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} { % } else {
|
||
cap.period write$ % write(cap_period);
|
||
} if$ % }
|
||
true output.year % output_year(true);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {program} { % void Entry::program() {
|
||
"CP" set.mark % set_mark("CP");
|
||
program.impl % program_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {database} { % void Entry::database() {
|
||
"DB" set.mark % set_mark("DB");
|
||
program.impl % program_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {unpublished} { % void Entry::unpublished() {
|
||
"H" set.mark % set_mark("H");
|
||
start.bibitem % start_bibitem();
|
||
true output.author % output_author(true);
|
||
true output.title % output_title(true);
|
||
true output.mark % output_mark(true);
|
||
cap.period write$ % write(cap_period);
|
||
true output.year % output_year(true);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {manuscript} { % void Entry::manuscript() {
|
||
unpublished % unpublished();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {inbook.impl} { % void Entry::inbook_impl() {
|
||
start.bibitem % start_bibitem();
|
||
true output.author % output_author(true);
|
||
true output.title % output_title(true);
|
||
true output.mark % output_mark(true);
|
||
false output.translator % output_translator(false);
|
||
cap.double.slash write$ % write(cap_double_slash);
|
||
false output.editor % output_editor(false);
|
||
true output.series.volume.booktitle % output_series_volume_booktitle(true);
|
||
false output.edition % output_edition(false);
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
true output.address % output_address(true);
|
||
true output.publisher % output_publisher(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} { % } else {
|
||
cap.period write$ % write(cap_period);
|
||
} if$ % }
|
||
true output.year % output_year(true);
|
||
false output.pages % output_pages(false);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {inproceedings.impl} { % void Entry::inproceedings_impl() {
|
||
start.bibitem % start_bibitem();
|
||
true output.author % output_author(true);
|
||
true output.title % output_title(true);
|
||
true output.mark % output_mark(true);
|
||
false output.translator % output_translator(false);
|
||
cap.double.slash write$ % write(cap_double_slash);
|
||
false output.editor % output_editor(false);
|
||
true output.series.volume.booktitle % output_series_volume_booktitle(true);
|
||
false output.edition % output_edition(false);
|
||
publisher empty$ not { % if (! empty(this.publisher)) {
|
||
true output.inproaddress % output_inproaddress(true);
|
||
true output.publisher % output_publisher(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} { % } else {
|
||
true output.inproaddress % output_inproaddress(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
} if$ % }
|
||
true output.year % output_year(true);
|
||
false output.pages % output_pages(false);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {inbook} { % void Entry::inbook() {
|
||
"M" set.mark % set_mark("M");
|
||
inbook.impl % inbook_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {incollection} { % void Entry::incollection() {
|
||
"G" set.mark % set_mark("G");
|
||
inbook.impl % inbook_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {inproceedings} { % void Entry::inproceedings() {
|
||
"C" set.mark % set_mark("C");
|
||
inproceedings.impl % inproceedings_impl();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {article} { % void Entry::article() {
|
||
"J" set.mark % set_mark("J");
|
||
start.bibitem % start_bibitem();
|
||
true output.author % output_author(true);
|
||
true output.title % output_title(true);
|
||
true output.mark % output_mark(true);
|
||
true output.journal % output_journal(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
true output.year % output_year(true);
|
||
false output.volume % output_volume(false);
|
||
false output.number % output_number(false);
|
||
false output.pages % output_pages(false);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {news} { % void Entry::news() {
|
||
"N" set.mark % set_mark("N");
|
||
start.bibitem % start_bibitem();
|
||
true output.author % output_author(true);
|
||
true output.title % output_title(true);
|
||
true output.mark % output_mark(true);
|
||
true output.journal % output_journal(true);
|
||
cap.comma write$ % write(cap_comma);
|
||
true output.date % output_date(true);
|
||
false output.number % output_number(false);
|
||
false output.citedate % output_citedate(false);
|
||
false output.url.or.doi % output_url_or_doi(false);
|
||
end.bibitem % end_bibitem();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {default.type} { % void Entry::default_type() {
|
||
"Unsupported entry type for " cite$ * warning$ % warning("Unsupported entry type for " + this.cite);
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {longest.label.pass} { % void longest_label_pass(Entry entry) {
|
||
entry.count #1 + 'entry.count := % entry_count = entry_count + 1;
|
||
entry.count int.to.str$ 'label := % this.label = int_to_str(entry_count);
|
||
label width$ longest.label.width > { % if (width(this.label) > longest_label_width) {
|
||
label 'longest.label := % longest_label = this.label;
|
||
label width$ 'longest.label.width := % longest_label_width = width(this.label);
|
||
} 'skip$ if$ % }
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {write.style.commands} { % void write_style_commands() {
|
||
cmd.bibauthor write$ % write(cmd_bibauthor);
|
||
newline$ % writeln();
|
||
cmd.bibeditor write$ % write(cmd_bibeditor);
|
||
newline$ % writeln();
|
||
cmd.bibtranslator write$ % write(cmd_bibtranslator);
|
||
newline$ % writeln();
|
||
cmd.bibtitle write$ % write(cmd_bibtitle);
|
||
newline$ % writeln();
|
||
cmd.bibbooktitle write$ % write(cmd_bibbooktitle);
|
||
newline$ % writeln();
|
||
cmd.bibjournal write$ % write(cmd_bibjournal);
|
||
newline$ % writeln();
|
||
cmd.bibmark write$ % write(cmd_bibmark);
|
||
newline$ % writeln();
|
||
cmd.bibcountry write$ % write(cmd_bibcountry);
|
||
newline$ % writeln();
|
||
cmd.bibpatentid write$ % write(cmd_bibpatentid);
|
||
newline$ % writeln();
|
||
cmd.bibedition write$ % write(cmd_bibedition);
|
||
newline$ % writeln();
|
||
cmd.biborganization write$ % write(cmd_biborganization);
|
||
newline$ % writeln();
|
||
cmd.bibaddress write$ % write(cmd_bibaddress);
|
||
newline$ % writeln();
|
||
cmd.bibpublisher write$ % write(cmd_bibpublisher);
|
||
newline$ % writeln();
|
||
cmd.bibinstitution write$ % write(cmd_bibinstitution);
|
||
newline$ % writeln();
|
||
cmd.bibschool write$ % write(cmd_bibschool);
|
||
newline$ % writeln();
|
||
cmd.bibvolume write$ % write(cmd_bibvolume);
|
||
newline$ % writeln();
|
||
cmd.bibnumber write$ % write(cmd_bibnumber);
|
||
newline$ % writeln();
|
||
cmd.bibversion write$ % write(cmd_bibversion);
|
||
newline$ % writeln();
|
||
cmd.bibpages write$ % write(cmd_bibpages);
|
||
newline$ % writeln();
|
||
cmd.bibmodifydate write$ % write(cmd_bibmodifydate);
|
||
newline$ % writeln();
|
||
cmd.bibcitedate write$ % write(cmd_bibcitedate);
|
||
newline$ % writeln();
|
||
cmd.bibyear write$ % write(cmd_bibyear);
|
||
newline$ % writeln();
|
||
cmd.bibdate write$ % write(cmd_bibdate);
|
||
newline$ % writeln();
|
||
cmd.biburl write$ % write(cmd_biburl);
|
||
newline$ % writeln();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {begin.bib} { % void begin_bib() {
|
||
preamble$ empty$ not { % if (! empty(premble)) {
|
||
preamble$ write$ % write(premeable);
|
||
newline$ % writeln();
|
||
} 'skip$ if$ % }
|
||
env.bibbegin write$ % write(env_bibbegin);
|
||
"{" longest.label * "}" * write$ % write("{" + longest.label + "}");
|
||
newline$ % writeln();
|
||
write.style.commands % write_style_commands();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {end.bib} { % void end_bib() {
|
||
newline$ % writeln();
|
||
env.bibend write$ % write(env_bibend);
|
||
newline$ % writeln();
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
FUNCTION {initialize} { % void initialize() {
|
||
#0 'entry.count := % entry_count = 0;
|
||
#0 'longest.label.width := % longest_label_width = 0;
|
||
"" 'longest.label := % longest_label = "";
|
||
} % }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
%
|
||
% void main() {
|
||
READ % List<Entry> entryList = read("<file>.bib");
|
||
EXECUTE {initialize} % initialize();
|
||
ITERATE {longest.label.pass} % for (Entry entry : entryList) {
|
||
% longest_label_pass(entry);
|
||
% }
|
||
EXECUTE {begin.bib} % begin_bib();
|
||
ITERATE {call.type$} % for (Entry entry : entryList) {
|
||
% switch (typeof(entry)) {
|
||
% case "book":
|
||
% entry.book();
|
||
% break;
|
||
% case "article":
|
||
% entry.article();
|
||
% break;
|
||
% .
|
||
% .
|
||
% .
|
||
% case "incollection":
|
||
% entry.incollection();
|
||
% break;
|
||
% case "misc":
|
||
% entry.misc();
|
||
% break;
|
||
% default:
|
||
% entry.default_type();
|
||
% }
|
||
% }
|
||
EXECUTE {end.bib} % end_bib();
|
||
% }
|
||
%
|
||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
|