diff --git a/README b/README --- a/README +++ b/README @@ -4,7 +4,7 @@ About ----- -[citeproc-hs] is a Haskell implementation of the Citation Style +[citeproc-hs] is a [Haskell] implementation of the Citation Style Language ([CSL]). [citeproc-hs] adds to [pandoc], the famous [Haskell] text processing @@ -27,11 +27,8 @@ [citeproc-hs] can process and format citations according to a [CSL] style, given a collection of references. -Natively [citeproc-hs] can only read [MODS] XML formattted -bibliographic databases. The Metadata Object Description Schema -([MODS]) is an XML format which is used by [bibutils] to interconvert -many different bibliographic database formats, like Bibtex, Endnote, -and others. +Natively [citeproc-hs] can read [JSON][^1] and [MODS][^2] XML +formattted bibliographic databases. [bibutils] can be used to convert Bibtex and other bibliographic databases to [MODS] collections, which can be thus read by @@ -46,15 +43,7 @@ styles and [MODS] collections, to process lists of citation groups and to format the processed output. The output is a Haskell data type that can be further processed for conversion to any kind of formats (at the -present time plain ASCII and the pandoc] native format) - -[pandoc] is a [Haskell] library for converting from one markup format to -another, and a command-line tool that uses this library. It can read -[markdown] and (subsets of) [reStructuredText], [HTML], and [LaTeX]; and -it can write [markdown], [reStructuredText], [HTML], [LaTeX], [ConTeXt], -[RTF], [DocBook XML], [OpenDocument XML], [ODT], [GNU Texinfo], -[MediaWiki markup], [groff man] pages, and [S5] HTML slide shows. - +present time plain ASCII and the [pandoc] native format) Download -------- @@ -70,12 +59,13 @@ Installation ------------ -### Installing without bibutils support - -[citeproc-hs] depends on [hxt], the Haskell XML Tool Box. +[citeproc-hs] depends on a few Haskell packages. Most of them come +with the [Haskell Platform] and are usually included in every Haskell +tool-chain. -In order to install [citeproc-hs] you need to install [hxt] and its -dependencies. You can download everything from [Hackage]: +In order to install [citeproc-hs] you need to install its +dependencies. You can choose to manually download and install +everything from [Hackage]: @@ -95,92 +85,122 @@ runhaskell Setup.lhs build runhaskell Setup.lhs install --user -### Installing with bibutils support +Alternatively you can use [cabal-install] to install [citeproc-hs] and +all the needed dependencies: -Since [bibutils] doesn't build a shared object and doesn't install the -library, which is a static object used to compile the single -[bibutils] utilities, by default [citeproc-hs] is not built with -[bibutils] support. + cabal update + cabal install citeproc-hs -If you succeeded in installing [bibutils] and [hs-bibutils], you can -enable [bibutils] by configuring with the `-fbibutils` flag: - runhaskell Setup.lhs configure -fbibutils +### Installing without bibutils or network support +[bibutils] and network support may be suppressed with cabal flags: + + + runhaskell Setup.lhs configure -f'-bibutils' + +or + + runhaskell Setup.lhs configure -f'-bibutils -network' + and then build and install with: runhaskell Setup.lhs build runhaskell Setup.lhs install +It is possible to pass the flags also too [cabal-install]. + Using citeproc-hs with Pandoc ----------------------------- -If you want to use [citeproc-hs] with [pandoc] you need to install -[citeproc-hs] first, get the [pandoc] source code and compile it with -the `-f citeproc` flag: +Future releases of [pandoc] will depend on [citeproc-hs] and no +specific step will be required to activate citeproc support. - runhaskell Setup.hs configure -f citeproc - runhaskell Setup.hs build - runhaskell Setup.hs install +Please refer to [pandoc]'s documentation for more information on +inserting citations in [pandoc]'s documents. -Citations are inserted like simple reference links: - [Rossato2006] +Documentation +------------- -where `Rossato2006` is the reference id (or citation key) used in the -bibliographic database. +[Haddock] documentation for the exported API is available at the +following address: -Citation groups are also possible. Each citation is separated by a -semicolon: + - [Rossato2006; Pascuzzi2002] +### Some notes about name parsing +The [MODS] parser has been optimized for bibtex input, especially for +parsing names with affixes , dropping and non-dropping particles. -The use of locators is also possible: +Suffixes should come after the family name: - [Rossato2006@ p. 10; Pascuzzi2002@ cap. 12] + Brown, Jr., John W. -To automatically format citations and generate the bibliography, run -[pandoc] with the `--csl` and `--biblio` flags: +If a comma is needed before the suffix, an exclamation mark may be +used: - pandoc --csl cslStyle.csl --biblio modsCollection.mods text.markdown > text.html + Brown,! Jr., John W. -Obviously you can export the text into any of the formats supported by -[pandoc]. +Non-dropping particles are placed before the family name: -Some examples can be found in the `test` directory of the source tree. + von Hicks,! Jr., Michael -You can try them with: +Dropping particles are placed after the given name: - pandoc --csl apa.csl --biblio modsCollection.xml --biblio-format mods test.markdown - pandoc --csl apa.csl --biblio modsCollection.xml --biblio-format mods test_note.markdown + la Martine,! III, Martin B. de -Documentation -------------- +See also the [CSL] specification: -[Haddock] documentation for the exported API is available at the -following address: + - +### Running the test-suite -Generating the [Haddock] documentation is troublesome with Cabal < -1.6.0.2 (GHC-6.10.1 comes with Cabal-1.6.0.1), because of this: +To run the test suite, you first need to grab it with [mercurial] by +running, from the root directory of the [citeproc-hs] source tree: - + hg clone https://bitbucket.org/bdarcus/citeproc-test +You then need to grind human-readable test code into machine-readable +form by running, in the citeproc-test directory, the following +commands: + + cd citeproc-test + ./processor.py -g + cd .. + +Then, from the root directory of citeproc-hs source tree, run: + + runhaskell test/test.hs + + +You may also specify a test group: + + runhaskell test/test.hs date + +To increase the debug messages edit *test/test.hs* and increase the +*Int* parameter of *runTS*: + + runTS args 1 testDir + Known Issues ------------ [citeproc-hs] is in an early stage of development and the [CSL] -implementation is not complete yet. +implementation is not complete. -Specifically the following options are not implemented: +Most of [CSL]-1.0 features are implemented. Some missing features are +meaningless in [pandoc], the main target of [citeproc-hs] at the +present time. Specifically the [display] attribute has not been +implemented yet. - - "hanging-indent" - - "second-field-align" - - "line-spacing" - - "entry-spacing" +The [citeproc-hs]-0.3.0 release passes 401 out of 537 tests of the +[citeproc-test] suite. The test-suite has been developed along with +[citeproc-js], and the failure of some of those tests is not +meaningful for [citeproc-hs]. The major missing bits are related to +rich text formatting (flip-flopping, specifically) and multi-language +names. The [MODS] parser needs some refinement too. @@ -195,10 +215,10 @@ Credits ------- -[Bruce D'Arcus], the author of [CSL], has been very kind and patient -with me when I was trying to understand the [CSL] schema, and provided -me with ideas, comments and suggestions that made it possible to come -to something usable. +[Bruce D'Arcus], the man behind [CSL], Rintze Zelle, one of the main +[CSL] developer, and [Frank Bennett], the [citeproc-js] author, have +been very kind and provided ideas, comments and suggestions that made +it easier coding citeproc-hs. [John MacFarlane], the author of [pandoc], has been very supportive of the project and provided a lot of useful feed back, comments and @@ -209,23 +229,29 @@ Andrea Rossato -`andrea.rossato at ing.unitn.it` +`andrea.rossato at unitn.it` Links to Related Projects ---------------- -Pandoc -: - -Bibutils -: - CSL : +citeproc-js +: + +citeproc-test +: + Zotero : +Pandoc +: + +Bibutils +: + MODS : @@ -237,32 +263,36 @@ This is an early, "alpha" release. It carries no warranties of any kind. -Copyright © 2008 Andrea Rossato +Copyright © 2008--2011 Andrea Rossato +[^1]: The [JSON] format is basically documented by citeproc + implementations and is derived by the [CSL] scheme. More + information can be read in the [citeproc-js] documentation: + + + +[^2]: The Metadata Object Description Schema ([MODS]) is an XML format + which is used by [bibutils] to interconvert many different + bibliographic database formats, like Bibtex, Endnote, and + others. + [citeproc-hs]: http://code.haskell.org/citeproc-hs -[CSL]: http://xbiblio.sourceforge.net/csl/ +[citeproc-js]: https://bitbucket.org/fbennett/citeproc-js/wiki/Home +[CSL]: http://citationstyles.org/ [pandoc]: http://johnmacfarlane.net/pandoc/ [Zotero]: http://www.zotero.org +[JSON]: http://www.json.org/ [MODS]: http://www.loc.gov/mods/ [bibutils]: http://www.scripps.edu/~cdputnam/software/bibutils/ [hs-bibutils]: http://code.haskell.org/hs-bibutils/ +[Haskell Platform]: http://hackage.haskell.org/platform/ [Hackage]: http://hackage.haskell.org/cgi-bin/hackage-scripts/package/citeproc-hs -[hxt]: http://www.fh-wedel.de/~si/HXmlToolbox/ +[cabal-install]: http://hackage.haskell.org/trac/hackage/wiki/CabalInstall [Bruce D'Arcus]: http://community.muohio.edu/blogs/darcusb/ [John MacFarlane]: http://johnmacfarlane.net/ [Haddock]: http://www.haskell.org/haddock/ - -[markdown]: http://daringfireball.net/projects/markdown/ -[reStructuredText]: http://docutils.sourceforge.net/docs/ref/rst/introduction.html -[S5]: http://meyerweb.com/eric/tools/s5/ -[HTML]: http://www.w3.org/TR/html40/ -[LaTeX]: http://www.latex-project.org/ -[ConTeXt]: http://www.pragma-ade.nl/ -[RTF]: http://en.wikipedia.org/wiki/Rich_Text_Format -[DocBook XML]: http://www.docbook.org/ -[OpenDocument XML]: http://opendocument.xml.org/ -[ODT]: http://en.wikipedia.org/wiki/OpenDocument -[MediaWiki markup]: http://www.mediawiki.org/wiki/Help:Formatting -[groff man]: http://developer.apple.com/DOCUMENTATION/Darwin/Reference/ManPages/man7/groff_man.7.html -[Haskell]: http://www.haskell.org/ -[GNU Texinfo]: http://www.gnu.org/software/texinfo/ +[display]: http://citationstyles.org/downloads/specification.html#display +[citeproc-test]: http://bitbucket.org/bdarcus/citeproc-test/ +[Frank Bennett]: http://gsl-nagoya-u.net/faculty/cache/gsliF_Bennett.html +[mercurial]: http://mercurial.selenic.com/ +[Haskell]: http://www.haskell.org diff --git a/citeproc-hs.cabal b/citeproc-hs.cabal --- a/citeproc-hs.cabal +++ b/citeproc-hs.cabal @@ -1,14 +1,14 @@ name: citeproc-hs -version: 0.2 +version: 0.3.0 homepage: http://code.haskell.org/citeproc-hs synopsis: A Citation Style Language implementation in Haskell -description: citeproc-hs is a library for automatically - formatting bibliographic reference citations into - a variety of styles using a macro language called - Citation Style Language (CSL). More details on - CSL can be found here: - . +description: citeproc-hs is a library for rendering + bibliographic reference citations into a variety + of styles using a macro language called Citation + Style Language (CSL). More details on CSL can be + found here: + . . For the API documentation please see "Text.CSL". @@ -19,8 +19,7 @@ maintainer: andrea.rossato@ing.unitn.it cabal-version: >= 1.6 build-type: Simple -data-files: locales/locales-af-AZ.xml - locales/locales-af-ZA.xml +data-files: locales/locales-af-ZA.xml locales/locales-ar-AR.xml locales/locales-bg-BG.xml locales/locales-ca-AD.xml @@ -39,10 +38,12 @@ locales/locales-is-IS.xml locales/locales-it-IT.xml locales/locales-ja-JP.xml + locales/locales-kh-KH.xml locales/locales-ko-KR.xml locales/locales-mn-MN.xml locales/locales-nb-NO.xml locales/locales-nl-NL.xml + locales/locales-nn-NO.xml locales/locales-pl-PL.xml locales/locales-pt-BR.xml locales/locales-pt-PT.xml @@ -62,16 +63,22 @@ flag small_base description: Choose the new smaller, split-up base package. -flag test - description: Run the textsuite. - flag bibutils description: Use Chris Putnam's Bibutils. - default: False + default: True +flag network + description: Use network and HTTP to retrieve csl file from URIs. + default: True + library exposed-modules: Text.CSL Text.CSL.Eval + Text.CSL.Eval.Common + Text.CSL.Eval.Date + Text.CSL.Eval.Names + Text.CSL.Eval.Output + Text.CSL.Pickle Text.CSL.Parser Text.CSL.Proc Text.CSL.Proc.Collapse @@ -80,22 +87,28 @@ Text.CSL.Style Text.CSL.Input.MODS Text.CSL.Input.Bibutils + Text.CSL.Input.Json Text.CSL.Output.Pandoc Text.CSL.Output.Plain other-modules: Paths_citeproc_hs ghc-options: -funbox-strict-fields -Wall ghc-prof-options: -prof -auto-all hs-source-dirs: src - build-depends: containers, directory, mtl, hxt >= 8.1 + build-depends: containers, directory, mtl, xml, json, filepath, + pandoc-types == 1.7 if flag(bibutils) - build-depends: hs-bibutils, filepath, directory - extra-libraries: bibutils - extensions: CPP - cpp-options: -DUSE_BIBUTILS + build-depends: hs-bibutils >= 0.3 + extensions: CPP + cpp-options: -DUSE_BIBUTILS + if flag(network) + build-depends: network >= 2, HTTP >= 4000.0.5 + extensions: CPP + cpp-options: -DUSE_NETWORK + if impl(ghc >= 6.10) - build-depends: base >= 4, syb + build-depends: base >= 4, syb, parsec, old-locale, time else build-depends: base >= 3 && < 4 diff --git a/locales/locales-af-AZ.xml b/locales/locales-af-AZ.xml deleted file mode 100644 --- a/locales/locales-af-AZ.xml +++ /dev/null @@ -1,147 +0,0 @@ - - - - at - in - ibid - toegang verkry - opgehaal - van - voorhande - Verwysings - n.d. - en - et al. - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - reël - reëls - - - note - notes - - - opus - opera - - - bladsy - bladsye - - - paragraaf - paragrawe - - - part - parts - - - section - sections - - - volume - volumes - - - verse - verses - - bk - chap - col - fig - f - no - op - - bl - bll - - para - pt - sec - - v - vv - - vol - - - ¶¶ - - - § - §§ - - - redakteur - redakteurs - - - vertaler - vertalers - - - red - reds - - - vert - verts - - onder redaksie van - vertaal deur - red - verts - Januarie - Februarie - Maart - April - Mei - Junie - Julie - Augustus - September - Oktober - November - Desember - Jan - Feb - Mrt - Apr - Mei - Jun - Jul - Aug - Sep - Okt - Nov - Des - - diff --git a/locales/locales-af-ZA.xml b/locales/locales-af-ZA.xml --- a/locales/locales-af-ZA.xml +++ b/locales/locales-af-ZA.xml @@ -1,199 +1,304 @@ - - - - at - in - ibid - toegang verkry - opgehaal - van - voorhande - Verwysings - n.d. - en - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - reël - reëls - - - note - notes - - - opus - opera - - - bladsy - bladsye - - - paragraaf - paragrawe - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - bl - bll - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - redakteur - redakteurs - - - vertaler - vertalers - - - - - - - red - reds - - - vert - verts - - onder redaksie van - vertaal deur - to - interview by - red - verts - Januarie - Februarie - Maart - April - Mei - Junie - Julie - Augustus - September - Oktober - November - Desember - Jan - Feb - Mrt - Apr - Mei - Jun - Jul - Aug - Sep - Okt - Nov - Des - - + + + + + + + + + + + + + + + toegang verkry + en + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + et al. + voorhande + van + ibid. + in + in press + internet + interview + letter + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + opgehaal + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + reël + reëls + + + note + notes + + + opus + opera + + + bladsy + bladsye + + + paragraaf + paragrawe + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + op + + bl + bll + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + redakteur + redakteurs + + + editor + editors + + + vertaler + vertalers + + + editor & translator + editors & translators + + + + + + + + + red + reds + + + ed. + eds. + + + vert + verts + + + ed. & tran. + eds. & trans. + + + + onder redaksie van + edited by + vertaal deur + edited & translated by + to + interview by + + + by + red + ed. + verts + ed. & trans. by + + + Januarie + Februarie + Maart + April + Mei + Junie + Julie + Augustus + September + Oktober + November + Desember + + + Jan + Feb + Mrt + Apr + Mei + Jun + Jul + Aug + Sep + Okt + Nov + Des + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-ar-AR.xml b/locales/locales-ar-AR.xml --- a/locales/locales-ar-AR.xml +++ b/locales/locales-ar-AR.xml @@ -1,199 +1,304 @@ - - - - عند - في - آيبيد - زير - جلب - من - القادم - مراجع - - و - et al. - مقابلة - رسالة - مجهول - مجهول - وآخرون - تحت الطبع - ربط مباشر - وثِّقَ - الإنترنت - قُدَّم في - علم الإنسان - علم الفلك - علم الأحياء - علم النبات - علم الكيمياء - الهندسة - أساس عام - جغرافيا - علم الأرض - التاريخ - الإنسانيات - الأدب - الرياضيات - الطب - الفلسفة - الفيزياء - علم النفس - علم الإجتماع - العلوم - العلوم السياسية - العلوم الإجتماعية - العلوم الإلهية - علم الحيوان - - كتاب - كُتُب - - - فصل - فصول - - - عمود - أعمدة - - - رسم توضيحي - رسوم توضيحية - - - ورقة - أوراق - - - عدد - أعداد - - - سطر - أسطر - - - ملاحظة - ملاحظات - - - قطعة موسيقية - أوبرا - - - صفحة - صفحات - - - فقرة - فقرات - - - جزء - أجزاء - - - قسم - أقسام - - - مجلد - مجلدات - - - الطبعة - الطبعات - - - بيت - أبيات - - ك - ف - عم - ر - و - عد - مم - - ص - ص.ص - - فق - جز - ق - - ب - بب - - - مج - مجج - - edition - ط - - - ¶¶ - - - § - §§ - - - - - - - تحرير - تحرير - - - ترجمة - ترجمة - - - - - - - مح - محح - - - تر - ترر - - حرره - ترجمه - إلى - مقابلة بواسطة - مح - مت - يناير - فبراير - مارس - ابريل - مايو - يونيو - يوليو - اغسطس - سبتمبر - اكتوبر - نوفمبر - ديسمبر - يناير - فبراير - مارس - ابريل - مايو - يونيو - يوليو - اغسطس - سبتمبر - اكتوبر - نوفمبر - ديسمبر - - + + + + + + + + + + + + + + + زير + و + وآخرون + مجهول + مجهول + عند + by + circa + c. + وثِّقَ + + الطبعة + الطبعات + + ط + et al. + القادم + من + آيبيد + في + تحت الطبع + الإنترنت + مقابلة + رسالة + no date + n.d. + ربط مباشر + قُدَّم في + + reference + references + + + ref. + refs. + + جلب + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + علم الإنسان + علم الفلك + علم الأحياء + علم النبات + علم الكيمياء + الهندسة + أساس عام + جغرافيا + علم الأرض + التاريخ + الإنسانيات + linguistics + الأدب + الرياضيات + الطب + الفلسفة + الفيزياء + علم النفس + علم الإجتماع + العلوم + العلوم السياسية + العلوم الإجتماعية + العلوم الإلهية + علم الحيوان + + + + كتاب + كُتُب + + + فصل + فصول + + + عمود + أعمدة + + + رسم توضيحي + رسوم توضيحية + + + ورقة + أوراق + + + عدد + أعداد + + + سطر + أسطر + + + ملاحظة + ملاحظات + + + قطعة موسيقية + أوبرا + + + صفحة + صفحات + + + فقرة + فقرات + + + جزء + أجزاء + + + قسم + أقسام + + + sub verbo + sub verbis + + + بيت + أبيات + + + مجلد + مجلدات + + + + ك + ف + عم + ر + و + عد + مم + + ص + ص.ص + + فق + جز + ق + + s.v. + s.vv. + + + ب + بب + + + مج + مجج + + + + + + ¶¶ + + + § + §§ + + + + + + + + + تحرير + تحرير + + + editor + editors + + + ترجمة + ترجمة + + + editor & translator + editors & translators + + + + + + + + + مح + محح + + + ed. + eds. + + + تر + ترر + + + ed. & tran. + eds. & trans. + + + + حرره + edited by + ترجمه + edited & translated by + إلى + مقابلة بواسطة + + + by + مح + ed. + مت + ed. & trans. by + + + يناير + فبراير + مارس + ابريل + مايو + يونيو + يوليو + اغسطس + سبتمبر + اكتوبر + نوفمبر + ديسمبر + + + يناير + فبراير + مارس + ابريل + مايو + يونيو + يوليو + اغسطس + سبتمبر + اكتوبر + نوفمبر + ديسمبر + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-bg-BG.xml b/locales/locales-bg-BG.xml --- a/locales/locales-bg-BG.xml +++ b/locales/locales-bg-BG.xml @@ -1,199 +1,304 @@ - - - - в - в - пак там - отворен на - изтеглен на - от - предстоящ - цитати - без дата - и - и съавт. - интервю - писмо - анонимен - анон - и други - под печат - онлайн - цитиран - интернет - представен на - антропология - астрономия - биология - ботаника - химия - инженерство - обща база - география - геология - история - хуманитарни науки - литература - математика - медицина - философия - физика - физиология - социология - наука - политически науки - обществени науки - теология - зоология - - книга - книги - - - глава - глави - - - колона - колони - - - фигура - фигури - - - фолио - фолия - - - брой - броеве - - - ред - редове - - - бележка - бележки - - - опус - опуси - - - страница - страници - - - параграф - параграфи - - - част - части - - - раздел - раздели - - - том - томове - - - издание - издания - - - стих - стихове - - кн - гл - кол - фиг - фол - бр - оп - - с - с-ци - - п - ч - разд - - ст - ст-ове - - - том - т-ове - - edition - изд - - - ¶¶ - - - § - §§ - - - автор - автори - - - редактор - редактори - - - преводач - преводачи - - - авт - авт-ри - - - ред - ред-ри - - - прев - прев-чи - - редактиран от - преведен от - до - интервюиран от - ред - прев - Януари - Февруари - Март - Април - Май - Юни - Юли - Август - Септември - Октомври - Ноември - Декември - Яну - Фев - Мар - Апр - Май - Юни - Юли - Авг - Сеп - Окт - Ное - Дек - - + + + + + + + + + + + + + + + отворен на + и + и други + анонимен + анон + в + by + circa + c. + цитиран + + издание + издания + + изд + и съавт. + предстоящ + от + пак там + в + под печат + интернет + интервю + писмо + no date + без дата + онлайн + представен на + + reference + references + + + ref. + refs. + + изтеглен на + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + антропология + астрономия + биология + ботаника + химия + инженерство + обща база + география + геология + история + хуманитарни науки + linguistics + литература + математика + медицина + философия + физика + физиология + социология + наука + политически науки + обществени науки + теология + зоология + + + + книга + книги + + + глава + глави + + + колона + колони + + + фигура + фигури + + + фолио + фолия + + + брой + броеве + + + ред + редове + + + бележка + бележки + + + опус + опуси + + + страница + страници + + + параграф + параграфи + + + част + части + + + раздел + раздели + + + sub verbo + sub verbis + + + стих + стихове + + + том + томове + + + + кн + гл + кол + фиг + фол + бр + оп + + с + с-ци + + п + ч + разд + + s.v. + s.vv. + + + ст + ст-ове + + + том + т-ове + + + + + + ¶¶ + + + § + §§ + + + + + автор + автори + + + редактор + редактори + + + editor + editors + + + преводач + преводачи + + + editor & translator + editors & translators + + + + + авт + авт-ри + + + ред + ред-ри + + + ed. + eds. + + + прев + прев-чи + + + ed. & tran. + eds. & trans. + + + + редактиран от + edited by + преведен от + edited & translated by + до + интервюиран от + + + by + ред + ed. + прев + ed. & trans. by + + + Януари + Февруари + Март + Април + Май + Юни + Юли + Август + Септември + Октомври + Ноември + Декември + + + Яну + Фев + Мар + Апр + Май + Юни + Юли + Авг + Сеп + Окт + Ное + Дек + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-ca-AD.xml b/locales/locales-ca-AD.xml --- a/locales/locales-ca-AD.xml +++ b/locales/locales-ca-AD.xml @@ -1,199 +1,304 @@ - - - - at - in - ibid - accessed - retrieved - from - forthcoming - References - nd - and - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - line - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editors - - - translator - translators - - - - - - - ed - eds - - - tran - trans - - edited by - translated by - to - interview by - ed - trans - January - February - March - April - May - June - July - August - September - October - November - December - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + et al. + forthcoming + from + ibid. + in + in press + internet + interview + letter + no date + nd + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + line + + + note + notes + + + opus + opera + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + op + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editors + + + editor + editors + + + translator + translators + + + editor & translator + editors & translators + + + + + + + + + ed + eds + + + ed. + eds. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + edited by + edited by + translated by + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + January + February + March + April + May + June + July + August + September + October + November + December + + + Jan + Feb + Mar + Apr + May + Jun + Jul + Aug + Sep + Oct + Nov + Dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-cs-CZ.xml b/locales/locales-cs-CZ.xml --- a/locales/locales-cs-CZ.xml +++ b/locales/locales-cs-CZ.xml @@ -1,199 +1,304 @@ - - - - at - in - ibid - accessed - retrieved - from - forthcoming - references - n.d. - and - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - lines - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editors - - - translator - translators - - - - - - - ed - eds - - - tran - trans - - edited by - translated by - to - interview by - ed - trans - January - February - March - April - May - June - July - August - September - October - November - December - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + přístup + a + a další + anonymous + anon + v + by + circa + c. + citován + + edice + edice + + ed + et al. + nadcházející + z + ibid. + v + v tisku + internet + interview + dopis + no date + bez data + online + prezentován v + + reference + references + + + ref. + refs. + + získáno + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropologie + astronomie + biologie + botanika + chemie + technika + všeobecný základ + geografie + geologie + historie + humanitní + linguistics + literatura + matematika + medicína + filosofie + fyzika + psychologie + sociologie + věda + politologie + sociální věda + teologie + zoologie + + + + kniha + knihy + + + kapitola + kapitoly + + + sloupec + sloupce + + + obrázek + obrázky + + + list + listy + + + číslo + číslo + + + řádek + řádky + + + poznámka + poznámky + + + opus + opera + + + strana + strany + + + odstavec + odstavce + + + část + části + + + sekce + sekce + + + sub verbo + sub verbis + + + verš + verše + + + ročník + ročníky + + + + kn + kap + sl + obr + l + čís + op + + s + s + + odst + č + sek + + s.v. + s.vv. + + + v + v + + + roč + roč + + + + + + ¶¶ + + + § + §§ + + + + + autor + autoři + + + editor + editoři + + + editor + editors + + + překladatel + překladatelé + + + editor & translator + editors & translators + + + + + + + + + ed + ed + + + ed. + eds. + + + překl + překl + + + ed. & tran. + eds. & trans. + + + + editoval + edited by + přeložil + edited & translated by + pro + rozhovor vedl + + + by + ed + ed. + překl + ed. & trans. by + + + leden + únor + březen + duben + květen + červen + červenec + srpen + září + říjen + listopad + prosinec + + + led + úno + bře + dub + kvě + čer + čvc + srp + zář + říj + lis + pro + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-da-DK.xml b/locales/locales-da-DK.xml --- a/locales/locales-da-DK.xml +++ b/locales/locales-da-DK.xml @@ -1,199 +1,304 @@ - - - - at - in - ibid - accessed - retrieved - from - forthcoming - References - nd - and - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - line - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editors - - - translator - translators - - - - - - - ed - eds - - - tran - trans - - edited by - translated by - to - interview by - ed - trans - January - February - March - April - May - June - July - August - September - October - November - December - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + et al. + forthcoming + from + ibid. + in + in press + internet + interview + letter + no date + nd + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + line + + + note + notes + + + opus + opera + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + op + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editors + + + editor + editors + + + translator + translators + + + editor & translator + editors & translators + + + + + + + + + ed + eds + + + ed. + eds. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + edited by + edited by + translated by + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + January + February + March + April + May + June + July + August + September + October + November + December + + + Jan + Feb + Mar + Apr + May + Jun + Jul + Aug + Sep + Oct + Nov + Dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-de-AT.xml b/locales/locales-de-AT.xml --- a/locales/locales-de-AT.xml +++ b/locales/locales-de-AT.xml @@ -1,199 +1,304 @@ - - - - at - in - ebd. - zugegriffen - abgerufen - von - i.E. - Quellenangabe - o.J. - und - u.a. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - Zeile - Zeilen - - - note - notes - - - opus - opera - - - Seite - Seiten - - - Absatz - Absätze - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - Nr - op - - S - S - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - Herausgeber - Herausgeber - - - Übersetzer - Übersetzer - - - - - - - Hrsg - Hrsg - - - Übers - Übers - - Hg. v - Übers. v - to - interview by - ed - trans - Jänner - Februar - März - April - Mai - Juni - Juli - August - September - Oktober - November - Dezember - Jän - Feb - Mar - Apr - Mai - Jun - Jul - Aug - Sep - Okt - Nov - Dez - - + + + + + + + + + + + + + + + zugegriffen + und + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + u.a. + i.E. + von + ebd. + in + in press + internet + interview + letter + no date + o.J. + online + presented at the + + reference + references + + + ref. + refs. + + abgerufen + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + Zeile + Zeilen + + + note + notes + + + opus + opera + + + Seite + Seiten + + + Absatz + Absätze + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + Nr + op + + S + S + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + Herausgeber + Herausgeber + + + editor + editors + + + Übersetzer + Übersetzer + + + editor & translator + editors & translators + + + + + + + + + Hrsg + Hrsg + + + ed. + eds. + + + Übers + Übers + + + ed. & tran. + eds. & trans. + + + + Hg. v + edited by + Übers. v + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + Jänner + Februar + März + April + Mai + Juni + Juli + August + September + Oktober + November + Dezember + + + Jän + Feb + Mar + Apr + Mai + Jun + Jul + Aug + Sep + Okt + Nov + Dez + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-de-CH.xml b/locales/locales-de-CH.xml --- a/locales/locales-de-CH.xml +++ b/locales/locales-de-CH.xml @@ -1,199 +1,304 @@ - - - - at - in - ebd. - zugegriffen - abgerufen - von - i.E. - Quellenangabe - o.J. - und - u.a. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - Zeile - Zeilen - - - note - notes - - - opus - opera - - - Seite - Seiten - - - Absatz - Absätze - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - Nr - op - - S - S - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - Herausgeber - Herausgeber - - - Übersetzer - Übersetzer - - - - - - - Hrsg - Hrsg - - - Übers - Übers - - Hg. v - Übers. v - to - interview by - ed - trans - Januar - Februar - März - April - Mai - Juni - Juli - August - September - Oktober - November - Dezember - Jan - Feb - Mar - Apr - Mai - Jun - Jul - Aug - Sep - Okt - Nov - Dez - - + + + + + + + + + + + + + + + zugegriffen + und + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + u.a. + i.E. + von + ebd. + in + in press + internet + interview + letter + no date + o.J. + online + presented at the + + reference + references + + + ref. + refs. + + abgerufen + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + Zeile + Zeilen + + + note + notes + + + opus + opera + + + Seite + Seiten + + + Absatz + Absätze + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + Nr + op + + S + S + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + Herausgeber + Herausgeber + + + editor + editors + + + Übersetzer + Übersetzer + + + editor & translator + editors & translators + + + + + + + + + Hrsg + Hrsg + + + ed. + eds. + + + Übers + Übers + + + ed. & tran. + eds. & trans. + + + + Hg. v + edited by + Übers. v + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + Januar + Februar + März + April + Mai + Juni + Juli + August + September + Oktober + November + Dezember + + + Jan + Feb + Mar + Apr + Mai + Jun + Jul + Aug + Sep + Okt + Nov + Dez + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-de-DE.xml b/locales/locales-de-DE.xml --- a/locales/locales-de-DE.xml +++ b/locales/locales-de-DE.xml @@ -1,199 +1,304 @@ - - - - auf - in - ebd - zugegriffen - abgerufen - von - i. E. - Quellenangabe - o. J. - und - u. a. - Interview - Brief - ohne Autor - o. A. - und andere - im Druck - online - zitiert - Internet - gehalten auf der - Anthropologie - Astronomie - Biologie - Botanik - Chemie - Ingenieurswissenschaften - generischer Stil - Geographie - Geologie - Geschichte - Geisteswissenschaften - Literatur - Mathematik - Medizin - Philosophie - Physik - Psychologie - Soziologie - Naturwissenschaften - Politikwissenschaft - Sozialwissenschaften - Theologie - Zoologie - - Buch - Bücher - - - Kapitel - Kapitel - - - Spalte - Spalten - - - Abbildung - Abbildungen - - - Blatt - Blätter - - - Nummer - Nummern - - - Zeile - Zeilen - - - Note - Noten - - - Opus - Opera - - - Seite - Seiten - - - Absatz - Absätze - - - Teil - Teile - - - Abschnitt - Abschnitte - - - Band - Bände - - - Auflage - Auflagen - - - Vers - Verse - - B - Kap - Sp - Abb - Fol - Nr - op - - S - S - - Abs - Teil - Abschn - - V - Vv - - - Bd - Bd - - edition - Aufl - - - ¶¶ - - - § - §§ - - - - - - - Herausgeber - Herausgeber - - - Übersetzer - Übersetzer - - - - - - - Hrsg - Hrsg - - - Übers - Übers - - herausgegeben von - übersetzt von - an - interviewt von - hg. v - übers. v - Januar - Februar - März - April - Mai - Juni - Juli - August - September - Oktober - November - Dezember - Jan - Feb - März - Apr - Mai - Juni - Juli - Aug - Sep - Okt - Nov - Dez - - + + + + + + + + + + + + + + + zugegriffen + und + und andere + ohne Autor + o. A. + auf + by + circa + c. + zitiert + + Auflage + Auflagen + + Aufl + u. a. + i. E. + von + ebd + in + im Druck + Internet + Interview + Brief + no date + o. J. + online + gehalten auf der + + reference + references + + + ref. + refs. + + abgerufen + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + Anthropologie + Astronomie + Biologie + Botanik + Chemie + Ingenieurswissenschaften + generischer Stil + Geographie + Geologie + Geschichte + Geisteswissenschaften + linguistics + Literatur + Mathematik + Medizin + Philosophie + Physik + Psychologie + Soziologie + Naturwissenschaften + Politikwissenschaft + Sozialwissenschaften + Theologie + Zoologie + + + + Buch + Bücher + + + Kapitel + Kapitel + + + Spalte + Spalten + + + Abbildung + Abbildungen + + + Blatt + Blätter + + + Nummer + Nummern + + + Zeile + Zeilen + + + Note + Noten + + + Opus + Opera + + + Seite + Seiten + + + Absatz + Absätze + + + Teil + Teile + + + Abschnitt + Abschnitte + + + sub verbo + sub verbis + + + Vers + Verse + + + Band + Bände + + + + B + Kap + Sp + Abb + Fol + Nr + op + + S + S + + Abs + Teil + Abschn + + s.v. + s.vv. + + + V + Vv + + + Bd + Bd + + + + + + ¶¶ + + + § + §§ + + + + + + + + + Herausgeber + Herausgeber + + + editor + editors + + + Übersetzer + Übersetzer + + + editor & translator + editors & translators + + + + + + + + + Hrsg + Hrsg + + + ed. + eds. + + + Übers + Übers + + + ed. & tran. + eds. & trans. + + + + herausgegeben von + edited by + übersetzt von + edited & translated by + an + interviewt von + + + by + hg. v + ed. + übers. v + ed. & trans. by + + + Januar + Februar + März + April + Mai + Juni + Juli + August + September + Oktober + November + Dezember + + + Jan + Feb + März + Apr + Mai + Juni + Juli + Aug + Sep + Okt + Nov + Dez + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-el-GR.xml b/locales/locales-el-GR.xml --- a/locales/locales-el-GR.xml +++ b/locales/locales-el-GR.xml @@ -1,199 +1,303 @@ - - - - at - in - ibid - accessed - retrieved - from - forthcoming - references - n.d. - and - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - lines - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editors - - - translator - translators - - - - - - - ed - eds - - - tran - trans - - edited by - translated by - to - interview by - ed - trans - January - February - March - April - May - June - July - August - September - October - November - December - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + ημερομηνία πρόσβασης + και + και άλλοι + ανώνυμο + ανών + εφ + του + περίπου + περ + παρατίθεται στο + + έκδοση + εκδόσεις + + έκδ + κ.ά. + προσεχές + από + στο ίδιο + στο + υπό έκδοση + διαδίκτυο + συνέντευξη + επιστολή + χωρίς χρονολογία + χ.χ. + έκδοση σε ψηφιακή μορφή + παρουσιάστηκε στο + + αναφορά + αναφορές + + + αναφ. + αναφ. + + ανακτήθηκε + + + μ.Χ. + π.Χ. + + + « + » + ‘ + ’ + + + ος + ος + ος + ος + + + πρώτος + δεύτερος + τρίτος + τέταρτος + πέμπτος + έκτος + έβδομος + όγδοος + ένατος + δέκατος + + + ανθρωπολογία + αστρονομία + βιολογία + βοτανική + χημεία + μηχανική + γενική βάση + γεωγραφία + γεωλογία + ιστορία + ανθρωπιστικές σπουδές + λογοτεχνία + μαθηματικά + ιατρική + φιλοσοφία + φυσική + ψυχολογία + κοινωνιολογία + θετικές επιστήμες + πολιτικές επιστήμες + κοινωνικές επιστήμες + θεολογία + ζωολογία + + + + βιβλίο + βιβλίο + + + κεφάλαιο + κεφάλαια + + + στήλη + στήλες + + + εικόνα + εικόνες + + + φάκελος + φάκελοι + + + τεύχος + τεύχη + + + σειρά + σειρές + + + σημείωση + σημειώσεις + + + έργο + έργα + + + σελίδα + σελίδες + + + παράγραφος + παράγραφοι + + + μέρος + μέρη + + + τμήμα + τμήματα + + + λήμμα + λήμματα + + + στίχος + στίχοι + + + τόμος + τόμοι + + + + βιβ + κεφ + στ + εικ + φακ + τχ + έργ + + σ + σσ + + παρ + μερ + τμ + + λήμ + λήμ + + + στ + στ + + + τμ + τμ + + + + + + ¶¶ + + + § + §§ + + + + + + + + + επιμελητής + επιμελητές + + + γενική εποπτεία + γενική εποπτεία + + + μεταφραστής + μεταφραστές + + + μετάφραση και επιμέλεια + μετάφραση και επιμέλεια + + + + + + + + + επιμ + επιμ + + + γεν. επ + γεν. επ + + + μτφ. + μτφ. + + + μτφ. και επιμ + μτφ. και επιμ + + + + επιμ + γεν επ + μτφ + μτφ. και επιμ + στο + συνέντευξη + + + στο + επιμ + γεν. επ + μτφ + μτφ. και επιμ + + + Ιανουάριος + Φεβρουάριος + Μάρτιος + Απρίλιος + Μάιος + Ιούνιος + Ιούλιος + Αύγουστος + Σεπτέμβριος + Οκτώβριος + Νοέμβριος + Δεκέμβριος + + + Ιανουαρίου + Φεβρουαρίου + Μαρτίου + Απριλίου + Μαΐου + Ιουνίου + Ιουλίου + Αυγούστου + Σεπτεμβρίου + Οκτωβρίου + Νοεμβρίου + Δεκεμβρίου + + + Άνοιξη + Καλοκαίρι + Φθινόπωρο + Χειμώνας + + diff --git a/locales/locales-en-US.xml b/locales/locales-en-US.xml --- a/locales/locales-en-US.xml +++ b/locales/locales-en-US.xml @@ -1,219 +1,304 @@ - - - - at - in - ibid - accessed - retrieved - from - forthcoming - references - n.d. - and - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - - - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - lines - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - - - ¶¶ - - - § - §§ - - - - - - - - - editor - editors - - - translator - translators - - - - - - - - - ed - eds - - - tran - trans - - - - edited by - translated by - to - interview by - - - ed - trans - - - January - February - March - April - May - June - July - August - September - October - November - December - - - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon. + at + by + circa + c. + cited + + edition + editions + + ed. + et al. + forthcoming + from + ibid. + in + in press + internet + interview + letter + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + lines + + + note + notes + + + opus + opera + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk. + chap. + col. + fig. + f. + no. + op. + + p. + pp. + + para. + pt. + sec. + + s.v. + s.vv. + + + v. + vv. + + + vol. + vols. + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editors + + + editor + editors + + + translator + translators + + + editor & translator + editors & translators + + + + + + + + + ed. + eds. + + + ed. + eds. + + + tran. + trans. + + + ed. & tran. + eds. & trans. + + + + edited by + edited by + translated by + edited & translated by + to + interview by + + + by + ed. + ed. + trans. + ed. & trans. by + + + January + February + March + April + May + June + July + August + September + October + November + December + + + Jan. + Feb. + Mar. + Apr. + May + Jun. + Jul. + Aug. + Sep. + Oct. + Nov. + Dec. + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-es-ES.xml b/locales/locales-es-ES.xml --- a/locales/locales-es-ES.xml +++ b/locales/locales-es-ES.xml @@ -1,199 +1,304 @@ - - - - en - en - ibid - accedido - recuperado - a partir de - previsto - Referencias - s.d. - y - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - libro - libros - - - capítulo - capítulos - - - columna - columnas - - - figura - figuras - - - folio - folios - - - número - números - - - línea - líneas - - - nota - notas - - - opus - opera - - - página - páginas - - - párrafo - párrafos - - - parte - partes - - - sección - secciones - - - volumen - volúmenes - - - edition - editions - - - verso - versos - - lib - cap - col - fig - f - nº - op - - pág - págs - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editores - - - traductor - traductores - - - - - - - ed - eds - - - trad - trads - - editado por - traducido por - to - interview by - ed - trad - Enero - Febrero - Marzo - Abril - Mayo - Junio - Julio - Agosto - Septiembre - Octubre - Noviembre - Diciembre - Ene - Feb - Mar - Abr - May - Jun - Jul - Ago - Sep - Oct - Nov - Dic - - + + + + + + + + + + + + + + + accedido + y + and others + anonymous + anon + en + by + circa + c. + cited + + edition + editions + + ed + et al. + previsto + a partir de + ibid. + en + in press + internet + interview + letter + no date + s.d. + online + presented at the + + reference + references + + + ref. + refs. + + recuperado + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + libro + libros + + + capítulo + capítulos + + + columna + columnas + + + figura + figuras + + + folio + folios + + + número + números + + + línea + líneas + + + nota + notas + + + opus + opera + + + página + páginas + + + párrafo + párrafos + + + parte + partes + + + sección + secciones + + + sub verbo + sub verbis + + + verso + versos + + + volumen + volúmenes + + + + lib + cap + col + fig + f + nº + op + + pág + págs + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editores + + + editor + editors + + + traductor + traductores + + + editor & translator + editors & translators + + + + + + + + + ed + eds + + + ed. + eds. + + + trad + trads + + + ed. & tran. + eds. & trans. + + + + editado por + edited by + traducido por + edited & translated by + to + interview by + + + by + ed + ed. + trad + ed. & trans. by + + + Enero + Febrero + Marzo + Abril + Mayo + Junio + Julio + Agosto + Septiembre + Octubre + Noviembre + Diciembre + + + Ene + Feb + Mar + Abr + May + Jun + Jul + Ago + Sep + Oct + Nov + Dic + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-et-EE.xml b/locales/locales-et-EE.xml --- a/locales/locales-et-EE.xml +++ b/locales/locales-et-EE.xml @@ -1,199 +1,304 @@ - - - - at - in - ibid - accessed - retrieved - from - forthcoming - references - n.d. - and - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - lines - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editors - - - translator - translators - - - - - - - ed - eds - - - tran - trans - - edited by - translated by - to - interview by - ed - trans - January - February - March - April - May - June - July - August - September - October - November - December - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + vaadatud + ja + ja teised + anonüümne + anon + + + umbes + u + tsiteeritud + + väljaanne + väljaanded + + tr + et al. + ilmumisel + + ibid. + + trükis + internet + intervjuu + kiri + s.a. + s.a. + online + esitatud + + viide + viited + + + viide + viited + + salvestatud + + + pKr + eKr + + + „ + “ + ‘ + ’ + + + + + + + + + esimene + teine + kolmas + neljas + viies + kuues + seitsmes + kaheksas + üheksas + kümnes + + + antropoloogia + astronoomia + bioloogia + botaanika + keemia + tehnikateadus + määratlemata + geograafia + geoloogia + ajalugu + humanitaarteadus + lingvistika + kirjandusteadus + matemaatika + meditsiin + filosoofia + füüsika + psühholoogia + sotsioloogia + reaalteadus + politoloogia + sotsiaalteadus + teoloogia + zooloogia + + + + raamat + raamatud + + + peatükk + peatükid + + + veerg + veerud + + + joonis + joonised + + + foolio + fooliod + + + number + numbrid + + + rida + read + + + viide + viited + + + opus + opera + + + lehekülg + leheküljed + + + lõik + lõigud + + + osa + osad + + + alajaotis + alajaotised + + + sub verbo + sub verbis + + + värss + värsid + + + köide + köited + + + + rmt + ptk + v + joon + f + nr + op + + lk + lk + + lõik + osa + alajaot. + + s.v. + s.vv. + + + v + vv + + + kd + kd + + + + + + ¶¶ + + + § + §§ + + + + + + + + + toimetaja + toimetajad + + + toimetaja + toimetajad + + + tõlkija + tõlkijad + + + toimetaja & tõlkija + toimetajad & tõlkijad + + + + + + + + + toim + toim + + + toim + toim + + + tõlk + tõlk + + + toim & tõlk + toim & tõlk + + + + toimetanud + toimetanud + tõlkinud + toimetanud & tõlkinud + + intervjueerinud + + + + toim + toim + tõlk + toim & tõlk + + + jaanuar + veebruar + märts + aprill + mai + juuni + juuli + august + september + oktoober + november + detsember + + + jaan + veebr + märts + apr + mai + juuni + juuli + aug + sept + okt + nov + dets + + + kevad + suvi + sügis + talv + + diff --git a/locales/locales-fr-FR.xml b/locales/locales-fr-FR.xml --- a/locales/locales-fr-FR.xml +++ b/locales/locales-fr-FR.xml @@ -1,199 +1,304 @@ - - - - à - dans - ibid - accédé - retrouvé - de - à venir - références - pas de date - et - et coll. - interview - lettre - anonyme - anon - et autres - sous presse - en ligne - cité - Internet - présenté au - anthropologie - astronomie - biologie - botanique - chimie - ingénierie - base générique - géographie - géologie - histoire - sciences humaines - littérature - mathématiques - médecine - philosophie - physique - psychologie - sociologie - science - science politique - science sociale - théologie - zoologie - - livre - livres - - - chapitre - chapitres - - - colonne - colonnes - - - figure - figures - - - folio - folios - - - numéro - numéros - - - ligne - lignes - - - note - notes - - - opus - opus - - - page - pages - - - paragraphe - paragraphes - - - partie - parties - - - section - sections - - - volume - volumes - - - edition - editions - - - verset - versets - - liv - chap - col - fig - f - n° - op - - p - pp - - par - part - sec - - v - vv - - - vol - vols - - edition - éd - - § - §§ - - - § - §§ - - - - - - - éditeur - éditeurs - - - traducteur - traducteurs - - - - - - - éd - éd - - - trad - trad - - édité par - traduit par - vers - interview par - éd - trad - Janvier - Février - Mars - Avril - Mai - Juin - Juillet - Août - Septembre - Octobre - Novembre - Décembre - Jan - Fév - Mar - Avr - Mai - Jun - Jul - Aoû - Sep - Oct - Nov - Déc - - + + + + + + + + + + + + + + + consulté + et + et coll. + anonyme + anon. + à + par + vers + v. + cité + + édition + éditions + + éd. + et al. + à paraître + de + ibid. + dans + sous presse + Internet + interview + lettre + sans date + s. d. + en ligne + présenté à + + référence + références + + + réf. + réf. + + consulté + + + apr. J.-C. + av. J.-C. + + + «  +  » + “ + ” + + + er + e + e + e + + + premier + deuxième + troisième + quatrième + cinquième + sixième + septième + huitième + neuvième + dixième + + + anthropologie + astronomie + biologie + botanique + chimie + ingénierie + base générique + géographie + géologie + histoire + sciences humaines + linguistique + littérature + mathématiques + médecine + philosophie + physique + psychologie + sociologie + science + science politique + science sociale + théologie + zoologie + + + + livre + livres + + + chapitre + chapitres + + + colonne + colonnes + + + figure + figures + + + folio + folios + + + numéro + numéros + + + ligne + lignes + + + note + notes + + + opus + opus + + + page + pages + + + paragraphe + paragraphes + + + partie + parties + + + section + sections + + + sub verbo + sub verbis + + + verset + versets + + + volume + volumes + + + + liv. + chap. + col. + fig. + f<sup>o</sup> + n<sup>o</sup> + op. + + p. + p. + + paragr. + part. + sect. + + s. v. + s. vv. + + + v. + v. + + + vol. + vol. + + + + + § + § + + + § + § + + + + + + + + + éditeur + éditeurs + + + directeur + directeurs + + + traducteur + traducteurs + + + éditeur et traducteur + éditeurs et traducteurs + + + + + + + + + éd. + éd. + + + dir. + dir. + + + trad. + trad. + + + éd. et trad. + éd. et trad. + + + + édité par + sous la direction de + traduit par + édité et traduit par + à + interview par + + + par + éd. + dir. + trad. + éd. et trad. + + + janvier + février + mars + avril + mai + juin + juillet + août + septembre + octobre + novembre + décembre + + + janv. + févr. + mars + avr. + mai + juin + juill. + août + sept. + oct. + nov. + déc. + + + printemps + été + automne + hiver + + diff --git a/locales/locales-he-IL.xml b/locales/locales-he-IL.xml --- a/locales/locales-he-IL.xml +++ b/locales/locales-he-IL.xml @@ -1,199 +1,304 @@ - - - - -ב - בתוך - שם - גישה - אוחזר - מתוך - forthcoming - References - nd - ו - ואחרים - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - ספר - ספרים - - - פרק - פרקים - - - טור - טורים - - - figure - figures - - - folio - folios - - - מספר - מספרים - - - שורה - שורות - - - note - notes - - - אופוס - אופרה - - - עמוד - עמודים - - - paragraph - פיסקה - - - part - parts - - - section - sections - - - כרך - כרכים - - - edition - editions - - - בית - בתים - - bk - chap - col - fig - f - no - op - - 'עמ - 'עמ - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - עורך - עורכים - - - מתרגם - מתרגמים - - - - - - - ed - eds - - - tran - trans - - נערך ע"י - תורגם ע"י - to - interview by - ed - trans - ינואר - פברואר - מרץ - אפריל - מאי - יוני - יולי - אוגוסט - ספטמבר - אוקטובר - נובמבר - דצמבר - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + גישה + ו + and others + anonymous + anon + -ב + by + circa + c. + cited + + edition + editions + + ed + ואחרים + forthcoming + מתוך + שם + בתוך + in press + internet + interview + letter + no date + nd + online + presented at the + + reference + references + + + ref. + refs. + + אוחזר + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + ספר + ספרים + + + פרק + פרקים + + + טור + טורים + + + figure + figures + + + folio + folios + + + מספר + מספרים + + + שורה + שורות + + + note + notes + + + אופוס + אופרה + + + עמוד + עמודים + + + paragraph + פיסקה + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + בית + בתים + + + כרך + כרכים + + + + bk + chap + col + fig + f + no + op + + 'עמ + 'עמ + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + עורך + עורכים + + + editor + editors + + + מתרגם + מתרגמים + + + editor & translator + editors & translators + + + + + + + + + ed + eds + + + ed. + eds. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + נערך ע"י + edited by + תורגם ע"י + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + ינואר + פברואר + מרץ + אפריל + מאי + יוני + יולי + אוגוסט + ספטמבר + אוקטובר + נובמבר + דצמבר + + + Jan + Feb + Mar + Apr + May + Jun + Jul + Aug + Sep + Oct + Nov + Dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-hu-HU.xml b/locales/locales-hu-HU.xml --- a/locales/locales-hu-HU.xml +++ b/locales/locales-hu-HU.xml @@ -1,199 +1,304 @@ - - - - - in - ibid - elérés - elérés - forrás - megjelenés alatt - hivatkozások - nd - és - et al. - interjú - levél - név nélkül - nn - és mások - nyomtatás alatt - online - idézi - internet - előadás - antropológia - csillagászat - biológia - botanika - kémia - mérnöki tudományok - általános - földrajz - geológia - történelem - bölcsésztudományok - irodalom - matematika - orvostudomány - filozófia - fizika - pszichológia - szociológia - tudomány - politikatudomány - társadalomtudomány - teológia - zoológia - - könyv - könyv - - - fejezet - fejezet - - - oszlop - oszlop - - - ábra - ábra - - - fóliáns - fóliáns - - - szám - szám - - - sor - sor - - - jegyzet - jegyzet - - - opus - opera - - - oldal - oldal - - - bekezdés - bekezdés - - - rész - rész - - - szakasz - szakasz - - - kötet - kötet - - - edition - editions - - - versszak - versszak - - könyv - fej - oszl - ábr - fol - sz - op - - o - o - - bek - rész - szak - - vsz - vsz - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - szerkesztő - szerkesztő - - - fordító - fordító - - - - - - - szerk - szerk - - - ford - ford - - szerkesztette - fordította - címzett - interjúkészítő - szerk - ford - január - február - március - április - május - június - július - augusztus - szeptember - október - november - december - jan - febr - márc - ápr - máj - jún - júl - aug - szept - okt - nov - dec - - + + + + + + + + + + + + + + + elérés + és + és mások + név nélkül + nn + + by + circa + c. + idézi + + edition + editions + + ed + et al. + megjelenés alatt + forrás + ibid. + in + nyomtatás alatt + internet + interjú + levél + no date + nd + online + előadás + + reference + references + + + ref. + refs. + + elérés + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropológia + csillagászat + biológia + botanika + kémia + mérnöki tudományok + általános + földrajz + geológia + történelem + bölcsésztudományok + linguistics + irodalom + matematika + orvostudomány + filozófia + fizika + pszichológia + szociológia + tudomány + politikatudomány + társadalomtudomány + teológia + zoológia + + + + könyv + könyv + + + fejezet + fejezet + + + oszlop + oszlop + + + ábra + ábra + + + fóliáns + fóliáns + + + szám + szám + + + sor + sor + + + jegyzet + jegyzet + + + opus + opera + + + oldal + oldal + + + bekezdés + bekezdés + + + rész + rész + + + szakasz + szakasz + + + sub verbo + sub verbis + + + versszak + versszak + + + kötet + kötet + + + + könyv + fej + oszl + ábr + fol + sz + op + + o + o + + bek + rész + szak + + s.v. + s.vv. + + + vsz + vsz + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + szerkesztő + szerkesztő + + + editor + editors + + + fordító + fordító + + + editor & translator + editors & translators + + + + + + + + + szerk + szerk + + + ed. + eds. + + + ford + ford + + + ed. & tran. + eds. & trans. + + + + szerkesztette + edited by + fordította + edited & translated by + címzett + interjúkészítő + + + by + szerk + ed. + ford + ed. & trans. by + + + január + február + március + április + május + június + július + augusztus + szeptember + október + november + december + + + jan + febr + márc + ápr + máj + jún + júl + aug + szept + okt + nov + dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-is-IS.xml b/locales/locales-is-IS.xml --- a/locales/locales-is-IS.xml +++ b/locales/locales-is-IS.xml @@ -1,199 +1,304 @@ - - - - at - in - ibid - accessed - retrieved - from - forthcoming - References - nd - and - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - line - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editors - - - translator - translators - - - - - - - ed - eds - - - tran - trans - - edited by - translated by - to - interview by - ed - trans - January - February - March - April - May - June - July - August - September - October - November - December - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + et al. + forthcoming + from + ibid. + in + in press + internet + interview + letter + no date + nd + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + line + + + note + notes + + + opus + opera + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + op + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editors + + + editor + editors + + + translator + translators + + + editor & translator + editors & translators + + + + + + + + + ed + eds + + + ed. + eds. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + edited by + edited by + translated by + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + January + February + March + April + May + June + July + August + September + October + November + December + + + Jan + Feb + Mar + Apr + May + Jun + Jul + Aug + Sep + Oct + Nov + Dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-it-IT.xml b/locales/locales-it-IT.xml --- a/locales/locales-it-IT.xml +++ b/locales/locales-it-IT.xml @@ -1,199 +1,304 @@ - - - - a - in - ibid - consultato - recuperato - da - futuro - Citazioni bibliografiche - S.d. - e - et al. - intervista - lettera - anonimo - anon - e altri - in stampa - in linea - citato - internet - presentato al - antropologia - astronomia - biologia - botanica - chimica - ingegneria - generica - geografia - geologia - storia - discipline umanistiche - letteratura - matematica - medicina - filosofia - fisica - psicologia - sociologia - scienze - scienze politiche - sociologia - teologia - zoologia - - libro - libri - - - capitolo - capitoli - - - colonna - colonne - - - figura - figure - - - foglio - fogli - - - numero - numeri - - - riga - righe - - - nota - note - - - opera - opere - - - pagina - pagine - - - capoverso - capoversi - - - parte - parti - - - paragrafo - paragrafi - - - volume - volumi - - - edizione - edizioni - - - verso - versi - - lib - cap - col - fig - fgl - n° - op - - pag - pagg - - cpv - pt - par - - v - vv - - - vol - vol - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - curatore - curatori - - - traduttore - traduttori - - - - - - - cur - cur - - - trad - trad - - a cura di - tradotto da - a - intervista di - cur. da - trad. da - Gennaio - Febbraio - Marzo - Aprile - Maggio - Giugno - Luglio - Agosto - Settembre - Ottobre - Novembre - Dicembre - Gen - Feb - Mar - Apr - Mag - Giu - Lug - Ago - Set - Ott - Nov - Dic - - + + + + + + + + + + + + + + + consultato + e + e altri + anonimo + anon + a + by + circa + c. + citato + + edizione + edizioni + + ed + et al. + futuro + da + ibid. + in + in stampa + internet + intervista + lettera + no date + S.d. + in linea + presentato al + + reference + references + + + ref. + refs. + + recuperato + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropologia + astronomia + biologia + botanica + chimica + ingegneria + generica + geografia + geologia + storia + discipline umanistiche + linguistics + letteratura + matematica + medicina + filosofia + fisica + psicologia + sociologia + scienze + scienze politiche + sociologia + teologia + zoologia + + + + libro + libri + + + capitolo + capitoli + + + colonna + colonne + + + figura + figure + + + foglio + fogli + + + numero + numeri + + + riga + righe + + + nota + note + + + opera + opere + + + pagina + pagine + + + capoverso + capoversi + + + parte + parti + + + paragrafo + paragrafi + + + sub verbo + sub verbis + + + verso + versi + + + volume + volumi + + + + lib + cap + col + fig + fgl + n° + op + + pag + pagg + + cpv + pt + par + + s.v. + s.vv. + + + v + vv + + + vol + vol + + + + + + ¶¶ + + + § + §§ + + + + + + + + + curatore + curatori + + + editor + editors + + + traduttore + traduttori + + + editor & translator + editors & translators + + + + + + + + + cur + cur + + + ed. + eds. + + + trad + trad + + + ed. & tran. + eds. & trans. + + + + a cura di + edited by + tradotto da + edited & translated by + a + intervista di + + + by + cur. da + ed. + trad. da + ed. & trans. by + + + Gennaio + Febbraio + Marzo + Aprile + Maggio + Giugno + Luglio + Agosto + Settembre + Ottobre + Novembre + Dicembre + + + Gen + Feb + Mar + Apr + Mag + Giu + Lug + Ago + Set + Ott + Nov + Dic + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-ja-JP.xml b/locales/locales-ja-JP.xml --- a/locales/locales-ja-JP.xml +++ b/locales/locales-ja-JP.xml @@ -1,199 +1,304 @@ - - - - at - - 前掲 - アクセス - 読み込み - から - 近刊 - 参考文献 - 日付なし - と - 他 - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - 行 - 行 - - - note - notes - - - opus - opera - - - ページ - ページ - - - 段落 - 段落 - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - 号 - op - - p - p - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - 編集者 - 編集者 - - - 翻訳者 - 翻訳者 - - - - - - - 編集者 - 編集者 - - - 翻訳者 - 翻訳者 - - 編集者： - 翻訳者： - to - interview by - ed - trans - 1月 - 2月 - 3月 - 4月 - 5月 - 6月 - 7月 - 8月 - 9月 - 10月 - 11月 - 12月 - 1月 - 2月 - 3月 - 4月 - 5月 - 6月 - 7月 - 8月 - 9月 - 10月 - 11月 - 12月 - - + + + + + + + + + + + + + + + アクセス + と + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + 他 + 近刊 + から + 前掲 + + in press + internet + interview + letter + no date + 日付なし + online + presented at the + + reference + references + + + ref. + refs. + + 読み込み + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + 行 + 行 + + + note + notes + + + opus + opera + + + ページ + ページ + + + 段落 + 段落 + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + 号 + op + + p + p + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + 編集者 + 編集者 + + + editor + editors + + + 翻訳者 + 翻訳者 + + + editor & translator + editors & translators + + + + + + + + + 編集者 + 編集者 + + + ed. + eds. + + + 翻訳者 + 翻訳者 + + + ed. & tran. + eds. & trans. + + + + 編集者： + edited by + 翻訳者： + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + 1月 + 2月 + 3月 + 4月 + 5月 + 6月 + 7月 + 8月 + 9月 + 10月 + 11月 + 12月 + + + 1月 + 2月 + 3月 + 4月 + 5月 + 6月 + 7月 + 8月 + 9月 + 10月 + 11月 + 12月 + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-kh-KH.xml b/locales/locales-kh-KH.xml new file mode 100644 --- /dev/null +++ b/locales/locales-kh-KH.xml @@ -0,0 +1,303 @@ + + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon. + at + by + circa + c. + cited + + edition + editions + + ed. + et al. + forthcoming + from + ibid + in + in press + internet + interview + letter + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + ទីមួយ + ទីពីរ + ទីបី + ទីបួន + ទីប្រាំ + ទីប្រាំមួយ + ទីប្រាំពីរ + ទីប្រាំបី + ទីប្រាំបួន + ទីដប់មួយ + + + នរវិទ្យា + តារាវិទ្យា + ជីវវិទ្យា + រុក្ខវិទ្យា + គីមីវិទ្យា + វិស្វកម្ម + generic base + ភូមិវិទ្យា + ភូគព្ភវិទ្យា + ប្រវត្តិវិទ្យា + មនុស្សវិទ្យា + ភាសាវិទ្យា + អក្សរសាស្ត្រ + គណិតវិទ្យា + វេជ្ជសាស្ត្រ + ទស្សនវិទ្យា + រូបវិទ្យា + ចិត្តវិទ្យា + សង្គមវិទ្យា + វិទ្យាសាស្ត្រ + វិទ្យាសាស្ត្រនយោបាយ + សង្គមវិទ្យា + ទេវវិទ្យា + សត្តវិទ្យា + + + + សៀវភៅ + សៀវភៅ + + + ជំពូក + ជំពូក + + + កាឡោន + កាឡោន + + + តួលេខ + តួលេខ + + + folio + folios + + + ចំនួន + ចំនួន + + + បន្ទាត់ + បន្ទាត់ + + + កំណត់ចំណាំ + កំណត់ចំណាំ + + + opus + opera + + + ទំព័រ + ទំព័រ + + + កថាខណ្ឌ + កថាខណ្ឌ + + + ជំពូក + ជំពូក + + + ផ្នែក + ផ្នែក + + + sub verbo + sub verbis + + + verse + verses + + + វ៉ុល + វ៉ុល + + + + bk. + chap. + col. + fig. + f. + no. + op. + + p. + pp. + + para. + pt. + sec. + + s.v. + s.vv. + + + v. + vv. + + + vol. + vols. + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editors + + + + editors + + + translator + translator + + + editor & translator + editors & translators + + + + + + + + + ed. + eds. + + + ed. + eds. + + + tran. + trans. + + + ed. & tran. + eds. & trans. + + + + edited by + edited by + translated by + edited & translated by + to + interview by + + + by + ed. + ed. + trans. + ed. & trans. by + + + មករា + កុម្ភៈ + មីនា + មេសា + ឧសភា + មិថុនា + កក្កដា + សីហា + កញ្ញា + តុលា + វិច្ឆិកា + ធ្នូ + + + Jan. + Feb. + Mar. + Apr. + May + Jun. + Jul. + Aug. + Sep. + Oct. + Nov. + Dec. + + + Spring + Summer + Autumn + Winter + diff --git a/locales/locales-ko-KR.xml b/locales/locales-ko-KR.xml --- a/locales/locales-ko-KR.xml +++ b/locales/locales-ko-KR.xml @@ -1,199 +1,304 @@ - - - - at - in - ibid - 접근된 - retrieved - (으)로부터 - 근간 - 참고 문헌 - 일자 없음 - 와/과 - 기타 - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - 행 - 행 - - - note - notes - - - opus - opera - - - 페이지 - 페이지 - - - 단락 - 단락 - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - 호 - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - 편집자 - 편집자 - - - 번역자 - 번역자 - - - - - - - 편집자 - 편집자 - - - 번역자 - 번역자 - - 편집자： - 번역자： - to - interview by - ed - trans - 1월 - 2월 - 3월 - 4월 - 5월 - 6월 - 7월 - 8월 - 9월 - 10월 - 11월 - 12월 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - - + + + + + + + + + + + + + + + 접근된 + 와/과 + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + 기타 + 근간 + (으)로부터 + ibid. + in + in press + internet + interview + letter + no date + 일자 없음 + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + 행 + 행 + + + note + notes + + + opus + opera + + + 페이지 + 페이지 + + + 단락 + 단락 + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + 호 + op + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + 편집자 + 편집자 + + + editor + editors + + + 번역자 + 번역자 + + + editor & translator + editors & translators + + + + + + + + + 편집자 + 편집자 + + + ed. + eds. + + + 번역자 + 번역자 + + + ed. & tran. + eds. & trans. + + + + 편집자： + edited by + 번역자： + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + 1월 + 2월 + 3월 + 4월 + 5월 + 6월 + 7월 + 8월 + 9월 + 10월 + 11월 + 12월 + + + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-mn-MN.xml b/locales/locales-mn-MN.xml --- a/locales/locales-mn-MN.xml +++ b/locales/locales-mn-MN.xml @@ -1,199 +1,304 @@ - - - - at - in - ibid - accessed - retrieved - from - forthcoming - references - n.d. - and - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - lines - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editors - - - translator - translators - - - - - - - ed - eds - - - tran - trans - - edited by - translated by - to - interview by - ed - trans - January - February - March - April - May - June - July - August - September - October - November - December - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + et al. + forthcoming + from + ibid. + in + in press + internet + interview + letter + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + lines + + + note + notes + + + opus + opera + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + op + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editors + + + editor + editors + + + translator + translators + + + editor & translator + editors & translators + + + + + + + + + ed + eds + + + ed. + eds. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + edited by + edited by + translated by + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + January + February + March + April + May + June + July + August + September + October + November + December + + + Jan + Feb + Mar + Apr + May + Jun + Jul + Aug + Sep + Oct + Nov + Dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-nb-NO.xml b/locales/locales-nb-NO.xml --- a/locales/locales-nb-NO.xml +++ b/locales/locales-nb-NO.xml @@ -1,199 +1,304 @@ - - - - på - i - ibid - aksessert - hentet - fra - kommende - referanser - udatert - og - mfl - intervju - brev - anonym - anon - med flere - i trykk - online - cited - Internett - presentert på - antropologi - astronomi - biologi - botanikk - kjemi - ingeniørvitenskap - generic base - geografi - geologi - historie - humanistiske fag - litteratur - matte - medisin - filosofi - fysikk - fysiologi - sosiologi - naturvitenskap - political science - sosialvitenskap - teologi - zoologi - - bok - bøker - - - kapittel - kapitler - - - kolonne - kolenner - - - figur - figurer - - - folio - folioer - - - nummer - numre - - - linje - linjer - - - note - noter - - - opus - opus - - - side - sider - - - avsnitt - avsnitt - - - del - deler - - - seksjon - seksjoner - - - bind - bind - - - utgave - utgaver - - - vers - vers - - b - kap - kol - fig - fol - nr - op - - s - s - - avsn - d - sek - - v - v - - - bd - bd - - edition - utg - - - ¶¶ - - - § - §§ - - - - - - - redaktør - redaktører - - - oversetter - oversettere - - - - - - - red - red - - - overs - overs - - redigert av - oversatt av - mottatt av - intervjuet av - utg - overs - Januar - Februar - Mars - April - Mai - Juni - Juli - August - September - Oktober - November - Desember - Jan - Feb - Mar - Apr - Mai - Jun - Jul - Aug - Sep - Okt - Nov - Des - - + + + + + + + + + + + + + + + åpnet + og + med flere + anonym + anon. + på + av + circa + ca. + sitert + + utgave + utgaver + + utg. + m.fl. + kommende + fra + ibid. + i + i trykk + Internett + intervju + brev + ingen dato + udatert + online + presentert på + + referanse + referanser + + + ref. + refr. + + hentet + + + f.Kr + e.Kr + + + « + » + ‘ + ’ + + + . + . + . + . + + + første + andre + tredje + fjerde + femte + sjette + sjuende + åttende + niende + tiende + + + antropologi + astronomi + biologi + botanikk + kjemi + ingeniørvitenskap + generell + geografi + geologi + historie + humanistiske fag + lingvistikk + litteratur + mattematikk + medisin + filosofi + fysikk + fysiologi + sosiologi + naturvitenskap + statsvitenskap + samfunnsvitenskap + teologi + zoologi + + + + bok + bøker + + + kapittel + kapitler + + + kolonne + kolonner + + + figur + figurer + + + folio + folioer + + + nummer + numre + + + linje + linjer + + + note + noter + + + opus + opus + + + side + sider + + + avsnitt + avsnitt + + + del + deler + + + paragraf + paragrafer + + + sub verbo + sub verbis + + + vers + vers + + + bind + bind + + + + b. + kap. + kol. + fig. + fol. + nr. + op. + + s. + s. + + avsn. + d. + pargr. + + s.v. + s.vv. + + + v. + v. + + + bd. + bd. + + + + + + ¶¶ + + + § + §§ + + + + + + + + + redaktør + redaktører + + + redaktør + redaktører + + + oversetter + oversettere + + + redaktør & oversetter + redaktører & oversettere + + + + + + + + + red. + red. + + + red. + red. + + + overs. + overs. + + + red. & overs. + red. & overs. + + + + redigert av + redigert av + oversatt av + redigert & oversatt av + mottatt av + intervjuet av + + + av + red. + red. + overs. + red. & overs. av + + + januar + februar + mars + april + mai + juni + juli + august + september + oktober + november + desember + + + jan. + feb. + mar. + apr. + mai + jun. + jul. + aug. + sep. + okt. + nov. + des. + + + vår + sommer + høst + vinter + + diff --git a/locales/locales-nl-NL.xml b/locales/locales-nl-NL.xml --- a/locales/locales-nl-NL.xml +++ b/locales/locales-nl-NL.xml @@ -1,199 +1,304 @@ - - - - bij - in - ibid - bezocht - verkregen - van - in voorbereiding - referenties - geen datum - en - e.a. - interview - brief - anoniem - anon - en anderen - in druk - online - geciteerd - internet - gepresenteerd bij - anthropologie - astronomie - biologie - botanie - scheikunde - techniek - generiek - geografie - geologie - geschiedenis - geesteswetenschappen - literatuur - wiskunde - medicijnen - filosofie - natuurkunde - psychologie - sociologie - wetenschap - politieke wetenschappen - sociale wetenschappen - theologie - zoologie - - boek - boeken - - - hoofdstuk - hoofdstukken - - - column - columns - - - figuur - figuren - - - folio - folio's - - - nummer - nummers - - - regel - regels - - - aantekening - aantekeningen - - - opus - opera - - - pagina - pagina's - - - paragraaf - paragrafen - - - deel - delen - - - sectie - secties - - - volume - volumes - - - editie - edities - - - vers - versen - - bk - hfdst - col - fig - f - nr - op - - p - pp - - par - deel - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - redacteur - redacteuren - - - vertaler - vertalers - - - - - - - red - red - - - vert - vert - - bewerkt door - vertaald door - ontvangen door - geinterviewd door - red - vert - januari - februari - maart - april - mei - juni - juli - augustus - september - oktober - november - december - jan - feb - mrt - apr - mei - jun - jul - aug - sep - okt - nov - dec - - + + + + + + + + + + + + + + + bezocht + en + en anderen + anoniem + anon. + bij + door + circa + c. + geciteerd + + editie + edities + + ed. + e.a. + in voorbereiding + van + ibid. + in + in druk + internet + interview + brief + zonder datum + z.d. + online + gepresenteerd bij + + referentie + referenties + + + ref. + refs. + + verkregen + + + AD + BC + + + “ + ” + ‘ + ’ + + + e + e + e + e + + + eerste + tweede + derde + vierde + vijfde + zesde + zevende + achtste + negende + tiende + + + anthropologie + astronomie + biologie + botanie + scheikunde + techniek + generiek + geografie + geologie + geschiedenis + geesteswetenschappen + taalkunde + literatuur + wiskunde + medicijnen + filosofie + natuurkunde + psychologie + sociologie + wetenschap + politieke wetenschappen + sociale wetenschappen + theologie + zoologie + + + + boek + boeken + + + hoofdstuk + hoofdstukken + + + column + columns + + + figuur + figuren + + + folio + folio's + + + nummer + nummers + + + regel + regels + + + aantekening + aantekeningen + + + opus + opera + + + pagina + pagina's + + + paragraaf + paragrafen + + + deel + delen + + + sectie + secties + + + sub verbo + sub verbis + + + vers + versen + + + volume + volumes + + + + bk. + hfdst. + col. + fig. + f. + nr. + op. + + p. + pp. + + par. + deel + sec. + + s.v. + s.vv. + + + v. + vv. + + + vol. + vols. + + + + + + ¶¶ + + + § + §§ + + + + + + + + + redacteur + redacteuren + + + redacteur + redacteuren + + + vertaler + vertalers + + + redacteur & vertaler + redacteuren & vertalers + + + + + + + + + red. + red. + + + red. + red. + + + vert. + vert. + + + red. & vert. + red. & vert. + + + + bewerkt door + bewerkt door + vertaald door + bewerkt & vertaald door + ontvangen door + geïnterviewd door + + + door + bewerkt door + bewerkt door + vertaald door + bewerkt & vertaald door + + + januari + februari + maart + april + mei + juni + juli + augustus + september + oktober + november + december + + + jan. + feb. + mrt. + apr. + mei + jun. + jul. + aug. + sep. + okt. + nov. + dec. + + + lente + zomer + herst + winter + + diff --git a/locales/locales-nn-NO.xml b/locales/locales-nn-NO.xml new file mode 100644 --- /dev/null +++ b/locales/locales-nn-NO.xml @@ -0,0 +1,304 @@ + + + + + + + + + + + + + + + vitja + og + med fleire + anonym + anon. + på + av + circa + ca. + sitert + + utgåve + utgåver + + utg. + m.fl. + kommande + frå + ibid. + i + i trykk + Internett + intervju + brev + ingen dato + udatert + online + presentert på + + referanse + referansar + + + ref. + refr. + + henta + + + f.Kr + e.Kr + + + « + » + ‘ + ’ + + + . + . + . + . + + + første + andre + tredje + fjerde + femte + sjette + sjuande + åttande + niande + tiande + + + antropologi + astronomi + biologi + botanikk + kjemi + ingeniørvitskap + generell + geografi + geologi + historie + humanistiske fag + lingvistikk + litteratur + mattematikk + medisin + filosofi + fysikk + fysiologi + sosiologi + naturvitskap + statsvitskap + samfunnsvitskap + teologi + zoologi + + + + bok + bøker + + + kapittel + kapittel + + + kolonne + kolonner + + + figur + figurar + + + folio + folioar + + + nummer + nummer + + + linje + linjer + + + note + notar + + + opus + opus + + + side + sider + + + avsnitt + avsnitt + + + del + deler + + + paragraf + paragrafar + + + sub verbo + sub verbis + + + vers + vers + + + bind + bind + + + + b. + kap. + kol. + fig. + fol. + nr. + op. + + s. + s. + + avsn. + d. + par. + + s.v. + s.vv. + + + v. + v. + + + bd. + bd. + + + + + + ¶¶ + + + § + §§ + + + + + + + + + redaktør + redaktørar + + + redaktør + redaktørar + + + omsetjar + omsetjarar + + + redaktør & omsetjar + redaktørar & omsetjarar + + + + + + + + + red. + red. + + + red. + red. + + + oms. + oms. + + + red. & oms. + red. & oms. + + + + redigert av + redigert av + omsett av + redigert & omsett av + motteke av + intervjua av + + + av + red. + red. + oms. + red. & oms. av + + + januar + februar + mars + april + mai + juni + juli + august + september + oktober + november + desember + + + jan. + feb. + mar. + apr. + mai + jun. + jul. + aug. + sep. + okt. + nov. + des. + + + vår + sommar + haust + vinter + + diff --git a/locales/locales-pl-PL.xml b/locales/locales-pl-PL.xml --- a/locales/locales-pl-PL.xml +++ b/locales/locales-pl-PL.xml @@ -1,199 +1,304 @@ - - - - at - w - ibid - udostępniono - pobrano - z - w druku - Referencje - bez daty - i - et al. - wywiad - list - anonim - anonim - i inni - w druku - online - cytowane - internet - zaprezentowano - antropologia - astronomia - biologia - botanika - chemia - inżynieria - generic base - geografia - geologia - historia - humanistyka - literatura - matematyka - medycyna - filozofia - fizyka - psychologia - socjologia - nauki ścisłe - nauki polityczne - nauki społeczne - teologia - zoologia - - książka - książki - - - rozdział - rozdziały - - - kolumna - kolumny - - - rycina - ryciny - - - folio - folios - - - numer - numery - - - wers - wersy - - - notatka - notatki - - - opus - opera - - - strona - strony - - - akapit - akapity - - - część - części - - - sekcja - sekcja - - - tom - tomy - - - wydanie - wydania - - - wers - wersy - - książka - rozdz - kolumna - ryc - folio - nr - op - - s - s - - akapit - część - sekcja - - wers - wersy - - - t - t - - edition - wyd - - - ¶¶ - - - § - §§ - - - - - - - redaktor - redaktorzy - - - tłumacz - tłumacze - - - - - - - red - red - - - tłum - tłum - - zredagowane przez - przetłumaczone przez - dla - przeprowadzony przez - red - tłum - styczeń - luty - marzec - kwiecień - maj - czerwiec - lipiec - sierpień - wrzesień - październik - listopad - grudzień - styczeń - luty - marzec - kwiecień - maj - czerwiec - lipiec - sierpień - wrzesień - październik - listopad - grudzień - - + + + + + + + + + + + + + + + udostępniono + i + i inni + anonim + anonim + at + by + circa + c. + cytowane + + wydanie + wydania + + wyd + et al. + w druku + z + ibid. + w + w druku + internet + wywiad + list + no date + bez daty + online + zaprezentowano + + reference + references + + + ref. + refs. + + pobrano + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropologia + astronomia + biologia + botanika + chemia + inżynieria + generic base + geografia + geologia + historia + humanistyka + linguistics + literatura + matematyka + medycyna + filozofia + fizyka + psychologia + socjologia + nauki ścisłe + nauki polityczne + nauki społeczne + teologia + zoologia + + + + książka + książki + + + rozdział + rozdziały + + + kolumna + kolumny + + + rycina + ryciny + + + folio + folios + + + numer + numery + + + wers + wersy + + + notatka + notatki + + + opus + opera + + + strona + strony + + + akapit + akapity + + + część + części + + + sekcja + sekcja + + + sub verbo + sub verbis + + + wers + wersy + + + tom + tomy + + + + książka + rozdz + kolumna + ryc + folio + nr + op + + s + s + + akapit + część + sekcja + + s.v. + s.vv. + + + wers + wersy + + + t + t + + + + + + ¶¶ + + + § + §§ + + + + + + + + + redaktor + redaktorzy + + + editor + editors + + + tłumacz + tłumacze + + + editor & translator + editors & translators + + + + + + + + + red + red + + + ed. + eds. + + + tłum + tłum + + + ed. & tran. + eds. & trans. + + + + zredagowane przez + edited by + przetłumaczone przez + edited & translated by + dla + przeprowadzony przez + + + by + red + ed. + tłum + ed. & trans. by + + + styczeń + luty + marzec + kwiecień + maj + czerwiec + lipiec + sierpień + wrzesień + październik + listopad + grudzień + + + styczeń + luty + marzec + kwiecień + maj + czerwiec + lipiec + sierpień + wrzesień + październik + listopad + grudzień + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-pt-BR.xml b/locales/locales-pt-BR.xml --- a/locales/locales-pt-BR.xml +++ b/locales/locales-pt-BR.xml @@ -1,199 +1,304 @@ - - - - at - em - ibidem - acessado - restaurado - de - sugerido - Referências - sd - e - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - linha - linhas - - - note - notes - - - opus - opera - - - página - páginas - - - parágrafo - parágrafos - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editores - - - tradutor - tradutores - - - - - - - ed - eds - - - tran - trans - - editado por - traduzido por - to - interview by - ed - trans - Janeiro - Fevereiro - Março - Abril - Maio - Junho - Julho - Agosto - Setembro - Outubro - Novembro - Dezembro - Jan - Fev - Mar - Abr - Mai - Jun - Jul - Ago - Set - Out - Nov - Dez - - + + + + + + + + + + + + + + + acessado + e + e outros + anônimo + anon + em + by + circa + c. + citado + + edição + edições + + ed + et al. + a ser publicado + de + ibidem + in + no prelo + internet + entrevista + carta + no date + [s.d.] + online + apresentado em + + reference + references + + + ref. + refs. + + recuperado + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropologia + astronomia + biologia + botânica + química + engenharia + base genérica + geografia + geologia + história + humanidades + linguistics + literatura + matemática + medicina + philosofia + física + psicologia + sociologia + ciências + ciências políticas + ciências sociais + teologia + zoologia + + + + livro + livros + + + capítulo + capítulos + + + coluna + colunas + + + figura + figuras + + + folio + folios + + + número + números + + + linha + linhas + + + nota + notas + + + opus + opera + + + página + páginas + + + parágrafo + parágrafos + + + parte + partes + + + seção + seções + + + sub verbo + sub verbis + + + verso + versos + + + volume + volumes + + + + liv + cap + col + fig + f + n + op + + p + pp + + para + pt + seç + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + organizador + organizadores + + + editor + editors + + + tradutor + tradutores + + + editor & translator + editors & translators + + + + + + + + + org + orgs + + + ed. + eds. + + + trad + trads + + + ed. & tran. + eds. & trans. + + + + organizado por + edited by + traduzido por + edited & translated by + para + intrevista de + + + by + org + ed. + trad + ed. & trans. by + + + janeiro + fevereiro + março + abril + maio + junho + julho + agosto + setembro + outubro + novembro + dezembro + + + jan + fev + mar + abr + maio + jun + jul + ago + set + out + nov + dez + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-pt-PT.xml b/locales/locales-pt-PT.xml --- a/locales/locales-pt-PT.xml +++ b/locales/locales-pt-PT.xml @@ -1,199 +1,304 @@ - - - - em - em - ibid - acedido - obtido - de - a publicar - Referências - sem data - e - et al. - entrevista - carta - anónimo - anón - e outros - no prelo - em linha - citado - internet - apresentado na - antropologia - astronomia - biologia - botânica - química - engenharia - base genérica - geografia - geologia - história - humanidades - literatura - matemática - medicina - filosofia - física - psicologia - sociologia - ciência - ciência política - ciência social - teologia - zoologia - - livro - livros - - - capítulo - capítulos - - - coluna - colunas - - - figura - figuras - - - fólio - fólios - - - número - número - - - linha - linhas - - - nota - notas - - - opus - opera - - - página - páginas - - - parágrafo - parágrafos - - - parte - partes - - - secção - secções - - - volume - volumes - - - edição - edições - - - versículo - versículos - - liv - cap - col - fig - f - n - op - - p - pp - - par - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editores - - - tradutor - tradutores - - - - - - - ed - eds - - - trad - trads - - editado por - traduzido por - para - entrevistado por - ed - trad - Janeiro - Fevereiro - Março - Abril - Maio - Junho - Julho - Agosto - Setembro - Outubro - Novembro - Dezembro - Jan - Fev - Mar - Abr - Mai - Jun - Jul - Ago - Set - Out - Nov - Dez - - + + + + + + + + + + + + + + + acedido + e + e outros + anónimo + anón + em + by + circa + c. + citado + + edição + edições + + ed + et al. + a publicar + de + ibid. + em + no prelo + internet + entrevista + carta + no date + sem data + em linha + apresentado na + + reference + references + + + ref. + refs. + + obtido + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropologia + astronomia + biologia + botânica + química + engenharia + base genérica + geografia + geologia + história + humanidades + linguistics + literatura + matemática + medicina + filosofia + física + psicologia + sociologia + ciência + ciência política + ciência social + teologia + zoologia + + + + livro + livros + + + capítulo + capítulos + + + coluna + colunas + + + figura + figuras + + + fólio + fólios + + + número + número + + + linha + linhas + + + nota + notas + + + opus + opera + + + página + páginas + + + parágrafo + parágrafos + + + parte + partes + + + secção + secções + + + sub verbo + sub verbis + + + versículo + versículos + + + volume + volumes + + + + liv + cap + col + fig + f + n + op + + p + pp + + par + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editores + + + editor + editors + + + tradutor + tradutores + + + editor & translator + editors & translators + + + + + + + + + ed + eds + + + ed. + eds. + + + trad + trads + + + ed. & tran. + eds. & trans. + + + + editado por + edited by + traduzido por + edited & translated by + para + entrevistado por + + + by + ed + ed. + trad + ed. & trans. by + + + Janeiro + Fevereiro + Março + Abril + Maio + Junho + Julho + Agosto + Setembro + Outubro + Novembro + Dezembro + + + Jan + Fev + Mar + Abr + Mai + Jun + Jul + Ago + Set + Out + Nov + Dez + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-ro-RO.xml b/locales/locales-ro-RO.xml --- a/locales/locales-ro-RO.xml +++ b/locales/locales-ro-RO.xml @@ -1,199 +1,304 @@ - - - - la - în - ibidem - accesat în - preluat în - din - în curs de apariţie - Bibliografie - f.a. - şi - ş.a. - interviu - scrisoare - anonim - anon - şi alţii - sub tipar - online - citat - internet - prezentat la - antropologie - astronomie - biologie - botanică - chimie - inginerie - general (de bază) - geografie - geologie - istorie - umanioare - literatură - matematică - medicină - filosofie - fizică - psihologie - sociologie - ştiinţă - ştiinţe politice - ştiinţe sociale - teologie - zoologie - - cartea - cărţile - - - capitolul - capitolele - - - coloana - coloanele - - - figura - figurile - - - folio - folio - - - numărul - numerele - - - linia - liniile - - - nota - notele - - - opusul - opusurile - - - pagina - paginile - - - paragraful - paragrafele - - - partea - părţile - - - secţiunea - secţiunile - - - volumul - volumele - - - ediţia - ediţiile - - - versetul - versetele - - cart - cap - col - fig - fol - nr - op - - p - pp - - par - part - sec - - v - vv - - - vol - vol - - edition - ed - - - ¶¶ - - - § - §§ - - - autor - autori - - - editor - editori - - - traducător - traducători - - - aut - aut - - - ed - ed - - - trad - trad - - ediţie de - traducere de - în - interviu de - ed - trad - ianuarie - februarie - martie - aprilie - mai - iunie - iulie - august - septembrie - octombrie - noiembrie - decembrie - ian - feb - mar - apr - mai - iun - iul - aug - sep - oct - nov - dec - - + + + + + + + + + + + + + + + accesat în + şi + şi alţii + anonim + anon + la + by + circa + c. + citat + + ediţia + ediţiile + + ed + et al. + în curs de apariţie + din + ibidem + în + sub tipar + internet + interviu + scrisoare + no date + f.a. + online + prezentat la + + reference + references + + + ref. + refs. + + preluat în + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropologie + astronomie + biologie + botanică + chimie + inginerie + general (de bază) + geografie + geologie + istorie + umanioare + linguistics + literatură + matematică + medicină + filosofie + fizică + psihologie + sociologie + ştiinţă + ştiinţe politice + ştiinţe sociale + teologie + zoologie + + + + cartea + cărţile + + + capitolul + capitolele + + + coloana + coloanele + + + figura + figurile + + + folio + folio + + + numărul + numerele + + + linia + liniile + + + nota + notele + + + opusul + opusurile + + + pagina + paginile + + + paragraful + paragrafele + + + partea + părţile + + + secţiunea + secţiunile + + + sub verbo + sub verbis + + + versetul + versetele + + + volumul + volumele + + + + cart + cap + col + fig + fol + nr + op + + p + pp + + par + part + sec + + s.v. + s.vv. + + + v + vv + + + vol + vol + + + + + + ¶¶ + + + § + §§ + + + + + autor + autori + + + editor + editori + + + editor + editors + + + traducător + traducători + + + editor & translator + editors & translators + + + + + aut + aut + + + ed + ed + + + ed. + eds. + + + trad + trad + + + ed. & tran. + eds. & trans. + + + + ediţie de + edited by + traducere de + edited & translated by + în + interviu de + + + by + ed + ed. + trad + ed. & trans. by + + + ianuarie + februarie + martie + aprilie + mai + iunie + iulie + august + septembrie + octombrie + noiembrie + decembrie + + + ian + feb + mar + apr + mai + iun + iul + aug + sep + oct + nov + dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-ru-RU.xml b/locales/locales-ru-RU.xml --- a/locales/locales-ru-RU.xml +++ b/locales/locales-ru-RU.xml @@ -1,199 +1,304 @@ - - - - at - в - так же - вызвано - извлечено - от - грядущие - Ссылки - нет даты - и - и др. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - линия - линии - - - note - notes - - - opus - opera - - - страницы - страницы - - - параграф - параграфы - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - ном - op - - стр-а - стр-ы - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - редактор - редакторы - - - переводчик - переводчики - - - - - - - ред-р - ред-ры - - - перев-к - перев-и - - отредактировано - переведено - to - interview by - ред - перев - Январь - Февраль - Март - Апрель - Май - Июнь - Июль - Август - Сентябрь - Октябрь - Ноябрь - Декабрь - Янв - Фев - Мар - Апр - Май - Июн - Июл - Авг - Сен - Окт - Ноя - Дек - - + + + + + + + + + + + + + + + вызвано + и + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + и др. + грядущие + от + так же + в + in press + internet + interview + letter + no date + нет даты + online + presented at the + + reference + references + + + ref. + refs. + + извлечено + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + линия + линии + + + note + notes + + + opus + opera + + + страницы + страницы + + + параграф + параграфы + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + ном + op + + стр-а + стр-ы + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + редактор + редакторы + + + editor + editors + + + переводчик + переводчики + + + editor & translator + editors & translators + + + + + + + + + ред-р + ред-ры + + + ed. + eds. + + + перев-к + перев-и + + + ed. & tran. + eds. & trans. + + + + отредактировано + edited by + переведено + edited & translated by + to + interview by + + + by + ред + ed. + перев + ed. & trans. by + + + Январь + Февраль + Март + Апрель + Май + Июнь + Июль + Август + Сентябрь + Октябрь + Ноябрь + Декабрь + + + Янв + Фев + Мар + Апр + Май + Июн + Июл + Авг + Сен + Окт + Ноя + Дек + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-sk-SK.xml b/locales/locales-sk-SK.xml --- a/locales/locales-sk-SK.xml +++ b/locales/locales-sk-SK.xml @@ -1,199 +1,304 @@ - - - - v - v - ibid - cit - cit - z - nadchádzajúci - referencie - n.d. - a - et al - osobná komunikácia - list - anonymný - anon - and ďalší - v tlači - online - cit - internet - prezentované na - antropológia - astronómia - biológia - botanika - chémia - strojárstvo/technika - všeobecný základ - geografia - geológia - história - humanitné vedy - literatúra - matematika - medicína - filozofia - fyzika - psychológia - sociológia - veda - politické vedy - sociálne vedy - teológia - zoológia - - kniha - knihy - - - kapitola - kapitoly - - - stĺpec - stĺpce - - - obrázok - obrázky - - - list - listy - - - číslo - čísla - - - riadok - riadky - - - poznámka - poznámky - - - opus - opera - - - strana - strany - - - odstavec - odstavce - - - časť - časti - - - sekcia - sekcie - - - ročník - ročníky - - - vydanie - vydania - - - verš - verše - - k - kap - stĺp - obr - l - č - op - - s - s - - par - č - sek - - v - v - - - roč - roč - - edition - vyd - - - - - - § - § - - - - - - - editor - editori - - - prekladateľ - prekladatelia - - - - - - - ed - ed - - - prek - prek - - editoval - preložil - adresát - rozhovor urobil - ed - prel - január - február - marec - apríl - máj - jún - júl - august - september - október - november - december - jan - feb - mar - apr - máj - jún - júl - aug - sep - okt - nov - dec - - + + + + + + + + + + + + + + + cit + a + and ďalší + anonym + anon + v + by + circa + c. + cit + + vydanie + vydania + + vyd + et al + nadchádzajúci + z + ibid. + v + v tlači + internet + osobná komunikácia + list + no date + n.d. + online + prezentované na + + reference + references + + + ref. + refs. + + cit + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropológia + astronómia + biológia + botanika + chémia + strojárstvo/technika + všeobecný základ + geografia + geológia + história + humanitné vedy + linguistics + literatúra + matematika + medicína + filozofia + fyzika + psychológia + sociológia + veda + politické vedy + sociálne vedy + teológia + zoológia + + + + kniha + knihy + + + kapitola + kapitoly + + + stĺpec + stĺpce + + + obrázok + obrázky + + + list + listy + + + číslo + čísla + + + riadok + riadky + + + poznámka + poznámky + + + opus + opera + + + strana + strany + + + odstavec + odstavce + + + časť + časti + + + sekcia + sekcie + + + sub verbo + sub verbis + + + verš + verše + + + ročník + ročníky + + + + k + kap + stĺp + obr + l + č + op + + s + s + + par + č + sek + + s.v. + s.vv. + + + v + v + + + roč + roč + + + + + + + + + § + § + + + + + + + + + editor + editori + + + editor + editors + + + prekladateľ + prekladatelia + + + editor & translator + editors & translators + + + + + + + + + ed + ed + + + ed. + eds. + + + prek + prek + + + ed. & tran. + eds. & trans. + + + + editoval + edited by + preložil + edited & translated by + adresát + rozhovor urobil + + + by + ed + ed. + prel + ed. & trans. by + + + január + február + marec + apríl + máj + jún + júl + august + september + október + november + december + + + jan + feb + mar + apr + máj + jún + júl + aug + sep + okt + nov + dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-sl-SI.xml b/locales/locales-sl-SI.xml --- a/locales/locales-sl-SI.xml +++ b/locales/locales-sl-SI.xml @@ -1,199 +1,304 @@ - - - - pri - v - isto - dostopano - pridobljeno - od - pred izidom - sklici - b.d. - in - idr. - intervju - pismo - anonimni - anon - in drugi - v tisku - na spletu - citirano - internet - predstavljeno na - antropologija - astronomija - biologija - botanika - kemija - strojništvo - splošno - geografija - geologija - zgodovina - humanistika - literatura - matematika - medicina - filozofija - fizika - psihologija - sociologija - znanost - politologija - družbene vede - teologija - zoologija - - knjiga - knjige - - - poglavje - poglavja - - - stolpec - stolpci - - - slika - slike - - - folio - folii - - - številka - številke - - - vrstica - vrstice - - - opomba - opombe - - - opus - opera - - - stran - strani - - - odstavek - odstavki - - - del - deli - - - odsek - odseki - - - letnik - letniki - - - izdaja - izdaje - - - verz - verzi - - knj - pogl - sto - sl - f - št - op - - str - str - - odst - del - odsk - - v - v - - - let - let - - edition - iz - - - ¶¶ - - - § - §§ - - - - - - - urednik - uredniki - - - prevajalec - prevajalci - - - - - - - ur - ur - - - prev - prev - - uredil - prevedel - za - intervjuval - ur - prev - januar - februar - marec - april - maj - junij - julij - avgust - september - oktober - november - december - jan - feb - mar - apr - maj - jun - jul - avg - sep - okt - nov - dec - - + + + + + + + + + + + + + + + dostopano + in + in drugi + anonimni + anon + pri + by + circa + c. + citirano + + izdaja + izdaje + + iz + idr. + pred izidom + od + isto + v + v tisku + internet + intervju + pismo + no date + b.d. + na spletu + predstavljeno na + + reference + references + + + ref. + refs. + + pridobljeno + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropologija + astronomija + biologija + botanika + kemija + strojništvo + splošno + geografija + geologija + zgodovina + humanistika + linguistics + literatura + matematika + medicina + filozofija + fizika + psihologija + sociologija + znanost + politologija + družbene vede + teologija + zoologija + + + + knjiga + knjige + + + poglavje + poglavja + + + stolpec + stolpci + + + slika + slike + + + folio + folii + + + številka + številke + + + vrstica + vrstice + + + opomba + opombe + + + opus + opera + + + stran + strani + + + odstavek + odstavki + + + del + deli + + + odsek + odseki + + + sub verbo + sub verbis + + + verz + verzi + + + letnik + letniki + + + + knj + pogl + sto + sl + f + št + op + + str + str + + odst + del + odsk + + s.v. + s.vv. + + + v + v + + + let + let + + + + + + ¶¶ + + + § + §§ + + + + + + + + + urednik + uredniki + + + editor + editors + + + prevajalec + prevajalci + + + editor & translator + editors & translators + + + + + + + + + ur + ur + + + ed. + eds. + + + prev + prev + + + ed. & tran. + eds. & trans. + + + + uredil + edited by + prevedel + edited & translated by + za + intervjuval + + + by + ur + ed. + prev + ed. & trans. by + + + januar + februar + marec + april + maj + junij + julij + avgust + september + oktober + november + december + + + jan + feb + mar + apr + maj + jun + jul + avg + sep + okt + nov + dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-sr-RS.xml b/locales/locales-sr-RS.xml --- a/locales/locales-sr-RS.xml +++ b/locales/locales-sr-RS.xml @@ -1,207 +1,304 @@ - - - - на - у - ibid - приступљено - преузето - од - долазећи - референце - без датума - и - и остали - интервју - писмо - анонимна - анон. - и остали - у штампи - на Интернету - цитирано - Интернет - представљено на - антропологија - астрономија - биологија - ботаника - хемија - инжињерство - уопштена основа - географија - геологија - историја - култура и уметност - литература - математика - медицина - филозофија - физика - психологија - социологија - наука - политичка наука - друштвена наука - теологија - зоологија - - књига - књиге - - - поглавље - поглавља - - - колона - колоне - - - цртеж - цртежи - - - фолио - фолији - - - број - бројеви - - - линија - линије - - - белешка - белешке - - - опус - опера - - - страница - странице - - - параграф - параграфи - - - део - делова - - - одељак - одељака - - - том - томова - - - издање - издања - - - строфа - строфе - - - sub verbo - s.vv - - књига - Пог. - кол. - црт. - фолио - изд. - оп. - - стр. - стр. - - пар. - део - од. - - s.v - s.vv - - - стр. - стр. - - - том - томови - - edition - изд. - - - ¶¶ - - - § - §§ - - - - - - - уредник - урединици - - - преводилац - преводиоци - - - - - - - ур. - ур. - - - прев. - прев. - - уредио - превео - прима - интервјуисао - ур. - прев. - Јануар - Фебруар - Март - Април - Мај - Јуни - Јули - Август - Септембар - Октобар - Новембар - Децембар - Јан. - Феб. - Март - Апр. - Мај - Јуни - Јули - Авг. - Сеп. - Окт. - Нов. - Дец. - - + + + + + + + + + + + + + + + приступљено + и + и остали + анонимна + анон. + на + by + circa + c. + цитирано + + издање + издања + + изд. + и остали + долазећи + од + ibid. + у + у штампи + Интернет + интервју + писмо + no date + без датума + на Интернету + представљено на + + reference + references + + + ref. + refs. + + преузето + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + антропологија + астрономија + биологија + ботаника + хемија + инжињерство + уопштена основа + географија + геологија + историја + култура и уметност + linguistics + литература + математика + медицина + филозофија + физика + психологија + социологија + наука + политичка наука + друштвена наука + теологија + зоологија + + + + књига + књиге + + + поглавље + поглавља + + + колона + колоне + + + цртеж + цртежи + + + фолио + фолији + + + број + бројеви + + + линија + линије + + + белешка + белешке + + + опус + опера + + + страница + странице + + + параграф + параграфи + + + део + делова + + + одељак + одељака + + + sub verbo + sub verbis + + + строфа + строфе + + + том + томова + + + + књига + Пог. + кол. + црт. + фолио + изд. + оп. + + стр. + стр. + + пар. + део + од. + + s.v. + s.vv. + + + стр. + стр. + + + том + томови + + + + + + ¶¶ + + + § + §§ + + + + + + + + + уредник + урединици + + + editor + editors + + + преводилац + преводиоци + + + editor & translator + editors & translators + + + + + + + + + ур. + ур. + + + ed. + eds. + + + прев. + прев. + + + ed. & tran. + eds. & trans. + + + + уредио + edited by + превео + edited & translated by + прима + интервјуисао + + + by + ур. + ed. + прев. + ed. & trans. by + + + Јануар + Фебруар + Март + Април + Мај + Јуни + Јули + Август + Септембар + Октобар + Новембар + Децембар + + + Јан. + Феб. + Март + Апр. + Мај + Јуни + Јули + Авг. + Сеп. + Окт. + Нов. + Дец. + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-sv-SE.xml b/locales/locales-sv-SE.xml --- a/locales/locales-sv-SE.xml +++ b/locales/locales-sv-SE.xml @@ -1,199 +1,304 @@ - - - - vid - i - ibid - åtkomstdatum - hämtad - från - kommande - Referenser - nd - och - m.fl. - intervju - brev - anonym - anon - och andra - i tryck - online - citerad - internet - presenterad vid - antropologi - astronomi - biologi - botanik - kemi - teknik - generic base - geografi - geologi - historia - humaniora - litteraturvetenskap - matematik - medicin - filosofi - fysik - psykologi - sociologi - vetenskap - statsvetenskap - samhällsvetenskap - teologi - zoologi - - bok - böcker - - - kapitel - kapitel - - - kolumn - kolumner - - - figur - figurer - - - folio - folios - - - nummer - nummer - - - rad - rader - - - not - noter - - - opus - opera - - - sida - sidor - - - stycke - stycken - - - dek - delar - - - avnitt - avsnitt - - - volym - volumer - - - upplaga - upplagor - - - vers - verser - - bok - kap - kol - fig - f - num - op - - s - ss - - st - del - avs - - vers - verser - - - vol - vols - - edition - uppl - - - ¶¶ - - - § - §§ - - - - - - - redaktör - redaktörer - - - översättare - översättare - - - - - - - red - reds - - - övers - övers - - redigerad av - översatt av - till - intervju av - red - övers - Januari - Februari - Mars - April - Maj - Juni - Juli - Augusti - September - Oktober - November - December - Jan - Feb - Mar - Apr - Maj - Jun - Jul - Aug - Sep - Okt - Nov - Dec - - + + + + + + + + + + + + + + + åtkomstdatum + och + och andra + anonym + anon + vid + by + circa + c. + citerad + + upplaga + upplagor + + uppl + m.fl. + kommande + från + ibid. + i + i tryck + internet + intervju + brev + no date + nd + online + presenterad vid + + reference + references + + + ref. + refs. + + hämtad + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropologi + astronomi + biologi + botanik + kemi + teknik + generic base + geografi + geologi + historia + humaniora + linguistics + litteraturvetenskap + matematik + medicin + filosofi + fysik + psykologi + sociologi + vetenskap + statsvetenskap + samhällsvetenskap + teologi + zoologi + + + + bok + böcker + + + kapitel + kapitel + + + kolumn + kolumner + + + figur + figurer + + + folio + folios + + + nummer + nummer + + + rad + rader + + + not + noter + + + opus + opera + + + sida + sidor + + + stycke + stycken + + + dek + delar + + + avsnitt + avsnitt + + + sub verbo + sub verbis + + + vers + verser + + + volym + volumer + + + + bok + kap + kol + fig + f + num + op + + s + ss + + st + del + avs + + s.v. + s.vv. + + + vers + verser + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + redaktör + redaktörer + + + editor + editors + + + översättare + översättare + + + editor & translator + editors & translators + + + + + + + + + red + reds + + + ed. + eds. + + + övers + övers + + + ed. & tran. + eds. & trans. + + + + redigerad av + edited by + översatt av + edited & translated by + till + intervju av + + + by + red + ed. + övers + ed. & trans. by + + + Januari + Februari + Mars + April + Maj + Juni + Juli + Augusti + September + Oktober + November + December + + + Jan + Feb + Mar + Apr + Maj + Jun + Jul + Aug + Sep + Okt + Nov + Dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-th-TH.xml b/locales/locales-th-TH.xml --- a/locales/locales-th-TH.xml +++ b/locales/locales-th-TH.xml @@ -1,199 +1,304 @@ - - - - at - in - ibid - accessed - retrieved - from - forthcoming - references - n.d. - and - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - lines - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editors - - - translator - translators - - - - - - - ed - eds - - - tran - trans - - edited by - translated by - to - interview by - ed - trans - January - February - March - April - May - June - July - August - September - October - November - December - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + et al. + forthcoming + from + ibid. + in + in press + internet + interview + letter + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + lines + + + note + notes + + + opus + opera + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + op + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editors + + + editor + editors + + + translator + translators + + + editor & translator + editors & translators + + + + + + + + + ed + eds + + + ed. + eds. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + edited by + edited by + translated by + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + January + February + March + April + May + June + July + August + September + October + November + December + + + Jan + Feb + Mar + Apr + May + Jun + Jul + Aug + Sep + Oct + Nov + Dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-tr-TR.xml b/locales/locales-tr-TR.xml --- a/locales/locales-tr-TR.xml +++ b/locales/locales-tr-TR.xml @@ -1,199 +1,304 @@ - - - - de - içinde - ibid - erişildi - erişildi - den - gelecek - referans - tarih yok - ve - ve diğ. - interview - letter - isimsiz - isimsiz - ve diğ. - basımda - çevrimiçi - kaynak - internet - sunulan - antropoloji - astronomi - biyoloji - botanik - kimya - mühendislik - generic-base - coğrafya - jeoloji - tarih - humanities - edebiyat - matematik - tıp - felsefe - fizik - pisikoloji - sosyoloji - bilim - siyaset bilimi - sosyal bilimler - din bilimi - hayvanbilimi - - kitap - kitaplar - - - bölüm - bölümler - - - sütun - sütunlar - - - şekil - şekiller - - - folyo - folyo - - - sayı - sayılar - - - satır - satırlar - - - not - notlar - - - opus - opera - - - sayfa - sayfalar - - - paragraf - paragraflar - - - kısım - kısımlar - - - bölüm - bölümler - - - cilt - ciltler - - - edition - editions - - - dize - dizeler - - kit - böl - süt - şek - f - sayı - op - - s - ss - - para - kıs - böl - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editör - editörler - - - çevirmen - çevirmenler - - - - - - - ed - ed - - - çev - çev - - editör - çeviren - to - Röportaj yapan - ed - çev - Ocak - Şubat - Mart - Nisan - Mayıs - Haziran - Temmuz - Ağustos - Eylül - Ekim - Kasım - Aralık - Oca - Şub - Mar - Nis - May - Haz - Tem - Ağu - Eyl - Eki - Kas - Ara - - + + + + + + + + + + + + + + + erişildi + ve + ve diğ. + isimsiz + isimsiz + de + by + circa + c. + kaynak + + edition + editions + + ed + ve diğ. + gelecek + den + ibid. + içinde + basımda + internet + interview + letter + no date + tarih yok + çevrimiçi + sunulan + + reference + references + + + ref. + refs. + + erişildi + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + antropoloji + astronomi + biyoloji + botanik + kimya + mühendislik + generic-base + coğrafya + jeoloji + tarih + humanities + linguistics + edebiyat + matematik + tıp + felsefe + fizik + pisikoloji + sosyoloji + bilim + siyaset bilimi + sosyal bilimler + din bilimi + hayvanbilimi + + + + kitap + kitaplar + + + bölüm + bölümler + + + sütun + sütunlar + + + şekil + şekiller + + + folyo + folyo + + + sayı + sayılar + + + satır + satırlar + + + not + notlar + + + opus + opera + + + sayfa + sayfalar + + + paragraf + paragraflar + + + kısım + kısımlar + + + bölüm + bölümler + + + sub verbo + sub verbis + + + dize + dizeler + + + cilt + ciltler + + + + kit + böl + süt + şek + f + sayı + op + + s + ss + + para + kıs + böl + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editör + editörler + + + editor + editors + + + çevirmen + çevirmenler + + + editor & translator + editors & translators + + + + + + + + + ed + ed + + + ed. + eds. + + + çev + çev + + + ed. & tran. + eds. & trans. + + + + editör + edited by + çeviren + edited & translated by + to + Röportaj yapan + + + by + ed + ed. + çev + ed. & trans. by + + + Ocak + Şubat + Mart + Nisan + Mayıs + Haziran + Temmuz + Ağustos + Eylül + Ekim + Kasım + Aralık + + + Oca + Şub + Mar + Nis + May + Haz + Tem + Ağu + Eyl + Eki + Kas + Ara + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-uk-UA.xml b/locales/locales-uk-UA.xml --- a/locales/locales-uk-UA.xml +++ b/locales/locales-uk-UA.xml @@ -1,207 +1,304 @@ - - - - на - в - ibid - accessed - retrieved - із - forthcoming - посилання - n.d. - і - et al. - інтервю - лист - анонімний - анон. - та інші - у пресі - online - cited - інтернет - presented at the - антропологія - астрономія - біологія - ботаніка - хімія - інженерія - generic base - географія - геологія - історія - гуманітарні - література - математика - медицина - філософія - фізика - психологія - соціологія - наука - політичні науки - соціальні науки - теологія - зоологія - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - lines - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - - sub verbo - s.vv - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - s.v - s.vv - - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editors - - - translator - translators - - - - - - - ed - eds - - - tran - trans - - edited by - translated by - to - interview by - ed - trans - Січень - Лютий - Березень - Квітень - Травень - Червень - Липень - Серпень - Вересень - Жовтень - Листопад - Грудень - Січ - Лют - Бер - Квіт - Трав - Чер - Лип - Сер - Вер - Жов - Лис - Груд - - + + + + + + + + + + + + + + + accessed + і + та інші + анонімний + анон. + на + by + circa + c. + cited + + edition + editions + + ed + et al. + forthcoming + із + ibid. + в + у пресі + інтернет + інтервю + лист + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + антропологія + астрономія + біологія + ботаніка + хімія + інженерія + generic base + географія + геологія + історія + гуманітарні + linguistics + література + математика + медицина + філософія + фізика + психологія + соціологія + наука + політичні науки + соціальні науки + теологія + зоологія + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + lines + + + note + notes + + + opus + opera + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + op + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editors + + + editor + editors + + + translator + translators + + + editor & translator + editors & translators + + + + + + + + + ed + eds + + + ed. + eds. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + edited by + edited by + translated by + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + Січень + Лютий + Березень + Квітень + Травень + Червень + Липень + Серпень + Вересень + Жовтень + Листопад + Грудень + + + Січ + Лют + Бер + Квіт + Трав + Чер + Лип + Сер + Вер + Жов + Лис + Груд + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-vi-VN.xml b/locales/locales-vi-VN.xml --- a/locales/locales-vi-VN.xml +++ b/locales/locales-vi-VN.xml @@ -1,199 +1,304 @@ - - - - at - trong - n.t. - truy cập - truy vấn - từ - sắp tới - tham khảo - không ngày - và - và c.s. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - dòng - dòng - - - note - notes - - - opus - opera - - - trang - trang - - - đoạn văn - đoạn văn - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - số p.h - op - - tr - tr - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - biên tập viên - biên tập viên - - - biên dịch viên - biên dịch viên - - - - - - - b.t.v - b.t.v - - - b.d.v - b.d.v - - biên tập bởi - biên dịch bởi - to - interview by - b.t - b.d - Tháng Giêng - Tháng Hai - Tháng Ba - Tháng Tư - Tháng Năm - Tháng Sáu - Tháng Bảy - Tháng Tám - Tháng Chín - Tháng Mười - Tháng Mười-Một - Tháng Chạp - tháng 1 - tháng 2 - tháng 3 - tháng 4 - tháng 5 - tháng 6 - tháng 7 - tháng 8 - tháng 9 - tháng 10 - tháng 11 - tháng 12 - - + + + + + + + + + + + + + + + truy cập + và + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + và c.s. + sắp tới + từ + n.t. + trong + in press + internet + interview + letter + no date + không ngày + online + presented at the + + reference + references + + + ref. + refs. + + truy vấn + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + dòng + dòng + + + note + notes + + + opus + opera + + + trang + trang + + + đoạn văn + đoạn văn + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + số p.h + op + + tr + tr + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + biên tập viên + biên tập viên + + + editor + editors + + + biên dịch viên + biên dịch viên + + + editor & translator + editors & translators + + + + + + + + + b.t.v + b.t.v + + + ed. + eds. + + + b.d.v + b.d.v + + + ed. & tran. + eds. & trans. + + + + biên tập bởi + edited by + biên dịch bởi + edited & translated by + to + interview by + + + by + b.t + ed. + b.d + ed. & trans. by + + + Tháng Giêng + Tháng Hai + Tháng Ba + Tháng Tư + Tháng Năm + Tháng Sáu + Tháng Bảy + Tháng Tám + Tháng Chín + Tháng Mười + Tháng Mười-Một + Tháng Chạp + + + tháng 1 + tháng 2 + tháng 3 + tháng 4 + tháng 5 + tháng 6 + tháng 7 + tháng 8 + tháng 9 + tháng 10 + tháng 11 + tháng 12 + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-zh-CN.xml b/locales/locales-zh-CN.xml --- a/locales/locales-zh-CN.xml +++ b/locales/locales-zh-CN.xml @@ -1,199 +1,304 @@ - - - - at - in - ibid - accessed - retrieved - from - forthcoming - References - nd - and - et al. - interview - letter - anonymous - anon - and others - in press - online - cited - internet - presented at the - anthropology - astronomy - biology - botany - chemistry - engineering - generic base - geography - geology - history - humanities - literature - math - medicine - philosophy - physics - psychology - sociology - science - political science - social science - theology - zoology - - book - books - - - chapter - chapters - - - column - columns - - - figure - figures - - - folio - folios - - - number - numbers - - - line - line - - - note - notes - - - opus - opera - - - page - pages - - - paragraph - paragraph - - - part - parts - - - section - sections - - - volume - volumes - - - edition - editions - - - verse - verses - - bk - chap - col - fig - f - no - op - - p - pp - - para - pt - sec - - v - vv - - - vol - vols - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - editor - editors - - - translator - translators - - - - - - - ed - eds - - - tran - trans - - edited by - translated by - to - interview by - ed - trans - January - February - March - April - May - June - July - August - September - October - November - December - Jan - Feb - Mar - Apr - May - Jun - Jul - Aug - Sep - Oct - Nov - Dec - - + + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon + at + by + circa + c. + cited + + edition + editions + + ed + et al. + forthcoming + from + ibid. + in + in press + internet + interview + letter + no date + nd + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + anthropology + astronomy + biology + botany + chemistry + engineering + generic base + geography + geology + history + humanities + linguistics + literature + math + medicine + philosophy + physics + psychology + sociology + science + political science + social science + theology + zoology + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + line + + + note + notes + + + opus + opera + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + op + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + + + + + editor + editors + + + editor + editors + + + translator + translators + + + editor & translator + editors & translators + + + + + + + + + ed + eds + + + ed. + eds. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + edited by + edited by + translated by + edited & translated by + to + interview by + + + by + ed + ed. + trans + ed. & trans. by + + + January + February + March + April + May + June + July + August + September + October + November + December + + + Jan + Feb + Mar + Apr + May + Jun + Jul + Aug + Sep + Oct + Nov + Dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-zh-TW.xml b/locales/locales-zh-TW.xml --- a/locales/locales-zh-TW.xml +++ b/locales/locales-zh-TW.xml @@ -1,199 +1,304 @@ - - - - 在 - 在 - 同上出處 - 被取用 - 被取回 - 從 - 將來的 - 參考資料 - 無日期 - 及 - 等人 - 訪問 - 信件 - 不具名的 - 無名 - 及其他 - 印行中 - 在線上 - 被引用 - 網際網路 - 簡報於 - 人類學 - 天文學 - 生物學 - 植物學 - 化學 - 工程學 - 一般基礎 - 地理學 - 地質學 - 歷史學 - 人文學科 - 文學 - 數學 - 醫學 - 哲學 - 物理學 - 心理學 - 社會學 - 自然科學 - 政治科學 - 社會科學 - 神學 - 動物學 - - 書 - 書 - - - 章 - 章 - - - 欄 - 欄 - - - 圖 - 圖 - - - 對開紙 - 對開紙 - - - 期數 - 期數 - - - 行 - 行 - - - 筆記 - 筆記 - - - 作品 - 作品 - - - 頁 - 頁 - - - 段落 - 段落 - - - 部 - 部 - - - 節 - 節 - - - 冊 - 冊 - - - 版本 - 版本 - - - 詩句 - 詩句 - - 書 - 章 - 欄 - 圖 - 開 - 期 - 作 - - 頁 - 頁 - - 段 - 部 - 節 - - 句 - 句 - - - 冊 - 冊 - - edition - 版 - - - ¶¶ - - - § - §§ - - - 作者 - 作者 - - - 編輯 - 編輯 - - - 翻譯 - 翻譯 - - - 作 - 作 - - - 編 - 編 - - - 譯 - 譯 - - 編者是 - 譯者是 - 授與 - 訪問者是 - 編 - 譯 - 一月 - 二月 - 三月 - 四月 - 五月 - 六月 - 七月 - 八月 - 九月 - 十月 - 十一月 - 十二月 - 1月 - 2月 - 3月 - 4月 - 5月 - 6月 - 7月 - 8月 - 9月 - 10月 - 11月 - 12月 - - + + + + + + + + + + + + + + + 被取用 + 及 + 及其他 + 不具名的 + 無名 + 在 + by + circa + c. + 被引用 + + 版本 + 版本 + + 版 + 等人 + 將來的 + 從 + 同上出處 + 在 + 印行中 + 網際網路 + 訪問 + 信件 + no date + 無日期 + 在線上 + 簡報於 + + reference + references + + + ref. + refs. + + 被取回 + + + AD + BC + + + “ + ” + ‘ + ’ + + + st + nd + rd + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + 人類學 + 天文學 + 生物學 + 植物學 + 化學 + 工程學 + 一般基礎 + 地理學 + 地質學 + 歷史學 + 人文學科 + linguistics + 文學 + 數學 + 醫學 + 哲學 + 物理學 + 心理學 + 社會學 + 自然科學 + 政治科學 + 社會科學 + 神學 + 動物學 + + + + 書 + 書 + + + 章 + 章 + + + 欄 + 欄 + + + 圖 + 圖 + + + 對開紙 + 對開紙 + + + 期數 + 期數 + + + 行 + 行 + + + 筆記 + 筆記 + + + 作品 + 作品 + + + 頁 + 頁 + + + 段落 + 段落 + + + 部 + 部 + + + 節 + 節 + + + sub verbo + sub verbis + + + 詩句 + 詩句 + + + 冊 + 冊 + + + + 書 + 章 + 欄 + 圖 + 開 + 期 + 作 + + 頁 + 頁 + + 段 + 部 + 節 + + s.v. + s.vv. + + + 句 + 句 + + + 冊 + 冊 + + + + + + ¶¶ + + + § + §§ + + + + + 作者 + 作者 + + + 編輯 + 編輯 + + + editor + editors + + + 翻譯 + 翻譯 + + + editor & translator + editors & translators + + + + + 作 + 作 + + + 編 + 編 + + + ed. + eds. + + + 譯 + 譯 + + + ed. & tran. + eds. & trans. + + + + 編者是 + edited by + 譯者是 + edited & translated by + 授與 + 訪問者是 + + + by + 編 + ed. + 譯 + ed. & trans. by + + + 一月 + 二月 + 三月 + 四月 + 五月 + 六月 + 七月 + 八月 + 九月 + 十月 + 十一月 + 十二月 + + + 1月 + 2月 + 3月 + 4月 + 5月 + 6月 + 7月 + 8月 + 9月 + 10月 + 11月 + 12月 + + + Spring + Summer + Autumn + Winter + + diff --git a/src/Text/CSL.hs b/src/Text/CSL.hs --- a/src/Text/CSL.hs +++ b/src/Text/CSL.hs @@ -11,7 +11,7 @@ -- /citeproc-hs/ is a library for automatically formatting -- bibliographic reference citations into a variety of styles using a -- macro language called Citation Style Language (CSL). More details --- on CSL can be found here: . +-- on CSL can be found here: . -- -- This module documents and exports the library API. -- @@ -27,11 +27,13 @@ -- * Reading Bibliographic Databases readBiblioFile , readModsFile - , readModsColletionFile + , readModsCollectionFile -- ** Reference Representation , Reference (..) , getReference + , parseLocator + , setNearNote -- * CSL Parser, Representation, and Processing , readCSLFile @@ -40,8 +42,14 @@ , Style (..) , Citation (..) , Bibliography (..) + , Cite (..) + , Affix (..) + , emptyCite -- ** High Level Processing + , ProcOpts (..) + , procOpts + , BibOpts (..) , citeproc , processCitations , processBibliography @@ -54,6 +62,12 @@ , renderPandoc , renderPandoc' , renderPandocStrict + , headInline + , initInline + , tailFirstInlineStr + , toCapital + , startWithPunct + , endWithPunct ) where import Text.CSL.Parser @@ -78,28 +92,26 @@ -- The library also provides a wrapper around hs-bibutils, the Haskell -- bindings to Chris Putnam's bibutils, a library that interconverts -- between various bibliography formats using a common MODS-format XML --- intermediate. --- --- For more information about hs-bibutils see here: +-- intermediate. For more information about hs-bibutils see here: -- . -- --- /citeproc-hs/ can natively read MODS formatted bibliographic --- databases. +-- /citeproc-hs/ can natively read MODS and JSON formatted +-- bibliographic databases. The JSON format is only partially +-- documented. It is used by citeproc-js, by the CSL processor +-- test-suite and is derived by the CSL scheme. More information can +-- be read here: +-- . +-- +-- A (git) repository of styles can be found here: +-- . -- $overview -- --- The following example assumes you have properly installed --- hs-bibutils. If not you can use bibutils to convert the following --- bibtex bibliographic database into a MODS collection. +-- The following example assumes you have installed citeproc-hs with +-- hs-bibutils support (which is the default). -- -- Suppose you have a small bibliographic database, like this one: -- --- > @Book{Rossato2005, --- > author="Andrea Rossato", --- > title="My First Book", --- > year="2005" --- > } --- > -- > @Book{Rossato2006, -- > author="Andrea Rossato", -- > title="My Second Book", @@ -114,25 +126,34 @@ -- -- Save it as @mybibdb.bib@. -- --- Then you can grab one of the CSL style developed by the Zotero --- community. Suppose this one: +-- Then you can grab one of the CSL styles that come with the +-- test-suite for CSL processors. Suppose this one: -- --- +-- -- --- saved locally as @apa.csl@. +-- saved locally as @apa-x.csl@. -- -- This would be a simple program that formats a list of citations -- according to that style: -- -- > import Text.CSL -- > +-- > cites :: [Cite] +-- > cites = [emptyCite { citeId = "Caso2007" +-- > , citeLabel = "page" +-- > , citeLocator = "15"} +-- > ,emptyCite { citeId = "Rossato2006" +-- > , citeLabel = "page" +-- > , citeLocator = "10"} +-- > ] +-- > -- > main :: IO () -- > main = do --- > m <- readBiblioFile "mybibdb.bib" "bibtex" --- > s <- readCSLFile "apa.csl" --- > let result = citeproc s m $ [[("Caso2007","p. 10"),("Rossato2005","p. 10"),("Rossato2006","p. 15")]] +-- > m <- readBiblioFile "mybibdb.bib" +-- > s <- readCSLFile "apa-x.csl" +-- > let result = citeproc procOpts s m $ [cites] -- > putStrLn . unlines . map (renderPlainStrict) . citations $ result -- -- The result would be: -- --- > (Caso, 2007, p. 10; Rossato, 2005, p. 10, 2006, p. 15) +-- > (Caso, 2007, p. 15; Rossato, 2006, p. 10) diff --git a/src/Text/CSL/Eval.hs b/src/Text/CSL/Eval.hs --- a/src/Text/CSL/Eval.hs +++ b/src/Text/CSL/Eval.hs @@ -13,84 +13,120 @@ -- ----------------------------------------------------------------------------- -module Text.CSL.Eval where +module Text.CSL.Eval + ( evalLayout + , evalSorting + , last' + , module Text.CSL.Eval.Common + , module Text.CSL.Eval.Output + ) where -import Control.Arrow ( (&&&) ) +import Control.Arrow import Control.Applicative ( (<$>) ) import Control.Monad.State -import Data.Char ( toLower ) -import Data.List ( elemIndex ) +import Data.Char import Data.Maybe +import Text.CSL.Eval.Common +import Text.CSL.Eval.Output +import Text.CSL.Eval.Date +import Text.CSL.Eval.Names import Text.CSL.Output.Plain -import Text.CSL.Parser ( toRead ) import Text.CSL.Reference import Text.CSL.Style - -data EvalState - = EvalState - { ref :: ReferenceMap - , pos :: String - , env :: Environment - , debug :: [String] - , disamb :: Bool - , consume :: Bool - } - -data Environment - = Env - { terms :: [TermMap] - , macros :: [MacroMap] - , options :: [Option] - , name :: [Name] - } deriving ( Show ) +import Text.Pandoc.Definition +import Text.ParserCombinators.Parsec hiding ( State (..) ) -evalLayout :: Layout -> Bool -> [TermMap] -> [MacroMap] - -> [Option] -> String -> Reference -> [Output] -evalLayout (Layout _ _ es) b t m o p r = evalState job initSt +-- | Produce the output with a 'Layout', the 'EvalMode', a 'Bool' +-- 'True' if the evaluation happens for disambiguation purposes, the +-- 'Locale', the 'MacrpMap', the position of the cite and the +-- 'Reference'. +evalLayout :: Layout -> EvalMode -> Bool -> [Locale] -> [MacroMap] + -> [Option] -> Reference -> [Output] +evalLayout (Layout _ _ es) em b l m o r + = cleanOutput result where + evalOut = case evalState job initSt of + [] -> if (isSorting $ em) + then [] + else [noOutputError] + x | title r == citeId cit ++ " not found!" -> [noBibDataError $ cit] + | otherwise -> x + addAff f x c = case f c of + PlainText [] -> [] + PlainText p | x -> [Output (rtfParser emptyFormatting p) emptyFormatting, OSpace] + PlainText p -> [OSpace, Output (rtfParser emptyFormatting p) emptyFormatting] + PandocText [] -> [] + PandocText p | x -> [OPan p, OSpace] + PandocText p -> [OPan p] + result = case em of + EvalCite c -> addAff citePrefix True c ++ evalOut ++ addAff citeSuffix False c + _ -> evalOut + locale = case l of + [x] -> x + _ -> Locale [] [] [] [] [] job = concatMapM evalElement es - initSt = EvalState (mkRefMap r) p (Env t m o []) [] b False + cit = case em of + EvalCite c -> c + EvalSorting c -> c + EvalBiblio s -> emptyCite { citePosition = s } + initSt = EvalState (mkRefMap r) (Env cit (localeTermMap locale) m + (localeDate locale) o []) [] em b False [] False [] [] [] -evalSorting :: [TermMap] -> [MacroMap] -> [Option] -> [Sort] -> Reference -> [Sorting] -evalSorting ts ms opts ss r +evalSorting :: EvalMode -> [Locale] -> [MacroMap] -> [Option] -> [Sort] -> Reference -> [Sorting] +evalSorting m l ms opts ss r = map (format . sorting) ss where - render = renderPlainStrict . map formatOutput . proc addYearSuffix - format (s,e) = applaySort s . render $ eval e - eval e = evalLayout (Layout emptyFormatting [] [e]) False ts ms opts [] r + render = renderPlainStrict . formatOutputList + format (s,e) = applaySort s . render $ uncurry eval e + eval o e = evalLayout (Layout emptyFormatting [] [e]) m False l ms o r applaySort c s | Ascending {} <- c = Ascending s | otherwise = Descending s - sorting s = case s of - SortVariable str o -> (o, Variable [str] Long emptyFormatting []) - SortMacro str o -> (o, Macro str Long emptyFormatting ) + unsetOpts ("et-al-min" ,_) = ("et-al-min" ,"") + unsetOpts ("et-al-use-first" ,_) = ("et-al-use-first" ,"") + unsetOpts ("et-al-subsequent-min" ,_) = ("et-al-subsequent-min","") + unsetOpts ("et-al-subsequent-use-first",_) = ("et-al-subsequent-use-first","") + unsetOpts x = x + setOpts s i = if i /= 0 then (s, show i) else ([],[]) + sorting s + = case s of + SortVariable str s' -> (s', ( ("name-as-sort-order","all") : opts + , Variable [str] Long emptyFormatting [])) + SortMacro str s' a b c -> (s', ( setOpts "et-al-min" a : ("et-al-use-last",c) : + setOpts "et-al-use-first" b : proc unsetOpts opts + , Macro str emptyFormatting)) + evalElements :: [Element] -> State EvalState [Output] evalElements x = concatMapM evalElement x evalElement :: Element -> State EvalState [Output] evalElement el - | Choose i ei e <- el = evalIfThen i ei e - | Macro s _ fm <- el = return . appendOutput fm =<< evalElements =<< getMacro s - | Const s fm <- el = return . output fm $ s - | PointLocator s _ fm <- el = return . output fm =<< getStringVar s - | Number s _ fm <- el = return . output fm =<< getStringVar s - | Variable s f fm d <- el = return . addDelim d =<< concatMapM (getVariable f fm) s - | Group fm d _ l <- el = when' ((/=) [] <$> tryGroup l) $ - return . outputList fm d =<< evalElements l - | Date s fm d dp <- el = return . outputList fm d =<< evalDate dp s - | Label s f fm i p <- el = formatLabel f fm i p s - | Term s f fm i p <- el = formatLabel f fm i p s - | Names s n fm d sub <- el = ifEmpty (evalNames s n d) - (withName (getName n) $ evalElements sub) - (appendOutput fm) - | Substitute (e:els) <- el = ifEmpty (consuming $ evalElement e) - (getFirst els) id - | ShortNames s fm d <- el = head <$> gets (name . env) >>= \(Name f _ nf d') -> - evalNames s [Name f fm nf d'] d - | otherwise = return [] + | Choose i ei e <- el = evalIfThen i ei e + | Macro s fm <- el = return . appendOutput fm =<< evalElements =<< getMacro s + | Const s fm <- el = return . output fm $ s + | Number s f fm <- el = formatNumber f fm =<< getStringVar s + | Variable s f fm d <- el = return . addDelim d =<< concatMapM (getVariable f fm) s + | Group fm d l <- el = when' ((/=) [] <$> tryGroup l) $ + return . outputList fm d =<< evalElements l + | Date _ _ _ _ _ _ <- el = evalDate el + | Label s f fm _ <- el = formatLabel f fm True s -- FIXME !! + | Term s f fm p <- el = formatLabel f fm p s + | Names s n fm d sub <- el = modify (\st -> st { contNum = [] }) >> + ifEmpty (evalNames False s n d) + (withNames el $ evalElements sub) + (appendOutput fm) + | Substitute (e:els) <- el = ifEmpty (consuming $ evalElement e) + (getFirst els) id + | ShortNames s fm d <- el = head <$> gets (names . env) >>= \(Names _ ns fm' d' _) -> + appendOutput fm' <$> evalNames False s (updateNameParts d fm ns) d' + | otherwise = return [] where + updateNameParts d fm (Name f fm' nf d' np : xs) = Name f (mergeFM fm' fm) nf (d `betterThen` d') np : xs + updateNameParts d fm (x : xs) = x : updateNameParts d fm xs + updateNameParts _ _ [] = [] + tryGroup l = get >>= \s -> evalElements (rmTermConst l) >>= \r -> put s >> return r rmTermConst [] = [] rmTermConst (e:es) @@ -100,10 +136,10 @@ ifEmpty p t e = p >>= \r -> if r == [] then t else return (e r) - withName n f = modify (\s -> s { env = (env s) - {name = n : name (env s)}}) >> f >>= \r -> - modify (\s -> s { env = (env s) - {name = tail $ name (env s)}}) >> return r + withNames n f = modify (\s -> s { env = (env s) + {names = n : names (env s)}}) >> f >>= \r -> + modify (\s -> s { env = (env s) + {names = tail $ names (env s)}}) >> return r getFirst [] = return [] getFirst (x:xs) = whenElse ((/=) [] <$> evalElement x) @@ -111,10 +147,15 @@ (getFirst xs) getMacro s = maybe [] id . lookup s <$> gets (macros . env) - getName = head . filter isName - getVariable f fm s = getStringVar "year-suffix" >>= \su -> - getVar [] (getFormattedValue su f fm) s >>= - \r -> consumeVariable s >> return r + getVariable f fm s = case s of + "year-suffix" -> getStringVar "ref-id" >>= \k -> + return . return $ OYearSuf [] k [] fm + "page" -> getStringVar "page" >>= formatRange fm + "title" -> formatTitle f fm + "locator" -> getLocVar >>= formatRange fm . snd + _ -> gets (options . env) >>= \opts -> + getVar [] (getFormattedValue opts f fm) s >>= \r -> + consumeVariable s >> return r evalIfThen :: IfThen -> [IfThen] -> [Element] -> State EvalState [Output] evalIfThen i ei e @@ -128,13 +169,13 @@ else whenElse (evalCond m c) (evalElements el) (evalIfThen (head ei) (tail ei) e) - evalCond m c = do t <- checkCond chkType isType c m - v <- checkCond isVarSet isSet c m - n <- checkCond chkNumeric isNumeric c m - d <- checkCond chkDate isDate c m - p <- checkCond chkPosition isPosition c m - a <- checkCond chkDisambiguate disambiguation c m - l <- checkCond chkLocator isLocator c m + evalCond m c = do t <- checkCond chkType isType c m + v <- checkCond isVarSet isSet c m + n <- checkCond chkNumeric isNumeric c m + d <- checkCond chkDate isUncertainDate c m + p <- checkCond chkPosition isPosition c m + a <- checkCond chkDisambiguate disambiguation c m + l <- checkCond chkLocator isLocator c m return $ match m $ concat [t,v,n,d,p,a,l] checkCond a f c m = if f c /= [] then mapM a (f c) else checkMatch m @@ -144,275 +185,197 @@ chkType t = let chk = (==) (formatVariable t) . show . fromMaybe NoType . fromValue in getVar False chk "ref-type" - chkNumeric v = isVarSet v - chkDate v = isVarSet v - chkPosition s = gets pos >>= return . compPosition s - chkDisambiguate s = gets disamb >>= return . (==) (formatVariable s) . map toLower . show - chkLocator v = getLocVar v >>= return . (==) v . fst + numericVars = ["edition", "volume", "number-of-volumes", "number", "issue", "citation-number"] + chkNumeric v = do val <- getStringVar v + return (v `elem` numericVars && or (map isDigit val)) + chkDate v = getDateVar v >>= return . not . null . filter ((/=) [] . circa) + chkPosition s = if s == "near-note" + then gets (nearNote . cite . env) + else gets (citePosition . cite . env) >>= return . compPosition s + chkDisambiguate s = gets disamb >>= return . (==) (formatVariable s) . map toLower . show + chkLocator v = getLocVar >>= return . (==) v . fst isIbid s = if s == "first" || s == "subsequent" then False else True compPosition a b - | "first" <- a = if b == "first" then True else False - | "subsequent" <- a = if b == "first" then False else True - | "ibid-with-locator" <- a = if b == "ibid-with-locator" then True else False + | "first" <- a = if b == "first" then True else False + | "subsequent" <- a = if b == "first" then False else True + | "ibid-with-locator" <- a = if b == "ibid-with-locator" || + b == "ibid-with-locator-c" then True else False | otherwise = isIbid b -evalNames :: [String] -> [Name] -> String -> State EvalState [Output] -evalNames ns nl d - | (s:xs) <- ns = do ags <- getAgents s - k <- getStringVar "cite-key" - p <- gets pos - ops <- gets (options . env) - let (b ,l ) = isEtAl ops p ags - (ea,as) = if b - then (,) True $ take l ags - else (,) False $ ags - r <- if s == "author" && ags /= [] && p == "subsequent" && - isOptionSet "subsequent-author-substitute" ops - then return $ output emptyFormatting $ - getOptionVal "subsequent-author-substitute" ops - else do res <- agents ea s as - if res /= [] - then return . return . OContrib k res =<< - mapM (rest ags ea s) [1 + l .. length ags] - else return [] - r' <- evalNames xs nl d - return $ if r /= [] && r' /= [] - then r ++ [ODel d] ++ r' - else cleanOutput (r ++ r') - | otherwise = return [] - where - agents ea s l = concatMapM (formatNames ea s l) nl - rest l ea s n = agents (if n == length l then False else ea) s $ take n l - etAlMin s = read . getOptionVal s - isEtAl o p ags - | p /= "first" - , isOptionSet "et-al-subsequent-min" o - , isOptionSet "et-al-subsequent-use-first" o - , len <- etAlMin "et-al-subsequent-min" o - , length ags > 1 - , length ags >= len = (,) True $ etAlMin "et-al-subsequent-use-first" o - | isOptionSet "et-al-min" o - , isOptionSet "et-al-use-first" o - , len <- etAlMin "et-al-min" o - , length ags > 1 - , length ags >= len = (,) True $ etAlMin "et-al-use-first" o - | otherwise = (False, 0) - -evalDate :: [DatePart] -> [String] -> State EvalState [Output] -evalDate dp s = do tm <- gets $ filter ((==) "month-" . take 6 . fst . fst) . terms . env - sf <- getStringVar "year-suffix" - concatMap (formatDate sf tm dp) <$> mapM getDateVar s - --- | If the first parameter is 'True' the plural form will be retrieved. -getTerm :: Bool -> Form -> String -> State EvalState String -getTerm b f s = maybe [] g . lookup (s,f) <$> gets (terms . env) -- FIXME: vedere i fallback - where g = if b then snd else fst - -getStringVar :: String -> State EvalState String -getStringVar - = getVar [] getStringValue - -getDateVar :: String -> State EvalState [RefDate] -getDateVar - = getVar [] getDateValue - where - getDateValue val - | Just v <- fromValue val = v - | otherwise = [] - -getLocVar :: String -> State EvalState (String,String) -getLocVar s - = (show &&& locString) <$> getVar NoneLoc getLocValue s - where - getLocValue val - | Just v <- fromValue val = v - | otherwise = NoneLoc - -getVar :: a -> (Value -> a) -> String -> State EvalState a -getVar a f s - = withRefMap $ maybe a f . lookup (formatVariable s) - -getAgents :: String -> State EvalState [Agent] -getAgents s - = do - mv <- withRefMap (lookup s) - case mv of - Just v -> case fromValue v of - Just x -> consumeVariable s >> return x - _ -> return [] - _ -> return [] - -getFormattedValue :: String -> Form -> Formatting -> Value -> [Output] -getFormattedValue s f fm val - | Just v <- fromValue val :: Maybe String = output fm v - | Just v <- fromValue val :: Maybe Locator = output fm (locString v) +getFormattedValue :: [Option] -> Form -> Formatting -> Value -> [Output] +getFormattedValue o f fm val + | Just v <- fromValue val :: Maybe String = rtfParser fm v | Just v <- fromValue val :: Maybe Int = output fm (if v == 0 then [] else show v) | Just v <- fromValue val :: Maybe CNum = if v == 0 then [] else [OCitNum (unCNum v) fm] - | Just v <- fromValue val :: Maybe [RefDate] = formatDate s [] defaultDate v - | Just v <- fromValue val :: Maybe [Agent] = concatMap (formatName True f fm defaultNameFormatting) v + | Just v <- fromValue val :: Maybe [RefDate] = formatDate (EvalSorting emptyCite) [] [] sortDate v + | Just v <- fromValue val :: Maybe [Agent] = concatMap (formatName (EvalSorting emptyCite) True f + fm nameOpts []) v | otherwise = [] - -getStringValue :: Value -> String -getStringValue val - | Just v <- fromValue val = v - | otherwise = [] - -getOptionVal :: String -> [Option] -> String -getOptionVal s = fromMaybe [] . lookup s - -isOptionSet :: String -> [Option] -> Bool -isOptionSet s = maybe False (not . null) . lookup s - -isVarSet :: String -> State EvalState Bool -isVarSet = getVar False isValueSet - -withRefMap :: (ReferenceMap -> a) -> State EvalState a -withRefMap f = return . f =<< gets ref - -formatNames :: Bool -> String -> [Agent] -> Name -> State EvalState [Output] -formatNames et s as n - | Name f fm nf d <- n = return . delim nf d =<< (++) (names f fm nf) <$> et_al fm - | NameLabel f fm i p <- n = when' (isVarSet s) $ formatLabel f fm i (isPlural p $ length as) s - | otherwise = return [] where - et_al fm = if not et then return [] else return . output fm =<< getTerm False Long "et-al" - names f fm nf - | "first" <- nameAsSortOrder nf, (a:xs) <- as = formatName True f fm nf a ++ - concatMap (formatName False f fm nf) xs - | "all" <- nameAsSortOrder nf = concatMap (formatName True f fm nf) as - | otherwise = concatMap (formatName False f fm nf) as - delim nf d x - | True <- et - , length x > 1 = addDelim d x - | "always" <- delimiterPrecedesLast nf - , length x == 2 = addDelim d (init x) ++ ODel (d <> andStr nf) : [last x] - | length x == 2 = addDelim d (init x) ++ ODel ( andStr nf) : [last x] - | length x > 2 = addDelim d (init x) ++ ODel (d <> andStr nf) : [last x] - | otherwise = addDelim d x - andStr nf - | "text" <- andConnector nf = " and " - | "symbol" <- andConnector nf = " & " - | otherwise = [] - isPlural p = (&&) p . (<) 1 + nameOpts = ("name-as-sort-order","all") : o + sortDate = [ DatePart "year" "numeric-leading-zeros" "" emptyFormatting + , DatePart "month" "numeric-leading-zeros" "" emptyFormatting + , DatePart "day" "numeric-leading-zeros" "" emptyFormatting] --- | Generate the 'Agent's names applying et-al options, with all --- possible permutations to disambiguate colliding citations. -formatName :: Bool -> Form -> Formatting -> NameFormatting -> Agent -> [Output] -formatName b f fm nf n - | Person {} <- n - , Short <- f = return $ OName short rest fm - | Person {} <- n = return $ OName (long given') [long given] fm - | Entity s <- n = output fm s - | otherwise = [] +rtfTags :: [(String, (String,Formatting))] +rtfTags = + [("b" , ("b" , ef {fontWeight = "bold" })) + ,("i" , ("i" , ef {fontStyle = "italic" })) + ,("sc" , ("sc" , ef {fontVariant = "small-caps"})) + ,("sup" , ("sup" , ef {verticalAlign = "sub" })) + ,("sub" , ("sub" , ef {verticalAlign = "sub" })) + ,("span class=\"nocase\"" , ("span", ef {noCase = True })) + ,("span class=\"nodecor\"" , ("span", ef {noDecor = True })) + ] where - rest = [ family $ concatMap addPnt (givenName n) - , long given] - addSpace = flip (++) (if b then [] else " ") - addPnt x = if x /= [] then head x : ". " else [] - format x = procList x initia - initia x = if initializeWith nf /= [] - then head x : initializeWith nf - else addSpace x - long g = if b - then family [] ++ sortSeparator nf ++ g - else family g - short = family [] - family x = namePrefix n <+> (x ++ articular n <+> familyName n <+> nameSuffix n) - given' = concatMap format (givenName n) - given = addSpace $ concat (givenName n) + ef = emptyFormatting -formatLabel :: Form -> Formatting -> Bool -> Bool -> String -> State EvalState [Output] -formatLabel f fm i p s - | "locator" <- s = when' (isVarSet s) $ do - (l,v) <- getLocVar s - format l ('-' `elem` v) - | "page" <- s = when' (isVarSet s) $ do - v <- getStringVar s - format s ('-' `elem` v) - | otherwise = format s p +rtfParser :: Formatting -> String -> [Output] +rtfParser _ [] = [] +rtfParser fm s + = either (const [OStr s fm]) (return . flip Output fm . concat) $ + parse (manyTill parser eof) "" s where - format t b = return . output fm =<< flip (++) period <$> getTerm (b && p) f t - period = if i then "." else [] + parser = parseText <|> parseMarkup -formatDate :: String -> [TermMap] -> [DatePart] -> [RefDate] -> [Output] -formatDate s tm dp date - | [d] <- date = concatMap (formatDatePart d) dp - | otherwise = [] - where - addZero n = if length n == 1 then '0' : n else n - formatDatePart (RefDate y m d o) (DatePart n f fm) - | "year" <- n, y /= 0 = return $ OYear (formatYear f $ show y) s fm - | "month" <- n, m /= 0 = output fm (formatMonth f $ show m) - | "day" <- n, d /= 0 = output fm (formatDay f $ show d) - | "other" <- n, o /= [] = output fm o - | otherwise = [] - formatYear f y - | "short" <- f = drop 2 y - | otherwise = y - formatMonth f m - | "short" <- f = getMonth $ flip (++) "." . fst - | "long" <- f = getMonth fst - | "numeric" <- f = m - | otherwise = addZero m - where - getMonth g = maybe m g $ lookup ("month-" ++ addZero m, read $ toRead f) tm - formatDay f d - | "numeric-leading-zeros" <- f = addZero d - | "ordinal" <- f = d ++ ordinal - | otherwise = d - where - ordinal = case last d of - '1' -> "st" - '2' -> "nd" - '3' -> "rd" - _ -> "th" + parseText = do + x <- many $ noneOf "<'\"`" + xs <- option [] parseMarkup + ys <- option [] parseQuotes + return (OStr x emptyFormatting : xs ++ ys) -output :: Formatting -> String -> [Output] -output fm s = if s /= "" then [OStr s fm] else [] + parseMarkup = do + m <- string "<" >> manyTill anyChar (try $ string ">") + res <- case lookup m rtfTags of + Just tf -> do r <- manyTill anyChar $ try $ string $ "" + return [Output (rtfParser emptyFormatting r) (snd tf)] + Nothing -> do r <- many $ noneOf "<" + return [OStr ("<" ++ m ++ ">" ++ r) emptyFormatting] + return [Output res emptyFormatting] -appendOutput :: Formatting -> [Output] -> [Output] -appendOutput fm xs = if xs /= [] then [Output xs fm] else [] + parseQuotes = choice [parseQ "'" "'" + ,parseQ "\"" "\"" + ,parseQ "``" "''" + ,parseQ "`" "'" + ] + parseQ a b = do + q <- string a >> manyTill anyChar (try $ string b) + return [Output (rtfParser emptyFormatting q) (emptyFormatting {quotes = True})] -outputList :: Formatting -> Delimiter -> [Output] -> [Output] -outputList fm d = appendOutput fm . addDelim d . cleanOutput +formatTitle :: Form -> Formatting -> State EvalState [Output] +formatTitle f fm + | Short <- f = getIt "short-title" "title" + | otherwise = getIt "title" "short-title" + where + getIt x fb = do + o <- gets (options . env) + r <- getVar [] (getFormattedValue o f fm) x + case r of + [] -> getVar [] (getFormattedValue o f fm) fb + _ -> return r -cleanOutput :: [Output] -> [Output] -cleanOutput = filter isNotEmpty +formatNumber :: NumericForm -> Formatting -> String -> State EvalState [Output] +formatNumber f fm s + | or (map isDigit s) = do tm <- gets (terms . env) + return . output fm . format tm . filter isDigit $ s + | otherwise = do return . output fm $ s where - isNotEmpty (OStr "" _) = False - isNotEmpty _ = True + format tm = case f of + Ordinal -> ordinal tm + LongOrdinal -> longOrdinal tm + Roman -> if readNum s < 6000 then roman else id + _ -> id -addDelim :: String -> [Output] -> [Output] -addDelim d = foldr (\x xs -> if length xs < 1 then x : xs else x : ODel d : xs) [] + roman = foldr (++) [] . reverse . map (uncurry (!!)) . zip romanList . + map (readNum . return) . take 4 . reverse + romanList = [[ "", "i", "ii", "iii", "iv", "v", "vi", "vii", "viii", "ix" ] + ,[ "", "x", "xx", "xxx", "xl", "l", "lx", "lxx", "lxxx", "xc" ] + ,[ "", "c", "cc", "ccc", "cd", "d", "dc", "dcc", "dccc", "cm" ] + ,[ "", "m", "mm", "mmm", "mmmm", "mmmmm"] + ] -consumeVariable :: String -> State EvalState () -consumeVariable s - = do b <- gets consume - when b $ modify $ \st -> st { ref = f (ref st) } - where f rm = case elemIndex (formatVariable s) (map fst rm) of - Just i -> take i rm ++ [(formatVariable s,Value Empty)] ++ drop (i + 1) rm - Nothing -> rm +formatRange :: Formatting -> String -> State EvalState [Output] +formatRange _ [] = return [] +formatRange fm p = do + ops <- gets (options . env) + let opt = getOptionVal "page-range-format" ops + splitRange = second (dropWhile (== '-')) . break (== '-') + pages = map splitRange . split (== ',') $ p + format a b = if b /= [] + then flip Output emptyFormatting [ OStr a emptyFormatting, OPan [EnDash] + , OStr b emptyFormatting] + else flip Output emptyFormatting [ OStr a emptyFormatting] + result = case opt of + "expanded" -> map (uncurry format . uncurry expandedRange) pages + "chicago" -> map (uncurry format . uncurry chicagoRange ) pages + "minimal" -> map (uncurry format . uncurry minimalRange ) pages + _ -> [OStr p emptyFormatting] + return [flip Output fm $ addDelim ", " result] -consuming :: State EvalState a -> State EvalState a -consuming f = setConsume >> f >>= \a -> unsetConsume >> return a - where setConsume = modify $ \s -> s {consume = True } - unsetConsume = modify $ \s -> s {consume = False} +expandedRange :: String -> String -> (String, String) +expandedRange sa [] = (sa,[]) +expandedRange sa sb = (p ++ reverse nA', reverse nB') + where + (nA,pA) = reverse >>> break isLetter >>> reverse *** reverse $ sa + (nB,pB) = reverse >>> break isLetter >>> reverse *** reverse $ sb + zipNum x y = zipWith (\a b -> if b == '+' then (a,a) else (a,b)) + (reverse x ++ take 10 (repeat '*')) + >>> unzip >>> filter (/= '*') *** filter (/= '*') $ + (reverse y ++ repeat '+') + checkNum a b = let a' = take (length b) a + in readNum a' > readNum b + (p,(nA',nB')) + = case () of + _ | pA /= [] + , checkNum nA nB -> (,) [] $ (reverse $ pA ++ nA, reverse $ pB ++ nB) + | pA /= pB + , last' pA == last' pB -> (,) pA $ second (flip (++) (last' pA)) $ zipNum nA nB + | pA == pB -> (,) pA $ second (flip (++) (last' pA)) $ zipNum nA nB + | pB == [] -> (,) pA $ second (flip (++) (last' pA)) $ zipNum nA nB + | otherwise -> (,) [] $ (reverse $ pA ++ nA, reverse $ pB ++ nB) -when' :: Monad m => m Bool -> m [a] -> m [a] -when' p f = whenElse p f (return []) +minimalRange :: String -> String -> (String, String) +minimalRange sa sb + = res + where + (a,b) = expandedRange sa sb + res = if length a == length b + then second (filter (/= '+')) $ unzip $ + zipWith (\x y -> if x == y then (x,'+') else (x,y)) a b + else (a,b) -whenElse :: Monad m => m Bool -> m a -> m a -> m a -whenElse b f g = b >>= \ bool -> if bool then f else g +chicagoRange :: String -> String -> (String, String) +chicagoRange sa sb + = case () of + _ | length sa < 3 -> expandedRange sa sb + | '0':'0':_ <- sa' -> expandedRange sa sb + | _ :'0':_ <- sa' -> minimalRange sa sb + | _ :a2:as <- sa' + , b1:b2:bs <- sb' + , comp as bs -> if a2 == b2 + then (sa, [b2,b1]) + else minimalRange sa sb -concatMapM :: (Monad m, Functor m, Eq b) => (a -> m [b]) -> [a] -> m [b] -concatMapM f l = concat . filter (/=[]) <$> mapM f l + | _:a2:a3:_:[] <- sa' + , _:b2:b3:_ <- sb' -> if a3 /= b3 && a2 /= b2 + then expandedRange sa sb + else minimalRange sa sb + | otherwise -> minimalRange sa sb + where + sa' = reverse sa + sb' = reverse sb + comp a b = let b' = takeWhile isDigit b + in take (length b') a == b' -formatVariable :: String -> String -formatVariable = foldr f [] - where f x xs = if x == '_' then '-' : xs else toLower x : xs +last' :: [a] -> [a] +last' = foldl (\_ x -> [x]) [] -head' :: [a] -> [a] -head' = foldr (\x _ -> [x]) [] +trim :: String -> String +trim = unwords . words -trace :: String -> State EvalState () -trace d = modify $ \s -> s { debug = d : debug s } +split :: (Char -> Bool) -> String -> [String] +split _ [] = [] +split f s = let (l, s') = break f s + in trim l : case s' of + [] -> [] + (_:s'') -> split f s'' diff --git a/src/Text/CSL/Eval/Common.hs b/src/Text/CSL/Eval/Common.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Eval/Common.hs @@ -0,0 +1,164 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Eval.Common +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CSL implementation +-- +----------------------------------------------------------------------------- + +module Text.CSL.Eval.Common where + +import Control.Arrow ( (&&&), (>>>) ) +import Control.Applicative ( (<$>) ) +import Control.Monad.State +import Data.Char ( toLower ) +import Data.List ( elemIndex ) +import Data.Maybe + +import Text.CSL.Reference +import Text.CSL.Style + +data EvalState + = EvalState + { ref :: ReferenceMap + , env :: Environment + , debug :: [String] + , mode :: EvalMode + , disamb :: Bool + , consume :: Bool + , consumed :: [String] + , edtrans :: Bool + , etal :: [[Output]] + , contNum :: [Agent] + , lastName :: [Output] + } deriving ( Show ) + +data Environment + = Env + { cite :: Cite + , terms :: [TermMap] + , macros :: [MacroMap] + , dates :: [Element] + , options :: [Option] + , names :: [Element] + } deriving ( Show ) + +data EvalMode + = EvalSorting Cite + | EvalCite Cite + | EvalBiblio String -- the reference position + deriving ( Show, Eq ) + +getCite :: EvalMode -> Cite +getCite (EvalCite c) = c +getCite _ = emptyCite + +isSorting :: EvalMode -> Bool +isSorting m = case m of EvalSorting _ -> True; _ -> False + +-- | If the first parameter is 'True' the plural form will be retrieved. +getTerm :: Bool -> Form -> String -> State EvalState String +getTerm b f s = maybe [] g . lookup (s,f') <$> gets (terms . env) -- FIXME: vedere i fallback + where g = if b then snd else fst + f' = case f of NotSet -> Long; _ -> f + +getStringVar :: String -> State EvalState String +getStringVar + = getVar [] getStringValue + +getDateVar :: String -> State EvalState [RefDate] +getDateVar + = getVar [] getDateValue + where + getDateValue val + | Just v <- fromValue val = v + | otherwise = [] + +getLocVar :: State EvalState (String,String) +getLocVar = gets (env >>> cite >>> citeLabel &&& citeLocator) + +getVar :: a -> (Value -> a) -> String -> State EvalState a +getVar a f s + = withRefMap $ maybe a f . lookup (formatVariable s) + +getAgents :: String -> State EvalState [Agent] +getAgents s + = do + mv <- withRefMap (lookup s) + case mv of + Just v -> case fromValue v of + Just x -> consumeVariable s >> return x + _ -> return [] + _ -> return [] + +getAgents' :: String -> State EvalState [Agent] +getAgents' s + = do + mv <- withRefMap (lookup s) + case mv of + Just v -> case fromValue v of + Just x -> return x + _ -> return [] + _ -> return [] + +getStringValue :: Value -> String +getStringValue val + | Just v <- fromValue val = v + | otherwise = [] + +getOptionVal :: String -> [Option] -> String +getOptionVal s = fromMaybe [] . lookup s + +isOptionSet :: String -> [Option] -> Bool +isOptionSet s = maybe False (not . null) . lookup s + +isVarSet :: String -> State EvalState Bool +isVarSet s = if s /= "locator" + then getVar False isValueSet s + else getLocVar >>= return . (/=) "" . snd + +withRefMap :: (ReferenceMap -> a) -> State EvalState a +withRefMap f = return . f =<< gets ref + +formatVariable :: String -> String +formatVariable = foldr f [] + where f x xs = if x == '_' then '-' : xs else toLower x : xs + +consumeVariable :: String -> State EvalState () +consumeVariable s + = do b <- gets consume + when b $ modify $ \st -> st { consumed = s : consumed st } + +consuming :: State EvalState a -> State EvalState a +consuming f = setConsume >> f >>= \a -> doConsume >> unsetConsume >> return a + where setConsume = modify $ \s -> s {consume = True, consumed = [] } + unsetConsume = modify $ \s -> s {consume = False } + doConsume = do sl <- gets consumed + modify $ \st -> st { ref = remove (ref st) sl } + remove rm sl + | (s:ss) <- sl = case elemIndex (formatVariable s) (map fst rm) of + Just i -> let nrm = take i rm ++ + [(formatVariable s,Value Empty)] ++ + drop (i + 1) rm + in remove nrm ss + Nothing -> remove rm ss + | otherwise = rm + +when' :: Monad m => m Bool -> m [a] -> m [a] +when' p f = whenElse p f (return []) + +whenElse :: Monad m => m Bool -> m a -> m a -> m a +whenElse b f g = b >>= \ bool -> if bool then f else g + +concatMapM :: (Monad m, Functor m, Eq b) => (a -> m [b]) -> [a] -> m [b] +concatMapM f l = concat . filter (/=[]) <$> mapM f l + +trace :: String -> State EvalState () +trace d = modify $ \s -> s { debug = d : debug s } diff --git a/src/Text/CSL/Eval/Date.hs b/src/Text/CSL/Eval/Date.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Eval/Date.hs @@ -0,0 +1,170 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Eval.Date +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CSL implementation +-- +----------------------------------------------------------------------------- + +module Text.CSL.Eval.Date where + +import Control.Applicative ( (<$>) ) +import Control.Monad.State + +import Text.CSL.Eval.Common +import Text.CSL.Eval.Output +import Text.CSL.Parser ( toRead ) +import Text.CSL.Reference +import Text.CSL.Style +import Text.Pandoc.Definition ( Inline (Str,EnDash) ) + +evalDate :: Element -> State EvalState [Output] +evalDate (Date s f fm dl dp dp') = do + tm <- gets $ terms . env + k <- getStringVar "ref-id" + em <- gets mode + let updateFM (Formatting aa ab ac ad ae af ag ah ai aj ak al am an) + (Formatting _ _ bc bd be bf bg bh _ bj bk _ _ _) = + Formatting aa ab (updateS ac bc) + (updateS ad bd) + (updateS ae be) + (updateS af bf) + (updateS ag bg) + (updateS ah bh) + ai + (updateS aj bj) + (if bk /= ak then bk else ak) + al am an + updateS a b = if b /= a && b /= [] then b else a + case f of + NoFormDate -> return . outputList fm dl . concatMap (formatDate em k tm dp) =<< mapM getDateVar s + _ -> do Date _ _ lfm ldl ldp _ <- getDate f + let go dps = return . outputList (updateFM fm lfm) (if ldl /= [] then ldl else dl) . + concatMap (formatDate em k tm dps) + update l x@(DatePart a b c d) = + case filter ((==) a . dpName) l of + (DatePart _ b' c' d':_) -> DatePart a (updateS b b') + (updateS c c') + (updateFM d d') + _ -> x + updateDP = map (update dp) ldp + date = mapM getDateVar s + case dp' of + "year-month" -> go (filter ((/=) "day" . dpName) updateDP) =<< date + "year" -> go (filter ((==) "year" . dpName) updateDP) =<< date + _ -> go updateDP =<< date + +evalDate _ = return [] + +getDate :: DateForm -> State EvalState Element +getDate f = do + x <- filter (\(Date _ df _ _ _ _) -> df == f) <$> gets (dates . env) + case x of + [x'] -> return x' + _ -> return $ Date [] NoFormDate emptyFormatting [] [] [] + +formatDate :: EvalMode -> String -> [TermMap] -> [DatePart] -> [RefDate] -> [Output] +formatDate em k tm dp date + | [d] <- date = concatMap (formatDatePart False d) dp + | (a:b:_) <- date = concat $ (start a b ++ end a b ++ coda b) + | otherwise = [] + where + start a b = map (formatDatePart False a) . init . diff a b $ dp + end a b = map (formatDatePart True a) . return . last . diff a b $ dp + coda b = map (formatDatePart False b) dp + diff a b = filter (flip elem (diffDate a b) . dpName) + diffDate (RefDate ya ma _ da _ _) + (RefDate yb mb _ db _ _) = case () of + _ | ya /= yb -> ["year","month","day"] + | ma /= mb -> ["month","day"] + | da /= db -> ["day"] + | otherwise -> ["year","month","day"] + + term f t = let f' = if f `elem` ["verb", "short", "verb-short", "symbol"] + then read $ toRead f + else Long + in maybe [] fst $ lookup (t, f') tm + + addZero n = if length n == 1 then '0' : n else n + addZeros = reverse . take 5 . flip (++) (repeat '0') . reverse + formatDatePart False (RefDate y m e d _ _) (DatePart n f _ fm) + | "year" <- n, y /= [] = return $ OYear (formatYear f y) k fm + | "month" <- n, m /= [] = output fm (formatMonth f m) + | "day" <- n, d /= [] = output fm (formatDay f d) + | "month" <- n, m == [] + , e /= [] = output fm $ term f ("season-0" ++ e) + + formatDatePart True (RefDate y m e d _ _) (DatePart n f rd fm) + | "year" <- n, y /= [] = OYear (formatYear f y) k (fm {suffix = []}) : formatDelim + | "month" <- n, m /= [] = output (fm {suffix = []}) (formatMonth f m) ++ formatDelim + | "day" <- n, d /= [] = output (fm {suffix = []}) (formatDay f d) ++ formatDelim + | "month" <- n, m == [] + , e /= [] = output (fm {suffix = []}) $ term f ("season-0" ++ e) + where + formatDelim = if rd == "-" then [OPan [EnDash]] else [OPan [Str rd]] + + formatDatePart _ (RefDate _ _ _ _ o _) (DatePart n _ _ fm) + | "year" <- n, o /= [] = output fm o + | otherwise = [] + + formatYear f y + | "short" <- f = drop 2 y + | isSorting em + , iy < 0 = '-' : addZeros (tail y) + | isSorting em = addZeros y + | iy < 0 = show (abs iy) ++ term [] "bc" + | length y < 4 + , iy /= 0 = y ++ term [] "ad" + | iy == 0 = [] + | otherwise = y + where + iy = readNum y + formatMonth f m + | "short" <- f = getMonth fst + | "long" <- f = getMonth fst + | "numeric" <- f = m + | otherwise = addZero m + where + getMonth g = maybe m g $ lookup ("month-" ++ addZero m, read $ toRead f) tm + formatDay f d + | "numeric-leading-zeros" <- f = addZero d + | "ordinal" <- f = ordinal tm d + | otherwise = d + +ordinal :: [TermMap] -> String -> String +ordinal _ [] = [] +ordinal tm s + = case last s of + '1' -> s ++ term "1" + '2' -> s ++ term "2" + '3' -> s ++ term "3" + _ -> s ++ term "4" + where + term t = maybe [] fst $ lookup ("ordinal-0" ++ t, Long) tm + +longOrdinal :: [TermMap] -> String -> String +longOrdinal _ [] = [] +longOrdinal tm s + | num > 10 || + num == 0 = ordinal tm s + | otherwise = case last s of + '1' -> term "01" + '2' -> term "02" + '3' -> term "03" + '4' -> term "04" + '5' -> term "05" + '6' -> term "06" + '7' -> term "07" + '8' -> term "08" + '9' -> term "09" + _ -> term "10" + where + num = readNum s + term t = maybe [] fst $ lookup ("long-ordinal-" ++ t, Long) tm diff --git a/src/Text/CSL/Eval/Names.hs b/src/Text/CSL/Eval/Names.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Eval/Names.hs @@ -0,0 +1,325 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Eval.Names +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CSL implementation +-- +----------------------------------------------------------------------------- + +module Text.CSL.Eval.Names where + +import Control.Applicative ( (<$>) ) +import Control.Monad.State +import Data.Char ( toUpper, isLower, isSpace ) +import Data.List ( nub ) + +import Text.CSL.Eval.Common +import Text.CSL.Eval.Output +import Text.CSL.Output.Plain +import Text.CSL.Parser ( toRead ) +import Text.CSL.Reference +import Text.CSL.Style +import Text.Pandoc.Definition + +evalNames :: Bool -> [String] -> [Name] -> String -> State EvalState [Output] +evalNames skipEdTrans ns nl d + | [sa,sb] <- ns, not skipEdTrans + , sa == "editor" && sb == "translator" || + sb == "editor" && sa == "translator" = do + aa <- getAgents' sa + ab <- getAgents' sa + if aa == ab + then modify (\s -> s { edtrans = True }) >> + evalNames True [sa] nl d + else evalNames True ns nl d + | (s:xs) <- ns = do + resetEtal + ags <- getAgents s + k <- getStringVar "ref-id" + p <- gets (citePosition . cite . env) + ops <- gets (options . env) + r <- if s == "author" && ags /= [] && p == "subsequent" && + isOptionSet "subsequent-author-substitute" ops + then return $ output emptyFormatting $ + getOptionVal "subsequent-author-substitute" ops + else do res <- agents p s ags + st <- get + fb <- agents "subsequent" s ags + put st + if res /= [] + then return . return . OContrib k s res fb =<< gets etal + else return [] + r' <- evalNames skipEdTrans xs nl d + num <- gets contNum + return $ if r /= [] && r' /= [] + then count num (r ++ [ODel $ delim ops] ++ r') + else count num $ cleanOutput (r ++ r') + | otherwise = return [] + where + agents p s a = concatMapM (formatNames (hasEtAl nl) d p s a) nl + delim ops = if d == [] then getOptionVal "names-delimiter" ops else d + resetEtal = modify (\s -> s { etal = [] }) + count num x = if hasCount nl && num /= [] + then [OContrib [] [] [ONum (length num) emptyFormatting] [] []] + else x + hasCount = or . query hasCount' + hasCount' n + | Name Count _ _ _ _ <- n = [True] + | otherwise = [False] + +-- | The 'Bool' is 'True' when formatting a name with a final "et-al". +-- The first 'String' represents the position and the second the role +-- (e.i. editor, translator, etc.). +formatNames :: Bool -> Delimiter -> String -> String -> [Agent] -> Name -> State EvalState [Output] +formatNames ea del p s as n + | Name f _ ns _ _ <- n, Count <- f = do + b <- isBib <$> gets mode + o <- gets (options . env) >>= return . mergeOptions ns + modify $ \st -> st { contNum = nub $ (++) (take (snd $ isEtAl b o p as) as) $ contNum st } + return [] + + | Name f fm ns d np <- n = do + b <- isBib <$> gets mode + o <- gets (options . env) >>= return . mergeOptions ns + m <- gets mode + let odel = if del /= [] then del else getOptionVal "name-delimiter" o + del' = if d /= [] then d else if odel == [] then ", " else odel + (_,i) = isEtAl b o p as + form = case f of + NotSet -> case getOptionVal "name-form" o of + [] -> Long + x -> read $ toRead x + _ -> f + genName x = do etal' <- formatEtAl o ea "et-al" fm del' x + if etal' == [] + then do t <- getTerm False Long "and" + return $ delim t o del' $ format m o form fm np x + else do return $ (addDelim del' $ format m o form fm np x) ++ etal' + setLastName o $ formatName m False f fm o np (last as) + updateEtal =<< mapM genName [1 + i .. length as] + genName i + + | NameLabel f fm pl <- n = when' (isVarSet s) $ do + b <- gets edtrans + res <- formatLabel f fm (isPlural pl $ length as) $ if b then "editortranslator" else s + modify $ \st -> st { edtrans = False } + updateEtal [res] + return res + + | EtAl fm t <- n = do + et <- gets etal + o <- gets (options . env) + let i = length as - length et + t' = if null t then "et-al" else t + r <- mapM (et_al o False t' fm del) [i .. length as] + let (r',r'') = case r of + (x:xs) -> ( x,xs ++ []) + _ -> ([], []) + updateEtal r'' + return r' + + | otherwise = return [] + where + isBib (EvalBiblio _) = True + isBib _ = False + updateEtal x = modify $ \st -> + let x' = if length x == 1 then repeat $ head x else x + in st { etal = if etal st /= [] + then map (uncurry (++)) . zip (etal st) $ x' + else x + } + isWithLastName os + | "true" <- getOptionVal "et-al-use-last" os + , em <- readNum $ getOptionVal "et-al-min" os + , uf <- readNum $ getOptionVal "et-al-use-first" os + , em - uf > 1 = True + | otherwise = False + setLastName os x + | as /= [] + , isWithLastName os = modify $ \st -> st { lastName = x} + | otherwise = return () + + format m os f fm np i + | (a:xs) <- take i as = formatName m True f fm os np a ++ + concatMap (formatName m False f fm os np) xs + | otherwise = concatMap (formatName m True f fm os np) . take i $ as + delim t os d x + | "always" <- getOptionVal "delimiter-precedes-last" os + , length x == 2 = addDelim d (init x) ++ ODel (d <> andStr t os) : [last x] + | length x == 2 = addDelim d (init x) ++ ODel (andStr' t d os) : [last x] + | "never" <- getOptionVal "delimiter-precedes-last" os + , length x > 2 = addDelim d (init x) ++ ODel (andStr' t d os) : [last x] + | length x > 2 = addDelim d (init x) ++ ODel (d <> andStr t os) : [last x] + | otherwise = addDelim d x + andStr t os + | "text" <- getOptionVal "and" os = " " ++ t ++ " " + | "symbol" <- getOptionVal "and" os = " & " + | otherwise = [] + andStr' t d os = if andStr t os == [] then d else andStr t os + + formatEtAl o b t fm d i = do + ln <- gets lastName + if isWithLastName o + then case () of + _ | (length as - i) == 1 -> et_al o b t fm d i -- is that correct? FIXME later + | (length as - i) > 1 -> return $ [ODel d, OPan [Ellipses], OSpace] ++ ln + | otherwise -> return [] + else et_al o b t fm d i + et_al o b t fm d i + = when' (gets mode >>= return . not . isSorting) $ + if b || length as <= i + then return [] + else case getOptionVal "delimiter-precedes-et-al" o of + "never" -> return . (++) [OSpace] . output fm =<< getTerm False Long t + "always" -> return . (++) [ODel d] . output fm =<< getTerm False Long t + _ -> if i > 1 + then return . (++) [ODel d] . output fm =<< getTerm False Long t + else return . (++) [OSpace] . output fm =<< getTerm False Long t + +-- | The first 'Bool' is 'True' if we are evaluating the bibliography. +-- The 'String' is the cite position. The function also returns the +-- number of contributors to be displayed. +isEtAl :: Bool -> [Option] -> String -> [Agent] -> (Bool, Int) +isEtAl b os p as + | p /= "first" + , isOptionSet "et-al-subsequent-min" os + , isOptionSet "et-al-subsequent-use-first" os + , le <- etAlMin "et-al-subsequent-min" + , le' <- etAlMin "et-al-subsequent-use-first" + , length as >= le + , length as > le' = (,) True le' + | isOptionSet' "et-al-min" "et-al-subsequent-min" + , isOptionSet' "et-al-use-first" "et-al-subsequent-use-first" + , le <- etAlMin' "et-al-min" "et-al-subsequent-min" + , le' <- etAlMin' "et-al-use-first" "et-al-subsequent-use-first" + , length as >= le + , length as > le' = (,) True le' + | isOptionSet' "et-al-min" "et-al-subsequent-min" + , le <- etAlMin' "et-al-min" "et-al-subsequent-min" + , length as >= le + , length as > 1 = (,) True le + | otherwise = (,) False $ length as + where + etAlMin x = read $ getOptionVal x os + etAlMin' x y = if b then etAlMin x else read $ getOptionVal' x y + + isOptionSet' s1 s2 = if b + then isOptionSet s1 os + else or $ (isOptionSet s1 os) : [(isOptionSet s2 os)] + getOptionVal' s1 s2 = if null (getOptionVal s1 os) + then getOptionVal s2 os + else getOptionVal s1 os + +isPlural :: Plural -> Int -> Bool +isPlural p l + = case p of + Always -> True + Never -> False + Contextual -> l > 1 + +-- | Generate the 'Agent's names applying et-al options, with all +-- possible permutations to disambiguate colliding citations. The +-- 'Bool' indicate whether we are formatting the first name or not. +formatName :: EvalMode -> Bool -> Form -> Formatting -> [Option] -> [NamePart] -> Agent -> [Output] +formatName m b f fm ops np n + | Short <- f = return $ OName (show n) shortName disambdata fm + | otherwise = return $ OName (show n) (longName given) disambdata fm + where + form s = case filter (\(NamePart n' _) -> n' == s) np of + NamePart _ fm':_ -> fm' { prefix = [] + , suffix = [] } + _ -> emptyFormatting + + hasHyphen = not . null . filter (== '-') + hyphen = if getOptionVal "initialize-with-hyphen" ops == "false" + then getOptionVal "initialize-with" ops + else filter (not . isSpace) $ getOptionVal "initialize-with" ops ++ "-" + initial x = if getOptionVal "initialize-with" ops /= [] && (not . and . map isLower $ x) + then addIn x $ getOptionVal "initialize-with" ops + else " " ++ x + addIn x i = if hasHyphen x + then head ( takeWhile (/= '-') x) : hyphen ++ + head (tail $ dropWhile (/= '-') x) : i + else head x : i + + sortSepar = if getOptionVal "sort-separator" ops == [] + then [OStr "," (form "family"),OSpace] + else [OStr (getOptionVal "sort-separator" ops) (form "family")] + dropping = if droppingPart n /= [] then [OStr ( droppingPart n) (form "family")] else [] + nonDrop = if nonDroppingPart n /= [] then [OStr (nonDroppingPart n) (form "family")] else [] + + suff = if commaSuffix n && nameSuffix n /= [] + then suffCom + else suffNoCom + when_ c o = if c /= [] then o else [] + suffCom = when_ (nameSuffix n) [OStr (", " ++ nameSuffix n) fm] + suffNoCom = when_ (nameSuffix n) [OSpace,OStr (nameSuffix n) fm] + given = when_ (givenName n) [OStr (unwords' . map initial $ givenName n) (form "given")] + givenLong = when_ (givenName n) [OStr (unwords' $ givenName n) (form "given")] + givenInit = when_ (givenName n) [OStr (unwords' . map initial $ givenName n) (form "given")] + family = when_ (familyName n) [OStr (familyName n) (form "family")] + + shortName = nonDrop <++> family + longName g = if isSorting m + then case getOptionVal "demote-non-dropping-particle" ops of + "never" -> nonDrop <++> family <++> dropping <++> g ++ suffCom + _ -> family <++> dropping <++> nonDrop <++> g ++ suffCom + else if (b && getOptionVal "name-as-sort-order" ops == "first") || + getOptionVal "name-as-sort-order" ops == "all" + then case getOptionVal "demote-non-dropping-particle" ops of + "never" -> nonDrop <++> family ++ sortSepar ++ g <++> dropping ++ suffCom + "sort-only" -> nonDrop <++> family ++ sortSepar ++ g <++> dropping ++ suffCom + _ -> family ++ sortSepar ++ g <++> dropping <++> nonDrop ++ suffCom + else g <++> dropping <++> nonDrop <++> family ++ suff + + disWithGiven = getOptionVal "disambiguate-add-givenname" ops == "true" + initialize = not . null . getOptionVal "initialize-with" $ ops + isLong = f /= Short && initialize + givenRule = getOptionVal "givenname-disambiguation-rule" ops + disambdata = case () of + _ | "all-names-with-initials" <- givenRule + , disWithGiven, Short <- f, initialize -> [longName givenInit] + | "primary-name-with-initials" <- givenRule + , disWithGiven, Short <- f, initialize, b -> [longName givenInit] + | disWithGiven, Short <- f, b + , "primary-name" <- givenRule -> [longName givenInit, longName givenLong] + | disWithGiven, Short <- f + , "all-names" <- givenRule -> [longName givenInit, longName givenLong] + | disWithGiven, Short <- f + , "by-cite" <- givenRule -> [longName givenInit, longName givenLong] + | disWithGiven, isLong -> [longName givenLong] + | otherwise -> [] + +unwords' :: [String] -> String +unwords' = unwords . words . foldr concatWord [] + where + concatWord w ws = if w /= [] && last w == '.' + then w ++ ws + else w ++ ' ':ws + +formatLabel :: Form -> Formatting -> Bool -> String -> State EvalState [Output] +formatLabel f fm p s + | "locator" <- s = when' (gets (citeLocator . cite . env) >>= return . (/=) []) $ do + (l,v) <- getLocVar + format l ('-' `elem` v) + | "page" <- s = when' (isVarSet s) $ do + v <- getStringVar s + format s ('-' `elem` v) + | "ibid" <- s = format' s p + | otherwise = format s p + where + format = form id + format' t b = gets (citePosition . cite . env) >>= \po -> + if po == "ibid-with-locator-c" || po == "ibid-c" + then form capital t b + else form id t b + form g t b = return . output fm =<< g . period <$> getTerm (b && p) f t + period = if stripPeriods fm then filter (/= '.') else id + capital x = toUpper (head x) : (tail x) diff --git a/src/Text/CSL/Eval/Output.hs b/src/Text/CSL/Eval/Output.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Eval/Output.hs @@ -0,0 +1,61 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Eval.Output +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CSL implementation +-- +----------------------------------------------------------------------------- + +module Text.CSL.Eval.Output where + +import Text.CSL.Style + +output :: Formatting -> String -> [Output] +output fm s + | ' ':xs <- s = OSpace : output fm xs + | [] <- s = [] + | otherwise = [OStr s fm] + +appendOutput :: Formatting -> [Output] -> [Output] +appendOutput fm xs = if xs /= [] then [Output xs fm] else [] + +outputList :: Formatting -> Delimiter -> [Output] -> [Output] +outputList fm d = appendOutput fm . addDelim d + +cleanOutput :: [Output] -> [Output] +cleanOutput = flatten + where + flatten [] = [] + flatten (o:os) + | ONull <- o = flatten os + | Output [] _ <- o = flatten os + | OStr [] _ <- o = flatten os + | Output xs f <- o + , f == emptyFormatting = flatten xs ++ flatten os + | otherwise = o : flatten os + +addDelim :: String -> [Output] -> [Output] +addDelim d = foldr (\x xs -> if length xs < 1 then x : xs else check x xs) [] + where + check x xs + | ONull <- x = xs + | otherwise = x : ODel d : xs + +noOutputError :: Output +noOutputError = OStr "[CSL STYLE ERROR: reference with no printed form.]" emptyFormatting + +noBibDataError :: Cite -> Output +noBibDataError c = OStr ("[CSL BIBLIOGRAPHIC DATA ERROR: reference " ++ show (citeId c) ++ " not found.]") + emptyFormatting + +(<++>) :: [Output] -> [Output] -> [Output] +[] <++> o = o +o <++> [] = o +o1 <++> o2 = o1 ++ [OSpace] ++ o2 diff --git a/src/Text/CSL/Input/Bibutils.hs b/src/Text/CSL/Input/Bibutils.hs --- a/src/Text/CSL/Input/Bibutils.hs +++ b/src/Text/CSL/Input/Bibutils.hs @@ -16,75 +16,70 @@ ) where import Text.CSL.Reference +import Text.CSL.Input.Json import Text.CSL.Input.MODS +import System.FilePath ( takeExtension, () ) #ifdef USE_BIBUTILS import Data.Char import System.Directory ( getTemporaryDirectory, removeFile ) -import System.FilePath ( takeExtension, () ) import System.IO import Text.Bibutils #endif --- | Read a file with a bibliographic database of the format specified --- by the 'String'. If the 'String' is empty the file extension will --- be used to identify the format. +-- | Read a file with a bibliographic database. The database format +-- is recognized by the file extension. -- --- Supported formats are: @\"mods\"@, @\"bibtex\"@, @\"biblatex\"@, --- @\"ris\"@, @\"endnote\"@, @\"endnotexml\"@, @\"isi\"@, --- @\"medline\"@, and @\"copac\"@. -readBiblioFile :: FilePath -> String -> IO [Reference] +-- Supported formats are: @json@, @mods@, @bibtex@, @biblatex@, @ris@, +-- @endnote@, @endnotexml@, @isi@, @medline@, and @copac@. +readBiblioFile :: FilePath -> IO [Reference] #ifdef USE_BIBUTILS -readBiblioFile f m - | [] <- m = let mode = case takeExtension (map toLower f) of - ".mods" -> mods_in - ".bib" -> bibtex_in - ".bbx" -> biblatex_in - ".ris" -> ris_in - ".enl" -> endnote_in - ".xml" -> endnotexml_in - ".wos" -> isi_in - ".medline" -> medline_in - ".copac" -> copac_in - _ -> error "Bibliography format not supported." - in readBiblioFile' f mode - | otherwise = let mode = case m of - "mods" -> mods_in - "bibtex" -> bibtex_in - "biblatex" -> biblatex_in - "ris" -> ris_in - "endnote" -> endnote_in - "endnotexml" -> endnotexml_in - "isi" -> isi_in - "medline" -> medline_in - "copac" -> copac_in - _ -> error "Bibliography format not supported." - in readBiblioFile' f mode +readBiblioFile f + = case getExt f of + ".mods" -> readBiblioFile' f mods_in + ".bib" -> readBiblioFile' f bibtex_in + ".bbx" -> readBiblioFile' f biblatex_in + ".ris" -> readBiblioFile' f ris_in + ".enl" -> readBiblioFile' f endnote_in + ".xml" -> readBiblioFile' f endnotexml_in + ".wos" -> readBiblioFile' f isi_in + ".medline" -> readBiblioFile' f medline_in + ".copac" -> readBiblioFile' f copac_in + ".json" -> readJsonInput f + _ -> error $ "citeproc: the format of the bibliographic database could not be recognized\n" ++ + "using the file extension." #else -readBiblioFile f m - | "mods" <- m = readModsColletionFile f - | otherwise = error $ "Bibliography format not supported.\n" ++ - "citeproc-hs was not compiled with bibutils support" +readBiblioFile f + | ".mods" <- getExt f = readModsCollectionFile f + | ".json" <- getExt f = readJsonInput f + | otherwise = error $ "citeproc: Bibliography format not supported.\n" ++ + "citeproc-hs was not compiled with bibutils support." #endif +getExt :: String -> String +getExt = takeExtension . map toLower + #ifdef USE_BIBUTILS readBiblioFile' :: FilePath -> BiblioIn -> IO [Reference] readBiblioFile' fin bin - | bin == mods_in = readModsColletionFile fin + | bin == mods_in = readModsCollectionFile fin | otherwise = do tdir <- getTemporaryDirectory (f,h) <- openTempFile tdir "citeproc.txt" hClose h let tfile = tdir f - param <- bibl_initparams bin mods_out "citeproc-hs" + param <- bibl_initparams bin mods_out "hs-bibutils" bibl <- bibl_init - unsetBOM param - bibl_read param bibl fin - bibl_write param bibl tfile + unsetBOM param + setNoSplitTitle param + setCharsetIn param bibl_charset_unicode + setCharsetOut param bibl_charset_unicode + _ <- bibl_read param bibl fin + _ <- bibl_write param bibl tfile bibl_free bibl bibl_freeparams param - refs <- readModsColletionFile tfile + refs <- readModsCollectionFile tfile removeFile tfile return refs #endif diff --git a/src/Text/CSL/Input/Json.hs b/src/Text/CSL/Input/Json.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Input/Json.hs @@ -0,0 +1,467 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Input.Json +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- A module for reading Frank's citeproc-js testsuite. +-- +----------------------------------------------------------------------------- + +module Text.CSL.Input.Json + ( toTest + , runTS + , test, test',test_ + , runTest + , Test (..) + , mapJSArray + , readJsonInput + ) where + +import Control.Arrow +import Control.Monad.State +import Data.Generics +import Data.Char (toLower, toUpper) +import Foreign +import Data.IORef +import Data.List +import Data.Maybe (isJust) +import Data.Ratio +import Data.Time +import System.Directory +import System.Locale + +import Text.ParserCombinators.Parsec + +import Text.JSON.Generic +import Text.JSON.String ( runGetJSON, readJSTopType ) + +import Paths_citeproc_hs ( getDataFileName ) +import Text.CSL.Output.Pandoc +import Text.CSL.Output.Plain +import Text.CSL.Reference +import Text.CSL.Pickle ( readXmlString + , readXmlFile ) +import Text.CSL.Parser ( xpStyle, xpLocale, langBase) +import Text.CSL.Proc +import Text.CSL.Style +import Text.Pandoc.Definition + +data Test + = Test + { testMode :: String + , testInput :: [Reference] + , testCSL :: Style + , testResult :: String + , testBibSect :: BibOpts + , testCitItems :: Maybe Citations + , testCitations :: Maybe Citations + } deriving ( Show ) + +toTest :: JSValue -> Test +toTest ob = Test mode input style result bibsection cites cites' + where + getObj f = case procJSObject f ob of + JSObject o -> fromJSObject o + _ -> error "error #217" + object = getObj id + objectI = getObj editJsonInput + objectC = getObj editJsonCiteItems + + look s = case lookup s object of + Just (JSString x) -> fromJSString x + _ -> error $ "in test " ++ s ++ " section." + style = readXmlString xpStyle $ look "csl" + mode = look "mode" + result = look "result" + + bibsection = case lookup "bibsection" objectI of + Just (JSObject o) -> getBibOpts $ fromJSObject o + _ -> Select [] [] + + cites = case lookup "citation_items" objectC of + Just (JSArray cs) -> Just $ map readCite cs + _ -> Nothing + cites' = case lookup "citations" objectC of + Just (JSArray cs) -> Just $ map readJsonCitations cs + _ -> Nothing + readCite c = case readJSData c of + Ok cite -> cite + Error er -> error ("citationItems: " ++ er) + + refs r = case readJSData r of + Ok ref -> ref + Error er -> error ("readJSData: " ++ er) + + input = case lookup "input" objectI of + Just (JSArray ar) -> map refs ar + _ -> error $ "in test input section." + getFieldValue o + | JSObject os <- o + , [("field",JSString f),("value",JSString v)] <- fromJSObject os + = (fromJSString f, fromJSString v) + | otherwise = error "bibsection: could not parse fields and values" + getBibOpts o = let getSec s = case lookup s o of + Just (JSArray ar) -> map getFieldValue ar + _ -> [] + select = getSec "select" + include = getSec "include" + exclude = getSec "exclude" + quash = getSec "quash" + in case () of + _ | select /= [] -> Select select quash + | include /= [] -> Include include quash + | exclude /= [] -> Exclude exclude quash + | quash /= [] -> Select [] quash + | otherwise -> Select [] [] + +editJsonCiteItems :: (String, JSValue) -> (String, JSValue) +editJsonCiteItems (s,j) + | "id" <- s = ("citeId" , toString j) + | "label" <- s = ("citeLabel" , toString j) + | "locator" <- s = ("citeLocator" , toString j) + | "note-number" <- s = ("citeNoteNumber", toString j) + | "near-note" <- s = ("nearNote" , toJSBool j) + | "prefix" <- s = ("citePrefix" , affixes j) + | "suffix" <- s = ("citeSuffix" , affixes j) + | "suppress-author" <- s = ("suppressAuthor", toJSBool j) + | "author-only" <- s = ("authorInText" , toJSBool j) + | "author-in-text" <- s = ("authorInText" , toJSBool j) + | otherwise = (s,j) + where + affixes v + | JSString js <- v = JSString . toJSString . show . PlainText . fromJSString $ js + | otherwise = affixes $ toString v + +editJsonInput :: (String, JSValue) -> (String, JSValue) +editJsonInput (s,j) + | "dropping-particle" <- s = ("droppingPart" , j) + | "non-dropping-particle" <- s = ("nonDroppingPart", j) + | "comma-suffix" <- s = ("commaSuffix", toJSBool j) + | "id" <- s = ("refId" , toString j) + | isRefDate s + , JSObject js <- j = (s , JSArray (editDate $ fromJSObject js)) + | "family" <- s = ("familyName" , j) + | "suffix" <- s = ("nameSuffix" , j) + | "edition" <- s = ("edition" , toString j) + | "volume" <- s = ("volume" , toString j) + | "issue" <- s = ("issue" , toString j) + | "number" <- s = ("number" , toString j) + | "page" <- s = ("page" , toString j) + | "section" <- s = ("section" , toString j) + | "given" <- s + , JSString js <- j = ("givenName" , JSArray . map (JSString . toJSString) . words $ fromJSString js) + | "type" <- s + , JSString js <- j = ("refType" , JSString . toJSString . format . camel $ fromJSString js) + | (c:cs) <- s = (toLower c : camel cs , j) + | otherwise = (s,j) + where + camel x + | '-':y:ys <- x = toUpper y : camel ys + | '_':y:ys <- x = toUpper y : camel ys + | y:ys <- x = y : camel ys + | otherwise = [] + + format (x:xs) = toUpper x : xs + format [] = [] + + zipDate x = zip (take (length x) ["year", "month", "day"]) . map toString $ x + + editDate x = let seas = case lookup "season" x of + Just o -> [("season",toString o)] + _ -> [] + raw = case lookup "raw" x of + Just o -> [("other",o)] + _ -> [] + lit = case lookup "literal" x of + Just o -> [("other",o)] + _ -> [] + cir = case lookup "circa" x of + Just o -> [("circa",toString o)] + _ -> [] + rest = flip (++) (seas ++ lit ++ raw ++ cir) + in case lookup "dateParts" x of + Just (JSArray (JSArray x':[])) -> [JSObject . toJSObject . rest $ zipDate x'] + Just (JSArray (JSArray x': + JSArray y':[])) -> [JSObject . toJSObject $ zipDate x' + ,JSObject . toJSObject $ zipDate y'] + _ -> [JSObject . toJSObject $ rest []] + +readJsonCitations :: JSValue -> [Cite] +readJsonCitations jv + | JSArray (JSObject o:_) <- jv + , Just (JSArray ar) <- lookup "citationItems" (fromJSObject o ) + , Just (JSObject o') <- lookup "properties" (fromJSObject o ) + , idx <- lookup "noteIndex" (fromJSObject o') + = map (readCite $ readCitNum $ fmap toString idx) ar + | otherwise = error ("error in reading CITATIONS:\n" ++ show jv) + where + readCitNum j + | Just (JSString js) <- j = fromJSString js + | otherwise = [] + readCite :: String -> JSValue -> Cite + readCite n c = case readJSData c of + Ok cite -> cite { citeNoteNumber = n } + Error er -> error ("citations: " ++ er) + +toString :: JSValue -> JSValue +toString x + | JSString js <- x = JSString js + | JSRational _ n <- x = JSString . toJSString . show $ numerator n + | otherwise = JSString . toJSString $ [] + +toJSBool :: JSValue -> JSValue +toJSBool x + | JSBool b <- x = JSBool b + | JSRational _ n <- x = JSBool (numerator n /= 0) + | JSString js <- x = JSBool (fromJSString js /= []) + | otherwise = JSBool False + +procJSObject :: ((String, JSValue) -> (String, JSValue)) -> JSValue -> JSValue +procJSObject f jv + | JSObject o <- jv = JSObject . toJSObject . map f . map (second $ procJSObject f) . fromJSObject $ o + | JSArray ar <- jv = JSArray . map (procJSObject f) $ ar + | otherwise = jv + +mapJSArray :: (JSValue -> JSValue) -> JSValue -> JSValue +mapJSArray f jv + | JSArray ar <- jv = JSArray $ map (mapJSArray f) ar + | otherwise = f jv + +isRefDate :: String -> Bool +isRefDate = flip elem [ "issued", "event-date", "accessed", "container", "original-date"] + +readJSData :: (Data a) => JSValue -> Result a +readJSData j = readType j + `ext1R` jList + `extR` (value :: Result String) + `extR` (value :: Result Affix ) + where + value :: (JSON a) => Result a + value = readJSON j + + jList :: (Data e) => Result [e] + jList = case j of + JSArray j' -> mapM readJSData j' + _ -> Error $ "fromJSON: Prelude.[] bad data: " ++ show j + +-- | Build a datatype from a JSON object. Uses selectFields which +-- allows to provied default values for fields not present in the JSON +-- object. Useble with non algebraic datatype with record fields. +readType :: (Data a) => JSValue -> Result a +readType (JSObject ob) = construct + where + construct = selectFields (fromJSObject ob) (constrFields con) >>= + evalStateT (fromConstrM f con) . zip (constrFields con) + + resType :: Result a -> a + resType _ = error "resType" + + typ = dataTypeOf $ resType construct + con = indexConstr typ 1 + + f :: (Data a) => StateT [(String,JSValue)] Result a + f = do js <- get + case js of + j':js' -> do put js' + lift $ readJSData (snd j') + [] -> lift $ Error ("construct: empty list") + +readType j = fromJSON j + +selectFields :: [(String, JSValue)] -> [String] -> Result [JSValue] +selectFields fjs = mapM sel + where sel f = maybe (fb f) Ok $ lookup f fjs + fb f = maybe (Error $ "selectFields: no field " ++ f) Ok $ lookup f defaultJson + +fromObj :: JSValue -> [(String, JSValue)] +fromObj (JSObject o) = fromJSObject o +fromObj _ = [] + +defaultJson :: [(String, JSValue)] +defaultJson = fromObj (toJSON emptyReference) ++ fromObj emptyRefDate ++ + fromObj emptyPerson ++ fromObj emptyCite' + where + emptyRefDate = toJSON $ RefDate [] [] [] [] [] [] + emptyPerson = toJSON $ Agent [] [] [] [] [] [] False + emptyCite' = toJSON $ emptyCite + +readJsonFile :: FilePath -> IO JSValue +readJsonFile f = readJsonString `fmap` readFile f + +readJsonString :: String -> JSValue +readJsonString = + let rmCom = unlines . filter (\x -> not (" *" `isPrefixOf` x || "/*" `isPrefixOf` x)) . lines + in either error id . runGetJSON readJSTopType . rmCom + +readJsonInput :: FilePath -> IO [Reference] +readJsonInput f = do + js <- readJsonFile f + let jrefs = procJSObject editJsonInput js + refs r = case readJSData r of + Ok ref -> ref + Error er -> error ("readJSData: " ++ er) + case jrefs of + JSObject o -> return . map (refs . snd) $ fromJSObject o + JSArray ar -> return . map (refs ) $ ar + _ -> error $ "citeproc: error in reading the Json bibliographic data." + +readTestFile :: FilePath -> IO JSValue +readTestFile f = do + s <- readFile f + let fields = ["CSL","RESULT","MODE","INPUT","CITATION-ITEMS","CITATIONS","BIBSECTION","BIBENTRIES"] + format = map (toLower . \x -> if x == '-' then '_' else x) + return . toJson . zip (map format fields) . map (fieldsParser s) $ fields + +toJson :: [(String,String)] -> JSValue +toJson = JSObject . toJSObject . map getIt + where + getIt (s,j) + | s `elem` ["result","csl","mode"] = (,) s . JSString $ toJSString j + | s `elem` ["bibentries"] = (,) s . JSBool $ False + | j == [] = (,) s . JSBool $ False + | otherwise = (,) s . either error id . resultToEither $ decode j + +fieldsParser :: String -> String -> String +fieldsParser s f = either (const []) id $ parse (fieldParser f) "" s + +fieldParser :: String -> Parser String +fieldParser s = manyTill anyChar (try $ fieldMarkS) >> + manyTill anyChar (try $ fieldMarkE) + where + fieldMarkS = string ">>" >> many (oneOf "= ") >> string s >> many (oneOf "= ") >> string ">>\n" + fieldMarkE = string "\n<<" >> many (oneOf "= ") >> string s >> many (oneOf "= ") >> string "<<\n" + +pandocBib :: [String] -> String +pandocBib [] = [] +pandocBib s + = "
\n" ++ + concatMap (\x -> " " ++ "
" ++ x ++ "
\n") s ++ + "
" + +pandocToHTML :: [Inline] -> String +pandocToHTML [] = [] +pandocToHTML (i:xs) + | Str s <- i = (entityToChar $ check s) ++ pandocToHTML xs + | Emph is <- i = "" ++ pandocToHTML is ++ "" ++ pandocToHTML xs + | SmallCaps is <- i = "" ++ pandocToHTML is ++ "" ++ pandocToHTML xs + | Strong is <- i = "" ++ pandocToHTML is ++ "" ++ pandocToHTML xs + | Superscript is <- i = "" ++ pandocToHTML is ++ "" ++ pandocToHTML xs + | Subscript is <- i = "" ++ pandocToHTML is ++ "" ++ pandocToHTML xs + | Quoted _ is <- i = "“" ++ pandocToHTML is ++ "”" ++ pandocToHTML xs + | Space <- i = " " ++ pandocToHTML xs + | EnDash <- i = "–" ++ pandocToHTML xs + | Ellipses <- i = "…" ++ pandocToHTML xs + | Link is x <- i = case snd x of + "nodecor" -> "" ++ + pandocToHTML is ++ "" ++ pandocToHTML xs + "baseline" -> "" ++ + pandocToHTML is ++ "" ++ pandocToHTML xs + _ -> pandocToHTML is ++ pandocToHTML xs + + | otherwise = [] + where + check ('&':[]) = "&" + check (y :ys) = y : check ys + check [] = [] + +unlines' :: [String] -> String +unlines' [] = [] +unlines' (x:[]) = x +unlines' (x:xs) = x ++ "\n" ++ unlines' xs + +localeCache :: IORef [(String, Locale)] +localeCache = unsafePerformIO $ newIORef [] + +getCachedLocale :: String -> IO [Locale] +getCachedLocale n = maybe [] return `fmap` lookup n `fmap` readIORef localeCache + +putCachedLocale :: String -> Locale -> IO () +putCachedLocale n t = modifyIORef localeCache $ \l -> (n, t) : l + +runTest :: Test -> IO (Bool,String) +runTest t = do + let locale = case styleDefaultLocale $ testCSL t of + x | length x == 2 -> maybe (error $ x ++ " doesn't seem a valid locale") + id (lookup x langBase) + | otherwise -> take 5 x + ls' <- getCachedLocale locale + ls <- case ls' of + [] -> do l <- getDataFileName ("locales/locales-" ++ locale ++ ".xml") + r <- readXmlFile xpLocale l + putCachedLocale locale r + return r + [x] -> return x + _ -> return $ Locale [] [] [] [] [] + let opts = procOpts { bibOpts = testBibSect t} + style' = testCSL t + style = style' {styleLocale = mergeLocales (styleDefaultLocale style') ls $ styleLocale style'} + cites = case (testCitations t, testCitItems t) of + (Just cs, _ ) -> cs + (_, Just cs) -> cs + _ -> [map (\r -> emptyCite { citeId = refId r }) $ testInput t] + (BD cits bib) = citeproc opts style (testInput t) cites + fixCits = if isJust (testCitations t) + then flip (zipWith $ \c n -> ">>[" ++ show n ++ "] " ++ c) ([0..] :: [Int]) + else id + output = case testMode t of + "citation" -> unlines' . fixCits . map (pandocToHTML . renderPandoc_ style) $ cits + _ -> pandocBib . map (pandocToHTML . renderPandoc_ style) $ bib + return (output == testResult t, output) + +test :: FilePath -> IO Bool +test = doTest readJsonFile 0 + +test' :: Int -> FilePath -> IO Bool +test' = doTest readJsonFile + +test_ :: Int -> FilePath -> IO Bool +test_ = doTest readTestFile + +doTest :: (FilePath -> IO JSValue) -> Int -> FilePath -> IO Bool +doTest rf v f = do + when (v >= 2) $ putStrLn f + t <- toTest `fmap` rf f + (r,o) <- runTest t + if r then return () + else do let putStrLn' = when (v >= 1) . putStrLn + putStrLn $ (tail . takeWhile (/= '.') . dropWhile (/= '_')) f ++ " failed!" + putStrLn' "++++++++++++++++++++++++++++++++++++++++++++++++++++++++" + putStrLn' $ f ++ " failed!" + putStrLn' "Expected:" + putStrLn' $ (testResult t) + putStrLn' "\nGot:" + putStrLn' $ o + when (v >= 3) $ putStrLn (show t) + putStrLn' "++++++++++++++++++++++++++++++++++++++++++++++++++++++++" + return r + +runTS :: [String] -> Int -> FilePath -> IO () +runTS gs v f = do + st <- getCurrentTime + putStrLn $ (++) (formatTime defaultTimeLocale "%H:%M:%S" st) $ " <--------------START" + dc <- sort `fmap` filter (isInfixOf ".json") `fmap` getDirectoryContents f + let groupTests = map (head . map fst &&& map snd) . + groupBy (\x y -> fst x == fst y) . + map (takeWhile (/= '_') &&& tail . dropWhile (/= '_')) + runGroups g = do putStrLn "------------------------------------------------------------" + putStrLn $ "GROUP \"" ++ fst g ++ "\" has " ++ show (length $ snd g) ++ " tests to run" + putStrLn "------------------------------------------------------------" + r' <- mapM (test' v . (++) (f ++ fst g ++ "_")) $ snd g + return r' + filterGroup = if gs /= [] then filter (flip elem gs . fst) else id + r <- mapM runGroups $ filterGroup $ groupTests dc + putStrLn " ------------------------------------------------------------" + putStrLn "| TEST SUMMARY:" + putStrLn "------------------------------------------------------------" + putStrLn $ "\t" ++ (show $ sum $ map length r) ++ " tests in " ++ (show $ length r) ++ " groups" + putStrLn $ "\t" ++ (show $ sum $ map (length . filter id ) r) ++ " successes" + putStrLn $ "\t" ++ (show $ sum $ map (length . filter not) r) ++ " failures" + et <- getCurrentTime + putStrLn $ (++) (formatTime defaultTimeLocale "%H:%M:%S" et) $ " <--------------END" + putStrLn $ "Time: " ++ show (diffUTCTime et st) diff --git a/src/Text/CSL/Input/MODS.hs b/src/Text/CSL/Input/MODS.hs --- a/src/Text/CSL/Input/MODS.hs +++ b/src/Text/CSL/Input/MODS.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE PatternGuards #-} +{-# LANGUAGE PatternGuards, CPP #-} {-# OPTIONS_GHC -fno-warn-orphans #-} ----------------------------------------------------------------------------- -- | @@ -17,36 +17,40 @@ module Text.CSL.Input.MODS where import Text.CSL.Output.Plain ( (<+>) ) -import Text.CSL.Parser ( xpIElem, readXmlFile ) import Text.CSL.Reference +import Text.CSL.Pickle +import Text.CSL.Style ( betterThen ) -import Text.XML.HXT.Arrow.Pickle.Xml +import Data.Char ( isDigit, isLower ) -import Data.Char ( isDigit ) +#ifdef USE_HXT +import Text.XML.HXT.Arrow.Pickle.Xml +#endif -- | Read a file with a single MODS record. readModsFile :: FilePath -> IO Reference -readModsFile f = readXmlFile xpMods f +readModsFile = readXmlFile xpMods -- | Read a file with a collection of MODS records. -readModsColletionFile :: FilePath -> IO [Reference] -readModsColletionFile f = readXmlFile xpModsCollection f +readModsCollectionFile :: FilePath -> IO [Reference] +readModsCollectionFile = readXmlFile xpModsCollection xpModsCollection :: PU [Reference] -xpModsCollection = xpElem "modsCollection" $ xpList xpMods +xpModsCollection = xpIElem "modsCollection" $ xpList xpMods xpMods :: PU Reference -xpMods = xpElem "mods" xpReference +xpMods = xpIElem "mods" xpReference xpReference :: PU Reference xpReference = xpWrap ( \ ( ref , (ck,ty,ti) ,((au,ed,tr),(re,it,pu'),(co,ce)) + ,((di',pg,vl,is),(nu,sc,ch)) , (di,pu,pp) , (ac,uri) ) -> - ref { citeKey = ck `betterThen` take 10 (concat $ words ti) + ref { refId = ck `betterThen` take 10 (concat $ words ti) , refType = if refType ref /= NoType then refType ref else ty , title = ti , author = au @@ -54,32 +58,36 @@ , translator = tr `betterThen` translator ref , recipient = re `betterThen` recipient ref , interviewer = it `betterThen` interviewer ref - , publisher = pu `betterThen` publisher ref `betterThen` pu' , composer = co `betterThen` composer ref , collectionEditor = ce `betterThen` collectionEditor ref - , containerAuthor = containerAuthor ref - , issued = issued ref `betterThen` di , publisherPlace = pp `betterThen` publisherPlace ref + , containerAuthor = containerAuthor ref , url = uri , accessed = ac - , page = page ref - , volume = volume ref - , issue = issue ref - , number = number ref - , section = section ref - , chapterNumber = chapterNumber ref + , issued = issued ref `betterThen` di `betterThen` di' + , page = page ref `betterThen` pg + , volume = volume ref `betterThen` vl + , issue = issue ref `betterThen` is + , number = number ref `betterThen` nu + , section = section ref `betterThen` sc + , chapterNumber = chapterNumber ref `betterThen` ch + , publisher = (foldr (<+>) [] . map show $ pu) + `betterThen` publisher ref + `betterThen` (foldr (<+>) [] . map show $ pu') } , \r -> ( r - , (citeKey r, refType r, title r) + , (refId r, refType r, title r) ,((author r, editor r, translator r) - ,(recipient r, interviewer r, publisher r) + ,(recipient r, interviewer r, emptyAgents ) ,(composer r, collectionEditor r)) - , (issued r, publisher r, publisherPlace r) + ,((issued r, page r, volume r, issue r) + ,(number r, section r, chapterNumber r)) + , (issued r, emptyAgents, publisherPlace r) , (accessed r, url r) )) $ - xp5Tuple (xpDefault emptyReference xpRelatedItem) + xp6Tuple (xpDefault emptyReference xpRelatedItem) (xpTriple xpCiteKey xpRefType xpTitle ) - xpAgents xpOrigin xpUrl + xpAgents xpPart xpOrigin xpUrl xpCiteKey :: PU String xpCiteKey @@ -93,16 +101,17 @@ = xpDefault ([],[],[]) . xpIElem "originInfo" $ xpTriple (xpDefault [] $ xpWrap (readDate,show) $ xpIElem "dateIssued" xpText0) - (xpDefault [] $ xpList $ xpWrap (Entity, show) $ + (xpDefault [] $ xpList $ xpWrap (\s -> Agent [] [] [] s [] [] False, show) $ xpIElem "publisher" xpText0) - (xpDefault [] $ xpIElem "place" xpText0) + (xpDefault [] $ xpIElem "place" $ xpIElem "placeTerm" xpText0) xpRefType :: PU RefType xpRefType = xpDefault NoType $ - xpWrap (readType, show) xpGenre + xpWrap (readType, const []) xpGenre where - readType t + readType [] = NoType + readType (t:_) | "conference publication" <- t = PaperConference | "periodical" <- t = ArticleJournal | otherwise = Book @@ -110,21 +119,22 @@ xpRefType' :: PU RefType xpRefType' = xpDefault NoType $ - xpWrap (readTypeIn, show) xpGenre + xpWrap (readTypeIn, const []) xpGenre where + readTypeIn [] = NoType readTypeIn t - | "book" <- t = Chapter - | "conference publication" <- t = PaperConference - | otherwise = ArticleJournal + | "book" `elem` t = Chapter + | "conference publication" `elem` t = PaperConference + | "academic journal" `elem` t = ArticleJournal + | "collection" `elem` t = Chapter + | otherwise = ArticleJournal -xpGenre :: PU String +xpGenre :: PU [String] xpGenre - = xpWrap (concat, return) $ - xpList $ xpIElem "genre" $ + = xpList $ xpIElem "genre" $ xpChoice xpZero (xpPair (xpDefault [] $ xpAttr "authority" xpText) xpText) - $ \(a,s) -> if a == "marcgt" - then xpLift s else xpGenre + $ xpLift . snd xpRelatedItem :: PU Reference xpRelatedItem @@ -141,7 +151,7 @@ , translator = tr , recipient = re , interviewer = it - , publisher = pu `betterThen` pu' + , publisher = foldr (<+>) [] . map show $ pu `betterThen` pu' , publisherPlace = pp , composer = co , collectionEditor = ce @@ -155,19 +165,19 @@ } , \r -> ( (refType r, containerTitle r) ,((containerAuthor r, editor r, translator r) - ,(recipient r, interviewer r, publisher r) + ,(recipient r, interviewer r, emptyAgents ) ,(composer r, collectionEditor r)) ,((issued r, page r, volume r, issue r) ,(number r, section r, chapterNumber r)) - , (issued r, publisher r, publisherPlace r) + , (issued r, emptyAgents, publisherPlace r) )) $ xp4Tuple (xpPair xpRefType' xpTitle) xpAgents xpPart xpOrigin --- FIXME: join title and subtitle correctly +-- FIXME: join title and subtitle correctly: usare Title per shortTitle. xpTitle :: PU String xpTitle - = xpWrap (\(t,s) -> t <+> s, \s -> (s,[])) $ + = xpWrap (uncurry (<+>), \s -> (s,[])) $ xpIElem "titleInfo" $ xpPair (xpIElem "title" xpText0) (xpDefault [] $ xpIElem "subTitle" xpText0) @@ -193,18 +203,29 @@ (\x -> if x == sa || x == sb then xpickle else xpZero) instance XmlPickler Agent where - xpickle = xpAlt tag ps - where - tag (Person {}) = 0 - tag (Entity {}) = 1 - ps = [ xpWrap ( \(gn,fm) -> Person "" gn "" "" fm "" - , \(Person _ gn _ _ fn _) -> (gn,fn)) $ + xpickle = xpWrap ( uncurry parseName + , \(Agent gn _ _ fn _ _ _) -> (gn,fn)) $ xpAddFixedAttr "type" "personal" xpNameData - , xpWrap ( \(_,s) -> Entity s - , \(Entity s) -> ([],s)) $ - xpAddFixedAttr "type" "corporate" xpNameData - ] +-- | "von Hicks,! Jr., Michael" or "la Martine,! III, Martin B. de" or +-- "Rossato, Jr., Andrea G. B." or "Paul, III, Juan". +parseName :: [String] -> String -> Agent +parseName gn fn + | ("!":sf:",":xs) <- gn = parse xs (sf ++ ".") True + | ("!":sf :xs) <- gn + , sf /= [] , last sf == ',' = parse xs sf True + + | (sf:",":xs) <- gn = parse xs (sf ++ ".") False + | (sf :xs) <- gn + , sf /= [], last sf == ',' = parse xs sf False + | otherwise = parse gn "" False + where + parse g s b = Agent (getGiven g) (getDrop g) (getNonDrop fn) (getFamily fn) s [] b + getDrop = unwords . filter (and . map isLower) + getGiven = filter (not . and . map isLower) + getNonDrop = getDrop . words + getFamily = unwords . getGiven . words + xpNameData :: PU ([String],String) xpNameData = xpWrap (readName,const []) $ @@ -261,8 +282,8 @@ xpPage :: PU String xpPage - = xpChoice (xpElemWithAttrValue "detail" "type" "page" $ xpIElem "number" xpText) - (xpElemWithAttrValue "extent" "unit" "page" $ + = xpChoice (xpElemWithAttrValue "detail" "type" "page" $ xpIElem "number" xpText) + (xpElemWithAttrValue "extent" "unit" "page" $ xpPair (xpElem "start" xpText) (xpElem "end" xpText)) (\(s,e) -> xpLift (s ++ "-" ++ e)) @@ -275,9 +296,9 @@ (xpDefault [] $ xpElem "url" xpText) readDate :: String -> [RefDate] -readDate s = if takeWhile isDigit s /= [] - then return $ RefDate (read $ takeWhile isDigit s) 0 0 [] +readDate s = if takeWhile isDigit s /= [] + then return $ RefDate (takeWhile isDigit s) [] [] [] [] [] else [] -betterThen :: Eq a => [a] -> [a] -> [a] -betterThen a b = if a == [] then b else a +emptyAgents :: [Agent] +emptyAgents = [] diff --git a/src/Text/CSL/Output/Pandoc.hs b/src/Text/CSL/Output/Pandoc.hs --- a/src/Text/CSL/Output/Pandoc.hs +++ b/src/Text/CSL/Output/Pandoc.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE PatternGuards #-} +{-# LANGUAGE PatternGuards, DeriveDataTypeable #-} ----------------------------------------------------------------------------- -- | -- Module : Text.CSL.Output.Pandoc @@ -17,103 +17,176 @@ ( renderPandoc , renderPandocStrict , renderPandoc' - , Pandoc (..), Meta (..) + , renderPandoc_ + , headInline + , initInline + , tailFirstInlineStr + , toCapital + , startWithPunct + , endWithPunct ) where -import Data.Char ( toUpper, toLower ) -import Data.List +import Data.Char ( toUpper, toLower, isPunctuation ) import Text.CSL.Style import Text.CSL.Output.Plain +import Text.Pandoc.Definition -- | With a 'Style' and the formatted output generate a 'String' in -- the native 'Pandoc' formats (i.e. immediately readable by pandoc). -renderPandoc :: Style -> [FormattedOutput] -> String -renderPandoc _ - = show . clean . concatMap (render False) +renderPandoc :: Style -> [FormattedOutput] -> [Inline] +renderPandoc s + = proc (clean s) . concatMap (render s False) -- | Same as 'renderPandoc', but the output is wrapped in a pandoc -- paragraph block. -renderPandoc' :: Style -> [FormattedOutput] -> String -renderPandoc' _ - = show . Para . clean . concatMap (render False) +renderPandoc' :: Style -> [FormattedOutput] -> Block +renderPandoc' s + = Para . proc (clean s) . concatMap (render s False) +-- | For the testsuite: we use 'Link' and 'Strikeout' to store +-- "nocase" and "nodecor" rich text formatting classes. +renderPandoc_ :: Style -> [FormattedOutput] -> [Inline] +renderPandoc_ s + = proc (clean' s) . concatMap (render s False) + -- | Same as 'renderPandoc', but will not clean up the produced -- output. -renderPandocStrict :: [FormattedOutput] -> String -renderPandocStrict - = show . cleanStrict . concatMap (render True) +renderPandocStrict :: Style -> [FormattedOutput] -> [Inline] +renderPandocStrict s + = concatMap (render s True) -render :: Bool -> FormattedOutput -> [Inline] -render _ (Delimiter s) = toStr s -render b (FO str fm xs) = toStr (prefix fm) ++ - quote (formatted ++ rest) ++ - toStr (suffix fm) +render :: Style -> Bool -> FormattedOutput -> [Inline] +render _ _ (FPan i) = i +render _ _ (FDel s) = toStr s +render sty b fo + | FS str fm <- fo = toPandoc fm $ toStr str + | FN str fm <- fo = toPandoc fm $ toStr $ rmZeros str + | FO fm xs <- fo = toPandoc fm $ rest xs + | otherwise = [] where - formatted = font_variant . font . text_case . trim $ str - rest = procList xs $ concatMap (render b) - trim = if b then id else unwords . words - cleaner = if b then cleanStrict else clean + addSuffix f i + | suffix f /= [] + , elem (head $ suffix f) ",.:?!" + , [head $ suffix f] == lastInline i = i ++ toStr (tail $ suffix f) + | suffix f /= [] = i ++ toStr ( suffix f) + | otherwise = i - quote i = if i /= [] && quotes fm - then [Quoted DoubleQuote . valign . cleaner $ i] - else valign (cleaner i) + toPandoc f i = addSuffix f $ toStr (prefix f) ++ + (format f . quote f . proc cleanStrict $ i) + format f = font_variant f . font f . text_case f + rest xs = procList xs $ concatMap (render sty b) + quote f i = if i /= [] && quotes f + then [Quoted DoubleQuote . valign f $ i] + else valign f i - capital s = toUpper (head s) : (tail s) + setCase f i + | Str s <- i = Str $ f s + | otherwise = i + setCase' f i + | Link s r <- i = Link (map (setCase f) s) r + | otherwise = setCase f i - text_case s - | "capitalize-first" <- textCase fm = procList s capital - | "capitalize-all" <- textCase fm = procList s $ unwords . map capital . words - | "lowercase" <- textCase fm = map toLower s - | "uppercase" <- textCase fm = map toUpper s - | otherwise = s + toCap s = if s /= [] then toUpper (head s) : map toLower (tail s) else [] + text_case _ [] = [] + text_case fm a@(i:is) + | noCase fm = [escape "nocase" a] + | "lowercase" <- textCase fm = map (setCase' $ map toLower) a + | "uppercase" <- textCase fm = map (setCase' $ map toUpper) a + | "capitalize-all" <- textCase fm = map (setCase $ unwords . map toCap . words) a + | "capitalize-first" <- textCase fm = [setCase capitalize i] ++ is + | "sentence" <- textCase fm = [setCase toCap i] ++ + map (setCase $ map toLower) is + | otherwise = a - font_variant i + font_variant fm i | "small-caps" <- fontVariant fm = [SmallCaps i] | otherwise = i - font - | "italic" <- fontStyle fm = return . Emph . toStr - | "oblique" <- fontStyle fm = return . Emph . toStr - | "normal" <- fontStyle fm - , "bold" <- fontWeight fm = return . Strong . toStr - | otherwise = toStr + font fm + | noDecor fm = return . escape "nodecor" + | "italic" <- fontStyle fm = return . Emph + | "oblique" <- fontStyle fm = return . Emph + | "bold" <- fontWeight fm = return . Strong + | otherwise = id - valign i - | "sup" <- verticalAlign fm = [Superscript i] - | "sub" <- verticalAlign fm = [Subscript i] - | otherwise = i + valign _ [] = [] + valign fm i + | "sup" <- verticalAlign fm = [Superscript i] -- FIXME + | "sub" <- verticalAlign fm = [Subscript i] + | "baseline" <- verticalAlign fm = [escape "baseline" i] + | otherwise = i + rmZeros = dropWhile (== '0') + escape s x = Link x (s,s) -- we use a link to store some data + toStr :: String -> [Inline] -toStr s - | ' ':xs <- s = Space : toStr xs - | x :xs <- s = cleanStrict $ Str [x] : toStr xs - | otherwise = [] +toStr = toStr' . entityToChar + where + toStr' s + |' ':xs <- s = Space : toStr' xs + | x :xs <- s = Str [x] : toStr' xs + | otherwise = [] cleanStrict :: [Inline] -> [Inline] -cleanStrict [] = [] +cleanStrict [] = [] cleanStrict (i:is) - | Str [] <- i = cleanStrict is - | Str " " <- i = Space : cleanStrict is - | Str sa <- i, is /= [] - , Str sb <- head is = Str (sa ++ sb) : cleanStrict (tail is) - | otherwise = i : cleanStrict is + | Str [] <- i = cleanStrict is + | Str " " <- i = Space : cleanStrict is + | Str sa <- i + , Str sb:xs <- is = Str (sa ++ sb) : cleanStrict xs + | otherwise = i : cleanStrict is -clean :: [Inline] -> [Inline] -clean [] = [] -clean (i:is) = if lastInline [i] == headInline is && isPunct - then i : clean (tailInline is) - else i : clean is - where isPunct = and . map (flip elem ";,:. ") $ headInline is +clean :: Style -> [Inline] -> [Inline] +clean _ [] = [] +clean s (i:is) + | Superscript x <- i = split (isLink "baseline") (return . Superscript) x + | Subscript x <- i = split (isLink "baseline") (return . Subscript ) x + | Link x _ <- i = clean' s (x ++ clean s is) + | otherwise = clean' s (i : clean s is) + where + unwrap f ls + | Link x _ : _ <- ls = clean' s x + | _ : _ <- ls = f ls + | otherwise = [] + isLink l il + | Link _ (x,y) <- il = x == l && x == y + | otherwise = False + split _ _ [] = [] + split f g xs = let (y, r) = break f xs + in concatMap (unwrap g) [y, head' r] ++ split f g (tail' r) + +clean' :: Style -> [Inline] -> [Inline] +clean' _ [] = [] +clean' s (i:is) + | Quoted t inls <- i + , punctIn s = case headInline is of + [x] -> if isPunctuation x + then Quoted t (inls ++ [Str [x]]) : clean' s (tailInline is) + else i : clean' s is + _ -> i : clean' s is + | otherwise = if lastInline [i] == headInline is && isPunct + then i : clean' s (tailInline is) + else i : clean' s is + where + punctIn = or . query punctIn' + punctIn' n + | ("punctuation-in-quote","true") <- n = [True] + | otherwise = [False] + + isPunct = and . map (flip elem ".,;:!? ") $ headInline is + +endWithPunct, startWithPunct :: [Inline] -> Bool +endWithPunct = and . map (`elem` ".,;:!?") . lastInline +startWithPunct = and . map (`elem` ".,;:!?") . headInline + headInline :: [Inline] -> String headInline [] = [] headInline (i:_) | Str s <- i = head' s | Space <- i = " " | otherwise = headInline $ getInline i - where - head' s = if s /= [] then [head s] else [] lastInline :: [Inline] -> String lastInline [] = [] @@ -125,53 +198,58 @@ last' s = if s /= [] then [last s] else [] lastInline (_:xs) = lastInline xs -tailInline :: [Inline] -> [Inline] -tailInline [] = [] -tailInline (i:xs) - | Str s <- i = cleanStrict $ Str (tail' s) : xs - | Emph is <- i = cleanStrict $ Emph (tailInline is) : xs - | SmallCaps is <- i = cleanStrict $ SmallCaps (tailInline is) : xs - | Strong is <- i = cleanStrict $ Strong (tailInline is) : xs - | Superscript is <- i = cleanStrict $ Superscript (tailInline is) : xs - | Subscript is <- i = cleanStrict $ Subscript (tailInline is) : xs - | Quoted q is <- i = cleanStrict $ Quoted q (tailInline is) : xs - | Space <- i = cleanStrict $ xs +initInline :: [Inline] -> [Inline] +initInline [] = [] +initInline (i:[]) + | Str s <- i = return $ Str (init' s) + | Emph is <- i = return $ Emph (initInline is) + | Strong is <- i = return $ Strong (initInline is) + | Superscript is <- i = return $ Superscript (initInline is) + | Subscript is <- i = return $ Subscript (initInline is) + | Quoted q is <- i = return $ Quoted q (initInline is) + | SmallCaps is <- i = return $ SmallCaps (initInline is) + | Strikeout is <- i = return $ Strikeout (initInline is) + | Link is t <- i = return $ Link (initInline is) t | otherwise = [] where - tail' s = if s /= [] then tail s else [] + init' s = if s /= [] then init s else [] +initInline (i:xs) = i : initInline xs +tailInline :: [Inline] -> [Inline] +tailInline inls + | (i:t) <- inls + , Space <- i = t + | otherwise = tailFirstInlineStr inls + +tailFirstInlineStr :: [Inline] -> [Inline] +tailFirstInlineStr = mapHeadInline tail' + +toCapital :: [Inline] -> [Inline] +toCapital = mapHeadInline capitalize + +mapHeadInline :: (String -> String) -> [Inline] -> [Inline] +mapHeadInline _ [] = [] +mapHeadInline f (i:xs) + | Str [] <- i = mapHeadInline f xs + | Str s <- i = Str (f s) : xs + | Emph is <- i = Emph (mapHeadInline f is) : xs + | Strong is <- i = Strong (mapHeadInline f is) : xs + | Superscript is <- i = Superscript (mapHeadInline f is) : xs + | Subscript is <- i = Subscript (mapHeadInline f is) : xs + | Quoted q is <- i = Quoted q (mapHeadInline f is) : xs + | SmallCaps is <- i = SmallCaps (mapHeadInline f is) : xs + | Strikeout is <- i = Strikeout (mapHeadInline f is) : xs + | Link is t <- i = Link (mapHeadInline f is) t : xs + | otherwise = [] + getInline :: Inline -> [Inline] getInline i | Emph is <- i = is - | SmallCaps is <- i = is | Strong is <- i = is + | Strikeout is <- i = is | Superscript is <- i = is | Subscript is <- i = is | Quoted _ is <- i = is + | SmallCaps is <- i = is + | Link is _ <- i = is | otherwise = [] - -data Pandoc - = Pandoc Meta [Block] - deriving (Eq, Read, Show) - -data Meta - = Meta [Inline] [String] String - deriving (Eq, Show, Read) - -data Block - = Para [Inline] - deriving (Show, Eq, Read) - -data Inline - = Str String -- ^ Text (string) - | Emph [Inline] -- ^ Emphasized text (list of inlines) - | SmallCaps [Inline] -- ^ Small caps text (list of inlines) - | Strong [Inline] -- ^ Strongly emphasized text (list of inlines) - | Superscript [Inline] -- ^ Superscripted text (list of inlines) - | Subscript [Inline] -- ^ Subscripted text (list of inlines) - | Space -- ^ Inter-word space - | Quoted QuoteType [Inline] -- ^ Quoted text (list of inlines) - deriving (Show, Eq, Read) - --- | Type of quotation marks to use in Quoted inline. -data QuoteType = DoubleQuote deriving (Show, Eq, Read) diff --git a/src/Text/CSL/Output/Plain.hs b/src/Text/CSL/Output/Plain.hs --- a/src/Text/CSL/Output/Plain.hs +++ b/src/Text/CSL/Output/Plain.hs @@ -19,10 +19,14 @@ , procList , (<+>) , (<>) + , capitalize + , entityToChar + , head' + , tail' ) where +import Control.Arrow ( (&&&) ) import Data.Char -import Data.List import Text.CSL.Style @@ -36,20 +40,25 @@ renderPlainStrict = concatMap $ render True render :: Bool -> FormattedOutput -> String -render _ (Delimiter s) = s -render b (FO str fm xs) = prefix fm <++> format (trim str <++> rest) <++> suffix fm +render _ (FPan i) = show i +render _ (FDel s) = s +render b fo + | (FS str fm ) <- fo = prefix fm <++> format fm (trim str ) <++> suffix fm + | (FN str fm ) <- fo = prefix fm <++> format fm (trim str ) <++> suffix fm + | (FO fm xs) <- fo = prefix fm <++> format fm (trim $ rest xs) <++> suffix fm + | otherwise = [] where - rest = procList xs $ concatM (render b) + rest xs = procList xs $ concatM (render b) trim = if b then id else unwords . words (<++>) = if b then (++) else (<>) concatM f = foldr (<++>) [] . map f - quote s = if s /= [] && quotes fm then "\"" ++ s ++ "\"" else s - capital s = toUpper (head s) : (tail s) - format s = quote . text_case $ s + quote f s = if s /= [] && quotes f then "\"" ++ s ++ "\"" else s + capital s = toUpper (head s) : (tail s) + format f s = quote f . text_case f $ s - text_case s + text_case fm s | "capitalize-first" <- textCase fm = procList s capital | "capitalize-all" <- textCase fm = procList s $ unwords . map capital . words | "lowercase" <- textCase fm = map toLower s @@ -70,3 +79,21 @@ , last sa == s , s `elem` ";:,. " = sa ++ xs | otherwise = sa ++ sb + +capitalize :: String -> String +capitalize s = if s /= [] then toUpper (head s) : tail s else [] + +entityToChar :: String -> String +entityToChar s + | '&':'#':xs <- s = uncurry (:) $ parseEntity xs + | x :xs <- s = x : entityToChar xs + | otherwise = [] + where + parseEntity = chr . read . takeWhile isDigit &&& + entityToChar . tail' . dropWhile (/= ';') + +head' :: [a] -> [a] +head' = foldr (\x _ -> [x]) [] + +tail' :: Eq a => [a] -> [a] +tail' x = if x /= [] then tail x else [] diff --git a/src/Text/CSL/Parser.hs b/src/Text/CSL/Parser.hs --- a/src/Text/CSL/Parser.hs +++ b/src/Text/CSL/Parser.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE PatternGuards #-} +{-# LANGUAGE PatternGuards, CPP #-} {-# OPTIONS_GHC -fno-warn-orphans #-} ----------------------------------------------------------------------------- -- | @@ -17,20 +17,47 @@ module Text.CSL.Parser where import Paths_citeproc_hs ( getDataFileName ) +import Text.CSL.Reference ( readNum ) import Text.CSL.Style +import Text.CSL.Pickle -import Control.Monad ( unless ) import Data.Char ( isUpper, toUpper, toLower ) -import Data.List ( elemIndex ) -import Data.Maybe ( fromMaybe ) -import System.Directory ( doesFileExist ) -import Text.XML.HXT.Arrow hiding ( IfThen, when ) -import Text.XML.HXT.Arrow.Pickle.Schema hiding ( Name ) -import Text.XML.HXT.Arrow.Pickle.Xml -import qualified Text.XML.HXT.DOM.XmlNode as XN -import qualified Text.XML.HXT.RelaxNG as RNG +#ifdef USE_NETWORK +import Network.HTTP ( getResponseBody, mkRequest, RequestMethod(..) ) +import Network.Browser ( browse, setAllowRedirects, setUserAgent, request ) +import Network.URI ( parseURI, URI(..) ) +#endif +-- | Read and parse a CSL style file into the internal style +-- representation, the 'Style'. +readCSLFile :: FilePath -> IO Style +readCSLFile src = do +#ifdef USE_NETWORK + let readURI u = do rsp <- browse $ do + setAllowRedirects True + setUserAgent "citeproc-hs" + request $ mkRequest GET u + getResponseBody (Right $ snd rsp) + s <- case parseURI src of + Just u | uriScheme u `elem` ["http:","https:"] -> + readURI u >>= return . readXmlString xpStyle + _ -> readXmlFile xpStyle src +#else + s <- readXmlFile xpStyle src +#endif + l <- readLocaleFile (styleDefaultLocale s) + return s { styleLocale = mergeLocales (styleDefaultLocale s) l (styleLocale s)} + +readLocaleFile :: String -> IO Locale +readLocaleFile s = do + f <- case s of + x | length x == 2 -> getDataFileName ("locales/locales-" ++ + maybe (error $ x ++ " doesn't seem a valid locale") + id (lookup x langBase) ++ ".xml") + | otherwise -> getDataFileName ("locales/locales-" ++ take 5 x ++ ".xml") + readXmlFile xpLocale f + instance XmlPickler Layout where xpickle = xpWrap (uncurry3 Layout, \(Layout f d e) -> (f,d,e)) $ xpIElem "layout" $ @@ -42,7 +69,6 @@ tag (Choose {}) = 0 tag (Macro {}) = 1 tag (Const {}) = 2 - tag (PointLocator {}) = 3 tag (Variable {}) = 4 tag (Term {}) = 5 tag (Label {}) = 6 @@ -55,7 +81,6 @@ ps = [ xpChoose , xpMacro , xpConst - , xpPointLocator , xpVariable , xpTerm , xpLabel @@ -78,30 +103,31 @@ \ (Condition t v n d p a l) -> ((unwords t,unwords v,unwords n) ,(unwords d,unwords p,unwords a,unwords l))) $ - xpPair (xpTriple (xpAttrText' "type" ) - (xpAttrText' "variable" ) - (xpAttrText' "is-numeric" )) - (xp4Tuple (xpAttrText' "is-dates" ) - (xpAttrText' "position" ) - (xpAttrText' "disambiguate" ) - (xpAttrText' "locator" )) + xpPair (xpTriple (xpAttrText' "type" ) + (xpAttrText' "variable" ) + (xpAttrText' "is-numeric" )) + (xp4Tuple (xpAttrText' "is-uncertain-date") + (xpAttrText' "position" ) + (xpAttrText' "disambiguate" ) + (xpAttrText' "locator" )) instance XmlPickler Formatting where - xpickle = xpWrap ( \(((p,s,ff),(fs,fv,fw)),(td,va,tc,d,q)) - -> Formatting p s ff fs fv fw td va tc d q - , \(Formatting p s ff fs fv fw td va tc d q) - -> (((p,s,ff),(fs,fv,fw)),(td,va,tc,d,q))) $ - xpPair (xpPair (xpTriple (xpAttrText' "prefix" ) - (xpAttrText' "suffix" ) - (xpAttrText' "font-family" )) - (xpTriple (xpAttrText' "font-style" ) - (xpAttrText' "font-variant") - (xpAttrText' "font-weight" ))) - (xp5Tuple (xpAttrText' "text-decoration") - (xpAttrText' "vertical-align" ) - (xpAttrText' "text-case" ) - (xpAttrText' "display" ) - (xpAttrWithDefault False "quotes" xpickle)) + xpickle = xpWrap ( \(((p,s,ff),(fs,fv,fw)),(td,va,tc,d),(q,sp)) + -> Formatting p s ff fs fv fw td va tc d q sp False False + , \(Formatting p s ff fs fv fw td va tc d q sp _ _) + -> (((p,s,ff),(fs,fv,fw)),(td,va,tc,d),(q,sp))) $ + xpTriple (xpPair (xpTriple (xpAttrText' "prefix" ) + (xpAttrText' "suffix" ) + (xpAttrText' "font-family" )) + (xpTriple (xpAttrText' "font-style" ) + (xpAttrText' "font-variant") + (xpAttrText' "font-weight" ))) + (xp4Tuple (xpAttrText' "text-decoration") + (xpAttrText' "vertical-align" ) + (xpAttrText' "text-case" ) + (xpAttrText' "display" )) + (xpPair (xpAttrWithDefault False "quotes" xpickle) + (xpAttrWithDefault False "strip-periods" xpickle)) instance XmlPickler Sort where xpickle = xpAlt tag ps @@ -115,11 +141,14 @@ xpPair (xpAttrText "variable") (xpAttrWithDefault "ascending" "sort" xpText) - , xpWrap ( \(v,s) -> SortMacro v (readSort s) - , \(SortMacro v s) -> (v,toShow $ show s)) $ + , xpWrap ( \(v,s,a,b,c) -> SortMacro v (readSort s) (readNum a) (readNum b) c + , \(SortMacro v s a b c) -> (v,toShow $ show s,show a,show b, c)) $ xpElem "key" $ - xpPair (xpAttrText "macro") - (xpAttrWithDefault "ascending" "sort" xpText) + xp5Tuple (xpAttrText "macro") + (xpAttrWithDefault "ascending" "sort" xpText) + (xpAttrWithDefault "" "names-min" xpText) + (xpAttrWithDefault "" "names-use-first" xpText) + (xpAttrWithDefault "" "names-use-last" xpText) ] instance XmlPickler Bool where @@ -133,15 +162,20 @@ xpickle = xpWrap readable (xpAttrWithDefault "numeric" "form" xpText) +instance XmlPickler DateForm where + xpickle = xpWrap (read . toRead . flip (++) "-date", const []) + (xpAttrWithDefault "no-form" "form" xpText) + instance XmlPickler Match where xpickle = xpWrap readable (xpAttrWithDefault "all" "match" xpText) instance XmlPickler DatePart where - xpickle = xpWrap (uncurry3 DatePart, \(DatePart s f fm) -> (s,f,fm)) $ + xpickle = xpWrap (uncurry4 DatePart, \(DatePart s f d fm) -> (s,f,d,fm)) $ xpElem "date-part" $ - xpTriple (xpAttrText "name") - (xpAttrWithDefault "long" "form" xpText) + xp4Tuple (xpAttrText "name") + (xpAttrWithDefault "long" "form" xpText) + (xpAttrWithDefault "-" "range-delimiter" xpText) xpickle instance XmlPickler Name where @@ -149,20 +183,21 @@ where tag (Name {}) = 0 tag (NameLabel {}) = 1 - ps = [ xpWrap (uncurry4 Name, \(Name f fm nf d) -> (f,fm,nf,d)) $ - xpElem "name" $ xp4Tuple xpickle xpickle xpickle xpDelimiter - , xpWrap (uncurry4 NameLabel, \(NameLabel f fm i p) -> (f,fm,i,p)) $ - xpElem "label" $ xp4Tuple xpickle xpickle xpIncludePeriod xpPlural + tag (EtAl {}) = 2 + ps = [ xpWrap (uncurry5 Name, \(Name f fm nas d nps) -> (f,fm,nas,d,nps)) $ + xpElem "name" $ xp5Tuple xpNameForm xpickle xpNameAttrs xpDelimiter xpickle + , xpWrap (uncurry3 NameLabel, \(NameLabel f fm p) -> (f, fm,p)) $ + xpElem "label" $ xpTriple xpickle xpickle xpPlural + , xpWrap (uncurry EtAl, \(EtAl fm t) -> (fm,t)) $ + xpElem "et-al" $ xpPair xpickle $ xpAttrText' "term" ] + xpNameForm = xpWrap readable $ xpAttrWithDefault "not-set" "form" xpText -instance XmlPickler NameFormatting where - xpickle = xpWrap ( \(a,d,ns,s,i) -> NameFormatting a d ns s i - , \(NameFormatting a d ns s i) -> (a,d,ns,s,i)) $ - xp5Tuple (xpAttrText' "and" ) - (xpAttrText' "delimiter-precedes-last") - (xpAttrText' "name-as-sort-order" ) - (xpAttrText' "sort-separator" ) - (xpAttrText' "initialize-with" ) +instance XmlPickler NamePart where + xpickle = xpWrap (uncurry NamePart, \(NamePart s fm) -> (s,fm)) $ + xpElem "name-part" $ + xpPair (xpAttrText "name") + xpickle instance XmlPickler CSInfo where xpickle = xpWrap ( \ ((t,i,u),(a,c)) -> CSInfo t a c i u @@ -190,14 +225,15 @@ xpStyle :: PU Style xpStyle - = xpWrap ( \ ((sc,si,sl,l),(t,m,c,b)) -> Style sc si sl l t m c b - , \ (Style sc si sl l t m c b) -> ((sc,si,sl,l),(t,m,c,b))) $ + = xpWrap ( \ ((v,sc,si,sl,l),(o,m,c,b)) -> Style v sc si sl l o m c b + , \ (Style v sc si sl l o m c b) -> ((v,sc,si,sl,l),(o,m,c,b))) $ xpIElem "style" $ - xpPair (xp4Tuple (xpAttrText "class") + xpPair (xp5Tuple (xpAttrText "version") + (xpAttrText "class") xpInfo - (xpAttrWithDefault "en" "xml:lang" xpText) - (xpAttrWithDefault "en-US" "default-locale" xpText)) - (xp4Tuple (xpDefault [] xpTerms) + (xpAttrWithDefault "en-US" "default-locale" xpText) + (xpList xpLocale)) + (xp4Tuple xpStyleOpts xpMacros xpCitation (xpOption xpBibliography)) @@ -205,13 +241,25 @@ xpInfo :: PU (Maybe CSInfo) xpInfo = xpOption . xpIElem "info" $ xpickle +xpLocale :: PU Locale +xpLocale + = xpWrap ( \ ((v,l),(o,t,d)) -> Locale v l o t d + , \ (Locale v l o t d) -> ((v,l),(o,t,d))) $ + xpIElem "locale" $ + xpPair (xpPair (xpAttrText' "version" ) + (xpAttrText' "lang")) + (xpTriple (xpIElemWithDefault [] "style-options" $ xpOpt "punctuation-in-quote") + xpTerms + (xpList xpLocaleDate)) + xpTerms :: PU [TermMap] xpTerms - = xpIElem "terms" $ xpIElem "locale" $ xpList $ xpElem "term" $ + = xpWrap (concat,return) $ xpList $ + xpIElem "terms" $ xpList $ xpElem "term" $ xpPair (xpPair (xpAttrText "name") xpickle) - (xpChoice (xpWrap (\s -> (s,s), fst) xpText0) - (xpPair (xpIElem "single" $ xpText0) - (xpIElem "multiple" $ xpText0)) + (xpChoice (xpWrap (\s -> (s,s), fst) xpText0) + (xpPair (xpIElem "single" xpText0) + (xpIElem "multiple" xpText0)) xpLift) xpMacros :: PU [MacroMap] @@ -223,19 +271,114 @@ xpCitation = xpWrap (uncurry3 Citation, \(Citation o s l) -> (o,s,l)) $ xpIElem "citation" $ - xpTriple xpOptions xpSort xpickle + xpTriple xpCitOpts xpSort xpickle xpBibliography :: PU Bibliography xpBibliography = xpWrap (uncurry3 Bibliography, \(Bibliography o s l) -> (o,s,l)) $ xpIElem "bibliography" $ - xpTriple xpOptions xpSort xpickle + xpTriple xpBibOpts xpSort xpickle -xpOptions :: PU [Option] -xpOptions - = xpList $ xpIElem "option" $ - xpPair (xpAttrText "name") (xpAttrText "value") +xpOpt :: String -> PU [Option] +xpOpt n + = xpWrap (\a -> filter ((/=) [] . snd) $ [(n,a)], const []) $ + xpAttrText' n +xpNamesOpt :: PU [Option] +xpNamesOpt = xpOpt "names-delimiter" + +xpNameFormat :: PU [Option] +xpNameFormat + = xpWrap (\(a,b,c,d,e) -> + filter ((/=) [] . snd) $ [("and",a) + ,("delimiter-precedes-last",b) + ,("sort-separator",c) + ,("initialize-with",d) + ,("name-as-sort-order",e)], const ([],[],[],[],[])) $ + xp5Tuple (xpAttrText' "and") + (xpAttrText' "delimiter-precedes-last") + (xpAttrText' "sort-separator") + (xpAttrText' "initialize-with") + (xpAttrText' "name-as-sort-order") + + +xpNameAttrs :: PU NameAttrs +xpNameAttrs + = xpWrap (\((a,b,c,d,e),(f,g)) -> + filter ((/=) [] . snd) $ [("et-al-min",a) + ,("et-al-use-first",b) + ,("et-al-subsequent-min",c) + ,("et-al-subsequent-use-first",d) + ,("et-al-use-last",e) + ,("delimiter-precedes-et-al",f)] ++ g + , const (([],[],[],[],[]),([],[]))) $ + xpPair (xp5Tuple (xpAttrText' "et-al-min") + (xpAttrText' "et-al-use-first") + (xpAttrText' "et-al-subsequent-min") + (xpAttrText' "et-al-subsequent-use-first") + (xpAttrText' "et-al-use-last")) $ + xpPair (xpAttrText' "delimiter-precedes-et-al") + xpNameFormat + +xpNameOpt :: PU [Option] +xpNameOpt + = xpWrap (\(a,b,c) -> + filter ((/=) [] . snd) $ a ++ [("name-delimiter",b) + ,("name-form",c)], const ([],[],[])) $ + xpTriple xpNameAttrs + (xpAttrText' "name-delimiter") + (xpAttrText' "name-form") + +xpBibOpts :: PU [Option] +xpBibOpts + = xpWrap ( \((a,b,c,d,e),(f,g)) -> + filter ((/=) [] . snd) $ [("hanging-indent",a) + ,("second-field-align",b) + ,("subsequent-author-substitute",c) + ,("line-spacing",d) + ,("entry-spacing",e)] ++ f ++ g + , const (([],[],[],[],[]),([],[]))) $ + xpPair (xp5Tuple (xpAttrText' "hanging-indent") + (xpAttrText' "second-field-align") + (xpAttrText' "subsequent-author-substitute") + (xpAttrText' "line-spacing") + (xpAttrText' "entry-spacing")) $ + xpPair xpNameOpt xpNamesOpt + +xpCitOpts :: PU [Option] +xpCitOpts + = xpWrap ( \((a,b,c),(d,e,f,g,h),(i,l)) -> + filter ((/=) [] . snd) $ [("disambiguate-add-names",a) + ,("disambiguate-add-givenname",b) + ,("disambiguate-add-year-suffix",c) + ,("givenname-disambiguation-rule",d) + ,("collapse",e) + ,("year-suffix-delimiter",f) + ,("after-collapse-delimiter",g) + ,("near-note-distance",h)] ++ i ++ l + , const (([],[],[]),([],[],[],[],[]),([],[]))) $ + xpTriple (xpTriple (xpAttrText' "disambiguate-add-names") + (xpAttrText' "disambiguate-add-givenname") + (xpAttrText' "disambiguate-add-year-suffix")) + (xp5Tuple (xpAttrText' "givenname-disambiguation-rule") + (xpAttrText' "collapse") + (xpAttrText' "year-suffix-delimiter") + (xpAttrText' "after-collapse-delimiter") + (xpAttrText' "near-note-distance")) + (xpPair xpNameOpt xpNamesOpt) + +xpStyleOpts :: PU [Option] +xpStyleOpts + = xpWrap ( \((a,b,c),(d,e)) -> + filter ((/=) [] . snd) $ [("page-range-format",a) + ,("demote-non-dropping-particle",b) + ,("initialize-with-hyphen",c)] ++ d ++ e + , const (([],[],[]),([],[]))) $ + xpPair (xpTriple (xpAttrText' "page-range-format") + (xpAttrText' "demote-non-dropping-particle") + (xpAttrText' "initialize-with-hyphen")) $ + (xpPair xpNameOpt xpNamesOpt) + xpSort :: PU [Sort] xpSort = xpDefault [] $ xpElem "sort" $ xpList xpickle @@ -250,19 +393,14 @@ xpMacro :: PU Element xpMacro - = xpWrap (uncurry3 Macro, \(Macro s f fm) -> (s,f,fm)) $ - xpTextElem $ xpCommon "macro" + = xpWrap (uncurry Macro, \(Macro s fm) -> (s,fm)) $ + xpTextElem $ xpPair (xpAttrText "macro") xpickle xpConst :: PU Element xpConst = xpWrap (uncurry Const, \(Const s fm) -> (s,fm)) $ xpTextElem $ xpPair (xpAttrText "value") xpickle -xpPointLocator :: PU Element -xpPointLocator - = xpWrap (uncurry3 PointLocator, \(PointLocator s f fm) -> (s,f,fm)) $ - xpTextElem $ xpCommon "point-locator" - xpVariable :: PU Element xpVariable = xpWrap ( \((v,f,fm),d) -> Variable (words v) f fm d @@ -271,9 +409,10 @@ xpTerm :: PU Element xpTerm - = xpWrap ( \((t,f,fm),i,p) -> Term t f fm i p - , \(Term t f fm i p) -> ((t,f,fm),i,p)) $ - xpTextElem $ xpTriple (xpCommon "term") xpIncludePeriod xpPlural + = xpWrap ( \((t,f,fm),p) -> Term t f fm p + , \(Term t f fm p) -> ((t,f,fm),p)) $ + xpTextElem $ xpPair (xpCommon "term") $ + xpAttrWithDefault True "plural" xpickle xpNames :: PU Element xpNames @@ -282,7 +421,7 @@ xpElem "names" $ xpTriple names xpDelimiter xpickle where names = xpTriple (xpAttrText "variable") xpName xpickle xpName = xpChoice xpZero xpickle check - check l = if or $ map isName l then xpLift l else xpZero + check l = if any isName l then xpLift l else xpZero xpShortNames :: PU Element xpShortNames @@ -293,11 +432,11 @@ xpLabel :: PU Element xpLabel - = xpWrap ( \(t,f,fm,i,p) -> Label t f fm i p - , \(Label s f fm i p) -> (s,f,fm,i,p)) $ + = xpWrap ( uncurry4 Label + , \(Label s f fm p) -> (s,f,fm,p)) $ xpElem "label" $ - xp5Tuple (xpAttrText' "variable") - xpickle xpickle xpIncludePeriod xpPlural + xp4Tuple (xpAttrText' "variable") + xpickle xpickle xpPlural xpSubStitute :: PU Element xpSubStitute @@ -306,10 +445,9 @@ xpGroup :: PU Element xpGroup - = xpWrap ( \(fm,d,c,e) -> Group fm d c e - , \(Group fm d c e) -> (fm,d,c,e)) $ + = xpWrap (uncurry3 Group, \(Group fm d e) -> (fm,d,e)) $ xpElem "group" $ - xp4Tuple xpickle xpDelimiter (xpAttrText' "class") xpickle + xpTriple xpickle xpDelimiter xpickle xpNumber :: PU Element xpNumber @@ -318,21 +456,28 @@ xpDate :: PU Element xpDate - = xpWrap ( \((s,fm,dp),d) -> Date (words s) fm d dp - , \(Date s fm d dp) -> ((unwords s,fm,dp),d)) $ - xpElem "date" $ xpPair (xpCommon "variable") xpDelimiter + = xpWrap ( \((s,f,fm),(d,dp,dp')) -> Date (words s) f fm d dp dp' + , \(Date s f fm d dp dp') -> ((unwords s,f,fm),(d,dp,dp'))) $ + xpElem "date" $ + xpPair (xpCommon "variable") + (xpTriple xpDelimiter xpickle (xpAttrText' "date-parts")) +xpLocaleDate :: PU Element +xpLocaleDate + = xpWrap ( \((s,f,fm),(d,dp,dp')) -> Date (words s) f fm d dp dp' + , \(Date s f fm d dp dp') -> ((unwords s,f,fm),(d,dp,dp'))) $ + xpElem "date" $ + xpPair (xpTriple (xpLift []) xpickle xpickle) + (xpTriple xpDelimiter xpickle (xpLift [])) + xpTextElem :: PU a -> PU a xpTextElem = xpElem "text" xpDelimiter :: PU String xpDelimiter = xpAttrText' "delimiter" -xpPlural :: PU Bool -xpPlural = xpAttrWithDefault True "plural" xpickle - -xpIncludePeriod :: PU Bool -xpIncludePeriod = xpAttrWithDefault False "include-period" xpickle +xpPlural :: PU Plural +xpPlural = xpWrap readable $ xpAttrWithDefault "contextual" "plural" xpText xpCommon :: (XmlPickler b, XmlPickler c) => String -> PU (String,b,c) xpCommon s = xpTriple (xpAttrText s) xpickle xpickle @@ -351,31 +496,6 @@ xpIElemWithDefault :: Eq a => a -> String -> PU a -> PU a xpIElemWithDefault d n = xpDefault d . xpIElem n --- | A pickler for interleaved elements. -xpIElem :: String -> PU a -> PU a -xpIElem n pa - = PU { appPickle = ( \ (a, st) -> - let - st' = appPickle pa (a, emptySt) - in - addCont (XN.mkElement (mkName n) (attributes st') (contents st')) st - ) - , appUnPickle = \ st -> fromMaybe (Nothing, st) (unpickleElement st) - , theSchema = scElem n (theSchema pa) - } - where - unpickleElement st - = do - let t = contents st - ns <- mapM XN.getElemName t - case elemIndex n (map qualifiedName ns) of - Nothing -> fail "element name does not match" - Just i -> do - let cs = XN.getChildren (t !! i) - al <- XN.getAttrl (t !! i) - res <- fst . appUnPickle pa $ St {attributes = al, contents = cs} - return (Just res, st {contents = take i t ++ drop (i + 1) t}) - readable :: (Read a, Show b) => (String -> a, b -> String) readable = (read . toRead, toShow . show) @@ -395,29 +515,40 @@ | y:ys <- x = y : camel ys | otherwise = [] -readXmlFile :: PU a -> String -> IO a -readXmlFile xp f - = do - flip unless (error $ f ++ " file does not exist") =<< doesFileExist f - res <- runX ( readDocument [ (a_validate , v_0) - , (a_remove_whitespace, v_1) - , (a_trace , v_0) - , (a_preserve_comment , v_0) - ] f - >>> - RNG.normalizeForRelaxValidation - >>> - xunpickleVal xp - ) - case res of - [x] -> return x - _ -> error $ "error while reading file " ++ f - --- | Read and parse a CSL style file into the internal style --- representation, the 'Style'. -readCSLFile :: FilePath -> IO Style -readCSLFile f = do - s <- readXmlFile xpStyle f - l <- getDataFileName ("locales/locales-" ++ styleLocale s ++ ".xml") - t <- readXmlFile xpTerms l - return s {csTerms = csTerms s ++ t} +langBase :: [(String, String)] +langBase + = [("af", "af-ZA") + ,("ar", "ar-AR") + ,("bg", "bg-BG") + ,("ca", "ca-AD") + ,("cs", "cs-CZ") + ,("da", "da-DK") + ,("de", "de-DE") + ,("el", "el-GR") + ,("en", "en-US") + ,("es", "es-ES") + ,("et", "et-EE") + ,("fr", "fr-FR") + ,("he", "he-IL") + ,("hu", "hu-HU") + ,("is", "is-IS") + ,("it", "it-IT") + ,("ja", "ja-JP") + ,("ko", "ko-KR") + ,("mn", "mn-MN") + ,("nb", "nb-NO") + ,("nl", "nl-NL") + ,("pl", "pl-PL") + ,("pt", "pt-PT") + ,("ro", "ro-RO") + ,("ru", "ru-RU") + ,("sk", "sk-SK") + ,("sl", "sl-SI") + ,("sr", "sr-RS") + ,("sv", "sv-SE") + ,("th", "th-TH") + ,("tr", "tr-TR") + ,("uk", "uk-UA") + ,("vi", "vi-VN") + ,("zh", "zh-CN") + ] diff --git a/src/Text/CSL/Pickle.hs b/src/Text/CSL/Pickle.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Pickle.hs @@ -0,0 +1,408 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Pickle +-- Copyright : (c) Uwe Schmidt Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : portable +-- +-- This module is mostly copied from Text.XML.HXT.Arrow.Pickle.Xml +-- which is an adaptation of the pickler combinators developed by +-- Andrew Kennedy. +-- +-- See: +----------------------------------------------------------------------------- + +module Text.CSL.Pickle where + +import Control.Monad ( unless ) +import Data.List ( elemIndex ) +import Data.Maybe +import System.Directory ( doesFileExist ) + +import Text.XML.Light + +data St + = St { attributes :: [Attr] + , contents :: [Content] + } + +data PU a + = PU { appPickle :: (a, St) -> St + , appUnPickle :: St -> (Maybe a, St) + } + +pickleXML :: PU a -> a -> String +pickleXML p v = concatMap showContent $ contents st + where st = appPickle p (v, emptySt) + +unpickleXML :: PU a -> [Content] -> Maybe a +unpickleXML p t + = fst . appUnPickle p $ St { attributes = [] + , contents = t + } + +emptySt :: St +emptySt = St { attributes = [] + , contents = [] + } + +addAtt :: Attr -> St -> St +addAtt x s = s {attributes = x : attributes s} + +addCont :: Content -> St -> St +addCont x s = s {contents = x : contents s} + +dropCont :: St -> St +dropCont s = s { contents = drop 1 (contents s) } + +getAtt :: String -> St -> Maybe Attr +getAtt name + = listToMaybe . filter ((==) name . qName . attrKey) . attributes + +getCont :: St -> Maybe Content +getCont = listToMaybe . contents + +class XmlPickler a where + xpickle :: PU a + +instance XmlPickler Int where + xpickle = xpPrim + +instance XmlPickler Integer where + xpickle = xpPrim + +instance XmlPickler () where + xpickle = xpUnit + +instance XmlPickler a => XmlPickler [a] where + xpickle = xpList xpickle + +instance XmlPickler a => XmlPickler (Maybe a) where + xpickle = xpOption xpickle + +xpPrim :: (Read a, Show a) => PU a +xpPrim + = xpWrapMaybe (readMaybe, show) xpText + where + readMaybe :: Read a => String -> Maybe a + readMaybe str + = val (reads str) + where + val [(x,"")] = Just x + val _ = Nothing + +xpUnit :: PU () +xpUnit = xpLift () + +xpZero :: PU a +xpZero + = PU { appPickle = snd + , appUnPickle = \ s -> (Nothing, s) + } + +xpLift :: a -> PU a +xpLift x + = PU { appPickle = snd + , appUnPickle = \ s -> (Just x, s) + } + +xpCondSeq :: PU b -> (b -> a) -> PU a -> (a -> PU b) -> PU b +xpCondSeq pd f pa k + = PU { appPickle = ( \ (b, s) -> + let + a = f b + pb = k a + in + appPickle pa (a, (appPickle pb (b, s))) + ) + , appUnPickle = ( \ s -> + let + (a, s') = appUnPickle pa s + in + case a of + Nothing -> appUnPickle pd s + Just a' -> appUnPickle (k a') s' + ) + } + +xpSeq :: (b -> a) -> PU a -> (a -> PU b) -> PU b +xpSeq = xpCondSeq xpZero + +xpChoice :: PU b -> PU a -> (a -> PU b) -> PU b +xpChoice pb = xpCondSeq pb undefined + +xpWrap :: (a -> b, b -> a) -> PU a -> PU b +xpWrap (f, g) pa = xpSeq g pa (xpLift . f) + +xpDefault :: (Eq a) => a -> PU a -> PU a +xpDefault df + = xpWrap ( fromMaybe df + , \ x -> if x == df then Nothing else Just x + ) . + xpOption + +xpOption :: PU a -> PU (Maybe a) +xpOption pa + = PU { appPickle = ( \ (a, st) -> + case a of + Nothing -> st + Just x -> appPickle pa (x, st) + ) + , appUnPickle = appUnPickle $ + xpChoice (xpLift Nothing) pa (xpLift . Just) + } + + +xpAlt :: (a -> Int) -> [PU a] -> PU a +xpAlt tag ps + = PU { appPickle = ( \ (a, st) -> + let + pa = ps !! (tag a) + in + appPickle pa (a, st) + ) + , appUnPickle = appUnPickle $ + ( case ps of + [] -> xpZero + pa:ps1 -> xpChoice (xpAlt tag ps1) pa xpLift + ) + } + +xpList :: PU a -> PU [a] +xpList pa + = PU { appPickle = ( \ (a, st) -> + case a of + [] -> st + _:_ -> appPickle pc (a, st) + ) + , appUnPickle = appUnPickle $ + xpChoice (xpLift []) pa + (\ x -> xpSeq id (xpList pa) (\xs -> xpLift (x:xs))) + } + where + pc = xpSeq head pa (\ x -> + xpSeq tail (xpList pa) (\ xs -> + xpLift (x:xs))) + + +xpLiftMaybe :: Maybe a -> PU a +xpLiftMaybe = maybe xpZero xpLift + +xpWrapMaybe :: (a -> Maybe b, b -> a) -> PU a -> PU b +xpWrapMaybe (i, j) pa = xpSeq j pa (xpLiftMaybe . i) + +xpPair :: PU a -> PU b -> PU (a, b) +xpPair pa pb + = ( xpSeq fst pa (\ a -> + xpSeq snd pb (\ b -> + xpLift (a,b))) + ) + +xpTriple :: PU a -> PU b -> PU c -> PU (a, b, c) +xpTriple pa pb pc + = xpWrap (toTriple, fromTriple) (xpPair pa (xpPair pb pc)) + where + toTriple ~(a, ~(b, c)) = (a, b, c ) + fromTriple ~(a, b, c ) = (a, (b, c)) + +xp4Tuple :: PU a -> PU b -> PU c -> PU d -> PU (a, b, c, d) +xp4Tuple pa pb pc pd + = xpWrap (toQuad, fromQuad) (xpPair pa (xpPair pb (xpPair pc pd))) + where + toQuad ~(a, ~(b, ~(c, d))) = (a, b, c, d ) + fromQuad ~(a, b, c, d ) = (a, (b, (c, d))) + +xp5Tuple :: PU a -> PU b -> PU c -> PU d -> PU e -> PU (a, b, c, d, e) +xp5Tuple pa pb pc pd pe + = xpWrap (toQuint, fromQuint) (xpPair pa (xpPair pb (xpPair pc (xpPair pd pe)))) + where + toQuint ~(a, ~(b, ~(c, ~(d, e)))) = (a, b, c, d, e ) + fromQuint ~(a, b, c, d, e ) = (a, (b, (c, (d, e)))) + +xp6Tuple :: PU a -> PU b -> PU c -> PU d -> PU e -> PU f -> PU (a, b, c, d, e, f) +xp6Tuple pa pb pc pd pe pf + = xpWrap (toSix, fromSix) (xpPair pa (xpPair pb (xpPair pc (xpPair pd (xpPair pe pf))))) + where + toSix ~(a, ~(b, ~(c, ~(d, ~(e, f))))) = (a, b, c, d, e, f ) + fromSix ~(a, b, c, d, e, f ) = (a, (b, (c, (d, (e, f))))) + +-------------------------------------------------------------------------------- + +getText :: Content -> Maybe String +getText c + | Text cd <- c = Just (showCData cd) + | otherwise = Nothing + +getChildren :: Content -> [Content] +getChildren c + | Elem el <- c = elContent el + | otherwise = [] + +getElemName :: Content -> Maybe QName +getElemName c + | Elem el <- c = Just (elName el) + | otherwise = Nothing + +getAttrl :: Content -> [Attr] +getAttrl c + | Elem el <- c = elAttribs el + | otherwise = [] + +mkText :: String -> Content +mkText str = Text $ blank_cdata { cdData = str} + +mkName :: String -> QName +mkName n = blank_name {qName = n} + +qualifiedName :: QName -> String +qualifiedName qn = (fromMaybe [] $ qPrefix qn) ++ qName qn + +xpText :: PU String +xpText + = PU { appPickle = \ (s, st) -> addCont (mkText s) st + , appUnPickle = \ st -> fromMaybe (Nothing, st) (unpickleString st) + } + where + unpickleString st + = do + t <- getCont st + s <- getText t + return (Just s, dropCont st) + +xpText0 :: PU String +xpText0 + = xpWrap (fromMaybe "", emptyToNothing) $ xpOption $ xpText + where + emptyToNothing "" = Nothing + emptyToNothing x = Just x + +xpElem :: String -> PU a -> PU a +xpElem name pa + = PU { appPickle = ( \ (a, st) -> + let + st' = appPickle pa (a, emptySt) + in + addCont (Elem $ Element (mkName name) (attributes st') (contents st') Nothing) st + ) + , appUnPickle = \ st -> fromMaybe (Nothing, st) (unpickleElement st) + } + where + unpickleElement st + = do + e <- listToMaybe . map Elem . onlyElems . contents $ st + n <- getElemName e + if qualifiedName n /= name + then fail "element name does not match" + else do + al <- Just $ getAttrl e + res <- fst . appUnPickle pa $ St {attributes = al, contents = getChildren e} + return (Just res, st {contents = filter ((/=) (show e) . show) $ contents st}) + +-- | A pickler for interleaved elements. +xpIElem :: String -> PU a -> PU a +xpIElem name pa + = PU { appPickle = ( \ (a, st) -> + let + st' = appPickle pa (a, emptySt) + in + addCont (Elem $ Element (mkName name) (attributes st') (contents st') Nothing) st + ) + , appUnPickle = \ st -> fromMaybe (Nothing, st) (unpickleElement st) + } + where + unpickleElement st + = do + let t = map Elem . onlyElems . contents $ st + ns <- mapM getElemName t + case elemIndex name (map qualifiedName ns) of + Nothing -> fail "element name does not match" + Just i -> do + let cs = getChildren (t !! i) + al <- Just $ getAttrl (t !! i) + res <- fst . appUnPickle pa $ St {attributes = al, contents = cs} + return (Just res, st {contents = take i t ++ drop (i + 1) t}) + +xpAttr :: String -> PU a -> PU a +xpAttr name pa + = PU { appPickle = ( \ (a, st) -> + let + st' = appPickle pa (a, emptySt) + in + addAtt (Attr (mkName name) (getAtVal $ contents st')) st + ) + , appUnPickle = \ st -> fromMaybe (Nothing, st) (unpickleAttr st) + } + where + getAtVal at + | Text cd : _ <- at = cdData cd + | otherwise = [] + unpickleAttr st + = do + a <- getAtt name st + res <- fst . appUnPickle pa $ St { attributes = [] + , contents = [Text blank_cdata {cdData = attrVal a}]} + return (Just res, st) + +xpElemWithAttrValue :: String -> String -> String -> PU a -> PU a +xpElemWithAttrValue n a v = xpElem n . xpAddFixedAttr a v + +xpAttrFixed :: String -> String -> PU () +xpAttrFixed name val + = ( xpWrapMaybe ( \ v -> if v == val then Just () else Nothing + , const val + ) $ + xpAttr name xpText + ) + +xpAddFixedAttr :: String -> String -> PU a -> PU a +xpAddFixedAttr name val pa + = xpWrap ( snd + , (,) () + ) $ + xpPair (xpAttrFixed name val) pa + +uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d +uncurry3 f (a,b,c) = f a b c + +uncurry4 :: (a -> b -> c -> d -> e) -> (a, b, c, d) -> e +uncurry4 f (a,b,c,d) = f a b c d + +uncurry5 :: (a -> b -> c -> d -> e -> f) -> (a, b, c, d, e) -> f +uncurry5 f (a,b,c,d,e) = f a b c d e + +readXmlString :: Show a => PU a -> String -> a +readXmlString xp str = + case parseXML str of + [] -> error $ "error while reading the style" + x -> case unpickleXML xp x of + Just a -> a + _ -> case getStyleVersion x of + (_:_) -> error "error while parsing the style" + _ -> error styleErr08 + +readXmlFile :: Show a => PU a -> String -> IO a +readXmlFile xp f = do + flip unless (error $ f ++ " file does not exist") =<< doesFileExist f + readXmlString xp `fmap` readFile f + +getStyleVersion :: [Content] -> String +getStyleVersion c + = case filterElems c of + [x] -> case lookupAttr styleVersion (elAttribs x) of + Just s -> s + _ -> [] + _ -> error "malformed style: no cs:style element found" + where + filterElems = catMaybes . map (filterElementName isStyle) . onlyElems + styleVersion = mkName "version" + isStyle (QName qn _ _) = qn == "style" + +styleErr08 :: String +styleErr08 + = "the parsed style seems to be CSL-0.8 while citeproc-hs only supports CSL 1.0.\n" ++ + "Styles may be updated by using the csl-utils. For more information see:\n" ++ + "http://citationstyles.org/downloads/upgrade-notes.html#updating-csl-0-8-styles" diff --git a/src/Text/CSL/Proc.hs b/src/Text/CSL/Proc.hs --- a/src/Text/CSL/Proc.hs +++ b/src/Text/CSL/Proc.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE PatternGuards #-} +{-# LANGUAGE PatternGuards, DeriveDataTypeable #-} ----------------------------------------------------------------------------- -- | -- Module : Text.CSL.Proc @@ -16,98 +16,244 @@ module Text.CSL.Proc where -import Control.Arrow ( (&&&), (***) ) -import Data.Char ( chr ) -import Data.List ( elemIndex, findIndices - , sortBy, mapAccumL, nub ) -import Data.Maybe -import Data.Ord ( comparing ) +import Control.Arrow ( (&&&), (>>>), second ) +import Data.List +import Data.Ord ( comparing ) import Text.CSL.Eval +import Text.CSL.Output.Plain +import Text.CSL.Parser import Text.CSL.Proc.Collapse import Text.CSL.Proc.Disamb import Text.CSL.Reference import Text.CSL.Style +data ProcOpts + = ProcOpts + { bibOpts :: BibOpts + } + deriving ( Show, Read, Eq ) + +data BibOpts + = Select [(String, String)] [(String, String)] + | Include [(String, String)] [(String, String)] + | Exclude [(String, String)] [(String, String)] + deriving ( Show, Read, Eq ) + +procOpts :: ProcOpts +procOpts = ProcOpts (Select [] []) + -- | With a 'Style', a list of 'Reference's and the list of citation -- groups (the list of citations with their locator), produce the -- 'FormattedOutput' for each citation group. -processCitations :: Style -> [Reference] -> [[(String, String)]] -> [[FormattedOutput]] -processCitations s rs - = citations . citeproc s rs +processCitations :: ProcOpts -> Style -> [Reference] -> Citations -> [[FormattedOutput]] +processCitations ops s rs + = citations . citeproc ops s rs -- | With a 'Style' and the list of 'Reference's produce the -- 'FormattedOutput' for the bibliography. -processBibliography :: Style -> [Reference] -> [[FormattedOutput]] -processBibliography s rs - = bibliography $ citeproc s rs [zip (map citeKey rs) (repeat "")] +processBibliography :: ProcOpts -> Style -> [Reference] -> [[FormattedOutput]] +processBibliography ops s rs + = bibliography $ citeproc ops s rs [map (\r -> emptyCite { citeId = refId r}) rs] --- | With a 'Style', a list of 'Reference's and the list of citation --- groups (the list of citations with their locator), produce the --- 'FormattedOutput' for each citation group and the bibliography. -citeproc :: Style -> [Reference] -> [[(String, String)]] -> BiblioData -citeproc s rs cs - = BD citsOutput biblioOutput +-- | With a 'Style', a list of 'Reference's and the list of +-- 'Citations', produce the 'FormattedOutput' for each citation group +-- and the bibliography. +citeproc :: ProcOpts -> Style -> [Reference] -> Citations -> BiblioData +citeproc ops s rs cs + = BD citsOutput biblioOutput where -- the list of bib entries, as a list of Reference, with -- position, locator and year suffix set. - biblioRefs = refsYSuffix . procRefs s . map (getReference rs) . - nub . map (id *** const []) . concat $ cs + biblioRefs = procRefs s . map (getReference rs) . + nubBy (\a b -> citeId a == citeId b) . concat $ cs biblioOutput = if "disambiguate-add-year-suffix" `elem` getCitDisambOptions s - then map (map formatOutput) $ proc addYearSuffix $ procBiblio s biblioRefs - else map (map formatOutput) $ procBiblio s biblioRefs - outputGroups = map $ \(CG fm d os) -> map formatOutput $ outputList fm d os - citsOutput = outputGroups $ collapseCitGroups s $ disambCitations s biblioRefs cs + then map formatOutputList $ + map (proc (updateYearSuffixes yearS) . map addYearSuffix) $ + procBiblio (bibOpts ops) s biblioRefs + else map formatOutputList $ + procBiblio (bibOpts ops) s biblioRefs + citsAndRefs = processCites biblioRefs cs + (yearS,citG) = disambCitations s biblioRefs cs $ map (procGroup s) citsAndRefs + citsOutput = map (formatCitLayout s) . collapseCitGroups s $ citG +-- | Given the CSL 'Style' and the list of 'Reference's sort the list +-- according to the 'Style' and assign the citation number to each +-- 'Reference'. +procRefs :: Style -> [Reference] -> [Reference] +procRefs (Style {biblio = mb, csMacros = ms , styleLocale = l, csOptions = opts}) rs + = maybe rs process mb + where + opts' b = mergeOptions (bibOptions b) opts + citNum x = x { citationNumber = maybe 0 ((+) 1 . fromIntegral) . elemIndex x $ rs } + sort_ b = evalSorting (EvalSorting emptyCite {citePosition = "first"})l ms (opts' b) (bibSort b) + process b = sortItems . map (citNum &&& sort_ b) $ rs + +sortItems :: Show a => [(a,[Sorting])] -> [a] +sortItems [] = [] +sortItems l + = case head . concatMap (map snd) $ result of + [] -> concatMap (map fst) result + _ -> if or $ map ((<) 1 . length) result + then concatMap sortItems result + else concatMap (map fst) result + where + result = process l + process = sortBy (comparing $ head' . snd) >>> + groupBy (\a b -> head' (snd a) == head' (snd b)) >>> + map (map $ second tail') + -- | With a 'Style' and a sorted list of 'Reference's produce the -- evaluated output for the bibliography. -procBiblio :: Style -> [Reference] -> [[Output]] -procBiblio (Style {biblio = mb, csMacros = ms , csTerms = ts}) rs +procBiblio :: BibOpts -> Style -> [Reference] -> [[Output]] +procBiblio bos (Style {biblio = mb, csMacros = ms , styleLocale = l, csOptions = opts}) rs = maybe [] process mb where - format b = uncurry $ evalLayout (bibLayout b) False ts ms (bibOptions b) - render b = map (format b) $ chkAut [] rs - process b = flip map (render b) $ uncurry outputList (layFormat &&& layDelim $ bibLayout b) + render b = map (format b) . chkAut [] . filterRefs bos $ rs + process b = flip map (render b) $ uncurry formatBiblioLayout (layFormat &&& layDelim $ bibLayout b) + format b (p,r) = evalLayout (bibLayout b) (EvalBiblio p) False l ms (mergeOptions (bibOptions b) opts) r chkAut _ [] = [] chkAut a (x:xs) = if author x `elem` a then ("subsequent",x) : chkAut a xs else ("first" ,x) : chkAut (author x : a) xs --- | Given the CSL 'Style' and the list of 'Reference's sort the list --- according to the 'Style' and assign the citation number to each --- 'Reference'. -procRefs :: Style -> [Reference] -> [Reference] -procRefs (Style {biblio = mb, csMacros = ms , csTerms = ts}) rs - = maybe rs process mb +filterRefs :: BibOpts -> [Reference] -> [Reference] +filterRefs bos refs + | Select s q <- bos = filter (select s) . filter (quash q) $ refs + | Include i q <- bos = filter (include i) . filter (quash q) $ refs + | Exclude e q <- bos = filter (exclude e) . filter (quash q) $ refs + | otherwise = refs where - citNum x = x { citationNumber = maybe 0 ((+) 1 . fromIntegral) . elemIndex x $ rs } - sort b = evalSorting ts ms (bibOptions b) (bibSort b) - process b = map fst . sortBy (comparing snd) . map (citNum &&& sort b) $ rs + quash [] _ = True + quash q r = not . and . flip map q $ \(f,v) -> lookup_ r f v + select s r = and . flip map s $ \(f,v) -> lookup_ r f v + include i r = or . flip map i $ \(f,v) -> lookup_ r f v + exclude e r = and . flip map e $ \(f,v) -> not $ lookup_ r f v + lookup_ r f v = case f of + "type" -> look "ref-type" + "id" -> look "ref-id" + "categories" -> look "categories" + x -> look x + where + look s = case lookup s (mkRefMap r) of + Just x | Just v' <- (fromValue x :: Maybe RefType ) -> v == toShow (show v') + | Just v' <- (fromValue x :: Maybe String ) -> v == v' + | Just v' <- (fromValue x :: Maybe [String] ) -> v `elem` v' + | Just v' <- (fromValue x :: Maybe [Agent] ) -> v == [] && v' == [] || v == show v' + | Just v' <- (fromValue x :: Maybe [RefDate]) -> v == [] && v' == [] || v == show v' + _ -> False --- | Given the list of 'Reference's, compare year and contributors' --- names and, when they collide, generate a suffix to append to the --- year for disambiguation. -refsYSuffix :: [Reference] -> [Reference] -refsYSuffix rs - = update indices +-- | Given the CSL 'Style' and the list of 'Reference's coupled with +-- their position, generate a 'CitationGroup'. The citations are +-- sorted according to the 'Style'. +procGroup :: Style -> [(Cite, Reference)] -> CitationGroup +procGroup (Style {citation = ct, csMacros = ms , styleLocale = l, csOptions = opts}) cr + = CG authInTxt (layFormat $ citLayout ct) (layDelim $ citLayout ct) result where - ryear a b = issued a == issued b && issued a /= [] - auth a b = author a == author b && author a /= [] - edit a b = editor a == editor b && editor a /= [] - tran a b = translator a == translator b && translator a /= [] - comp a b = (ryear a b && auth a b) || - (ryear a b && edit a b) || - (ryear a b && tran a b) - update l = fst $ mapAccumL check rs l - check r (i,s) = flip (,) [] $ take i r ++ [(r !! i){yearSuffix = s}] ++ drop (i + 1) r - indices = concatMap (flip zip suffixes) . nub $ map needed rs - needed r = case () of - _ | i <- findIndices (comp r) rs - , length i > 1 -> i - | otherwise -> [] + authInTxt = case cr of + (c:_) -> if authorInText (fst c) + then foldr (\x _ -> [x]) [] $ + filter ((==) (citeId $ fst c) . citeId . fst) result + else [] + _ -> [] + opts' = mergeOptions (citOptions ct) opts + format (c,r) = (,) c $ evalLayout (citLayout ct) (EvalCite c) False l ms opts' r + sort_ (c,r) = evalSorting (EvalSorting c) l ms opts' (citSort ct) r + process = map (second (flip Output emptyFormatting) . format &&& sort_) + result = sortItems $ process cr -suffixes :: [String] -suffixes - = l ++ [x ++ y | x <- l, y <- l ] +formatBiblioLayout :: Formatting -> Delimiter -> [Output] -> [Output] +formatBiblioLayout f d = appendOutput f . addDelim d + +formatCitLayout :: Style -> CitationGroup -> [FormattedOutput] +formatCitLayout s (CG co f d cs) + | [a] <- co = formatAuth a : formatCits (setAsSupAu . citeHash . fst $ a) cs + | otherwise = formatCits id cs where - l = map (return . chr) [97..122] + formatAuth = formatOutput . localMod + formatCits g = formatOutputList . appendOutput formatting . + addAffixes f . addDelim d . map localMod . g + formatting = if co /= [] + then emptyFormatting + else unsetAffixes f + localMod = if cs /= [] + then uncurry $ localModifiers s (co /= []) + else snd + setAsSupAu h = map $ \(c,o) -> if citeHash c == h + then flip (,) o c { authorInText = False + , suppressAuthor = True } + else flip (,) o c + +addAffixes :: Formatting -> [Output] -> [Output] +addAffixes f os + | [] <- os = [] + | [ONull] <- os = [] + | otherwise = pref ++ suff + where + pref = if prefix f /= [] + then [OStr (prefix f) emptyFormatting] ++ os + else os + suff = if suffix f /= [] && + elem (head $ suffix f) ",.:?!" && + [head $ suffix f] == lastOutput + then [OStr (tail $ suffix f) emptyFormatting] + else suff' + suff' = if suffix f /= [] then [OStr (suffix f) emptyFormatting] else [] + lastOutput = case renderPlain (formatOutputList os) of + [] -> "" + x -> [last x] + +-- | The 'Bool' is 'True' if we are formatting a textual citation (in +-- pandoc terminology). +localModifiers :: Style -> Bool -> Cite -> Output -> Output +localModifiers s b c + | authorInText c = check . return . proc rmFormatting . contribOnly + | suppressAuthor c = check . rmContrib . return + | otherwise = id + where + isPunct = and . map (flip elem ".,;:!? ") + check o = case cleanOutput o of + [] -> ONull + x -> case trim x of + [] -> ONull + x' -> Output x' emptyFormatting + trim [] = [] + trim (o:os) + | Output ot f <- o = Output (trim ot) f : os + | ODel _ <- o = trim os + | OSpace <- o = trim os + | OStr x f <- o = OStr x (if isPunct (prefix f) + then f { prefix = []} else f) : os + | otherwise = o:os + rmFormatting f + | Formatting {} <- f = emptyFormatting { prefix = prefix f + , suffix = suffix f} + | otherwise = f + contribOnly o + | isNumStyle [o] + , OCitNum {} <- o = Output [ OStr (query getRefTerm s) emptyFormatting + , OSpace, o] emptyFormatting + | OContrib _ "author" + _ _ _ <- o = o + | Output ot f <- o = Output (cleanOutput $ map contribOnly ot) f + | otherwise = ONull + rmContrib [] = [] + rmContrib o + | b, isNumStyle o = [] + rmContrib (o:os) + | Output ot f <- o = Output (rmContrib ot) f : rmContrib os + | OContrib _ "author" + _ _ _ <- o = rmContrib os + | otherwise = o : rmContrib os + isNumStyle = null . query authorOrDate + authorOrDate o + | OContrib {} <- o = ['a'] + | OYear {} <- o = ['a'] + | OYearSuf {} <- o = ['a'] + | OStr {} <- o = ['a'] + | OPan {} <- o = ['a'] + | otherwise = [] + getRefTerm :: TermMap -> String + getRefTerm t + | (("reference", Long), (x,_)) <- t = capitalize x + | otherwise = [] diff --git a/src/Text/CSL/Proc/Collapse.hs b/src/Text/CSL/Proc/Collapse.hs --- a/src/Text/CSL/Proc/Collapse.hs +++ b/src/Text/CSL/Proc/Collapse.hs @@ -17,6 +17,7 @@ module Text.CSL.Proc.Collapse where import Control.Arrow ( (&&&), (>>>) ) +import Data.Char import Data.List ( groupBy ) import Text.CSL.Eval @@ -29,10 +30,11 @@ = map doCollapse where doCollapse = case getCollapseOptions s of - "year" : _ -> collapseYear - "year-suffix" : _ -> collapseYearSuf - "citation-number" : _ -> collapseNumber - _ -> id + "year" : _ -> collapseYear s [] + "year-suffix" : _ -> collapseYear s "year-suffix" + "year-suffix-ranged" : _ -> collapseYear s "year-suffix-ranged" + "citation-number" : _ -> collapseNumber + _ -> id -- | Get the collapse option set in the 'Style' for citations. getCollapseOptions :: Style -> [String] @@ -40,7 +42,7 @@ = map snd . filter ((==) "collapse" . fst) . citOptions . citation collapseNumber :: CitationGroup -> CitationGroup -collapseNumber (CG fm d os) = CG fm d (process os) +collapseNumber = mapCitationGroup process where citNum o | OCitNum i f <- o = [(i,f)] @@ -55,40 +57,78 @@ ] emptyFormatting else map (flip OCitNum f) x -collapseYear :: CitationGroup -> CitationGroup -collapseYear (CG f d os) = CG f d (process os) +collapseYear :: Style -> String -> CitationGroup -> CitationGroup +collapseYear s ranged (CG cs f d os) = CG cs f [] [(emptyCite, process $ map snd os)] where - rmNames [] = [] - rmNames (x:xs) = x : remove xs - remove = proc rmFirstDelim . proc rmContribs - namesOf = map (fst . snd) . getNamesYear - process = map (\x -> Output (addDelim ", " $ rmNames x) emptyFormatting) . - groupBy (\a b -> namesOf a == namesOf b) + styleYSD = getOptionVal "year-suffix-delimiter" . citOptions . citation $ s + yearSufDel = styleYSD `betterThen` (layDelim . citLayout . citation $ s) + afterCD = getOptionVal "after-collapse-delimiter" . citOptions . citation $ s + afterColDel = afterCD `betterThen` d -collapseYearSuf :: CitationGroup -> CitationGroup -collapseYearSuf (CG f d os) = CG f d (process os) + format [] = [] + format (x:xs) = x : map getYearAndSuf xs + getYearAndSuf x = case query getOYear x of + [] -> noOutputError + x' -> Output x' emptyFormatting + getOYear o + | OYear {} <- o = [o] + | OYearSuf {} <- o = [o] + | OPan {} <- o = [o] + | otherwise = [] + + isRanged = case ranged of + "year-suffix-ranged" -> True + _ -> False + collapsYS xs = if length xs < 2 || null ranged + then xs + else collapseYearSuf isRanged yearSufDel xs + addDelimiter [] = [] + addDelimiter (x:[]) = [addDelim d x] + addDelimiter (x:xs) = if length x > 1 + then (addDelim d x ++ [ODel afterColDel]) : addDelimiter xs + else (addDelim d x ++ [ODel d ]) : addDelimiter xs + namesOf = map (fst . snd) . getNamesYear True + process = flip Output emptyFormatting . concat . addDelimiter . + map (collapsYS . format) . groupBy (\a b -> namesOf a == namesOf b) + +collapseYearSuf :: Bool -> String -> [Output] -> [Output] +collapseYearSuf ranged ysd = process where - rmNames [] = [] - rmNames (x:xs) = x : remove xs - remove = proc rmFirstDelim . proc rmYear . proc rmContribs - namesOf = map (fst . snd) . getNamesYear - yearOf = concatMap (take 4 . snd . snd) . getNamesYear - process = map (\x -> Output (addDelim ", " $ rmNames x) emptyFormatting) . - groupBy (\a b -> namesOf a == namesOf b && yearOf a == yearOf b) + yearOf = concat . query getYear + getYear o + | OYear y _ _ <- o = [y] + | otherwise = [] - rmYear o - | OYear _ sf fm <- o = OYear sf sf fm - | otherwise = o + processYS = if ranged then collapseYearSufRanged else id + process = map (flip Output emptyFormatting . getYS) . + groupBy (\a b -> yearOf a == yearOf b) -rmFirstDelim :: Output -> Output -rmFirstDelim o - | Output os f <- o = Output (rm os) f - | otherwise = o + getYS [] = [] + getYS (x:xs) = if ranged + then proc rmOYearSuf x : addDelim ysd (processYS $ x : query rmOYear xs) + else addDelim ysd $ x : (processYS $ query rmOYear xs) + rmOYearSuf o + | OYearSuf {} <- o = ONull + | otherwise = o + rmOYear o + | OYearSuf {} <- o = [o] + | otherwise = [] + +collapseYearSufRanged :: [Output] -> [Output] +collapseYearSufRanged = process where - rm [] = [] - rm (x:xs) - | ODel _ <- x = xs - | otherwise = x : rm xs + getOYS o + | OYearSuf s _ _ f <- o = [(if s /= [] then ord (head s) else 0, f)] + | otherwise = [] + sufOf = foldr (\x _ -> x) (0,emptyFormatting) . query getOYS + newSuf = map sufOf >>> (map fst >>> groupConsec) &&& map snd >>> uncurry zip + process xs = flip concatMap (newSuf xs) $ + \(x,f) -> if length x > 2 + then return $ Output [ OStr [chr $ head x] f + , ODel "-" + , OStr [chr $ last x] f + ] emptyFormatting + else map (\y -> if y == 0 then ONull else flip OStr f . return . chr $ y) x -- | Group consecutive integers: -- diff --git a/src/Text/CSL/Proc/Disamb.hs b/src/Text/CSL/Proc/Disamb.hs --- a/src/Text/CSL/Proc/Disamb.hs +++ b/src/Text/CSL/Proc/Disamb.hs @@ -18,110 +18,128 @@ module Text.CSL.Proc.Disamb where -import Control.Arrow ( (&&&), (>>>) ) -import Data.List ( (\\), elemIndex, sortBy, mapAccumL +import Control.Arrow ( (&&&), (>>>), second ) +import Data.Char ( chr ) +import Data.List ( elemIndex, find, findIndex, sortBy, mapAccumL , nub, groupBy, isPrefixOf ) import Data.Maybe import Data.Ord ( comparing ) import Text.CSL.Eval +import Text.CSL.Output.Plain import Text.CSL.Reference import Text.CSL.Style -- | Given the 'Style', the list of references and the citation -- groups, disambiguate citations according to the style options. -disambCitations :: Style -> [Reference] -> [[(String, String)]] -> [CitationGroup] -disambCitations s bibs cs - = citOutput +disambCitations :: Style -> [Reference] -> Citations -> [CitationGroup] + -> ([(String, String)], [CitationGroup]) +disambCitations s bibs cs groups + = (,) yearSuffs citOutput where + -- utils + when_ b f = if b then f else [] + filter_ f = concatMap (map fst) . map (filter f) . map (uncurry zip) + -- the list of the position and the reference of each citation -- for each citation group. - refs = getRefs bibs cs - -- citation groups - groups = map (procGroup s) refs - -- citation data of duplicates - duplics = getDuplCiteData groups + refs = processCites bibs cs + -- name data of name duplicates + nameDupls = getDuplNameData groups + -- citation data of ambiguous cites + duplics = getDuplCiteData hasNamesOpt $ addGName groups -- check the options set in the style + --isByCite = getOptionVal "givenname-disambiguation-rule" (citOptions . citation $ s) == "by-cite" disOpts = getCitDisambOptions s - hasNames = "disambiguate-add-names" `elem` disOpts - hasGName = "disambiguate-add-givenname" `elem` disOpts - hasYSuff = "disambiguate-add-year-suffix" `elem` disOpts + hasNamesOpt = "disambiguate-add-names" `elem` disOpts + hasGNameOpt = "disambiguate-add-givenname" `elem` disOpts + hasYSuffOpt = "disambiguate-add-year-suffix" `elem` disOpts - -- citations for which adding a name is not enough. - needYSuff = map (allTheSame . map disambData) duplics - needName = concatMap fst . filter (not . snd) $ zip duplics needYSuff + withNames = flip map duplics $ same . proc rmNameHash . proc rmGivenNames . + map (if hasNamesOpt then disambData else return . disambYS) - -- apply name disambiguation options - addNames = disambWithNames hasNames hasGName needName + needNames = filter_ (not . snd) $ zip (map disambAddNames duplics) withNames + needYSuff = filter_ snd $ zip (map disambAddLast duplics) withNames + newNames :: [CiteData] + newNames = when_ hasNamesOpt $ needNames ++ needYSuff + + newGName :: [NameData] + newGName = when_ hasGNameOpt $ concatMap disambAddGivenNames nameDupls + -- the list of citations that need re-evaluation with the -- \"disambiguate\" condition set to 'True' - reEval = let chk = if hasYSuff then filter ((==) [] . citYear) else id - in chk . concatMap fst . filter snd $ zip duplics needYSuff - reEvaluated = if or (query hasIfDis s) && reEval /= [] - then map (uncurry $ reEvaluate s reEval) $ zip refs groups - else groups + reEval = let chk = if hasYSuffOpt then filter ((==) [] . citYear) else id + in chk needYSuff + reEvaluated = if or (query hasIfDis s) && reEval /= [] + then map (uncurry $ reEvaluate s reEval) $ zip refs groups + else groups - -- generate the final FormattedOutput. - citOutput = if disOpts /= [] - then if hasYSuff - then proc addYearSuffix $ proc (updateOutput addNames) reEvaluated - else proc (updateOutput addNames) reEvaluated - else groups + addGName = proc (updateOutput [] newGName) + addNames = proc (updateOutput newNames newGName) --- | Disambiguate a list of 'CiteData' by adding names to the list of --- contributors, thus overriding @et-al@ options, if the first 'Bool' --- is 'True', and/or by adding given-names if the second 'Bool' is --- 'True'. -disambWithNames :: Bool -> Bool -> [CiteData] -> [CiteData] -disambWithNames bn bg needName - | bn && bg = let (n ,ns ) = done addLNames - (n',ns') = done $ addGNames ns - in n ++ n' ++ addGNames ns' - | bn = fst . done $ addLNames - | bg = fst . done $ addGNames needName - | otherwise = [] + withYearS = if hasYSuffOpt + then map (mapCitationGroup $ setYearSuffCollision hasNamesOpt needYSuff) $ reEvaluated + else rmYearSuff $ reEvaluated + + yearSuffs = when_ hasYSuffOpt . generateYearSuffix bibs . query getYearSuffixes $ withYearS + + processed = if hasYSuffOpt + then proc (updateYearSuffixes yearSuffs) . + addNames $ withYearS + else addNames $ withYearS + + citOutput = if disOpts /= [] then processed else groups + +mapDisambData :: (Output -> Output) -> CiteData -> CiteData +mapDisambData f (CD k c ys d r y) = CD k c ys (proc f d) r y + +mapCitationGroup :: ([Output] -> [Output]) -> CitationGroup -> CitationGroup +mapCitationGroup f (CG cs fm d os) = CG cs fm d (zip (map fst os) . f $ map snd os) + +disambAddNames :: [CiteData] -> [CiteData] +disambAddNames needName = addLNames where - -- do name disambiguation disSolved = zip needName (disambiguate $ map disambData needName) - addLNames = map (\(c,n) -> c { disambed = head n }) disSolved - addGNames = map (\ c -> c { disambed = addGivenNames (disambed c) }) + addLNames = map (\(c,n) -> c { disambed = if null n then collision c else head n }) disSolved - chkdup = same . proc rmGivenNames . map disambed - need a = map fst . filter (not . snd) . zip a - done a = (,) (need a $ chkdup a) (a \\ (need a $ chkdup a)) +disambAddLast :: [CiteData] -> [CiteData] +disambAddLast = map last_ + where + last_ c = c { disambed = if disambData c /= [] then last $ disambData c else collision c } +disambAddGivenNames :: [NameData] -> [NameData] +disambAddGivenNames needName = addGName + where + disSolved = zip needName (disambiguate $ map nameDisambData needName) + addGName = map (\(c,n) -> c { nameDataSolved = if null n then nameCollision c else head n }) disSolved + -- | Given the list of 'CiteData' with the disambiguated field set -- update the evaluated citations by setting the contributor list -- accordingly. -updateOutput :: [CiteData] -> Output -> Output -updateOutput m o - | OContrib k x _ <- o = case elemIndex (CD k x [] [] []) m of - Just i -> OContrib k (disambed $ m !! i) [] +updateOutput :: [CiteData] -> [NameData] -> Output -> Output +updateOutput c n o + | OContrib k r x _ d <- o = case elemIndex (CD k (clean x) [] [] [] []) c of + Just i -> OContrib k r (disambed $ c !! i) [] d + _ -> o + | OName _ _ [] _ <- o = o + | OName k x _ f <- o = case elemIndex (ND k (clean x) [] []) n of + Just i -> OName k (nameDataSolved $ n !! i) [] f _ -> o | otherwise = o - --- | Given the CSL 'Style' and the list of 'Reference's coupled with --- their position, generate a 'CitationGroup'. The citations are --- sorted according to the 'Style'. -procGroup :: Style -> [(String,Reference)] -> CitationGroup -procGroup (Style {citation = c, csMacros = ms , csTerms = ts}) - = CG (layFormat $ citLayout c) (layDelim $ citLayout c) . concat . process where - format (p,r) = evalLayout (citLayout c) False ts ms (citOptions c) p r - sort = evalSorting ts ms (citOptions c) (citSort c) . snd - process = map fst . sortBy (comparing snd) . map (format &&& sort) - + clean = proc rmGivenNames -- | Evaluate again a citation group with the 'EvalState' 'disamb' -- field set to 'True' (for matching the @\"disambiguate\"@ -- condition). -reEvaluate :: Style -> [CiteData] -> [(String,Reference)] -> CitationGroup -> CitationGroup -reEvaluate (Style {citation = c, csMacros = ms , csTerms = ts}) l pr (CG f d os) - = CG f d . flip concatMap (zip pr os) $ - \((p,r),out) -> if citeKey r `elem` map key l - then evalLayout (citLayout c) True ts ms (citOptions c) p r +reEvaluate :: Style -> [CiteData] -> [(Cite, Reference)] -> CitationGroup -> CitationGroup +reEvaluate (Style {citation = ct, csMacros = ms , styleLocale = lo}) l cr (CG a f d os) + = CG a f d . flip concatMap (zip cr os) $ + \((c,r),out) -> if refId r `elem` map key l + then return . second (flip Output emptyFormatting) $ + (,) c $ evalLayout (citLayout ct) (EvalCite c) True lo ms (citOptions ct) r else [out] -- | Check if the 'Style' has any conditional for disambiguation. In @@ -140,36 +158,38 @@ = map fst . filter ((==) "true" . snd) . filter (isPrefixOf "disambiguate" . fst) . citOptions . citation --- | Set the locator, the 'citationNumber' and the position for each --- citation, with the list of 'Reference's and the list of citation --- groups (citation keys with locators). -getRefs :: [Reference] -> [[(String, String)]] -> [[(String, Reference)]] -getRefs r = map (map $ getReference' r) . generatePosition - -- | Group citation data (with possible alternative names) of -- citations which have a duplicate (same 'collision' and same --- 'citYear'). -getDuplCiteData :: [CitationGroup] -> [[CiteData]] -getDuplCiteData g - = groupBy (\a b -> collide a == collide b) . sortBy (comparing collide) $ duplicates +-- 'citYear'). If the first 'Bool' is 'False', then we need to +-- retrieve data for year suffix disambiguation. +getDuplCiteData :: Bool -> [CitationGroup] -> [[CiteData]] +getDuplCiteData b g + = groupBy (\x y -> collide x == collide y) . sortBy (comparing collide) $ duplicates where - collide = proc rmGivenNames . collision - citeData = nub $ concatMap (mapGroupOutput getCiteData) g - duplicates = filter (collide &&& citYear >>> flip elem (getDuplNamesYear g)) citeData + whatToGet = if b then collision else disambYS + collide = proc rmNameHash . proc rmGivenNames . whatToGet + citeData = nub $ concatMap (mapGroupOutput $ getCiteData) g + duplicates = filter (collide &&& citYear >>> flip elem (getDuplNamesYear b g)) citeData -- | For an evaluated citation get its 'CiteData'. The disambiguated -- citation and the year fields are empty. getCiteData :: Output -> [CiteData] getCiteData - = query contribs &&& years >>> + = contribs &&& years >>> zipData where + contribs x = if query contribsQ x /= [] + then query contribsQ x + else [CD [] [] [] [] [] []] yearsQ = query getYears - years o = if yearsQ o /= [] then yearsQ o else [""] - zipData = uncurry . zipWith $ \c y -> c {citYear = y} - contribs o - | OContrib k x xs <- o = [CD k x xs [] []] - | otherwise = [] + years o = if yearsQ o /= [] then yearsQ o else [([],[])] + zipData = uncurry . zipWith $ \c y -> if key c /= [] + then c {citYear = snd y} + else c {key = fst y + ,citYear = snd y} + contribsQ o + | OContrib k _ c d dd <- o = [CD k c d dd [] []] + | otherwise = [] -- | The contributors diambiguation data, the list of names and -- give-names, and the citation year ('OYear'). @@ -177,36 +197,115 @@ -- | Get the contributors list ('OContrib') and the year occurring in -- more then one citation. -getDuplNamesYear :: [CitationGroup] -> [NamesYear] -getDuplNamesYear +getDuplNamesYear :: Bool -> [CitationGroup] -> [NamesYear] +getDuplNamesYear b = nub . catMaybes . snd . mapAccumL dupl [] . getData where - getData = concat . map nub . map (mapGroupOutput getNamesYear) - dupl a c = if snd c `elem` map snd a - then if fst c `elem` map fst a then (a,Nothing) else (c:a,Just $ snd c) - else if fst c `elem` map fst a then (a,Nothing) else (c:a,Nothing ) + getData = nub . concatMap (mapGroupOutput $ getNamesYear b) + dupl a c = if snd c `elem` a + then (a,Just $ snd c) else (snd c:a,Nothing) -- | Get the list of citation keys coupled with their 'NamesYear' in --- the evaluated 'Output'. -getNamesYear :: Output -> [(String,NamesYear)] -getNamesYear - = proc rmGivenNames >>> - query contribs &&& years >>> +-- the evaluated 'Output'. If the 'Bool' is 'False' then the function +-- retrieves the names used in citations not occuring for the first +-- time. +getNamesYear :: Bool -> Output -> [(String,NamesYear)] +getNamesYear b + = proc rmNameHash >>> + proc rmGivenNames >>> + contribs &&& years >>> zipData where + contribs x = if query contribsQ x /= [] + then query contribsQ x + else [([],[])] yearsQ = query getYears - years o = if yearsQ o /= [] then yearsQ o else [""] - zipData = uncurry . zipWith $ \(k,c) y -> (,) k (c,y) - contribs o - | OContrib k x _ <- o = [(k,x)] - | otherwise = [] + years o = if yearsQ o /= [] then yearsQ o else [([],[])] + zipData = uncurry . zipWith $ \(k,c) y -> if k /= [] + then (,) k (c, snd y) + else (,) (fst y) (c, snd y) + contribsQ o + | OContrib k _ c d _ <- o = [(k,if b then c else d)] + | otherwise = [] -getYears :: Output -> [String] +getYears :: Output -> [(String,String)] getYears o - | OYear x _ _ <- o = [x] + | OYear x k _ <- o = [(k,x)] | otherwise = [] +getDuplNameData :: [CitationGroup] -> [[NameData]] +getDuplNameData g + = groupBy (\a b -> collide a == collide b) . sortBy (comparing collide) $ duplicates + where + collide = nameCollision + nameData = nub $ concatMap (mapGroupOutput getName) g + duplicates = filter (flip elem (getDuplNames g) . collide) nameData +getDuplNames :: [CitationGroup] -> [[Output]] +getDuplNames xs + = nub . catMaybes . snd . mapAccumL dupl [] . getData $ xs + where + getData = concatMap (mapGroupOutput getName) + dupl a c = if nameCollision c `elem` map nameCollision a + then (a,Just $ nameCollision c) + else (c:a,Nothing) + +getName :: Output -> [NameData] +getName = query getName' + where + getName' o + | OName i n ns _ <- o = [ND i n (n:ns) []] + | otherwise = [] + +generateYearSuffix :: [Reference] -> [(String, [Output])] -> [(String,String)] +generateYearSuffix refs + = concatMap (flip zip suffs) . + -- sort clashing cites using their position in the sorted bibliography + getFst . map sort' . map (filter ((/=) 0 . snd)) . map (map getP) . + -- group clashing cites + getFst . map nub . groupBy (\a b -> snd a == snd b) . sort' . filter ((/=) [] . snd) + where + sort' :: (Ord a, Ord b) => [(a,b)] -> [(a,b)] + sort' = sortBy (comparing snd) + getFst = map $ map fst + getP k = case findIndex ((==) k . refId) refs of + Just x -> (k, x + 1) + _ -> (k, 0) + suffs = l ++ [x ++ y | x <- l, y <- l ] + l = map (return . chr) [97..122] + +setYearSuffCollision :: Bool -> [CiteData] -> [Output] -> [Output] +setYearSuffCollision b cs = proc (setYS cs) . (map $ \x -> if hasYearSuf x then x else addYearSuffix x) + where + setYS c o + | OYearSuf _ k _ f <- o = OYearSuf [] k (getCollision k c) f + | otherwise = o + collide = if b then disambed else disambYS + getCollision k c = case find ((==) k . key) c of + Just x -> if collide x == [] + then [OStr (citYear x) emptyFormatting] + else collide x + _ -> [] + +updateYearSuffixes :: [(String, String)] -> Output -> Output +updateYearSuffixes yss o + | OYearSuf _ k c f <- o = case lookup k yss of + Just x -> OYearSuf x k c f + _ -> ONull + | otherwise = o + +getYearSuffixes :: Output -> [(String,[Output])] +getYearSuffixes o + | OYearSuf _ k c _ <- o = [(k,c)] + | otherwise = [] + +rmYearSuff :: [CitationGroup] -> [CitationGroup] +rmYearSuff = proc rmYS + where + rmYS o + | OYearSuf _ _ _ _ <- o = ONull + | otherwise = o + -- List Utilities -- | Try to disambiguate a list of lists by returning the first non @@ -221,13 +320,13 @@ else heads where heads = map head' l - rest = map (\(b,x) -> if b then tail' x else head' x) . zip (same heads) + rest = map (\(b,x) -> if b then tail_ x else head' x) . zip (same heads) hasMult [] = False hasMult (x:xs) = length x > 1 || hasMult xs - tail' [x] = [x] - tail' x = if null x then x else tail x + tail_ [x] = [x] + tail_ x = if null x then x else tail x -- | For each element a list of 'Bool': 'True' if the element has a -- duplicate in the list: @@ -246,4 +345,3 @@ allTheSame :: Eq a => [a] -> Bool allTheSame = and . same - diff --git a/src/Text/CSL/Reference.hs b/src/Text/CSL/Reference.hs --- a/src/Text/CSL/Reference.hs +++ b/src/Text/CSL/Reference.hs @@ -1,4 +1,5 @@ -{-# OPTIONS_GHC -fglasgow-exts #-} -- for deriving Typeable +{-# LANGUAGE GeneralizedNewtypeDeriving, PatternGuards, + DeriveDataTypeable, ExistentialQuantification #-} ----------------------------------------------------------------------------- -- | -- Module : Text.CSL.Reference @@ -17,9 +18,12 @@ import Data.Char ( isUpper, toLower ) import Data.List ( elemIndex, isPrefixOf ) -import Data.Maybe ( fromJust ) +import Data.Maybe ( fromMaybe ) import Data.Generics +import Text.CSL.Style +import Text.CSL.Output.Plain ((<+>)) + -- | An existential type to wrap the different types a 'Reference' is -- made of. This way we can create a map to make queries easier. data Value = forall a . Data a => Value a @@ -50,26 +54,32 @@ | Just v <- fromValue val :: Maybe [RefDate] = v /= [] | Just v <- fromValue val :: Maybe Int = v /= 0 | Just v <- fromValue val :: Maybe CNum = v /= 0 - | Just v <- fromValue val :: Maybe Locator = v /= NoneLoc | otherwise = False data Empty = Empty deriving ( Typeable, Data ) data Agent - = Entity String - | Person { namePrefix :: String - , givenName :: [String] - , initials :: String - , articular :: String - , familyName :: String - , nameSuffix :: String - } deriving ( Show, Read, Eq, Typeable, Data ) + = Agent { givenName :: [String] + , droppingPart :: String + , nonDroppingPart :: String + , familyName :: String + , nameSuffix :: String + , literal :: String + , commaSuffix :: Bool + } + deriving ( Read, Eq, Typeable, Data ) +instance Show Agent where + show (Agent g d n f s [] _) = (foldr (<+>) [] g) <+> d <+> n <+> f <+> s + show (Agent _ _ _ _ _ l _) = l + data RefDate = - RefDate { year :: Int - , month :: Int - , day :: Int - , other :: String + RefDate { year :: String + , month :: String + , season :: String + , day :: String + , other :: String + , circa :: String } deriving ( Show, Read, Eq, Typeable, Data ) data RefType @@ -118,7 +128,7 @@ -- | The 'Reference' record. data Reference = Reference - { citeKey :: String + { refId :: String , refType :: RefType , author :: [Agent] @@ -126,12 +136,11 @@ , translator :: [Agent] , recipient :: [Agent] , interviewer :: [Agent] - , publisher :: [Agent] , composer :: [Agent] - , originalPublisher :: [Agent] , originalAuthor :: [Agent] , containerAuthor :: [Agent] , collectionEditor :: [Agent] + , editorialDirector :: [Agent] , issued :: [RefDate] , eventDate :: [RefDate] @@ -140,10 +149,13 @@ , originalDate :: [RefDate] , title :: String + , shortTitle :: String , containerTitle :: String , collectionTitle :: String - , collectionNumber :: Int + , collectionNumber :: String --Int , originalTitle :: String + , publisher :: String + , originalPublisher :: String , publisherPlace :: String , archive :: String , archivePlace :: String @@ -151,10 +163,11 @@ , event :: String , eventPlace :: String , page :: String - , locator :: Locator + , pageFirst :: String + , numberOfPages :: String , version :: String , volume :: String - , numberOfVolumes :: Int + , numberOfVolumes :: String --Int , issue :: String , chapterNumber :: String , medium :: String @@ -171,16 +184,17 @@ , url :: String , doi :: String , isbn :: String + , categories :: [String] - , citationNumber :: CNum - , yearSuffix :: String - , citationLabel :: String + , citationNumber :: CNum + , firstReferenceNoteNumber :: Int + , citationLabel :: String } deriving ( Eq, Show, Read, Typeable, Data ) emptyReference :: Reference emptyReference = Reference - { citeKey = [] + { refId = [] , refType = NoType , author = [] @@ -188,12 +202,11 @@ , translator = [] , recipient = [] , interviewer = [] - , publisher = [] , composer = [] - , originalPublisher = [] , originalAuthor = [] , containerAuthor = [] , collectionEditor = [] + , editorialDirector = [] , issued = [] , eventDate = [] @@ -202,10 +215,14 @@ , originalDate = [] , title = [] + , shortTitle = [] , containerTitle = [] , collectionTitle = [] - , collectionNumber = 0 + + , collectionNumber = [] , originalTitle = [] + , publisher = [] + , originalPublisher = [] , publisherPlace = [] , archive = [] , archivePlace = [] @@ -213,10 +230,11 @@ , event = [] , eventPlace = [] , page = [] - , locator = NoneLoc + , pageFirst = [] + , numberOfPages = [] , version = [] , volume = [] - , numberOfVolumes = 0 + , numberOfVolumes = [] , issue = [] , chapterNumber = [] , medium = [] @@ -233,122 +251,110 @@ , url = [] , doi = [] , isbn = [] + , categories = [] - , citationNumber = CNum 0 - , yearSuffix = [] - , citationLabel = [] + , citationNumber = CNum 0 + , firstReferenceNoteNumber = 0 + , citationLabel = [] } --- | With the list of 'Reference's and the tuple (citation key, --- locator), return the needed reference with the correct locator set. -getReference :: [Reference] -> (String,String) -> Reference -getReference r - = snd . getReference' r . flip (,) ("",0) +parseLocator :: String -> (String, String) +parseLocator s + | "b" `isPrefixOf` formatField s = mk "book" + | "ch" `isPrefixOf` formatField s = mk "chapter" + | "co" `isPrefixOf` formatField s = mk "column" + | "fi" `isPrefixOf` formatField s = mk "figure" + | "fo" `isPrefixOf` formatField s = mk "folio" + | "i" `isPrefixOf` formatField s = mk "issue" + | "l" `isPrefixOf` formatField s = mk "line" + | "n" `isPrefixOf` formatField s = mk "note" + | "o" `isPrefixOf` formatField s = mk "opus" + | "para" `isPrefixOf` formatField s = mk "paragraph" + | "part" `isPrefixOf` formatField s = mk "part" + | "p" `isPrefixOf` formatField s = mk "page" + | "sec" `isPrefixOf` formatField s = mk "section" + | "sub" `isPrefixOf` formatField s = mk "sub verbo" + | "ve" `isPrefixOf` formatField s = mk "verse" + | "v" `isPrefixOf` formatField s = mk "volume" + | otherwise = ([], []) + where + mk c = if null s then ([], []) else (,) c . unwords . tail . words $ s --- | With the 'Reference' list and the generated position for each --- tuple of citation key and locator, produce a list of 'Reference's --- with their positions (which come first. -getReference' :: [Reference] -> ((String,String),(String,Int)) -> (String, Reference) -getReference' r ((c,l),(p,n)) - = case c `elemIndex` map citeKey r of - Just i -> (,) p $ (r !! i) - { locator = parseLocator l - , citationNumber = CNum n } - Nothing -> (,) p $ emptyReference - { title = c ++ " not found!" - , citationNumber = CNum n } +getReference :: [Reference] -> Cite -> Reference +getReference r c + = case citeId c `elemIndex` map refId r of + Just i -> setPageFirst $ r !! i + Nothing -> emptyReference { title = citeId c ++ " not found!" } -data Locator - = NoneLoc - | BookLoc String - | ChapterLoc String - | ColumnLoc String - | FigureLoc String - | FolioLoc String - | IssueLoc String - | LineLoc String - | NoteLoc String - | OpusLoc String - | PageLoc String - | PageFstLoc String - | ParaLoc String - | PartLoc String - | SecLoc String - | SubVerbLoc String - | VolLoc String - | VerseLoc String - deriving ( Read, Eq, Typeable, Data ) +processCites :: [Reference] -> [[Cite]] -> [[(Cite, Reference)]] +processCites rs cs + = setCitationNumber $ procGr [[]] cs + where + procRef r = case filter ((==) (refId r) . citeId) $ concat cs of + x:_ -> r { firstReferenceNoteNumber = readNum $ citeNoteNumber x} + [] -> r + getRef c = case filter ((==) (citeId c) . refId) rs of + x:_ -> procRef $ setPageFirst x + [] -> emptyReference { title = citeId c ++ " not found!" } -instance Show Locator where - show = map toLower . reverse . drop 3 . reverse . showConstr . toConstr + procGr _ [] = [] + procGr a (x:xs) = let (a',res) = procCs a x + in res : procGr (a' ++ [[]]) xs -locString :: Locator -> String -locString l - | BookLoc s <- l = s - | ChapterLoc s <- l = s - | ColumnLoc s <- l = s - | FigureLoc s <- l = s - | FolioLoc s <- l = s - | IssueLoc s <- l = s - | LineLoc s <- l = s - | NoteLoc s <- l = s - | OpusLoc s <- l = s - | PageLoc s <- l = s - | PageFstLoc s <- l = s - | ParaLoc s <- l = s - | PartLoc s <- l = s - | SecLoc s <- l = s - | SubVerbLoc s <- l = s - | VolLoc s <- l = s - | VerseLoc s <- l = s - | otherwise = [] + procCs a [] = (a,[]) + procCs a (c:xs) + | isIbidC, isLocSet = go "ibid-with-locator-c" + | isIbid, isLocSet = go "ibid-with-locator" + | isIbidC = go "ibid-c" + | isIbid = go "ibid" + | isElem = go "subsequent" + | otherwise = go "first" + where + go s = let addCite = if last a /= [] then init a ++ [last a ++ [c]] else init a ++ [[c]] + (a', rest) = procCs addCite xs + in (a', (c { citePosition = s}, getRef c) : rest) + isElem = citeId c `elem` map citeId (concat a) + -- Ibid in same citation + isIbid = last a /= [] && citeId c == citeId (last $ last a) + -- Ibid in different citations (must be capitalized) + isIbidC = init a /= [] && length (last $ init a) == 1 && + last a == [] && citeId c == citeId (head . last $ init a) + isLocSet = citeLocator c /= "" -parseLocator :: String -> Locator -parseLocator s - | "b" `isPrefixOf` formatField s = mk BookLoc - | "ch" `isPrefixOf` formatField s = mk ChapterLoc - | "co" `isPrefixOf` formatField s = mk ColumnLoc - | "fi" `isPrefixOf` formatField s = mk FigureLoc - | "fo" `isPrefixOf` formatField s = mk FolioLoc - | "i" `isPrefixOf` formatField s = mk IssueLoc - | "l" `isPrefixOf` formatField s = mk LineLoc - | "n" `isPrefixOf` formatField s = mk NoteLoc - | "o" `isPrefixOf` formatField s = mk OpusLoc - | "para" `isPrefixOf` formatField s = mk ParaLoc - | "part" `isPrefixOf` formatField s = mk PartLoc - | "p" `isPrefixOf` formatField s = mk PageLoc - | "sec" `isPrefixOf` formatField s = mk SecLoc - | "sub" `isPrefixOf` formatField s = mk SubVerbLoc - | "ve" `isPrefixOf` formatField s = mk VerseLoc - | "v" `isPrefixOf` formatField s = mk VolLoc --- | "p" `isPrefixOf` formatField s = mk PageFstLoc - | otherwise = NoneLoc +setCitationNumber :: [[(Cite, Reference)]] -> [[(Cite, Reference)]] +setCitationNumber csrs = map (map setIt) csrs where - mk c = if null s then NoneLoc else c . concat . tail . words $ s + selectFirst = map citeId . filter ((==) "first" . citePosition) . concatMap (map fst) + setIt (c,r) = case elemIndex (citeId c) (selectFirst csrs) of + Just i -> (c,r {citationNumber = CNum (i + 1)}) + Nothing -> (c,r) --- | For each citation group generate the position and the citation --- number of each citation. -generatePosition :: [[(String,String)]] -> [[((String,String),(String,Int))]] -generatePosition = getPos ([],[]) +setPageFirst :: Reference -> Reference +setPageFirst r = if ('-' `elem` page r) + then r { pageFirst = takeWhile (/= '-') $ page r} + else r -getPos :: (Eq a) => ([a], [a]) - -> [[(a, String)]] -> [[((a, String), (String, Int))]] -getPos _ [] = [] -getPos (ac,cl) (x:xs) - = doGroup : getPos (ac ++ (map fst x), cl ++ fstcits) xs +setNearNote :: Style -> [[Cite]] -> [[Cite]] +setNearNote s cs + = procGr [] cs where - fstcits = map (fst . fst) . filter ((==) "first" . fst . snd) $ doGroup - doGroup = doGet (ac,cl) x - doGet _ [] = [] - doGet (a,c) ((k,l):ys) - | isIbid - , isSet = ((k, l), ("ibid-with-locator", citNum)) : doGet (a ++ [k], c ) ys - | isIbid = ((k, l), ("ibid" , citNum)) : doGet (a ++ [k], c ) ys - | isElem = ((k, l), ("subsequent" , citNum)) : doGet (a ++ [k], c ) ys - | otherwise = ((k, l), ("first" , newCit)) : doGet (a ++ [k], c ++ [k]) ys + near_note = let nn = fromMaybe [] . lookup "near-note-distance" . citOptions . citation $ s + in if nn == [] then 5 else readNum nn + procGr _ [] = [] + procGr a (x:xs) = let (a',res) = procCs a x + in res : procGr a' xs + + procCs a [] = (a,[]) + procCs a (c:xs) = (a', c { nearNote = isNear} : rest) where - newCit = 1 + length c - citNum = (+) 1 . fromJust . elemIndex k $ c - isSet = l /= "" - isElem = k `elem` a - isIbid = isElem && k == last a + (a', rest) = procCs (c:a) xs + isNear = case filter ((==) (citeId c) . citeId) a of + x:_ -> citeNoteNumber c /= "0" && + citeNoteNumber x /= "0" && + readNum (citeNoteNumber c) - readNum (citeNoteNumber x) <= near_note + _ -> False + +readNum :: String -> Int +readNum s = case reads s of + [(x,"")] -> x + _ -> 0 diff --git a/src/Text/CSL/Style.hs b/src/Text/CSL/Style.hs --- a/src/Text/CSL/Style.hs +++ b/src/Text/CSL/Style.hs @@ -1,5 +1,4 @@ -{-# OPTIONS_GHC -fglasgow-exts #-} -- for deriving Typeable -{-# LANGUAGE PatternGuards #-} +{-# LANGUAGE PatternGuards, DeriveDataTypeable #-} ----------------------------------------------------------------------------- -- | -- Module : Text.CSL.Style @@ -16,21 +15,54 @@ module Text.CSL.Style where -import Data.Generics +import Data.List ( nubBy, isPrefixOf ) +import Data.Generics ( Typeable, Data + , everywhere, everything, mkT, mkQ) +import Text.JSON +import Text.Pandoc.Definition ( Inline ) -- | The representation of a parsed CSL style. data Style = Style - { styleClass :: String - , styleInfo :: Maybe CSInfo - , styleLang :: String - , styleLocale :: String - , csTerms :: [TermMap] - , csMacros :: [MacroMap] - , citation :: Citation - , biblio :: Maybe Bibliography + { styleVersion :: String + , styleClass :: String + , styleInfo :: Maybe CSInfo + , styleDefaultLocale :: String + , styleLocale :: [Locale] + , csOptions :: [Option] + , csMacros :: [MacroMap] + , citation :: Citation + , biblio :: Maybe Bibliography } deriving ( Show, Typeable, Data ) +data Locale + = Locale + { localeVersion :: String + , localeLang :: String + , localeOptions :: [Option] + , localeTermMap :: [TermMap] + , localeDate :: [Element] + } deriving ( Show, Eq, Typeable, Data ) + +-- | With the 'defaultLocale', the locales-xx-XX.xml loaded file and +-- the parsed 'Style' cs:locale elements, produce the final 'Locale' +-- as the only element of a list, taking into account CSL locale +-- prioritization. +mergeLocales :: String -> Locale -> [Locale] -> [Locale] +mergeLocales s l ls = doMerge list + where + list = filter ((==) s . localeLang) ls ++ + filter ((\x -> x /= [] && x `isPrefixOf` s) . localeLang) ls ++ + filter ((==) [] . localeLang) ls + doMerge x = return l { localeOptions = newOpt x + , localeTermMap = newTermMap x + , localeDate = newDate x + } + newOpt x = nubBy (\a b -> fst a == fst b) (concatMap localeOptions x ++ localeOptions l) + newTermMap x = nubBy (\a b -> fst a == fst b) (concatMap localeTermMap x ++ localeTermMap l) + newDate x = nubBy (\(Date _ a _ _ _ _) + (Date _ b _ _ _ _) -> a == b) (concatMap localeDate x ++ localeDate l) + type TermMap = ((String,Form),(String,String)) @@ -53,6 +85,9 @@ type Option = (String,String) +mergeOptions :: [Option] -> [Option] -> [Option] +mergeOptions os = nubBy (\x y -> fst x == fst y) . (++) os + data Layout = Layout { layFormat :: Formatting @@ -61,19 +96,18 @@ } deriving ( Show, Typeable, Data ) data Element - = Choose IfThen [IfThen] [Element] - | Macro String Form Formatting + = Choose IfThen [IfThen] [Element] + | Macro String Formatting | Const String Formatting - | PointLocator String Form Formatting | Variable [String] Form Formatting Delimiter - | Term String Form Formatting Bool Bool - | Label String Form Formatting Bool Bool + | Term String Form Formatting Bool + | Label String Form Formatting Plural | Number String NumericForm Formatting | ShortNames [String] Formatting Delimiter | Names [String] [Name] Formatting Delimiter [Element] | Substitute [Element] - | Group Formatting Delimiter String [Element] - | Date [String] Formatting Delimiter [DatePart] + | Group Formatting Delimiter [Element] + | Date [String] DateForm Formatting Delimiter [DatePart] String deriving ( Show, Eq, Typeable, Data ) data IfThen @@ -82,18 +116,16 @@ data Condition = Condition - { isType :: [String] - , isSet :: [String] - , isNumeric :: [String] - , isDate :: [String] - , isPosition :: [String] - , disambiguation :: [String] - , isLocator :: [String] - } - deriving ( Eq, Show, Typeable, Data ) + { isType :: [String] + , isSet :: [String] + , isNumeric :: [String] + , isUncertainDate :: [String] + , isPosition :: [String] + , disambiguation :: [String] + , isLocator :: [String] + } deriving ( Eq, Show, Typeable, Data ) -type Delimiter - = String +type Delimiter = String data Match = Any @@ -107,74 +139,100 @@ match None = and . map not data DatePart - = DatePart String String Formatting - deriving ( Show, Eq, Typeable, Data ) + = DatePart + { dpName :: String + , dpForm :: String + , dpRangeDelim :: String + , dpFormatting :: Formatting + } deriving ( Show, Eq, Typeable, Data ) defaultDate :: [DatePart] defaultDate - = [ DatePart "year" "" emptyFormatting - , DatePart "month" "" emptyFormatting - , DatePart "day" "" emptyFormatting] + = [ DatePart "year" "" "-" emptyFormatting + , DatePart "month" "" "-" emptyFormatting + , DatePart "day" "" "-" emptyFormatting] data Sort = SortVariable String Sorting - | SortMacro String Sorting + | SortMacro String Sorting Int Int String deriving ( Eq, Show, Typeable, Data ) data Sorting = Ascending String | Descending String - deriving ( Eq, Read, Typeable, Data ) - -instance Show Sorting where - show (Ascending s) = s - show (Descending s) = s + deriving ( Read, Show, Eq, Typeable, Data ) instance Ord Sorting where - compare (Ascending a) (Ascending b) = compare a b - compare (Descending a) (Descending b) = compare b a - compare _ _ = EQ + compare (Ascending []) (Ascending []) = EQ + compare (Ascending []) (Ascending _) = GT + compare (Ascending _) (Ascending []) = LT + compare (Ascending a) (Ascending b) = compare' a b + compare (Descending []) (Descending []) = EQ + compare (Descending []) (Descending _) = GT + compare (Descending _) (Descending []) = LT + compare (Descending a) (Descending b) = compare' b a + compare _ _ = EQ +compare' :: String -> String -> Ordering +compare' x y + = case (head x, head y) of + ('-','-') -> compare y x + ('-', _ ) -> LT + (_ ,'-') -> GT + _ -> compare x y + data Form = Long - | Verb | Short + | Count + | Verb | VerbShort | Symbol + | NotSet deriving ( Eq, Show, Read, Typeable, Data ) data NumericForm = Numeric | Ordinal | Roman + | LongOrdinal deriving ( Eq, Show, Read, Typeable, Data ) +data DateForm + = TextDate + | NumericDate + | NoFormDate + deriving ( Eq, Show, Read, Typeable, Data ) + +data Plural + = Contextual + | Always + | Never + deriving ( Eq, Show, Read, Typeable, Data ) + data Name - = Name Form Formatting NameFormatting Delimiter - | NameLabel Form Formatting Bool Bool + = Name Form Formatting NameAttrs Delimiter [NamePart] + | NameLabel Form Formatting Plural + | EtAl Formatting String deriving ( Eq, Show, Typeable, Data ) +type NameAttrs = [(String, String)] + +data NamePart + = NamePart String Formatting + deriving ( Show, Eq, Typeable, Data ) + isName :: Name -> Bool isName x = case x of Name {} -> True; _ -> False -data NameFormatting - = NameFormatting - { andConnector :: String - , delimiterPrecedesLast :: String - , nameAsSortOrder :: String - , sortSeparator :: String - , initializeWith :: String - } deriving ( Eq, Show, Typeable, Data ) +isNames :: Element -> Bool +isNames x = case x of Names {} -> True; _ -> False -defaultNameFormatting :: NameFormatting -defaultNameFormatting - = NameFormatting - { andConnector = "text" - , delimiterPrecedesLast = "" - , nameAsSortOrder = "" - , sortSeparator = "" - , initializeWith = "" - } +hasEtAl :: [Name] -> Bool +hasEtAl = not . null . query getEtAl + where getEtAl n + | EtAl _ _ <- n = [n] + | otherwise = [] data Formatting = Formatting @@ -189,12 +247,38 @@ , textCase :: String , display :: String , quotes :: Bool - } deriving ( Eq, Ord, Read, Show, Typeable, Data ) + , stripPeriods :: Bool + , noCase :: Bool + , noDecor :: Bool + } deriving ( Read, Eq, Ord, Typeable, Data ) +instance Show Formatting where show _ = "emptyFormatting" + emptyFormatting :: Formatting emptyFormatting - = Formatting [] [] [] [] [] [] [] [] [] [] False + = Formatting [] [] [] [] [] [] [] [] [] [] False False False False +unsetAffixes :: Formatting -> Formatting +unsetAffixes f = f {prefix = [], suffix = []} + +mergeFM :: Formatting -> Formatting -> Formatting +mergeFM (Formatting aa ab ac ad ae af ag ah ai aj ak al am an) + (Formatting ba bb bc bd be bf bg bh bi bj bk bl bm bn) = + Formatting (ba `betterThen` aa) + (bb `betterThen` ab) + (bc `betterThen` ac) + (bd `betterThen` ad) + (be `betterThen` ae) + (bf `betterThen` af) + (bg `betterThen` ag) + (bh `betterThen` ah) + (bi `betterThen` ai) + (bj `betterThen` aj) + (if bk /= ak then bk else ak) + (if bl /= al then bl else al) + (if bm /= am then bm else am) + (if bn /= an then bn else an) + data CSInfo = CSInfo { csiTitle :: String @@ -210,27 +294,73 @@ -- | The formatted output, produced after post-processing the -- evaluated citations. data FormattedOutput - = FO String Formatting [FormattedOutput] - | Delimiter String + = FO Formatting [FormattedOutput] + | FN String Formatting + | FS String Formatting + | FDel String + | FPan [Inline] + | FNull deriving ( Eq, Show ) -- | The 'Output' generated by the evaluation of a style. Must be -- further processed for disambiguation and collapsing. data Output - = OStr String Formatting -- ^ A simple 'String' - | OName String [String] Formatting -- ^ A (family) name with the list of given names. - | OYear String String Formatting -- ^ The year and a suffix if needed - | OCitNum Int Formatting -- ^ The citation number - | Output [Output] Formatting -- ^ Some nested 'Output' - | OContrib String [Output] [[Output]] -- ^ The citation key with the contributor(s), and everything - -- used for disambiguation. - | ODel String -- ^ A delimiter string. + = ONull + | OSpace + | OPan [Inline] + | ODel String -- ^ A delimiter string. + | OStr String Formatting -- ^ A simple 'String' + | ONum Int Formatting -- ^ A number (used to count contributors) + | OCitNum Int Formatting -- ^ The citation number + | OYear String String Formatting -- ^ The year and the citeId + | OYearSuf String String [Output] Formatting -- ^ The year suffix, the citeId and a holder for collision data + | OName String [Output] [[Output]] Formatting -- ^ A (family) name with the list of given names. + | OContrib String String [Output] [Output] [[Output]] -- ^ The citation key, the role (author, editor, etc.), the contributor(s), + -- the output needed for year suf. disambiguation, and everything used for + -- name disambiguation. + | Output [Output] Formatting -- ^ Some nested 'Output' deriving ( Eq, Ord, Show, Typeable, Data ) +data Affix + = PlainText String + | PandocText [Inline] + deriving ( Show, Read, Eq, Ord, Typeable, Data ) + +-- | Needed for the test-suite. +instance JSON Affix where + showJSON (PlainText s) = JSString . toJSString $ s + showJSON (PandocText i) = JSString . toJSString $ show i + readJSON jv + | JSString js <- jv + , [(x,"")] <- reads (fromJSString js) = Ok x + | otherwise = Ok $ PlainText [] + +type Citations = [[Cite]] +data Cite + = Cite + { citeId :: String + , citePrefix :: Affix + , citeSuffix :: Affix + , citeLabel :: String + , citeLocator :: String + , citeNoteNumber :: String + , citePosition :: String + , nearNote :: Bool + , authorInText :: Bool + , suppressAuthor :: Bool + , citeHash :: Int + } deriving ( Show, Eq, Typeable, Data ) + +emptyAffix :: Affix +emptyAffix = PlainText [] + +emptyCite :: Cite +emptyCite = Cite [] emptyAffix emptyAffix [] [] [] [] False False False 0 + -- | A citation group: a list of evaluated citations, the 'Formatting' -- to be applied to them, and the 'Delimiter' between individual -- citations. -data CitationGroup = CG Formatting String [Output] deriving ( Show, Eq, Typeable, Data ) +data CitationGroup = CG [(Cite, Output)] Formatting Delimiter [(Cite, Output)] deriving ( Show, Eq, Typeable, Data ) data BiblioData = BD @@ -248,33 +378,69 @@ = CD { key :: String , collision :: [Output] + , disambYS :: [Output] , disambData :: [[Output]] , disambed :: [Output] , citYear :: String } deriving ( Show, Typeable, Data ) instance Eq CiteData where - (==) (CD ka ca _ _ _) - (CD kb cb _ _ _) = ka == kb && ca == cb + (==) (CD ka ca _ _ _ _) + (CD kb cb _ _ _ _) = ka == kb && ca == cb +data NameData + = ND + { nameKey :: String + , nameCollision :: [Output] + , nameDisambData :: [[Output]] + , nameDataSolved :: [Output] + } deriving ( Show, Typeable, Data ) + +instance Eq NameData where + (==) (ND ka ca _ _) + (ND kb cb _ _) = ka == kb && ca == cb + +formatOutputList :: [Output] -> [FormattedOutput] +formatOutputList = filterUseless . map formatOutput + where + filterUseless [] = [] + filterUseless (o:os) + | FO _ [] <- o = filterUseless os + | FO f xs <- o + , isEmpty f = filterUseless xs ++ filterUseless os + | FO f xs <- o = case filterUseless xs of + [] -> filterUseless os + xs' -> FO f xs' : filterUseless os + | FNull <- o = filterUseless os + | otherwise = o : filterUseless os + where + isEmpty f = f == emptyFormatting + -- | Convert evaluated 'Output' into 'FormattedOutput', ready for the -- output filters. formatOutput :: Output -> FormattedOutput formatOutput o - | ODel s <- o = Delimiter s - | OStr s f <- o = FO s f [] - | OName s _ f <- o = FO s f [] - | OYear s _ f <- o = FO s f [] - | Output os f <- o = FO "" f (format os) - | OContrib _ s _ <- o = FO "" emptyFormatting (format s) - | OCitNum i f <- o = FO (show i) f [] - | otherwise = FO "" emptyFormatting [] + | OSpace <- o = FDel " " + | OPan i <- o = FPan i + | ODel [] <- o = FNull + | ODel s <- o = FDel s + | OStr [] _ <- o = FNull + | OStr s f <- o = FS s f + | OYear s _ f <- o = FS s f + | OYearSuf s _ _ f <- o = FS s f + | ONum i f <- o = FS (show i) f + | OCitNum i f <- o = FN (add00 i) f + | OName _ s _ f <- o = FO f (format s) + | OContrib _ _ s _ _ <- o = FO emptyFormatting (format s) + | Output os f <- o = FO f (format os) + | otherwise = FNull where - format = map formatOutput + format = map formatOutput + add00 = reverse . take 5 . flip (++) (repeat '0') . reverse . show -- | Map the evaluated output of a citation group. mapGroupOutput :: (Output -> [a]) -> CitationGroup -> [a] -mapGroupOutput f (CG _ _ os) = concatMap f os +mapGroupOutput f (CG _ _ _ os) = concatMap f $ map snd os -- | A generic processing function. proc :: (Typeable a, Data b) => (a -> a) -> b -> b @@ -287,30 +453,55 @@ -- | Removes all given names form a 'OName' element with 'proc'. rmGivenNames :: Output -> Output rmGivenNames o - | OName s _ f <- o = OName s [] f - | otherwise = o + | OName i s _ f <- o = OName i s [] f + | otherwise = o +rmNameHash :: Output -> Output +rmNameHash o + | OName _ s ss f <- o = OName [] s ss f + | otherwise = o + -- | Removes all contributors' names. rmContribs :: Output -> Output rmContribs o - | OContrib s _ _ <- o = OContrib s [] [] - | otherwise = o + | OContrib s r _ _ _ <- o = OContrib s r [] [] [] + | otherwise = o -- | Add, with 'proc', a give name to the family name. Needed for -- disambiguation. addGivenNames :: [Output] -> [Output] addGivenNames - = reverse . addGN True . reverse + = addGN True where addGN _ [] = [] addGN b (o:os) - | OName _ xs f <- o - , xs /= [] = if b then OName (head xs) (tail xs) f : addGN False os else o:os + | OName i _ xs f <- o + , xs /= [] = if b then OName i (head xs) (tail xs) f : addGN False os else o:os | otherwise = o : addGN b os -- | Add the year suffix to the year. Needed for disambiguation. addYearSuffix :: Output -> Output addYearSuffix o - | OYear y s f <- o = OYear (y ++ s) s f - | otherwise = o + | OYear y k f <- o = Output [OYear y k emptyFormatting,OYearSuf [] k [] emptyFormatting] f + | Output (x:xs) f <- o = if or $ map hasYearSuf (x : xs) + then Output (x : xs) f + else if hasYear x + then Output (addYearSuffix x : xs) f + else Output (x : [addYearSuffix $ Output xs emptyFormatting]) f + | otherwise = o +hasYear :: Output -> Bool +hasYear = not . null . query getYear + where getYear o + | OYear _ _ _ <- o = [o] + | otherwise = [] + + +hasYearSuf :: Output -> Bool +hasYearSuf = not . null . query getYearSuf + where getYearSuf o + | OYearSuf _ _ _ _ <- o = ["a"] + | otherwise = [] + +betterThen :: Eq a => [a] -> [a] -> [a] +betterThen a b = if a == [] then b else a diff --git a/test/RefData.hs b/test/RefData.hs deleted file mode 100644 --- a/test/RefData.hs +++ /dev/null @@ -1,60 +0,0 @@ -module RefData where - -import Text.CSL.Reference - -someReferences :: [Reference] -someReferences - = [ emptyReference - { refType = ArticleNewspaper, - issued = [RefDate 2007 0 0 ""], - title = "Some Title", - containerTitle = "Journal News", - page = "A5", - url = "http://ex.net/1", - accessed = [RefDate 2007 11 12 ""] - } - , emptyReference - { refType = Book, - issued = [RefDate 2000 0 0 ""], - title = "Splitting the Difference", - publisher = [Entity "University of Chicago Press"], - publisherPlace = "Chicago", - author = [Person "" ["Wendy"] "" "" "Doniger" ""] - } - , emptyReference - { refType = Book, - issued = [RefDate 1994 0 0 ""], - title = "The social organization of sexuality: Sexual practices in the United States", - publisher = [Entity "University of Chicago Press"], - publisherPlace = "Chicago", - author = [ Person "" ["Edward","O."] "" "" "Laumann" "" - , Person "" ["John" ,"H."] "" "" "Gagnon" "" - , Person "" ["Robert","T."] "" "" "Michael" "" - ] - } - , emptyReference - { refType = ArticleJournal, - issued = [RefDate 1998 0 0 ""], - title = "The origin of altruism", - containerTitle = "Nature", - issue = "393", - page = "639-640", - author = [ Person "" ["John","Maynard"] "" "" "Smith" "" - ] - } - , emptyReference - { refType = Chapter, - issued = [RefDate 2000 0 0 ""], - title = "Introduction: A Chapter Title", - containerTitle = "Edited Book Title", - collectionTitle = "Series Title", - publisher = [Entity "ABC Books"], - publisherPlace = "New York", - author = [ Person "" ["Jane"] "" "" "Doe" "" - , Person "" ["John"] "" "" "Smith" "" - ], - editor = [ Person "" ["Jane"] "" "" "Doe" "" - , Person "" ["John"] "" "" "Smith" "" - ] - } - ] diff --git a/test/apa b/test/apa deleted file mode 100644 --- a/test/apa +++ /dev/null @@ -1,230 +0,0 @@ - - - diff --git a/test/locales-it-IT.xml b/test/locales-it-IT.xml deleted file mode 100644 --- a/test/locales-it-IT.xml +++ /dev/null @@ -1,201 +0,0 @@ - - - - - a - in - ibid - consultato - recuperato - da - futuro - Citazioni bibliografiche - S.d. - e - et al. - intervista - lettera - anonimo - anon - e altri - in stampa - in linea - citato - internet - presentato al - antropologia - astronomia - biologia - botanica - chimica - - ingegneria - generica - geografia - geologia - storia - discipline umanistiche - letteratura - matematica - medicina - filosofia - fisica - psicologia - sociologia - scienze - scienze politiche - sociologia - teologia - zoologia - - libro - libri - - - capitolo - capitoli - - - colonna - colonne - - - figura - figure - - - foglio - fogli - - - numero - numeri - - - riga - righe - - - nota - note - - - opera - opere - - - pagina - pagine - - - capoverso - capoversi - - - parte - parti - - - paragrafo - paragrafi - - - volume - volumi - - - edizione - edizioni - - - verso - versi - - lib - cap - col - fig - fgl - n° - op - - pag - pagg - - cpv - pt - par - - v - vv - - - vol - vol - - edition - ed - - - ¶¶ - - - § - §§ - - - - - - - curatore - curatori - - - traduttore - traduttori - - - - - - - cur - cur - - - trad - trad - - a cura di - tradotto da - a - intervista di - cur. da - trad. da - Gennaio - Febbraio - Marzo - Aprile - Maggio - Giugno - Luglio - Agosto - Settembre - Ottobre - Novembre - Dicembre - Gen - Feb - Mar - Apr - Mag - Giu - Lug - Ago - Set - Ott - Nov - Dic - - diff --git a/test/modsCollection.xml b/test/modsCollection.xml deleted file mode 100644 --- a/test/modsCollection.xml +++ /dev/null @@ -1,963 +0,0 @@ - - - - - - - Perspectives - - letter to the editor - - 2000-04-24 - - - - Newsweek - - periodical - - continuing - - - - 135 - - - 17 - - - 21 - - - - - - - The Grandmas Pay a Visit - - - 2000-02-07 - - article - - - Newsweek - - - continuing - - periodical - - - 135 - - - 6 - - - 45 - - - - - - - Tremblay v. Québec (Attorney General) - - text - - 2001 - - legal case - - - C.S. - - - continuing - - court reporter - - - J.Q. No. 1504 - - - - Tremblay2001a - - - - Peter - van der Veer - - author - - - - Riots and Rituals - The Construction of Violence and Public Space in Hindu - Nationalism - - chapter - - riots - public space - India - - - - Paul - Brass - - editor - - - - Riots and Pogroms - - - 1996 - monographic - NYU Press - - New York - - - text - book - - - 154 - 176 - - - - - 2004-01-24 - Veer199a - - - - - Charles - Tilly - - reviewer - - - - Review of Moral Economy and Popular Protest - - - riots - - E - P - Thompson - - author - - - - Moral Economy and Popular Protest - Crowds, Conflict and Authority - - - Adrian - Randall - - editor - - - - Andrew - Charlesworth - - editor - - - - review - - - Journal of Interdisciplinary History - - text - - 2000 - continuing - - academic journal - - - 31 - - - 2 - - - 259 - 260 - - - - - 2003-12-11 - Tilly2000a - - - - - Charles - Tilly - - author - - - - Stories, Identities, and Political Change - - - 2002 - Rowman & Littlefield Publishers, Inc. - - Lanham, MD - - monographic - - text - book - - social movements - identity - protest - - - 2004-01-23 - Tilly2002a - - - - - For a New Regional Geography 1 - - - Thrift - Nigel - - author - - - article - text - - - Progress in Human Geography - - - 1990 - continuing - - academic journal - - - 14 - - - 2 - - - 272 - 279 - - - - - regional geography - - - social theory - - Thrift1990a - - - - Senators Stamp OK on Anti-Terrorism Laws - - article - text - - - Times - - - 2001-10-26 - continuing - - newspaper - - - A - 01 - - - - TimesP2001a - - - - - - The Human Condition - - - Arendt - Hannah - - author - - - book - text - - 1959 - - New York - - Doubleday - monographic - - Arendt1959a - - - - - Post-Fordism - Models, Fantasies and Phantoms of Transition - - - Ash - Amin - - author - - - text - - - Post-Fordism - A Reader - - - Ash - Amin - - editor - - - - 1994 - Blackwell Publishers - - Oxford - - monographic - - book - - - 23 - 45 - - - - Amin1994a - - - - - The Urban Question as a Scale Question - Reflections on Henri Lefebre, Urban Theory and the Politics of - Scale - - - Neil - Brenner - - author - - - - 2000 - - text - - - International Journal of Urban and Regional Research - - academic journal - - continuing - - - - 24 - - - 2 - - - 361 - 378 - - - - BrennerN2000a - - - - - A Test Article with Multiple Authors - - - John - Doe - - author - - - - Jane - Smith - - author - - - - Hugo - Chavez - - author - - - - Steve - Jones - - author - - - - Jennifer - Abel - - author - - - - Cynthia - McDonnell - - author - - - - Matthew - Turner - - author - - - - 2000 - - text - - - Journal of Marginal Research - - - continuing - - academic journal - - - 12 - - - 44 - - - 361 - 378 - - - - DoeJ2002a - - - - This is a second Test Article with Multiple Authors to test author substitution - - - John - Doe - - author - - - - Jane - Smith - - author - - - - Hugo - Chavez - - author - - - - Steve - Jones - - author - - - - Jennifer - Abel - - author - - - - Cynthia - McDonnell - - author - - - - Matthew - Turner - - author - - - - 2006 - - text - - - Journal of Higly Important Research - - - continuing - - academic journal - - - 9 - - - 5 - - - 241 - 258 - - - - DoeJ2006 - - - - - - How Social is the Animal? - The Human Capacity for Caring - - - C - Daniel - Batson - - author - - - - 1990-03 - - text - - - American Pyschologist - - academic journal - - continuing - - - - 45 - - - 336 - 346 - - - - - - - - Fifth-Grade Boys' Decisions about Participation in Sports - Activities - - - Alice - Conley - - author - - - - 1999 - - text - - - Non-subject-matter Outcomes of Schooling - - - Thomas - L - Good - - editor - - - - continuing - - academic journal - - - Special issue, Elementary School Journal - - - 99 - - - 5 - - - 131 - 146 - - - - - - - - 2700 MHz observations of 4c radio sources in the declination zone - +4 to -4 - - - Jasper - V - Wall - - author - - - text - - 1971 - - - - Australian J. Phys. Astronphys. - - - continuing - - academic journal - - - 20 - - - - - - - - Emergence and Dissolvence in the Self-Organization of Complex - Systems - - - Bernard - Testa - - author - - - - Lamont - B - Kier - - author - - - article - - 2000 - - - - Entropy - - - continuing - - academic journal - - - 2 - - - 1 - - - 17 - 17 - - - - http://www.mdpi.org/entropy/papers/e2010001.pdf - - - - - Poison Pen - - - The - review of The collaborator - Trial and Execution of Robert Brasillach - - - Lawrence - Osborne - - reviewer - - - - - The Collaborator - The Trial and Execution of Robert Brasillach - - - Kaplan - Aliec - - author - - - - - 2000-03-29 - - review - - - Salon - - - continuing - - periodical - - - http://www.salon.com/books/it/2000/03/29/kaplan/index.html - - - - - - Scars still raw, Bush clashes with McClain - - - Alison - Mitchell - - author - - - - Frank - Bruni - - author - - - - 2001-03-25 - - text - - - New York Times - - - continuing - - newspaper - - - http://www.nytimes.com/2001/03/25/politics/25MCCA.html - - - - - - Deforestation in Central America - Spanish Legacy and North American Consumers - - - Norman - Myers - - author - - - - Richard - P - Tucker - - author - - - text - - - Environmental Review - - - continuing - 1987 - - academic journal - - Spring - - 55 - 71 - - - - - - - - U.S. v. Christmas - - - U.S. Supreme Court, 4th Circuit. - - court - - - - 2000 - - legal case - - - F.3d - - - continuing - - court reporter - - - 222 - - - 141, 145 - - 2000 - - - - diff --git a/test/test.hs b/test/test.hs --- a/test/test.hs +++ b/test/test.hs @@ -1,108 +1,10 @@ -import Control.Arrow -import Control.Monad.State -import Data.IORef -import Language.Haskell.Parser -import Language.Haskell.Pretty (prettyPrint) -import qualified System.Console.GetOpt as O (OptDescr (..)) -import System.Console.GetOpt hiding (Option) import System.Environment -import System.Exit +import Text.CSL.Input.Json -import Text.CSL +-- a dir with a final slash +testDir = "citeproc-test/processor-tests/machines/" main :: IO () -main - = do - args <- getArgs - (o,f) <- getOpts args - i <- newIORef (Config False False [] [] []) - doOpts i o - c <- readIORef i - s <- readCSLFile f - processCitation c s - -bibfile :: String -bibfile = "/home/andrea/devel/haskell/src/citeproc-hs/data/test.xml" - -processCitation :: Config -> Style -> IO () -processCitation config s - = do - Control.Monad.State.when (dump config) $ - case parseModule $ "style = " ++ (show s) of - ParseOk a -> putStrLn (prettyPrint a) - ParseFailed loc err -> error ("Could not dump the internal representation of the style" ++ show loc ++ show err ++ show s) - when (mods config /= []) $ do - ref <- readModsFile (mods config) - let result = citeproc s [ref] [[(citeKey &&& const "") ref]] - putStrLn . concatMap renderPlainStrict $ citations result - putStrLn . concatMap renderPlainStrict $ bibliography result - - when (modsCo config /= []) $ do - ref <- readBiblioFile (modsCo config) "bibtex" - let result = citeproc s ref [map (citeKey &&& const "") ref] - case output config of - "pandoc" -> do let concatPan = foldr (\x xs -> if xs /= [] then x ++ "," ++ xs else x ++ xs) [] - putStrLn $ "Pandoc (Meta [] [] []) [" ++ concatPan (map (renderPandoc' s) $ bibliography result) ++ "]" - otherwise -> do let renderP = if (strict config) then renderPlainStrict else renderPlain - putStrLn $ unlines $ map renderP $ citations result - putStrLn $ unlines $ map renderP $ bibliography result - --- The needed boilerplate code for parsing command line options - -data Config - = Config - { dump :: Bool - , strict :: Bool - , mods :: String - , modsCo :: String - , output :: String - } deriving ( Show ) - -data Opts - = Help - | Mods String - | ModsCo String - | Output String - | Strict - | Dump - deriving Show - -opts :: [OptDescr Opts] -opts = - [ O.Option ['h','?' ] ["help" ] (NoArg Help ) "This help" - , O.Option ['d' ] ["dump" ] (NoArg Dump ) "Dump the internal representation of a style" - , O.Option ['s' ] ["strict" ] (NoArg Strict ) "Evaluate the style strictly" - , O.Option ['m' ] ["mods" ] (ReqArg Mods "file" ) "The file with a MODS record" - , O.Option ['c' ] ["collection"] (ReqArg ModsCo "file" ) "The file with a MODS Collection" - , O.Option ['o' ] ["output" ] (ReqArg Output "output") "The output format: 'plain' or 'pandoc'" - ] - -getOpts :: [String] -> IO ([Opts], String) -getOpts argv = - case getOpt Permute opts argv of - (_,[],_) -> error $ "No imput file\n" ++ usage - (o,[n],[]) -> return (o,n) - (_,_,errs) -> error $ concat errs ++ usage - -usage :: String -usage = (usageInfo header opts) ++ footer - where header = "Usage: test [OPTION...] CSLFILE\n" ++ - "Options:" - footer = "\nMail bug reports and suggestions to " ++ mail -mail :: String -mail = "\n" - -doOpts :: IORef Config -> [Opts] -> IO () -doOpts _ [] = return () -doOpts conf (o:oo) = - case o of - Help -> putStr usage >> exitWith ExitSuccess - Dump -> modifyIORef conf (\c -> (c { dump = True})) >> go - Strict -> modifyIORef conf (\c -> (c { strict = True})) >> go - Mods m -> modifyIORef conf (\c -> (c { mods = m })) >> go - ModsCo m -> modifyIORef conf (\c -> (c { modsCo = m })) >> go - Output o -> modifyIORef conf (\c -> (c { output = o })) >> go - where - go = doOpts conf oo - - +main = do + args <- getArgs + runTS args 0 testDir diff --git a/test/test.markdown b/test/test.markdown deleted file mode 100644 --- a/test/test.markdown +++ /dev/null @@ -1,23 +0,0 @@ -# Try Pandoc with Citeproc-hs - -We start with some normal links to [citeproc-hs] and [pandoc]. - -And now some citation. First a citation group, without locators: -[Veer1996a; Arendt1959a; DoeJ2002a]. Then another group, starting with -an ibid: [DoeJ2002a; BrennerN2000a; Conley1999; MitchellA2002]. - -This should be a court decision: [USvChristmas]. - -And now a group of already cited stuff: [BrennerN2000a; Conley1999; -Arendt1959a], followed by and ibid with locator: [Arendt1959a@p. -15-17]. - -And then a hude list of citations: [Tremblay2001a; Veer1996a; -Tilly2000a; Tilly2002a; Thrift1990a; TimesP2001a; Arendt1959a; -Amin1994a; BrennerN2000a; DoeJ2002a; DoeJ2006; Batson1990; Conley1999; -Wall1971; Osborne2001; MitchellA2002; MyersN1987] - -[citeproc-hs]: http://code.haskell.org/cioteproc-hs -[Pandoc]: http://johnmacfarlane.net/pandoc/ - -# Bibliography diff --git a/test/test_basic.hs b/test/test_basic.hs deleted file mode 100644 --- a/test/test_basic.hs +++ /dev/null @@ -1,55 +0,0 @@ -import Control.Monad.State - -import Text.XML.HXT.Arrow -import Control.Arrow - -import Text.CSL.Reference -import Text.CSL.Style -import Text.CSL.Proc -import Text.CSL.Parser -import Text.CSL.Output.Plain - -import RefData - -file :: String -file = "test/apa" - -localeFile :: String -localeFile = "test/locales-it-IT.xml" - -main :: IO () -main - = do - s <- readCSLFile file - processCitation s - -processCitation :: Style -> IO () -processCitation s@(Style {biblio = b, citation = c, csMacros = m , csTerms = terms}) - = do - let (lb,ob,sb) = case b of - Just (Bibliography o s lay) -> (lay,o,s) - _ -> error $ "no bibliography layout in style" - (lc,oc,sc) = case c of - Citation o s lay -> (lay,o,s) - putStrLn . concatMap renderPlain . processCitations s [rossato2006] $ [[("Rossato2006","p. 10-12")]] - putStrLn . unlines . map renderPlain . processBibliography s $ someReferences - -rossato2006 :: Reference -rossato2006 - = emptyReference { citeKey = "Rossato2006" - , refType = Book - , author = [Person "" ["Andrea"] "" "" "Rossato" "" - ,Person "On." ["Amedea"] "" "" "Uggino" "" - ,Person "" ["Luigi"] "" "" "Gazzoni" ""] - , editor = [Person "" ["Paola"] "" "" "Locatin" ""] - , translator = [Person "" ["Roberto"] "" "" "Caso" "" - ,Person "" ["Federico"] "" "" "Uggino" ""] - , title = "Diritto e architettura nello spazio digitale" - , issued = [RefDate 2006 1 16 ""] - , accessed = [RefDate 2006 1 16 ""] - , publisher = [Entity "Cedam"] - , publisherPlace = "Bologna" - , edition = "I" - , page = "12" - , url = "http://some.url.com" - } diff --git a/test/test_note.markdown b/test/test_note.markdown deleted file mode 100644 --- a/test/test_note.markdown +++ /dev/null @@ -1,40 +0,0 @@ -# Try Pandoc with Citeproc-hs - -We start with some normal links to [citeproc-hs] and [pandoc]. - -And now some citation. First a citation group.[^1] Then another group.[^2] - -This should be a court decision[^3]. - -And now a group of already cited stuff[^4], followed by and ibid with -locator.[^5] - -And then a hude list of citations[^6] - -[^1]: - Some citation without locators: [Veer1996a; Arendt1959a; - DoeJ2002a] - -[^2]: - Starting with an ibid: [DoeJ2002a; BrennerN2000a; - Conley1999; MitchellA2002] - -[^3]: - [USvChristmas] - -[^4]: - [BrennerN2000a; Conley1999; Arendt1959a] - -[^5]: - [Arendt1959a@p. 15-17] - -[^6]: - [Tremblay2001a; Veer1996a; Tilly2000a; Tilly2002a; Thrift1990a; - TimesP2001a; Arendt1959a; Amin1994a; BrennerN2000a; DoeJ2002a; - DoeJ2006; Batson1990; Conley1999; Wall1971; Osborne2001; - MitchellA2002; MyersN1987] - -[citeproc-hs]: http://code.haskell.org/cioteproc-hs -[Pandoc]: http://johnmacfarlane.net/pandoc/ - -# Bibliografia