Create your Gitee Account
Explore and code with more than 6 million developers,Free private repositories !:)
Sign up
This repository doesn't specify license. Without author's permission, this code is only for learning and cannot be used for other purposes.
Clone or download
thuthesis-numeric.bst 34.41 KB
Copy Edit Web IDE Raw Blame History
zepinglee authored 2019-06-04 14:01 . no s.l. or s.n. (issue #421)
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879
%%
%% This is file `versions/thu/thuthesis-numeric.bst',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% gbt7714.dtx (with options: `thu,2005,numerical')
%% -------------------------------------------------------------------
%% GB/T 7714-2015 BibTeX Style
%% https://github.com/CTeX-org/gbt7714-bibtex-style
%% Version: 2019/03/21 v1.1.1
%% -------------------------------------------------------------------
%% Copyright (C) 2016-2019 by Zeping Lee <zepinglee AT gmail.com>
%% -------------------------------------------------------------------
%% This file may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3c
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%% https://www.latex-project.org/lppl.txt
%% and version 1.3c or later is part of all distributions of LaTeX
%% version 2005/12/01 or later.
%% -------------------------------------------------------------------
INTEGERS {
uppercase.name
max.num.authors
period.between.author.year
sentence.case.title
link.title
show.mark
slash.for.extraction
in.booktitle
italic.jounal
bold.journal.volume
show.missing.address.publisher
show.url
show.doi
show.note
}
FUNCTION {load.config}
{
#1 'uppercase.name :=
#0 'uppercase.name :=
#3 'max.num.authors :=
#1 'sentence.case.title :=
#0 'link.title :=
#1 'show.mark :=
#1 'slash.for.extraction :=
#0 'in.booktitle :=
#0 'italic.jounal :=
#0 'bold.journal.volume :=
#0 'show.missing.address.publisher :=
#1 'show.url :=
#1 'show.doi :=
#0 'show.doi :=
#0 'show.note :=
}
ENTRY
{ address
author
booktitle
date
doi
edition
editor
howpublished
institution
journal
key
language
mark
medium
note
number
organization
pages
publisher
school
series
title
translator
url
urldate
volume
year
}
{ entry.lang entry.is.electronic entry.numbered }
{ label extra.label sort.label short.list entry.mark entry.url }
INTEGERS { output.state before.all mid.sentence after.sentence after.block after.slash }
INTEGERS { lang.zh lang.ja lang.en lang.ru lang.other }
INTEGERS { charptr len }
FUNCTION {init.state.consts}
{ #0 'before.all :=
#1 'mid.sentence :=
#2 'after.sentence :=
#3 'after.block :=
#4 'after.slash :=
#3 'lang.zh :=
#4 'lang.ja :=
#1 'lang.en :=
#2 'lang.ru :=
#0 'lang.other :=
}
FUNCTION {bbl.anonymous}
{ entry.lang lang.zh =
{ "佚名" }
{ "Anon" }
if$
}
FUNCTION {bbl.space}
{ entry.lang lang.zh =
{ "\ " }
{ " " }
if$
}
FUNCTION {bbl.et.al}
{ entry.lang lang.zh =
{ "等" }
{ entry.lang lang.ja =
{ "他" }
{ entry.lang lang.ru =
{ "идр" }
{ "et~al." }
if$
}
if$
}
if$
}
FUNCTION {citation.et.al}
{ bbl.et.al }
FUNCTION {bbl.colon} { ": " }
FUNCTION {bbl.wide.space} { "\ " }
FUNCTION {bbl.slash} { "//\allowbreak " }
FUNCTION {bbl.sine.loco}
{ entry.lang lang.zh =
{ "[出版地不详]" }
{ "[S.l.]" }
if$
}
FUNCTION {bbl.sine.nomine}
{ entry.lang lang.zh =
{ "[出版者不详]" }
{ "[s.n.]" }
if$
}
FUNCTION {bbl.sine.loco.sine.nomine}
{ entry.lang lang.zh =
{ "[出版地不详: 出版者不详]" }
{ "[S.l.: s.n.]" }
if$
}
FUNCTION {not}
{ { #0 }
{ #1 }
if$
}
FUNCTION {and}
{ 'skip$
{ pop$ #0 }
if$
}
FUNCTION {or}
{ { pop$ #1 }
'skip$
if$
}
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$
{ output.state after.slash =
{ bbl.slash * write$
newline$
}
{ add.period$ " " * write$ }
if$
}
if$
}
if$
mid.sentence 'output.state :=
}
if$
s
}
FUNCTION {output}
{ duplicate$ empty$
'pop$
'output.nonnull
if$
}
FUNCTION {output.after}
{ 't :=
duplicate$ empty$
'pop$
{ 's :=
output.state mid.sentence =
{ t * write$ }
{ output.state after.block =
{ add.period$ write$
newline$
"\newblock " write$
}
{ output.state before.all =
'write$
{ output.state after.slash =
{ bbl.slash * write$ }
{ add.period$ " " * write$ }
if$
}
if$
}
if$
mid.sentence 'output.state :=
}
if$
s
}
if$
}
FUNCTION {output.check}
{ 't :=
duplicate$ empty$
{ pop$ "empty " t * " in " * cite$ * warning$ }
'output.nonnull
if$
}
FUNCTION {fin.entry}
{ add.period$
write$
newline$
}
FUNCTION {new.block}
{ output.state before.all =
'skip$
{ output.state after.slash =
'skip$
{ after.block 'output.state := }
if$
}
if$
}
FUNCTION {new.sentence}
{ output.state after.block =
'skip$
{ output.state before.all =
'skip$
{ output.state after.slash =
'skip$
{ after.sentence 'output.state := }
if$
}
if$
}
if$
}
FUNCTION {new.slash}
{ output.state before.all =
'skip$
{ slash.for.extraction
{ after.slash 'output.state := }
{ after.block 'output.state := }
if$
}
if$
}
FUNCTION {new.block.checka}
{ empty$
'skip$
'new.block
if$
}
FUNCTION {new.block.checkb}
{ empty$
swap$ empty$
and
'skip$
'new.block
if$
}
FUNCTION {new.sentence.checka}
{ empty$
'skip$
'new.sentence
if$
}
FUNCTION {new.sentence.checkb}
{ empty$
swap$ empty$
and
'skip$
'new.sentence
if$
}
FUNCTION {field.or.null}
{ duplicate$ empty$
{ pop$ "" }
'skip$
if$
}
FUNCTION {italicize}
{ duplicate$ empty$
{ pop$ "" }
{ "\textit{" swap$ * "}" * }
if$
}
INTEGERS { byte second.byte }
INTEGERS { char.lang tmp.lang }
STRINGS { tmp.str }
FUNCTION {get.str.lang}
{ 'tmp.str :=
lang.other 'tmp.lang :=
#1 'charptr :=
tmp.str text.length$ #1 + 'len :=
{ charptr len < }
{ tmp.str charptr #1 substring$ chr.to.int$ 'byte :=
byte #128 <
{ charptr #1 + 'charptr :=
byte #64 > byte #91 < and byte #96 > byte #123 < and or
{ lang.en 'char.lang := }
{ lang.other 'char.lang := }
if$
}
{ tmp.str charptr #1 + #1 substring$ chr.to.int$ 'second.byte :=
byte #224 <
{ charptr #2 + 'charptr :=
byte #207 > byte #212 < and
byte #212 = second.byte #176 < and or
{ lang.ru 'char.lang := }
{ lang.other 'char.lang := }
if$
}
{ byte #240 <
{ charptr #3 + 'charptr :=
byte #227 > byte #234 < and
{ lang.zh 'char.lang := }
{ byte #227 =
{ second.byte #143 >
{ lang.zh 'char.lang := }
{ second.byte #128 > second.byte #132 < and
{ lang.ja 'char.lang := }
{ lang.other 'char.lang := }
if$
}
if$
}
{ byte #239 =
second.byte #163 > second.byte #172 < and and
{ lang.zh 'char.lang := }
{ lang.other 'char.lang := }
if$
}
if$
}
if$
}
{ charptr #4 + 'charptr :=
byte #240 = second.byte #159 > and
{ lang.zh 'char.lang := }
{ lang.other 'char.lang := }
if$
}
if$
}
if$
}
if$
char.lang tmp.lang >
{ char.lang 'tmp.lang := }
'skip$
if$
}
while$
tmp.lang
}
FUNCTION {check.entry.lang}
{ author field.or.null
title field.or.null *
get.str.lang
}
FUNCTION {set.entry.lang}
{ language empty$
{ check.entry.lang }
{ language "english" = language "american" = or language "british" = or
{ lang.en }
{ language "chinese" =
{ lang.zh }
{ language "japanese" =
{ lang.ja }
{ language "russian" =
{ lang.ru }
{ check.entry.lang }
if$
}
if$
}
if$
}
if$
}
if$
'entry.lang :=
}
FUNCTION {set.entry.numbered}
{ type$ "patent" =
type$ "standard" = or
type$ "techreport" = or
{ #1 'entry.numbered := }
{ #0 'entry.numbered := }
if$
}
INTEGERS { nameptr namesleft numnames name.lang }
FUNCTION {format.names}
{ 's :=
#1 'nameptr :=
s num.names$ 'numnames :=
numnames 'namesleft :=
{ namesleft #0 > }
{ s nameptr "{vv~}{ll}{, jj}{, ff}" format.name$ 't :=
nameptr max.num.authors >
{ bbl.et.al
#1 'namesleft :=
}
{ t "others" =
{ bbl.et.al }
{ t get.str.lang 'name.lang :=
name.lang lang.en =
{ t #1 "{vv~}{ll}{~f{~}}" format.name$
uppercase.name
{ "u" change.case$ }
'skip$
if$
t #1 "{, jj}" format.name$ *
}
{ t #1 "{ll}{ff}" format.name$ }
if$
}
if$
}
if$
nameptr #1 >
{ ", " swap$ * * }
'skip$
if$
nameptr #1 + 'nameptr :=
namesleft #1 - 'namesleft :=
}
while$
}
FUNCTION {format.key}
{ empty$
{ key field.or.null }
{ "" }
if$
}
FUNCTION {format.authors}
{ author empty$ not
{ author format.names }
{ "empty author in " cite$ * warning$
""
}
if$
}
FUNCTION {format.editors}
{ editor empty$
{ "" }
{ editor format.names }
if$
}
FUNCTION {format.translators}
{ translator empty$
{ "" }
{ translator format.names
entry.lang lang.zh =
{ translator num.names$ #3 >
{ "译" * }
{ ", 译" * }
if$
}
'skip$
if$
}
if$
}
FUNCTION {format.full.names}
{'s :=
#1 'nameptr :=
s num.names$ 'numnames :=
numnames 'namesleft :=
{ namesleft #0 > }
{ s nameptr "{vv~}{ll}{, jj}{, ff}" format.name$ 't :=
t get.str.lang 'name.lang :=
name.lang lang.en =
{ t #1 "{vv~}{ll}" format.name$ 't := }
{ t #1 "{ll}{ff}" format.name$ 't := }
if$
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 {author.editor.full}
{ author empty$
{ editor empty$
{ "" }
{ editor format.full.names }
if$
}
{ author format.full.names }
if$
}
FUNCTION {author.full}
{ author empty$
{ "" }
{ author format.full.names }
if$
}
FUNCTION {editor.full}
{ editor empty$
{ "" }
{ editor format.full.names }
if$
}
FUNCTION {make.full.names}
{ type$ "book" =
type$ "inbook" =
or
'author.editor.full
{ type$ "collection" =
type$ "proceedings" =
or
'editor.full
'author.full
if$
}
if$
}
FUNCTION {output.bibitem}
{ newline$
"\bibitem[" write$
label write$
")" make.full.names duplicate$ short.list =
{ pop$ }
{ * }
if$
's :=
s text.length$ 'charptr :=
{ charptr #0 > }
{ s charptr #1 substring$ "]" =
{ #0 'charptr := }
{ charptr #1 - 'charptr := }
if$
}
while$
charptr #0 >
{ "{" s * "}" * }
{ s }
if$
"]{" * write$
cite$ write$
"}" write$
newline$
""
before.all 'output.state :=
}
FUNCTION {change.sentence.case}
{ entry.lang lang.en =
{ "t" change.case$ }
'skip$
if$
}
FUNCTION {add.link}
{ url empty$ not
{ "\href{" url * "}{" * swap$ * "}" * }
{ doi empty$ not
{ "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
'skip$
if$
}
if$
}
FUNCTION {format.title}
{ title empty$
{ "" }
{ title
sentence.case.title
'change.sentence.case
'skip$
if$
entry.numbered number empty$ not and
{ bbl.colon * number * }
'skip$
if$
link.title
'add.link
'skip$
if$
}
if$
}
FUNCTION {tie.or.space.connect}
{ duplicate$ text.length$ #3 <
{ "~" }
{ " " }
if$
swap$ * *
}
FUNCTION {either.or.check}
{ empty$
'pop$
{ "can't use both " swap$ * " fields in " * cite$ * warning$ }
if$
}
FUNCTION {is.digit}
{ duplicate$ empty$
{ pop$ #0 }
{ chr.to.int$
duplicate$ "0" chr.to.int$ <
{ pop$ #0 }
{ "9" chr.to.int$ >
{ #0 }
{ #1 }
if$
}
if$
}
if$
}
FUNCTION {is.number}
{ 's :=
s empty$
{ #0 }
{ s text.length$ 'charptr :=
{ charptr #0 >
s charptr #1 substring$ is.digit
and
}
{ charptr #1 - 'charptr := }
while$
charptr not
}
if$
}
FUNCTION {format.volume}
{ volume empty$ not
{ volume is.number
{ entry.lang lang.zh =
{ "第 " volume * " 卷" * }
{ "volume" volume tie.or.space.connect }
if$
}
{ volume }
if$
}
{ "" }
if$
}
FUNCTION {format.number}
{ number empty$ not
{ number is.number
{ entry.lang lang.zh =
{ "第 " number * " 册" * }
{ "number" number tie.or.space.connect }
if$
}
{ number }
if$
}
{ "" }
if$
}
FUNCTION {format.volume.number}
{ volume empty$ not
{ format.volume }
{ format.number }
if$
}
FUNCTION {format.title.vol.num}
{ title
sentence.case.title
'change.sentence.case
'skip$
if$
entry.numbered
{ number empty$ not
{ bbl.colon * number * }
'skip$
if$
}
{ format.volume.number 's :=
s empty$ not
{ bbl.colon * s * }
'skip$
if$
}
if$
}
FUNCTION {format.series.vol.num.title}
{ format.volume.number 's :=
series empty$ not
{ series
sentence.case.title
'change.sentence.case
'skip$
if$
entry.numbered
{ bbl.wide.space * }
{ bbl.colon *
s empty$ not
{ s * bbl.wide.space * }
'skip$
if$
}
if$
title *
sentence.case.title
'change.sentence.case
'skip$
if$
entry.numbered number empty$ not and
{ bbl.colon * number * }
'skip$
if$
}
{ format.title.vol.num }
if$
link.title
'add.link
'skip$
if$
}
FUNCTION {format.booktitle.vol.num}
{ booktitle
entry.numbered
'skip$
{ format.volume.number 's :=
s empty$ not
{ bbl.colon * s * }
'skip$
if$
}
if$
}
FUNCTION {format.series.vol.num.booktitle}
{ format.volume.number 's :=
series empty$ not
{ series bbl.colon *
entry.numbered not s empty$ not and
{ s * bbl.wide.space * }
'skip$
if$
booktitle *
}
{ format.booktitle.vol.num }
if$
in.booktitle
{ duplicate$ empty$ not entry.lang lang.en = and
{ "In: " swap$ * }
'skip$
if$
}
'skip$
if$
}
FUNCTION {format.journal}
{ journal
italic.jounal entry.lang lang.en = and
'italicize
'skip$
if$
}
FUNCTION {set.entry.mark}
{ entry.mark empty$ not
'pop$
{ mark empty$ not
{ pop$ mark 'entry.mark := }
{ 'entry.mark := }
if$
}
if$
}
FUNCTION {format.mark}
{ show.mark
{ medium empty$ not
{ entry.mark "/" * medium * 'entry.mark := }
{ entry.is.electronic
{ entry.mark "/OL" * 'entry.mark := }
'skip$
if$
}
if$
"\allowbreak[" entry.mark * "]" *
}
{ "" }
if$
}
FUNCTION {num.to.ordinal}
{ duplicate$ text.length$ 'charptr :=
duplicate$ charptr #1 substring$ 's :=
s "1" =
{ "st" * }
{ s "2" =
{ "nd" * }
{ s "3" =
{ "rd" * }
{ "th" * }
if$
}
if$
}
if$
}
FUNCTION {format.edition}
{ edition empty$
{ "" }
{ edition is.number
{ entry.lang lang.zh =
{ edition " 版" * }
{ edition num.to.ordinal " ed." * }
if$
}
{ entry.lang lang.en =
{ edition change.sentence.case 's :=
s "Revised" = s "Revised edition" = or
{ "Rev. ed." }
{ s " ed." *}
if$
}
{ edition }
if$
}
if$
}
if$
}
FUNCTION {format.publisher}
{ publisher empty$ not
{ publisher }
{ school empty$ not
{ school }
{ organization empty$ not
{ organization }
{ institution empty$ not
{ institution }
{ "" }
if$
}
if$
}
if$
}
if$
}
FUNCTION {format.address.publisher}
{ address empty$ not
{ address
format.publisher empty$ not
{ bbl.colon * format.publisher * }
{ entry.is.electronic not show.missing.address.publisher and
{ bbl.colon * bbl.sine.nomine * }
'skip$
if$
}
if$
}
{ entry.is.electronic not show.missing.address.publisher and
{ format.publisher empty$ not
{ bbl.sine.loco bbl.colon * format.publisher * }
{ bbl.sine.loco.sine.nomine }
if$
}
{ format.publisher empty$ not
{ format.publisher }
{ "" }
if$
}
if$
}
if$
}
FUNCTION {extract.before.dash}
{ duplicate$ empty$
{ pop$ "" }
{ 's :=
#1 'charptr :=
s text.length$ #1 + 'len :=
{ charptr len <
s charptr #1 substring$ "-" = not
and
}
{ charptr #1 + 'charptr := }
while$
s #1 charptr #1 - substring$
}
if$
}
FUNCTION {extract.after.dash}
{ duplicate$ empty$
{ pop$ "" }
{ 's :=
#1 'charptr :=
s text.length$ #1 + 'len :=
{ charptr len <
s charptr #1 substring$ "-" = not
and
}
{ charptr #1 + 'charptr := }
while$
{ charptr len <
s charptr #1 substring$ "-" =
and
}
{ charptr #1 + 'charptr := }
while$
s charptr global.max$ substring$
}
if$
}
FUNCTION {contains.dash}
{ duplicate$ empty$
{ pop$ #0 }
{ 's :=
{ s empty$ not
s #1 #1 substring$ "-" = not
and
}
{ s #2 global.max$ substring$ 's := }
while$
s empty$ not
}
if$
}
FUNCTION {format.year}
{ year empty$ not
{ year extract.before.dash }
{ date empty$ not
{ date extract.before.dash }
{ "empty year in " cite$ * warning$
urldate empty$ not
{ "[" urldate extract.before.dash * "]" * }
{ "" }
if$
}
if$
}
if$
extra.label *
}
FUNCTION {format.date}
{ type$ "patent" = type$ "newspaper" = or
date empty$ not and
{ date }
{ year }
if$
}
FUNCTION {format.editdate}
{ date empty$ not
{ "\allowbreak(" date * ")" * }
{ "" }
if$
}
FUNCTION {format.urldate}
{ urldate empty$ not entry.is.electronic and
{ "\allowbreak[" urldate * "]" * }
{ "" }
if$
}
FUNCTION {hyphenate}
{ 't :=
""
{ t empty$ not }
{ t #1 #1 substring$ "-" =
{ "-" *
{ t #1 #1 substring$ "-" = }
{ t #2 global.max$ substring$ 't := }
while$
}
{ t #1 #1 substring$ *
t #2 global.max$ substring$ 't :=
}
if$
}
while$
}
FUNCTION {format.pages}
{ pages empty$
{ "" }
{ pages hyphenate }
if$
}
FUNCTION {format.journal.volume}
{ volume empty$ not
{ bold.journal.volume
{ "\textbf{" volume * "}" * }
{ volume }
if$
}
{ "" }
if$
}
FUNCTION {format.journal.number}
{ number empty$ not
{ "\penalty0 (" number * ")" * }
{ "" }
if$
}
FUNCTION {format.journal.pages}
{ pages empty$
{ "" }
{ ":\penalty0 " pages hyphenate * }
if$
}
FUNCTION {format.periodical.year.volume.number}
{ year empty$ not
{ year extract.before.dash }
{ "empty year in periodical " cite$ * warning$ }
if$
volume empty$ not
{ ", " * volume extract.before.dash * }
'skip$
if$
number empty$ not
{ "\penalty0 (" * number extract.before.dash * ")" * }
'skip$
if$
year contains.dash
{ "--" *
year extract.after.dash empty$
volume extract.after.dash empty$ and
number extract.after.dash empty$ and not
{ year extract.after.dash empty$ not
{ year extract.after.dash * }
{ year extract.before.dash * }
if$
volume empty$ not
{ ", " * volume extract.after.dash * }
'skip$
if$
number empty$ not
{ "\penalty0 (" * number extract.after.dash * ")" * }
'skip$
if$
}
'skip$
if$
}
'skip$
if$
}
FUNCTION {check.url}
{ url empty$ not
{ "\url{" url * "}" * 'entry.url :=
#1 'entry.is.electronic :=
}
{ howpublished empty$ not
{ howpublished #1 #5 substring$ "\url{" =
{ howpublished 'entry.url :=
#1 'entry.is.electronic :=
}
'skip$
if$
}
{ note empty$ not
{ note #1 #5 substring$ "\url{" =
{ note 'entry.url :=
#1 'entry.is.electronic :=
}
'skip$
if$
}
'skip$
if$
}
if$
}
if$
}
FUNCTION {format.url}
{ entry.url empty$ not
{ new.block entry.url }
{ "" }
if$
}
FUNCTION {check.doi}
{ doi empty$ not
{ #1 'entry.is.electronic := }
'skip$
if$
}
FUNCTION {is.in.url}
{ 's :=
s empty$
{ #1 }
{ entry.url empty$
{ #0 }
{ s text.length$ 'len :=
entry.url text.length$ 'charptr :=
{ entry.url charptr len substring$ s = not
charptr #0 >
and
}
{ charptr #1 - 'charptr := }
while$
charptr
}
if$
}
if$
}
FUNCTION {format.doi}
{ ""
doi empty$ not show.doi and
{ "" 's :=
doi 't :=
#0 'numnames :=
{ t empty$ not}
{ t #1 #1 substring$ 'tmp.str :=
tmp.str "," = tmp.str " " = or t #2 #1 substring$ empty$ or
{ t #2 #1 substring$ empty$
{ s tmp.str * 's := }
'skip$
if$
s empty$ s is.in.url or
'skip$
{ numnames #1 + 'numnames :=
numnames #1 >
{ ", " * }
{ "DOI: " * }
if$
"\doi{" s * "}" * *
}
if$
"" 's :=
}
{ s tmp.str * 's := }
if$
t #2 global.max$ substring$ 't :=
}
while$
's :=
s empty$ not
{ new.block s }
{ "" }
if$
}
'skip$
if$
}
FUNCTION {check.electronic}
{ "" 'entry.url :=
#0 'entry.is.electronic :=
'check.doi
'skip$
if$
'check.url
'skip$
if$
medium empty$ not
{ medium "MT" = medium "DK" = or medium "CD" = or medium "OL" = or
{ #1 'entry.is.electronic := }
'skip$
if$
}
'skip$
if$
}
FUNCTION {format.note}
{ note empty$ not show.note and
{ note }
{ "" }
if$
}
FUNCTION {empty.misc.check}
{ author empty$ title empty$
year empty$
and and
key empty$ not and
{ "all relevant fields are empty in " cite$ * warning$ }
'skip$
if$
}
FUNCTION {monograph}
{ output.bibitem
author empty$ not
{ format.authors }
{ editor empty$ not
{ format.editors }
{ "empty author and editor in " cite$ * warning$
""
}
if$
}
if$
output
new.block
format.series.vol.num.title "title" output.check
"M" set.entry.mark
format.mark "" output.after
new.block
format.translators output
new.sentence
format.edition output
new.block
format.address.publisher output
format.year "year" output.check
format.pages bbl.colon output.after
format.urldate "" output.after
format.url output
format.doi output
new.block
format.note output
fin.entry
}
FUNCTION {incollection}
{ output.bibitem
format.authors output
author format.key output
new.block
format.title "title" output.check
"M" set.entry.mark
format.mark "" output.after
new.block
format.translators output
new.slash
format.editors output
new.block
format.series.vol.num.booktitle "booktitle" output.check
new.block
format.edition output
new.block
format.address.publisher output
format.year "year" output.check
format.pages bbl.colon output.after
format.urldate "" output.after
format.url output
format.doi output
new.block
format.note output
fin.entry
}
FUNCTION {periodical}
{ output.bibitem
format.authors output
author format.key output
new.block
format.title "title" output.check
"J" set.entry.mark
format.mark "" output.after
new.block
format.periodical.year.volume.number output
new.block
format.address.publisher output
format.date "year" output.check
format.urldate "" output.after
format.url output
format.doi output
new.block
format.note output
fin.entry
}
FUNCTION {article}
{ output.bibitem
format.authors output
author format.key output
new.block
format.title "title" output.check
"J" set.entry.mark
format.mark "" output.after
new.block
format.journal "journal" output.check
format.date "year" output.check
format.journal.volume output
format.journal.number "" output.after
format.journal.pages "" output.after
format.urldate "" output.after
format.url output
format.doi output
new.block
format.note output
fin.entry
}
FUNCTION {patent}
{ output.bibitem
format.authors output
author format.key output
new.block
format.title "title" output.check
"P" set.entry.mark
format.mark "" output.after
new.block
format.date "year" output.check
format.urldate "" output.after
format.url output
format.doi output
new.block
format.note output
fin.entry
}
FUNCTION {electronic}
{ #1 #1 check.electronic
#1 'entry.is.electronic :=
output.bibitem
format.authors output
author format.key output
new.block
format.series.vol.num.title "title" output.check
"EB" set.entry.mark
format.mark "" output.after
new.block
format.address.publisher output
date empty$
{ format.date output }
'skip$
if$
format.pages bbl.colon output.after
format.editdate "" output.after
format.urldate "" output.after
format.url output
format.doi output
new.block
format.note output
fin.entry
}
FUNCTION {misc}
{ journal empty$ not
'article
{ booktitle empty$ not
'incollection
{ publisher empty$ not
'monograph
{ entry.is.electronic
'electronic
{ "Z" set.entry.mark
monograph
}
if$
}
if$
}
if$
}
if$
empty.misc.check
}
FUNCTION {archive}
{ "A" set.entry.mark
misc
}
FUNCTION {book} { monograph }
FUNCTION {booklet} { book }
FUNCTION {collection}
{ "G" set.entry.mark
monograph
}
FUNCTION {database}
{ "DB" set.entry.mark
electronic
}
FUNCTION {dataset}
{ "DS" set.entry.mark
electronic
}
FUNCTION {inbook} { book }
FUNCTION {inproceedings}
{ "C" set.entry.mark
incollection
}
FUNCTION {conference} { inproceedings }
FUNCTION {map}
{ "CM" set.entry.mark
misc
}
FUNCTION {manual} { monograph }
FUNCTION {mastersthesis}
{ lang.zh entry.lang =
{ "硕士学位论文" }
{ "D" }
if$
set.entry.mark
monograph
}
FUNCTION {newspaper}
{ "N" set.entry.mark
article
}
FUNCTION {online}
{ "EB" set.entry.mark
electronic
}
FUNCTION {phdthesis}
{ lang.zh entry.lang =
{ "博士学位论文" }
{ "D" }
if$
set.entry.mark
monograph
}
FUNCTION {proceedings}
{ "C" set.entry.mark
monograph
}
FUNCTION {software}
{ "CP" set.entry.mark
electronic
}
FUNCTION {standard}
{ "S" set.entry.mark
misc
}
FUNCTION {techreport}
{ "R" set.entry.mark
misc
}
FUNCTION {unpublished}
{ "Z" set.entry.mark
misc
}
FUNCTION {default.type} { misc }
MACRO {jan} {"January"}
MACRO {feb} {"February"}
MACRO {mar} {"March"}
MACRO {apr} {"April"}
MACRO {may} {"May"}
MACRO {jun} {"June"}
MACRO {jul} {"July"}
MACRO {aug} {"August"}
MACRO {sep} {"September"}
MACRO {oct} {"October"}
MACRO {nov} {"November"}
MACRO {dec} {"December"}
MACRO {acmcs} {"ACM Computing Surveys"}
MACRO {acta} {"Acta Informatica"}
MACRO {cacm} {"Communications of the ACM"}
MACRO {ibmjrd} {"IBM Journal of Research and Development"}
MACRO {ibmsj} {"IBM Systems Journal"}
MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
MACRO {ieeetc} {"IEEE Transactions on Computers"}
MACRO {ieeetcad}
{"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
MACRO {ipl} {"Information Processing Letters"}
MACRO {jacm} {"Journal of the ACM"}
MACRO {jcss} {"Journal of Computer and System Sciences"}
MACRO {scp} {"Science of Computer Programming"}
MACRO {sicomp} {"SIAM Journal on Computing"}
MACRO {tocs} {"ACM Transactions on Computer Systems"}
MACRO {tods} {"ACM Transactions on Database Systems"}
MACRO {tog} {"ACM Transactions on Graphics"}
MACRO {toms} {"ACM Transactions on Mathematical Software"}
MACRO {toois} {"ACM Transactions on Office Information Systems"}
MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
MACRO {tcs} {"Theoretical Computer Science"}
FUNCTION {sortify}
{ purify$
"l" change.case$
}
FUNCTION {chop.word}
{ 's :=
'len :=
s #1 len substring$ =
{ s len #1 + global.max$ substring$ }
's
if$
}
FUNCTION {format.lab.names}
{ 's :=
s #1 "{vv~}{ll}{, jj}{, ff}" format.name$ 't :=
t get.str.lang 'name.lang :=
name.lang lang.en =
{ t #1 "{vv~}{ll}" format.name$}
{ t #1 "{ll}{ff}" format.name$}
if$
s num.names$ #1 >
{ bbl.space * citation.et.al * }
'skip$
if$
}
FUNCTION {author.key.label}
{ author empty$
{ key empty$
{ cite$ #1 #3 substring$ }
'key
if$
}
{ author format.lab.names }
if$
}
FUNCTION {author.editor.key.label}
{ author empty$
{ editor empty$
{ key empty$
{ cite$ #1 #3 substring$ }
'key
if$
}
{ editor format.lab.names }
if$
}
{ author format.lab.names }
if$
}
FUNCTION {author.key.organization.label}
{ author empty$
{ key empty$
{ organization empty$
{ cite$ #1 #3 substring$ }
{ "The " #4 organization chop.word #3 text.prefix$ }
if$
}
'key
if$
}
{ author format.lab.names }
if$
}
FUNCTION {editor.key.organization.label}
{ editor empty$
{ key empty$
{ organization empty$
{ cite$ #1 #3 substring$ }
{ "The " #4 organization chop.word #3 text.prefix$ }
if$
}
'key
if$
}
{ editor format.lab.names }
if$
}
FUNCTION {calc.short.authors}
{ type$ "book" =
type$ "inbook" =
or
'author.editor.key.label
{ type$ "collection" =
type$ "proceedings" =
or
{ editor empty$ not
'editor.key.organization.label
'author.key.organization.label
if$
}
'author.key.label
if$
}
if$
'short.list :=
}
FUNCTION {calc.label}
{ calc.short.authors
short.list
"("
*
format.year duplicate$ empty$
short.list key field.or.null = or
{ pop$ "" }
'skip$
if$
*
'label :=
}
INTEGERS { seq.num }
FUNCTION {init.seq}
{ #0 'seq.num :=}
FUNCTION {int.to.fix}
{ "000000000" swap$ int.to.str$ *
#-1 #10 substring$
}
FUNCTION {presort}
{ set.entry.lang
set.entry.numbered
show.url show.doi check.electronic
calc.label
label sortify
" "
*
seq.num #1 + 'seq.num :=
seq.num int.to.fix
'sort.label :=
sort.label *
#1 entry.max$ substring$
'sort.key$ :=
}
STRINGS { longest.label last.label next.extra }
INTEGERS { longest.label.width last.extra.num number.label }
FUNCTION {initialize.longest.label}
{ "" 'longest.label :=
#0 int.to.chr$ 'last.label :=
"" 'next.extra :=
#0 'longest.label.width :=
#0 'last.extra.num :=
#0 'number.label :=
}
FUNCTION {forward.pass}
{ last.label label =
{ last.extra.num #1 + 'last.extra.num :=
last.extra.num int.to.chr$ 'extra.label :=
}
{ "a" chr.to.int$ 'last.extra.num :=
"" 'extra.label :=
label 'last.label :=
}
if$
number.label #1 + 'number.label :=
}
FUNCTION {reverse.pass}
{ next.extra "b" =
{ "a" 'extra.label := }
'skip$
if$
extra.label 'next.extra :=
extra.label
duplicate$ empty$
'skip$
{ "{\natexlab{" swap$ * "}}" * }
if$
'extra.label :=
label extra.label * 'label :=
}
FUNCTION {bib.sort.order}
{ sort.label 'sort.key$ :=
}
FUNCTION {begin.bib}
{ preamble$ empty$
'skip$
{ preamble$ write$ newline$ }
if$
"\begin{thebibliography}{" number.label int.to.str$ * "}" *
write$ newline$
"\providecommand{\natexlab}[1]{#1}"
write$ newline$
"\providecommand{\url}[1]{#1}"
write$ newline$
"\expandafter\ifx\csname urlstyle\endcsname\relax\relax\else"
write$ newline$
" \urlstyle{same}\fi"
write$ newline$
show.doi
{ "\providecommand{\href}[2]{\url{#2}}"
write$ newline$
"\providecommand{\doi}[1]{\href{https://doi.org/#1}{#1}}"
write$ newline$
}
'skip$
if$
}
FUNCTION {end.bib}
{ newline$
"\end{thebibliography}" write$ newline$
}
READ
EXECUTE {init.state.consts}
EXECUTE {load.config}
EXECUTE {init.seq}
ITERATE {presort}
SORT
EXECUTE {initialize.longest.label}
ITERATE {forward.pass}
REVERSE {reverse.pass}
ITERATE {bib.sort.order}
SORT
EXECUTE {begin.bib}
ITERATE {call.type$}
EXECUTE {end.bib}

Comment ( 0 )

Sign in for post a comment