%% %% This is file `amsrn.bst', %% generated with the docstrip utility. %% %% The original source files were: %% %% amsxport.dtx (with options: `bst,sort,plain') %% %% Copyright 2001, 2004, 2010 American Mathematical Society. %% %% American Mathematical Society %% Technical Support %% Publications Technical Group %% 201 Charles Street %% Providence, RI 02904 %% USA %% tel: (401) 455-4080 %% (800) 321-4267 (USA and Canada only) %% fax: (401) 331-3842 %% email: tech-supportams.org %% %% This work may be distributed and/or modified under the %% conditions of the LaTeX Project Public License, either version 1.3c %% of this license or (at your option) any later version. %% The latest version of this license is in %% http://www.latex-project.org/lppl.txt %% and version 1.3c or later is part of all distributions of LaTeX %% version 2005/12/01 or later. %% %% This work has the LPPL maintenance status `maintained'. %% %% The Current Maintainer of this work is the American Mathematical %% Society. %% ENTRY { address institution number status archive isbn organization subtitle author issn pages title booktitle journal part translator chapter key pii type date language preprint url edition meeting publisher volume editor month review xid eprint mrnumber school year howpublished note series } { } { label } MACRO {jan} {"-01"} MACRO {feb} {"-02"} MACRO {mar} {"-03"} MACRO {apr} {"-04"} MACRO {may} {"-05"} MACRO {jun} {"-06"} MACRO {jul} {"-07"} MACRO {aug} {"-08"} MACRO {sep} {"-09"} MACRO {oct} {"-10"} MACRO {nov} {"-11"} MACRO {dec} {"-12"} STRINGS { p s t l } INTEGERS { len ptr } FUNCTION {NOT} { { #0 } { #1 } if$ } FUNCTION {AND} { 'skip$ { pop$ #0 } if$ } FUNCTION {OR} { { pop$ #1 } 'skip$ if$ } FUNCTION {TRUE} { #1 } FUNCTION {FALSE} { #0 } FUNCTION {incr.ptr} { ptr #1 + 'ptr := } FUNCTION {current.char} { ptr #1 substring$ } FUNCTION {copy.two.chars} { t * incr.ptr s current.char * incr.ptr } FUNCTION {is.digit} { chr.to.int$ duplicate$ "0" chr.to.int$ #1 - > swap$ "9" chr.to.int$ #1 + < AND } FUNCTION {is.lowercase.letter} { chr.to.int$ duplicate$ "a" chr.to.int$ #1 - > swap$ "z" chr.to.int$ #1 + < AND } FUNCTION {is.uppercase.letter} { chr.to.int$ duplicate$ "A" chr.to.int$ #1 - > swap$ "Z" chr.to.int$ #1 + < AND } FUNCTION {is.letter} { duplicate$ is.lowercase.letter { pop$ TRUE } { is.uppercase.letter } if$ } FUNCTION {skip.accent} { pop$ incr.ptr } FUNCTION {strip.label} { 's := #1 'ptr := "" { s ptr #1 substring$ duplicate$ empty$ NOT } { duplicate$ is.letter { * } { duplicate$ "\" = { skip.accent } 'pop$ if$ } if$ incr.ptr } while$ pop$ } FUNCTION {sortify} { purify$ "l" change.case$ } FUNCTION {lpad} { swap$ 'l := l text.length$ - 'len := { len #0 > } { " " l * 'l := len #1 - 'len := } while$ l } FUNCTION {field.or.null} { duplicate$ empty$ { pop$ "" } 'skip$ if$ } FUNCTION {missing.or.empty} { duplicate$ missing$ swap$ empty$ OR } FUNCTION {append.ndash.and.skip.hyphens} { "\ndash " * incr.ptr { s current.char "-" = } { incr.ptr } while$ } FUNCTION {n.dashify} { 's := #1 'ptr := "" { s current.char 't := t "" = NOT } { t "\" = { copy.two.chars } { t "-" = { append.ndash.and.skip.hyphens } { t * incr.ptr } if$ } if$ } while$ } FUNCTION {missing.warning} { "missing " swap$ * " in " * cite$ * warning$ } INTEGERS { string.ptr } FUNCTION {string.length} { #1 'string.ptr := { duplicate$ string.ptr #1 substring$ "" = 'FALSE 'TRUE if$ } { string.ptr #1 + 'string.ptr := } while$ pop$ string.ptr #1 - } FUNCTION {format.title}{ duplicate$ missing.or.empty { pop$ "" } { "t" change.case$ } if$ } FUNCTION {start.field} { #12 lpad "={" * write$ } FUNCTION {fin.field} { "}," write$ newline$ } FUNCTION {write.field} { duplicate$ missing$ { pop$ missing.warning } { duplicate$ empty$ { pop$ missing.warning } { swap$ start.field write$ fin.field } if$ } if$ } FUNCTION {optional.field} { duplicate$ missing.or.empty { pop$ pop$ } { swap$ start.field write$ fin.field } if$ } FUNCTION {optional.title.field} { duplicate$ missing.or.empty { pop$ pop$ } { format.title swap$ start.field write$ fin.field } if$ } FUNCTION {optional.pages.field} { duplicate$ missing.or.empty { pop$ pop$ } { swap$ start.field n.dashify write$ fin.field } if$ } FUNCTION {optional.mr.field} { duplicate$ missing.or.empty { pop$ pop$ } { swap$ start.field "\MR{" swap$ * "}" * write$ fin.field } if$ } FUNCTION {remove.ordinal.suffix} { 's := s string.length 'len := #1 'ptr := { ptr len < s ptr #1 substring$ is.digit AND } 'incr.ptr while$ s ptr global.max$ substring$ 'p := p "st" = { TRUE } { p "nd" = { TRUE } { p "rd" = { TRUE } { p "th" = { TRUE } { FALSE } if$ } if$ } if$ } if$ { s #1 ptr #1 - substring$ } { s } if$ } FUNCTION {optional.edition.field} { duplicate$ missing.or.empty { pop$ pop$ } { swap$ start.field remove.ordinal.suffix write$ fin.field } if$ } INTEGERS { nameptr numnames namesleft } STRINGS { namelist fieldname } FUNCTION {format.name} { "{vv~}{ll}{, ff}{, jj}" format.name$ } FUNCTION {optional.name.field}{ duplicate$ missing.or.empty { pop$ pop$ } { swap$ 'fieldname := duplicate$ num.names$ 'namesleft := #1 'ptr := { namesleft #0 > } { fieldname start.field duplicate$ ptr format.name write$ fin.field ptr #1 + 'ptr := namesleft #1 - 'namesleft := } while$ pop$ } if$ } FUNCTION {assemble.date.field} { date missing$ { year missing.or.empty { status missing.or.empty { "No year or other date information for " cite$ * warning$ } 'skip$ if$ "status" } { year month missing$ { "" } { month } if$ * } if$ } { date } if$ duplicate$ "status" = { pop$ pop$ } { swap$ start.field write$ fin.field } if$ } FUNCTION {optional.journal.field} { duplicate$ missing.or.empty { pop$ pop$ } { 's := start.field #1 'ptr := s current.char is.lowercase.letter { s "/" * 's := { s ptr #1 substring$ "/" = NOT } { incr.ptr } while$ s ptr #1 + #1 substring$ empty$ { s #1 ptr #1 - substring$ } { s #1 ptr #1 - substring$ write$ fin.field "ISSN" start.field s ptr #1 + #9 substring$ } if$ } { s } if$ write$ fin.field } if$ } FUNCTION {optional.type.field} { duplicate$ missing.or.empty { type$ "mastersthesis" = { "Master's Thesis" } { type$ "phdthesis" = { "Ph.D. Thesis" } { "" } if$ } if$ swap$ pop$ } 'skip$ if$ duplicate$ empty$ { pop$ pop$ } { swap$ start.field write$ fin.field } if$ } FUNCTION {url.note.status.review} { "url" url optional.field "note" note optional.field "status" status optional.field "review" review optional.field "review" mrnumber optional.mr.field } FUNCTION {start.entry} { newline$ "\bib{" cite$ * "}{" * type$ "mastersthesis" = type$ "phdthesis" = OR { "thesis" } { type$ } if$ * "}{" * write$ newline$ } FUNCTION {fin.entry} { "}" write$ newline$ } FUNCTION {article} { start.entry "author" author optional.name.field "translator" translator optional.name.field "title" title format.title write.field "subtitle" subtitle optional.title.field "language" language optional.field "organization" organization optional.field "how" howpublished optional.field "date" assemble.date.field "ISSN" issn optional.field "journal" journal optional.journal.field "volume" volume optional.field "number" number optional.field "pages" pages optional.pages.field "PII" pii optional.field "archive" archive optional.field "eprint" eprint optional.field "preprint" preprint optional.field url.note.status.review fin.entry } FUNCTION {inproceedings} { start.entry "author" author optional.name.field "translator" translator optional.name.field "title" title format.title write.field "subtitle" subtitle optional.title.field "language" language optional.field "organization" organization optional.field "how" howpublished optional.field "date" assemble.date.field "xid" xid optional.field "conference" meeting optional.field "booktitle" booktitle optional.title.field "edition" edition optional.edition.field "editor" editor optional.name.field "series" series optional.field "volume" volume optional.field "publisher" publisher optional.field "address" address optional.field "pages" pages optional.pages.field url.note.status.review fin.entry } FUNCTION {inbook} { inproceedings } FUNCTION {incollection} { inproceedings } FUNCTION {conference} { inproceedings } FUNCTION {book} { start.entry "author" author optional.name.field "editor" editor optional.name.field "translator" translator optional.name.field "title" title missing$ { booktitle } { title } if$ format.title write.field "subtitle" subtitle optional.title.field "type" type optional.type.field "language" language optional.field "conference" meeting optional.field "edition" edition optional.edition.field "series" series optional.field "publisher" publisher optional.field organization missing.or.empty { "institution" institution optional.field } { "organization" organization optional.field } if$ "address" address optional.field "how" howpublished optional.field "date" year write.field "volume" volume optional.field "number" number optional.field "ISBN" isbn optional.field url.note.status.review fin.entry } FUNCTION {booklet} { book } FUNCTION {manual} { book } FUNCTION {mastersthesis} { book } FUNCTION {phdthesis} { book } FUNCTION {proceedings} { book } FUNCTION {collection} { book } FUNCTION {techreport} { book } FUNCTION {unpublished} { book } FUNCTION {misc} { book } FUNCTION {default.type} { misc } READ FUNCTION {chop.word} { 's := 'len := s #1 len substring$ = { s len #1 + global.max$ substring$ } 's if$ } FUNCTION {sort.format.title} { 't := "A " #2 "An " #3 "The " #4 t chop.word chop.word chop.word sortify #1 global.max$ substring$ } FUNCTION {sort.format.names} { 's := #1 'ptr := "" s num.names$ 'numnames := numnames 'namesleft := { namesleft #0 > } { ptr #1 > { " " * } 'skip$ if$ s ptr "{vv{ } }{ll{ }}{ ff{ }}{ jj{ }}" format.name$ 't := ptr numnames = t "others" = AND { "et al" } { t sortify } if$ * ptr #1 + 'ptr := namesleft #1 - 'namesleft := } while$ } FUNCTION {sort.warning} { "to sort, need " swap$ * " or key in " * cite$ * warning$ } FUNCTION {author.sort} { author empty$ { key empty$ { "author" sort.warning "" } { key sortify } if$ } { author sort.format.names } if$ } FUNCTION {author.editor.sort} { author empty$ { editor empty$ { key empty$ { "author, editor," sort.warning "" } { key sortify } if$ } { editor sort.format.names } if$ } { author sort.format.names } if$ } FUNCTION {author.organization.sort} { author empty$ { organization empty$ { key empty$ { "author, organization," sort.warning "" } { key sortify } if$ } { "The " #4 organization chop.word sortify } if$ } { author sort.format.names } if$ } FUNCTION {editor.organization.sort} { editor empty$ { organization empty$ { key empty$ { "editor, organization," sort.warning "" } { key sortify } if$ } { "The " #4 organization chop.word sortify } if$ } { editor sort.format.names } if$ } FUNCTION {presort} { type$ "book" = type$ "inbook" = OR type$ "collection" = OR 'author.editor.sort { type$ "proceedings" = 'editor.organization.sort { type$ "manual" = 'author.organization.sort 'author.sort if$ } if$ } if$ " " * year field.or.null sortify * " " * title field.or.null sort.format.title * #1 entry.max$ substring$ 'sort.key$ := } ITERATE {presort} SORT FUNCTION {write.with.newlines} { 's := #1 'ptr := { s ptr #2 + #1 substring$ "" = NOT } { s ptr #3 substring$ "^^M" = { s #1 ptr #1 - substring$ write$ newline$ ptr #3 + 'ptr := s ptr global.max$ substring$ 's := #1 'ptr := } { incr.ptr } if$ } while$ s write$ newline$ } FUNCTION {begin.bib} { preamble$ empty$ 'skip$ { preamble$ write.with.newlines } if$ "% \bib, bibdiv, biblist are defined by the amsrefs package." write$ newline$ "\begin{bibdiv}" write$ newline$ "\begin{biblist}" write$ newline$ } FUNCTION {end.bib} { newline$ "\end{biblist}" write$ newline$ "\end{bibdiv}" write$ newline$ } EXECUTE {begin.bib} ITERATE {call.type$} EXECUTE {end.bib}