Members/kokubo/2013-mid-thesis: paper/ipsjsort.bst annotate

annotate paper/ipsjsort.bst @ 2:b7c8a956c10b

write benchmark and conclusion

author	Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp>
date	Wed, 06 Nov 2013 01:16:42 +0900
parents	9e88a388ec83
children

rev	line source
0 9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1 % ipsjsort.bst 15-Jun-07 by Hiroshi Nakashima (ver 2.12)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	2 % ipsjsort.bst 30-Jan-02 by Hiroshi Nakashima (ver 2.00)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	3 % ipsjsort.bst 28-Dec-93 by Hiroshi Nakashima (ver 1.00)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	4 % jssst.bst tomura@etl.go.jp (Satoru Tomura)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	5 % BibTeX standard bibliography style `jplain'
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	6 % version 0.10 for JBibTeX versions 0.10 or later, JLaTeX version 2.09.
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	7 % by Shouichi Matsui, matsui@denken.junet
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	8
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	9 ENTRY
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	10 { address
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	11 author
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	12 booktitle
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	13 chapter
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	14 edition
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	15 editor
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	16 howpublished
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	17 institution
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	18 journal
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	19 key
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	20 month
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	21 note
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	22 number
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	23 organization
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	24 pages
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	25 publisher
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	26 school
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	27 series
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	28 title
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	29 type
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	30 volume
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	31 year
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	32 yomi
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	33 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	34 {}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	35 { label }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	36
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	37 INTEGERS { output.state before.all mid.sentence after.sentence after.block }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	38
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	39 INTEGERS { before.year }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	40
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	41 FUNCTION {init.state.consts}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	42 { #0 'before.all :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	43 #1 'mid.sentence :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	44 #2 'after.sentence :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	45 #3 'after.block :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	46 #4 'before.year := % 1.00(1)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	47 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	48
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	49 STRINGS { s t }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	50
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	51 FUNCTION {is.kanji}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	52 { is.kanji.str$ } % 1.00(2), 2.00(1)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	53
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	54 FUNCTION {output.nonnull}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	55 { 's :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	56 output.state mid.sentence =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	57 { duplicate$ is.kanji % 2.00(2)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	58 { "，" * write$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	59 { ", " * write$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	60 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	61 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	62 { output.state after.block =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	63 { add.period$ write$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	64 newline$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	65 "\newblock " write$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	66 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	67 { output.state before.all =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	68 'write$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	69 { output.state before.year = % 1.00(1)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	70 { " " * write$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	71 { add.period$ " " * write$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	72 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	73 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	74 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	75 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	76 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	77 mid.sentence 'output.state :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	78 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	79 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	80 s
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	81 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	82
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	83 FUNCTION {output}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	84 { duplicate$ empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	85 'pop$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	86 'output.nonnull
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	87 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	88 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	89
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	90 FUNCTION {required.argument}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	91 { 't :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	92 empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	93 {"Missing required argument " t * " in " * cite$ * warning$}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	94 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	95 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	96 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	97
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	98 FUNCTION {required.exclusive.or.argument}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	99 { 't :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	100 empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	101 { 's :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	102 empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	103 { t " or " * s * " is missing in " * cite$ * warning$}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	104 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	105 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	106 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	107 { 's :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	108 empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	109 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	110 { "You can use only one of " t * " and " * s * " in " * cite$ * warning$}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	111 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	112 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	113 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	114 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	115
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	116 FUNCTION {required.and.or.argument}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	117 { 't := empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	118 { 's := empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	119 { "there's no " t * " and/or " * s * cite$ * warning$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	120 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	121 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	122 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	123 { pop$ pop$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	124 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	125 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	126
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	127 FUNCTION {optional.series.volume.number.argument}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	128 { series empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	129 { volume empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	130 { number empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	131 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	132 { "there's a number but no series in " cite$ * warning$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	133 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	134 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	135 { number empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	136 { "there's a volume but no series in " cite$ * warning$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	137 { "you can use only one of volume and number in " cite$ * warning$}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	138 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	139 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	140 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	141 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	142 { volume empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	143 { number empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	144 { "there's a series but neither volume nor number in " cite$ * warning$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	145 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	146 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	147 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	148 { number empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	149 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	150 { "you can use only one of volume and number in " cite$ * warning$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	151 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	152 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	153 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	154 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	155 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	156 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	157
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	158 FUNCTION {output.bibitem}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	159 { newline$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	160 "\bibitem{" write$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	161 cite$ write$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	162 "}" write$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	163 newline$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	164 before.all 'output.state :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	165 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	166
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	167 FUNCTION {fin.entry}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	168 { add.period$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	169 write$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	170 newline$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	171 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	172
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	173 FUNCTION {new.block}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	174 { output.state before.all =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	175 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	176 { after.block 'output.state := }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	177 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	178 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	179
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	180 FUNCTION {new.sentence}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	181 { output.state after.block =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	182 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	183 { output.state before.all =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	184 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	185 { after.sentence 'output.state := }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	186 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	187 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	188 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	189 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	190
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	191 FUNCTION {not}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	192 { { #0 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	193 { #1 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	194 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	195 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	196
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	197 FUNCTION {and}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	198 { 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	199 { pop$ #0 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	200 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	201 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	202
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	203 FUNCTION {or}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	204 { { pop$ #1 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	205 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	206 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	207 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	208
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	209 FUNCTION {new.block.checka}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	210 { empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	211 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	212 'new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	213 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	214 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	215
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	216 FUNCTION {new.block.checkb}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	217 { empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	218 swap$ empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	219 and
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	220 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	221 'new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	222 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	223 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	224
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	225 FUNCTION {new.sentence.checka}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	226 { empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	227 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	228 'new.sentence
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	229 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	230 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	231
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	232 FUNCTION {new.sentence.checkb}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	233 { empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	234 swap$ empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	235 and
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	236 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	237 'new.sentence
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	238 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	239 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	240
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	241 FUNCTION {field.or.null}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	242 { duplicate$ empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	243 { pop$ "" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	244 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	245 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	246 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	247
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	248 FUNCTION {emphasize}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	249 { duplicate$ empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	250 { pop$ "" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	251 { duplicate$ is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	252 'skip$ % 1.00(3)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	253 { "{\em " swap$ * "}" * } % 2.00(3)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	254 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	255 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	256 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	257 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	258
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	259 INTEGERS { nameptr namesleft numnames }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	260
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	261 FUNCTION {format.names} % 1.00(4), 2.00(4)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	262 { 's :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	263 #1 'nameptr :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	264 s num.names$ 'numnames :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	265 numnames 'namesleft :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	266 { namesleft #0 > }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	267 { s nameptr "{ff}{ll}" format.name$ duplicate$ is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	268 { duplicate$ text.length$ #6 >
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	269 { 't := }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	270 { pop$ s nameptr "{ff}　{ll}" format.name$ 't := }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	271 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	272 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	273 { pop$ s nameptr "{vv }{ll}{, jj}{, f.}" format.name$ 't := }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	274 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	275 nameptr #1 >
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	276 { namesleft #1 >
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	277 { s is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	278 { "，" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	279 { ", " }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	280 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	281 * t * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	282 { t "others" =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	283 { s is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	284 {"ほか" * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	285 {" et al." * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	286 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	287 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	288 { s is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	289 {"，" * t * } % put "," here for Kanji (H.N.)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	290 {" and " * t * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	291 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	292 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	293 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	294 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	295 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	296 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	297 't
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	298 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	299 nameptr #1 + 'nameptr :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	300 namesleft #1 - 'namesleft :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	301 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	302 while$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	303 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	304
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	305 FUNCTION {format.authors}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	306 { author empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	307 { "" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	308 { author format.names }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	309 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	310 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	311
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	312 FUNCTION {add.colon} % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	313 { duplicate$ is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	314 { "\：" * } % 2.12(1)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	315 { ": " * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	316 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	317 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	318
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	319 FUNCTION {format.editors.inparen} % 2.00(6)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	320 { editor empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	321 { "" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	322 { editor format.names
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	323 editor num.names$ #1 >
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	324 { editor is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	325 {"，編" * } {", eds." *} if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	326 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	327 { editor is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	328 {"，編" } {", ed." } if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	329 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	330 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	331 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	332 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	333 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	334
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	335 FUNCTION {format.editors}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	336 { editor empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	337 { "" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	338 { editor format.names
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	339 editor num.names$ #1 >
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	340 { editor is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	341 {"（編）" * } {"(eds.)" *} if$ % 2.00(7)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	342 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	343 { editor is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	344 {"（編）" } {"(ed.)" } if$ % 2.00(7)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	345 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	346 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	347 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	348 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	349 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	350
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	351 FUNCTION {n.dashify}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	352 { 't :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	353 ""
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	354 { t empty$ not }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	355 { t #1 #1 substring$ "-" =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	356 { t #1 #2 substring$ "--" = not
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	357 { "--" *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	358 t #2 global.max$ substring$ 't :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	359 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	360 { { t #1 #1 substring$ "-" = }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	361 { "-" *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	362 t #2 global.max$ substring$ 't :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	363 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	364 while$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	365 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	366 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	367 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	368 { t #1 #1 substring$ *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	369 t #2 global.max$ substring$ 't :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	370 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	371 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	372 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	373 while$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	374 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	375
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	376 FUNCTION {format.date}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	377 { before.year 'output.state := % 1.00(1)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	378 year empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	379 { month empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	380 { "" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	381 { "there's a month but no year in " cite$ * warning$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	382 "" % 1.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	383 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	384 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	385 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	386 { "(" year ")" * * } % 1.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	387 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	388 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	389
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	390 FUNCTION {tie.or.space.connect}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	391 { duplicate$ text.length$ #3 <
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	392 { "~" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	393 { "\ " } % 1.00(6)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	394 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	395 swap$ * *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	396 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	397
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	398 FUNCTION {output.volume}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	399 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	400 volume empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	401 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	402 { "Vol.~" volume * output}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	403 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	404
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	405 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	406
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	407 FUNCTION {output.number}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	408 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	409 number empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	410 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	411 { "No.~" number * output}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	412 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	413 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	414
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	415 FUNCTION {output.series.volume.number}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	416 { series empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	417 { output.volume
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	418 output.number }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	419 { series is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	420 volume empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	421 number empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	422 or
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	423 and
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	424 { series " " * volume * number * output}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	425 { series output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	426 output.volume
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	427 output.number}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	428 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	429 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	430 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	431 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	432
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	433 FUNCTION {format.edition}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	434 { edition empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	435 { "" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	436 { output.state mid.sentence =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	437 { edition "l" change.case$ " edition" * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	438 { edition "t" change.case$ " edition" * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	439 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	440 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	441 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	442 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	443
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	444 INTEGERS { multiresult }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	445
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	446 FUNCTION {multi.page.check}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	447 { 't :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	448 #0 'multiresult :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	449 { multiresult not
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	450 t empty$ not
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	451 and
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	452 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	453 { t #1 #1 substring$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	454 duplicate$ "-" =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	455 swap$ duplicate$ "," =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	456 swap$ "+" =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	457 or or
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	458 { #1 'multiresult := }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	459 { t #2 global.max$ substring$ 't := }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	460 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	461 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	462 while$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	463 multiresult
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	464 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	465
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	466 FUNCTION {format.pages} % 1.00(7)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	467 { pages empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	468 { "" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	469 { pages multi.page.check
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	470 { "pp." pages n.dashify tie.or.space.connect }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	471 { "p." pages tie.or.space.connect }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	472 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	473 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	474 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	475 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	476
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	477 FUNCTION {format.vol.num.pages} % 1.00(8)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	478 { volume empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	479 { ""}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	480 { " Vol.~" volume * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	481 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	482 number empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	483 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	484 { volume empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	485 { "there's a number but no volume in " cite$ * warning$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	486 { "," *}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	487 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	488 " No.~" number * *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	489 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	490 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	491 pages empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	492 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	493 { duplicate$ empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	494 { pop$ format.pages }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	495 { ", " * format.pages * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	496 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	497 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	498 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	499 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	500
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	501 FUNCTION {format.chapter.pages}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	502 { chapter empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	503 'format.pages
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	504 { type empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	505 { "chapter" chapter tie.or.space.connect }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	506 { type is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	507 { chapter type tie.or.space.connect }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	508 { type "l" change.case$ chapter tie.or.space.connect }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	509 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	510 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	511 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	512 pages empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	513 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	514 { ", " * format.pages * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	515 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	516 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	517 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	518 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	519
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	520 FUNCTION {format.in.ed.booktitle}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	521 { booktitle empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	522 { "" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	523 { booktitle emphasize
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	524 editor empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	525 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	526 { booktitle is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	527 { "（" * format.editors.inparen * "）" *} % 2.00(6,7)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	528 { " (" * format.editors.inparen * ")" *} % 1.00(9), 2.00(6)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	529 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	530 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	531 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	532 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	533 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	534 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	535
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	536 FUNCTION {empty.misc.check}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	537 { author empty$ title empty$ howpublished empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	538 month empty$ year empty$ note empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	539 and and and and and
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	540 key empty$ not and
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	541 { "all relevant fields are empty in " cite$ * warning$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	542 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	543 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	544 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	545
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	546 FUNCTION {format.thesis.type}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	547 { type empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	548 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	549 { pop$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	550 type "t" change.case$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	551 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	552 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	553 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	554
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	555 FUNCTION {format.tr.number}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	556 { type empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	557 { title empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	558 { "Technical Report" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	559 { title is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	560 { "技術報告" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	561 { "Technical Report" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	562 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	563 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	564 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	565 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	566 {type}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	567 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	568 number empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	569 { "t" change.case$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	570 { " " number * * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	571 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	572 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	573
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	574 FUNCTION {format.article.crossref} % 2.00(8)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	575 { key empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	576 { journal empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	577 { "need key or journal for " cite$ * " to crossref " * crossref *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	578 warning$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	579 ""
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	580 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	581 { journal emphasize } % 1.00(10)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	582 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	583 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	584 { "In " key * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	585 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	586 " \cite{" * crossref * "}" *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	587 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	588
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	589 FUNCTION {format.crossref.editor} % 1.00(11)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	590 { editor #1
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	591 editor is.kanji { "{ff}" } { "{vv }{ll}" } if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	592 format.name$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	593 editor num.names$ duplicate$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	594 #2 >
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	595 { editor is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	596 {pop$ "ほか" } {pop$ " et al." } if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	597 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	598 { #2 <
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	599 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	600 { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	601 { editor is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	602 {"ほか" } {" et al." } if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	603 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	604 { editor is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	605 {"・" * editor #2 "{ff}" format.name$ * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	606 {" and " * editor #2 "{vv }{ll}" format.name$ * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	607 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	608 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	609 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	610 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	611 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	612 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	613 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	614 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	615
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	616 FUNCTION {format.book.crossref} % 2.00(8)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	617 { editor empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	618 editor field.or.null author field.or.null =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	619 or
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	620 { key empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	621 { series empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	622 { "need editor, key, or series for " cite$ * " to crossref " *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	623 crossref * warning$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	624 ""
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	625 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	626 { series emphasize } % 1.00(10)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	627 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	628 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	629 { "In " key * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	630 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	631 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	632 { format.crossref.editor }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	633 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	634 " \cite{" * crossref * "}" *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	635 volume empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	636 { "empty volume in " cite$ * "'s crossref of " * crossref * warning$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	637 { duplicate$ is.kanji { "，" } { ", "} if$ *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	638 "Vol." * volume tie.or.space.connect
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	639 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	640 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	641 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	642
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	643 FUNCTION {format.incoll.inproc.crossref} % 2.00(8)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	644 { editor empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	645 editor field.or.null author field.or.null =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	646 or
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	647 { key empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	648 { booktitle empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	649 { "need editor, key, or booktitle for " cite$ * " to crossref " *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	650 crossref * warning$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	651 ""
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	652 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	653 { booktitle emphasize } % 1.00(10)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	654 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	655 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	656 { "In " key * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	657 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	658 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	659 { format.crossref.editor }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	660 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	661 " \cite{" * crossref * "}" *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	662 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	663
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	664 FUNCTION {article}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	665 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	666 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	667 author "author" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	668 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	669 journal "journal" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	670 year "year" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	671 %%%% jssst
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	672 volume "volume"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	673 number "number"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	674 required.and.or.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	675 pages "pages" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	676 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	677 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	678 format.authors add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	679 title output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	680 crossref missing$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	681 { journal emphasize output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	682 format.vol.num.pages output % 1.00(12)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	683 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	684 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	685 { format.article.crossref output.nonnull
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	686 format.pages output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	687 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	688 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	689 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	690 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	691 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	692 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	693
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	694 FUNCTION {book}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	695 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	696 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	697 author "author"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	698 editor "editor"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	699 required.exclusive.or.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	700 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	701 publisher "publisher" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	702 year "year" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	703 optional.series.volume.number.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	704 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	705 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	706 author empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	707 { format.editors}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	708 { format.authors}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	709 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	710 add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	711 title emphasize output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	712 crossref missing$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	713 { output.series.volume.number
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	714 publisher output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	715 address output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	716 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	717 { new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	718 format.book.crossref output.nonnull
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	719 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	720 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	721 format.edition output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	722 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	723 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	724 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	725 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	726 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	727
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	728 FUNCTION {booklet}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	729 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	730 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	731 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	732 %%%% jssst
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	733 author "author" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	734 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	735 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	736 format.authors add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	737 title output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	738 howpublished output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	739 address output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	740 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	741 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	742 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	743 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	744 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	745
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	746 FUNCTION {inbook}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	747 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	748 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	749 author "author"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	750 editor "editor"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	751 required.exclusive.or.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	752 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	753 chapter "chapter"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	754 pages "pages"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	755 required.and.or.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	756 publisher "publisher" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	757 year "year" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	758
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	759 optional.series.volume.number.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	760 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	761 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	762 author empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	763 { format.editors}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	764 { format.authors}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	765 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	766 add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	767 title emphasize output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	768 crossref missing$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	769 { output.series.volume.number
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	770 format.chapter.pages output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	771 publisher output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	772 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	773 { format.chapter.pages output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	774 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	775 format.book.crossref output.nonnull
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	776 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	777 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	778 format.edition output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	779 format.date output % 1.00(13)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	780 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	781 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	782 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	783 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	784
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	785 FUNCTION {incollection}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	786 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	787 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	788 author "author" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	789 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	790 booktitle "booktitle" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	791 publisher "publisher" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	792 year "year" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	793
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	794 optional.series.volume.number.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	795 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	796 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	797 format.authors add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	798 title output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	799 crossref missing$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	800 { format.in.ed.booktitle output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	801 output.series.volume.number
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	802 publisher output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	803 address output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	804 format.edition output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	805 format.chapter.pages output % 1.00(13)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	806 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	807 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	808 { format.incoll.inproc.crossref output.nonnull
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	809 format.chapter.pages output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	810 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	811 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	812 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	813 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	814 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	815 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	816
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	817 FUNCTION {inproceedings}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	818 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	819 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	820 author "author" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	821 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	822 year "year" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	823
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	824 optional.series.volume.number.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	825 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	826 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	827 format.authors add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	828 title output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	829 crossref missing$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	830 { format.in.ed.booktitle output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	831 booktitle "booktitle" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	832 output.series.volume.number
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	833 address output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	834 organization output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	835 publisher output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	836 format.pages output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	837 format.date output % 1.00(13)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	838 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	839 { format.incoll.inproc.crossref output.nonnull
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	840 format.pages output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	841 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	842 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	843 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	844 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	845 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	846 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	847
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	848 FUNCTION {conference} { inproceedings }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	849
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	850 FUNCTION {manual}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	851 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	852 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	853 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	854 %%%% jssst
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	855 author "author"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	856 organization "organazaion"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	857 required.exclusive.or.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	858 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	859 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	860 author empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	861 { organization}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	862 { format.authors}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	863 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	864 add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	865 title emphasize output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	866 author empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	867 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	868 { organization output }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	869 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	870 address output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	871 format.edition output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	872 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	873 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	874 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	875 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	876 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	877
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	878 FUNCTION {mastersthesis}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	879 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	880 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	881 author "author" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	882 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	883 school "school" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	884 year "year" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	885 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	886 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	887 format.authors add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	888 title output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	889 author empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	890 { "Master's thesis" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	891 { author is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	892 { "修士論文" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	893 { "Master's thesis" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	894 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	895 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	896 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	897 format.thesis.type output.nonnull
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	898 school output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	899 address output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	900 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	901 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	902 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	903 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	904 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	905
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	906 FUNCTION {misc}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	907 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	908 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	909 %%%% jssst
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	910 author "author" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	911 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	912 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	913 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	914 format.authors add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	915 title output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	916 howpublished output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	917 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	918 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	919 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	920 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	921 empty.misc.check
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	922 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	923
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	924 FUNCTION {phdthesis}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	925 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	926 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	927 author "author" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	928 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	929 school "school" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	930 year "year" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	931 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	932 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	933 format.authors add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	934 title output % 2.00(9)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	935 author empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	936 { "PhD Thesis" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	937 { author is.kanji
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	938 { "博士論文" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	939 { "PhD Thesis" }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	940 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	941 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	942 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	943 format.thesis.type output.nonnull
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	944 school output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	945 address output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	946 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	947 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	948 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	949 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	950 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	951
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	952 FUNCTION {proceedings}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	953 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	954 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	955 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	956 year "year" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	957
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	958 optional.series.volume.number.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	959 %%%% jssst
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	960 editor "editor"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	961 organization "organization"
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	962 required.exclusive.or.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	963 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	964 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	965 editor empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	966 { organization }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	967 { format.editors }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	968 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	969 add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	970 title emphasize output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	971 output.series.volume.number
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	972 address output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	973 editor empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	974 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	975 { organization output }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	976 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	977 publisher output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	978 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	979 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	980 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	981 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	982 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	983
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	984 FUNCTION {techreport}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	985 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	986 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	987 author "author" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	988 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	989 institution "institution" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	990 year "year" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	991 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	992 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	993 format.authors add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	994 title output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	995 format.tr.number output.nonnull
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	996 institution output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	997 address output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	998 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	999 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1000 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1001 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1002 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1003
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1004 FUNCTION {unpublished}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1005 {
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1006 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1007 author "author" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1008 title "title" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1009 note "note" required.argument
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1010 %%%%
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1011 output.bibitem
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1012 format.authors add.colon % 2.00(5)
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1013 title output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1014 format.date output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1015 new.block
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1016 note output
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1017 fin.entry
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1018 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1019
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1020 FUNCTION {default.type} { misc }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1021
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1022 MACRO {jan} {"January"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1023
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1024 MACRO {feb} {"February"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1025
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1026 MACRO {mar} {"March"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1027
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1028 MACRO {apr} {"April"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1029
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1030 MACRO {may} {"May"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1031
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1032 MACRO {jun} {"June"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1033
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1034 MACRO {jul} {"July"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1035
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1036 MACRO {aug} {"August"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1037
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1038 MACRO {sep} {"September"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1039
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1040 MACRO {oct} {"October"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1041
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1042 MACRO {nov} {"November"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1043
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1044 MACRO {dec} {"December"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1045
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1046 MACRO {acmcs} {"ACM Computing Surveys"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1047
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1048 MACRO {acta} {"Acta Informatica"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1049
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1050 MACRO {cacm} {"Communications of the ACM"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1051
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1052 MACRO {ibmjrd} {"IBM Journal of Research and Development"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1053
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1054 MACRO {ibmsj} {"IBM Systems Journal"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1055
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1056 MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1057
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1058 MACRO {ieeetc} {"IEEE Transactions on Computers"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1059
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1060 MACRO {ieeetcad}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1061 {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1062
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1063 MACRO {ipl} {"Information Processing Letters"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1064
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1065 MACRO {jacm} {"Journal of the ACM"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1066
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1067 MACRO {jcss} {"Journal of Computer and System Sciences"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1068
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1069 MACRO {scp} {"Science of Computer Programming"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1070
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1071 MACRO {sicomp} {"SIAM Journal on Computing"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1072
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1073 MACRO {tocs} {"ACM Transactions on Computer Systems"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1074
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1075 MACRO {tods} {"ACM Transactions on Database Systems"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1076
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1077 MACRO {tog} {"ACM Transactions on Graphics"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1078
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1079 MACRO {toms} {"ACM Transactions on Mathematical Software"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1080
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1081 MACRO {toois} {"ACM Transactions on Office Information Systems"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1082
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1083 MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1084
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1085 MACRO {tcs} {"Theoretical Computer Science"}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1086
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1087 READ
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1088
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1089 FUNCTION {sortify}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1090 { purify$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1091 "l" change.case$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1092 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1093
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1094 INTEGERS { len }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1095
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1096 FUNCTION {chop.word}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1097 { 's :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1098 'len :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1099 s #1 len substring$ =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1100 { s len #1 + global.max$ substring$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1101 's
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1102 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1103 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1104
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1105 FUNCTION {sort.format.names}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1106 { 's :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1107 yomi empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1108 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1109 { yomi 's := }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1110 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1111
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1112 #1 'nameptr :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1113 ""
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1114 s num.names$ 'numnames :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1115 numnames 'namesleft :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1116 { namesleft #0 > }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1117 { nameptr #1 >
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1118 { " " * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1119 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1120 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1121 s nameptr "{vv{ } }{ll{ }}{ ff{ }}{ jj{ }}" format.name$ 't :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1122 nameptr numnames = t "others" = and
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1123 { "et al" * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1124 { t sortify * }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1125 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1126 nameptr #1 + 'nameptr :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1127 namesleft #1 - 'namesleft :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1128 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1129 while$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1130 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1131
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1132 FUNCTION {sort.format.title}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1133 { 't :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1134 "A " #2
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1135 "An " #3
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1136 "The " #4 t chop.word
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1137 chop.word
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1138 chop.word
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1139 sortify
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1140 #1 global.max$ substring$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1141 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1142
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1143 FUNCTION {author.sort}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1144 { author empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1145 { key empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1146 { "to sort, need author or key in " cite$ * warning$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1147 ""
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1148 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1149 { key sortify }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1150 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1151 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1152 { author sort.format.names }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1153 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1154 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1155
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1156 FUNCTION {author.editor.sort}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1157 { author empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1158 { editor empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1159 { key empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1160 { "to sort, need author, editor, or key in " cite$ * warning$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1161 ""
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1162 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1163 { key sortify }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1164 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1165 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1166 { editor sort.format.names }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1167 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1168 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1169 { author sort.format.names }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1170 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1171 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1172
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1173 FUNCTION {author.organization.sort}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1174 { author empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1175 { organization empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1176 { key empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1177 { "to sort, need author, organization, or key in " cite$ * warning$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1178 ""
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1179 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1180 { key sortify }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1181 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1182 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1183 { "The " #4 organization chop.word sortify }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1184 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1185 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1186 { author sort.format.names }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1187 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1188 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1189
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1190 FUNCTION {editor.organization.sort}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1191 { editor empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1192 { organization empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1193 { key empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1194 { "to sort, need editor, organization, or key in " cite$ * warning$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1195 ""
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1196 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1197 { key sortify }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1198 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1199 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1200 { "The " #4 organization chop.word sortify }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1201 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1202 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1203 { editor sort.format.names }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1204 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1205 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1206
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1207 FUNCTION {presort}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1208 { type$ "book" =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1209 type$ "inbook" =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1210 or
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1211 'author.editor.sort
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1212 { type$ "proceedings" =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1213 'editor.organization.sort
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1214 { type$ "manual" =
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1215 'author.organization.sort
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1216 'author.sort
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1217 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1218 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1219 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1220 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1221 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1222 " "
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1223 *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1224 year field.or.null sortify
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1225 *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1226 " "
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1227 *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1228 title field.or.null
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1229 sort.format.title
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1230 *
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1231 #1 entry.max$ substring$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1232 'sort.key$ :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1233 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1234
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1235 ITERATE {presort}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1236
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1237 SORT
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1238
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1239 STRINGS { longest.label }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1240
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1241 INTEGERS { number.label longest.label.width }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1242
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1243 FUNCTION {initialize.longest.label}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1244 { "" 'longest.label :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1245 #1 'number.label :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1246 #0 'longest.label.width :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1247 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1248
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1249 FUNCTION {longest.label.pass}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1250 { number.label int.to.str$ 'label :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1251 number.label #1 + 'number.label :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1252 label width$ longest.label.width >
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1253 { label 'longest.label :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1254 label width$ 'longest.label.width :=
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1255 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1256 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1257 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1258 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1259
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1260 EXECUTE {initialize.longest.label}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1261
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1262 ITERATE {longest.label.pass}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1263
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1264 FUNCTION {begin.bib}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1265 { preamble$ empty$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1266 'skip$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1267 { preamble$ write$ newline$ }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1268 if$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1269 "\begin{thebibliography}{" longest.label * "}" * write$ newline$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1270 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1271
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1272 EXECUTE {begin.bib}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1273
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1274 EXECUTE {init.state.consts}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1275
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1276 ITERATE {call.type$}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1277
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1278 FUNCTION {end.bib}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1279 { newline$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1280 "\end{thebibliography}" write$ newline$
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1281 }
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1282
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1283 EXECUTE {end.bib}
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1284
9e88a388ec83 first commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1285

Mercurial > hg > Members > kokubo > 2013-mid-thesis

annotate paper/ipsjsort.bst @ 2:b7c8a956c10b