%% address-html.bst %% Copyright 1998-2003 Christophe Geuzaine % % $Id: address-html.bst,v 1.8 2004/02/07 23:41:45 geuzaine Exp $ % % This program can be redistributed and/or modified under the terms % of the LaTeX Project Public License distributed from CTAN % archives in directory macros/latex/base/lppl.txt; either % version 1 of the License, or (at your option) any later version. % % BibTeX bibliography style `address-html.bst' % 'directory' database: all fields % % This is definitively a hack... % % The parts you may want to customize are labeled with "CUSTOM" % INTEGERS { nameptr namesleft numnames numaux len } STRINGS { s t u v } % ------------------------------------------------------------ % E N T R I E S % ------------------------------------------------------------ ENTRY { name nickname birthday birthyear address % if empty, use street, city, ... street city state zip country phone cellular fax email url account p.address % if empty, use p.street, p.city, ... p.street p.city p.state p.zip p.country p.phone p.cellular p.fax p.email p.url p.account r.address % if empty, use r.street, r.city, ... r.street r.city r.state r.zip r.country r.phone r.cellular r.fax r.email r.url r.account w.title w.name w.address % if empty, use w.street, w.city, ... w.street w.city w.state w.zip w.country w.phone w.cellular w.fax w.email w.url w.account note } {} { birthday.str private.str residence.str work.str note.str and.str nickname.str address.str phone.str cellular.str fax.str email.str url.str account.str title.str name.str } % ------------------------------------------------------------ % G E N E R A L % ------------------------------------------------------------ FUNCTION {init.strings} { % CUSOTM this is the 'html' equivalent for the \dirXXX customization % commands "
    birthday
" 'birthday.str := "
    home
" 'private.str := "
    residence
" 'residence.str := "
    workplace
" 'work.str := "
    note
" 'note.str := " and " 'and.str := " aka " 'nickname.str := "" 'address.str := "Tel: " 'phone.str := "Mobile: " 'cellular.str := "Fax: " 'fax.str := "" 'email.str := "" 'url.str := "Account: " 'account.str := "" 'title.str := "" 'name.str := } FUNCTION {output.nonnull} { 's := write$ newline$ "
" write$ s } FUNCTION {output} { duplicate$ empty$ 'pop$ 'output.nonnull if$ } FUNCTION {not} { { #0 } { #1 } if$ } FUNCTION {and} { 'skip$ { pop$ #0 } if$ } FUNCTION {or} { { pop$ #1 } 'skip$ if$ } FUNCTION {chop.word} { 's := 'len := s #1 len substring$ = { s len #1 + global.max$ substring$ } 's if$ } FUNCTION {emailize} { duplicate$ empty$ { pop$ "" } { "" * swap$ * "" * } if$ } FUNCTION {urlize} { duplicate$ empty$ { pop$ "" } { "" * swap$ * "" * } if$ } FUNCTION {ttize} { duplicate$ empty$ { pop$ "" } { "" swap$ * "" * } if$ } % ------------------------------------------------------------ % S O R T I N G F U N C T I O N S % ------------------------------------------------------------ FUNCTION {sortify} { purify$ "l" change.case$ } FUNCTION {sort.names} { 's := #1 'nameptr := "" s num.names$ 'numnames := numnames 'namesleft := { namesleft #0 > } { nameptr #1 > { " " * } 'skip$ if$ s nameptr "{vv{ } }{ll{ }}{ ff{ }}{ jj{ }}" format.name$ 't := nameptr numnames = t "others" = and { "et al" * } { t sortify * } if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := } while$ } FUNCTION {sort.raw.names} { 't := "A " #2 "L'" #2 "An " #3 "Au " #3 "Le " #3 "La " #3 "The " #4 "Les " #4 "Aux " #4 t chop.word chop.word chop.word chop.word chop.word chop.word chop.word chop.word chop.word sortify #1 global.max$ substring$ } FUNCTION {name.sort} { name empty$ { " Name field missing in entry '" cite$ * "'" * warning$ "" } { name sort.names } if$ } FUNCTION {raw.name.sort} { name empty$ { " Name field missing in entry '" cite$ * "'" * warning$ "" } { name sort.raw.names } if$ } FUNCTION {presort} { type$ "company" = type$ "place" = or { raw.name.sort } { name.sort } if$ " " * #1 entry.max$ substring$ 'sort.key$ := } % ------------------------------------------------------------ % P R E - A N D P O S T - H E A D E R S % ------------------------------------------------------------ FUNCTION {begin.bib} { "" write$ newline$ "Address Book" write$ newline$ } FUNCTION {end.bib} { newline$ "


This address book was generated by directory
" write$ newline$ } % ------------------------------------------------------------ % F O R M A T S % ------------------------------------------------------------ FUNCTION {format.names} { 's := #1 'nameptr := s num.names$ 'numnames := numnames 'namesleft := { namesleft #0 > } { % CUSTOM uncomment one of the following lines to have the behaviour on the right s nameptr "{ff{ } }{vv{ } }{ll{ }}{, jj{ }}" format.name$ 't := % Christophe de Geuzaine, jr % s nameptr "{f.{ } }{vv{ } }{ll{ }}{, jj{ }}" format.name$ 't := % C. de Geuzaine, jr % s nameptr "{vv{ } }{ll{ }}{ f.{ }}{, jj{ }}" format.name$ 't := % de Geuzaine C., jr % s nameptr "{vv{ } }{ll{ }}{, ff{ }}{, jj{ }}" format.name$ 't := % de Geuzaine, Christophe, jr nameptr #1 > { namesleft #1 > { ", " * t * } { and.str * t * } if$ } 't if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := } while$ } FUNCTION {format.dates} { 's := #1 'nameptr := s num.names$ 'numnames := numnames 'namesleft := birthyear empty$ { #0 'numaux := } { birthyear num.names$ 'numaux := numnames numaux = { } { " birthdays and birthyears don't match in entry '" cite$ * "'" * warning$ } if$ } if$ % CUSTOM { namesleft #0 > } { s nameptr "{ff}" format.name$ 't := s nameptr "{ll}" format.name$ 'u := nameptr #1 > { namesleft #1 > { ", " * t * "/" * u * } { and.str * t * "/" * u * } if$ } { t "/" * u * } if$ numaux #0 > not { } { birthyear nameptr "{ll}" format.name$ 'v := "/" * v * } if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := numaux #1 - 'numaux := } while$ } FUNCTION {format.years} { 's := #1 'nameptr := s num.names$ 'numnames := numnames 'namesleft := { namesleft #0 > } { s nameptr "{ll}" format.name$ 't := nameptr #1 > { namesleft #1 > { ", " * t * } { and.str * t * } if$ } t if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := } while$ } FUNCTION {format.name} { name empty$ { "" } { name format.names } if$ } FUNCTION {format.nickname} { nickname empty$ { "" } { nickname.str nickname format.names * } if$ } FUNCTION {format.birthday.flag} { birthyear empty$ not birthday empty$ not or { birthday.str } { "" } if$ } FUNCTION {format.birthday} { birthday empty$ { birthyear empty$ { "" } { birthyear format.years } if$ } { birthday format.dates } if$ } FUNCTION {format.address} { address empty$ { street empty$ city empty$ state empty$ zip empty$ country empty$ and and and and { "" } { address.str street empty$ { "" * } { street " " * * } if$ city empty$ { "" * } { city " " * * } if$ state empty$ { "" * } { state " " * * } if$ zip empty$ { "" * } { zip " " * * } if$ country empty$ { "" * } { country * } if$ } if$ } { address.str address * } if$ } FUNCTION {format.account} { account empty$ { "" } { account.str account ttize * } if$ } FUNCTION {format.phone} { phone empty$ { "" } { phone.str phone * } if$ } FUNCTION {format.cellular} { cellular empty$ { "" } { cellular.str cellular * } if$ } FUNCTION {format.fax} { fax empty$ { "" } { fax.str fax * } if$ } FUNCTION {format.email} { email empty$ { "" } { email.str email email emailize * } if$ } FUNCTION {format.url} { url empty$ { "" } { url.str url url urlize * } if$ } FUNCTION {format.p.flag} { p.address empty$ not p.street empty$ not p.city empty$ not p.state empty$ not p.zip empty$ not p.country empty$ not p.phone empty$ not p.cellular empty$ not p.fax empty$ not p.email empty$ not p.url empty$ not p.account empty$ not or or or or or or or or or or or { private.str } { "" } if$ } FUNCTION {format.p.address} { p.address empty$ { p.street empty$ p.city empty$ p.state empty$ p.zip empty$ p.country empty$ and and and and { "" } { address.str p.street empty$ { "" * } { p.street " " * * } if$ p.city empty$ { "" * } { p.city " " * * } if$ p.state empty$ { "" * } { p.state " " * * } if$ p.zip empty$ { "" * } { p.zip " " * * } if$ p.country empty$ { "" * } { p.country * } if$ } if$ } { address.str p.address * } if$ } FUNCTION {format.p.phone} { p.phone empty$ { "" } { phone.str p.phone * } if$ } FUNCTION {format.p.cellular} { p.cellular empty$ { "" } { cellular.str p.cellular * } if$ } FUNCTION {format.p.fax} { p.fax empty$ { "" } { fax.str p.fax * } if$ } FUNCTION {format.p.email} { p.email empty$ { "" } { email.str p.email p.email emailize * } if$ } FUNCTION {format.p.url} { p.url empty$ { "" } { url.str p.url p.url urlize * } if$ } FUNCTION {format.p.account} { p.account empty$ { "" } { account.str p.account ttize * } if$ } FUNCTION {format.r.flag} { r.address empty$ not r.street empty$ not r.city empty$ not r.state empty$ not r.zip empty$ not r.country empty$ not r.phone empty$ not r.cellular empty$ not r.fax empty$ not r.email empty$ not r.url empty$ not r.account empty$ not or or or or or or or or or or or { residence.str } { "" } if$ } FUNCTION {format.r.address} { r.address empty$ { r.street empty$ r.city empty$ r.state empty$ r.zip empty$ r.country empty$ and and and and { "" } { address.str r.street empty$ { "" * } { r.street " " * * } if$ r.city empty$ { "" * } { r.city " " * * } if$ r.state empty$ { "" * } { r.state " " * * } if$ r.zip empty$ { "" * } { r.zip " " * * } if$ r.country empty$ { "" * } { r.country * } if$ } if$ } { address.str r.address * } if$ } FUNCTION {format.r.phone} { r.phone empty$ { "" } { phone.str r.phone * } if$ } FUNCTION {format.r.cellular} { r.cellular empty$ { "" } { cellular.str r.cellular * } if$ } FUNCTION {format.r.fax} { r.fax empty$ { "" } { fax.str r.fax * } if$ } FUNCTION {format.r.email} { r.email empty$ { "" } { email.str r.email r.email emailize * } if$ } FUNCTION {format.r.url} { r.url empty$ { "" } { url.str r.url r.url urlize * } if$ } FUNCTION {format.r.account} { r.account empty$ { "" } { account.str r.account ttize * } if$ } FUNCTION {format.w.flag} { w.title empty$ not w.name empty$ not w.address empty$ not w.street empty$ not w.city empty$ not w.state empty$ not w.zip empty$ not w.country empty$ not w.phone empty$ not w.cellular empty$ not w.fax empty$ not w.email empty$ not w.url empty$ not w.account empty$ not or or or or or or or or or or or or or { work.str } { "" } if$ } FUNCTION {format.w.title} { w.title empty$ { "" } { title.str w.title * } if$ } FUNCTION {format.w.name} { w.name empty$ { "" } { name.str w.name * } if$ } FUNCTION {format.w.address} { w.address empty$ { w.street empty$ w.city empty$ w.state empty$ w.zip empty$ w.country empty$ and and and and { "" } { address.str w.street empty$ { "" * } { w.street " " * * } if$ w.city empty$ { "" * } { w.city " " * * } if$ w.state empty$ { "" * } { w.state " " * * } if$ w.zip empty$ { "" * } { w.zip " " * * } if$ w.country empty$ { "" * } { w.country * } if$ } if$ } { address.str w.address * } if$ } FUNCTION {format.w.phone} { w.phone empty$ { "" } { phone.str w.phone * } if$ } FUNCTION {format.w.cellular} { w.cellular empty$ { "" } { cellular.str w.cellular * } if$ } FUNCTION {format.w.fax} { w.fax empty$ { "" } { fax.str w.fax * } if$ } FUNCTION {format.w.email} { w.email empty$ { "" } { email.str w.email w.email emailize * } if$ } FUNCTION {format.w.url} { w.url empty$ { "" } { url.str w.url w.url urlize * } if$ } FUNCTION {format.w.account} { w.account empty$ { "" } { account.str w.account ttize * } if$ } FUNCTION {format.note.flag} { note empty$ { "" } { note.str } if$ } FUNCTION {format.note} { note empty$ { "" } { note } if$ } % ------------------------------------------------------------ % P E R S O N E N T R Y % ------------------------------------------------------------ FUNCTION { person } { init.strings newline$ "

" write$ format.name write$ "
" write$ format.nickname write$ "" format.birthday.flag output format.birthday output format.p.flag output format.p.address output format.p.phone output format.p.cellular output format.p.fax output format.p.email output format.p.url output format.p.account output format.r.flag output format.r.address output format.r.phone output format.r.cellular output format.r.fax output format.r.email output format.r.url output format.r.account output format.w.flag output format.w.title output format.w.name output format.w.address output format.w.phone output format.w.cellular output format.w.fax output format.w.email output format.w.url output format.w.account output format.note.flag output format.note output write$ newline$ } % ------------------------------------------------------------ % C O M P A N Y E N T R Y % ------------------------------------------------------------ FUNCTION { company } { init.strings newline$ "

" write$ name write$ "
" write$ "" format.address output format.phone output format.cellular output format.fax output format.email output format.url output format.account output format.note.flag output format.note output write$ newline$ } % ------------------------------------------------------------ % P L A C E E N T R Y % ------------------------------------------------------------ FUNCTION { place } { init.strings newline$ "

" write$ name write$ "
" write$ "" format.address output format.phone output format.cellular output format.fax output format.note.flag output format.note output write$ newline$ } % ------------------------------------------------------------ % M A I N % ------------------------------------------------------------ READ ITERATE {presort} SORT EXECUTE {begin.bib} ITERATE {call.type$} EXECUTE {end.bib}