Papers/2015/atton-sigse: ipsjsort-e.bst annotate

annotate ipsjsort-e.bst @ 12:f0724df5ddbc

Add versions.pdf

author	Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date	Tue, 09 Dec 2014 15:18:26 +0900
parents	07abe01ef529
children

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

Mercurial > hg > Papers > 2015 > atton-sigse

annotate ipsjsort-e.bst @ 12:f0724df5ddbc