diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,27 @@ +Copyright (c) Andrea Rossato + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: +1. Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. +2. Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. +3. Neither the name of the author nor the names of his contributors + may be used to endorse or promote products derived from this software + without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND +ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE +FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +SUCH DAMAGE. diff --git a/README b/README new file mode 100644 --- /dev/null +++ b/README @@ -0,0 +1,240 @@ +% citeproc-hs - A Haskell Implementation of the Citation Style Language +% Andrea Rossato + +About +----- + +[citeproc-hs] is a Haskell implementation of the Citation Style +Language [CSL]. + +[citeproc-hs] adds to [Pandoc], the famous [Haskell] text processing +tool, a Bibtex like citation and bibliographic formatting and +generation facility. + +[CSL] is an XML language for specifying citation and bibliographic +formatting, similar in principle to BibTeX `.bst` files or the binary +style files in commercial products like Endnote or Reference Manager. + +[CSL] is used by [Zotero] for bibliographic style formatting, and the +huge number of [CSL] styles developed by the [Zotero] community can +can be downloaded from here: + + + +There are plans to use CSL for adding bibliographic support to future +releases of [OpenOffice](http://bibliographic.openoffice.org/). + +[citeproc-hs] can process and format citations according to a [CSL] +style, given a [MODS] collection of references. + +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. + +[Bibutils] can be used to convert Bibtex and other bibliographic +databases to [MODS] collections, which can be thus read by +[citeproc-hs]. + +[Bibutils] also exports a library and a future plan is to use that +library for providing native support for the most widely used +bibliographic databases in [citeproc-hs]. + +[citeproc-hs] is a library that exports functions to parse [CSL] +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. + + +Download +-------- + +[citeproc-hs] can be downloaded from [Hackage]: + + + +To get the darcs source run: + + darcs get http://code.haskell.org/citeproc-hs/ + +Installation +------------ + +[citeproc-hs] depends on [hxt], the Haskell XML Tool Box. + +In order to install [citeproc-hs] you need to install [hxt] and its +dependencies. You can download everything from [Hackage]: + + + +Every package downloaded form [Hackage] can be installed with those +simple commands: + + runhaskell Setup.lhs configure + runhaskell Setup.lhs build + runhaskell Setup.lhs install + +This last step requires `root` privileges. + +If you don't have `root` privileges you can install citeproc-hs and +*all* its dependencies locally with these commands: + + runhaskell Setup.lhs configure --user --prefix=$HOME + runhaskell Setup.lhs build + runhaskell Setup.lhs install --user + +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: + + runhaskell Setup.lhs configure -f citeproc + runhaskell Setup.lhs build + runhaskell Setup.lhs install + +Citations are inserted like simple reference links: + + [Rossato2006] + +where `Rossato2006` is the reference id (or citation key) used in the +bibliographic database. + +Citation groups are also possible. Each citation is separated by a +semicolon: + + [Rossato2006; Pascuzzi2002] + + +The use of locators is also possible: + + [Rossato2006@ p. 10; Pascuzzi2002@ cap. 12] + +To automatically format citations and generate the bibliography, run +[Pandoc] with the `--csl` and `--mods` flags: + + pandoc --csl cslStyle.csl --mods modsCollection.xml text.markdown > text.html + +Obviously you can export the text into any of the formats supported by +[Pandoc]. + +Some examples can be found in the `test` directory of the source tree. + +You can try them with: + + pandoc --csl apa.csl --mods modsCollection.xml test.markdown + pandoc --csl apa.csl --mods modsCollection.xml test_note.markdown + +Documentation +------------- + +No further documentation is so far available and even haddock +generated documentation is at a very early stage. + +Some usage examples can be found in the `test` directory of the +source tree. + +Known Issues +------------ + +[citeproc-hs] is in an early stage of development and the [CSL] +implementation is not complete yet. + +Specifically the following options are not implemented: + + - "collapse" (citation collapsing) + - "hanging-indent" + - "second-field-align" + - "line-spacing" + - "entry-spacing" + +The [MODS] parser needs some refinement too. + +Bug Reports +----------- + +To submit bug reports you can use the Google code bug tracking system +available at the following address: + + + +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. + +[John MacFarlane], the author of [Pandoc], has been very supportive of +the project and provided a lot of useful feed back, comments and +suggestions. + +Author +------ + +Andrea Rossato + +`andrea.rossato at ing.unitn.it` + +Links to Related Projects +---------------- + +Pandoc +: + +Bibutils +: + +CSL +: + +Zotero +: + +MODS +: + +Legal +----- + +This software is released under a BSD-style license. See LICENSE for +more details. + +This is an early, "alpha" release. It carries no warranties of any kind. + +Copyright © 2008 Andrea Rossato + +[citeproc-hs]: http://code.haskell.org/cioteproc-hs +[CSL]: http://xbiblio.sourceforge.net/csl/ +[Pandoc]: http://johnmacfarlane.net/pandoc/ +[Zotero]: http://www.zotero.org +[MODS]: http://www.loc.gov/mods/ +[Bibutils]: http://www.scripps.edu/~cdputnam/software/bibutils/ +[Hackage]: http://hackage.haskell.org/cgi-bin/hackage-scripts/package/citeproc-hs +[hxt]: http://www.fh-wedel.de/~si/HXmlToolbox/ +[Bruce D'Arcus]: http://community.muohio.edu/blogs/darcusb/ +[John MacFarlane]: http://johnmacfarlane.net/ + +[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/ diff --git a/Setup.lhs b/Setup.lhs new file mode 100644 --- /dev/null +++ b/Setup.lhs @@ -0,0 +1,3 @@ +#!/usr/bin/env runhaskell +> import Distribution.Simple +> main = defaultMain diff --git a/citeproc-hs.cabal b/citeproc-hs.cabal new file mode 100644 --- /dev/null +++ b/citeproc-hs.cabal @@ -0,0 +1,87 @@ +name: citeproc-hs +version: 0.1 +homepage: http://code.haskell.org/citeproc-hs +synopsis: A Citation Style Language implementation in Haskell + +description: citeproc-hs is a Hakell port of Citeproc, a + processor for converting citations into a variety + of formats using a macro language called Citation + Style Language (CSL). + . + For more details on Citeproc and CSL, please check: + . + +category: Text +license: BSD3 +license-file: LICENSE +author: Andrea Rossato +maintainer: andrea.rossato@ing.unitn.it +cabal-version: >= 1.2 +build-type: Simple +data-files: locales/locales-af-AZ.xml + locales/locales-af-ZA.xml + locales/locales-ar-AR.xml + locales/locales-bg-BG.xml + locales/locales-ca-AD.xml + locales/locales-cs-CZ.xml + locales/locales-da-DK.xml + locales/locales-de-AT.xml + locales/locales-de-CH.xml + locales/locales-de-DE.xml + locales/locales-el-GR.xml + locales/locales-en-US.xml + locales/locales-es-ES.xml + locales/locales-et-EE.xml + locales/locales-fr-FR.xml + locales/locales-he-IL.xml + locales/locales-hu-HU.xml + locales/locales-is-IS.xml + locales/locales-it-IT.xml + locales/locales-ja-JP.xml + locales/locales-ko-KR.xml + locales/locales-mn-MN.xml + locales/locales-nb-NO.xml + locales/locales-nl-NL.xml + locales/locales-pl-PL.xml + locales/locales-pt-BR.xml + locales/locales-pt-PT.xml + locales/locales-ro-RO.xml + locales/locales-ru-RU.xml + locales/locales-sk-SK.xml + locales/locales-sl-SI.xml + locales/locales-sr-RS.xml + locales/locales-sv-SE.xml + locales/locales-th-TH.xml + locales/locales-tr-TR.xml + locales/locales-vi-VN.xml + locales/locales-zh-CN.xml + locales/locales-zh-TW.xml + +flag small_base + description: Choose the new smaller, split-up base package. + +flag test + description: Run the textsuite. + +library + exposed-modules: Text.CSL + Text.CSL.Eval + Text.CSL.Parser + Text.CSL.Proc + Text.CSL.Reference + Text.CSL.Style + Text.CSL.Input.MODS + 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 dist/build/autogen + + if flag(small_base) + build-depends: base >= 3, containers, directory + + else + build-depends: base < 3 + + build-depends: mtl, hxt >= 8.1 diff --git a/locales/locales-af-AZ.xml b/locales/locales-af-AZ.xml new file mode 100644 --- /dev/null +++ b/locales/locales-af-AZ.xml @@ -0,0 +1,147 @@ + + + + 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 new file mode 100644 --- /dev/null +++ b/locales/locales-af-ZA.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-ar-AR.xml b/locales/locales-ar-AR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-ar-AR.xml @@ -0,0 +1,199 @@ + + + + عند + في + آيبيد + زير + جلب + من + القادم + مراجع + + و + et al. + مقابلة + رسالة + مجهول + مجهول + وآخرون + تحت الطبع + ربط مباشر + وثِّقَ + الإنترنت + قُدَّم في + علم الإنسان + علم الفلك + علم الأحياء + علم النبات + علم الكيمياء + الهندسة + أساس عام + جغرافيا + علم الأرض + التاريخ + الإنسانيات + الأدب + الرياضيات + الطب + الفلسفة + الفيزياء + علم النفس + علم الإجتماع + العلوم + العلوم السياسية + العلوم الإجتماعية + العلوم الإلهية + علم الحيوان + + كتاب + كُتُب + + + فصل + فصول + + + عمود + أعمدة + + + رسم توضيحي + رسوم توضيحية + + + ورقة + أوراق + + + عدد + أعداد + + + سطر + أسطر + + + ملاحظة + ملاحظات + + + قطعة موسيقية + أوبرا + + + صفحة + صفحات + + + فقرة + فقرات + + + جزء + أجزاء + + + قسم + أقسام + + + مجلد + مجلدات + + + الطبعة + الطبعات + + + بيت + أبيات + + ك + ف + عم + ر + و + عد + مم + + ص + ص.ص + + فق + جز + ق + + ب + بب + + + مج + مجج + + edition + ط + + + ¶¶ + + + § + §§ + + + + + + + تحرير + تحرير + + + ترجمة + ترجمة + + + + + + + مح + محح + + + تر + ترر + + حرره + ترجمه + إلى + مقابلة بواسطة + مح + مت + يناير + فبراير + مارس + ابريل + مايو + يونيو + يوليو + اغسطس + سبتمبر + اكتوبر + نوفمبر + ديسمبر + يناير + فبراير + مارس + ابريل + مايو + يونيو + يوليو + اغسطس + سبتمبر + اكتوبر + نوفمبر + ديسمبر + + diff --git a/locales/locales-bg-BG.xml b/locales/locales-bg-BG.xml new file mode 100644 --- /dev/null +++ b/locales/locales-bg-BG.xml @@ -0,0 +1,199 @@ + + + + в + в + пак там + отворен на + изтеглен на + от + предстоящ + цитати + без дата + и + и съавт. + интервю + писмо + анонимен + анон + и други + под печат + онлайн + цитиран + интернет + представен на + антропология + астрономия + биология + ботаника + химия + инженерство + обща база + география + геология + история + хуманитарни науки + литература + математика + медицина + философия + физика + физиология + социология + наука + политически науки + обществени науки + теология + зоология + + книга + книги + + + глава + глави + + + колона + колони + + + фигура + фигури + + + фолио + фолия + + + брой + броеве + + + ред + редове + + + бележка + бележки + + + опус + опуси + + + страница + страници + + + параграф + параграфи + + + част + части + + + раздел + раздели + + + том + томове + + + издание + издания + + + стих + стихове + + кн + гл + кол + фиг + фол + бр + оп + + с + с-ци + + п + ч + разд + + ст + ст-ове + + + том + т-ове + + edition + изд + + + ¶¶ + + + § + §§ + + + автор + автори + + + редактор + редактори + + + преводач + преводачи + + + авт + авт-ри + + + ред + ред-ри + + + прев + прев-чи + + редактиран от + преведен от + до + интервюиран от + ред + прев + Януари + Февруари + Март + Април + Май + Юни + Юли + Август + Септември + Октомври + Ноември + Декември + Яну + Фев + Мар + Апр + Май + Юни + Юли + Авг + Сеп + Окт + Ное + Дек + + diff --git a/locales/locales-ca-AD.xml b/locales/locales-ca-AD.xml new file mode 100644 --- /dev/null +++ b/locales/locales-ca-AD.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-cs-CZ.xml b/locales/locales-cs-CZ.xml new file mode 100644 --- /dev/null +++ b/locales/locales-cs-CZ.xml @@ -0,0 +1,199 @@ + + + + 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-da-DK.xml b/locales/locales-da-DK.xml new file mode 100644 --- /dev/null +++ b/locales/locales-da-DK.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-de-AT.xml b/locales/locales-de-AT.xml new file mode 100644 --- /dev/null +++ b/locales/locales-de-AT.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-de-CH.xml b/locales/locales-de-CH.xml new file mode 100644 --- /dev/null +++ b/locales/locales-de-CH.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-de-DE.xml b/locales/locales-de-DE.xml new file mode 100644 --- /dev/null +++ b/locales/locales-de-DE.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-el-GR.xml b/locales/locales-el-GR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-el-GR.xml @@ -0,0 +1,199 @@ + + + + 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 new file mode 100644 --- /dev/null +++ b/locales/locales-en-US.xml @@ -0,0 +1,219 @@ + + + + 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-es-ES.xml b/locales/locales-es-ES.xml new file mode 100644 --- /dev/null +++ b/locales/locales-es-ES.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-et-EE.xml b/locales/locales-et-EE.xml new file mode 100644 --- /dev/null +++ b/locales/locales-et-EE.xml @@ -0,0 +1,199 @@ + + + + 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-fr-FR.xml b/locales/locales-fr-FR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-fr-FR.xml @@ -0,0 +1,199 @@ + + + + à + 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 + + diff --git a/locales/locales-he-IL.xml b/locales/locales-he-IL.xml new file mode 100644 --- /dev/null +++ b/locales/locales-he-IL.xml @@ -0,0 +1,199 @@ + + + + -ב + בתוך + שם + גישה + אוחזר + מתוך + 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 + + diff --git a/locales/locales-hu-HU.xml b/locales/locales-hu-HU.xml new file mode 100644 --- /dev/null +++ b/locales/locales-hu-HU.xml @@ -0,0 +1,199 @@ + + + + + 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 + + diff --git a/locales/locales-is-IS.xml b/locales/locales-is-IS.xml new file mode 100644 --- /dev/null +++ b/locales/locales-is-IS.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-it-IT.xml b/locales/locales-it-IT.xml new file mode 100644 --- /dev/null +++ b/locales/locales-it-IT.xml @@ -0,0 +1,199 @@ + + + + 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/locales/locales-ja-JP.xml b/locales/locales-ja-JP.xml new file mode 100644 --- /dev/null +++ b/locales/locales-ja-JP.xml @@ -0,0 +1,199 @@ + + + + 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月 + + diff --git a/locales/locales-ko-KR.xml b/locales/locales-ko-KR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-ko-KR.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-mn-MN.xml b/locales/locales-mn-MN.xml new file mode 100644 --- /dev/null +++ b/locales/locales-mn-MN.xml @@ -0,0 +1,199 @@ + + + + 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-nb-NO.xml b/locales/locales-nb-NO.xml new file mode 100644 --- /dev/null +++ b/locales/locales-nb-NO.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-nl-NL.xml b/locales/locales-nl-NL.xml new file mode 100644 --- /dev/null +++ b/locales/locales-nl-NL.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-pl-PL.xml b/locales/locales-pl-PL.xml new file mode 100644 --- /dev/null +++ b/locales/locales-pl-PL.xml @@ -0,0 +1,199 @@ + + + + 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ń + + diff --git a/locales/locales-pt-BR.xml b/locales/locales-pt-BR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-pt-BR.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-pt-PT.xml b/locales/locales-pt-PT.xml new file mode 100644 --- /dev/null +++ b/locales/locales-pt-PT.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-ro-RO.xml b/locales/locales-ro-RO.xml new file mode 100644 --- /dev/null +++ b/locales/locales-ro-RO.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-ru-RU.xml b/locales/locales-ru-RU.xml new file mode 100644 --- /dev/null +++ b/locales/locales-ru-RU.xml @@ -0,0 +1,199 @@ + + + + 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 + ред + перев + Январь + Февраль + Март + Апрель + Май + Июнь + Июль + Август + Сентябрь + Октябрь + Ноябрь + Декабрь + Янв + Фев + Мар + Апр + Май + Июн + Июл + Авг + Сен + Окт + Ноя + Дек + + diff --git a/locales/locales-sk-SK.xml b/locales/locales-sk-SK.xml new file mode 100644 --- /dev/null +++ b/locales/locales-sk-SK.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-sl-SI.xml b/locales/locales-sl-SI.xml new file mode 100644 --- /dev/null +++ b/locales/locales-sl-SI.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-sr-RS.xml b/locales/locales-sr-RS.xml new file mode 100644 --- /dev/null +++ b/locales/locales-sr-RS.xml @@ -0,0 +1,199 @@ + + + + на + у + ibid + приступљено + преузето + од + долазећи + референце + без датума + и + и остали + интервју + писмо + анонимна + анон + и остали + у штампи + на Интернету + цитирано + Интернет + представљено на + антропологија + астрономија + биологија + ботаника + хемија + инжињерство + уопштена основа + географија + геологија + историја + култура и уметност + литература + математика + медицина + филозофија + физика + психологија + социологија + наука + политичка наука + друштвена наука + теологија + зоологија + + књига + књиге + + + поглавље + поглавља + + + колона + колоне + + + цртеж + цртежи + + + фолио + фолији + + + број + бројеви + + + линија + линије + + + белешка + белешке + + + опус + опера + + + страница + странице + + + параграф + параграфи + + + део + делова + + + одељак + одељака + + + том + томова + + + издање + издања + + + строфа + строфе + + књига + Пог + кол + црт + фолио + изд + оп + + стр + стр + + пар + део + од + + стр + стр + + + том + томови + + edition + изд + + + ¶¶ + + + § + §§ + + + + + + + уредник + урединици + + + преводилац + преводиоци + + + + + + + ур + ур + + + прев + прев + + уредио + превео + прима + интервјуисао + ур + прев + Јануар + Фебруар + Март + Април + Мај + Јуни + Јули + Август + Септембар + Октобар + Новембар + Децембар + Јан + Феб + Март + Апр + Мај + Јуни + Јули + Авг + Сеп + Окт + Нов + Дец + + diff --git a/locales/locales-sv-SE.xml b/locales/locales-sv-SE.xml new file mode 100644 --- /dev/null +++ b/locales/locales-sv-SE.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-th-TH.xml b/locales/locales-th-TH.xml new file mode 100644 --- /dev/null +++ b/locales/locales-th-TH.xml @@ -0,0 +1,199 @@ + + + + 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-tr-TR.xml b/locales/locales-tr-TR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-tr-TR.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-vi-VN.xml b/locales/locales-vi-VN.xml new file mode 100644 --- /dev/null +++ b/locales/locales-vi-VN.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-zh-CN.xml b/locales/locales-zh-CN.xml new file mode 100644 --- /dev/null +++ b/locales/locales-zh-CN.xml @@ -0,0 +1,199 @@ + + + + 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 + + diff --git a/locales/locales-zh-TW.xml b/locales/locales-zh-TW.xml new file mode 100644 --- /dev/null +++ b/locales/locales-zh-TW.xml @@ -0,0 +1,199 @@ + + + + 在 + 在 + 同上出處 + 被取用 + 被取回 + 從 + 將來的 + 參考資料 + 無日期 + 及 + 等人 + 訪問 + 信件 + 不具名的 + 無名 + 及其他 + 印行中 + 在線上 + 被引用 + 網際網路 + 簡報於 + 人類學 + 天文學 + 生物學 + 植物學 + 化學 + 工程學 + 一般基礎 + 地理學 + 地質學 + 歷史學 + 人文學科 + 文學 + 數學 + 醫學 + 哲學 + 物理學 + 心理學 + 社會學 + 自然科學 + 政治科學 + 社會科學 + 神學 + 動物學 + + 書 + 書 + + + 章 + 章 + + + 欄 + 欄 + + + 圖 + 圖 + + + 對開紙 + 對開紙 + + + 期數 + 期數 + + + 行 + 行 + + + 筆記 + 筆記 + + + 作品 + 作品 + + + 頁 + 頁 + + + 段落 + 段落 + + + 部 + 部 + + + 節 + 節 + + + 冊 + 冊 + + + 版本 + 版本 + + + 詩句 + 詩句 + + 書 + 章 + 欄 + 圖 + 開 + 期 + 作 + + 頁 + 頁 + + 段 + 部 + 節 + + 句 + 句 + + + 冊 + 冊 + + edition + 版 + + + ¶¶ + + + § + §§ + + + 作者 + 作者 + + + 編輯 + 編輯 + + + 翻譯 + 翻譯 + + + 作 + 作 + + + 編 + 編 + + + 譯 + 譯 + + 編者是 + 譯者是 + 授與 + 訪問者是 + 編 + 譯 + 一月 + 二月 + 三月 + 四月 + 五月 + 六月 + 七月 + 八月 + 九月 + 十月 + 十一月 + 十二月 + 1月 + 2月 + 3月 + 4月 + 5月 + 6月 + 7月 + 8月 + 9月 + 10月 + 11月 + 12月 + + diff --git a/src/Text/CSL.hs b/src/Text/CSL.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL.hs @@ -0,0 +1,45 @@ +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CSL implementation +-- +----------------------------------------------------------------------------- + +module Text.CSL + ( readCSLFile + , readModsFile + , readModsColletionFile + , Reference (..) + , getReference + , Style (..) + , Citation (..) + , Bibliography (..) + , FormattedOutput (..) + , evalLayout + , BiblioData (..) + , citeproc + , processCitations + , processBibliography + , renderPlain + , renderPlainStrict + , renderPandoc + , renderPandoc' + , renderPandocStrict + ) where + +import Text.CSL.Eval +import Text.CSL.Parser +import Text.CSL.Proc +import Text.CSL.Reference +import Text.CSL.Style +import Text.CSL.Input.MODS +import Text.CSL.Output.Pandoc +import Text.CSL.Output.Plain + diff --git a/src/Text/CSL/Eval.hs b/src/Text/CSL/Eval.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Eval.hs @@ -0,0 +1,411 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Eval +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CSL implementation +-- +----------------------------------------------------------------------------- + +module Text.CSL.Eval 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.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 ) + +evalLayout :: Layout -> Bool -> [TermMap] -> [MacroMap] + -> [Option] -> String -> Reference -> [Output] +evalLayout (Layout _ _ es) b t m o p r = evalState job initSt + where + job = concatMapM evalElement es + initSt = EvalState (mkRefMap r) p (Env t m o []) [] b False + +evalSorting :: [TermMap] -> [MacroMap] -> [Option] -> [Sort] -> Reference -> [Sorting] +evalSorting ts 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 + 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 ) + +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 [] + where + tryGroup l = get >>= \s -> evalElements (rmTermConst l) >>= \r -> put s >> return r + rmTermConst [] = [] + rmTermConst (e:es) + | Term {} <- e = rmTermConst es + | Const {} <- e = rmTermConst es + | otherwise = e : rmTermConst es + + 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 + + getFirst [] = return [] + getFirst (x:xs) = whenElse ((/=) [] <$> evalElement x) + (consuming $ evalElement x) + (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 + +evalIfThen :: IfThen -> [IfThen] -> [Element] -> State EvalState [Output] +evalIfThen i ei e + | IfThen c m el <- i = ifElse c m el + | otherwise = evalElements e + where + ifElse c m el = if ei == [] + then whenElse (evalCond m c) + (evalElements el) + (evalElements e ) + 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 + 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 + checkMatch m + | All <- m = return [True] + | otherwise = return [False] + + 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 + 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 + | 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 . FC k res =<< + mapM (rest ags ea s) [1 + l .. length ags] + else return [] + r' <- evalNames xs nl d + return $ if r /= [] && r' /= [] + then r ++ [S 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) + | Just v <- fromValue val :: Maybe Int = output fm (if v == 0 then [] else show v) + | Just v <- fromValue val :: Maybe [RefDate] = formatDate s [] defaultDate v + | Just v <- fromValue val :: Maybe [Agent] = concatMap (formatName True f fm defaultNameFormatting) 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) ++ S (d <> andStr nf) : [last x] + | length x == 2 = addDelim d (init x) ++ S ( andStr nf) : [last x] + | length x > 2 = addDelim d (init x) ++ S (d <> andStr nf) : [last x] + | otherwise = addDelim d x + andStr nf + | "text" <- andConnector nf = " and " + | "symbol" <- andConnector nf = " & " + | otherwise = [] + isPlural p = (&&) p . (<) 1 + +formatName :: Bool -> Form -> Formatting -> NameFormatting -> Agent -> [Output] +formatName b f fm nf n + | Person {} <- n + , Short <- f = return $ FN short rest fm + | Person {} <- n = return $ FN (long given') [long given] fm + | Entity s <- n = output fm s + | otherwise = [] + where + rest = [ family $ concatMap (flip (:) ". " . head) (givenName n) + , long given] + addSpace = flip (++) (if b then [] 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) + +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 + where + format t b = return . output fm =<< flip (++) period <$> getTerm (b && p) f t + period = if i then "." else [] + +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 $ FY (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" + +output :: Formatting -> String -> [Output] +output fm s = if s /= "" then [FS s fm] else [] + +appendOutput :: Formatting -> [Output] -> [Output] +appendOutput fm xs = if xs /= [] then [O xs fm] else [] + +outputList :: Formatting -> Delimiter -> [Output] -> [Output] +outputList fm d = appendOutput fm . addDelim d . cleanOutput + +cleanOutput :: [Output] -> [Output] +cleanOutput = filter isNotEmpty + where + isNotEmpty (FS "" _) = False + isNotEmpty _ = True + +addDelim :: String -> [Output] -> [Output] +addDelim d = foldr (\x xs -> if length xs < 1 then x : xs else x : S d : xs) [] + +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 + +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} + +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 + +formatVariable :: String -> String +formatVariable = foldr f [] + where f x xs = if x == '_' then '-' : xs else toLower x : xs + +trace :: String -> State EvalState () +trace d = modify $ \s -> s { debug = d : debug s } diff --git a/src/Text/CSL/Input/MODS.hs b/src/Text/CSL/Input/MODS.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Input/MODS.hs @@ -0,0 +1,281 @@ +{-# LANGUAGE PatternGuards #-} +{-# OPTIONS_GHC -fno-warn-orphans #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Input.MODS +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- An ugly MODS parser +-- +----------------------------------------------------------------------------- + +module Text.CSL.Input.MODS where + +import Text.CSL.Output.Plain ( (<+>) ) +import Text.CSL.Parser ( xpIElem, readXmlFile ) +import Text.CSL.Reference + +import Text.XML.HXT.Arrow.Pickle.Xml + +import Data.Char ( isDigit ) + +readModsFile :: String -> IO Reference +readModsFile f = readXmlFile xpMods f + +readModsColletionFile :: String -> IO [Reference] +readModsColletionFile f = readXmlFile xpModsCollection f + +xpModsCollection :: PU [Reference] +xpModsCollection = xpElem "modsCollection" $ xpList xpMods + +xpMods :: PU Reference +xpMods = xpElem "mods" xpReference + +xpReference :: PU Reference +xpReference + = xpWrap ( \ ( ref + , (ck,ty,ti) + ,((au,ed,tr),(re,it,pu'),(co,ce)) + , (di,pu,pp) + , (ac,uri) + ) -> + ref { citeKey = ck `betterThen` take 10 (concat $ words ti) + , refType = if refType ref /= NoType then refType ref else ty + , title = ti + , author = au + , editor = ed `betterThen` editor ref + , 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 + , url = uri + , accessed = ac + , page = page ref + , volume = volume ref + , issue = issue ref + , number = number ref + , section = section ref + , chapterNumber = chapterNumber ref + } + , \r -> ( r + , (citeKey r, refType r, title r) + ,((author r, editor r, translator r) + ,(recipient r, interviewer r, publisher r) + ,(composer r, collectionEditor r)) + , (issued r, publisher r, publisherPlace r) + , (accessed r, url r) + )) $ + xp5Tuple (xpDefault emptyReference xpRelatedItem) + (xpTriple xpCiteKey xpRefType xpTitle ) + xpAgents xpOrigin xpUrl + +xpCiteKey :: PU String +xpCiteKey + = xpDefault [] $ + xpChoice (xpAttr "ID" xpText) + (xpIElem "identifier" xpText) + xpLift + +xpOrigin :: PU ([RefDate],[Agent],String) +xpOrigin + = xpDefault ([],[],[]) . xpIElem "originInfo" $ + xpTriple (xpDefault [] $ xpWrap (readDate,show) $ + xpIElem "dateIssued" xpText0) + (xpDefault [] $ xpList $ xpWrap (Entity, show) $ + xpIElem "publisher" xpText0) + (xpDefault [] $ xpIElem "place" xpText0) + +xpRefType :: PU RefType +xpRefType + = xpDefault NoType $ + xpWrap (readType, show) xpGenre + where + readType t + | "conference publication" <- t = PaperConference + | "periodical" <- t = ArticleJournal + | otherwise = Book + +xpRefType' :: PU RefType +xpRefType' + = xpDefault NoType $ + xpWrap (readTypeIn, show) xpGenre + where + readTypeIn t + | "book" <- t = Chapter + | "conference publication" <- t = PaperConference + | otherwise = ArticleJournal + +xpGenre :: PU String +xpGenre + = xpWrap (concat, return) $ + xpList $ xpIElem "genre" $ + xpChoice xpZero + (xpPair (xpDefault [] $ xpAttr "authority" xpText) xpText) + $ \(a,s) -> if a == "marcgt" + then xpLift s else xpGenre + +xpRelatedItem :: PU Reference +xpRelatedItem + = xpIElem "relatedItem" . xpAddFixedAttr "type" "host" $ + xpWrap ( \( (ty,ct) + ,((ca,ed,tr),(re,it,pu'),(co,ce)) + ,((di,pg,vl,is),(nu,sc,ch)) + , (di',pu,pp) + ) -> + emptyReference { refType = ty + , containerAuthor = ca + , containerTitle = ct + , editor = ed + , translator = tr + , recipient = re + , interviewer = it + , publisher = pu `betterThen` pu' + , publisherPlace = pp + , composer = co + , collectionEditor = ce + , issued = di `betterThen` di' + , page = pg + , volume = vl + , issue = is + , number = nu + , section = sc + , chapterNumber = ch + } + , \r -> ( (refType r, containerTitle r) + ,((containerAuthor r, editor r, translator r) + ,(recipient r, interviewer r, publisher r) + ,(composer r, collectionEditor r)) + ,((issued r, page r, volume r, issue r) + ,(number r, section r, chapterNumber r)) + , (issued r, publisher r, publisherPlace r) + )) $ + xp4Tuple (xpPair xpRefType' xpTitle) + xpAgents xpPart xpOrigin + +-- FIXME: join title and subtitle correctly +xpTitle :: PU String +xpTitle + = xpWrap (\(t,s) -> t <+> s, \s -> (s,[])) $ + xpIElem "titleInfo" $ + xpPair (xpIElem "title" xpText0) + (xpDefault [] $ xpIElem "subTitle" xpText0) + +xpAgents :: PU (([Agent],[Agent],[Agent]) + ,([Agent],[Agent],[Agent]) + ,([Agent],[Agent])) +xpAgents + = xpTriple (xpTriple (xpAgent "author" "aut") + (xpAgent "editor" "edt") + (xpAgent "translator" "trl")) + (xpTriple (xpAgent "recipient" "rcp") + (xpAgent "interviewer" "ivr") + (xpAgent "publisher" "pbl")) + (xpPair (xpAgent "composer" "cmp") + (xpAgent "collector" "xol")) + +xpAgent :: String -> String -> PU [Agent] +xpAgent sa sb + = xpDefault [] $ xpList $ xpIElem "name" $ + xpChoice xpZero + (xpIElem "role" $ xpIElem "roleTerm" xpText0) + (\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)) $ + xpAddFixedAttr "type" "personal" xpNameData + , xpWrap ( \(_,s) -> Entity s + , \(Entity s) -> ([],s)) $ + xpAddFixedAttr "type" "corporate" xpNameData + ] + +xpNameData :: PU ([String],String) +xpNameData + = xpWrap (readName,const []) $ + xpList $ xpElem "namePart" $ xpPair (xpAttr "type" xpText) xpText0 + where + readName x = (readg x, readf x) + readf = foldr (\(k,v) xs -> if k == "family" then v else xs) [] + readg = foldr (\(k,v) xs -> if k == "given" then v:xs else xs) [] + +xpPart :: PU (([RefDate],String,String,String) + ,(String,String,String)) +xpPart + = xpDefault none . xpIElem "part" . + xpWrap (readIt none,const []) $ xpList xpDetail + where + none = (([],"","",""),("","","")) + readIt r [] = r + readIt acc@((d,p,v,i),(n,s,c)) (x:xs) + | Date y <- x = readIt ((y,p,v,i),(n,s,c)) xs + | Page y <- x = readIt ((d,y,v,i),(n,s,c)) xs + | Volume y <- x = readIt ((d,p,y,i),(n,s,c)) xs + | Issue y <- x = readIt ((d,p,v,y),(n,s,c)) xs + | Number y <- x = readIt ((d,p,v,i),(y,s,c)) xs + | ChapterNr y <- x = readIt ((d,p,v,i),(n,s,y)) xs + | Section y <- x = readIt ((d,p,v,i),(n,y,c)) xs + | otherwise = acc + +data Detail + = Date [RefDate] + | Page String + | Volume String + | Issue String + | Number String + | ChapterNr String + | Section String + deriving ( Eq, Show ) + +xpDetail :: PU Detail +xpDetail + = xpAlt tag ps + where + tag _ = 0 + ps = [ xpWrap (Date, const []) $ xpDate + , xpWrap (Page, show) $ xpPage + , xpWrap (Volume, show) $ xp "volume" + , xpWrap (Issue, show) $ xp "issue" + , xpWrap (Number, show) $ xp "number" + , xpWrap (Section, show) $ xp "section" + , xpWrap (ChapterNr,show) $ xp "chapter" + ] + xpDate = xpWrap (readDate,show) (xpElem "date" xpText0) + xp s = xpElemWithAttrValue "detail" "type" s $ + xpElem "number" xpText + +xpPage :: PU String +xpPage + = xpChoice (xpElemWithAttrValue "detail" "type" "page" $ xpIElem "number" xpText) + (xpElemWithAttrValue "extent" "unit" "page" $ + xpPair (xpElem "start" xpText) + (xpElem "end" xpText)) + (\(s,e) -> xpLift (s ++ "-" ++ e)) + +xpUrl :: PU ([RefDate],String) +xpUrl + = xpDefault ([],[]) . xpIElem "location" $ + xpPair (xpWrap (readDate,show) $ + xpDefault [] $ xpAttr "dateLastAccessed" xpText) + (xpDefault [] $ xpElem "url" xpText) + +readDate :: String -> [RefDate] +readDate s = if takeWhile isDigit s /= [] + then return $ RefDate (read $ takeWhile isDigit s) 0 0 [] + else [] + +betterThen :: Eq a => [a] -> [a] -> [a] +betterThen a b = if a == [] then b else a diff --git a/src/Text/CSL/Output/Pandoc.hs b/src/Text/CSL/Output/Pandoc.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Output/Pandoc.hs @@ -0,0 +1,171 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Output.Pandoc +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The pandoc output formatter for CSL +-- +----------------------------------------------------------------------------- + +module Text.CSL.Output.Pandoc + ( renderPandoc + , renderPandocStrict + , renderPandoc' + , Pandoc (..), Meta (..) + ) where + +import Data.Char ( toUpper, toLower ) +import Data.List + +import Text.CSL.Style +import Text.CSL.Output.Plain + +renderPandoc :: Style -> [FormattedOutput] -> String +renderPandoc _ + = show . clean . concatMap (render False) + +renderPandoc' :: Style -> [FormattedOutput] -> String +renderPandoc' _ + = show . Para . clean . concatMap (render False) + +renderPandocStrict :: [FormattedOutput] -> String +renderPandocStrict + = show . cleanStrict . concatMap (render 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) + 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 + + quote i = if i /= [] && quotes fm + then [Quoted DoubleQuote . valign . cleaner $ i] + else valign (cleaner i) + + capital s = toUpper (head s) : (tail s) + + 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 + + font_variant 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 + + valign i + | "sup" <- verticalAlign fm = [Superscript i] + | "sub" <- verticalAlign fm = [Subscript i] + | otherwise = i + +toStr :: String -> [Inline] +toStr s + | ' ':xs <- s = Space : toStr xs + | x :xs <- s = cleanStrict $ Str [x] : toStr xs + | otherwise = [] + +cleanStrict :: [Inline] -> [Inline] +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 + +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 + +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 [] = [] +lastInline (i:[]) + | Str s <- i = last' s + | Space <- i = " " + | otherwise = lastInline $ getInline i + where + 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 + | otherwise = [] + where + tail' s = if s /= [] then tail s else [] + +getInline :: Inline -> [Inline] +getInline i + | Emph is <- i = is + | SmallCaps is <- i = is + | Strong is <- i = is + | Superscript is <- i = is + | Subscript is <- i = is + | Quoted _ 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 new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Output/Plain.hs @@ -0,0 +1,69 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Output.Plain +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The plain ascii output formatter for CSL +-- +----------------------------------------------------------------------------- + +module Text.CSL.Output.Plain + ( renderPlain + , renderPlainStrict + , procList + , (<+>) + , (<>) + ) where + +import Data.Char +import Data.List + +import Text.CSL.Style + +renderPlain :: [FormattedOutput] -> String +renderPlain = concatMap $ render False + +renderPlainStrict :: [FormattedOutput] -> String +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 + where + rest = 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 + + 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 + +procList :: Eq a => [a] -> ([a] -> [b]) -> [b] +procList s f = if s /= [] then f s else [] + +(<+>) :: String -> String -> String +[] <+> ss = ss +s <+> [] = s +s <+> ss = s ++ " " ++ ss + +(<>) :: String -> String -> String +sa <> sb + | sa /= [], (s:xs) <- sb + , last sa == s + , s `elem` ";:,. " = sa ++ xs + | otherwise = sa ++ sb diff --git a/src/Text/CSL/Parser.hs b/src/Text/CSL/Parser.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Parser.hs @@ -0,0 +1,421 @@ +{-# LANGUAGE PatternGuards #-} +{-# OPTIONS_GHC -fno-warn-orphans #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Parser +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CS Language parsers +-- +----------------------------------------------------------------------------- + +module Text.CSL.Parser where + +import Paths_citeproc_hs ( getDataFileName ) +import Text.CSL.Style + +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 + +instance XmlPickler Layout where + xpickle = xpWrap (uncurry3 Layout, \(Layout f d e) -> (f,d,e)) $ + xpIElem "layout" $ + xpTriple xpickle xpDelimiter xpickle + +instance XmlPickler Element where + xpickle = xpAlt tag ps + where + tag (Choose {}) = 0 + tag (Macro {}) = 1 + tag (Const {}) = 2 + tag (PointLocator {}) = 3 + tag (Variable {}) = 4 + tag (Term {}) = 5 + tag (Label {}) = 6 + tag (Names {}) = 7 + tag (ShortNames {}) = 8 + tag (Substitute {}) = 9 + tag (Group {}) = 10 + tag (Number {}) = 11 + tag (Date {}) = 12 + ps = [ xpChoose + , xpMacro + , xpConst + , xpPointLocator + , xpVariable + , xpTerm + , xpLabel + , xpNames + , xpShortNames + , xpSubStitute + , xpGroup + , xpNumber + , xpDate + ] + +instance XmlPickler IfThen where + xpickle = xpWrap (uncurry3 IfThen, \(IfThen c m e) -> (c,m,e)) $ + xpTriple xpickle xpickle xpickle + +instance XmlPickler Condition where + xpickle = xpWrap ( \ ((t,v,n),(d,p,a,l)) -> + Condition (words t) (words v) (words n) + (words d) (words p) (words a) (words l), + \ (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" )) + +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)) + +instance XmlPickler Sort where + xpickle = xpAlt tag ps + where + readSort = read . flip (++) " \"\"" . toRead + tag (SortVariable {}) = 0 + tag (SortMacro {}) = 1 + ps = [ xpWrap ( \(v,s) -> SortVariable v (readSort s) + , \(SortVariable v s) -> (v,toShow $ show s)) $ + xpElem "key" $ + xpPair (xpAttrText "variable") + (xpAttrWithDefault "ascending" "sort" xpText) + + , xpWrap ( \(v,s) -> SortMacro v (readSort s) + , \(SortMacro v s) -> (v,toShow $ show s)) $ + xpElem "key" $ + xpPair (xpAttrText "macro") + (xpAttrWithDefault "ascending" "sort" xpText) + ] + +instance XmlPickler Bool where + xpickle = xpWrap readable xpText + +instance XmlPickler Form where + xpickle = xpWrap readable + (xpAttrWithDefault "long" "form" xpText) + +instance XmlPickler NumericForm where + xpickle = xpWrap readable + (xpAttrWithDefault "numeric" "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)) $ + xpElem "date-part" $ + xpTriple (xpAttrText "name") + (xpAttrWithDefault "long" "form" xpText) + xpickle + +instance XmlPickler Name where + xpickle = xpAlt tag ps + 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 + ] + +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 CSInfo where + xpickle = xpWrap ( \ ((t,i,u),(a,c)) -> CSInfo t a c i u + , \ s -> ((csiTitle s, csiId s, csiUpdated s) + ,(csiAuthor s, csiCategories s))) $ + xpPair (xpTriple (get "title" ) + (get "id" ) + (get "updated")) + (xpPair (xpIElemWithDefault (CSAuthor "" "" "") "author" xpickle) + (xpDefault [] $ xpList $ xpIElem "category" xpickle)) + where + get = flip xpIElem xpText + +instance XmlPickler CSAuthor where + xpickle = xpWrap (uncurry3 CSAuthor, \(CSAuthor a b c) -> (a, b, c)) $ + xpTriple (xpIElemWithDefault [] "name" xpText) + (xpIElemWithDefault [] "email" xpText) + (xpIElemWithDefault [] "uri" xpText) + +instance XmlPickler CSCategory where + xpickle = xpWrap (uncurry3 CSCategory, \(CSCategory a b c) -> (a, b, c)) $ + xpTriple (xpAttrText "term" ) + (xpAttrText' "schema") + (xpAttrText' "label" ) + +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))) $ + xpIElem "style" $ + xpPair (xp4Tuple (xpAttrText "class") + xpInfo + (xpAttrWithDefault "en" "xml:lang" xpText) + (xpAttrWithDefault "en-US" "default-locale" xpText)) + (xp4Tuple (xpDefault [] xpTerms) + xpMacros + xpCitation + (xpOption xpBibliography)) + +xpInfo :: PU (Maybe CSInfo) +xpInfo = xpOption . xpIElem "info" $ xpickle + +xpTerms :: PU [TermMap] +xpTerms + = xpIElem "terms" $ xpIElem "locale" $ xpList $ xpElem "term" $ + xpPair (xpPair (xpAttrText "name") xpickle) + (xpChoice (xpWrap (\s -> (s,s), fst) xpText0) + (xpPair (xpIElem "single" $ xpText0) + (xpIElem "multiple" $ xpText0)) + xpLift) + +xpMacros :: PU [MacroMap] +xpMacros + = xpList $ xpIElem "macro" $ + xpPair (xpAttrText "name") xpickle + +xpCitation :: PU Citation +xpCitation + = xpWrap (uncurry3 Citation, \(Citation o s l) -> (o,s,l)) $ + xpIElem "citation" $ + xpTriple xpOptions xpSort xpickle + +xpBibliography :: PU Bibliography +xpBibliography + = xpWrap (uncurry3 Bibliography, \(Bibliography o s l) -> (o,s,l)) $ + xpIElem "bibliography" $ + xpTriple xpOptions xpSort xpickle + +xpOptions :: PU [Option] +xpOptions + = xpList $ xpIElem "option" $ + xpPair (xpAttrText "name") (xpAttrText "value") + +xpSort :: PU [Sort] +xpSort + = xpDefault [] $ xpElem "sort" $ xpList xpickle + +xpChoose :: PU Element +xpChoose + = xpWrap (uncurry3 Choose, \(Choose b t e) -> (b,t,e)) $ + xpElem "choose" $ + xpTriple ( xpElem "if" xpickle) + (xpDefault [] $ xpList $ xpElem "else-if" xpickle) + (xpDefault [] $ xpElem "else" xpickle) + +xpMacro :: PU Element +xpMacro + = xpWrap (uncurry3 Macro, \(Macro s f fm) -> (s,f,fm)) $ + xpTextElem $ xpCommon "macro" + +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 + , \(Variable v f fm d) -> ((unwords v,f,fm),d)) $ + xpTextElem $ xpPair (xpCommon "variable") xpDelimiter + +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 + +xpNames :: PU Element +xpNames + = xpWrap ( \((a,n,fm),d,sb) -> Names (words a) n fm d sb + , \(Names a n fm d sb) -> ((unwords a,n,fm),d,sb)) $ + 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 + +xpShortNames :: PU Element +xpShortNames + = xpWrap ( \((a,fm),d) -> ShortNames (words a) fm d + , \(ShortNames a fm d) -> ((unwords a,fm),d)) $ + xpElem "names" $ xpPair content xpDelimiter + where content = xpPair (xpAttrText "variable") xpickle + +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)) $ + xpElem "label" $ + xp5Tuple (xpAttrText' "variable") + xpickle xpickle xpIncludePeriod xpPlural + +xpSubStitute :: PU Element +xpSubStitute + = xpWrap (Substitute, \(Substitute es) -> es) $ + xpElem "substitute" xpickle + +xpGroup :: PU Element +xpGroup + = xpWrap ( \(fm,d,c,e) -> Group fm d c e + , \(Group fm d c e) -> (fm,d,c,e)) $ + xpElem "group" $ + xp4Tuple xpickle xpDelimiter (xpAttrText' "class") xpickle + +xpNumber :: PU Element +xpNumber + = xpWrap (uncurry3 Number, \(Number s f fm) -> (s,f,fm)) $ + xpElem "number" $ xpCommon "variable" + +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 + +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 + +xpCommon :: (XmlPickler b, XmlPickler c) => String -> PU (String,b,c) +xpCommon s = xpTriple (xpAttrText s) xpickle xpickle + +-- | For mandatory attributes. +xpAttrText :: String -> PU String +xpAttrText n = xpAttr n xpText + +-- | For optional attributes. +xpAttrText' :: String -> PU String +xpAttrText' n = xpAttrWithDefault [] n xpText + +xpAttrWithDefault :: Eq a => a -> String -> PU a -> PU a +xpAttrWithDefault d n = xpDefault d . xpAttr n + +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) + +toShow :: String -> String +toShow = foldr g [] . f + where g x xs = if isUpper x then '-' : toLower x : xs else x : xs + f ( x:xs) = toLower x : xs + f [] = [] + +toRead :: String -> String +toRead [] = [] +toRead (s:ss) = toUpper s : camel ss + where + camel x + | '-':y:ys <- x = toUpper y : camel ys + | '_':y:ys <- x = toUpper y : camel ys + | 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 + +readCSLFile :: String -> 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} diff --git a/src/Text/CSL/Proc.hs b/src/Text/CSL/Proc.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Proc.hs @@ -0,0 +1,260 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Proc +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- Output processing. +-- +----------------------------------------------------------------------------- + +module Text.CSL.Proc where + +import Control.Arrow ( (&&&), (>>>), (***) ) +import Data.Char ( chr ) +import Data.List ( (\\), elemIndex, findIndices + , sortBy, mapAccumL, nub, groupBy + , isPrefixOf ) +import Data.Maybe +import Data.Ord ( comparing ) + +import Text.CSL.Eval +import Text.CSL.Reference +import Text.CSL.Style + +processCitations :: Style -> [Reference] -> [[(String, String)]] -> [[FormattedOutput]] +processCitations s rs + = citations . citeproc s rs + +processBibliography :: Style -> [Reference] -> [[FormattedOutput]] +processBibliography s rs + = bibliography $ citeproc s rs [zip (map citeKey rs) (repeat "")] + +citeproc :: Style -> [Reference] -> [[(String, String)]] -> BiblioData +citeproc s rs cs + = BD (outputGroups citOutput) biblioOutput + where + bibs = refsYSuffix . procRefs s . map (getReference rs) . + nub . map (id *** const []) . concat $ cs + refs = getRefs bibs cs + groups = map (procGroup s) refs + + -- | group citation data (with possible alternative names) for every + -- list of contributors which has a duplicate. + contribs = nub $ concatMap (\(CG _ _ os) -> concatMap getCiteData os) groups + collid = map rmGivenNames . collision + duplics = groupBy (\a b -> collid a == collid b) . + sortBy (comparing collid) $ + filter (collid &&& citYear >>> flip elem (getDuplicates groups)) contribs + + needYSuff = map (allTheSame . map disData) duplics + needName = concatMap fst . filter (not . snd) $ zip duplics needYSuff + + disSolved = zip needName (disambiguate $ map disData needName) + addLNames = map (\(c,n) -> c { disambed = head n }) disSolved + addGNames = map (\ c -> c { disambed = addGivenNames (disambed c) }) + + 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)) + + disOpts = getDisOptions s + hasNames = "disambiguate-add-names" `elem` disOpts + hasGName = "disambiguate-add-givenname" `elem` disOpts + hasYSuff = "disambiguate-add-year-suffix" `elem` disOpts + nameDis = case () of + _ | hasNames + , hasGName -> let (n ,ns ) = done addLNames + (n',ns') = done $ addGNames ns + in n ++ n' ++ addGNames ns' + | hasNames -> fst . done $ addLNames + | hasGName -> fst . done $ addGNames needName + | otherwise -> [] + + 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 + + outputGroups = map $ \(CG fm d os) -> map formatOutput $ outputList fm d os + citOutput = if disOpts /= [] + then if hasYSuff + then proc addYearSuffix $ proc (updateOutput nameDis) reEvaluated + else proc (updateOutput nameDis) reEvaluated + else groups + biblioOutput = if hasYSuff + then map (map formatOutput) $ proc addYearSuffix $ procBiblio s bibs + else map (map formatOutput) $ procBiblio s bibs + +procBiblio :: Style -> [Reference] -> [[Output]] +procBiblio (Style {biblio = mb, csMacros = ms , csTerms = ts}) 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) + chkAut _ [] = [] + chkAut a (x:xs) = if author x `elem` a + then ("subsequent",x) : chkAut a xs + else ("first" ,x) : chkAut (author x : a) xs + +procRefs :: Style -> [Reference] -> [Reference] +procRefs (Style {biblio = mb, csMacros = ms , csTerms = ts}) rs + = maybe rs process mb + where + citNum x = x { citationNumber = maybe 0 ((+) 1) . elemIndex x $ rs } + sort b = evalSorting ts ms (bibOptions b) (bibSort b) + process b = map fst . sortBy (comparing snd) . map (citNum &&& sort b) $ rs + +refsYSuffix :: [Reference] -> [Reference] +refsYSuffix rs + = update indices + 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 -> [] + +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) + +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 + else [out] + +suffixes :: [String] +suffixes + = l ++ [x ++ y | x <- l, y <- l ] + where + l = map (return . chr) [97..122] + +updateOutput :: [CiteData] -> Output -> Output +updateOutput m o + | FC k x _ <- o = case elemIndex (CD k x [] [] []) m of + Just i -> FC k (disambed $ m !! i) [] + _ -> o + | otherwise = o + +getDisOptions :: Style -> [String] +getDisOptions + = map fst . filter ((==) "true" . snd) . + filter (isPrefixOf "disambiguate" . fst) . citOptions . citation + +getRefs :: [Reference] -> [[(String, String)]] -> [[(String, Reference)]] +getRefs r = map (map $ getReference' r) . generatePosition + +-- | The contributors diambiguation data, the list of names and +-- give-names, and the citation year ('FY'). +type NamesYear = ([Output],String) + +-- | Get the contributors list ('FC') and the year occurring in more +-- then one citation. +getDuplicates :: [CitationGroup] -> [NamesYear] +getDuplicates + = nub . catMaybes . snd . mapAccumL dupl [] . getData + where + getData l = concat . map nub . flip map l $ \(CG _ _ os) -> concatMap getNamesYear os + 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 ) + +getNamesYear :: Output -> [(String,NamesYear)] +getNamesYear + = proc rmGivenNames >>> + query contribs &&& years >>> + zipData + where + yearsQ = query getYears + years o = if yearsQ o /= [] then yearsQ o else [""] + zipData = uncurry . zipWith $ \(k,c) y -> (,) k (c,y) + contribs o + | FC k x _ <- o = [(k,x)] + | otherwise = [] + +getYears :: Output -> [String] +getYears o + | FY x _ _ <- o = [x] + | otherwise = [] + +hasIfDis :: IfThen -> [Bool] +hasIfDis o + | IfThen (Condition {disambiguation = d}) _ _ <- o = [d /= []] + | otherwise = [False ] + +-- | Get the list of possible non ambiguous names for every citation +-- whose contributor list and year is occuring in more then one +-- citation. +getCiteData :: Output -> [CiteData] +getCiteData + = query contribs &&& years >>> + zipData + where + yearsQ = query getYears + years o = if yearsQ o /= [] then yearsQ o else [""] + zipData = uncurry . zipWith $ \c y -> c {citYear = y} + contribs o + | FC k x xs <- o = [CD k x xs [] []] + | otherwise = [] + +-- List Utilities + +disambiguate :: (Eq a) => [[a]] -> [[a]] +disambiguate [] = [] +disambiguate ls + = if hasDuplicates takeHead + then diff ++ disambiguate (map tail' dupl) + else takeHead + where + zipped = zip ls takeHead + diff = map fst . filter (not . snd) $ zip takeHead (same takeHead) + dupl = map (fst . fst) . filter snd $ zip zipped (same takeHead) + + takeHead = map head' ls + head' = foldr (\x _ -> [x]) [] + tail' [x] = [x] + tail' x = tail x + +same :: Eq a => [a] -> [Bool] +same [] = [] +same l + = snd $ mapAccumL check (catMaybes dupl) l + where + dupl = snd $ mapAccumL (\a x -> if x `elem` a then (a,Just x) else (x:a,Nothing)) [] l + check a e = if e `elem` a then (a,True) else (e:a,False) + +hasDuplicates :: Eq a => [a] -> Bool +hasDuplicates = hasSame or + +allTheSame :: Eq a => [a] -> Bool +allTheSame = hasSame and + +hasSame :: Eq a => ([Bool] -> Bool) -> [a] -> Bool +hasSame _ [] = False +hasSame f l + = f . snd $ mapAccumL check [head l] (tail l) + where + check a e = if e `elem` a then (a,True) else (e:a,False) diff --git a/src/Text/CSL/Reference.hs b/src/Text/CSL/Reference.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Reference.hs @@ -0,0 +1,321 @@ +{-# OPTIONS_GHC -fglasgow-exts #-} -- for deriving Typeable +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Reference +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The Reference type +-- +----------------------------------------------------------------------------- + +module Text.CSL.Reference where + +import Data.Char ( isUpper, toLower ) +import Data.List ( elemIndex, isPrefixOf ) +import Data.Maybe ( fromJust ) +import Data.Generics + +-- | 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 + +-- for debuging +instance Show Value where + show (Value a) = gshow a + +type ReferenceMap = [(String, Value)] + +mkRefMap :: Data a => a -> ReferenceMap +mkRefMap a = zip fields (gmapQ Value a) + where fields = map formatField . constrFields . toConstr $ a + +formatField :: String -> String +formatField = foldr f [] . g + where f x xs = if isUpper x then '-' : toLower x : xs else x : xs + g (x:xs) = toLower x : xs + g [] = [] + +fromValue :: Data a => Value -> Maybe a +fromValue (Value a) = cast a + +isValueSet :: Value -> Bool +isValueSet val + | Just v <- fromValue val :: Maybe String = v /= [] + | Just v <- fromValue val :: Maybe [Agent] = v /= [] + | Just v <- fromValue val :: Maybe [RefDate] = v /= [] + | Just v <- fromValue val :: Maybe Int = 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 ) + +data RefDate = + RefDate { year :: Int + , month :: Int + , day :: Int + , other :: String + } deriving ( Show, Read, Eq, Typeable, Data ) + +data RefType + = NoType + | Article + | ArticleMagazine + | ArticleNewspaper + | ArticleJournal + | Bill + | Book + | Chapter + | Entry + | EntryDictionary + | EntryEncyclopedia + | Figure + | Graphic + | Interview + | Legislation + | LegalCase + | Manuscript + | Map + | MotionPicture + | MusicalScore + | Pamphlet + | PaperConference + | Patent + | Post + | PostWeblog + | PersonalCommunication + | Report + | Review + | ReviewBook + | Song + | Speech + | Thesis + | Treaty + | Webpage + deriving ( Read, Eq, Typeable, Data ) + +instance Show RefType where + show = map toLower . formatField . showConstr . toConstr + +data Reference = + Reference + { citeKey :: String + , refType :: RefType + + , author :: [Agent] + , editor :: [Agent] + , translator :: [Agent] + , recipient :: [Agent] + , interviewer :: [Agent] + , publisher :: [Agent] + , composer :: [Agent] + , originalPublisher :: [Agent] + , originalAuthor :: [Agent] + , containerAuthor :: [Agent] + , collectionEditor :: [Agent] + + , issued :: [RefDate] + , eventDate :: [RefDate] + , accessed :: [RefDate] + , container :: [RefDate] + , originalDate :: [RefDate] + + , title :: String + , containerTitle :: String + , collectionTitle :: String + , collectionNumber :: Int + , originalTitle :: String + , publisherPlace :: String + , archive :: String + , archivePlace :: String + , archiveLocation :: String + , event :: String + , eventPlace :: String + , page :: String + , locator :: Locator + , version :: String + , volume :: String + , numberOfVolumes :: Int + , issue :: String + , chapterNumber :: String + , medium :: String + , status :: String + , edition :: String + , section :: String + , genre :: String + , note :: String + , annote :: String + , abstract :: String + , keyword :: String + , number :: String + , references :: String + , url :: String + , doi :: String + , isbn :: String + + , citationNumber :: Int + , yearSuffix :: String + , citationLabel :: String + } deriving ( Eq, Show, Read, Typeable, Data ) + +emptyReference :: Reference +emptyReference = + Reference + { citeKey = [] + , refType = NoType + + , author = [] + , editor = [] + , translator = [] + , recipient = [] + , interviewer = [] + , publisher = [] + , composer = [] + , originalPublisher = [] + , originalAuthor = [] + , containerAuthor = [] + , collectionEditor = [] + + , issued = [] + , eventDate = [] + , accessed = [] + , container = [] + , originalDate = [] + + , title = [] + , containerTitle = [] + , collectionTitle = [] + , collectionNumber = 0 + , originalTitle = [] + , publisherPlace = [] + , archive = [] + , archivePlace = [] + , archiveLocation = [] + , event = [] + , eventPlace = [] + , page = [] + , locator = NoneLoc + , version = [] + , volume = [] + , numberOfVolumes = 0 + , issue = [] + , chapterNumber = [] + , medium = [] + , status = [] + , edition = [] + , section = [] + , genre = [] + , note = [] + , annote = [] + , abstract = [] + , keyword = [] + , number = [] + , references = [] + , url = [] + , doi = [] + , isbn = [] + + , citationNumber = 0 + , yearSuffix = [] + , citationLabel = [] + } + +getReference :: [Reference] -> (String,String) -> Reference +getReference r + = snd . getReference' r . flip (,) ("",0) + +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 = n } + Nothing -> (,) p $ emptyReference + { title = c ++ " not found!" + , citationNumber = n } + +data Locator + = NoneLoc + | BookLoc String + | ChapterLoc String + | ColumnLoc String + | FigureLoc String + | FolioLoc String + | IssueLoc String + | LineLoc String + | NoteLoc String + | OpusLoc String + | PageLoc String + deriving ( Read, Eq, Typeable, Data ) + +instance Show Locator where + show = map toLower . reverse . drop 3 . reverse . showConstr . toConstr + +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 + | otherwise = [] + +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 + | "p" `isPrefixOf` formatField s = mk PageLoc + | otherwise = NoneLoc + where + mk c = if null s then NoneLoc else c . concat . tail . words $ s + +generatePosition :: [[(String,String)]] -> [[((String,String),(String,Int))]] +generatePosition = getPos ([],[]) + +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 + 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 + where + newCit = 1 + length c + citNum = (+) 1 . fromJust . elemIndex k $ c + isSet = l /= "" + isElem = k `elem` a + isIbid = isElem && k == last a diff --git a/src/Text/CSL/Style.hs b/src/Text/CSL/Style.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Style.hs @@ -0,0 +1,282 @@ +{-# OPTIONS_GHC -fglasgow-exts #-} -- for deriving Typeable +{-# LANGUAGE PatternGuards #-} +-- {-# LANGUAGE #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Style +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The Style types +-- +----------------------------------------------------------------------------- + +module Text.CSL.Style where + +import Data.Generics + +data Style + = Style + { styleClass :: String + , styleInfo :: Maybe CSInfo + , styleLang :: String + , styleLocale :: String + , csTerms :: [TermMap] + , csMacros :: [MacroMap] + , citation :: Citation + , biblio :: Maybe Bibliography + } deriving ( Show, Typeable, Data ) + +type TermMap + = ((String,Form),(String,String)) + +type MacroMap + = (String,[Element]) + +data Citation + = Citation + { citOptions :: [Option] + , citSort :: [Sort] + , citLayout :: Layout + } deriving ( Show, Typeable, Data ) + +data Bibliography + = Bibliography + { bibOptions :: [Option] + , bibSort :: [Sort] + , bibLayout :: Layout + } deriving ( Show, Typeable, Data ) + +type Option = (String,String) + +data Layout + = Layout + { layFormat :: Formatting + , layDelim :: Delimiter + , elements :: [Element] + } deriving ( Show, Typeable, Data ) + +data Element + = Choose IfThen [IfThen] [Element] + | Macro String Form 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 + | 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] + deriving ( Show, Eq, Typeable, Data ) + +data IfThen + = IfThen Condition Match [Element] + deriving ( Eq, Show, Typeable, Data ) + +data Condition + = Condition + { isType :: [String] + , isSet :: [String] + , isNumeric :: [String] + , isDate :: [String] + , isPosition :: [String] + , disambiguation :: [String] + , isLocator :: [String] + } + deriving ( Eq, Show, Typeable, Data ) + +type Delimiter + = String + +data Match + = Any + | All + | None + deriving ( Show, Read, Eq, Typeable, Data ) + +match :: Match -> [Bool] -> Bool +match All = and +match Any = or +match None = and . map not + +data DatePart + = DatePart String String Formatting + deriving ( Show, Eq, Typeable, Data ) + +defaultDate :: [DatePart] +defaultDate + = [ DatePart "year" "" emptyFormatting + , DatePart "month" "" emptyFormatting + , DatePart "day" "" emptyFormatting] + +data Sort + = SortVariable String Sorting + | SortMacro String Sorting + 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 + +instance Ord Sorting where + compare (Ascending a) (Ascending b) = compare a b + compare (Descending a) (Descending b) = compare b a + compare _ _ = EQ + +data Form + = Long + | Verb + | Short + | VerbShort + | Symbol + deriving ( Eq, Show, Read, Typeable, Data ) + +data NumericForm + = Numeric + | Ordinal + | Roman + deriving ( Eq, Show, Read, Typeable, Data ) + +data Name + = Name Form Formatting NameFormatting Delimiter + | NameLabel Form Formatting Bool Bool + deriving ( Eq, Show, 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 ) + +defaultNameFormatting :: NameFormatting +defaultNameFormatting + = NameFormatting + { andConnector = "text" + , delimiterPrecedesLast = "" + , nameAsSortOrder = "" + , sortSeparator = "" + , initializeWith = "" + } + +data Formatting + = Formatting + { prefix :: String + , suffix :: String + , fontFamily :: String + , fontStyle :: String + , fontVariant :: String + , fontWeight :: String + , textDecoration :: String + , verticalAlign :: String + , textCase :: String + , display :: String + , quotes :: Bool + } deriving ( Eq, Ord, Read, Show, Typeable, Data ) + +emptyFormatting :: Formatting +emptyFormatting + = Formatting [] [] [] [] [] [] [] [] [] [] False + +data CSInfo + = CSInfo + { csiTitle :: String + , csiAuthor :: CSAuthor + , csiCategories :: [CSCategory] + , csiId :: String + , csiUpdated :: String + } deriving ( Show, Read, Typeable, Data ) + +data CSAuthor = CSAuthor String String String deriving ( Show, Read, Eq, Typeable, Data ) +data CSCategory = CSCategory String String String deriving ( Show, Read, Eq, Typeable, Data ) + +data FormattedOutput + = FO String Formatting [FormattedOutput] + | Delimiter String + deriving ( Eq, Show ) + +data Output + = FS String Formatting + | FN String [String] Formatting -- ^ A name and its given name if needed + | FY String String Formatting -- ^ The year and a suffix if needed + | O [Output] Formatting + | FC String [Output] [[Output]] -- ^ The contributor(s) with additional names + | S String + deriving ( Eq, Ord, Show, Typeable, Data ) + +data CitationGroup = CG Formatting String [Output] deriving ( Show, Eq, Typeable, Data ) + +data BiblioData + = BD + { citations :: [[FormattedOutput]] + , bibliography :: [[FormattedOutput]] + } deriving ( Show ) + +data CiteData + = CD + { key :: String + , collision :: [Output] + , disData :: [[Output]] + , disambed :: [Output] + , citYear :: String + } deriving ( Show, Typeable, Data ) + +instance Eq CiteData where + (==) (CD ka ca _ _ _) + (CD kb cb _ _ _) = ka == kb && ca == cb + +formatOutput :: Output -> FormattedOutput +formatOutput o + | S s <- o = Delimiter s + | FS s f <- o = FO s f [] + | FN s _ f <- o = FO s f [] + | FY s _ f <- o = FO s f [] + | O os f <- o = FO "" f (format os) + | FC _ s _ <- o = FO "" emptyFormatting (format s) + | otherwise = FO "" emptyFormatting [] + where + format = map formatOutput + +proc :: (Typeable a, Data b) => (a -> a) -> b -> b +proc f = everywhere (mkT f) + +query :: (Typeable a, Data b) => (a -> [c]) -> b -> [c] +query f = everything (++) ([] `mkQ` f) + +rmGivenNames :: Output -> Output +rmGivenNames o + | FN s _ f <- o = FN s [] f + | otherwise = o + +addGivenNames :: [Output] -> [Output] +addGivenNames + = reverse . addGN True . reverse + where + addGN _ [] = [] + addGN b (o:os) + | FN _ xs f <- o + , xs /= [] = if b then FN (head xs) (tail xs) f : addGN False os else o:os + | otherwise = o : addGN b os + +addYearSuffix :: Output -> Output +addYearSuffix o + | FY y s f <- o = FY (y ++ s) s f + | otherwise = o + diff --git a/test/RefData.hs b/test/RefData.hs new file mode 100644 --- /dev/null +++ b/test/RefData.hs @@ -0,0 +1,60 @@ +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 new file mode 100644 --- /dev/null +++ b/test/apa @@ -0,0 +1,230 @@ + + + diff --git a/test/loc.hs b/test/loc.hs new file mode 100644 --- /dev/null +++ b/test/loc.hs @@ -0,0 +1,14 @@ +import Control.Monad +import System.Exit + +main = do foo <- getContents + let actual_loc = filter (not.null) $ filter isntcomment $ + map (dropWhile (==' ')) $ lines foo + loc = length actual_loc + putStrLn $ show loc + -- uncomment the following to check for mistakes in isntcomment + -- putStr $ unlines $ actual_loc + +isntcomment ('-':'-':_) = False +isntcomment ('{':'-':_) = False -- pragmas +isntcomment _ = True diff --git a/test/locales-it-IT.xml b/test/locales-it-IT.xml new file mode 100644 --- /dev/null +++ b/test/locales-it-IT.xml @@ -0,0 +1,201 @@ + + + + + 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 new file mode 100644 --- /dev/null +++ b/test/modsCollection.xml @@ -0,0 +1,963 @@ + + + + + + + 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 new file mode 100644 --- /dev/null +++ b/test/test.hs @@ -0,0 +1,108 @@ +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 + +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 <- readModsColletionFile (modsCo config) + 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 + + diff --git a/test/test.markdown b/test/test.markdown new file mode 100644 --- /dev/null +++ b/test/test.markdown @@ -0,0 +1,23 @@ +# 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 new file mode 100644 --- /dev/null +++ b/test/test_basic.hs @@ -0,0 +1,55 @@ +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 new file mode 100644 --- /dev/null +++ b/test/test_note.markdown @@ -0,0 +1,40 @@ +# 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