diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,27 @@ +Copyright (c) 2013, Andrea Rossato, John MacFarlane +All rights reserved. + +Redistribution and use in source and binary forms, with or without modification, +are permitted provided that the following conditions are met: + + Redistributions of source code must retain the above copyright notice, this + list of conditions and the following disclaimer. + + 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. + + Neither the name of the {organization} nor the names of its + contributors may be used to endorse or promote products derived from + this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS 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 COPYRIGHT HOLDER 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-pandoc-citeproc.md b/README-pandoc-citeproc.md new file mode 100644 --- /dev/null +++ b/README-pandoc-citeproc.md @@ -0,0 +1,37 @@ +pandoc-citeproc +=============== + +This package provides a library and executable to facilitate the use of +citeproc with pandoc 1.12 and greater. (Earlier versions of pandoc have +integrated citeproc support.) + +`pandoc-citeproc` +----------------- + +The `pandoc-citeproc` executable can be used as a filter with pandoc to +resolve and format citations using a bibliography file and a CSL +stylesheet. It can also be used (with `--bib2yaml` or `--bib2json` +options) to convert a bibliography to a YAML format that can be put +directly into a pandoc markdown document or to CSL JSON. Bibliographies +can be in any of several formats, but bibtex and biblatex are the best +supported. + +For usage and further details, see the [pandoc-citeproc man +page](https://github.com/jgm/pandoc-citeproc/blob/master/man/pandoc-citeproc.1.md). + +The current version of the package includes code from citeproc-hs, +which has not been updated for some time. When citeproc-hs is brought +up to date, this code can be removed and this package will depend +on citeproc-hs. + +`Text.CSL.Pandoc` +----------------- + +Those who use pandoc as a library (e.g. in a web application) will +need to use this module to process citations. + +The module exports two functions, `processCites`, which is pure and +accepts a style and a list of references as arguments, and +`processCites'`, which lives in the IO monad and derives the style +and references from the document's metadata. + diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,42 @@ +Scholdoc-Citeproc +================= + +### A fork of [Pandoc-Citeproc][pandoc-citeproc] for [Scholdoc][scholdoc] + +**Current stable version:** 0.6 + +**Development build status** [![build status][scholarly-devel-travisimage]][travis_stat] +**Stable build status** [![build status][scholarly-travisimage]][travis_stat] + +This package is a fork of [Pandoc-Citeproc][pandoc-citeproc]. It is intended to +support the development of [Scholdoc][scholdoc], a fork of [Pandoc][pandoc] +that understands [ScholarlyMarkdown][scholmd]. It is mean to be used as a +filter with [Scholdoc][scholdoc] to resolve and format citations using a +bibliography file and a [CSL stylesheet][csl]. It can also be used (with +`--bib2yaml` or `--bib2json` options) to convert a bibliography to a YAML +format that can be put directly into a ScholarlyMarkdown document or to CSL +JSON. Bibliographies can be in any of several formats, but BibTeX/BibLaTeX +`.bib` database files are the best supported. For more information, consult the +original README file of `pandoc-citeproc`, which is moved to +[`README-pandoc-citeproc.md`][citeproc-readme-blob]. + +`scholdoc-citeproc` is currently just a trivial fork just so it can compile +against [Scholdoc-Types][scholdoc-types] and [Scholdoc][scholdoc] instead of +[Pandoc-Types][pandoc-types] and [Pandoc][pandoc], without polluting the +`pandoc-citeproc` package and executable namespace on the user's system. In the +future, enhancements and modifications made as part of the [Scholdoc][scholdoc] +project will be introduced here first. + +The version number of this package is kept in sync with [pandoc-citeproc]. + +[scholmd]: http://scholarlymarkdown.com +[scholdoc]: https://github.com/timtylin/scholdoc +[scholdoc-types]: https://github.com/timtylin/scholdoc-types +[pandoc]: http://johnmacfarlane.net/pandoc/ +[pandoc-types]: https://github.com/jgm/pandoc-types +[pandoc-citeproc]: https://github.com/jgm/pandoc-citeproc +[travis_stat]: https://travis-ci.org/timtylin/scholdoc-citeproc +[scholarly-devel-travisimage]: https://travis-ci.org/timtylin/scholdoc-citeproc.svg?branch=scholarly-devel +[scholarly-travisimage]: https://travis-ci.org/timtylin/scholdoc-citeproc.svg?branch=scholarly +[citeproc-readme-blob]: https://github.com/timtylin/scholdoc-citeproc/blob/scholarly-devel/README-pandoc-citeproc +[csl]: http://citationstyles.org diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,55 @@ +{-# LANGUAGE CPP #-} + +import Distribution.Simple +import Distribution.Simple.PreProcess +import Distribution.Simple.Setup + (copyDest, copyVerbosity, fromFlag, installVerbosity, BuildFlags(..)) +import Distribution.PackageDescription (PackageDescription(..), Executable(..)) +import Distribution.Simple.LocalBuildInfo + (LocalBuildInfo(..), absoluteInstallDirs) +import Distribution.Verbosity ( Verbosity, silent ) +import Distribution.Simple.InstallDirs (mandir, CopyDest (NoCopyDest)) +import Distribution.Simple.Utils (installOrdinaryFiles, info) +import Prelude hiding (catch) +import System.Process ( rawSystem ) +import System.FilePath ( () ) +import System.Directory ( findExecutable ) +import System.Exit + +main :: IO () +main = do + defaultMainWithHooks $ simpleUserHooks { + postCopy = \ _ flags pkg lbi -> + installManpages pkg lbi (fromFlag $ copyVerbosity flags) + (fromFlag $ copyDest flags) + , postInst = \ _ flags pkg lbi -> + installManpages pkg lbi (fromFlag $ installVerbosity flags) NoCopyDest + , hookedPreProcessors = [ppBlobSuffixHandler] + } + exitWith ExitSuccess + +manpages :: [FilePath] +manpages = ["man1" "scholdoc-citeproc.1"] + +manDir :: FilePath +manDir = "man" + +installManpages :: PackageDescription -> LocalBuildInfo + -> Verbosity -> CopyDest -> IO () +installManpages pkg lbi verbosity copy = + installOrdinaryFiles verbosity (mandir (absoluteInstallDirs pkg lbi copy)) + (zip (repeat manDir) manpages) + +ppBlobSuffixHandler :: PPSuffixHandler +ppBlobSuffixHandler = ("hsb", \_ _ -> + PreProcessor { + platformIndependent = True, + runPreProcessor = mkSimplePreProcessor $ \infile outfile verbosity -> + do info verbosity $ "Preprocessing " ++ infile ++ " to " ++ outfile + hsb2hsPath <- findExecutable "hsb2hs" + case hsb2hsPath of + Just p -> rawSystem p [infile, infile, outfile] + Nothing -> error "hsb2hs is needed to build this program: cabal install hsb2hs" + return () + + }) diff --git a/changelog b/changelog new file mode 100644 --- /dev/null +++ b/changelog @@ -0,0 +1,214 @@ +pandoc-citeproc (0.6) + + * The CSL parser has been replaced with a new, xml-conduit based module, + which does not rely on C libraries and should be easier to repair + and extend. The module has been checked against the old module with all + CSL files in the citeproc repository. The only differences + are with attribute values beginning or ending with a nonbreaking + space (e.g. with French guillemets), and the new parser's behavior + (preserving the spaces) is clearly correct. Parsing was measured as + about twice as fast in a benchmark. + * The `hexpat` cabal flag has been removed. + * The old `Text.CSL.Pickle` and `Text.CSL.Pickle.*` modules have been + removed. + * Plural locator labels (e.g. 'pp.') are now used for page ranges + containing en-dashes (#84). + * `Elements` has been removed from `Element`. It was entirely unnecessary, + used only once (and dispensibly) in `Text.CSL.Eval`. + This change results in cleaner code. + * Improved man page generation. + * Updated `chicago-author-date.csl` default style. + +pandoc-citeproc (0.5) + + * Revised locator parsing: + + parseLocator now looks for the "short" forms of terms in + the style's locale(s). So, in English you'd use "p." or + "ch."; in German, "S." or "Kap." + + Note that the locator label must match what is in the locale + file, including the period. Before this change, you could omit + the period: "p 12" or "p. 12" would both give you a "page." + Also, previously, the locators were case-insensitive; now they must + be in the same case as in the locale. (English "p.", German "S.".) + + "no." no longer gets parsed as a "note": closes #74. + + Text.CSL.Reference no longer exports parseLocator. + parseLocator is now used only locally, in Text.CSL.Pandoc. + * Data.getLocale: Try 2-letter locale lookup if longer locale not found. + This should fix an error that occured with less common locales + (jgm/pandoc#1548). + * Added parseNames field to Agent. Set parse-names=true + when writing CSL JSON and collapsing suffix or particles into + first or last names. + * Properly handle agents with 'parse-names' set to 'true' (#77). + Note that parse-names defaults to true if not set, as in Zotero. + * Reference: added explicit exports. + * Styles: Added explicit export list. + * Eval: Fixed isNumericString to recognize en dash (#74). + * Allow bibtex double quotes to be escaped inside {} (jgm/pandoc#1568). + * Titlecase transform improvements (#76). + * Added two csl files missing from tests/. + * Performance improvements: Avoid unnecessary Output groupings. + Eliminated some unnecessary generic traversals. (#71) + * Makefile: Use cpphs. Text.CSL.Data seems to break on OSX 10.9 without it. + * Added prof target to Makefile + * Test suite: don't exit with success if there were errors! + +pandoc-citeproc (0.4.0.1) + + * Interpret date literals with underscores (e.g. "2004_2006") as ranges. + This covers a common workaround for a deficiency in Zotero (#65). + * Correctly handle "literal" in CSL date (#65). + * Fixed erroneous capitalization of the first ibid. in a citation, + even in the middle of a sentence (#68). Removed "ibid-c", + "ibid-locator-c" classifications. + * Pandoc: Capitalize first word of citation note, unless span=nocase. + Previously we only capitalized citations. This captures ibid + and the like. + * Text.CSL.Util.toCapital: respect ``. + * Turn small caps into SmallCaps element in reading CSL JSON (#67). + Either the or the + variant may be used. + * Added "ca", "c", "et" to list of short words in titlecase transforms + (#66). + * Fixed some errors in the no-author test case. + * test-pandoc-citeproc: Avoid running tests twice! + * Check for en dash in checking for page ranges (#70). + * Removed unused texmath build-depend. + +pandoc-citeproc (0.4) + + * Fixed #58 - previously not all substitute alternatives were tried. + * Made first parameter of OName an Agent, not a String (API change). + Also moved Agent from Reference to Style. + * test-pandoc-citeproc: run tests on all matching files in the directory. + This removes the need to recompile when new tests are added. + * Style: Fixed appendWithPunct (mappend for Formatted). One definition + was wrong, causing commas to be lost in certain places (#57). + * Support \nocite{*}. If the `nocite` metadata filed contains a citation + with identifier `*`, all entries in the bibliography are included + in the references (#64). + * Bump upper bound for aeson. + * Removed span nodecor around 'ser.' (#60). + * Print series as "3rd ser." (using locale's ordinal) (#60). + * Added scaffolding for 'ordinalize' and infrastructure for + accessing locale information to Bibtex. + * Export new parseLocale from Text.CSL.Parser. + * Move punctuation before fn in in-text citation before punctuation (#59). + * Updated locales and chicago-author-date.csl. + * Use collection-title for series, even for articles (#60). + * Fixed locator parsing so capital roman numerals are legal numbers (#61). + * Map bookinbook -> chapter (#62). + * Better error message from parseString. + * Remove space before superscript citation (pandoc #1327). + * Fixed spurious "et al" problem (#27). + * Match biblatex's method for separating von from last name, for biblatex. + For bibtex, we match the documented bibtex algorithm as before (#50). + Test case: Drummond de Andrade, Carlos. + bibtex makes "Drummond de" a dropping particle. + biblatex takes "Drummond de Andrade" to be the last name. + * Leave off bibliography if `suppress-bibliography` has a true value + in the document metadata (#40, with thanks to Jesse Rosenthal). + * Try empty (null) 'csl' as if no 'csl' was specified. + (The default chicago-author-date.csl is then used.) + * Fixed #51: empty braces with date range. + * Set pageFirst automatically from page range (#31). + * Bibtex input: set page-first automatically. + * Fixed capitalization of first word in sentence (#25). + E.g. "foo bar baz: bazbaz foo" should turn into + "Foo Bar Baz: Bazbaz Foo" in titlecase, but was turning into + "foo Bar Baz: bazbaz Foo." + * pandoc-citeproc: Allow conversion of mods bibliographies (#28). + * readCSLFile now supports dependent styles (#30). + * Removed network flag. We now use pandoc's fetchItem. + * Changed type of findFile, so it returns a Maybe. + * Documented fact that you can specify a URL under 'csl:'. + * Added locale parameter to readCSLFile (API change). + readCSLFile also now looks in ~/.csl for the file, if it isn't + found locally. + * Moved findFile to Util. + * Bibtex/biblatex: map "unpublished" to "speech" if + the record contains "eventtitle", "eventdate", or "venue". + Otherwise map it to "manuscript" as before (#44). + * Look for chicago-author-date.csl in ~/.csl if no csl specified. + If not found there, use the chicago-author-date.csl that comes with + the distribution (#48). + * Improved case transform behavior with punctuation. + Previously capitalization might change after a word-internal period + or apostrophe. Now internal punctuation only signals a word + boundary if it is a dash or single quote character. + +pandoc-citeproc (0.3.1) + + * Marked final heading (if present) as "unnumbered" (pandoc #1277). + * Treat empty 'references' (empty string) as empty list. + * Fixed titlecase transformation of words containing '. + * Fixed punctuation in notes. + * Improved test suite. + * FromJSON for Formatted: handle block lists as well as inline. + * Require yaml >= 0.8.8.2. + * Fixed spacing problem with citations in notes in footnote styles + (pandoc #1036). + * Updated chicago-author-date.csl and locales (#34). + * Move punctuation inside quotes, depending on style. This is activated by + the `punctuation-in-quote` locale option, which has a default + per locale but can be overridden in the style. This gives more flexibility. + (Thanks to Jesse Rosenthal.) + * Moved `isPunctuationInQuote` to `Text.CSL.Style` and rewrote. + Previously it was in `Text.CSL.Output.Pandoc`. + It doesn't need to use generics and no longer does. + * Fixed recognition of "byzantine" names. Names with curly apostrophes were + being counted as non-byzantine, and printed given-first with no space + (#39). + * Fixed representation of reference types to conform to CSL (#24): + `motion_picture`, `legal_case`, `musical_score`, `personal_communication`. + +pandoc-citeproc (0.3.0.1) + + * Require ghc-prim if ghc < 7.6 (needed for generics). + +pandoc-citeproc (0.3) + + * Removed biblio2yaml. Instead, use pandoc-citeproc with the + --bib2yaml or --bib2json option. (#20) + * pandoc-citeproc --bib2json will convert bibtex/biblatex to + CSL compatible JSON bibliographies. + * Updated locale files for correct textual date ranges + in e.g. the da-DK locale. Use form="ordinal" instead of a period + as suffix. (#16, #18) + * Support new langid and langidopts biblatex fields. (#11) + * Made test-pandoc-citeproc work in all locales. (#19) + It now tests the executable rather than the library function. + * Fixed disambiguation with multivolume works (#14). + * Improved titlecase/unTitlecase to be sensitive to colons, + question marks, and exclamation marks, after which the + next character sohuld be capitalized even in sentence case + (pandoc #1102). + * The "locale" filed in metadata will now override a style's + default locale. This can also be set by the command line: + --metadata locale=fr-FR (#10). + * Use CSL-compatible date-parts for dates in YAML/JSON + bibliographies. + * Made FromJSON for Reference more forgiving. Suitable strings + are coerced into integer values. (pandoc #1094) + * Fixed extra punctuation at end of footnote (#13). + * Reference: Always use array in JSON for dates, agents. + * Bibtex parser: Don't fail on entry with no title. + * Bibliography output: 'given' is now a string, not an array. + The string will be split on spaces into a list of given names. + Note that an array can also be used. But we write + a plain string, to match the citeproc json schema. + * Fixed spacing bug in date ranges (#7). + * Names: Fixed formatLabel so it works for editortranslator. + This fixes a bug for cases where editor = translator (#9). + * Text.CSL.Eval.Date: Fixed bugs with date ranges. + Ranges within the same year were raising an error "Prelude.init: empty + list" (#7). + * Util: Export tr' and init'. + * Text.CSL.Proc.Disamb: Correct definition of allTheSame. + * Improved disambiguation. Now we correctly handle the case with no + author but title. + * Consider names too when determining date disambiguations. + Previously if you had two distinct names needing disambiguation for + the same date, the letters would not start over with 'a' for the second + name. + * Added Generic instances for the types in Style and Reference. diff --git a/chicago-author-date.csl b/chicago-author-date.csl new file mode 100644 --- /dev/null +++ b/chicago-author-date.csl @@ -0,0 +1,549 @@ + + diff --git a/dist/build/Text/CSL/Data/Embedded.hs b/dist/build/Text/CSL/Data/Embedded.hs new file mode 100644 --- /dev/null +++ b/dist/build/Text/CSL/Data/Embedded.hs @@ -0,0 +1,11 @@ +# 1 "src/Text/CSL/Data/Embedded.hsb" +{-# LANGUAGE OverloadedStrings #-} +-- to be processed using hsb2hs +module Text.CSL.Data.Embedded (localeFiles, defaultCSL) where +import qualified Data.ByteString.Char8 as S + +localeFiles :: [(FilePath, S.ByteString)] +localeFiles = [("locales-af-ZA.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n toegang verkry\n en\n and others\n anonymous\n anon\n at\n available at\n by\n circa\n c.\n cited\n \n edition\n editions\n \n ed\n et al.\n voorhande\n van\n ibid.\n in\n in press\n internet\n interview\n letter\n no date\n n.d.\n online\n presented at the\n \n reference\n references\n \n \n ref.\n refs.\n \n opgehaal\n scale\n version\n\n \n AD\n BC\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n book\n books\n \n \n chapter\n chapters\n \n \n column\n columns\n \n \n figure\n figures\n \n \n folio\n folios\n \n \n number\n numbers\n \n \n re\195\171l\n re\195\171ls\n \n \n note\n notes\n \n \n opus\n opera\n \n \n bladsy\n bladsye\n \n \n bladsy\n bladsye\n \n \n paragraaf\n paragrawe\n \n \n part\n parts\n \n \n section\n sections\n \n \n sub verbo\n sub verbis\n \n \n verse\n verses\n \n \n volume\n volumes\n \n\n \n bk\n chap\n col\n fig\n f\n no\n l.\n n.\n op\n \n bl\n bll\n \n \n bl\n bll\n \n para\n pt\n sec\n \n s.v.\n s.vv.\n \n \n v\n vv\n \n \n vol\n vols\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n redakteur\n redakteurs\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n vertaler\n vertalers\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n red\n reds\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n vert\n verts\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n onder redaksie van\n edited by\n illustrated by\n interview by\n to\n by\n vertaal deur\n edited & translated by\n\n \n by\n dir.\n red\n ed.\n illus.\n verts\n ed. & trans. by\n\n \n Januarie\n Februarie\n Maart\n April\n Mei\n Junie\n Julie\n Augustus\n September\n Oktober\n November\n Desember\n\n \n Jan\n Feb\n Mrt\n Apr\n Mei\n Jun\n Jul\n Aug\n Sep\n Okt\n Nov\n Des\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-ar-AR.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \216\170\216\167\216\177\217\138\216\174 \216\167\217\132\217\136\216\181\217\136\217\132\n \217\136\n \217\136\216\162\216\174\216\177\217\136\217\134\n \217\133\216\172\217\135\217\136\217\132\n \217\133\216\172\217\135\217\136\217\132\n \216\185\217\134\216\175\n available at\n \216\185\217\134 \216\183\216\177\217\138\217\130\n \216\173\217\136\216\167\217\132\217\138\n \216\173\217\136.\n \217\136\216\171\217\130\n \n \216\167\217\132\216\183\216\168\216\185\216\169\n \216\167\217\132\216\183\216\168\216\185\216\167\216\170\n \n \216\183.\n \217\136\216\162\216\174.\n \216\167\217\132\216\170\216\167\217\132\217\138\n \217\133\217\134\n \216\167\217\132\217\133\216\177\216\172\216\185 \216\167\217\132\216\179\216\167\216\168\217\130\n \217\129\217\138\n \217\130\217\138\216\175 \216\167\217\132\217\134\216\180\216\177\n \216\167\217\134\216\170\216\177\217\134\216\170\n \217\133\217\130\216\167\216\168\217\132\216\169\n \216\174\216\183\216\167\216\168\n \216\175\217\136\217\134 \216\170\216\167\216\177\217\138\216\174\n \216\175.\216\170\n \216\185\217\132\217\137 \216\167\217\132\216\174\216\183 \216\167\217\132\217\133\216\168\216\167\216\180\216\177\n \217\130\217\143\216\175\217\145\217\142\217\133 \217\129\217\138\n \n \217\133\216\177\216\172\216\185\n \217\133\216\177\216\167\216\172\216\185\n \n \n \217\133\216\177\216\172\216\185\n \217\133\216\177\216\167\216\172\216\185\n \n \216\167\216\179\216\170\216\177\216\172\216\185 \217\129\217\138\n scale\n version\n\n \n \216\168.\217\133.\n \217\130.\217\133.\n\n \n \"\n \"\n '\n '\n \226\128\147\n\n \n \n\n \n \216\167\217\132\216\167\217\136\217\132\n \216\167\217\132\216\171\216\167\217\134\217\138\n \216\167\217\132\216\171\216\167\217\132\216\171\n \216\167\217\132\216\177\216\167\216\168\216\185\n \216\167\217\132\216\174\216\167\217\133\216\179\n \216\167\217\132\216\179\216\167\216\175\216\179\n \216\167\217\132\216\179\216\167\216\168\216\185\n \216\167\217\132\216\171\216\167\217\133\217\134\n \216\167\217\132\216\170\216\167\216\179\216\185\n \216\167\217\132\216\185\216\167\216\180\216\177\n\n \n \n \217\131\216\170\216\167\216\168\n \217\131\216\170\216\168\n \n \n \217\129\216\181\217\132\n \217\129\216\181\217\136\217\132\n \n \n \216\185\217\133\217\136\216\175\n \216\163\216\185\217\133\216\175\216\169\n \n \n \216\177\216\179\217\133 \216\170\217\136\216\182\217\138\216\173\217\138\n \216\177\216\179\217\136\217\133 \216\170\217\136\216\182\217\138\216\173\217\138\216\169\n \n \n \217\136\216\177\217\130\216\169\n \216\163\217\136\216\177\216\167\217\130\n \n \n \216\185\216\175\216\175\n \216\163\216\185\216\175\216\167\216\175\n \n \n \216\179\216\183\216\177\n \216\163\216\179\216\183\216\177\n \n \n \217\133\217\132\216\167\216\173\216\184\216\169\n \217\133\217\132\216\167\216\173\216\184\216\167\216\170\n \n \n \217\134\217\136\216\170\217\135 \217\133\217\136\216\179\217\138\217\130\217\138\216\169\n \217\134\217\136\216\170 \217\133\217\136\216\179\217\138\217\130\217\138\216\169\n \n \n \216\181\217\129\216\173\216\169\n \216\181\217\129\216\173\216\167\216\170\n \n \n \216\181\217\129\216\173\216\169\n \216\181\217\129\216\173\216\167\216\170\n \n \n \217\129\217\130\216\177\216\169\n \217\129\217\130\216\177\216\167\216\170\n \n \n \216\172\216\178\216\161\n \216\163\216\172\216\178\216\167\216\161\n \n \n \217\130\216\179\217\133\n \216\163\217\130\216\179\216\167\217\133\n \n \n \216\170\217\129\216\179\217\138\216\177 \217\129\216\177\216\185\217\138\n \216\170\217\129\216\179\217\138\216\177\216\167\216\170 \217\129\216\177\216\185\217\138\216\169\n \n \n \216\168\217\138\216\170 \216\180\216\185\216\177\n \216\163\216\168\217\138\216\167\216\170 \216\180\216\185\216\177\n \n \n \217\133\216\172\217\132\216\175\n \217\133\216\172\217\132\216\175\216\167\216\170\n \n\n \n \217\131\216\170\216\167\216\168\n \217\129\216\181\217\132\n \216\185\217\133\217\136\216\175\n \216\177\216\179\217\133 \216\170\217\136\216\182\217\138\216\173\217\138\n \217\133\216\183\217\136\217\138\216\169\n \216\185\216\175\216\175\n l.\n n.\n \217\134\217\136\216\170\216\169 \217\133\217\136\216\179\217\138\217\130\217\138\216\169\n \n \216\181\n \216\181.\216\181.\n \n \n \216\181\n \216\181.\216\181.\n \n \217\129\217\130\216\177\216\169\n \216\172.\n \217\130\216\179\217\133\n \n \216\170\217\129\216\179\217\138\216\177 \217\129\216\177\216\185\217\138\n \216\170\217\129\216\179\217\138\216\177\216\167\216\170 \217\129\216\177\216\185\217\138\216\169\n \n \n \216\168\217\138\216\170 \216\180\216\185\216\177\n \216\163\216\168\217\138\216\167\216\170 \216\180\216\185\216\177\n \n \n \217\133\216\172.\n \217\133\216\172.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n \217\133\216\173\216\177\216\177\n \217\133\216\173\216\177\216\177\217\138\217\134\n \n \n \216\177\216\166\217\138\216\179 \216\167\217\132\216\170\216\173\216\177\217\138\216\177\n \216\177\216\164\216\179\216\167\216\161 \216\167\217\132\216\170\216\173\216\177\217\138\216\177\n \n \n illustrator\n illustrators\n \n \n \217\133\216\170\216\177\216\172\217\133\n \217\133\216\170\216\177\216\172\217\133\217\138\217\134\n \n \n \217\133\216\170\216\177\216\172\217\133 \217\136\217\133\216\173\216\177\216\177\n \217\133\216\170\216\177\216\172\217\133\217\138\217\134 \217\136\217\133\216\173\216\177\216\177\217\138\217\134\n \n\n \n \n dir.\n dirs.\n \n \n \217\133\216\173\216\177\216\177\n \217\133\216\173\216\177\216\177\217\138\217\134\n \n \n \217\133\216\180\216\177\217\129 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\185\216\169\n \217\133\216\180\216\177\217\129\217\138\217\134 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\185\216\169\n \n \n ill.\n ills.\n \n \n \217\133\216\170\216\177\216\172\217\133\n \217\133\216\170\216\177\216\172\217\133\217\138\217\134\n \n \n \217\133\216\170\216\177\216\172\217\133 \217\136\217\133\216\180\216\177\217\129 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\167\216\185\217\135\n \217\133\216\170\216\177\216\172\217\133\217\138\217\134 \217\136\217\133\216\180\216\177\217\129\217\138\217\134 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\167\216\185\217\135\n \n\n \n directed by\n \216\170\216\173\216\177\217\138\216\177\n \216\167\216\185\216\175\216\167\216\175\n illustrated by\n \217\133\217\130\216\167\216\168\217\132\216\169 \216\168\217\136\216\167\216\179\216\183\216\169\n \217\133\216\177\216\179\217\132 \216\167\217\132\217\137\n by\n \216\170\216\177\216\172\217\133\216\169\n \216\167\216\185\216\175\216\167\216\175 \217\136\216\170\216\177\216\172\217\133\216\169\n\n \n \n dir.\n \216\170\216\173\216\177\217\138\216\177\n \216\167\216\180\216\177\217\129 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\185\216\169\n illus.\n \216\170\216\177\216\172\217\133\216\169\n \216\170\216\177\216\172\217\133\217\135 \217\136\216\167\216\180\216\177\217\129 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\167\216\185\217\135\n\n \n \217\138\217\134\216\167\217\138\216\177\n \217\129\216\168\216\177\216\167\217\138\216\177\n \217\133\216\167\216\177\216\179\n \216\167\216\168\216\177\217\138\217\132\n \217\133\216\167\217\138\217\136\n \217\138\217\136\217\134\217\138\217\136\n \217\138\217\136\217\132\217\138\217\136\n \216\167\216\186\216\179\216\183\216\179\n \216\179\216\168\216\170\217\133\216\168\216\177\n \216\167\217\131\216\170\217\136\216\168\216\177\n \217\134\217\136\217\129\217\133\216\168\216\177\n \216\175\217\138\216\179\217\133\216\168\216\177\n\n \n \217\138\217\134\216\167\217\138\216\177\n \217\129\216\168\216\177\216\167\217\138\216\177\n \217\133\216\167\216\177\216\179\n \216\167\216\168\216\177\217\138\217\132\n \217\133\216\167\217\138\217\136\n \217\138\217\136\217\134\217\138\217\136\n \217\138\217\136\217\132\217\138\217\136\n \216\167\216\186\216\179\216\183\216\179\n \216\179\216\168\216\170\217\133\216\168\216\177\n \216\167\217\131\216\170\217\136\216\168\216\177\n \217\134\217\136\217\129\217\133\216\168\216\177\n \216\175\217\138\216\179\217\133\216\168\216\177\n\n \n \216\167\217\132\216\177\216\168\217\138\216\185\n \216\167\217\132\216\181\217\138\217\129\n \216\167\217\132\216\174\216\177\217\138\217\129\n \216\167\217\132\216\180\216\170\216\167\216\161\n \n\n"),("locales-ar.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \216\170\216\167\216\177\217\138\216\174 \216\167\217\132\217\136\216\181\217\136\217\132\n \217\136\n \217\136\216\162\216\174\216\177\217\136\217\134\n \217\133\216\172\217\135\217\136\217\132\n \217\133\216\172\217\135\217\136\217\132\n \216\185\217\134\216\175\n available at\n \216\185\217\134 \216\183\216\177\217\138\217\130\n \216\173\217\136\216\167\217\132\217\138\n \216\173\217\136.\n \217\136\216\171\217\130\n \n \216\167\217\132\216\183\216\168\216\185\216\169\n \216\167\217\132\216\183\216\168\216\185\216\167\216\170\n \n \216\183.\n \217\136\216\162\216\174.\n \216\167\217\132\216\170\216\167\217\132\217\138\n \217\133\217\134\n \216\167\217\132\217\133\216\177\216\172\216\185 \216\167\217\132\216\179\216\167\216\168\217\130\n \217\129\217\138\n \217\130\217\138\216\175 \216\167\217\132\217\134\216\180\216\177\n \216\167\217\134\216\170\216\177\217\134\216\170\n \217\133\217\130\216\167\216\168\217\132\216\169\n \216\174\216\183\216\167\216\168\n \216\175\217\136\217\134 \216\170\216\167\216\177\217\138\216\174\n \216\175.\216\170\n \216\185\217\132\217\137 \216\167\217\132\216\174\216\183 \216\167\217\132\217\133\216\168\216\167\216\180\216\177\n \217\130\217\143\216\175\217\145\217\142\217\133 \217\129\217\138\n \n \217\133\216\177\216\172\216\185\n \217\133\216\177\216\167\216\172\216\185\n \n \n \217\133\216\177\216\172\216\185\n \217\133\216\177\216\167\216\172\216\185\n \n \216\167\216\179\216\170\216\177\216\172\216\185 \217\129\217\138\n scale\n version\n\n \n \216\168.\217\133.\n \217\130.\217\133.\n\n \n \"\n \"\n '\n '\n \226\128\147\n\n \n \n\n \n \216\167\217\132\216\167\217\136\217\132\n \216\167\217\132\216\171\216\167\217\134\217\138\n \216\167\217\132\216\171\216\167\217\132\216\171\n \216\167\217\132\216\177\216\167\216\168\216\185\n \216\167\217\132\216\174\216\167\217\133\216\179\n \216\167\217\132\216\179\216\167\216\175\216\179\n \216\167\217\132\216\179\216\167\216\168\216\185\n \216\167\217\132\216\171\216\167\217\133\217\134\n \216\167\217\132\216\170\216\167\216\179\216\185\n \216\167\217\132\216\185\216\167\216\180\216\177\n\n \n \n \217\131\216\170\216\167\216\168\n \217\131\216\170\216\168\n \n \n \217\129\216\181\217\132\n \217\129\216\181\217\136\217\132\n \n \n \216\185\217\133\217\136\216\175\n \216\163\216\185\217\133\216\175\216\169\n \n \n \216\177\216\179\217\133 \216\170\217\136\216\182\217\138\216\173\217\138\n \216\177\216\179\217\136\217\133 \216\170\217\136\216\182\217\138\216\173\217\138\216\169\n \n \n \217\136\216\177\217\130\216\169\n \216\163\217\136\216\177\216\167\217\130\n \n \n \216\185\216\175\216\175\n \216\163\216\185\216\175\216\167\216\175\n \n \n \216\179\216\183\216\177\n \216\163\216\179\216\183\216\177\n \n \n \217\133\217\132\216\167\216\173\216\184\216\169\n \217\133\217\132\216\167\216\173\216\184\216\167\216\170\n \n \n \217\134\217\136\216\170\217\135 \217\133\217\136\216\179\217\138\217\130\217\138\216\169\n \217\134\217\136\216\170 \217\133\217\136\216\179\217\138\217\130\217\138\216\169\n \n \n \216\181\217\129\216\173\216\169\n \216\181\217\129\216\173\216\167\216\170\n \n \n \216\181\217\129\216\173\216\169\n \216\181\217\129\216\173\216\167\216\170\n \n \n \217\129\217\130\216\177\216\169\n \217\129\217\130\216\177\216\167\216\170\n \n \n \216\172\216\178\216\161\n \216\163\216\172\216\178\216\167\216\161\n \n \n \217\130\216\179\217\133\n \216\163\217\130\216\179\216\167\217\133\n \n \n \216\170\217\129\216\179\217\138\216\177 \217\129\216\177\216\185\217\138\n \216\170\217\129\216\179\217\138\216\177\216\167\216\170 \217\129\216\177\216\185\217\138\216\169\n \n \n \216\168\217\138\216\170 \216\180\216\185\216\177\n \216\163\216\168\217\138\216\167\216\170 \216\180\216\185\216\177\n \n \n \217\133\216\172\217\132\216\175\n \217\133\216\172\217\132\216\175\216\167\216\170\n \n\n \n \217\131\216\170\216\167\216\168\n \217\129\216\181\217\132\n \216\185\217\133\217\136\216\175\n \216\177\216\179\217\133 \216\170\217\136\216\182\217\138\216\173\217\138\n \217\133\216\183\217\136\217\138\216\169\n \216\185\216\175\216\175\n l.\n n.\n \217\134\217\136\216\170\216\169 \217\133\217\136\216\179\217\138\217\130\217\138\216\169\n \n \216\181\n \216\181.\216\181.\n \n \n \216\181\n \216\181.\216\181.\n \n \217\129\217\130\216\177\216\169\n \216\172.\n \217\130\216\179\217\133\n \n \216\170\217\129\216\179\217\138\216\177 \217\129\216\177\216\185\217\138\n \216\170\217\129\216\179\217\138\216\177\216\167\216\170 \217\129\216\177\216\185\217\138\216\169\n \n \n \216\168\217\138\216\170 \216\180\216\185\216\177\n \216\163\216\168\217\138\216\167\216\170 \216\180\216\185\216\177\n \n \n \217\133\216\172.\n \217\133\216\172.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n \217\133\216\173\216\177\216\177\n \217\133\216\173\216\177\216\177\217\138\217\134\n \n \n \216\177\216\166\217\138\216\179 \216\167\217\132\216\170\216\173\216\177\217\138\216\177\n \216\177\216\164\216\179\216\167\216\161 \216\167\217\132\216\170\216\173\216\177\217\138\216\177\n \n \n illustrator\n illustrators\n \n \n \217\133\216\170\216\177\216\172\217\133\n \217\133\216\170\216\177\216\172\217\133\217\138\217\134\n \n \n \217\133\216\170\216\177\216\172\217\133 \217\136\217\133\216\173\216\177\216\177\n \217\133\216\170\216\177\216\172\217\133\217\138\217\134 \217\136\217\133\216\173\216\177\216\177\217\138\217\134\n \n\n \n \n dir.\n dirs.\n \n \n \217\133\216\173\216\177\216\177\n \217\133\216\173\216\177\216\177\217\138\217\134\n \n \n \217\133\216\180\216\177\217\129 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\185\216\169\n \217\133\216\180\216\177\217\129\217\138\217\134 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\185\216\169\n \n \n ill.\n ills.\n \n \n \217\133\216\170\216\177\216\172\217\133\n \217\133\216\170\216\177\216\172\217\133\217\138\217\134\n \n \n \217\133\216\170\216\177\216\172\217\133 \217\136\217\133\216\180\216\177\217\129 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\167\216\185\217\135\n \217\133\216\170\216\177\216\172\217\133\217\138\217\134 \217\136\217\133\216\180\216\177\217\129\217\138\217\134 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\167\216\185\217\135\n \n\n \n directed by\n \216\170\216\173\216\177\217\138\216\177\n \216\167\216\185\216\175\216\167\216\175\n illustrated by\n \217\133\217\130\216\167\216\168\217\132\216\169 \216\168\217\136\216\167\216\179\216\183\216\169\n \217\133\216\177\216\179\217\132 \216\167\217\132\217\137\n by\n \216\170\216\177\216\172\217\133\216\169\n \216\167\216\185\216\175\216\167\216\175 \217\136\216\170\216\177\216\172\217\133\216\169\n\n \n \n dir.\n \216\170\216\173\216\177\217\138\216\177\n \216\167\216\180\216\177\217\129 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\185\216\169\n illus.\n \216\170\216\177\216\172\217\133\216\169\n \216\170\216\177\216\172\217\133\217\135 \217\136\216\167\216\180\216\177\217\129 \216\185\217\132\217\137 \216\167\217\132\216\183\216\168\216\167\216\185\217\135\n\n \n \217\138\217\134\216\167\217\138\216\177\n \217\129\216\168\216\177\216\167\217\138\216\177\n \217\133\216\167\216\177\216\179\n \216\167\216\168\216\177\217\138\217\132\n \217\133\216\167\217\138\217\136\n \217\138\217\136\217\134\217\138\217\136\n \217\138\217\136\217\132\217\138\217\136\n \216\167\216\186\216\179\216\183\216\179\n \216\179\216\168\216\170\217\133\216\168\216\177\n \216\167\217\131\216\170\217\136\216\168\216\177\n \217\134\217\136\217\129\217\133\216\168\216\177\n \216\175\217\138\216\179\217\133\216\168\216\177\n\n \n \217\138\217\134\216\167\217\138\216\177\n \217\129\216\168\216\177\216\167\217\138\216\177\n \217\133\216\167\216\177\216\179\n \216\167\216\168\216\177\217\138\217\132\n \217\133\216\167\217\138\217\136\n \217\138\217\136\217\134\217\138\217\136\n \217\138\217\136\217\132\217\138\217\136\n \216\167\216\186\216\179\216\183\216\179\n \216\179\216\168\216\170\217\133\216\168\216\177\n \216\167\217\131\216\170\217\136\216\168\216\177\n \217\134\217\136\217\129\217\133\216\168\216\177\n \216\175\217\138\216\179\217\133\216\168\216\177\n\n \n \216\167\217\132\216\177\216\168\217\138\216\185\n \216\167\217\132\216\181\217\138\217\129\n \216\167\217\132\216\174\216\177\217\138\217\129\n \216\167\217\132\216\180\216\170\216\167\216\161\n \n\n"),("locales-bg-BG.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \208\190\209\130\208\178\208\190\209\128\208\181\208\189 \208\189\208\176\n \208\184\n \208\184 \208\180\209\128\209\131\208\179\208\184\n \208\176\208\189\208\190\208\189\208\184\208\188\208\181\208\189\n \208\176\208\189\208\190\208\189\n \208\178\n available at\n by\n circa\n c.\n \209\134\208\184\209\130\208\184\209\128\208\176\208\189\n \n \208\184\208\183\208\180\208\176\208\189\208\184\208\181\n \208\184\208\183\208\180\208\176\208\189\208\184\209\143\n \n \208\184\208\183\208\180\n \208\184 \209\129\209\138\208\176\208\178\209\130.\n \208\191\209\128\208\181\208\180\209\129\209\130\208\190\209\143\209\137\n \208\190\209\130\n \208\191\208\176\208\186 \209\130\208\176\208\188\n \208\178\n \208\191\208\190\208\180 \208\191\208\181\209\135\208\176\209\130\n \208\184\208\189\209\130\208\181\209\128\208\189\208\181\209\130\n \208\184\208\189\209\130\208\181\209\128\208\178\209\142\n \208\191\208\184\209\129\208\188\208\190\n no date\n \208\177\208\181\208\183 \208\180\208\176\209\130\208\176\n \208\190\208\189\208\187\208\176\208\185\208\189\n \208\191\209\128\208\181\208\180\209\129\209\130\208\176\208\178\208\181\208\189 \208\189\208\176\n \n reference\n references\n \n \n ref.\n refs.\n \n \208\184\208\183\209\130\208\181\208\179\208\187\208\181\208\189 \208\189\208\176\n scale\n version\n\n \n AD\n BC\n\n \n \226\128\158\n \226\128\156\n \226\128\158\n \226\128\156\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n \208\186\208\189\208\184\208\179\208\176\n \208\186\208\189\208\184\208\179\208\184\n \n \n \208\179\208\187\208\176\208\178\208\176\n \208\179\208\187\208\176\208\178\208\184\n \n \n \208\186\208\190\208\187\208\190\208\189\208\176\n \208\186\208\190\208\187\208\190\208\189\208\184\n \n \n \209\132\208\184\208\179\209\131\209\128\208\176\n \209\132\208\184\208\179\209\131\209\128\208\184\n \n \n \209\132\208\190\208\187\208\184\208\190\n \209\132\208\190\208\187\208\184\209\143\n \n \n \208\177\209\128\208\190\208\185\n \208\177\209\128\208\190\208\181\208\178\208\181\n \n \n \209\128\208\181\208\180\n \209\128\208\181\208\180\208\190\208\178\208\181\n \n \n \208\177\208\181\208\187\208\181\208\182\208\186\208\176\n \208\177\208\181\208\187\208\181\208\182\208\186\208\184\n \n \n \208\190\208\191\209\131\209\129\n \208\190\208\191\209\131\209\129\208\184\n \n \n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\208\176\n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\208\184\n \n \n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\208\176\n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\208\184\n \n \n \208\191\208\176\209\128\208\176\208\179\209\128\208\176\209\132\n \208\191\208\176\209\128\208\176\208\179\209\128\208\176\209\132\208\184\n \n \n \209\135\208\176\209\129\209\130\n \209\135\208\176\209\129\209\130\208\184\n \n \n \209\128\208\176\208\183\208\180\208\181\208\187\n \209\128\208\176\208\183\208\180\208\181\208\187\208\184\n \n \n sub verbo\n sub verbis\n \n \n \209\129\209\130\208\184\209\133\n \209\129\209\130\208\184\209\133\208\190\208\178\208\181\n \n \n \209\130\208\190\208\188\n \209\130\208\190\208\188\208\190\208\178\208\181\n \n\n \n \208\186\208\189\n \208\179\208\187\n \208\186\208\190\208\187\n \209\132\208\184\208\179\n \209\132\208\190\208\187\n \208\177\209\128\n l.\n n.\n \208\190\208\191\n \n \209\129\n \209\129-\209\134\208\184\n \n \n \209\129\n \209\129-\209\134\208\184\n \n \208\191\n \209\135\n \209\128\208\176\208\183\208\180\n \n s.v.\n s.vv.\n \n \n \209\129\209\130\n \209\129\209\130-\208\190\208\178\208\181\n \n \n \209\130\208\190\208\188\n \209\130-\208\190\208\178\208\181\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n \209\128\208\181\208\180\208\176\208\186\209\130\208\190\209\128\n \209\128\208\181\208\180\208\176\208\186\209\130\208\190\209\128\208\184\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n \208\191\209\128\208\181\208\178\208\190\208\180\208\176\209\135\n \208\191\209\128\208\181\208\178\208\190\208\180\208\176\209\135\208\184\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n \209\128\208\181\208\180\n \209\128\208\181\208\180-\209\128\208\184\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n \208\191\209\128\208\181\208\178\n \208\191\209\128\208\181\208\178-\209\135\208\184\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n \209\128\208\181\208\180\208\176\208\186\209\130\208\184\209\128\208\176\208\189 \208\190\209\130\n edited by\n illustrated by\n \208\184\208\189\209\130\208\181\209\128\208\178\209\142\208\184\209\128\208\176\208\189 \208\190\209\130\n \208\180\208\190\n by\n \208\191\209\128\208\181\208\178\208\181\208\180\208\181\208\189 \208\190\209\130\n edited & translated by\n\n \n by\n dir.\n \209\128\208\181\208\180\n ed.\n illus.\n \208\191\209\128\208\181\208\178\n ed. & trans. by\n\n \n \208\175\208\189\209\131\208\176\209\128\208\184\n \208\164\208\181\208\178\209\128\209\131\208\176\209\128\208\184\n \208\156\208\176\209\128\209\130\n \208\144\208\191\209\128\208\184\208\187\n \208\156\208\176\208\185\n \208\174\208\189\208\184\n \208\174\208\187\208\184\n \208\144\208\178\208\179\209\131\209\129\209\130\n \208\161\208\181\208\191\209\130\208\181\208\188\208\178\209\128\208\184\n \208\158\208\186\209\130\208\190\208\188\208\178\209\128\208\184\n \208\157\208\190\208\181\208\188\208\178\209\128\208\184\n \208\148\208\181\208\186\208\181\208\188\208\178\209\128\208\184\n\n \n \208\175\208\189\209\131\n \208\164\208\181\208\178\n \208\156\208\176\209\128\n \208\144\208\191\209\128\n \208\156\208\176\208\185\n \208\174\208\189\208\184\n \208\174\208\187\208\184\n \208\144\208\178\208\179\n \208\161\208\181\208\191\n \208\158\208\186\209\130\n \208\157\208\190\208\181\n \208\148\208\181\208\186\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-ca-AD.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n accedit\n i\n i altres\n an\195\178nim\n an\195\178n.\n a\n disponible a\n per\n circa\n c.\n citat\n \n edici\195\179\n edicions\n \n ed.\n et al.\n previst\n de\n ib\195\173d.\n en\n en impremta\n internet\n entrevista\n carta\n sense data\n s.d.\n en l\195\173nia\n presentat a\n \n refer\195\168ncia\n refer\195\168ncies\n \n \n ref.\n ref.\n \n recuperat\n escala\n versi\195\179\n\n \n dC\n aC\n\n \n \194\171\n \194\187\n \226\128\156\n \226\128\157\n -\n\n \n a\n\n \n primera\n segona\n tercera\n quarta\n cinquena\n sisena\n setena\n vuitena\n novena\n desena\n\n \n \n llibre\n llibres\n \n \n cap\195\173tol\n cap\195\173tols\n \n \n columna\n columnes\n \n \n figura\n figures\n \n \n foli\n folis\n \n \n n\195\186mero\n n\195\186meros\n \n \n l\195\173nia\n l\195\173nies\n \n \n nota\n notes\n \n \n opus\n opera\n \n \n p\195\160gina\n p\195\160gines\n \n \n p\195\160gina\n p\195\160gines\n \n \n par\195\160graf\n par\195\160grafs\n \n \n part\n parts\n \n \n secci\195\179\n seccions\n \n \n sub voce\n sub vocibus\n \n \n vers\n versos\n \n \n volum\n volums\n \n\n \n llib.\n cap.\n col.\n fig.\n f.\n n\195\186m.\n l.\n n.\n op.\n \n p.\n p.\n \n \n p.\n p.\n \n par.\n pt.\n sec.\n \n s.v.\n s.v.\n \n \n v.\n v.\n \n \n vol.\n vol.\n \n\n \n \n \194\167\n \194\167\n \n \n \194\167\n \194\167\n \n\n \n \n director\n directors\n \n \n editor\n editors\n \n \n editor\n editors\n \n \n il\194\183lustrador\n il\194\183lustradors\n \n \n traductor\n traductors\n \n \n editor i traductor\n editors i traductors\n \n\n \n \n dir.\n dir.\n \n \n ed.\n ed.\n \n \n ed.\n ed.\n \n \n il\194\183lust.\n il\194\183lust.\n \n \n trad.\n trad.\n \n \n ed. i trad.\n ed. i trad.\n \n\n \n dirigit per\n editat per\n editat per\n il\194\183lustrat per\n entrevistat per\n a\n per\n tradu\195\175t per\n editat i tradu\195\175t per\n\n \n per\n dir.\n ed.\n ed.\n il\194\183lust.\n trad.\n ed. i trad. per\n\n \n gener\n febrer\n mar\195\167\n abril\n maig\n juny\n juliol\n agost\n setembre\n octubre\n novembre\n desembre\n\n \n gen.\n feb.\n mar\195\167\n abr.\n maig\n juny\n jul.\n ago.\n set.\n oct.\n nov.\n des.\n\n \n primavera\n estiu\n tardor\n hivern\n \n\n"),("locales-cs-CZ.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n vid\196\155no\n vid.\n a\n a dal\197\161\195\173\n anonym\n anon.\n v\n dostupn\195\169 z\n od\n asi\n cca.\n citov\195\161n\n \n vyd\195\161n\195\173\n vyd\195\161n\195\173\n \n vyd.\n et al.\n nadch\195\161zej\195\173c\195\173\n z\n ibid.\n in\n v tisku\n internet\n interview\n dopis\n nedatov\195\161no\n b.r.\n online\n prezentov\195\161no v\n \n reference\n reference\n \n \n ref.\n ref.\n \n dostupn\195\169\n m\196\155\197\153\195\173tko\n verze\n\n \n n. l.\n p\197\153. n. l.\n\n \n \226\128\158\n \"\n \226\128\154\n \194\180\n \226\128\147\n\n \n .\n\n \n prvn\195\173\n druh\195\169\n t\197\153et\195\173\n \196\141tvrt\195\169\n p\195\161t\195\169\n \197\161est\195\169\n sedm\195\169\n osm\195\169\n dev\195\161t\195\169\n des\195\161t\195\169\n\n \n \n kniha\n knihy\n \n \n kapitola\n kapitoly\n \n \n sloupec\n sloupce\n \n \n obr\195\161zek\n obr\195\161zky\n \n \n list\n listy\n \n \n \196\141\195\173slo\n \196\141\195\173sla\n \n \n \197\153\195\161dek\n \197\153\195\161dky\n \n \n pozn\195\161mka\n pozn\195\161mky\n \n \n opus\n opusy\n \n \n strana\n strany\n \n \n strana\n strany\n \n \n odstavec\n odstavce\n \n \n \196\141\195\161st\n \196\141\195\161sti\n \n \n sekce\n sekce\n \n \n pod heslem\n pod hesly\n \n \n ver\197\161\n ver\197\161e\n \n \n ro\196\141n\195\173k\n ro\196\141n\195\173ky\n \n\n \n k.\n kap.\n sl.\n obr.\n l.\n \196\141.\n \197\153.\n pozn.\n op.\n \n s.\n s.\n \n \n s.\n s.\n \n odst.\n \196\141.\n sek.\n \n s.v.\n s.v.\n \n \n v.\n v.\n \n \n ro\196\141.\n ro\196\141.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n \197\153editel\n \197\153editel\195\169\n \n \n editor\n edito\197\153i\n \n \n vedouc\195\173 editor\n vedouc\195\173 edito\197\153i\n \n \n ilustr\195\161tor\n ilustr\195\161to\197\153i\n \n \n p\197\153ekladatel\n p\197\153ekladatel\195\169\n \n \n editor a p\197\153ekladatel\n edito\197\153i a p\197\153ekladatel\195\169\n \n\n \n \n \197\153ed.\n \197\153ed.\n \n \n ed.\n ed.\n \n \n ed.\n ed.\n \n \n il.\n il.\n \n \n p\197\153el.\n p\197\153el.\n \n \n ed. a p\197\153el.\n ed. a p\197\153el.\n \n\n \n \197\153\195\173dil\n editoval\n editoval\n ilustroval\n rozhovor vedl\n pro\n recenzoval\n p\197\153elo\197\190il\n editoval a p\197\153elo\197\190il\n\n \n \n \197\153ed.\n ed.\n ed.\n ilust.\n p\197\153el.\n ed. a p\197\153el.\n\n \n leden\n \195\186nor\n b\197\153ezen\n duben\n kv\196\155ten\n \196\141erven\n \196\141ervenec\n srpen\n z\195\161\197\153\195\173\n \197\153\195\173jen\n listopad\n prosinec\n\n \n led.\n \195\186no.\n b\197\153e.\n dub.\n kv\196\155.\n \196\141er.\n \196\141vc.\n srp.\n z\195\161\197\153.\n \197\153\195\173j.\n lis.\n pro.\n\n \n jaro\n l\195\169to\n podzim\n zima\n \n\n"),("locales-da-DK.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \195\165bnet\n og\n med flere\n anonym\n anon.\n p\195\165\n available at\n af\n cirka\n ca.\n citeret\n \n udgave\n udgaver\n \n udg.\n et al.\n kommende\n fra\n ibid.\n i\n i tryk\n internet\n interview\n brev\n ingen dato\n udateret\n online\n pr\195\166senteret ved\n \n reference\n referencer\n \n \n ref.\n refr.\n \n hentet\n scale\n version\n\n \n e.Kr\n f.Kr\n\n \n \194\171\n \194\187\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n .\n\n \n f\195\184rste\n anden\n tredje\n fjerde\n femte\n sjette\n syvende\n ottende\n niende\n tiende\n\n \n \n bog\n b\195\184ger\n \n \n kapitel\n kapitler\n \n \n kolonne\n kolonner\n \n \n figur\n figurer\n \n \n folio\n folier\n \n \n nummer\n numre\n \n \n linje\n linjer\n \n \n note\n noter\n \n \n opus\n opuser\n \n \n side\n sider\n \n \n side\n sider\n \n \n afsnit\n afsnit\n \n \n del\n dele\n \n \n sektion\n sektionerne\n \n \n sub verbo\n sub verbis\n \n \n vers\n vers\n \n \n bind\n bind\n \n\n \n b.\n kap.\n kol.\n fig.\n fol.\n nr.\n l.\n n.\n op.\n \n s.\n s.\n \n \n s.\n s.\n \n afs.\n d.\n sekt.\n \n s.v.\n s.vv.\n \n \n v.\n v.\n \n \n bd.\n bd.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n redakt\195\184r\n redakt\195\184rer\n \n \n redakt\195\184r\n redakt\195\184rer\n \n \n illustrator\n illustrators\n \n \n overs\195\166tter\n overs\195\166ttere\n \n \n redakt\195\184r & overs\195\166tter\n redakt\195\184rer & overs\195\166ttere\n \n\n \n \n dir.\n dirs.\n \n \n red.\n red.\n \n \n red.\n red.\n \n \n ill.\n ills.\n \n \n overs.\n overs.\n \n \n red. & overs.\n red. & overs.\n \n\n \n directed by\n redigeret af\n redigeret af\n illustrated by\n interviewet af\n modtaget af\n by\n oversat af\n redigeret & oversat af\n\n \n af\n dir.\n red.\n red.\n illus.\n overs.\n red. & overs. af\n\n \n Januar\n Februar\n Marts\n April\n Maj\n Juni\n Juli\n August\n September\n Oktober\n November\n December\n\n \n Jan.\n Feb.\n Mar.\n Apr.\n Maj\n Jun.\n Jul.\n Aug.\n Sep.\n Okt.\n Nov.\n Dec.\n\n \n For\195\165r\n Sommer\n Efter\195\165r\n vinter\n \n\n"),("locales-de-AT.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n zugegriffen\n und\n und andere\n ohne Autor\n o. A.\n auf\n available at\n von\n circa\n ca.\n zitiert\n \n Auflage\n Auflagen\n \n Aufl.\n u. a.\n i. E.\n von\n ebd.\n in\n im Druck\n Internet\n Interview\n Brief\n ohne Datum\n o. J.\n online\n gehalten auf der\n \n Referenz\n Referenzen\n \n \n Ref.\n Ref.\n \n abgerufen\n scale\n version\n\n \n n. Chr.\n v. Chr.\n\n \n \226\128\158\n \226\128\156\n \226\128\154\n \226\128\152\n \226\128\147\n\n \n .\n\n \n erster\n zweiter\n dritter\n vierter\n f\195\188nfter\n sechster\n siebter\n achter\n neunter\n zehnter\n\n \n \n Buch\n B\195\188cher\n \n \n Kapitel\n Kapitel\n \n \n Spalte\n Spalten\n \n \n Abbildung\n Abbildungen\n \n \n Blatt\n Bl\195\164tter\n \n \n Nummer\n Nummern\n \n \n Zeile\n Zeilen\n \n \n Note\n Noten\n \n \n Opus\n Opera\n \n \n Seite\n Seiten\n \n \n Seite\n Seiten\n \n \n Absatz\n Abs\195\164tze\n \n \n Teil\n Teile\n \n \n Abschnitt\n Abschnitte\n \n \n sub verbo\n sub verbis\n \n \n Vers\n Verse\n \n \n Band\n B\195\164nde\n \n\n \n B.\n Kap.\n Sp.\n Abb.\n Fol.\n Nr.\n l.\n n.\n op.\n \n S.\n S.\n \n \n S.\n S.\n \n Abs.\n Teil\n Abschn.\n \n s.v.\n s.vv.\n \n \n V.\n V.\n \n \n Bd.\n Bd.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n Herausgeber\n Herausgeber\n \n \n Herausgeber\n Herausgeber\n \n \n illustrator\n illustrators\n \n \n \195\156bersetzer\n \195\156bersetzer\n \n \n Herausgeber & \195\156bersetzer\n Herausgeber & \195\156bersetzer\n \n\n \n \n dir.\n dirs.\n \n \n Hrsg.\n Hrsg.\n \n \n Hrsg.\n Hrsg.\n \n \n ill.\n ills.\n \n \n \195\156bers.\n \195\156bers.\n \n \n Hrsg. & \195\156bers.\n Hrsg. & \195\156bers\n \n\n \n directed by\n herausgegeben von\n herausgegeben von\n illustrated by\n interviewt von\n an\n by\n \195\188bersetzt von\n herausgegeben und \195\188bersetzt von\n\n \n von\n dir.\n hg. von\n hg. von\n illus.\n \195\188bers. von\n hg. & \195\188bers. von\n\n \n Januar\n Februar\n M\195\164rz\n April\n Mai\n Juni\n Juli\n August\n September\n Oktober\n November\n Dezember\n\n \n Jan.\n Feb.\n M\195\164rz\n Apr.\n Mai\n Juni\n Juli\n Aug.\n Sep.\n Okt.\n Nov.\n Dez.\n\n \n Fr\195\188hjahr\n Sommer\n Herbst\n Winter\n \n\n"),("locales-de-CH.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n zugegriffen\n und\n und andere\n ohne Autor\n o. A.\n auf\n available at\n von\n circa\n ca.\n zitiert\n \n Auflage\n Auflagen\n \n Aufl.\n u. a.\n i. E.\n von\n ebd.\n in\n im Druck\n Internet\n Interview\n Brief\n ohne Datum\n o. J.\n online\n gehalten auf der\n \n Referenz\n Referenzen\n \n \n Ref.\n Ref.\n \n abgerufen\n scale\n version\n\n \n n. Chr.\n v. Chr.\n\n \n \226\128\158\n \226\128\156\n \226\128\154\n \226\128\152\n \226\128\147\n\n \n .\n\n \n erster\n zweiter\n dritter\n vierter\n f\195\188nfter\n sechster\n siebter\n achter\n neunter\n zehnter\n\n \n \n Buch\n B\195\188cher\n \n \n Kapitel\n Kapitel\n \n \n Spalte\n Spalten\n \n \n Abbildung\n Abbildungen\n \n \n Blatt\n Bl\195\164tter\n \n \n Nummer\n Nummern\n \n \n Zeile\n Zeilen\n \n \n Note\n Noten\n \n \n Opus\n Opera\n \n \n Seite\n Seiten\n \n \n Seite\n Seiten\n \n \n Absatz\n Abs\195\164tze\n \n \n Teil\n Teile\n \n \n Abschnitt\n Abschnitte\n \n \n sub verbo\n sub verbis\n \n \n Vers\n Verse\n \n \n Band\n B\195\164nde\n \n\n \n B.\n Kap.\n Sp.\n Abb.\n Fol.\n Nr.\n l.\n n.\n op.\n \n S.\n S.\n \n \n S.\n S.\n \n Abs.\n Teil\n Abschn.\n \n s.v.\n s.vv.\n \n \n V.\n V.\n \n \n Bd.\n Bd.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n Herausgeber\n Herausgeber\n \n \n Herausgeber\n Herausgeber\n \n \n illustrator\n illustrators\n \n \n \195\156bersetzer\n \195\156bersetzer\n \n \n Herausgeber & \195\156bersetzer\n Herausgeber & \195\156bersetzer\n \n\n \n \n dir.\n dirs.\n \n \n Hrsg.\n Hrsg.\n \n \n Hrsg.\n Hrsg.\n \n \n ill.\n ills.\n \n \n \195\156bers.\n \195\156bers.\n \n \n Hrsg. & \195\156bers.\n Hrsg. & \195\156bers\n \n\n \n directed by\n herausgegeben von\n herausgegeben von\n illustrated by\n interviewt von\n an\n by\n \195\188bersetzt von\n herausgegeben und \195\188bersetzt von\n\n \n von\n dir.\n hg. von\n hg. von\n illus.\n \195\188bers. von\n hg. & \195\188bers. von\n\n \n Januar\n Februar\n M\195\164rz\n April\n Mai\n Juni\n Juli\n August\n September\n Oktober\n November\n Dezember\n\n \n Jan.\n Feb.\n M\195\164rz\n Apr.\n Mai\n Juni\n Juli\n Aug.\n Sep.\n Okt.\n Nov.\n Dez.\n\n \n Fr\195\188hjahr\n Sommer\n Herbst\n Winter\n \n\n"),("locales-de-DE.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n zugegriffen\n und\n und andere\n ohne Autor\n o. A.\n auf\n verf\195\188gbar unter\n von\n circa\n ca.\n zitiert\n \n Auflage\n Auflagen\n \n Aufl.\n u. a.\n i. E.\n von\n ebd.\n in\n im Druck\n Internet\n Interview\n Brief\n ohne Datum\n o. J.\n online\n gehalten auf der\n \n Referenz\n Referenzen\n \n \n Ref.\n Ref.\n \n abgerufen\n Ma\195\159stab\n Version\n\n \n n. Chr.\n v. Chr.\n\n \n \226\128\158\n \226\128\156\n \226\128\154\n \226\128\152\n \226\128\147\n\n \n .\n\n \n erster\n zweiter\n dritter\n vierter\n f\195\188nfter\n sechster\n siebter\n achter\n neunter\n zehnter\n\n \n \n Buch\n B\195\188cher\n \n \n Kapitel\n Kapitel\n \n \n Spalte\n Spalten\n \n \n Abbildung\n Abbildungen\n \n \n Blatt\n Bl\195\164tter\n \n \n Nummer\n Nummern\n \n \n Zeile\n Zeilen\n \n \n Note\n Noten\n \n \n Opus\n Opera\n \n \n Seite\n Seiten\n \n \n Seite\n Seiten\n \n \n Absatz\n Abs\195\164tze\n \n \n Teil\n Teile\n \n \n Abschnitt\n Abschnitte\n \n \n sub verbo\n sub verbis\n \n \n Vers\n Verse\n \n \n Band\n B\195\164nde\n \n\n \n B.\n Kap.\n Sp.\n Abb.\n Fol.\n Nr.\n Z.\n N.\n op.\n \n S.\n S.\n \n \n S.\n S.\n \n Abs.\n Teil\n Abschn.\n \n s.v.\n s.vv.\n \n \n V.\n V.\n \n \n Bd.\n Bde.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n Regisseur\n Regisseure\n \n \n Herausgeber\n Herausgeber\n \n \n Herausgeber\n Herausgeber\n \n \n Illustrator\n Illustratoren\n \n \n \195\156bersetzer\n \195\156bersetzer\n \n \n Herausgeber & \195\156bersetzer\n Herausgeber & \195\156bersetzer\n \n\n \n \n Reg.\n Reg..\n \n \n Hrsg.\n Hrsg.\n \n \n Hrsg.\n Hrsg.\n \n \n Ill.\n Ill.\n \n \n \195\156bers.\n \195\156bers.\n \n \n Hrsg. & \195\156bers.\n Hrsg. & \195\156bers\n \n\n \n directed by\n herausgegeben von\n herausgegeben von\n illustriert von\n interviewt von\n an\n von\n \195\188bersetzt von\n herausgegeben und \195\188bersetzt von\n\n \n von\n Reg.\n hg. von\n hg. von\n illus. von\n \195\188bers. von\n hg. & \195\188bers. von\n\n \n Januar\n Februar\n M\195\164rz\n April\n Mai\n Juni\n Juli\n August\n September\n Oktober\n November\n Dezember\n\n \n Jan.\n Feb.\n M\195\164rz\n Apr.\n Mai\n Juni\n Juli\n Aug.\n Sep.\n Okt.\n Nov.\n Dez.\n\n \n Fr\195\188hjahr\n Sommer\n Herbst\n Winter\n \n\n"),("locales-el-GR.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2013-11-08T20:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \206\183\206\188\206\181\207\129\206\191\206\188\206\183\206\189\206\175\206\177 \207\128\207\129\207\140\207\131\206\178\206\177\207\131\206\183\207\130\n \206\186\206\177\206\185\n \206\186\206\177\206\185 \206\172\206\187\206\187\206\191\206\185\n \206\177\206\189\207\142\206\189\207\133\206\188\206\191\n \206\177\206\189\207\142\206\189.\n \206\181\207\134.\n \206\180\206\185\206\177\206\184\206\173\207\131\206\185\206\188\206\191 \207\131\207\132\206\191\n \206\177\207\128\207\140\n \207\128\206\181\207\129\206\175\207\128\206\191\207\133\n \207\128\206\181\207\129.\n \207\128\206\177\207\129\206\177\207\132\206\175\206\184\206\181\207\132\206\177\206\185\n \n \206\173\206\186\206\180\206\191\207\131\206\183\n \206\181\206\186\206\180\207\140\207\131\206\181\206\185\207\130\n \n \206\173\206\186\206\180.\n \206\186.\206\172.\n \207\128\207\129\206\191\207\131\206\181\207\135\206\173\207\130\n \206\177\207\128\207\140\n \207\131\207\132\206\191 \206\175\206\180\206\185\206\191\n \207\131\207\132\206\191\n \207\133\207\128\207\140 \206\173\206\186\206\180\206\191\207\131\206\183\n \206\180\206\185\206\177\206\180\206\175\206\186\207\132\207\133\206\191\n \207\131\207\133\206\189\206\173\206\189\207\132\206\181\207\133\206\190\206\183\n \206\181\207\128\206\185\207\131\207\132\206\191\206\187\206\174\n \207\135\207\137\207\129\206\175\207\130 \207\135\207\129\206\191\206\189\206\191\206\187\206\191\206\179\206\175\206\177\n \207\135.\207\135.\n \206\173\206\186\206\180\206\191\207\131\206\183 \207\131\206\181 \207\136\206\183\207\134\206\185\206\177\206\186\206\174 \206\188\206\191\207\129\207\134\206\174\n \207\128\206\177\207\129\206\191\207\133\207\131\206\185\206\172\207\131\207\132\206\183\206\186\206\181 \207\131\207\132\206\191\n \n \207\128\206\177\207\129\206\177\207\128\206\191\206\188\207\128\206\174\n \207\128\206\177\207\129\206\177\207\128\206\191\206\188\207\128\206\173\207\130\n \n \n \207\128\206\177\207\129.\n \207\128\206\177\207\129.\n \n \206\177\206\189\206\177\206\186\207\132\206\174\206\184\206\183\206\186\206\181\n \206\186\206\187\206\175\206\188\206\177\206\186\206\177\n \206\181\206\186\206\180\206\191\207\135\206\174\n\n \n \206\188.\206\167.\n \207\128.\206\167.\n\n \n \226\128\152\n \226\128\153\n '\n '\n \226\128\147\n\n \n \206\191\207\130\n\n \n \207\128\207\129\207\142\207\132\206\191\207\130\n \206\180\206\181\207\141\207\132\206\181\207\129\206\191\207\130\n \207\132\207\129\206\175\207\132\206\191\207\130\n \207\132\206\173\207\132\206\177\207\129\207\132\206\191\207\130\n \207\128\206\173\206\188\207\128\207\132\206\191\207\130\n \206\173\206\186\207\132\206\191\207\130\n \206\173\206\178\206\180\206\191\206\188\206\191\207\130\n \207\140\206\179\206\180\206\191\206\191\207\130\n \206\173\206\189\206\177\207\132\206\191\207\130\n \206\180\206\173\206\186\206\177\207\132\206\191\207\130\n\n \n \n \206\178\206\185\206\178\206\187\206\175\206\191\n \206\178\206\185\206\178\206\187\206\175\206\177\n \n \n \206\186\206\181\207\134\206\172\206\187\206\177\206\185\206\191\n \206\186\206\181\207\134\206\172\206\187\206\177\206\185\206\177\n \n \n \207\131\207\132\206\174\206\187\206\183\n \207\131\207\132\206\174\206\187\206\181\207\130\n \n \n \206\181\206\185\206\186\207\140\206\189\206\177\n \206\181\206\185\206\186\207\140\206\189\206\181\207\130\n \n \n \207\134\206\172\206\186\206\181\206\187\206\191\207\130\n \207\134\206\172\206\186\206\181\206\187\206\191\206\185\n \n \n \207\132\206\181\207\141\207\135\206\191\207\130\n \207\132\206\181\207\141\207\135\206\183\n \n \n \207\131\206\181\206\185\207\129\206\172\n \207\131\206\181\206\185\207\129\206\173\207\130\n \n \n \207\131\206\183\206\188\206\181\206\175\207\137\207\131\206\183\n \207\131\206\183\206\188\206\181\206\185\207\142\207\131\206\181\206\185\207\130\n \n \n \206\173\207\129\206\179\206\191\n \206\173\207\129\206\179\206\177\n \n \n \207\131\206\181\206\187\206\175\206\180\206\177\n \207\131\206\181\206\187\206\175\206\180\206\181\207\130\n \n \n \207\131\206\181\206\187\206\175\206\180\206\177\n \207\131\206\181\206\187\206\175\206\180\206\181\207\130\n \n \n \207\128\206\177\207\129\206\172\206\179\207\129\206\177\207\134\206\191\207\130\n \207\128\206\177\207\129\206\172\206\179\207\129\206\177\207\134\206\191\206\185\n \n \n \206\188\206\173\207\129\206\191\207\130\n \206\188\206\173\207\129\206\183\n \n \n \207\132\206\188\206\174\206\188\206\177\n \207\132\206\188\206\174\206\188\206\177\207\132\206\177\n \n \n \206\187\206\174\206\188\206\188\206\177\n \206\187\206\174\206\188\206\188\206\177\207\132\206\177\n \n \n \207\131\207\132\206\175\207\135\206\191\207\130\n \207\131\207\132\206\175\207\135\206\191\206\185\n \n \n \207\132\207\140\206\188\206\191\207\130\n \207\132\207\140\206\188\206\191\206\185\n \n\n \n \206\178\206\185\206\178.\n \206\186\206\181\207\134.\n \207\131\207\132.\n \206\181\206\185\206\186.\n \207\134\206\172\206\186\n \207\132\207\135.\n \206\179\207\129.\n \207\131\206\183\206\188.\n \206\173\207\129\206\179.\n \n \207\131\n \207\131\207\131\n \n \n \207\131\n \207\131\207\131\n \n \207\128\206\177\207\129.\n \206\188\206\173\207\129.\n \207\132\206\188.\n \n \206\187\206\174\206\188.\n \206\187\206\174\206\188.\n \n \n \207\131\207\132.\n \207\131\207\132.\n \n \n \207\132.\n \207\132.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n \206\148\206\185\206\181\207\133\206\184\207\133\206\189\207\132\206\174\207\130\n \206\148\206\185\206\181\207\133\206\184\207\133\206\189\207\132\206\173\207\130\n \n \n \206\181\207\128\206\185\206\188\206\181\206\187\206\183\207\132\206\174\207\130\n \206\181\207\128\206\185\206\188\206\181\206\187\206\183\207\132\206\173\207\130\n \n \n \206\180\206\185\206\181\207\133\206\184\207\133\206\189\207\132\206\174\207\130 \207\131\206\181\206\185\207\129\206\172\207\130\n \206\180\206\185\206\181\207\133\206\184\207\133\206\189\207\132\206\173\207\130 \207\131\206\181\206\185\207\129\206\172\207\130\n \n \n \206\181\206\185\206\186\206\191\206\189\206\191\206\179\207\129\206\172\207\134\206\191\207\130\n \206\181\206\185\206\186\206\191\206\189\206\191\206\179\207\129\206\172\207\134\206\191\206\185\n \n \n \206\188\206\181\207\132\206\177\207\134\207\129\206\177\207\131\207\132\206\174\207\130\n \206\188\206\181\207\132\206\177\207\134\207\129\206\177\207\131\207\132\206\173\207\130\n \n \n \206\188\206\181\207\132\206\177\207\134\207\129\206\177\207\131\207\132\206\174\207\130 \206\186\206\177\206\185 \206\181\207\128\206\185\206\188\206\181\206\187\206\183\207\132\206\174\207\130\n \206\188\206\181\207\132\206\177\207\134\207\129\206\177\207\131\207\132\206\173\207\130 \206\186\206\177\206\185 \206\181\207\128\206\185\206\188\206\181\206\187\206\183\207\132\206\173\207\130\n \n\n \n \n \206\180/\206\189\207\132\206\183\207\130.\n \206\180/\206\189\207\132\206\173\207\130.\n \n \n \206\181\207\128\206\185\206\188.\n \206\181\207\128\206\185\206\188.\n \n \n \206\180/\206\189\207\132\206\174\207\130 \207\131\206\181\206\185\207\129\206\172\207\130\n \206\180/\206\189\207\132\206\173\207\130 \207\131\206\181\206\185\207\129\206\177\207\130\n \n \n \206\181\206\185\206\186.\n \206\181\206\185\206\186..\n \n \n \206\188\207\132\207\134.\n \206\188\207\132\207\134.\n \n \n \206\188\207\132\207\134. \206\186\206\177\206\185 \206\181\207\128\206\185\206\188.\n \206\188\207\132\207\134. \206\186\206\177\206\185 \206\181\207\128\206\185\206\188.\n \n\n \n \206\180\206\185\206\181\207\141\206\184\207\133\206\189\207\131\206\183\n \206\181\207\128\206\185\206\188\206\173\206\187\206\181\206\185\206\177\n \206\180\206\185\206\181\207\141\206\184\207\133\206\189\207\131\206\183 \207\131\206\181\206\185\207\129\206\172\207\130\n \206\181\206\185\206\186\206\191\206\189\206\191\206\179\207\129\206\172\207\134\206\183\207\131\206\183 by\n \207\131\207\133\206\189\206\173\206\189\207\132\206\181\207\133\206\190\206\183\n \207\128\206\177\207\129\206\177\206\187\206\174\207\128\207\132\206\183\207\130\n by\n \206\188\206\181\207\132\206\172\207\134\207\129\206\177\207\131\206\183\n \206\188\206\181\207\132\206\172\207\134\207\129\206\177\207\131\206\183 \206\186\206\177\206\185 \206\181\207\128\206\185\206\188\206\173\206\187\206\181\206\185\206\177\n\n \n \207\131\207\132\206\191\206\189 \207\131\207\133\206\187\206\187. \207\132\207\140\206\188\206\191\n \206\180\206\185\206\181\207\133\206\184.\n \206\181\207\128\206\185\206\188\206\173\206\187.\n \206\180/\206\189\207\131\206\183 \207\131\206\181\206\185\207\129\206\172\207\130\n \206\181\206\185\206\186\206\191\206\189.\n \206\188\206\181\207\132\206\172\207\134\207\129.\n \206\188\206\181\207\132\206\172\207\134\207\129. \206\186\206\177\206\185 \206\181\207\128\206\185\206\188\206\173\206\187.\n\n \n \206\153\206\177\206\189\206\191\207\133\206\172\207\129\206\185\206\191\207\130\n \206\166\206\181\206\178\207\129\206\191\207\133\206\172\207\129\206\185\206\191\207\130\n \206\156\206\172\207\129\207\132\206\185\206\191\207\130\n \206\145\207\128\207\129\206\175\206\187\206\185\206\191\207\130\n \206\156\206\172\206\185\206\191\207\130\n \206\153\206\191\207\141\206\189\206\185\206\191\207\130\n \206\153\206\191\207\141\206\187\206\185\206\191\207\130\n \206\145\207\141\206\179\206\191\207\133\207\131\207\132\206\191\207\130\n \206\163\206\181\207\128\207\132\206\173\206\188\206\178\207\129\206\185\206\191\207\130\n \206\159\206\186\207\132\207\142\206\178\207\129\206\185\206\191\207\130\n \206\157\206\191\206\173\206\188\206\178\207\129\206\185\206\191\207\130\n \206\148\206\181\206\186\206\173\206\188\206\178\207\129\206\185\206\191\207\130\n\n \n \206\153\206\177\206\189\206\191\207\133\206\177\207\129\206\175\206\191\207\133\n \206\166\206\181\206\178\207\129\206\191\207\133\206\177\207\129\206\175\206\191\207\133\n \206\156\206\177\207\129\207\132\206\175\206\191\207\133\n \206\145\207\128\207\129\206\185\206\187\206\175\206\191\207\133\n \206\156\206\177\206\144\206\191\207\133\n \206\153\206\191\207\133\206\189\206\175\206\191\207\133\n \206\153\206\191\207\133\206\187\206\175\206\191\207\133\n \206\145\207\133\206\179\206\191\207\141\207\131\207\132\206\191\207\133\n \206\163\206\181\207\128\207\132\206\181\206\188\206\178\207\129\206\175\206\191\207\133\n \206\159\206\186\207\132\207\137\206\178\207\129\206\175\206\191\207\133\n \206\157\206\191\206\181\206\188\206\178\207\129\206\175\206\191\207\133\n \206\148\206\181\206\186\206\181\206\188\206\178\207\129\206\175\206\191\207\133\n\n \n \206\134\206\189\206\191\206\185\206\190\206\183\n \206\154\206\177\206\187\206\191\206\186\206\177\206\175\207\129\206\185\n \206\166\206\184\206\185\206\189\207\140\207\128\207\137\207\129\206\191\n \206\167\206\181\206\185\206\188\207\142\206\189\206\177\207\130\n \n\n"),("locales-en-GB.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n accessed\n and\n and others\n anonymous\n anon.\n at\n available at\n by\n circa\n c.\n cited\n \n edition\n editions\n \n ed.\n et al.\n forthcoming\n from\n ibid.\n in\n in press\n internet\n interview\n letter\n no date\n n.d.\n online\n presented at the\n \n reference\n references\n \n \n ref.\n refs.\n \n retrieved\n scale\n version\n\n \n AD\n BC\n\n \n \226\128\152\n \226\128\153\n \226\128\156\n \226\128\157\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n book\n books\n \n \n chapter\n chapters\n \n \n column\n columns\n \n \n figure\n figures\n \n \n folio\n folios\n \n \n number\n numbers\n \n \n line\n lines\n \n \n note\n notes\n \n \n opus\n opera\n \n \n page\n pages\n \n \n page\n pages\n \n \n paragraph\n paragraph\n \n \n part\n parts\n \n \n section\n sections\n \n \n sub verbo\n sub verbis\n \n \n verse\n verses\n \n \n volume\n volumes\n \n\n \n bk.\n chap.\n col.\n fig.\n f.\n no.\n l.\n n.\n op.\n \n p.\n pp.\n \n \n p.\n pp.\n \n para.\n pt.\n sec.\n \n s.v.\n s.vv.\n \n \n v.\n vv.\n \n \n vol.\n vols.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n editor\n editors\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n translator\n translators\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n ed.\n eds.\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n tran.\n trans.\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n edited by\n edited by\n illustrated by\n interview by\n to\n by\n translated by\n edited & translated by\n\n \n by\n dir. by\n ed. by\n ed. by\n illus. by\n trans. by\n ed. & trans. by\n\n \n January\n February\n March\n April\n May\n June\n July\n August\n September\n October\n November\n December\n\n \n Jan.\n Feb.\n Mar.\n Apr.\n May\n Jun.\n Jul.\n Aug.\n Sep.\n Oct.\n Nov.\n Dec.\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-en-US.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n accessed\n and\n and others\n anonymous\n anon.\n at\n available at\n by\n circa\n c.\n cited\n \n edition\n editions\n \n ed.\n et al.\n forthcoming\n from\n ibid.\n in\n in press\n internet\n interview\n letter\n no date\n n.d.\n online\n presented at the\n \n reference\n references\n \n \n ref.\n refs.\n \n retrieved\n scale\n version\n\n \n AD\n BC\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n book\n books\n \n \n chapter\n chapters\n \n \n column\n columns\n \n \n figure\n figures\n \n \n folio\n folios\n \n \n number\n numbers\n \n \n line\n lines\n \n \n note\n notes\n \n \n opus\n opera\n \n \n page\n pages\n \n \n page\n pages\n \n \n paragraph\n paragraph\n \n \n part\n parts\n \n \n section\n sections\n \n \n sub verbo\n sub verbis\n \n \n verse\n verses\n \n \n volume\n volumes\n \n\n \n bk.\n chap.\n col.\n fig.\n f.\n no.\n l.\n n.\n op.\n \n p.\n pp.\n \n \n p.\n pp.\n \n para.\n pt.\n sec.\n \n s.v.\n s.vv.\n \n \n v.\n vv.\n \n \n vol.\n vols.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n editor\n editors\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n translator\n translators\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n ed.\n eds.\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n tran.\n trans.\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n edited by\n edited by\n illustrated by\n interview by\n to\n by\n translated by\n edited & translated by\n\n \n by\n dir. by\n ed. by\n ed. by\n illus. by\n trans. by\n ed. & trans. by\n\n \n January\n February\n March\n April\n May\n June\n July\n August\n September\n October\n November\n December\n\n \n Jan.\n Feb.\n Mar.\n Apr.\n May\n Jun.\n Jul.\n Aug.\n Sep.\n Oct.\n Nov.\n Dec.\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-es-CL.xml","\n\n \n \n Scott Sadowsky\n http://sadowsky.cl/\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2013-10-28T13:57:31-04:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n accedido\n y\n et al.\n an\195\179nimo\n an\195\179n.\n en\n disponible en\n de\n circa\n c.\n citado\n \n edici\195\179n\n ediciones\n \n ed.\n et al.\n en preparaci\195\179n\n a partir de\n ibid.\n en\n en imprenta\n internet\n entrevista\n carta\n sin fecha\n s. f.\n en l\195\173nea\n presentado en\n \n referencia\n referencias\n \n \n ref.\n refs.\n \n recuperado\n escala\n versi\195\179n\n\n \n d. C.\n a. C.\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n \194\170\n\n \n primera\n segunda\n tercera\n cuarta\n quinta\n sexta\n s\195\169ptima\n octava\n novena\n d\195\169cima\n\n \n \n libro\n libros\n \n \n cap\195\173tulo\n cap\195\173tulos\n \n \n columna\n columnas\n \n \n figura\n figuras\n \n \n folio\n folios\n \n \n n\195\186mero\n n\195\186meros\n \n \n l\195\173nea\n l\195\173neas\n \n \n nota\n notas\n \n \n opus\n opera\n \n \n p\195\161gina\n p\195\161ginas\n \n \n p\195\161gina\n p\195\161ginas\n \n \n p\195\161rrafo\n p\195\161rrafos\n \n \n parte\n partes\n \n \n secci\195\179n\n secciones\n \n \n sub voce\n sub vocibus\n \n \n verso\n versos\n \n \n volumen\n vol\195\186menes\n \n\n \n lib.\n cap.\n col.\n fig.\n f.\n n\194\186\n l.\n n.\n op.\n \n p.\n pp.\n \n \n p.\n pp.\n \n p\195\161rr.\n pt.\n sec.\n \n s. v.\n s. vv.\n \n \n v.\n vv.\n \n \n vol.\n vols.\n \n\n \n \n \194\167\n \194\167\n \n \n \194\167\n \194\167\n \n\n \n \n director\n directores\n \n \n editor\n editores\n \n \n coordinador\n coordinadores\n \n \n ilustrador\n ilustradores\n \n \n traductor\n traductores\n \n \n editor y traductor\n editores y traductores\n \n\n \n \n dir.\n dirs.\n \n \n ed.\n eds.\n \n \n coord.\n coords.\n \n \n ilust.\n ilusts.\n \n \n trad.\n trads.\n \n \n ed. y trad.\n eds. y trads.\n \n\n \n dirigido por\n editado por\n coordinado por\n ilustrado por\n entrevistado por\n a\n por\n traducido por\n editado y traducido por\n\n \n de\n dir.\n ed.\n coord.\n ilust.\n trad.\n ed. y trad.\n\n \n enero\n febrero\n marzo\n abril\n mayo\n junio\n julio\n agosto\n septiembre\n octubre\n noviembre\n diciembre\n\n \n ene.\n feb.\n mar.\n abr.\n may\n jun.\n jul.\n ago.\n sep.\n oct.\n nov.\n dic.\n\n \n primavera\n verano\n oto\195\177o\n invierno\n \n\n"),("locales-es-ES.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n accedido\n y\n y otros\n an\195\179nimo\n an\195\179n.\n en\n disponible en\n de\n circa\n c.\n citado\n \n edici\195\179n\n ediciones\n \n ed.\n et al.\n previsto\n a partir de\n ibid.\n en\n en imprenta\n internet\n entrevista\n carta\n sin fecha\n s. f.\n en l\195\173nea\n presentado en\n \n referencia\n referencias\n \n \n ref.\n refs.\n \n recuperado\n escala\n versi\195\179n\n\n \n d. C.\n a. C.\n\n \n \194\171\n \194\187\n \226\128\156\n \226\128\157\n -\n\n \n .\194\170\n\n \n primera\n segunda\n tercera\n cuarta\n quinta\n sexta\n s\195\169ptima\n octava\n novena\n d\195\169cima\n\n \n \n libro\n libros\n \n \n cap\195\173tulo\n cap\195\173tulos\n \n \n columna\n columnas\n \n \n figura\n figuras\n \n \n folio\n folios\n \n \n n\195\186mero\n n\195\186meros\n \n \n l\195\173nea\n l\195\173neas\n \n \n nota\n notas\n \n \n opus\n opera\n \n \n p\195\161gina\n p\195\161ginas\n \n \n p\195\161gina\n p\195\161ginas\n \n \n p\195\161rrafo\n p\195\161rrafos\n \n \n parte\n partes\n \n \n secci\195\179n\n secciones\n \n \n sub voce\n sub vocibus\n \n \n verso\n versos\n \n \n volumen\n vol\195\186menes\n \n\n \n lib.\n cap.\n col.\n fig.\n f.\n n.\194\186\n l.\n n.\n op.\n \n p.\n pp.\n \n \n p.\n pp.\n \n p\195\161rr.\n pt.\n sec.\n \n s. v.\n s. vv.\n \n \n v.\n vv.\n \n \n vol.\n vols.\n \n\n \n \n \194\167\n \194\167\n \n \n \194\167\n \194\167\n \n\n \n \n director\n directores\n \n \n editor\n editores\n \n \n editor\n editores\n \n \n ilustrador\n ilustradores\n \n \n traductor\n traductores\n \n \n editor y traductor\n editores y traductores\n \n\n \n \n dir.\n dirs.\n \n \n ed.\n eds.\n \n \n ed.\n eds.\n \n \n ilust.\n ilusts.\n \n \n trad.\n trads.\n \n \n ed. y trad.\n eds. y trads.\n \n\n \n dirigido por\n editado por\n editado por\n ilustrado por\n entrevistado por\n a\n por\n traducido por\n editado y traducido por\n\n \n de\n dir.\n ed.\n ed.\n ilust.\n trad.\n ed. y trad.\n\n \n enero\n febrero\n marzo\n abril\n mayo\n junio\n julio\n agosto\n septiembre\n octubre\n noviembre\n diciembre\n\n \n ene.\n feb.\n mar.\n abr.\n may\n jun.\n jul.\n ago.\n sep.\n oct.\n nov.\n dic.\n\n \n primavera\n verano\n oto\195\177o\n invierno\n \n\n"),("locales-et-EE.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n vaadatud\n ja\n ja teised\n anon\195\188\195\188mne\n anon\n \n available at\n \n umbes\n u\n tsiteeritud\n \n v\195\164ljaanne\n v\195\164ljaanded\n \n tr\n et al.\n ilmumisel\n \n ibid.\n \n tr\195\188kis\n internet\n intervjuu\n kiri\n s.a.\n s.a.\n online\n esitatud\n \n viide\n viited\n \n \n viide\n viited\n \n salvestatud\n scale\n version\n\n \n pKr\n eKr\n\n \n \226\128\158\n \226\128\156\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n .\n\n \n esimene\n teine\n kolmas\n neljas\n viies\n kuues\n seitsmes\n kaheksas\n \195\188heksas\n k\195\188mnes\n\n \n \n raamat\n raamatud\n \n \n peat\195\188kk\n peat\195\188kid\n \n \n veerg\n veerud\n \n \n joonis\n joonised\n \n \n foolio\n fooliod\n \n \n number\n numbrid\n \n \n rida\n read\n \n \n viide\n viited\n \n \n opus\n opera\n \n \n lehek\195\188lg\n lehek\195\188ljed\n \n \n lehek\195\188lg\n lehek\195\188ljed\n \n \n l\195\181ik\n l\195\181igud\n \n \n osa\n osad\n \n \n alajaotis\n alajaotised\n \n \n sub verbo\n sub verbis\n \n \n v\195\164rss\n v\195\164rsid\n \n \n k\195\182ide\n k\195\182ited\n \n\n \n rmt\n ptk\n v\n joon\n f\n nr\n l.\n n.\n op\n \n lk\n lk\n \n \n lk\n lk\n \n l\195\181ik\n osa\n alajaot.\n \n s.v.\n s.vv.\n \n \n v\n vv\n \n \n kd\n kd\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n toimetaja\n toimetajad\n \n \n toimetaja\n toimetajad\n \n \n illustrator\n illustrators\n \n \n t\195\181lkija\n t\195\181lkijad\n \n \n toimetaja & t\195\181lkija\n toimetajad & t\195\181lkijad\n \n\n \n \n dir.\n dirs.\n \n \n toim\n toim\n \n \n toim\n toim\n \n \n ill.\n ills.\n \n \n t\195\181lk\n t\195\181lk\n \n \n toim & t\195\181lk\n toim & t\195\181lk\n \n\n \n directed by\n toimetanud\n toimetanud\n illustrated by\n intervjueerinud\n \n by\n t\195\181lkinud\n toimetanud & t\195\181lkinud\n\n \n \n dir.\n toim\n toim\n illus.\n t\195\181lk\n toim & t\195\181lk\n\n \n jaanuar\n veebruar\n m\195\164rts\n aprill\n mai\n juuni\n juuli\n august\n september\n oktoober\n november\n detsember\n\n \n jaan\n veebr\n m\195\164rts\n apr\n mai\n juuni\n juuli\n aug\n sept\n okt\n nov\n dets\n\n \n kevad\n suvi\n s\195\188gis\n talv\n \n\n"),("locales-eu.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n eskuratua\n eta\n eta beste\n ezezaguna\n ezez.\n -(e)n\n available at\n -(e)k egina\n inguru\n ing.\n aipatua\n \n argitalpena\n argitalpenak\n \n arg.\n et al.\n bidean\n -(e)tik\n ib\195\173d.\n in\n moldiztegian\n internet\n elkarrizketa\n gutuna\n datarik gabe\n d. g.\n sarean\n -(e)n aurkeztua\n \n aipamena\n aipamenak\n \n \n aip.\n aip.\n \n berreskuratua\n scale\n version\n\n \n K.a.\n K.o.\n\n \n \194\171\n \194\187\n \226\128\156\n \226\128\157\n \226\128\147\n\n \n .\n\n \n lehengo\n bigarren\n hirugarren\n laugarren\n bosgarren\n seigarren\n zazpigarren\n zortzigarren\n bederatzigarren\n hamargarren\n\n \n \n liburua\n liburuak\n \n \n kapitulua\n kapituluak\n \n \n zutabea\n zutabeak\n \n \n irudia\n irudiak\n \n \n orria\n orriak\n \n \n zenbakia\n zenbakiak\n \n \n lerroa\n lerroak\n \n \n oharra\n oharrak\n \n \n obra\n obrak\n \n \n orrialdea\n orrialdeak\n \n \n orrialdea\n orrialdeak\n \n \n paragrafoa\n paragrafoak\n \n \n zatia\n zatiak\n \n \n atala\n atalak\n \n \n sub voce\n sub vocem\n \n \n bertsoa\n bertsoak\n \n \n luburikia\n luburukiak\n \n\n \n lib.\n kap.\n zut.\n iru.\n or.\n zenb.\n l.\n n.\n op.\n \n or.\n or.\n \n \n or.\n or.\n \n par.\n zt.\n atal.\n \n s.v.\n s.v.\n \n \n b.\n bb.\n \n \n libk.\n libk.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\n \n\n \n \n director\n directors\n \n \n argitaratzailea\n argitaratzaileak\n \n \n argitaratzailea\n argitaratzaileak\n \n \n illustrator\n illustrators\n \n \n itzultzailea\n itzultzaileak\n \n \n argitaratzaile eta itzultzailea\n argitaratzaile eta itzultzaileak\n \n\n \n \n dir.\n dirs.\n \n \n arg.\n arg.\n \n \n arg.\n arg.\n \n \n ill.\n ills.\n \n \n itzul.\n itzul.\n \n \n arg. eta itzul.\n arg. eta itzul.\n \n\n \n directed by\n -(e)k argitaratua\n -(e)k argitaratua\n illustrated by\n -(e)k elkarrizketatua\n -(r)entzat\n by\n -(e)k itzulia\n -(e)k argitaratu eta itzulia\n\n \n \n dir.\n arg.\n arg.\n illus.\n itzul.\n -(e)k arg. eta itzul.\n\n \n urtarrilak\n otsailak\n martxoak\n apirilak\n maiatzak\n ekainak\n uztailak\n abuztuak\n irailak\n urriak\n azaroak\n abenduak\n\n \n urt.\n ots.\n martx.\n apr.\n mai.\n eka.\n uzt.\n abz.\n ira.\n urr.\n aza.\n abe.\n\n \n udaberria\n uda\n udazkena\n negua\n \n\n"),("locales-fa-IR.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \216\175\216\179\216\170\216\177\216\179\219\140\n \217\136\n \217\136 \216\175\219\140\218\175\216\177\216\167\217\134\n \217\134\216\167\216\180\217\134\216\167\216\179\n \217\134\216\167\216\180\217\134\216\167\216\179\n \216\175\216\177\n available at\n \216\170\217\136\216\179\216\183\n circa\n c.\n \219\140\216\167\216\175\218\169\216\177\216\175\n \n \217\136\219\140\216\177\216\167\219\140\216\180\n \217\136\219\140\216\177\216\167\219\140\216\180\226\128\140\217\135\216\167\219\140\n \n \217\136\219\140\216\177\216\167\219\140\216\180\n \217\136 \216\175\219\140\218\175\216\177\216\167\217\134\n forthcoming\n \216\167\216\178\n \217\135\217\133\216\167\217\134\n \216\175\216\177\n \216\178\219\140\216\177 \218\134\216\167\217\190\n \216\167\219\140\217\134\216\170\216\177\217\134\216\170\n \217\133\216\181\216\167\216\173\216\168\217\135\n \217\134\216\167\217\133\217\135\n \216\168\216\175\217\136\217\134 \216\170\216\167\216\177\219\140\216\174\n \216\168\216\175\217\136\217\134 \216\170\216\167\216\177\219\140\216\174\n \216\168\216\177\216\174\216\183\n \216\167\216\177\216\167\216\166\217\135 \216\180\216\175\217\135 \216\175\216\177\n \n \217\133\216\177\216\172\216\185\n \217\133\216\177\216\167\216\172\216\185\n \n \n \217\133\216\177\216\172\216\185\n \217\133\216\177\216\167\216\172\216\185\n \n retrieved\n scale\n version\n\n \n AD\n BC\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n \216\167\217\136\217\132\n \216\175\217\136\217\133\n \216\179\217\136\217\133\n \218\134\217\135\216\167\216\177\217\133\n \217\190\217\134\216\172\217\133\n \216\180\216\180\217\133\n \217\135\217\129\216\170\217\133\n \217\135\216\180\216\170\217\133\n \217\134\217\135\217\133\n \216\175\217\135\217\133\n\n \n \n \218\169\216\170\216\167\216\168\n \218\169\216\170\216\167\216\168\226\128\140\217\135\216\167\219\140\n \n \n \217\129\216\181\217\132\n \217\129\216\181\217\132\226\128\140\217\135\216\167\219\140\n \n \n \216\179\216\170\217\136\217\134\n \216\179\216\170\217\136\217\134\226\128\140\217\135\216\167\219\140\n \n \n \216\170\216\181\217\136\219\140\216\177\n \216\170\216\181\216\167\217\136\219\140\216\177\n \n \n \216\168\216\177\218\175\n \216\168\216\177\218\175\226\128\140\217\135\216\167\219\140\n \n \n \216\180\217\133\216\167\216\177\217\135\n \216\180\217\133\216\167\216\177\217\135\226\128\140\217\135\216\167\219\140\n \n \n \216\174\216\183\n \216\174\216\183\217\136\216\183\n \n \n \219\140\216\167\216\175\216\175\216\167\216\180\216\170\n \219\140\216\167\216\175\216\175\216\167\216\180\216\170\226\128\140\217\135\216\167\219\140\n \n \n \217\130\216\183\216\185\217\135\n \217\130\216\183\216\185\216\167\216\170\n \n \n \216\181\217\129\216\173\217\135\n \216\181\217\129\216\173\216\167\216\170\n \n \n \216\181\217\129\216\173\217\135\n \216\181\217\129\216\173\216\167\216\170\n \n \n \217\190\216\167\216\177\216\167\218\175\216\177\216\167\217\129\n \217\190\216\167\216\177\216\167\218\175\216\177\216\167\217\129\226\128\140\217\135\216\167\219\140\n \n \n \216\168\216\174\216\180\n \216\168\216\174\216\180\226\128\140\217\135\216\167\219\140\n \n \n \217\130\216\179\217\133\216\170\n \217\130\216\179\217\133\216\170\226\128\140\217\135\216\167\219\140\n \n \n sub verbo\n sub verbis\n \n \n \216\168\219\140\216\170\n \216\168\219\140\216\170\226\128\140\217\135\216\167\219\140\n \n \n \216\172\217\132\216\175\n \216\172\217\132\216\175\217\135\216\167\219\140\n \n\n \n \218\169\216\170\216\167\216\168\n \217\129\216\181\217\132\n \216\179\216\170\217\136\217\134\n \216\170\216\181\217\136\219\140\216\177\n \216\168\216\177\218\175\n \216\180\n l.\n n.\n \217\130\216\183\216\185\217\135\n \n \216\181\n \216\181\216\181\n \n \n \216\181\n \216\181\216\181\n \n \217\190\216\167\216\177\216\167\218\175\216\177\216\167\217\129\n \216\168\216\174\216\180\n \217\130\216\179\217\133\216\170\n \n s.v\n s.vv\n \n \n \216\168\219\140\216\170\n \216\167\216\168\219\140\216\167\216\170\n \n \n \216\172\n \216\172\216\172\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177\n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177\216\167\217\134\n \n \n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177\n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177\216\167\217\134\n \n \n illustrator\n illustrators\n \n \n \217\133\216\170\216\177\216\172\217\133\n \217\133\216\170\216\177\216\172\217\133\219\140\217\134\n \n \n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177 \217\136 \217\133\216\170\216\177\216\172\217\133\n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177\216\167\217\134 \217\136 \217\133\216\170\216\177\216\172\217\133\219\140\217\134\n \n\n \n \n dir.\n dirs.\n \n \n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177\n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177\216\167\217\134\n \n \n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177\n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177\216\167\217\134\n \n \n ill.\n ills.\n \n \n \217\133\216\170\216\177\216\172\217\133\n \217\133\216\170\216\177\216\172\217\133\219\140\217\134\n \n \n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177 \217\136 \217\133\216\170\216\177\216\172\217\133\n \217\136\219\140\216\177\216\167\219\140\216\180\218\175\216\177\216\167\217\134 \217\136 \217\133\216\170\216\177\216\172\217\133\219\140\217\134\n \n\n \n directed by\n edited by\n \217\136\219\140\216\177\216\167\216\179\216\170\217\135\226\128\140\219\140\n illustrated by\n \217\133\216\181\216\167\216\173\216\168\217\135 \216\170\217\136\216\179\216\183\n \216\168\217\135\n by\n \216\170\216\177\216\172\217\133\217\135\226\128\140\219\140\n \216\170\216\177\216\172\217\133\217\135 \217\136 \217\136\219\140\216\177\216\167\216\179\216\170\217\135\226\128\140\219\140\n\n \n \216\170\217\136\216\179\216\183\n dir.\n \217\136\219\140\216\177\216\167\216\179\216\170\217\135\226\128\140\219\140\n \217\136\219\140\216\177\216\167\216\179\216\170\217\135\226\128\140\219\140\n illus.\n \216\170\216\177\216\172\217\133\217\135\226\128\140\219\140\n \216\170\216\177\216\172\217\133\217\135 \217\136 \217\136\219\140\216\177\216\167\216\179\216\170\217\135\226\128\140\219\140\n\n \n \218\152\216\167\217\134\217\136\219\140\217\135\n \217\129\217\136\216\177\219\140\217\135\n \217\133\216\167\216\177\216\179\n \216\162\217\136\216\177\219\140\217\132\n \217\133\219\140\n \218\152\217\136\216\166\217\134\n \216\172\217\136\217\132\216\167\219\140\n \216\162\218\175\217\136\216\179\216\170\n \216\179\217\190\216\170\216\167\217\133\216\168\216\177\n \216\167\218\169\216\170\216\168\216\177\n \217\134\217\136\216\167\217\133\216\168\216\177\n \216\175\216\179\216\167\217\133\216\168\216\177\n\n \n \218\152\216\167\217\134\217\136\219\140\217\135\n \217\129\217\136\216\177\219\140\217\135\n \217\133\216\167\216\177\216\179\n \216\162\217\136\216\177\219\140\217\132\n \217\133\219\140\n \218\152\217\136\216\166\217\134\n \216\172\217\136\217\132\216\167\219\140\n \216\162\218\175\217\136\216\179\216\170\n \216\179\217\190\216\170\216\167\217\133\216\168\216\177\n \216\167\218\169\216\170\216\168\216\177\n \217\134\217\136\216\167\217\133\216\168\216\177\n \216\175\216\179\216\167\217\133\216\168\216\177\n\n \n \216\168\217\135\216\167\216\177\n \216\170\216\167\216\168\216\179\216\170\216\167\217\134\n \217\190\216\167\219\140\219\140\216\178\n \216\178\217\133\216\179\216\170\216\167\217\134\n \n\n"),("locales-fi-FI.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n viitattu\n ja\n ym.\n tuntematon\n tuntematon\n osoitteessa\n saatavissa\n tekij\195\164\n noin\n n.\n viitattu\n \n painos\n painokset\n \n p.\n ym.\n tulossa\n osoitteesta\n mt.\n teoksessa\n painossa\n internet\n haastattelu\n kirje\n ei p\195\164iv\195\164m\195\164\195\164r\195\164\195\164\n ei pvm.\n verkossa\n esitetty tilaisuudessa\n \n viittaus\n viittaukset\n \n \n viit.\n viit.\n \n noudettu\n mittakaava\n versio\n\n \n eaa.\n jaa.\n\n \n \226\128\157\n \226\128\157\n \226\128\153\n \226\128\153\n \226\128\147\n\n \n .\n\n \n ensimm\195\164inen\n toinen\n kolmas\n nelj\195\164s\n viides\n kuudes\n seitsem\195\164s\n kahdeksas\n yhdeks\195\164s\n kymmenes\n\n \n \n kirja\n kirjat\n \n \n luku\n luvut\n \n \n palsta\n palstat\n \n \n kuvio\n kuviot\n \n \n folio\n foliot\n \n \n numero\n numerot\n \n \n rivi\n rivit\n \n \n huomautus\n huomautukset\n \n \n opus\n opukset\n \n \n sivu\n sivut\n \n \n sivu\n sivut\n \n \n kappale\n kappaleet\n \n \n osa\n osat\n \n \n osa\n osat\n \n \n sub verbo\n sub verbis\n \n \n s\195\164keist\195\182\n s\195\164keist\195\182t\n \n \n vuosikerta\n vuosikerrat\n \n\n \n kirja\n luku\n palsta\n kuv.\n fol.\n nro\n r.\n huom.\n op.\n \n s.\n ss.\n \n \n s.\n ss.\n \n kappale\n osa\n osa\n \n s.v.\n s.vv.\n \n \n s\195\164k.\n s\195\164k.\n \n \n vsk.\n vsk.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n ohjaaja\n ohjaajat\n \n \n toimittaja\n toimittajat\n \n \n toimittaja\n toimittajat\n \n \n kuvittaja\n kuvittajat\n \n \n k\195\164\195\164nt\195\164j\195\164\n k\195\164\195\164nt\195\164j\195\164t\n \n \n toimittaja ja k\195\164\195\164nt\195\164j\195\164\n toimittajat ja k\195\164\195\164nt\195\164j\195\164t\n \n\n \n \n ohj.\n ohj.\n \n \n toim.\n toim.\n \n \n toim.\n toim.\n \n \n kuv.\n kuv.\n \n \n k\195\164\195\164nt.\n k\195\164\195\164nt.\n \n \n toim. ja k\195\164\195\164nt.\n toim. ja k\195\164\195\164nt.\n \n\n \n ohjannut\n toimittanut\n toimittanut\n kuvittanut\n haastatellut\n vastaanottaja\n \n k\195\164\195\164nt\195\164nyt\n toimittanut ja k\195\164\195\164nt\195\164nyt\n\n \n \n ohj.\n toim.\n toim.\n kuv.\n k\195\164\195\164nt.\n toim. ja k\195\164\195\164nt.\n\n \n tammikuuta\n helmikuuta\n maaliskuuta\n huhtikuuta\n toukokuuta\n kes\195\164kuuta\n hein\195\164kuuta\n elokuuta\n syyskuuta\n lokakuuta\n marraskuuta\n joulukuuta\n\n \n tammi\n helmi\n maalis\n huhti\n touko\n kes\195\164\n hein\195\164\n elo\n syys\n loka\n marras\n joulu\n\n \n kev\195\164t\n kes\195\164\n syksy\n talvi\n \n\n"),("locales-fr-CA.xml","\n\n \n \n Gr\195\169goire Colly\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n consult\195\169 le\n et\n et autres\n anonyme\n anon.\n sur\n disponible \195\160\n par\n vers\n v.\n cit\195\169\n \n \195\169dition\n \195\169ditions\n \n \195\169d.\n et al.\n \195\160 para\195\174tre\n \195\160 l'adresse\n ibid.\n dans\n sous presse\n Internet\n entretien\n lettre\n sans date\n s. d.\n en ligne\n pr\195\169sent\195\169 \195\160\n \n r\195\169f\195\169rence\n r\195\169f\195\169rences\n \n \n r\195\169f.\n r\195\169f.\n \n consult\195\169\n \195\169chelle\n version\n\n \n apr. J.-C.\n av. J.-C.\n\n \n \194\171 \n  \194\187\n \226\128\156\n \226\128\157\n ‑ \n\n \n \225\181\137\n \t\202\179\225\181\137\n \225\181\137\202\179\n\n \n premier\n deuxi\195\168me\n troisi\195\168me\n quatri\195\168me\n cinqui\195\168me\n sixi\195\168me\n septi\195\168me\n huiti\195\168me\n neuvi\195\168me\n dixi\195\168me\n\n \n \n livre\n livres\n \n \n chapitre\n chapitres\n \n \n colonne\n colonnes\n \n \n figure\n figures\n \n \n folio\n folios\n \n \n num\195\169ro\n num\195\169ros\n \n \n ligne\n lignes\n \n \n note\n notes\n \n \n opus\n opus\n \n \n page\n pages\n \n \n page\n pages\n \n \n paragraphe\n paragraphes\n \n \n partie\n parties\n \n \n section\n sections\n \n \n sub verbo\n sub verbis\n \n \n verset\n versets\n \n \n volume\n volumes\n \n\n \n liv.\n chap.\n col.\n fig.\n \n f\225\181\146\n f\225\181\146\203\162\n \n \n n\225\181\146\n n\225\181\146\203\162\n \n l.\n n.\n op.\n \n p.\n p.\n \n \n p.\n p.\n \n paragr.\n part.\n sect.\n \n s. v.\n s. vv.\n \n \n v.\n v.\n \n \n vol.\n vol.\n \n\n \n \n \194\167\n \194\167\n \n \n \194\167\n \194\167\n \n\n \n \n r\195\169alisateur\n r\195\169alisateurs\n \n \n \195\169diteur\n \195\169diteurs\n \n \n directeur\n directeurs\n \n \n illustrateur\n illustrateurs\n \n \n traducteur\n traducteurs\n \n \n \195\169diteur et traducteur\n \195\169diteurs et traducteurs\n \n\n \n \n r\195\169al.\n r\195\169al.\n \n \n \195\169d.\n \195\169d.\n \n \n dir.\n dir.\n \n \n ill.\n ill.\n \n \n trad.\n trad.\n \n \n \195\169d. et trad.\n \195\169d. et trad.\n \n\n \n r\195\169alis\195\169 par\n \195\169dit\195\169 par\n sous la direction de\n illustr\195\169 par\n entretien r\195\169alis\195\169 par\n \195\160\n par\n traduit par\n \195\169dit\195\169 et traduit par\n\n \n par\n r\195\169al. par\n \195\169d. par\n ss la dir. de\n ill. par\n trad. par\n \195\169d. et trad. par\n\n \n janvier\n f\195\169vrier\n mars\n avril\n mai\n juin\n juillet\n ao\195\187t\n septembre\n octobre\n novembre\n d\195\169cembre\n\n \n janv.\n f\195\169vr.\n mars\n avr.\n mai\n juin\n juill.\n ao\195\187t\n sept.\n oct.\n nov.\n d\195\169c.\n\n \n printemps\n \195\169t\195\169\n automne\n hiver\n \n\n"),("locales-fr-FR.xml","\n\n \n \n Gr\195\169goire Colly\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n consult\195\169 le\n et\n et autres\n anonyme\n anon.\n sur\n disponible sur\n par\n vers\n v.\n cit\195\169\n \n \195\169dition\n \195\169ditions\n \n \195\169d.\n et al.\n \195\160 para\195\174tre\n \195\160 l'adresse\n ibid.\n in\n sous presse\n Internet\n entretien\n lettre\n sans date\n s. d.\n en ligne\n pr\195\169sent\195\169 \195\160\n \n r\195\169f\195\169rence\n r\195\169f\195\169rences\n \n \n r\195\169f.\n r\195\169f.\n \n consult\195\169\n \195\169chelle\n version\n\n \n apr. J.-C.\n av. J.-C.\n\n \n \194\171 \n  \194\187\n \226\128\156\n \226\128\157\n ‑ \n\n \n \225\181\137\n \202\179\225\181\137\n \225\181\137\202\179\n \n \n premier\n deuxi\195\168me\n troisi\195\168me\n quatri\195\168me\n cinqui\195\168me\n sixi\195\168me\n septi\195\168me\n huiti\195\168me\n neuvi\195\168me\n dixi\195\168me\n\n \n \n livre\n livres\n \n \n chapitre\n chapitres\n \n \n colonne\n colonnes\n \n \n figure\n figures\n \n \n folio\n folios\n \n \n num\195\169ro\n num\195\169ros\n \n \n ligne\n lignes\n \n \n note\n notes\n \n \n opus\n opus\n \n \n page\n pages\n \n \n page\n pages\n \n \n paragraphe\n paragraphes\n \n \n partie\n parties\n \n \n section\n sections\n \n \n sub verbo\n sub verbis\n \n \n verset\n versets\n \n \n volume\n volumes\n \n\n \n liv.\n chap.\n col.\n fig.\n \n f\225\181\146\n f\225\181\146\203\162\n \n \n n\225\181\146\n n\225\181\146\203\162\n \n l.\n n.\n op.\n \n p.\n p.\n \n \n p.\n p.\n \n paragr.\n part.\n sect.\n \n s. v.\n s. vv.\n \n \n v.\n v.\n \n \n vol.\n vol.\n \n\n \n \n \194\167\n \194\167\n \n \n \194\167\n \194\167\n \n\n \n \n r\195\169alisateur\n r\195\169alisateurs\n \n \n \195\169diteur\n \195\169diteurs\n \n \n directeur\n directeurs\n \n \n illustrateur\n illustrateurs\n \n \n traducteur\n traducteurs\n \n \n \195\169diteur et traducteur\n \195\169diteurs et traducteurs\n \n\n \n \n r\195\169al.\n r\195\169al.\n \n \n \195\169d.\n \195\169d.\n \n \n dir.\n dir.\n \n \n ill.\n ill.\n \n \n trad.\n trad.\n \n \n \195\169d. et trad.\n \195\169d. et trad.\n \n\n \n r\195\169alis\195\169 par\n \195\169dit\195\169 par\n sous la direction de\n illustr\195\169 par\n entretien r\195\169alis\195\169 par\n \195\160\n par\n traduit par\n \195\169dit\195\169 et traduit par\n\n \n par\n r\195\169al. par\n \195\169d. par\n ss la dir. de\n ill. par\n trad. par\n \195\169d. et trad. par\n\n \n janvier\n f\195\169vrier\n mars\n avril\n mai\n juin\n juillet\n ao\195\187t\n septembre\n octobre\n novembre\n d\195\169cembre\n\n \n janv.\n f\195\169vr.\n mars\n avr.\n mai\n juin\n juill.\n ao\195\187t\n sept.\n oct.\n nov.\n d\195\169c.\n\n \n printemps\n \195\169t\195\169\n automne\n hiver\n \n\n"),("locales-he-IL.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \215\160\215\145\215\147\215\167 \215\156\215\144\215\151\215\168\215\149\215\160\215\148\n \215\149\n \215\149\215\144\215\151\215\168\215\153\215\157\n \215\144\215\156\215\158\215\149\215\160\215\153\n anon\n -\215\145\n \215\150\215\158\215\153\215\159 \215\145\n \215\162\215\156-\215\153\215\147\215\153\n \215\156\215\162\215\168\215\154\n c.\n \215\158\215\166\215\149\215\152\215\152 \215\145\n \n \215\158\215\148\215\147\215\149\215\168\215\148\n \215\158\215\148\215\147\215\149\215\168\215\149\215\170\n \n ed\n \215\149\215\144\215\151\215\168\215\153\215\157\n \215\166\215\164\215\149\215\153\n \215\158\215\170\215\149\215\154\n \215\169\215\157\n \215\145\215\170\215\149\215\154\n \215\145\215\148\215\147\215\164\215\161\215\148\n \215\144\215\153\215\160\215\152\215\168\215\160\215\152\n \215\168\215\144\215\153\215\149\215\159\n \215\158\215\155\215\170\215\145\n \215\144\215\153\215\159 \215\160\215\170\215\149\215\160\215\153\215\157\n nd\n \215\158\215\167\215\149\215\149\215\159\n \215\148\215\149\215\166\215\146 \215\145\n \n \215\148\215\164\215\160\215\153\215\148\n \215\148\215\164\215\160\215\153\215\149\215\170\n \n \n ref.\n refs.\n \n \215\144\215\149\215\151\215\150\215\168\n scale\n \215\146\215\153\215\168\215\161\215\148\n\n \n \215\156\215\161\215\164\215\153\215\168\215\148\n \215\156\215\164\215\160\215\153 \215\148\215\161\215\164\215\153\215\168\215\148\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n \215\168\215\144\215\169\215\149\215\159\n \215\169\215\160\215\153\n \215\169\215\156\215\153\215\169\215\153\n \215\168\215\145\215\153\215\162\215\153\n \215\151\215\158\215\153\215\169\215\153\n \215\169\215\153\215\169\215\153\n \215\169\215\145\215\153\215\162\215\153\n \215\169\215\158\215\153\215\160\215\153\n \215\170\215\169\215\153\215\162\215\153\n \215\162\215\169\215\153\215\168\215\153\n\n \n \n \215\161\215\164\215\168\n \215\161\215\164\215\168\215\153\215\157\n \n \n \215\164\215\168\215\167\n \215\164\215\168\215\167\215\153\215\157\n \n \n \215\152\215\149\215\168\n \215\152\215\149\215\168\215\153\215\157\n \n \n figure\n figures\n \n \n \215\164\215\149\215\156\215\153\215\149\n \215\164\215\149\215\156\215\153\215\149\n \n \n \215\158\215\161\215\164\215\168\n \215\158\215\161\215\164\215\168\215\153\215\157\n \n \n \215\169\215\149\215\168\215\148\n \215\169\215\149\215\168\215\149\215\170\n \n \n \215\148\215\162\215\168\215\148\n \215\148\215\162\215\168\215\149\215\170\n \n \n \215\144\215\149\215\164\215\149\215\161\n \215\144\215\149\215\164\215\168\215\148\n \n \n \215\162\215\158\215\149\215\147\n \215\162\215\158\215\149\215\147\215\153\215\157\n \n \n \215\162\215\158\215\149\215\147\n \215\162\215\158\215\149\215\147\215\153\215\157\n \n \n \215\164\215\153\215\161\215\167\215\148\n \215\164\215\153\215\161\215\167\215\144\215\149\215\170\n \n \n \215\151\215\156\215\167\n \215\151\215\156\215\167\215\153\215\157\n \n \n \215\161\215\162\215\153\215\163\n \215\161\215\162\215\153\215\164\215\153\215\157\n \n \n sub verbo\n sub verbis\n \n \n \215\145\215\153\215\170\n \215\145\215\170\215\153\215\157\n \n \n \215\155\215\168\215\154\n \215\155\215\168\215\155\215\153\215\157\n \n\n \n bk\n chap\n col\n fig\n f\n no\n l.\n n.\n op\n \n '\215\162\215\158\n '\215\162\215\158\n \n \n '\215\162\215\158\n '\215\162\215\158\n \n para\n pt\n \215\161'\n \n s.v.\n s.vv.\n \n \n v\n vv\n \n \n vol\n vols\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n \215\145\215\158\215\144\215\153\n \215\145\215\158\215\144\215\153\215\157\n \n \n \215\162\215\149\215\168\215\154\n \215\162\215\149\215\168\215\155\215\153\215\157\n \n \n \215\162\215\149\215\168\215\154 \215\168\215\144\215\169\215\153\n \215\162\215\149\215\168\215\155\215\153\215\157 \215\168\215\144\215\169\215\153\215\153\215\157\n \n \n \215\158\215\144\215\153\215\153\215\168\n \215\158\215\144\215\153\215\153\215\168\215\153\215\157\n \n \n \215\158\215\170\215\168\215\146\215\157\n \215\158\215\170\215\168\215\146\215\158\215\153\215\157\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n ed\n eds\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n tran\n trans\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n \215\145\215\149\215\153\215\157 \215\162\"\215\153\n \215\160\215\162\215\168\215\154 \215\162\"\215\153\n \215\145\215\149\215\153\215\157 \215\162\"\215\153\n \215\144\215\149\215\153\215\168 \215\162\"\215\153\n \215\168\215\149\215\144\215\153\215\153\215\159 \215\162\"\215\153\n \215\144\215\156\n \215\162\"\215\153\n \215\170\215\149\215\168\215\146\215\157 \215\162\"\215\153\n edited & translated by\n\n \n by\n dir.\n ed\n ed.\n illus.\n trans\n ed. & trans. by\n\n \n \215\153\215\160\215\149\215\144\215\168\n \215\164\215\145\215\168\215\149\215\144\215\168\n \215\158\215\168\215\165\n \215\144\215\164\215\168\215\153\215\156\n \215\158\215\144\215\153\n \215\153\215\149\215\160\215\153\n \215\153\215\149\215\156\215\153\n \215\144\215\149\215\146\215\149\215\161\215\152\n \215\161\215\164\215\152\215\158\215\145\215\168\n \215\144\215\149\215\167\215\152\215\149\215\145\215\168\n \215\160\215\149\215\145\215\158\215\145\215\168\n \215\147\215\166\215\158\215\145\215\168\n\n \n Jan\n Feb\n Mar\n Apr\n May\n Jun\n Jul\n Aug\n Sep\n Oct\n Nov\n Dec\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-hr-HR.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n pristupljeno\n i\n i ostali\n anonim\n anon.\n na\n pristupa\196\141no na\n od\n circa\n c.\n citirano\n \n izdanje\n izdanja\n \n izd.\n i ostali\n u pripremi\n od\n ibid.\n u\n u \197\161tampi\n internet\n intervju\n pismo\n bez datuma\n bez datuma\n na internetu\n predstavljeno na\n \n reference\n reference\n \n \n ref.\n ref.\n \n preuzeto\n skala\n verzija\n\n \n AD\n BC\n\n \n \226\128\158\n \226\128\156\n \226\128\154\n \226\128\152\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n prvi\n drugi\n tre\196\135i\n \196\141etvrti\n peti\n \197\161esti\n sedmi\n osmi\n deveti\n deseti\n\n \n \n knjiga\n knjige\n \n \n poglavlje\n poglavlja\n \n \n kolona\n kolone\n \n \n crte\197\190\n crte\197\190i\n \n \n folija\n folije\n \n \n broj\n brojevi\n \n \n linija\n linije\n \n \n bele\197\161ka\n bele\197\161ke\n \n \n opus\n opera\n \n \n stranica\n stranice\n \n \n stranica\n stranice\n \n \n paragraf\n paragrafi\n \n \n deo\n delova\n \n \n odeljak\n odeljaka\n \n \n sub verbo\n sub verbis\n \n \n strofa\n strofe\n \n \n tom\n tomova\n \n\n \n knj\n pog\n kol\n \209\134\209\128\209\130\n fol\n izd\n l\n n\n op\n \n str.\n str.\n \n \n str.\n str.\n \n par\n deo\n od\n \n s.v.\n s.vv.\n \n \n s\n s\n \n \n tom\n tomova\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n prire\196\145iva\196\141\n prire\196\145iva\196\141i\n \n \n prire\196\145iva\196\141\n prire\196\145iva\196\141i\n \n \n ilustrator\n ilustratori\n \n \n prevodilac\n prevodioci\n \n \n prire\196\145iva\196\141 & prevodilac\n prire\196\145iva\196\141i & prevodioci\n \n\n \n \n prir.\n prir.\n \n \n prir.\n prir.\n \n \n prir.\n prir.\n \n \n il.\n il.\n \n \n prev.\n prev.\n \n \n prir. & prev.\n prir. & prev.\n \n\n \n directed by\n priredio\n priredio\n ilustrovao\n intervjuisao\n prima\n od\n preveo\n priredio & preveo by\n\n \n by\n dir.\n prir.\n prir.\n ilus.\n prev.\n prir. & prev. by\n\n \n januar\n februar\n mart\n april\n maj\n jun\n jul\n avgust\n septembar\n oktobar\n novembar\n decembar\n\n \n jan.\n feb.\n mart\n apr.\n maj\n jun\n jul\n avg.\n sep.\n okt.\n nov.\n dec.\n\n \n prole\196\135e\n leto\n jesen\n zima\n \n\n"),("locales-hu-HU.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2014-06-17T09:56:35+02:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n el\195\169r\195\169s\n \195\169s\n \195\169s m\195\161sok\n szerz\197\145 n\195\169lk\195\188l\n sz. n.\n \n el\195\169rhet\197\145\n by\n k\195\182r\195\188lbel\195\188l\n kb.\n id\195\169zi\n \n kiad\195\161s\n kiad\195\161s\n \n kiad.\n \195\169s mtsai.\n megjelen\195\169s alatt\n forr\195\161s\n uo.\n in\n nyomtat\195\161s alatt\n internet\n interj\195\186\n lev\195\169l\n \195\169vsz\195\161m n\195\169lk\195\188l\n \195\169. n.\n online\n el\197\145ad\195\161s\n \n hivatkoz\195\161s\n hivatkoz\195\161s\n \n \n hiv.\n hiv.\n \n el\195\169r\195\169s\n sk\195\161la\n verzi\195\179\n\n \n Kr. u.\n Kr. e.\n\n \n i. sz.\n i. e.\n\n \n \226\128\158\n \226\128\157\n \194\187\n \194\171\n \226\128\147\n\n \n .\n\n \n els\197\145\n m\195\161sodik\n harmadik\n negyedik\n \195\182t\195\182dik\n hatodik\n hetedik\n nyolcadik\n kilencedik\n tizedik\n\n \n \n k\195\182nyv\n k\195\182nyv\n \n \n fejezet\n fejezet\n \n \n oszlop\n oszlop\n \n \n \195\161bra\n \195\161bra\n \n \n f\195\179li\195\161ns\n f\195\179li\195\161ns\n \n \n sz\195\161m\n sz\195\161m\n \n \n sor\n sor\n \n \n jegyzet\n jegyzet\n \n \n m\197\177\n m\197\177\n \n \n oldal\n oldal\n \n \n oldal\n oldal\n \n \n bekezd\195\169s\n bekezd\195\169s\n \n \n r\195\169sz\n r\195\169sz\n \n \n szakasz\n szakasz\n \n \n sub verbo\n sub verbis\n \n \n versszak\n versszak\n \n \n k\195\182tet\n k\195\182tet\n \n\n \n k\195\182nyv\n fej.\n oszl.\n \195\161br.\n fol.\n sz.\n s.\n j.\n op.\n \n o.\n o.\n \n \n o.\n o.\n \n bek.\n r\195\169sz\n szak.\n \n s. v.\n s. vv.\n \n \n vsz.\n vsz.\n \n \n k\195\182t.\n k\195\182t.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n igazgat\195\179\n igazgat\195\179\n \n \n szerkeszt\197\145\n szerkeszt\197\145\n \n \n szerkeszt\197\145s\195\169gi igazgat\195\179\n szerkeszt\197\145s\195\169gi igazgat\195\179\n \n \n illusztr\195\161tor\n illusztr\195\161tor\n \n \n ford\195\173t\195\179\n ford\195\173t\195\179\n \n \n szerkeszt\197\145 & ford\195\173t\195\179\n szerkeszt\197\145 & ford\195\173t\195\179\n \n\n \n \n ig.\n ig.\n \n \n szerk.\n szerk.\n \n \n szerk. ig.\n szerk. ig.\n \n \n ill.\n ill.\n \n \n ford.\n ford.\n \n \n szerk. & ford.\n szerk. & ford.\n \n\n \n directed by\n szerkesztette\n edited by\n illusztr\195\161lta\n interj\195\186k\195\169sz\195\173t\197\145\n c\195\173mzett\n by\n ford\195\173totta\n szerkesztette & ford\195\173totta\n\n \n by\n ig.\n szerk.\n ed.\n ill.\n ford.\n szerk. & ford.\n\n \n janu\195\161r\n febru\195\161r\n m\195\161rcius\n \195\161prilis\n m\195\161jus\n j\195\186nius\n j\195\186lius\n augusztus\n szeptember\n okt\195\179ber\n november\n december\n\n \n jan.\n febr.\n m\195\161rc.\n \195\161pr.\n m\195\161j.\n j\195\186n.\n j\195\186l.\n aug.\n szept.\n okt.\n nov.\n dec.\n\n \n tavasz\n ny\195\161r\n \197\145sz\n t\195\169l\n \n\n"),("locales-is-IS.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n s\195\179tt\n og\n og fleiri\n nafnlaus\n nafnl.\n af\n available at\n eftir\n sirka\n u.\195\190.b.\n tilvitnun\n \n \195\186tg\195\161fa\n \195\186tg\195\161fur\n \n \195\186tg.\n o.fl.\n \195\179birt\n af\n sama heimild\n \195\173\n \195\173 prentun\n rafr\195\166nt\n vi\195\176tal\n br\195\169f\n engin dagsetning\n e.d.\n rafr\195\166nt\n flutt \195\161\n \n tilvitnun\n tilvitnanir\n \n \n tilv.\n tilv.\n \n s\195\179tt\n scale\n version\n\n \n e.Kr.\n f.Kr.\n\n \n \226\128\158\n \226\128\156\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n .\n\n \n fyrsti\n annar\n \195\190ri\195\176ji\n fj\195\179r\195\176i\n fimmti\n sj\195\182tti\n sj\195\182undi\n \195\161ttundi\n n\195\173undi\n t\195\173undi\n\n \n \n b\195\179k\n b\195\166kur\n \n \n kafli\n kaflar\n \n \n d\195\161lkur\n d\195\161lkar\n \n \n mynd\n myndir\n \n \n handrit\n handrit\n \n \n n\195\186mer\n n\195\186mer\n \n \n l\195\173na\n l\195\173nur\n \n \n skilabo\195\176\n skilabo\195\176\n \n \n t\195\179nverk\n t\195\179nverk\n \n \n bla\195\176s\195\173\195\176a\n bla\195\176s\195\173\195\176ur\n \n \n bla\195\176s\195\173\195\176a\n bla\195\176s\195\173\195\176ur\n \n \n m\195\161lsgrein\n m\195\161lsgreinar\n \n \n hluti\n hlutar\n \n \n hluti\n hlutar\n \n \n sub verbo\n sub verbis\n \n \n vers\n vers\n \n \n bindi\n bindi\n \n\n \n b.\n k.\n d.\n mynd.\n handr.\n nr.\n l.\n n.\n t\195\179nv.\n \n bls.\n bls.\n \n \n bls.\n bls.\n \n m\195\161lsgr.\n hl.\n hl.\n \n s.v.\n s.vv.\n \n \n v.\n v.\n \n \n bindi\n bindi\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n ritstj\195\179ri\n ritstj\195\179rar\n \n \n ritstj\195\179ri\n ritstj\195\179rar\n \n \n illustrator\n illustrators\n \n \n \195\190\195\189\195\176andi\n \195\190\195\189\195\176endur\n \n \n ritstj\195\179ri og \195\190\195\189\195\176andi\n ritstj\195\179rar og \195\190\195\189\195\176endur\n \n\n \n \n dir.\n dirs.\n \n \n ritstj.\n ritstj.\n \n \n ritstj.\n ritstj.\n \n \n ill.\n ills.\n \n \n \195\190\195\189\195\176.\n \195\190\195\189\195\176.\n \n \n ritstj. og \195\190\195\189\195\176.\n ritstj. og \195\190\195\189\195\176.\n \n\n \n directed by\n ritstj\195\179ri\n ritstj\195\179ri\n illustrated by\n vi\195\176tal t\195\179k\n til\n by\n \195\190\195\189ddi\n ritstj\195\179ri og \195\190\195\189\195\176andi\n\n \n eftir\n dir.\n ritst.\n ritst.\n illus.\n \195\190\195\189\195\176.\n ritst. og \195\190\195\189\195\176.\n\n \n jan\195\186ar\n febr\195\186ar\n mars\n apr\195\173l\n ma\195\173\n j\195\186n\195\173\n j\195\186l\195\173\n \195\161g\195\186st\n september\n okt\195\179ber\n n\195\179vember\n desember\n\n \n jan.\n feb.\n mar.\n apr.\n ma\195\173\n j\195\186n.\n j\195\186l.\n \195\161g\195\186.\n sep.\n okt.\n n\195\179v.\n des.\n\n \n vor\n sumar\n haust\n vetur\n \n\n"),("locales-it-IT.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n consultato\n e\n e altri\n anonimo\n anon.\n a\n available at\n di\n circa\n c.\n citato\n \n edizione\n edizioni\n \n ed.\n et al.\n futuro\n da\n ibid.\n in\n in stampa\n internet\n intervista\n lettera\n senza data\n s.d.\n in linea\n presentato al\n \n reference\n references\n \n \n ref.\n refs.\n \n recuperato\n scale\n version\n\n \n d.C.\n a.C.\n\n \n \194\171\n \194\187\n \226\128\156\n \226\128\157\n \226\128\147\n\n \n \194\176\n\n \n prima\n seconda\n terza\n quarta\n quinta\n sesta\n settima\n ottava\n nona\n decima\n\n \n \n libro\n libri\n \n \n capitolo\n capitoli\n \n \n colonna\n colonne\n \n \n figura\n figure\n \n \n foglio\n fogli\n \n \n numero\n numeri\n \n \n riga\n righe\n \n \n nota\n note\n \n \n opera\n opere\n \n \n pagina\n pagine\n \n \n pagina\n pagine\n \n \n capoverso\n capoversi\n \n \n parte\n parti\n \n \n paragrafo\n paragrafi\n \n \n sub verbo\n sub verbis\n \n \n verso\n versi\n \n \n volume\n volumi\n \n\n \n lib.\n cap.\n col.\n fig.\n fgl.\n n.\n l.\n n.\n op.\n \n pag.\n pagg.\n \n \n pag.\n pagg.\n \n cpv.\n pt.\n par.\n \n s.v.\n s.vv.\n \n \n v.\n vv.\n \n \n vol.\n vol.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n curatore\n curatori\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n traduttore\n traduttori\n \n \n curatore e traduttore\n curatori e tradutori\n \n\n \n \n dir.\n dirs.\n \n \n a c. di\n a c. di\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n trad.\n trad.\n \n \n a c. di e trad. da\n a c. di e trad. da\n \n\n \n directed by\n a cura di\n edited by\n illustrated by\n intervista di\n a\n by\n tradotto da\n a cura di e tradotto da\n\n \n di\n dir.\n a c. di\n ed.\n illus.\n trad. da\n a c. di e trad. da\n\n \n gennaio\n febbraio\n marzo\n aprile\n maggio\n giugno\n luglio\n agosto\n settembre\n ottobre\n novembre\n dicembre\n\n \n gen.\n feb.\n mar.\n apr.\n mag.\n giu.\n lug.\n ago.\n set.\n ott.\n nov.\n dic.\n\n \n primavera\n estate\n autunno\n inverno\n \n\n"),("locales-ja-JP.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \227\130\162\227\130\175\227\130\187\227\130\185\n \227\129\168\n and others\n anonymous\n anon\n at\n available at\n by\n circa\n c.\n cited\n \n edition\n editions\n \n ed\n \228\187\150\n \232\191\145\229\136\138\n \227\129\139\227\130\137\n \229\137\141\230\142\178\n \n in press\n internet\n interview\n letter\n no date\n \230\151\165\228\187\152\227\129\170\227\129\151\n online\n presented at the\n \n reference\n references\n \n \n ref.\n refs.\n \n \232\170\173\227\129\191\232\190\188\227\129\191\n scale\n version\n\n \n AD\n BC\n\n \n \227\128\140\n \227\128\141\n \227\128\142\n \227\128\143\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n book\n books\n \n \n chapter\n chapters\n \n \n column\n columns\n \n \n figure\n figures\n \n \n folio\n folios\n \n \n number\n numbers\n \n \n \232\161\140\n \232\161\140\n \n \n note\n notes\n \n \n opus\n opera\n \n \n \227\131\154\227\131\188\227\130\184\n \227\131\154\227\131\188\227\130\184\n \n \n \227\131\154\227\131\188\227\130\184\n \227\131\154\227\131\188\227\130\184\n \n \n \230\174\181\232\144\189\n \230\174\181\232\144\189\n \n \n part\n parts\n \n \n section\n sections\n \n \n sub verbo\n sub verbis\n \n \n verse\n verses\n \n \n volume\n volumes\n \n\n \n bk\n chap\n col\n fig\n f\n \229\143\183\n l.\n n.\n op\n \n p\n p\n \n \n p\n p\n \n para\n pt\n sec\n \n s.v.\n s.vv.\n \n \n v\n vv\n \n \n vol\n vols\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n \231\183\168\233\155\134\232\128\133\n \231\183\168\233\155\134\232\128\133\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n \231\191\187\232\168\179\232\128\133\n \231\191\187\232\168\179\232\128\133\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n \231\183\168\233\155\134\232\128\133\n \231\183\168\233\155\134\232\128\133\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n \231\191\187\232\168\179\232\128\133\n \231\191\187\232\168\179\232\128\133\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n \231\183\168\233\155\134\232\128\133\239\188\154\n edited by\n illustrated by\n interview by\n to\n by\n \231\191\187\232\168\179\232\128\133\239\188\154\n edited & translated by\n\n \n by\n dir.\n ed\n ed.\n illus.\n trans\n ed. & trans. by\n\n \n 1\230\156\136\n 2\230\156\136\n 3\230\156\136\n 4\230\156\136\n 5\230\156\136\n 6\230\156\136\n 7\230\156\136\n 8\230\156\136\n 9\230\156\136\n 10\230\156\136\n 11\230\156\136\n 12\230\156\136\n\n \n 1\230\156\136\n 2\230\156\136\n 3\230\156\136\n 4\230\156\136\n 5\230\156\136\n 6\230\156\136\n 7\230\156\136\n 8\230\156\136\n 9\230\156\136\n 10\230\156\136\n 11\230\156\136\n 12\230\156\136\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-km-KH.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n accessed\n and\n and others\n anonymous\n anon.\n at\n available at\n by\n circa\n c.\n cited\n \n edition\n editions\n \n ed.\n et al.\n forthcoming\n from\n ibid\n in\n in press\n internet\n interview\n letter\n no date\n n.d.\n online\n presented at the\n \n reference\n references\n \n \n ref.\n refs.\n \n retrieved\n scale\n version\n\n \n AD\n BC\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n \225\158\145\225\158\184\225\158\152\225\158\189\225\158\153\n \225\158\145\225\158\184\225\158\150\225\158\184\225\158\154\n \225\158\145\225\158\184\225\158\148\225\158\184\n \225\158\145\225\158\184\225\158\148\225\158\189\225\158\147\n \225\158\145\225\158\184\225\158\148\225\159\146\225\158\154\225\158\182\225\159\134\n \225\158\145\225\158\184\225\158\148\225\159\146\225\158\154\225\158\182\225\159\134\225\158\152\225\158\189\225\158\153\n \225\158\145\225\158\184\225\158\148\225\159\146\225\158\154\225\158\182\225\159\134\225\158\150\225\158\184\225\158\154\n \225\158\145\225\158\184\225\158\148\225\159\146\225\158\154\225\158\182\225\159\134\225\158\148\225\158\184\n \225\158\145\225\158\184\225\158\148\225\159\146\225\158\154\225\158\182\225\159\134\225\158\148\225\158\189\225\158\147\n \225\158\145\225\158\184\225\158\138\225\158\148\225\159\139\225\158\152\225\158\189\225\158\153\n\n \n \n \225\158\159\225\159\128\225\158\156\225\158\151\225\159\133\n \225\158\159\225\159\128\225\158\156\225\158\151\225\159\133\n \n \n \225\158\135\225\159\134\225\158\150\225\158\188\225\158\128\n \225\158\135\225\159\134\225\158\150\225\158\188\225\158\128\n \n \n \225\158\128\225\158\182\225\158\161\225\159\132\225\158\147\n \225\158\128\225\158\182\225\158\161\225\159\132\225\158\147\n \n \n \225\158\143\225\158\189\225\158\155\225\159\129\225\158\129\n \225\158\143\225\158\189\225\158\155\225\159\129\225\158\129\n \n \n folio\n folios\n \n \n \225\158\133\225\159\134\225\158\147\225\158\189\225\158\147\n \225\158\133\225\159\134\225\158\147\225\158\189\225\158\147\n \n \n \225\158\148\225\158\147\225\159\146\225\158\145\225\158\182\225\158\143\225\159\139\n \225\158\148\225\158\147\225\159\146\225\158\145\225\158\182\225\158\143\225\159\139\n \n \n \225\158\128\225\159\134\225\158\142\225\158\143\225\159\139\225\158\133\225\159\134\225\158\142\225\158\182\225\159\134\n \225\158\128\225\159\134\225\158\142\225\158\143\225\159\139\225\158\133\225\159\134\225\158\142\225\158\182\225\159\134\n \n \n opus\n opera\n \n \n \225\158\145\225\159\134\225\158\150\225\159\144\225\158\154\n \225\158\145\225\159\134\225\158\150\225\159\144\225\158\154\n \n \n \225\158\145\225\159\134\225\158\150\225\159\144\225\158\154\n \225\158\145\225\159\134\225\158\150\225\159\144\225\158\154\n \n \n \225\158\128\225\158\144\225\158\182\225\158\129\225\158\142\225\159\146\225\158\140\n \225\158\128\225\158\144\225\158\182\225\158\129\225\158\142\225\159\146\225\158\140\n \n \n \225\158\135\225\159\134\225\158\150\225\158\188\225\158\128\n \225\158\135\225\159\134\225\158\150\225\158\188\225\158\128\n \n \n \225\158\149\225\159\146\225\158\147\225\159\130\225\158\128\n \225\158\149\225\159\146\225\158\147\225\159\130\225\158\128\n \n \n sub verbo\n sub verbis\n \n \n verse\n verses\n \n \n \225\158\156\225\159\137\225\158\187\225\158\155\n \225\158\156\225\159\137\225\158\187\225\158\155\n \n\n \n bk.\n chap.\n col.\n fig.\n f.\n no.\n l.\n n.\n op.\n \n p.\n pp.\n \n \n p.\n pp.\n \n para.\n pt.\n sec.\n \n s.v.\n s.vv.\n \n \n v.\n vv.\n \n \n vol.\n vols.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n editor\n editors\n \n \n \n editors\n \n \n illustrator\n illustrators\n \n \n translator\n translator\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n ed.\n eds.\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n tran.\n trans.\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n edited by\n edited by\n illustrated by\n interview by\n to\n by\n translated by\n edited & translated by\n\n \n by\n dir.\n ed.\n ed.\n illus.\n trans.\n ed. & trans. by\n\n \n \225\158\152\225\158\128\225\158\154\225\158\182\n \225\158\128\225\158\187\225\158\152\225\159\146\225\158\151\225\159\136\n \225\158\152\225\158\184\225\158\147\225\158\182\n \225\158\152\225\159\129\225\158\159\225\158\182\n \225\158\167\225\158\159\225\158\151\225\158\182\n \225\158\152\225\158\183\225\158\144\225\158\187\225\158\147\225\158\182\n \225\158\128\225\158\128\225\159\146\225\158\128\225\158\138\225\158\182\n \225\158\159\225\158\184\225\158\160\225\158\182\n \225\158\128\225\158\137\225\159\146\225\158\137\225\158\182\n \225\158\143\225\158\187\225\158\155\225\158\182\n \225\158\156\225\158\183\225\158\133\225\159\146\225\158\134\225\158\183\225\158\128\225\158\182\n \225\158\146\225\159\146\225\158\147\225\158\188\n\n \n Jan.\n Feb.\n Mar.\n Apr.\n May\n Jun.\n Jul.\n Aug.\n Sep.\n Oct.\n Nov.\n Dec.\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-ko-KR.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \236\160\145\234\183\188\235\144\156\n \236\153\128/\234\179\188\n and others\n anonymous\n anon\n at\n available at\n by\n circa\n c.\n cited\n \n edition\n editions\n \n ed\n \234\184\176\237\131\128\n \234\183\188\234\176\132\n (\236\156\188)\235\161\156\235\182\128\237\132\176\n ibid.\n in\n in press\n internet\n interview\n letter\n no date\n \236\157\188\236\158\144 \236\151\134\236\157\140\n online\n presented at the\n \n reference\n references\n \n \n ref.\n refs.\n \n retrieved\n scale\n version\n\n \n AD\n BC\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n book\n books\n \n \n chapter\n chapters\n \n \n column\n columns\n \n \n figure\n figures\n \n \n folio\n folios\n \n \n number\n numbers\n \n \n \237\150\137\n \237\150\137\n \n \n note\n notes\n \n \n opus\n opera\n \n \n \237\142\152\236\157\180\236\167\128\n \237\142\152\236\157\180\236\167\128\n \n \n \237\142\152\236\157\180\236\167\128\n \237\142\152\236\157\180\236\167\128\n \n \n \235\139\168\235\157\189\n \235\139\168\235\157\189\n \n \n part\n parts\n \n \n section\n sections\n \n \n sub verbo\n sub verbis\n \n \n verse\n verses\n \n \n volume\n volumes\n \n\n \n bk\n chap\n col\n fig\n f\n \237\152\184\n l.\n n.\n op\n \n p\n pp\n \n \n p\n pp\n \n para\n pt\n sec\n \n s.v.\n s.vv.\n \n \n v\n vv\n \n \n vol\n vols\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n \237\142\184\236\167\145\236\158\144\n \237\142\184\236\167\145\236\158\144\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n \235\178\136\236\151\173\236\158\144\n \235\178\136\236\151\173\236\158\144\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n \237\142\184\236\167\145\236\158\144\n \237\142\184\236\167\145\236\158\144\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n \235\178\136\236\151\173\236\158\144\n \235\178\136\236\151\173\236\158\144\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n \237\142\184\236\167\145\236\158\144\239\188\154\n edited by\n illustrated by\n interview by\n to\n by\n \235\178\136\236\151\173\236\158\144\239\188\154\n edited & translated by\n\n \n by\n dir.\n ed\n ed.\n illus.\n trans\n ed. & trans. by\n\n \n 1\236\155\148\n 2\236\155\148\n 3\236\155\148\n 4\236\155\148\n 5\236\155\148\n 6\236\155\148\n 7\236\155\148\n 8\236\155\148\n 9\236\155\148\n 10\236\155\148\n 11\236\155\148\n 12\236\155\148\n\n \n 1\n 2\n 3\n 4\n 5\n 6\n 7\n 8\n 9\n 10\n 11\n 12\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-lt-LT.xml","\n\n \n \n Valdemaras Klumbys\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n\n \n \n \n \n \n \n\n \n \n \n \n \n \n \197\190i\197\171r\196\151ta\n ir\n ir kt.\n anonimas\n anon.\n \n available at\n \n circa\n ca.\n cituojama pagal\n \n leidimas\n leidimai\n \n leid.\n et al.\n ruo\197\161iamas\n \n ibid.\n \n spaudoje\n prieiga per internet\196\133\n interviu\n lai\197\161kas\n sine anno\n s.a.\n interaktyvus\n pristatytas\n \n nuoroda\n nuorodos\n \n \n nuor.\n nuor.\n \n gauta\n scale\n version\n\n \n po Kr.\n pr. Kr.\n\n \n \226\128\158\n \226\128\156\n ,\n \226\128\152\n \226\128\147\n\n \n -asis\n\n \n pirmasis\n antrasis\n tre\196\141iasis\n ketvirtasis\n penktasis\n \197\161e\197\161tasis\n septintasis\n a\197\161tuntasis\n devintasis\n de\197\161imtasis\n\n \n \n knyga\n knygos\n \n \n skyrius\n skyriai\n \n \n skiltis\n skiltys\n \n \n iliustracija\n iliustracijos\n \n \n lapas\n lapai\n \n \n numeris\n numeriai\n \n \n eilut\196\151\n eilut\196\151s\n \n \n pastaba\n pastabos\n \n \n opus\n opera\n \n \n puslapis\n puslapiai\n \n \n puslapis\n puslapiai\n \n \n pastraipa\n pastraipos\n \n \n dalis\n dalys\n \n \n poskyris\n poskyriai\n \n \n \197\190i\197\171r\196\151k\n \197\190i\197\171r\196\151k\n \n \n eil\196\151ra\197\161tis\n eil\196\151ra\197\161\196\141iai\n \n \n tomas\n tomai\n \n\n \n kn.\n sk.\n skilt.\n il.\n l.\n nr.\n l.\n n.\n op.\n \n p.\n p.\n \n \n p.\n p.\n \n pastr.\n d.\n posk.\n \n \197\190r.\n \197\190r.\n \n \n eil\196\151r.\n eil\196\151r.\n \n \n t.\n t.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n sudarytojas\n sudarytojai\n \n \n atsakingasis redaktorius\n atsakingieji redaktoriai\n \n \n illustrator\n illustrators\n \n \n vert\196\151jas\n vert\196\151jai\n \n \n sudarytojas ir vert\196\151jas\n sudarytojai ir vert\196\151jai\n \n\n \n \n dir.\n dirs.\n \n \n sud.\n sud.\n \n \n ats. red.\n ats. red.\n \n \n ill.\n ills.\n \n \n vert.\n vert.\n \n \n sud. ir vert.\n sud. ir vert.\n \n\n \n directed by\n sudar\196\151\n pareng\196\151\n illustrated by\n interviu \196\151m\196\151\n gavo\n by\n vert\196\151\n sudar\196\151 ir vert\196\151\n\n \n \n dir.\n sud.\n pareng.\n illus.\n vert.\n sud. ir vert.\n\n \n sausio\n vasario\n kovo\n baland\197\190io\n gegu\197\190\196\151s\n bir\197\190elio\n liepos\n rugpj\197\171\196\141io\n rugs\196\151jo\n spalio\n lapkri\196\141io\n gruod\197\190io\n\n \n saus.\n vas.\n kovo\n bal.\n geg.\n bir\197\190.\n liep.\n rugpj.\n rugs.\n spal.\n lapkr.\n gruod\197\190.\n\n \n pavasaris\n vasara\n ruduo\n \197\190iema\n \n\n"),("locales-lv-LV.xml","\n\n \n \n Andris Lupgins\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-12-27T11:40:58+02:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n skat\196\171ts\n m.\196\147.\n un\n un citi\n anon\196\171ms\n anon.\n \n pieejams\n p.m.\196\147.\n \n apm\196\147ram\n apm.\n cit\196\147ts\n \n redakcija\n redakcijas\n \n red.\n u.c.\n gaid\196\129ms\n no\n turpat\n no\n pres\196\147\n internets\n intervija\n v\196\147stule\n bez datuma\n b.g.\n tie\197\161saiste\n iesniegts\n \n atsauce\n atsauces\n \n \n ats.\n ats.\n \n ieg\197\171ts\n m\196\147rogs\n versija\n\n \n \"\n \"\n \"\n \"\n \226\128\147\n\n \n -ais\n -\196\129\n \n \n pirmais\n otrais\n tre\197\161ais\n ceturtais\n piektais\n sestais\n sept\196\171tais\n astotais\n dev\196\171tais\n desmitais\n\n pirm\196\129\n otr\196\129\n tre\197\161\196\129\n ceturt\196\129\n piekt\196\129\n sest\196\129\n sept\196\171t\196\129\n astot\196\129\n dev\196\171t\196\129\n desmit\196\129\n\n \n \n gr\196\129mata\n gr\196\129matas\n \n \n noda\196\188a\n noda\196\188as\n \n \n sleja\n slejas\n \n \n ilustr\196\129cija\n ilustr\196\129cijas\n \n \n folio\n folio\n \n \n numurs\n numuri\n \n \n rinda\n rindas\n \n \n piez\196\171me\n piez\196\171mes\n \n \n opuss\n opusi\n \n \n lappuse\n lappuses\n \n \n lappuse\n lappuses\n \n \n rindkopa\n rindkopas\n \n \n da\196\188a\n da\196\188as\n \n \n apak\197\161noda\196\188a\n apak\197\161noda\196\188as\n \n \n skat\196\171t\n skat\196\171t\n \n \n pants\n panti\n \n \n s\196\147jums\n s\196\147jumi\n \n \n \n gr\196\129m.\n nod.\n sl.\n il.\n fo.\n nr.\n r.\n piez.\n op.\n \n lpp.\n lpp.\n \n \n lpp.\n lpp.\n \n rindk.\n d.\n apak\197\161nod.\n \n sk.\n sk.\n \n \n p.\n p.\n \n \n s\196\147j.\n s\196\147j.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n kr\196\129juma redaktors\n kr\196\129juma redaktori\n \n \n sast\196\129d\196\171t\196\129js\n sast\196\129d\196\171t\196\129ji\n \n \n pamatmateri\196\129la autors\n pamatmateri\196\129la autori\n \n \n vad\196\171t\196\129js\n vad\196\171t\196\129ji\n \n \n redaktors\n redaktors\n \n \n galvenais redaktors\n galvenie redaktori\n \n \n redaktors un tulkot\196\129js\n redaktors un tulkot\196\129js\n \n \n ilustrators\n ilustratori\n \n \n interv\196\147t\196\129js\n interv\196\147t\196\129ji\n \n \n sa\197\134\196\147m\196\147js\n sa\197\134\196\147m\196\147ji\n \n \n tulkot\196\129js\n tulkot\196\129ji\n \n\n \n \n kr. red.\n kr. red.\n \n \n sast.\n sast.\n \n \n pamatmat. aut.\n pamatmat. aut.\n \n \n vad.\n vad.\n \n \n red.\n red.\n \n \n galv. red.\n galv. red.\n \n \n red. un tulk.\n red. un tulk.\n \n \n ilustr.\n ilustr.\n \n \n interv.\n interv.\n \n \n sa\197\134.\n sa\197\134.\n \n \n tulk.\n tulk.\n \n\n \n sast\196\129d\196\171ja\n vad\196\171ja\n sagatavoja\n sagatavoja\n sagatavoja un tulkoja\n ilustr\196\147ja\n interv\196\147ja\n sa\197\134\196\147ma\n tulkoja\n\n \n \n sast.\n sag.\n sag.\n ilustr.\n tulk.\n sag. un tulk.\n\n \n janv\196\129r\196\171\n febru\196\129r\196\171\n mart\196\129\n apr\196\171l\196\171\n maij\196\129\n j\197\171nij\196\129\n j\197\171lij\196\129\n august\196\129\n septembr\196\171\n oktobr\196\171\n novembr\196\171\n decembr\196\171\n\n \n janv.\n febr.\n mar.\n apr.\n mai.\n j\197\171n.\n j\197\171l.\n aug.\n sept.\n okt.\n nov.\n dec.\n\n \n pavasaris\n vasara\n rudens\n ziema\n \n\n"),("locales-mn-MN.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n accessed\n and\n and others\n anonymous\n anon\n at\n available at\n by\n circa\n c.\n cited\n \n edition\n editions\n \n ed\n et al.\n forthcoming\n from\n ibid.\n in\n in press\n internet\n interview\n letter\n no date\n n.d.\n online\n presented at the\n \n reference\n references\n \n \n ref.\n refs.\n \n retrieved\n scale\n version\n\n \n AD\n BC\n\n \n \194\171\n \194\187\n \226\128\158\n \226\128\156\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n book\n books\n \n \n chapter\n chapters\n \n \n column\n columns\n \n \n figure\n figures\n \n \n folio\n folios\n \n \n number\n numbers\n \n \n line\n lines\n \n \n note\n notes\n \n \n opus\n opera\n \n \n page\n pages\n \n \n page\n pages\n \n \n paragraph\n paragraph\n \n \n part\n parts\n \n \n section\n sections\n \n \n sub verbo\n sub verbis\n \n \n verse\n verses\n \n \n volume\n volumes\n \n\n \n bk\n chap\n col\n fig\n f\n no\n l.\n n.\n op\n \n p\n pp\n \n \n p\n pp\n \n para\n pt\n sec\n \n s.v.\n s.vv.\n \n \n v\n vv\n \n \n vol\n vols\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n editor\n editors\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n translator\n translators\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n ed\n eds\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n tran\n trans\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n edited by\n edited by\n illustrated by\n interview by\n to\n by\n translated by\n edited & translated by\n\n \n by\n dir.\n ed\n ed.\n illus.\n trans\n ed. & trans. by\n\n \n January\n February\n March\n April\n May\n June\n July\n August\n September\n October\n November\n December\n\n \n Jan\n Feb\n Mar\n Apr\n May\n Jun\n Jul\n Aug\n Sep\n Oct\n Nov\n Dec\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-nb-NO.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2013-03-01T12:20:00+01:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \195\165pnet\n og\n med flere\n anonym\n anon.\n p\195\165\n tilgjengelig p\195\165\n av\n circa\n ca.\n sitert\n \n utgave\n utgaver\n \n utg.\n mfl.\n kommende\n fra\n ibid.\n i\n i trykk\n Internett\n intervju\n brev\n ingen dato\n udatert\n online\n presentert p\195\165\n \n referanse\n referanser\n \n \n ref.\n refr.\n \n hentet\n m\195\165lestokk\n versjon\n\n \n fvt.\n evt.\n\n \n \194\171\n \194\187\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n .\n\n \n f\195\184rste\n andre\n tredje\n fjerde\n femte\n sjette\n sjuende\n \195\165ttende\n niende\n tiende\n\n \n \n bok\n b\195\184ker\n \n \n kapittel\n kapitler\n \n \n kolonne\n kolonner\n \n \n figur\n figurer\n \n \n folio\n folioer\n \n \n nummer\n numre\n \n \n linje\n linjer\n \n \n note\n noter\n \n \n opus\n opus\n \n \n side\n sider\n \n \n side\n sider\n \n \n avsnitt\n avsnitt\n \n \n del\n deler\n \n \n paragraf\n paragrafer\n \n \n sub verbo\n sub verbis\n \n \n vers\n vers\n \n \n bind\n bind\n \n\n \n b.\n kap.\n kol.\n fig.\n fol.\n nr.\n l.\n n.\n op.\n \n s.\n s.\n \n \n s.\n s.\n \n avsn.\n d.\n pargr.\n \n s.v.\n s.vv.\n \n \n v.\n v.\n \n \n bd.\n bd.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n regiss\195\184r\n regiss\195\184rer\n \n \n redakt\195\184r\n redakt\195\184rer\n \n \n redakt\195\184r\n redakt\195\184rer\n \n \n illustrat\195\184r\n illustrat\195\184rer\n \n \n oversetter\n oversettere\n \n \n redakt\195\184r & oversetter\n redakt\195\184rer & oversettere\n \n\n \n \n regi\n regi\n \n \n red.\n red.\n \n \n red.\n red.\n \n \n ill.\n ills.\n \n \n overs.\n overs.\n \n \n red. & overs.\n red. & overs.\n \n\n \n regissert av\n redigert av\n redigert av\n illustrert av\n intervjuet av\n til\n av\n oversatt av\n redigert & oversatt av\n\n \n av\n regi\n red.\n red.\n illus.\n overs.\n red. & overs. av\n\n \n januar\n februar\n mars\n april\n mai\n juni\n juli\n august\n september\n oktober\n november\n desember\n\n \n jan.\n feb.\n mar.\n apr.\n mai\n jun.\n jul.\n aug.\n sep.\n okt.\n nov.\n des.\n\n \n v\195\165r\n sommer\n h\195\184st\n vinter\n \n\n"),("locales-nl-NL.xml","\n\n \n \n Rintze Zelle\n http://twitter.com/rintzezelle\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n geraadpleegd\n en\n en anderen\n anoniem\n anon.\n bij\n beschikbaar op\n door\n circa\n c.\n geciteerd\n \n editie\n edities\n \n ed.\n e.a.\n in voorbereiding\n van\n ibid.\n in\n in druk\n internet\n interview\n brief\n zonder datum\n z.d.\n online\n gepresenteerd bij\n \n referentie\n referenties\n \n \n ref.\n refs.\n \n geraadpleegd\n schaal\n versie\n\n \n AD\n BC\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n ste\n de\n de\n de\n de\n de\n de\n de\n de\n de\n de\n de\n de\n de\n de\n de\n de\n de\n de\n\n \n eerste\n tweede\n derde\n vierde\n vijfde\n zesde\n zevende\n achtste\n negende\n tiende\n\n \n \n boek\n boeken\n \n \n hoofdstuk\n hoofdstukken\n \n \n column\n columns\n \n \n figuur\n figuren\n \n \n folio\n folio's\n \n \n nummer\n nummers\n \n \n regel\n regels\n \n \n aantekening\n aantekeningen\n \n \n opus\n opera\n \n \n pagina\n pagina's\n \n \n pagina\n pagina's\n \n \n paragraaf\n paragrafen\n \n \n deel\n delen\n \n \n sectie\n secties\n \n \n sub verbo\n sub verbis\n \n \n vers\n versen\n \n \n volume\n volumes\n \n\n \n bk.\n hfdst.\n col.\n fig.\n f.\n nr.\n l.\n n.\n op.\n \n p.\n pp.\n \n \n p.\n pp.\n \n par.\n deel\n sec.\n \n s.v.\n s.vv.\n \n \n v.\n vv.\n \n \n vol.\n vols.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n regisseur\n regisseurs\n \n \n redacteur\n redacteuren\n \n \n redacteur\n redacteuren\n \n \n illustrator\n illustrators\n \n \n vertaler\n vertalers\n \n \n redacteur & vertaler\n redacteuren & vertalers\n \n\n \n \n reg.\n reg.\n \n \n red.\n red.\n \n \n red.\n red.\n \n \n ill.\n ill.\n \n \n vert.\n vert.\n \n \n red. & vert.\n red. & vert.\n \n\n \n geregisseerd door\n bewerkt door\n bewerkt door\n ge\195\175llustreerd door\n ge\195\175nterviewd door\n ontvangen door\n door\n vertaald door\n bewerkt & vertaald door\n\n \n door\n geregisseerd door\n bewerkt door\n bewerkt door\n ge\195\175llustreerd door\n vertaald door\n bewerkt & vertaald door\n\n \n januari\n februari\n maart\n april\n mei\n juni\n juli\n augustus\n september\n oktober\n november\n december\n\n \n jan.\n feb.\n mrt.\n apr.\n mei\n jun.\n jul.\n aug.\n sep.\n okt.\n nov.\n dec.\n\n \n lente\n zomer\n herst\n winter\n \n\n"),("locales-nn-NO.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2013-03-01T12:20:00+01:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n vitja\n og\n med fleire\n anonym\n anon.\n p\195\165\n tilgjengeleg p\195\165\n av\n circa\n ca.\n sitert\n \n utg\195\165ve\n utg\195\165ver\n \n utg.\n mfl.\n kommande\n fr\195\165\n ibid.\n i\n i trykk\n Internett\n intervju\n brev\n ingen dato\n udatert\n online\n presentert p\195\165\n \n referanse\n referansar\n \n \n ref.\n refr.\n \n henta\n m\195\165lestokk\n versjon\n\n \n fvt.\n evt.\n\n \n \194\171\n \194\187\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n .\n\n \n f\195\184rste\n andre\n tredje\n fjerde\n femte\n sjette\n sjuande\n \195\165ttande\n niande\n tiande\n\n \n \n bok\n b\195\184ker\n \n \n kapittel\n kapittel\n \n \n kolonne\n kolonner\n \n \n figur\n figurar\n \n \n folio\n folioar\n \n \n nummer\n nummer\n \n \n linje\n linjer\n \n \n note\n notar\n \n \n opus\n opus\n \n \n side\n sider\n \n \n side\n sider\n \n \n avsnitt\n avsnitt\n \n \n del\n deler\n \n \n paragraf\n paragrafar\n \n \n sub verbo\n sub verbis\n \n \n vers\n vers\n \n \n bind\n bind\n \n\n \n b.\n kap.\n kol.\n fig.\n fol.\n nr.\n l.\n n.\n op.\n \n s.\n s.\n \n \n s.\n s.\n \n avsn.\n d.\n par.\n \n s.v.\n s.vv.\n \n \n v.\n v.\n \n \n bd.\n bd.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n regiss\195\184r\n regiss\195\184rar\n \n \n redakt\195\184r\n redakt\195\184rar\n \n \n redakt\195\184r\n redakt\195\184rar\n \n \n illustrat\195\184r\n illustrat\195\184rar\n \n \n omsetjar\n omsetjarar\n \n \n redakt\195\184r & omsetjar\n redakt\195\184rar & omsetjarar\n \n\n \n \n regi\n regi\n \n \n red.\n red.\n \n \n red.\n red.\n \n \n ill.\n ills.\n \n \n oms.\n oms.\n \n \n red. & oms.\n red. & oms.\n \n\n \n regissert av\n redigert av\n redigert av\n illustrert av\n intervjua av\n til\n av\n omsett av\n redigert & omsett av\n\n \n av\n regi\n red.\n red.\n illus.\n oms.\n red. & oms. av\n\n \n januar\n februar\n mars\n april\n mai\n juni\n juli\n august\n september\n oktober\n november\n desember\n\n \n jan.\n feb.\n mar.\n apr.\n mai\n jun.\n jul.\n aug.\n sep.\n okt.\n nov.\n des.\n\n \n v\195\165r\n sommar\n haust\n vinter\n \n\n"),("locales-pl-PL.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n udost\196\153pniono\n i\n i inni\n anonim\n anon.\n na\n dost\196\153pne na\n przez\n oko\197\130o\n ok\n cytowane\n \n wydanie\n wydania\n \n wyd.\n i in.\n w przygotowaniu\n z\n ibid.\n w\n w druku\n internet\n wywiad\n list\n brak daty\n b.d.\n online\n zaprezentowano na\n \n referencja\n referencje\n \n \n ref.\n ref.\n \n pobrano\n skala\n wersja\n\n \n n.e.\n p.n.e.\n\n \n \226\128\158\n \226\128\157\n \194\171\n \194\187\n \226\128\147\n\n \n .\n\n \n pierwszy\n drugi\n trzeci\n czwarty\n pi\196\133ty\n sz\195\179sty\n si\195\179dmy\n \195\179smy\n dziewi\196\133ty\n dziesi\196\133ty\n\n \n \n ksi\196\133\197\188ka\n ksi\196\133\197\188ki\n \n \n rozdzia\197\130\n rozdzia\197\130y\n \n \n kolumna\n kolumny\n \n \n rycina\n ryciny\n \n \n folio\n folio\n \n \n numer\n numery\n \n \n wers\n wersy\n \n \n notatka\n notatki\n \n \n opus\n opera\n \n \n strona\n strony\n \n \n strona\n strony\n \n \n akapit\n akapity\n \n \n cz\196\153\197\155\196\135\n cz\196\153\197\155ci\n \n \n sekcja\n sekcje\n \n \n sub verbo\n sub verbis\n \n \n wers\n wersy\n \n \n tom\n tomy\n \n\n \n ksi\196\133\197\188ka\n rozdz.\n kol.\n ryc.\n fol.\n nr\n l.\n n.\n op.\n \n s.\n ss.\n \n \n s.\n ss.\n \n akap.\n cz.\n sekc.\n \n s.v.\n s.vv.\n \n \n w.\n w.\n \n \n t.\n t.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n re\197\188yser\n re\197\188yserzy\n \n \n redaktor\n redaktorzy\n \n \n edytor\n edytorzy\n \n \n ilustrator\n ilustratorzy\n \n \n t\197\130umacz\n t\197\130umacze\n \n \n redaktor & t\197\130umacz\n redaktorzy & t\197\130umacze\n \n\n \n \n dyr.\n dyr.\n \n \n red.\n red.\n \n \n red.\n red.\n \n \n il.\n il.\n \n \n t\197\130um.\n t\197\130um.\n \n \n red.t\197\130um.\n red.t\197\130um.\n \n\n \n directed by\n zredagowane przez\n zredagowane przez\n ilustrowane przez by\n przeprowadzony przez\n dla\n przez\n przet\197\130umaczone przez\n zredagowane i przet\197\130umaczone przez\n\n \n przez\n dir.\n red.\n red.\n il.\n t\197\130um.\n red.t\197\130um.\n\n \n stycze\197\132\n luty\n marzec\n kwiecie\197\132\n maj\n czerwiec\n lipiec\n sierpie\197\132\n wrzesie\197\132\n pa\197\186dziernik\n listopad\n grudzie\197\132\n\n \n sty.\n luty\n mar.\n kwi.\n maj\n cze.\n lip.\n sie.\n wrz.\n pa\197\186.\n lis.\n grudz.\n\n \n wiosna\n lato\n jesie\197\132\n zima\n \n\n"),("locales-pt-BR.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n acessado\n e\n e outros\n an\195\180nimo\n anon\n em\n available at\n por\n circa\n c.\n citado\n \n edi\195\167\195\163o\n edi\195\167\195\181es\n \n ed\n et al.\n a ser publicado\n de\n ibidem\n in\n no prelo\n internet\n entrevista\n carta\n sem data\n [s.d.]\n online\n apresentado em\n \n refer\195\170ncia\n refer\195\170ncias\n \n \n ref.\n refs.\n \n recuperado\n scale\n version\n\n \n AD\n BC\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n \194\186\n\n \n primeiro\n segundo\n terceiro\n quarto\n quinto\n sexto\n s\195\169timo\n oitavo\n nono\n d\195\169cimo\n\n \n \n livro\n livros\n \n \n cap\195\173tulo\n cap\195\173tulos\n \n \n coluna\n colunas\n \n \n figura\n figuras\n \n \n folio\n folios\n \n \n n\195\186mero\n n\195\186meros\n \n \n linha\n linhas\n \n \n nota\n notas\n \n \n opus\n opera\n \n \n p\195\161gina\n p\195\161ginas\n \n \n p\195\161gina\n p\195\161ginas\n \n \n par\195\161grafo\n par\195\161grafos\n \n \n parte\n partes\n \n \n se\195\167\195\163o\n se\195\167\195\181es\n \n \n sub verbo\n sub verbis\n \n \n verso\n versos\n \n \n volume\n volumes\n \n\n \n liv.\n cap.\n col.\n fig.\n f.\n n\194\186\n l.\n n.\n op.\n \n p.\n p.\n \n \n p.\n p.\n \n parag.\n pt.\n se\195\167.\n \n s.v.\n s.vv.\n \n \n v.\n vv.\n \n \n vol.\n vols.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n organizador\n organizadores\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n tradutor\n tradutores\n \n \n editor e tradutor\n editores e tradutores\n \n\n \n \n dir.\n dirs.\n \n \n org.\n orgs.\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n trad.\n trads.\n \n \n ed. e trad.\n eds. e trads.\n \n\n \n directed by\n organizado por\n editado por\n illustrated by\n entrevista de\n para\n by\n traduzido por\n editado & traduzido por\n\n \n por\n dir.\n org.\n ed.\n illus.\n trad.\n ed. e trad. por\n\n \n janeiro\n fevereiro\n mar\195\167o\n abril\n maio\n junho\n julho\n agosto\n setembro\n outubro\n novembro\n dezembro\n\n \n jan.\n fev.\n mar.\n abr.\n maio\n jun.\n jul.\n ago.\n set.\n out.\n nov.\n dez.\n\n \n Primavera\n Ver\195\163o\n Outono\n Inverno\n \n\n"),("locales-pt-PT.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2013-09-20T23:31:02+00:00\n \n Jonadabe PT\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n acedido\n e\n e outros\n an\195\179nimo\n an\195\179n.\n em\n dispon\195\173vel em\n por\n circa\n c.\n citado\n \n edi\195\167\195\163o\n edi\195\167\195\181es\n \n ed.\n et al.\n a publicar\n de\n ibid.\n em\n no prelo\n internet\n entrevista\n carta\n sem data\n sem data\n em linha\n apresentado na\n \n refer\195\170ncia\n refer\195\170ncias\n \n \n ref.\n refs.\n \n obtido\n scale\n vers\195\163o\n\n \n AD\n BC\n\n \n \194\171\n \194\187\n \226\128\156\n \226\128\157\n \226\128\147\n\n \n .\194\186\n .\194\170\n\n \n primeiro\n primeira\n segundo\n segunda \n terceiro\n terceira \n quarto\n quarta\n quinto\n quinta\n sexto\n sexta\n s\195\169timo\n s\195\169tima\n oitavo\n oitava\n nono\n nona\n d\195\169cimo\n d\195\169cima\n\n \n \n livro\n livros\n \n \n cap\195\173tulo\n cap\195\173tulos\n \n \n coluna\n colunas\n \n \n figura\n figuras\n \n \n f\195\179lio\n f\195\179lios\n \n \n n\195\186mero\n n\195\186meros\n \n \n linha\n linhas\n \n \n nota\n notas\n \n \n opus\n opera\n \n \n p\195\161gina\n p\195\161ginas\n \n \n p\195\161gina\n p\195\161ginas\n \n \n par\195\161grafo\n par\195\161grafos\n \n \n parte\n partes\n \n \n sec\195\167\195\163o\n sec\195\167\195\181es\n \n \n sub verbo\n sub verbis\n \n \n vers\195\173culo\n vers\195\173culos\n \n \n volume\n volumes\n \n\n \n liv.\n cap.\n col.\n fig.\n f.\n n.\n l.\n n.\n op.\n \n p.\n pp.\n \n \n p.\n pp.\n \n par.\n pt.\n sec.\n \n s.v.\n s.vv.\n \n \n v\n vv\n \n \n vol.\n vols.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directores\n \n \n editor\n editores\n \n \n editor\n editores\n \n \n ilustrador\n ilustradores\n \n \n tradutor\n tradutores\n \n \n editor & tradutor\n editores & tradutores\n \n\n \n \n dir.\n dirs.\n \n \n ed.\n eds.\n \n \n ed.\n eds.\n \n \n il.\n ils.\n \n \n trad.\n trads.\n \n \n ed. & trad.\n eds. & trads.\n \n\n \n dirigido por\n editado por\n editorial de\n ilustrado por\n entrevistado por\n para\n revisto por\n traduzido por\n editado & traduzido por\n\n \n por\n dir.\n ed.\n ed.\n ilus.\n trad.\n ed. & trad. por\n\n \n Janeiro\n Fevereiro\n Mar\195\167o\n Abril\n Maio\n Junho\n Julho\n Agosto\n Setembro\n Outubro\n Novembro\n Dezembro\n\n \n Jan.\n Fev.\n Mar.\n Abr.\n Mai.\n Jun.\n Jul.\n Ago.\n Set.\n Out.\n Nov.\n Dez.\n\n \n Primavera\n Ver\195\163o\n Outono\n Inverno\n \n\n"),("locales-ro-RO.xml","\n\n \n \n Nicolae Turcan\n nturcan@gmail.com\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n data acces\196\131rii\n \200\153i\n \200\153i al\200\155ii\n anonim\n anon.\n la\n valabil la\n de\n circa\n cca.\n citat\n \n edi\200\155ia\n edi\200\155iile\n \n ed\n et al.\n \195\174n curs de apari\200\155ie\n din\n ibidem\n \195\174n\n sub tipar\n internet\n interviu\n scrisoare\n f\196\131r\196\131 dat\196\131\n f.a.\n online\n prezentat la\n \n referin\200\155\196\131\n referin\200\155e\n \n \n ref.\n ref.\n \n preluat \195\174n\n scal\196\131\n versiunea\n\n \n d.Hr.\n \195\174.Hr.\n\n \n \226\128\158\n \226\128\157\n \194\171\n \194\187\n -\n\n \n -lea\n \n\n \n primul\n al doilea\n al treilea\n al patrulea\n al cincilea\n al \200\153aselea\n al \200\153aptelea\n al optulea\n al nou\196\131lea\n al zecelea\n\n \n \n cartea\n c\196\131r\200\155ile\n \n \n capitolul\n capitolele\n \n \n coloana\n coloanele\n \n \n figura\n figurile\n \n \n folio\n folio\n \n \n num\196\131rul\n numerele\n \n \n linia\n liniile\n \n \n nota\n notele\n \n \n opusul\n opusurile\n \n \n pagina\n paginile\n \n \n pagina\n paginile\n \n \n paragraful\n paragrafele\n \n \n partea\n p\196\131r\200\155ile\n \n \n sec\200\155iunea\n sec\200\155iunile\n \n \n sub verbo\n sub verbis\n \n \n versetul\n versetele\n \n \n volumul\n volumele\n \n\n \n cart.\n cap.\n col.\n fig.\n fol.\n nr.\n l.\n n.\n op.\n \n p.\n pp.\n \n \n p.\n pp.\n \n par.\n part.\n sec.\n \n s.v.\n s.vv.\n \n \n v.\n vv.\n \n \n vol.\n vol.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directori\n \n \n editor\n editori\n \n \n editor\n editori\n \n \n ilustrator\n ilustratori\n \n \n traduc\196\131tor\n traduc\196\131tori\n \n \n editor & traduc\196\131tor\n editori & traduc\196\131tori\n \n\n \n \n dir.\n dir.\n \n \n ed.\n ed.\n \n \n ed.\n ed.\n \n \n ilustr.\n ilustr.\n \n \n trad.\n trad.\n \n \n ed. & trad.\n ed. & trad.\n \n\n \n coordonat de\n edi\200\155ie de\n edi\200\155ie de\n ilustra\200\155ii de\n interviu de\n \195\174n\n de\n traducere de\n edi\200\155ie & traducere de\n\n \n de\n dir.\n ed.\n ed.\n ilustr.\n trad.\n ed. & trad. de\n\n \n ianuarie\n februarie\n martie\n aprilie\n mai\n iunie\n iulie\n august\n septembrie\n octombrie\n noiembrie\n decembrie\n\n \n ian.\n feb.\n mar.\n apr.\n mai\n iun.\n iul.\n aug.\n sep.\n oct.\n nov.\n dec.\n\n \n prim\196\131vara\n vara\n toamna\n iarna\n \n\n"),("locales-ru-RU.xml","\n\n \n \n Alexei Kouprianov\n alexei.kouprianov@gmail.com\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \208\191\209\128\208\190\209\129\208\188\208\190\209\130\209\128\208\181\208\189\208\190\n \208\184\n \208\184 \208\180\209\128.\n \208\176\208\189\208\190\208\189\208\184\208\188\n \208\176\208\189\208\190\208\189.\n \208\189\208\176\n available at\n \n circa\n ca.\n \209\134\208\184\209\130\208\184\209\128\209\131\208\181\209\130\209\129\209\143 \208\191\208\190\n \209\134\208\184\209\130. \208\191\208\190\n \n \208\184\208\183\208\180\208\176\208\189\208\184\208\181\n \208\184\208\183\208\180\208\176\208\189\208\184\209\143\n \n \208\184\208\183\208\180.\n \208\184 \208\180\209\128.\n \208\190\208\182\208\184\208\180\208\176\208\181\209\130\209\129\209\143\n \208\190\209\130\n \209\130\208\176\208\188 \208\182\208\181\n \208\178\n \208\178 \208\191\208\181\209\135\208\176\209\130\208\184\n \208\152\208\189\209\130\208\181\209\128\208\189\208\181\209\130\n \208\184\208\189\209\130\208\181\209\128\208\178\209\140\209\142\n \208\191\208\184\209\129\209\140\208\188\208\190\n \208\177\208\181\208\183 \208\180\208\176\209\130\209\139\n \208\177. \208\180.\n online\n \208\191\209\128\208\181\208\180\209\129\209\130\208\176\208\178\208\187\208\181\208\189\208\190 \208\189\208\176\n \n reference\n references\n \n \n ref.\n refs.\n \n \208\184\208\183\208\178\208\187\208\181\209\135\208\181\208\189\208\190\n scale\n version\n\n \n \208\189. \209\141.\n \208\180\208\190 \208\189. \209\141.\n\n \n \194\171\n \194\187\n \226\128\158\n \226\128\156\n \226\128\147\n\n \n \208\185\n\n \n \208\191\208\181\209\128\208\178\209\139\208\185\n \208\178\209\130\208\190\209\128\208\190\208\185\n \209\130\209\128\208\181\209\130\208\184\208\185\n \209\135\208\181\209\130\208\178\208\181\209\128\209\130\209\139\208\185\n \208\191\209\143\209\130\209\139\208\185\n \209\136\208\181\209\129\209\130\208\190\208\185\n \209\129\208\181\208\180\209\140\208\188\208\190\208\185\n \208\178\208\190\209\129\209\140\208\188\208\190\208\185\n \208\180\208\181\208\178\209\143\209\130\209\139\208\185\n \208\180\208\181\209\129\209\143\209\130\209\139\208\185\n\n \n \n \208\186\208\189\208\184\208\179\208\176\n \208\186\208\189\208\184\208\179\208\184\n \n \n \208\179\208\187\208\176\208\178\208\176\n \208\179\208\187\208\176\208\178\209\139\n \n \n \209\129\209\130\208\190\208\187\208\177\208\181\209\134\n \209\129\209\130\208\190\208\187\208\177\209\134\209\139\n \n \n \209\128\208\184\209\129\209\131\208\189\208\190\208\186\n \209\128\208\184\209\129\209\131\208\189\208\186\208\184\n \n \n \208\187\208\184\209\129\209\130\n \208\187\208\184\209\129\209\130\209\139\n \n \n \208\178\209\139\208\191\209\131\209\129\208\186\n \208\178\209\139\208\191\209\131\209\129\208\186\208\184\n \n \n \209\129\209\130\209\128\208\190\208\186\208\176\n \209\129\209\130\209\128\208\190\208\186\208\184\n \n \n \208\191\209\128\208\184\208\188\208\181\209\135\208\176\208\189\208\184\208\181\n \208\191\209\128\208\184\208\188\208\181\209\135\208\176\208\189\208\184\209\143\n \n \n \209\129\208\190\209\135\208\184\208\189\208\181\208\189\208\184\208\181\n \209\129\208\190\209\135\208\184\208\189\208\181\208\189\208\184\209\143\n \n \n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\208\176\n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\209\139\n \n \n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\208\176\n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\209\139\n \n \n \208\191\208\176\209\128\208\176\208\179\209\128\208\176\209\132\n \208\191\208\176\209\128\208\176\208\179\209\128\208\176\209\132\209\139\n \n \n \209\135\208\176\209\129\209\130\209\140\n \209\135\208\176\209\129\209\130\208\184\n \n \n \209\128\208\176\208\183\208\180\208\181\208\187\n \209\128\208\176\208\183\208\180\208\181\208\187\209\139\n \n \n \209\129\208\188\208\190\209\130\209\128\208\184\n \209\129\208\188\208\190\209\130\209\128\208\184\n \n \n \209\129\209\130\208\184\209\133\n \209\129\209\130\208\184\209\133\208\184\n \n \n \209\130\208\190\208\188\n \209\130\208\190\208\188\208\176\n \n\n \n \208\186\208\189.\n \208\179\208\187.\n \209\129\209\130\208\177.\n \209\128\208\184\209\129.\n \208\187.\n \226\132\150\n l.\n n.\n \209\129\208\190\209\135.\n \n \209\129.\n \209\129.\n \n \n \209\129.\n \209\129.\n \n \208\191\208\176\209\128\208\176.\n \209\135.\n \209\128\208\176\208\183\208\180.\n \n \209\129\208\188.\n \209\129\208\188.\n \n \n \209\129\209\130.\n \209\129\209\130.\n \n \n \209\130.\n \209\130\209\130.\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n \209\128\208\181\208\180\208\176\208\186\209\130\208\190\209\128\n \209\128\208\181\208\180\208\176\208\186\209\130\208\190\209\128\209\139\n \n \n \208\190\209\130\208\178\208\181\209\130\209\129\209\130\208\178\208\181\208\189\208\189\209\139\208\185 \209\128\208\181\208\180\208\176\208\186\209\130\208\190\209\128\n \208\190\209\130\208\178\208\181\209\130\209\129\209\130\208\178\208\181\208\189\208\189\209\139\208\181 \209\128\208\181\208\180\208\176\208\186\209\130\208\190\209\128\209\139\n \n \n illustrator\n illustrators\n \n \n \208\191\208\181\209\128\208\181\208\178\208\190\208\180\209\135\208\184\208\186\n \208\191\208\181\209\128\208\181\208\178\208\190\208\180\209\135\208\184\208\186\208\184\n \n \n \209\128\208\181\208\180\208\176\208\186\209\130\208\190\209\128 \208\184 \208\191\208\181\209\128\208\181\208\178\208\190\208\180\209\135\208\184\208\186\n \209\128\208\181\208\180\208\176\208\186\209\130\208\190\209\128\209\139 \208\184 \208\191\208\181\209\128\208\181\208\178\208\190\208\180\209\135\208\184\208\186\208\184\n \n\n \n \n dir.\n dirs.\n \n \n \209\128\208\181\208\180.\n \209\128\208\181\208\180.\n \n \n \208\190\209\130\208\178. \209\128\208\181\208\180.\n \208\190\209\130\208\178. \209\128\208\181\208\180.\n \n \n ill.\n ills.\n \n \n \208\191\208\181\209\128\208\181\208\178.\n \208\191\208\181\209\128\208\181\208\178.\n \n \n \209\128\208\181\208\180. \208\184 \208\191\208\181\209\128\208\181\208\178.\n \209\128\208\181\208\180. \208\184 \208\191\208\181\209\128\208\181\208\178.\n \n\n \n directed by\n \208\190\209\130\209\128\208\181\208\180\208\176\208\186\209\130\208\184\209\128\208\190\208\178\208\176\208\189\208\190\n \208\190\209\130\209\128\208\181\208\180\208\176\208\186\209\130\208\184\209\128\208\190\208\178\208\176\208\189\208\190\n illustrated by\n \208\184\208\189\209\130\208\181\209\128\208\178\209\140\209\142\n \208\186\n by\n \208\191\208\181\209\128\208\181\208\178\208\181\208\180\208\181\208\189\208\190\n \208\190\209\130\209\128\208\181\208\180\208\176\208\186\209\130\208\184\209\128\208\190\208\178\208\176\208\189\208\190 \208\184 \208\191\208\181\209\128\208\181\208\178\208\181\208\180\208\181\208\189\208\190\n\n \n \n dir.\n \209\128\208\181\208\180.\n \208\190\209\130\208\178. \209\128\208\181\208\180.\n illus.\n \208\191\208\181\209\128\208\181\208\178.\n \209\128\208\181\208\180. \208\184 \208\191\208\181\209\128\208\181\208\178.\n\n \n \209\143\208\189\208\178\208\176\209\128\209\140\n \209\132\208\181\208\178\209\128\208\176\208\187\209\140\n \208\188\208\176\209\128\209\130\n \208\176\208\191\209\128\208\181\208\187\209\140\n \208\188\208\176\208\185\n \208\184\209\142\208\189\209\140\n \208\184\209\142\208\187\209\140\n \208\176\208\178\208\179\209\131\209\129\209\130\n \209\129\208\181\208\189\209\130\209\143\208\177\209\128\209\140\n \208\190\208\186\209\130\209\143\208\177\209\128\209\140\n \208\189\208\190\209\143\208\177\209\128\209\140\n \208\180\208\181\208\186\208\176\208\177\209\128\209\140\n\n \n \209\143\208\189\208\178.\n \209\132\208\181\208\178.\n \208\188\208\176\209\128.\n \208\176\208\191\209\128.\n \208\188\208\176\208\185\n \208\184\209\142\208\189.\n \208\184\209\142\208\187.\n \208\176\208\178\208\179.\n \209\129\208\181\208\189.\n \208\190\208\186\209\130.\n \208\189\208\190\209\143.\n \208\180\208\181\208\186.\n\n \n \208\178\208\181\209\129\208\189\208\176\n \208\187\208\181\209\130\208\176\n \208\190\209\129\208\181\208\189\209\140\n \208\183\208\184\208\188\208\176\n \n\n"),("locales-sk-SK.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2014-03-09T22:23:31+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n cit\n a\n a \196\143al\197\161\195\173\n anonym\n anon.\n v\n available at\n by\n circa\n cca.\n cit\n \n vydanie\n vydania\n \n vyd.\n et al.\n nadch\195\161dzaj\195\186ci\n z\n ibid.\n v\n v tla\196\141i\n internet\n osobn\195\161 komunik\195\161cia\n list\n no date\n n.d.\n online\n prezentovan\195\169 na\n \n reference\n references\n \n \n ref.\n refs.\n \n cit\n scale\n version\n\n \n po Kr.\n pred Kr.\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n kniha\n knihy\n \n \n kapitola\n kapitoly\n \n \n st\196\186pec\n st\196\186pce\n \n \n obr\195\161zok\n obr\195\161zky\n \n \n list\n listy\n \n \n \196\141\195\173slo\n \196\141\195\173sla\n \n \n riadok\n riadky\n \n \n pozn\195\161mka\n pozn\195\161mky\n \n \n opus\n opera\n \n \n strana\n strany\n \n \n strana\n strany\n \n \n odstavec\n odstavce\n \n \n \196\141as\197\165\n \196\141asti\n \n \n sekcia\n sekcie\n \n \n sub verbo\n sub verbis\n \n \n ver\197\161\n ver\197\161e\n \n \n ro\196\141n\195\173k\n ro\196\141n\195\173ky\n \n\n \n k.\n kap.\n st\196\186p.\n obr.\n l.\n \196\141.\n l.\n n.\n op.\n \n s.\n s.\n \n \n s.\n s.\n \n par.\n \196\141.\n sek.\n \n s.v.\n s.vv.\n \n \n v.\n v.\n \n \n ro\196\141.\n ro\196\141.\n \n\n \n \n \194\182\n \194\182\n \n \n \194\167\n \194\167\n \n\n \n \n director\n directors\n \n \n editor\n editori\n \n \n zostavovate\196\190\n zostavovatelia\n \n \n illustrator\n illustrators\n \n \n prekladate\196\190\n prekladatelia\n \n \n zostavovate\196\190 & prekladate\196\190\n zostavovatelia & prekladatelia\n \n\n \n \n dir.\n dirs.\n \n \n ed.\n ed.\n \n \n zost.\n zost.\n \n \n ill.\n ills.\n \n \n prel.\n prel.\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n zostavil\n zostavil\n illustrated by\n rozhovor urobil\n adres\195\161t\n by\n prelo\197\190il\n zostavil & prelo\197\190il\n\n \n by\n dir.\n ed.\n ed.\n illus.\n prel.\n zost. & prel.\n\n \n janu\195\161r\n febru\195\161r\n marec\n apr\195\173l\n m\195\161j\n j\195\186n\n j\195\186l\n august\n september\n okt\195\179ber\n november\n december\n\n \n jan.\n feb.\n mar.\n apr.\n m\195\161j.\n j\195\186n.\n j\195\186l.\n aug.\n sep.\n okt.\n nov.\n dec.\n\n \n Jar\n Leto\n Jese\197\136\n Zima\n \n\n"),("locales-sl-SI.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n dostopano\n in\n in drugi\n anonimni\n anon\n pri\n available at\n by\n circa\n c.\n citirano\n \n izdaja\n izdaje\n \n iz\n idr.\n pred izidom\n od\n isto\n v\n v tisku\n internet\n intervju\n pismo\n no date\n b.d.\n na spletu\n predstavljeno na\n \n reference\n references\n \n \n ref.\n refs.\n \n pridobljeno\n scale\n version\n\n \n AD\n BC\n\n \n \226\128\158\n \226\128\156\n \226\128\154\n \226\128\152\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n knjiga\n knjige\n \n \n poglavje\n poglavja\n \n \n stolpec\n stolpci\n \n \n slika\n slike\n \n \n folio\n folii\n \n \n \197\161tevilka\n \197\161tevilke\n \n \n vrstica\n vrstice\n \n \n opomba\n opombe\n \n \n opus\n opera\n \n \n stran\n strani\n \n \n stran\n strani\n \n \n odstavek\n odstavki\n \n \n del\n deli\n \n \n odsek\n odseki\n \n \n sub verbo\n sub verbis\n \n \n verz\n verzi\n \n \n letnik\n letniki\n \n\n \n knj\n pogl\n sto\n sl\n f\n \197\161t\n l.\n n.\n op\n \n str\n str\n \n \n str\n str\n \n odst\n del\n odsk\n \n s.v.\n s.vv.\n \n \n v\n v\n \n \n let\n let\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n urednik\n uredniki\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n prevajalec\n prevajalci\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n ur\n ur\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n prev\n prev\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n uredil\n edited by\n illustrated by\n intervjuval\n za\n by\n prevedel\n edited & translated by\n\n \n by\n dir.\n ur\n ed.\n illus.\n prev\n ed. & trans. by\n\n \n januar\n februar\n marec\n april\n maj\n junij\n julij\n avgust\n september\n oktober\n november\n december\n\n \n jan\n feb\n mar\n apr\n maj\n jun\n jul\n avg\n sep\n okt\n nov\n dec\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-sr-RS.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \208\191\209\128\208\184\209\129\209\130\209\131\208\191\209\153\208\181\208\189\208\190\n \208\184\n \208\184 \208\190\209\129\209\130\208\176\208\187\208\184\n \208\176\208\189\208\190\208\189\208\184\208\188\208\189\208\176\n \208\176\208\189\208\190\208\189.\n \208\189\208\176\n available at\n by\n circa\n c.\n \209\134\208\184\209\130\208\184\209\128\208\176\208\189\208\190\n \n \208\184\208\183\208\180\208\176\209\154\208\181\n \208\184\208\183\208\180\208\176\209\154\208\176\n \n \208\184\208\183\208\180.\n \208\184 \208\190\209\129\209\130\208\176\208\187\208\184\n \208\180\208\190\208\187\208\176\208\183\208\181\209\155\208\184\n \208\190\208\180\n ibid.\n \209\131\n \209\131 \209\136\209\130\208\176\208\188\208\191\208\184\n \208\152\208\189\209\130\208\181\209\128\208\189\208\181\209\130\n \208\184\208\189\209\130\208\181\209\128\208\178\209\152\209\131\n \208\191\208\184\209\129\208\188\208\190\n no date\n \208\177\208\181\208\183 \208\180\208\176\209\130\209\131\208\188\208\176\n \208\189\208\176 \208\152\208\189\209\130\208\181\209\128\208\189\208\181\209\130\209\131\n \208\191\209\128\208\181\208\180\209\129\209\130\208\176\208\178\209\153\208\181\208\189\208\190 \208\189\208\176\n \n reference\n references\n \n \n ref.\n refs.\n \n \208\191\209\128\208\181\209\131\208\183\208\181\209\130\208\190\n scale\n version\n\n \n AD\n BC\n\n \n \226\128\158\n \226\128\156\n \226\128\154\n \226\128\152\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n \208\186\209\154\208\184\208\179\208\176\n \208\186\209\154\208\184\208\179\208\181\n \n \n \208\191\208\190\208\179\208\187\208\176\208\178\209\153\208\181\n \208\191\208\190\208\179\208\187\208\176\208\178\209\153\208\176\n \n \n \208\186\208\190\208\187\208\190\208\189\208\176\n \208\186\208\190\208\187\208\190\208\189\208\181\n \n \n \209\134\209\128\209\130\208\181\208\182\n \209\134\209\128\209\130\208\181\208\182\208\184\n \n \n \209\132\208\190\208\187\208\184\208\190\n \209\132\208\190\208\187\208\184\209\152\208\184\n \n \n \208\177\209\128\208\190\209\152\n \208\177\209\128\208\190\209\152\208\181\208\178\208\184\n \n \n \208\187\208\184\208\189\208\184\209\152\208\176\n \208\187\208\184\208\189\208\184\209\152\208\181\n \n \n \208\177\208\181\208\187\208\181\209\136\208\186\208\176\n \208\177\208\181\208\187\208\181\209\136\208\186\208\181\n \n \n \208\190\208\191\209\131\209\129\n \208\190\208\191\208\181\209\128\208\176\n \n \n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\208\176\n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\208\181\n \n \n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\208\176\n \209\129\209\130\209\128\208\176\208\189\208\184\209\134\208\181\n \n \n \208\191\208\176\209\128\208\176\208\179\209\128\208\176\209\132\n \208\191\208\176\209\128\208\176\208\179\209\128\208\176\209\132\208\184\n \n \n \208\180\208\181\208\190\n \208\180\208\181\208\187\208\190\208\178\208\176\n \n \n \208\190\208\180\208\181\209\153\208\176\208\186\n \208\190\208\180\208\181\209\153\208\176\208\186\208\176\n \n \n sub verbo\n sub verbis\n \n \n \209\129\209\130\209\128\208\190\209\132\208\176\n \209\129\209\130\209\128\208\190\209\132\208\181\n \n \n \209\130\208\190\208\188\n \209\130\208\190\208\188\208\190\208\178\208\176\n \n\n \n \208\186\209\154\208\184\208\179\208\176\n \208\159\208\190\208\179.\n \208\186\208\190\208\187.\n \209\134\209\128\209\130.\n \209\132\208\190\208\187\208\184\208\190\n \208\184\208\183\208\180.\n l.\n n.\n \208\190\208\191.\n \n \209\129\209\130\209\128.\n \209\129\209\130\209\128.\n \n \n \209\129\209\130\209\128.\n \209\129\209\130\209\128.\n \n \208\191\208\176\209\128.\n \208\180\208\181\208\190\n \208\190\208\180.\n \n s.v.\n s.vv.\n \n \n \209\129\209\130\209\128.\n \209\129\209\130\209\128.\n \n \n \209\130\208\190\208\188\n \209\130\208\190\208\188\208\190\208\178\208\184\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n \209\131\209\128\208\181\208\180\208\189\208\184\208\186\n \209\131\209\128\208\181\208\180\208\184\208\189\208\184\209\134\208\184\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n \208\191\209\128\208\181\208\178\208\190\208\180\208\184\208\187\208\176\209\134\n \208\191\209\128\208\181\208\178\208\190\208\180\208\184\208\190\209\134\208\184\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n \209\131\209\128.\n \209\131\209\128.\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n \208\191\209\128\208\181\208\178.\n \208\191\209\128\208\181\208\178.\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n \209\131\209\128\208\181\208\180\208\184\208\190\n edited by\n illustrated by\n \208\184\208\189\209\130\208\181\209\128\208\178\209\152\209\131\208\184\209\129\208\176\208\190\n \208\191\209\128\208\184\208\188\208\176\n by\n \208\191\209\128\208\181\208\178\208\181\208\190\n edited & translated by\n\n \n by\n dir.\n \209\131\209\128.\n ed.\n illus.\n \208\191\209\128\208\181\208\178.\n ed. & trans. by\n\n \n \208\136\208\176\208\189\209\131\208\176\209\128\n \208\164\208\181\208\177\209\128\209\131\208\176\209\128\n \208\156\208\176\209\128\209\130\n \208\144\208\191\209\128\208\184\208\187\n \208\156\208\176\209\152\n \208\136\209\131\208\189\208\184\n \208\136\209\131\208\187\208\184\n \208\144\208\178\208\179\209\131\209\129\209\130\n \208\161\208\181\208\191\209\130\208\181\208\188\208\177\208\176\209\128\n \208\158\208\186\209\130\208\190\208\177\208\176\209\128\n \208\157\208\190\208\178\208\181\208\188\208\177\208\176\209\128\n \208\148\208\181\209\134\208\181\208\188\208\177\208\176\209\128\n\n \n \208\136\208\176\208\189.\n \208\164\208\181\208\177.\n \208\156\208\176\209\128\209\130\n \208\144\208\191\209\128.\n \208\156\208\176\209\152\n \208\136\209\131\208\189\208\184\n \208\136\209\131\208\187\208\184\n \208\144\208\178\208\179.\n \208\161\208\181\208\191.\n \208\158\208\186\209\130.\n \208\157\208\190\208\178.\n \208\148\208\181\209\134.\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-sv-SE.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \195\165tkomstdatum\n och\n och andra\n anonym\n anon\n vid\n tillg\195\164nglig vid\n av\n cirka\n ca\n citerad\n \n upplaga\n upplagor\n \n uppl\n m.fl.\n kommande\n fr\195\165n\n ibid.\n i\n i tryck\n internet\n intervju\n brev\n inget datum\n nd\n online\n presenterad vid\n \n referens\n referenser\n \n \n ref.\n refs.\n \n h\195\164mtad\n scale\n version\n\n \n e. Kr.\n f. Kr.\n\n \n \226\128\157\n \226\128\157\n \226\128\153\n \226\128\153\n \226\128\147\n\n \n e\n a\n a\n e\n e\n\n \n f\195\182rsta\n andra\n tredje\n fj\195\164rde\n femte\n sj\195\164tte\n sjunde\n \195\165ttonde\n nionde\n tionde\n\n \n \n bok\n b\195\182cker\n \n \n kapitel\n kapitel\n \n \n kolumn\n kolumner\n \n \n figur\n figurer\n \n \n folio\n folios\n \n \n nummer\n nummer\n \n \n rad\n rader\n \n \n not\n noter\n \n \n opus\n opera\n \n \n sida\n sidor\n \n \n sida\n sidor\n \n \n stycke\n stycken\n \n \n del\n delar\n \n \n avsnitt\n avsnitt\n \n \n sub verbo\n sub verbis\n \n \n vers\n verser\n \n \n volym\n volumer\n \n\n \n bok\n kap\n kol\n fig\n f\n num\n l.\n n.\n op\n \n s\n ss\n \n \n s\n ss\n \n st\n del\n avs\n \n s.v.\n s.vv.\n \n \n vers\n verser\n \n \n vol\n vols\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n redakt\195\182r\n redakt\195\182rer\n \n \n editor\n editors\n \n \n illustrat\195\182r\n illustrat\195\182rer\n \n \n \195\182vers\195\164ttare\n \195\182vers\195\164ttare\n \n \n redakt\195\182r & \195\182vers\195\164ttare\n redakt\195\182rer & \195\182vers\195\164ttare\n \n\n \n \n dir.\n dirs.\n \n \n red\n reds\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n \195\182vers\n \195\182vers\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n redigerad av\n edited by\n illustrated by\n intervju av\n till\n by\n \195\182versatt av\n edited & translated by\n\n \n by\n dir.\n red\n ed.\n illus.\n \195\182vers\n ed. & trans. by\n\n \n januari\n februari\n mars\n april\n maj\n juni\n juli\n augusti\n september\n oktober\n november\n december\n\n \n jan\n feb\n mar\n apr\n maj\n jun\n jul\n aug\n sep\n okt\n nov\n dec\n\n \n v\195\165r\n sommar\n h\195\182st\n vinter\n \n\n"),("locales-th-TH.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \224\184\170\224\184\183\224\184\154\224\184\132\224\185\137\224\184\153\n \224\185\129\224\184\165\224\184\176\n \224\185\129\224\184\165\224\184\176\224\184\132\224\184\147\224\184\176\n \224\184\153\224\184\180\224\184\163\224\184\153\224\184\178\224\184\161\n \224\184\153\224\184\180\224\184\163\224\184\153\224\184\178\224\184\161\n \224\184\151\224\184\181\224\185\136\n available at\n \224\185\130\224\184\148\224\184\162\n \224\185\130\224\184\148\224\184\162\224\184\155\224\184\163\224\184\176\224\184\161\224\184\178\224\184\147\n \224\184\155\224\184\163\224\184\176\224\184\161\224\184\178\224\184\147\n \224\184\173\224\185\137\224\184\178\224\184\135\224\184\150\224\184\182\224\184\135\n \n \224\184\158\224\184\180\224\184\161\224\184\158\224\185\140\224\184\132\224\184\163\224\184\177\224\185\137\224\184\135\224\184\151\224\184\181\224\185\136\n \224\184\158\224\184\180\224\184\161\224\184\158\224\185\140\224\184\132\224\184\163\224\184\177\224\185\137\224\184\135\224\184\151\224\184\181\224\185\136\n \n \224\184\158\224\184\180\224\184\161\224\184\158\224\185\140\224\184\132\224\184\163\224\184\177\224\185\137\224\184\135\224\184\151\224\184\181\224\185\136\n \224\185\129\224\184\165\224\184\176\224\184\132\224\184\147\224\184\176\n \224\185\128\224\184\149\224\185\135\224\184\161\224\185\131\224\184\136\224\185\131\224\184\171\224\185\137\224\184\130\224\185\137\224\184\173\224\184\161\224\184\185\224\184\165\n \224\184\136\224\184\178\224\184\129\n \224\185\131\224\184\153\224\184\151\224\184\181\224\185\136\224\185\128\224\184\148\224\184\181\224\184\162\224\184\167\224\184\129\224\184\177\224\184\153\n \224\185\131\224\184\153\n \224\184\129\224\184\179\224\184\165\224\184\177\224\184\135\224\184\163\224\184\173\224\184\149\224\184\181\224\184\158\224\184\180\224\184\161\224\184\158\224\185\140\n \224\184\173\224\184\180\224\184\153\224\185\128\224\184\151\224\184\173\224\184\163\224\185\140\224\185\128\224\184\153\224\185\135\224\184\149\n \224\184\129\224\184\178\224\184\163\224\184\170\224\184\177\224\184\161\224\184\160\224\184\178\224\184\169\224\184\147\224\185\140\n \224\184\136\224\184\148\224\184\171\224\184\161\224\184\178\224\184\162\n \224\185\132\224\184\161\224\185\136\224\184\155\224\184\163\224\184\178\224\184\129\224\184\143\224\184\155\224\184\181\224\184\151\224\184\181\224\185\136\224\184\158\224\184\180\224\184\161\224\184\158\224\185\140\n \224\184\161.\224\184\155.\224\184\155.\n \224\184\173\224\184\173\224\184\153\224\185\132\224\184\165\224\184\153\224\185\140\n \224\184\153\224\184\179\224\185\128\224\184\170\224\184\153\224\184\173\224\184\151\224\184\181\224\185\136\n \n \224\185\128\224\184\173\224\184\129\224\184\170\224\184\178\224\184\163\224\184\173\224\185\137\224\184\178\224\184\135\224\184\173\224\184\180\224\184\135\n \224\185\128\224\184\173\224\184\129\224\184\170\224\184\178\224\184\163\224\184\173\224\185\137\224\184\178\224\184\135\224\184\173\224\184\180\224\184\135\n \n \n \224\184\173\224\185\137\224\184\178\224\184\135\224\184\173\224\184\180\224\184\135\n \224\184\173\224\185\137\224\184\178\224\184\135\224\184\173\224\184\180\224\184\135\n \n \224\184\170\224\184\183\224\184\154\224\184\132\224\185\137\224\184\153\n scale\n version\n\n \n \224\184\132.\224\184\168.\n \224\184\158.\224\184\168.\n\n \n \226\128\156\n \226\128\157\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n \n\n \n \224\184\171\224\184\153\224\184\182\224\185\136\224\184\135\n \224\184\170\224\184\173\224\184\135\n \224\184\170\224\184\178\224\184\161\n \224\184\170\224\184\181\224\185\136\n \224\184\171\224\185\137\224\184\178\n \224\184\171\224\184\129\n \224\185\128\224\184\136\224\185\135\224\184\148\n \224\185\129\224\184\155\224\184\148\n \224\185\128\224\184\129\224\185\137\224\184\178\n \224\184\170\224\184\180\224\184\154\n\n \n \n \224\184\171\224\184\153\224\184\177\224\184\135\224\184\170\224\184\183\224\184\173\n \224\184\171\224\184\153\224\184\177\224\184\135\224\184\170\224\184\183\224\184\173\n \n \n \224\184\154\224\184\151\224\184\151\224\184\181\224\185\136\n \224\184\154\224\184\151\224\184\151\224\184\181\224\185\136\n \n \n \224\184\170\224\184\148\224\184\161\224\184\160\224\185\140\n \224\184\170\224\184\148\224\184\161\224\184\160\224\185\140\n \n \n \224\184\163\224\184\185\224\184\155\224\184\160\224\184\178\224\184\158\n \224\184\163\224\184\185\224\184\155\224\184\160\224\184\178\224\184\158\n \n \n \224\184\171\224\184\153\224\185\137\224\184\178\n \224\184\171\224\184\153\224\185\137\224\184\178\n \n \n \224\184\137\224\184\154\224\184\177\224\184\154\224\184\151\224\184\181\224\185\136\n \224\184\137\224\184\154\224\184\177\224\184\154\224\184\151\224\184\181\224\185\136\n \n \n \224\184\154\224\184\163\224\184\163\224\184\151\224\184\177\224\184\148\224\184\151\224\184\181\224\185\136\n \224\184\154\224\184\163\224\184\163\224\184\151\224\184\177\224\184\148\224\184\151\224\184\181\224\185\136\n \n \n \224\184\154\224\184\177\224\184\153\224\184\151\224\184\182\224\184\129\n \224\184\154\224\184\177\224\184\153\224\184\151\224\184\182\224\184\129\n \n \n \224\184\154\224\184\151\224\184\155\224\184\163\224\184\176\224\184\158\224\184\177\224\184\153\224\184\152\224\185\140\n \224\184\154\224\184\151\224\184\155\224\184\163\224\184\176\224\184\158\224\184\177\224\184\153\224\184\152\224\185\140\n \n \n \224\184\171\224\184\153\224\185\137\224\184\178\n \224\184\171\224\184\153\224\185\137\224\184\178\n \n \n \224\184\171\224\184\153\224\185\137\224\184\178\n \224\184\171\224\184\153\224\185\137\224\184\178\n \n \n \224\184\162\224\185\136\224\184\173\224\184\171\224\184\153\224\185\137\224\184\178\n \224\184\162\224\185\136\224\184\173\224\184\171\224\184\153\224\185\137\224\184\178\n \n \n \224\184\170\224\185\136\224\184\167\224\184\153\224\184\162\224\185\136\224\184\173\224\184\162\n \224\184\170\224\185\136\224\184\167\224\184\153\224\184\162\224\185\136\224\184\173\224\184\162\n \n \n \224\184\171\224\184\161\224\184\167\224\184\148\n \224\184\171\224\184\161\224\184\167\224\184\148\n \n \n \224\185\131\224\184\149\224\185\137\224\184\132\224\184\179\n \224\185\131\224\184\149\224\185\137\224\184\132\224\184\179\n \n \n \224\184\163\224\185\137\224\184\173\224\184\162\224\184\129\224\184\163\224\184\173\224\184\135\n \224\184\163\224\185\137\224\184\173\224\184\162\224\184\129\224\184\163\224\184\173\224\184\135\n \n \n \224\184\155\224\184\181\224\184\151\224\184\181\224\185\136\n \224\184\155\224\184\181\224\184\151\224\184\181\224\185\136\n \n\n \n \224\184\171\224\184\153\224\184\177\224\184\135\224\184\170\224\184\183\224\184\173\n \224\184\154\224\184\151\224\184\151\224\184\181\224\185\136\n \224\184\170\224\184\148\224\184\161\224\184\160\224\185\140\n \224\184\163\224\184\185\224\184\155\224\184\160\224\184\178\224\184\158\n \224\184\171\224\184\153\224\185\137\224\184\178\n \224\184\137\224\184\154\224\184\177\224\184\154\224\184\151\224\184\181\224\185\136\n l.\n n.\n \224\184\154\224\184\151\224\184\155\224\184\163\224\184\176\224\184\158\224\184\177\224\184\153\224\184\152\224\185\140\n \n \224\184\153.\n \224\184\153.\n \n \n \224\184\153.\n \224\184\153.\n \n \224\184\162\224\185\136\224\184\173\224\184\171\224\184\153\224\185\137\224\184\178\n \224\184\170\224\185\136\224\184\167\224\184\153\224\184\162\224\185\136\224\184\173\224\184\162\n \224\184\171\224\184\161\224\184\167\224\184\148\n \n \224\185\131\224\184\149\224\185\137\224\184\132\224\184\179\n \224\185\131\224\184\149\224\185\137\224\184\132\224\184\179\n \n \n \224\184\163\224\185\137\224\184\173\224\184\162\224\184\129\224\184\163\224\184\173\224\184\135\n \224\184\163\224\185\137\224\184\173\224\184\162\224\184\129\224\184\163\224\184\173\224\184\135\n \n \n \224\184\155\224\184\181\n \224\184\155\224\184\181\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n \224\184\154\224\184\163\224\184\163\224\184\147\224\184\178\224\184\152\224\184\180\224\184\129\224\184\178\224\184\163\n \224\184\154\224\184\163\224\184\163\224\184\147\224\184\178\224\184\152\224\184\180\224\184\129\224\184\178\224\184\163\n \n \n \224\184\156\224\184\185\224\185\137\224\184\173\224\184\179\224\184\153\224\184\167\224\184\162\224\184\129\224\184\178\224\184\163\224\184\154\224\184\151\224\184\154\224\184\163\224\184\163\224\184\147\224\184\178\224\184\152\224\184\180\224\184\129\224\184\178\224\184\163\n \224\184\156\224\184\185\224\185\137\224\184\173\224\184\179\224\184\153\224\184\167\224\184\162\224\184\129\224\184\178\224\184\163\224\184\154\224\184\151\224\184\154\224\184\163\224\184\163\224\184\147\224\184\178\224\184\152\224\184\180\224\184\129\224\184\178\224\184\163\n \n \n illustrator\n illustrators\n \n \n \224\184\156\224\184\185\224\185\137\224\185\129\224\184\155\224\184\165\n \224\184\156\224\184\185\224\185\137\224\185\129\224\184\155\224\184\165\n \n \n \224\184\154\224\184\163\224\184\163\224\184\147\224\184\178\224\184\152\224\184\180\224\184\129\224\184\178\224\184\163\224\185\129\224\184\165\224\184\176\224\184\156\224\184\185\224\185\137\224\185\129\224\184\155\224\184\165\n \224\184\154\224\184\163\224\184\163\224\184\147\224\184\178\224\184\152\224\184\180\224\184\129\224\184\178\224\184\163\224\185\129\224\184\165\224\184\176\224\184\156\224\184\185\224\185\137\224\185\129\224\184\155\224\184\165\n \n\n \n \n dir.\n dirs.\n \n \n \224\184\154.\224\184\129.\n \224\184\154.\224\184\129.\n \n \n \224\184\156\224\184\173.\224\184\154\224\184\151\224\184\154\224\184\163\224\184\163\224\184\147\224\184\178\224\184\152\224\184\180\224\184\129\224\184\178\224\184\163\n \224\184\156\224\184\173.\224\184\154\224\184\151\224\184\154\224\184\163\224\184\163\224\184\147\224\184\178\224\184\152\224\184\180\224\184\129\224\184\178\224\184\163\n \n \n ill.\n ills.\n \n \n \224\184\156\224\184\185\224\185\137\224\185\129\224\184\155\224\184\165\n \224\184\156\224\184\185\224\185\137\224\185\129\224\184\155\224\184\165\n \n \n \224\184\154.\224\184\129.\n \224\184\154.\224\184\129.\n \n\n \n directed by\n \224\185\128\224\184\163\224\184\181\224\184\162\224\184\154\224\185\128\224\184\163\224\184\181\224\184\162\224\184\135\224\185\130\224\184\148\224\184\162\n \224\185\128\224\184\163\224\184\181\224\184\162\224\184\154\224\185\128\224\184\163\224\184\181\224\184\162\224\184\135\224\185\130\224\184\148\224\184\162\n illustrated by\n \224\184\170\224\184\177\224\184\161\224\184\160\224\184\178\224\184\169\224\184\147\224\185\140\224\185\130\224\184\148\224\184\162\n \224\184\150\224\184\182\224\184\135\n by\n \224\185\129\224\184\155\224\184\165\224\185\130\224\184\148\224\184\162\n \224\185\129\224\184\155\224\184\165\224\185\129\224\184\165\224\184\176\224\185\128\224\184\163\224\184\181\224\184\162\224\184\154\224\185\128\224\184\163\224\184\181\224\184\162\224\184\135\224\185\130\224\184\148\224\184\162\n\n \n \224\185\130\224\184\148\224\184\162\n dir.\n \224\185\130\224\184\148\224\184\162\n \224\185\130\224\184\148\224\184\162\n illus.\n \224\185\129\224\184\155\224\184\165\n \224\185\129\224\184\155\224\184\165\224\185\129\224\184\165\224\184\176\224\185\128\224\184\163\224\184\181\224\184\162\224\184\154\224\185\128\224\184\163\224\184\181\224\184\162\224\184\135\224\185\130\224\184\148\224\184\162\n\n \n \224\184\161\224\184\129\224\184\163\224\184\178\224\184\132\224\184\161\n \224\184\129\224\184\184\224\184\161\224\184\160\224\184\178\224\184\158\224\184\177\224\184\153\224\184\152\224\185\140\n \224\184\161\224\184\181\224\184\153\224\184\178\224\184\132\224\184\161\n \224\185\128\224\184\161\224\184\169\224\184\178\224\184\162\224\184\153\n \224\184\158\224\184\164\224\184\169\224\184\160\224\184\178\224\184\132\224\184\161\n \224\184\161\224\184\180\224\184\150\224\184\184\224\184\153\224\184\178\224\184\162\224\184\153\n \224\184\129\224\184\163\224\184\129\224\184\142\224\184\178\224\184\132\224\184\161\n \224\184\170\224\184\180\224\184\135\224\184\171\224\184\178\224\184\132\224\184\161\n \224\184\129\224\184\177\224\184\153\224\184\162\224\184\178\224\184\162\224\184\153\n \224\184\149\224\184\184\224\184\165\224\184\178\224\184\132\224\184\178\224\184\161\n \224\184\158\224\184\164\224\184\168\224\184\136\224\184\180\224\184\129\224\184\178\224\184\162\224\184\153\n \224\184\152\224\184\177\224\184\153\224\184\167\224\184\178\224\184\132\224\184\161\n\n \n \224\184\161.\224\184\132.\n \224\184\129.\224\184\158.\n \224\184\161\224\184\181.\224\184\132.\n \224\185\128\224\184\161.\224\184\162.\n \224\184\158.\224\184\132.\n \224\184\161\224\184\180.\224\184\162.\n \224\184\129.\224\184\132.\n \224\184\170.\224\184\132.\n \224\184\129.\224\184\162.\n \224\184\149.\224\184\132.\n \224\184\158.\224\184\162.\n \224\184\152.\224\184\132.\n\n \n \224\184\164\224\184\148\224\184\185\224\185\131\224\184\154\224\185\132\224\184\161\224\185\137\224\184\156\224\184\165\224\184\180\n \224\184\164\224\184\148\224\184\185\224\184\163\224\185\137\224\184\173\224\184\153\n \224\184\164\224\184\148\224\184\185\224\185\131\224\184\154\224\185\132\224\184\161\224\185\137\224\184\163\224\185\136\224\184\167\224\184\135\n \224\184\164\224\184\148\224\184\185\224\184\171\224\184\153\224\184\178\224\184\167\n \n\n"),("locales-tr-TR.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n eri\197\159ildi\n ve\n ve di\196\159erleri\n anonim\n anonim\n de\n available at\n by\n circa\n c.\n kaynak\n \n bask\196\177\n bask\196\177\n \n ed\n ve di\196\159erleri\n gelecek\n adresinden eri\197\159ildi\n ibid.\n i\195\167inde\n bas\196\177mda\n internet\n ki\197\159isel ileti\197\159im\n mektup\n tarih yok\n y.y.\n \195\167evrimi\195\167i\n sunulan\n \n reference\n references\n \n \n ref.\n refs.\n \n tarihinde\n scale\n version\n\n \n M.S\n M.\195\150.\n\n \n \194\171\n \194\187\n \226\128\185\n \226\128\186\n \226\128\147\n\n \n .\n\n \n birinci\n ikinci\n \195\188\195\167\195\188nc\195\188\n d\195\182rd\195\188nc\195\188\n be\197\159inci\n alt\196\177nc\196\177\n yedinci\n sekizinci\n dokuzuncu\n onuncu\n\n \n \n kitap\n kitaplar\n \n \n b\195\182l\195\188m\n b\195\182l\195\188mler\n \n \n s\195\188tun\n s\195\188tunlar\n \n \n \197\159ekil\n \197\159ekiller\n \n \n folyo\n folyo\n \n \n say\196\177\n say\196\177lar\n \n \n sat\196\177r\n sat\196\177rlar\n \n \n not\n notlar\n \n \n opus\n opera\n \n \n sayfa\n sayfalar\n \n \n sayfa\n sayfalar\n \n \n paragraf\n paragraflar\n \n \n k\196\177s\196\177m\n k\196\177s\196\177mlar\n \n \n b\195\182l\195\188m\n b\195\182l\195\188mler\n \n \n sub verbo\n sub verbis\n \n \n dize\n dizeler\n \n \n cilt\n ciltler\n \n\n \n kit\n b\195\182l\n s\195\188t\n \197\159ek\n f\n say\196\177\n l.\n n.\n op\n \n s\n ss\n \n \n s\n ss\n \n par\n k\196\177s\n b\195\182l\n \n s.v.\n s.vv.\n \n \n v\n vv\n \n \n c\n c\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n edit\195\182r\n edit\195\182rler\n \n \n edit\195\182r\n edit\195\182r\n \n \n illustrator\n illustrators\n \n \n \195\167eviren\n \195\167evirenler\n \n \n edit\195\182r & \195\167eviren\n edit\195\182rler & \195\167evirenler\n \n\n \n \n dir.\n dirs.\n \n \n ed\n ed\n \n \n ed.\n ed.\n \n \n ill.\n ills.\n \n \n \195\167ev.\n \195\167ev.\n \n \n ed. & \195\167ev.\n ed. & \195\167ev.\n \n\n \n directed by\n edit\195\182r\n d\195\188zenleyen\n illustrated by\n R\195\182portaj yapan\n to\n by\n \195\167eviren\n d\195\188zenleyen & \195\167eviren by\n\n \n \n dir.\n ed.\n ed.\n illus.\n \195\167ev.\n ed. & \195\167ev.\n\n \n Ocak\n \197\158ubat\n Mart\n Nisan\n May\196\177s\n Haziran\n Temmuz\n A\196\159ustos\n Eyl\195\188l\n Ekim\n Kas\196\177m\n Aral\196\177k\n\n \n Oca\n \197\158ub\n Mar\n Nis\n May\n Haz\n Tem\n A\196\159u\n Eyl\n Eki\n Kas\n Ara\n\n \n Bahar\n Yaz\n Sonbahar\n K\196\177\197\159\n \n\n"),("locales-uk-UA.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n accessed\n \209\150\n \209\130\208\176 \209\150\208\189\209\136\209\150\n \208\176\208\189\208\190\208\189\209\150\208\188\208\189\208\184\208\185\n \208\176\208\189\208\190\208\189.\n \208\189\208\176\n available at\n by\n circa\n c.\n cited\n \n edition\n editions\n \n ed\n et al.\n forthcoming\n \209\150\208\183\n ibid.\n \208\178\n \209\131 \208\191\209\128\208\181\209\129\209\150\n \209\150\208\189\209\130\208\181\209\128\208\189\208\181\209\130\n \209\150\208\189\209\130\208\181\209\128\208\178\209\142\n \208\187\208\184\209\129\209\130\n no date\n n.d.\n online\n presented at the\n \n reference\n references\n \n \n ref.\n refs.\n \n retrieved\n scale\n version\n\n \n AD\n BC\n\n \n \194\171\n \194\187\n \226\128\152\n \226\128\153\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n book\n books\n \n \n chapter\n chapters\n \n \n column\n columns\n \n \n figure\n figures\n \n \n folio\n folios\n \n \n number\n numbers\n \n \n line\n lines\n \n \n note\n notes\n \n \n opus\n opera\n \n \n page\n pages\n \n \n page\n pages\n \n \n paragraph\n paragraph\n \n \n part\n parts\n \n \n section\n sections\n \n \n sub verbo\n sub verbis\n \n \n verse\n verses\n \n \n volume\n volumes\n \n\n \n bk\n chap\n col\n fig\n f\n no\n l.\n n.\n op\n \n p\n pp\n \n \n p\n pp\n \n para\n pt\n sec\n \n s.v.\n s.vv.\n \n \n v\n vv\n \n \n vol\n vols\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n editor\n editors\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n translator\n translators\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n ed\n eds\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n tran\n trans\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n edited by\n edited by\n illustrated by\n interview by\n to\n by\n translated by\n edited & translated by\n\n \n by\n dir.\n ed\n ed.\n illus.\n trans\n ed. & trans. by\n\n \n \208\161\209\150\209\135\208\181\208\189\209\140\n \208\155\209\142\209\130\208\184\208\185\n \208\145\208\181\209\128\208\181\208\183\208\181\208\189\209\140\n \208\154\208\178\209\150\209\130\208\181\208\189\209\140\n \208\162\209\128\208\176\208\178\208\181\208\189\209\140\n \208\167\208\181\209\128\208\178\208\181\208\189\209\140\n \208\155\208\184\208\191\208\181\208\189\209\140\n \208\161\208\181\209\128\208\191\208\181\208\189\209\140\n \208\146\208\181\209\128\208\181\209\129\208\181\208\189\209\140\n \208\150\208\190\208\178\209\130\208\181\208\189\209\140\n \208\155\208\184\209\129\209\130\208\190\208\191\208\176\208\180\n \208\147\209\128\209\131\208\180\208\181\208\189\209\140\n\n \n \208\161\209\150\209\135\n \208\155\209\142\209\130\n \208\145\208\181\209\128\n \208\154\208\178\209\150\209\130\n \208\162\209\128\208\176\208\178\n \208\167\208\181\209\128\n \208\155\208\184\208\191\n \208\161\208\181\209\128\n \208\146\208\181\209\128\n \208\150\208\190\208\178\n \208\155\208\184\209\129\n \208\147\209\128\209\131\208\180\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-vi-VN.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2012-07-04T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n truy c\225\186\173p\n v\195\160\n and others\n anonymous\n anon\n at\n available at\n by\n circa\n c.\n cited\n \n edition\n editions\n \n ed\n v\195\160 c.s.\n s\225\186\175p t\225\187\155i\n t\225\187\171\n n.t.\n trong\n in press\n internet\n interview\n letter\n no date\n kh\195\180ng ng\195\160y\n online\n presented at the\n \n reference\n references\n \n \n ref.\n refs.\n \n truy v\225\186\165n\n scale\n version\n\n \n AD\n BC\n\n \n \194\171\n \194\187\n \226\128\185\n \226\128\186\n \226\128\147\n\n \n th\n st\n nd\n rd\n th\n th\n th\n\n \n first\n second\n third\n fourth\n fifth\n sixth\n seventh\n eighth\n ninth\n tenth\n\n \n \n book\n books\n \n \n chapter\n chapters\n \n \n column\n columns\n \n \n figure\n figures\n \n \n folio\n folios\n \n \n number\n numbers\n \n \n d\195\178ng\n d\195\178ng\n \n \n note\n notes\n \n \n opus\n opera\n \n \n trang\n trang\n \n \n trang\n trang\n \n \n \196\145o\225\186\161n v\196\131n\n \196\145o\225\186\161n v\196\131n\n \n \n part\n parts\n \n \n section\n sections\n \n \n sub verbo\n sub verbis\n \n \n verse\n verses\n \n \n volume\n volumes\n \n\n \n bk\n chap\n col\n fig\n f\n s\225\187\145 p.h\n l.\n n.\n op\n \n tr\n tr\n \n \n tr\n tr\n \n para\n pt\n sec\n \n s.v.\n s.vv.\n \n \n v\n vv\n \n \n vol\n vols\n \n\n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \n director\n directors\n \n \n bi\195\170n t\225\186\173p vi\195\170n\n bi\195\170n t\225\186\173p vi\195\170n\n \n \n editor\n editors\n \n \n illustrator\n illustrators\n \n \n bi\195\170n d\225\187\139ch vi\195\170n\n bi\195\170n d\225\187\139ch vi\195\170n\n \n \n editor & translator\n editors & translators\n \n\n \n \n dir.\n dirs.\n \n \n b.t.v\n b.t.v\n \n \n ed.\n eds.\n \n \n ill.\n ills.\n \n \n b.d.v\n b.d.v\n \n \n ed. & tran.\n eds. & trans.\n \n\n \n directed by\n bi\195\170n t\225\186\173p b\225\187\159i\n edited by\n illustrated by\n interview by\n to\n by\n bi\195\170n d\225\187\139ch b\225\187\159i\n edited & translated by\n\n \n by\n dir.\n b.t\n ed.\n illus.\n b.d\n ed. & trans. by\n\n \n Th\195\161ng Gi\195\170ng\n Th\195\161ng Hai\n Th\195\161ng Ba\n Th\195\161ng T\198\176\n Th\195\161ng N\196\131m\n Th\195\161ng S\195\161u\n Th\195\161ng B\225\186\163y\n Th\195\161ng T\195\161m\n Th\195\161ng Ch\195\173n\n Th\195\161ng M\198\176\225\187\157i\n Th\195\161ng M\198\176\225\187\157i-M\225\187\153t\n Th\195\161ng Ch\225\186\161p\n\n \n th\195\161ng 1\n th\195\161ng 2\n th\195\161ng 3\n th\195\161ng 4\n th\195\161ng 5\n th\195\161ng 6\n th\195\161ng 7\n th\195\161ng 8\n th\195\161ng 9\n th\195\161ng 10\n th\195\161ng 11\n th\195\161ng 12\n\n \n Spring\n Summer\n Autumn\n Winter\n \n\n"),("locales-zh-CN.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2014-05-15T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \232\167\129\230\150\188\n \229\143\138\n \229\143\138\229\133\182\228\187\150\n \228\189\156\232\128\133\228\184\141\232\175\166\n \230\151\160\229\144\141\230\176\143\n \230\150\188\n \232\189\189\230\150\188\n \232\145\151\n \228\187\139\228\186\142\n \231\186\166\n \232\167\129\229\188\149\230\150\188\n \231\137\136\230\156\172\n \230\156\172\n \231\173\137\n \229\141\179\229\176\134\229\135\186\231\137\136\n \228\187\142\n \229\144\140\228\184\138\n \230\148\182\229\133\165\n \233\128\129\229\141\176\228\184\173\n \231\189\145\233\153\133\231\189\145\231\187\156\n \232\174\191\232\176\136\n \228\191\161\229\135\189\n \230\151\165\230\156\159\228\184\141\232\175\166\n \228\184\141\232\175\166\n \229\156\168\231\186\191\n \229\143\145\232\161\168\230\150\188\n \229\143\130\232\128\131\n \229\143\130\n \229\143\150\232\175\187\228\186\142\n \230\175\148\228\190\139\n \231\137\136\n\n \n \229\133\172\229\133\131\n \229\133\172\229\133\131\229\137\141\n\n \n \227\128\138\n \227\128\139\n \227\128\136\n \227\128\137\n \226\128\147\n\n \n \n \n \n \228\184\128\n \228\186\140\n \228\184\137\n \229\155\155\n \228\186\148\n \229\133\173\n \228\184\131\n \229\133\171\n \228\185\157\n \229\141\129\n\n \n \229\134\140\n \231\171\160\n \230\160\143\n \229\155\190\232\161\168 \n \231\137\136\n \230\156\159\n \232\161\140\n \230\179\168\232\132\154\n \228\189\156\229\147\129 \n \233\161\181\n \230\128\187\233\161\181\230\149\176 \n \230\174\181\232\144\189\n \233\131\168\229\136\134 \n \232\138\130 \n \229\143\166\232\167\129 \n \231\175\135 \n \229\141\183\n \n \n \229\134\140\n \231\171\160\n \230\160\143\n \229\155\190\n \231\137\136\n \230\156\159\n \232\161\140\n \230\179\168\n op.\n \233\161\181 \n \229\133\177 \n \230\174\181\n \233\131\168\n \232\138\130\n \229\143\166\232\167\129 \n \231\175\135 \n \229\141\183\n \n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \229\175\188\230\188\148 \n \231\188\150\232\190\145 \n \228\184\187\231\188\150 \n \231\187\152\229\155\190 \n \231\191\187\232\175\145 \n \231\188\150\232\175\145 \n\n \n \229\175\188\230\188\148 \n \231\188\150 \n \228\184\187\231\188\150 \n \231\187\152 \n \232\175\145 \n \231\188\150\232\175\145 \n\n \n \230\140\135\229\175\188\n \231\188\150\232\190\145\n \228\184\187\231\188\150\n \231\187\152\229\155\190\n \233\135\135\232\174\191\n \229\143\151\229\135\189\n \230\160\161\232\174\162\n \231\191\187\232\175\145\n \231\188\150\232\175\145\n\n \n \232\145\151\n \229\175\188\n \231\188\150\n \228\184\187\231\188\150\n \231\187\152\n \232\175\145\n \231\188\150\232\175\145\n \230\160\161\n\n \n \228\184\128\230\156\136\n \228\186\140\230\156\136\n \228\184\137\230\156\136\n \229\155\155\230\156\136\n \228\186\148\230\156\136\n \229\133\173\230\156\136\n \228\184\131\230\156\136\n \229\133\171\230\156\136\n \228\185\157\230\156\136\n \229\141\129\230\156\136\n \229\141\129\228\184\128\230\156\136\n \229\141\129\228\186\140\230\156\136\n\n \n 1\230\156\136\n 2\230\156\136\n 3\230\156\136\n 4\230\156\136\n 5\230\156\136\n 6\230\156\136\n 7\230\156\136\n 8\230\156\136\n 9\230\156\136\n 10\230\156\136\n 11\230\156\136\n 12\230\156\136\n\n \n \230\152\165\n \229\164\143\n \231\167\139\n \229\134\172\n \n\n"),("locales-zh-TW.xml","\n\n \n This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License\n 2014-05-15T23:31:02+00:00\n \n \n \n \n \n \n \n \n \n \n \n \n \n \232\166\139\230\150\188\n \229\143\138\n \229\143\138\229\133\182\228\187\150\n \228\189\156\232\128\133\228\184\141\232\169\179\n \231\132\161\229\144\141\230\176\143\n \230\150\188\n \232\188\137\230\150\188\n \232\145\151\n \228\187\139\230\150\188\n \231\180\132\n \232\166\139\229\188\149\230\150\188\n \231\137\136\230\156\172\n \230\156\172\n \231\173\137\n \229\141\179\229\176\135\229\135\186\231\137\136\n \229\190\158\n \229\144\140\228\184\138\n \230\148\182\229\133\165\n \233\128\129\229\141\176\228\184\173\n \228\186\146\232\129\175\231\182\178\n \232\168\170\232\171\135\n \228\191\161\229\135\189\n \230\151\165\230\156\159\228\184\141\232\169\179\n \228\184\141\232\169\179\n \229\156\168\231\183\154\n \231\153\188\232\161\168\230\150\188\n \229\143\131\232\128\131\n \229\143\131\n \229\143\150\232\174\128\230\150\188\n \230\175\148\228\190\139\n \231\137\136\n\n \n \232\165\191\229\133\131\n \232\165\191\229\133\131\229\137\141\n\n \n \227\128\140\n \227\128\141\n \227\128\142\n \227\128\143\n \226\128\147\n\n \n \n \n \n \228\184\128\n \228\186\140\n \228\184\137\n \229\155\155\n \228\186\148\n \229\133\173\n \228\184\131\n \229\133\171\n \228\185\157\n \229\141\129\n\n \n \229\134\138\n \231\171\160\n \230\172\132\n \229\156\150\232\161\168 \n \231\137\136\n \230\156\159\n \232\161\140\n \232\168\187\232\133\179\n \228\189\156\229\147\129 \n \233\160\129\n \231\184\189\233\160\129\230\149\184 \n \230\174\181\232\144\189\n \233\131\168\229\136\134 \n \231\175\128 \n \229\143\166\232\166\139 \n \231\175\135 \n \229\141\183\n \n \n \229\134\138\n \231\171\160\n \230\172\132\n \229\156\150\n \231\137\136\n \230\156\159\n \232\161\140\n \232\168\187\n op.\n \233\160\129 \n \229\133\177 \n \230\174\181\n \233\131\168\n \231\175\128\n \229\143\166\232\166\139 \n \231\175\135 \n \229\141\183\n \n \n \n \194\182\n \194\182\194\182\n \n \n \194\167\n \194\167\194\167\n \n\n \n \229\176\142\230\188\148 \n \231\183\168\232\188\175 \n \228\184\187\231\183\168 \n \231\185\170\229\156\150 \n \231\191\187\232\173\175 \n \231\183\168\232\173\175 \n\n \n \229\176\142\230\188\148 \n \231\183\168 \n \228\184\187\231\183\168 \n \231\185\170 \n \232\173\175 \n \231\183\168\232\173\175 \n\n \n \230\140\135\229\176\142\n \231\183\168\232\188\175\n \228\184\187\231\183\168\n \231\185\170\229\156\150\n \230\142\161\232\168\170\n \229\143\151\229\135\189\n \230\160\161\232\168\130\n \231\191\187\232\173\175\n \231\183\168\232\173\175\n\n \n \232\145\151\n \229\176\142\n \231\183\168\n \228\184\187\231\183\168\n \231\185\170\n \232\173\175\n \231\183\168\232\173\175\n \230\160\161\n\n \n \228\184\128\230\156\136\n \228\186\140\230\156\136\n \228\184\137\230\156\136\n \229\155\155\230\156\136\n \228\186\148\230\156\136\n \229\133\173\230\156\136\n \228\184\131\230\156\136\n \229\133\171\230\156\136\n \228\185\157\230\156\136\n \229\141\129\230\156\136\n \229\141\129\228\184\128\230\156\136\n \229\141\129\228\186\140\230\156\136\n\n \n 1\230\156\136\n 2\230\156\136\n 3\230\156\136\n 4\230\156\136\n 5\230\156\136\n 6\230\156\136\n 7\230\156\136\n 8\230\156\136\n 9\230\156\136\n 10\230\156\136\n 11\230\156\136\n 12\230\156\136\n\n \n \230\152\165\n \229\164\143\n \231\167\139\n \229\134\172\n \n\n")] + +defaultCSL :: S.ByteString +defaultCSL = "\n\n" 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,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + toegang verkry + en + and others + anonymous + anon + at + available at + by + circa + c. + cited + + edition + editions + + ed + et al. + voorhande + van + ibid. + in + in press + internet + interview + letter + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + opgehaal + scale + version + + + AD + BC + + + “ + ” + ‘ + ’ + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + reël + reëls + + + note + notes + + + opus + opera + + + bladsy + bladsye + + + bladsy + bladsye + + + paragraaf + paragrawe + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + l. + n. + op + + bl + bll + + + bl + bll + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + redakteur + redakteurs + + + editor + editors + + + illustrator + illustrators + + + vertaler + vertalers + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + red + reds + + + ed. + eds. + + + ill. + ills. + + + vert + verts + + + ed. & tran. + eds. & trans. + + + + directed by + onder redaksie van + edited by + illustrated by + interview by + to + by + vertaal deur + edited & translated by + + + by + dir. + red + ed. + illus. + verts + ed. & trans. by + + + Januarie + Februarie + Maart + April + Mei + Junie + Julie + Augustus + September + Oktober + November + Desember + + + Jan + Feb + Mrt + Apr + Mei + Jun + Jul + Aug + Sep + Okt + Nov + Des + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-ar-AR.xml b/locales/locales-ar-AR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-ar-AR.xml @@ -0,0 +1,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + تاريخ الوصول + و + وآخرون + مجهول + مجهول + عند + available at + عن طريق + حوالي + حو. + وثق + + الطبعة + الطبعات + + ط. + وآخ. + التالي + من + المرجع السابق + في + قيد النشر + انترنت + مقابلة + خطاب + دون تاريخ + د.ت + على الخط المباشر + قُدَّم في + + مرجع + مراجع + + + مرجع + مراجع + + استرجع في + scale + version + + + ب.م. + ق.م. + + + " + " + ' + ' + – + + + + + + الاول + الثاني + الثالث + الرابع + الخامس + السادس + السابع + الثامن + التاسع + العاشر + + + + كتاب + كتب + + + فصل + فصول + + + عمود + أعمدة + + + رسم توضيحي + رسوم توضيحية + + + ورقة + أوراق + + + عدد + أعداد + + + سطر + أسطر + + + ملاحظة + ملاحظات + + + نوته موسيقية + نوت موسيقية + + + صفحة + صفحات + + + صفحة + صفحات + + + فقرة + فقرات + + + جزء + أجزاء + + + قسم + أقسام + + + تفسير فرعي + تفسيرات فرعية + + + بيت شعر + أبيات شعر + + + مجلد + مجلدات + + + + كتاب + فصل + عمود + رسم توضيحي + مطوية + عدد + l. + n. + نوتة موسيقية + + ص + ص.ص. + + + ص + ص.ص. + + فقرة + ج. + قسم + + تفسير فرعي + تفسيرات فرعية + + + بيت شعر + أبيات شعر + + + مج. + مج. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + محرر + محررين + + + رئيس التحرير + رؤساء التحرير + + + illustrator + illustrators + + + مترجم + مترجمين + + + مترجم ومحرر + مترجمين ومحررين + + + + + dir. + dirs. + + + محرر + محررين + + + مشرف على الطبعة + مشرفين على الطبعة + + + ill. + ills. + + + مترجم + مترجمين + + + مترجم ومشرف على الطباعه + مترجمين ومشرفين على الطباعه + + + + directed by + تحرير + اعداد + illustrated by + مقابلة بواسطة + مرسل الى + by + ترجمة + اعداد وترجمة + + + + dir. + تحرير + اشرف على الطبعة + illus. + ترجمة + ترجمه واشرف على الطباعه + + + يناير + فبراير + مارس + ابريل + مايو + يونيو + يوليو + اغسطس + سبتمبر + اكتوبر + نوفمبر + ديسمبر + + + يناير + فبراير + مارس + ابريل + مايو + يونيو + يوليو + اغسطس + سبتمبر + اكتوبر + نوفمبر + ديسمبر + + + الربيع + الصيف + الخريف + الشتاء + + 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,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + отворен на + и + и други + анонимен + анон + в + available at + by + circa + c. + цитиран + + издание + издания + + изд + и съавт. + предстоящ + от + пак там + в + под печат + интернет + интервю + писмо + no date + без дата + онлайн + представен на + + reference + references + + + ref. + refs. + + изтеглен на + scale + version + + + AD + BC + + + „ + “ + „ + “ + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + книга + книги + + + глава + глави + + + колона + колони + + + фигура + фигури + + + фолио + фолия + + + брой + броеве + + + ред + редове + + + бележка + бележки + + + опус + опуси + + + страница + страници + + + страница + страници + + + параграф + параграфи + + + част + части + + + раздел + раздели + + + sub verbo + sub verbis + + + стих + стихове + + + том + томове + + + + кн + гл + кол + фиг + фол + бр + l. + n. + оп + + с + с-ци + + + с + с-ци + + п + ч + разд + + s.v. + s.vv. + + + ст + ст-ове + + + том + т-ове + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + редактор + редактори + + + editor + editors + + + illustrator + illustrators + + + преводач + преводачи + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + ред + ред-ри + + + ed. + eds. + + + ill. + ills. + + + прев + прев-чи + + + ed. & tran. + eds. & trans. + + + + directed by + редактиран от + edited by + illustrated by + интервюиран от + до + by + преведен от + edited & translated by + + + by + dir. + ред + ed. + illus. + прев + ed. & trans. by + + + Януари + Февруари + Март + Април + Май + Юни + Юли + Август + Септември + Октомври + Ноември + Декември + + + Яну + Фев + Мар + Апр + Май + Юни + Юли + Авг + Сеп + Окт + Ное + Дек + + + Spring + Summer + Autumn + Winter + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + accedit + i + i altres + anònim + anòn. + a + disponible a + per + circa + c. + citat + + edició + edicions + + ed. + et al. + previst + de + ibíd. + en + en impremta + internet + entrevista + carta + sense data + s.d. + en línia + presentat a + + referència + referències + + + ref. + ref. + + recuperat + escala + versió + + + dC + aC + + + « + » + “ + ” + - + + + a + + + primera + segona + tercera + quarta + cinquena + sisena + setena + vuitena + novena + desena + + + + llibre + llibres + + + capítol + capítols + + + columna + columnes + + + figura + figures + + + foli + folis + + + número + números + + + línia + línies + + + nota + notes + + + opus + opera + + + pàgina + pàgines + + + pàgina + pàgines + + + paràgraf + paràgrafs + + + part + parts + + + secció + seccions + + + sub voce + sub vocibus + + + vers + versos + + + volum + volums + + + + llib. + cap. + col. + fig. + f. + núm. + l. + n. + op. + + p. + p. + + + p. + p. + + par. + pt. + sec. + + s.v. + s.v. + + + v. + v. + + + vol. + vol. + + + + + § + § + + + § + § + + + + + director + directors + + + editor + editors + + + editor + editors + + + il·lustrador + il·lustradors + + + traductor + traductors + + + editor i traductor + editors i traductors + + + + + dir. + dir. + + + ed. + ed. + + + ed. + ed. + + + il·lust. + il·lust. + + + trad. + trad. + + + ed. i trad. + ed. i trad. + + + + dirigit per + editat per + editat per + il·lustrat per + entrevistat per + a + per + traduït per + editat i traduït per + + + per + dir. + ed. + ed. + il·lust. + trad. + ed. i trad. per + + + gener + febrer + març + abril + maig + juny + juliol + agost + setembre + octubre + novembre + desembre + + + gen. + feb. + març + abr. + maig + juny + jul. + ago. + set. + oct. + nov. + des. + + + primavera + estiu + tardor + hivern + + 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,307 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + viděno + vid. + a + a další + anonym + anon. + v + dostupné z + od + asi + cca. + citován + + vydání + vydání + + vyd. + et al. + nadcházející + z + ibid. + in + v tisku + internet + interview + dopis + nedatováno + b.r. + online + prezentováno v + + reference + reference + + + ref. + ref. + + dostupné + měřítko + verze + + + n. l. + př. n. l. + + + „ + " + ‚ + ´ + – + + + . + + + první + druhé + třetí + čtvrté + páté + šesté + sedmé + osmé + deváté + desáté + + + + kniha + knihy + + + kapitola + kapitoly + + + sloupec + sloupce + + + obrázek + obrázky + + + list + listy + + + číslo + čísla + + + řádek + řádky + + + poznámka + poznámky + + + opus + opusy + + + strana + strany + + + strana + strany + + + odstavec + odstavce + + + část + části + + + sekce + sekce + + + pod heslem + pod hesly + + + verš + verše + + + ročník + ročníky + + + + k. + kap. + sl. + obr. + l. + č. + ř. + pozn. + op. + + s. + s. + + + s. + s. + + odst. + č. + sek. + + s.v. + s.v. + + + v. + v. + + + roč. + roč. + + + + + + ¶¶ + + + § + §§ + + + + + ředitel + ředitelé + + + editor + editoři + + + vedoucí editor + vedoucí editoři + + + ilustrátor + ilustrátoři + + + překladatel + překladatelé + + + editor a překladatel + editoři a překladatelé + + + + + řed. + řed. + + + ed. + ed. + + + ed. + ed. + + + il. + il. + + + přel. + přel. + + + ed. a přel. + ed. a přel. + + + + řídil + editoval + editoval + ilustroval + rozhovor vedl + pro + recenzoval + přeložil + editoval a přeložil + + + + řed. + ed. + ed. + ilust. + přel. + ed. a přel. + + + leden + únor + březen + duben + květen + červen + červenec + srpen + září + říjen + listopad + prosinec + + + led. + úno. + bře. + dub. + kvě. + čer. + čvc. + srp. + zář. + říj. + lis. + pro. + + + jaro + léto + podzim + zima + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + åbnet + og + med flere + anonym + anon. + på + available at + af + cirka + ca. + citeret + + udgave + udgaver + + udg. + et al. + kommende + fra + ibid. + i + i tryk + internet + interview + brev + ingen dato + udateret + online + præsenteret ved + + reference + referencer + + + ref. + refr. + + hentet + scale + version + + + e.Kr + f.Kr + + + « + » + ‘ + ’ + – + + + . + + + første + anden + tredje + fjerde + femte + sjette + syvende + ottende + niende + tiende + + + + bog + bøger + + + kapitel + kapitler + + + kolonne + kolonner + + + figur + figurer + + + folio + folier + + + nummer + numre + + + linje + linjer + + + note + noter + + + opus + opuser + + + side + sider + + + side + sider + + + afsnit + afsnit + + + del + dele + + + sektion + sektionerne + + + sub verbo + sub verbis + + + vers + vers + + + bind + bind + + + + b. + kap. + kol. + fig. + fol. + nr. + l. + n. + op. + + s. + s. + + + s. + s. + + afs. + d. + sekt. + + s.v. + s.vv. + + + v. + v. + + + bd. + bd. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + redaktør + redaktører + + + redaktør + redaktører + + + illustrator + illustrators + + + oversætter + oversættere + + + redaktør & oversætter + redaktører & oversættere + + + + + dir. + dirs. + + + red. + red. + + + red. + red. + + + ill. + ills. + + + overs. + overs. + + + red. & overs. + red. & overs. + + + + directed by + redigeret af + redigeret af + illustrated by + interviewet af + modtaget af + by + oversat af + redigeret & oversat af + + + af + dir. + red. + red. + illus. + overs. + red. & overs. af + + + Januar + Februar + Marts + April + Maj + Juni + Juli + August + September + Oktober + November + December + + + Jan. + Feb. + Mar. + Apr. + Maj + Jun. + Jul. + Aug. + Sep. + Okt. + Nov. + Dec. + + + Forår + Sommer + Efterår + vinter + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + zugegriffen + und + und andere + ohne Autor + o. A. + auf + available at + von + circa + ca. + zitiert + + Auflage + Auflagen + + Aufl. + u. a. + i. E. + von + ebd. + in + im Druck + Internet + Interview + Brief + ohne Datum + o. J. + online + gehalten auf der + + Referenz + Referenzen + + + Ref. + Ref. + + abgerufen + scale + version + + + n. Chr. + v. Chr. + + + „ + “ + ‚ + ‘ + – + + + . + + + erster + zweiter + dritter + vierter + fünfter + sechster + siebter + achter + neunter + zehnter + + + + Buch + Bücher + + + Kapitel + Kapitel + + + Spalte + Spalten + + + Abbildung + Abbildungen + + + Blatt + Blätter + + + Nummer + Nummern + + + Zeile + Zeilen + + + Note + Noten + + + Opus + Opera + + + Seite + Seiten + + + Seite + Seiten + + + Absatz + Absätze + + + Teil + Teile + + + Abschnitt + Abschnitte + + + sub verbo + sub verbis + + + Vers + Verse + + + Band + Bände + + + + B. + Kap. + Sp. + Abb. + Fol. + Nr. + l. + n. + op. + + S. + S. + + + S. + S. + + Abs. + Teil + Abschn. + + s.v. + s.vv. + + + V. + V. + + + Bd. + Bd. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + Herausgeber + Herausgeber + + + Herausgeber + Herausgeber + + + illustrator + illustrators + + + Übersetzer + Übersetzer + + + Herausgeber & Übersetzer + Herausgeber & Übersetzer + + + + + dir. + dirs. + + + Hrsg. + Hrsg. + + + Hrsg. + Hrsg. + + + ill. + ills. + + + Übers. + Übers. + + + Hrsg. & Übers. + Hrsg. & Übers + + + + directed by + herausgegeben von + herausgegeben von + illustrated by + interviewt von + an + by + übersetzt von + herausgegeben und übersetzt von + + + von + dir. + hg. von + hg. von + illus. + übers. von + hg. & übers. von + + + 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. + + + Frühjahr + Sommer + Herbst + Winter + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + zugegriffen + und + und andere + ohne Autor + o. A. + auf + available at + von + circa + ca. + zitiert + + Auflage + Auflagen + + Aufl. + u. a. + i. E. + von + ebd. + in + im Druck + Internet + Interview + Brief + ohne Datum + o. J. + online + gehalten auf der + + Referenz + Referenzen + + + Ref. + Ref. + + abgerufen + scale + version + + + n. Chr. + v. Chr. + + + „ + “ + ‚ + ‘ + – + + + . + + + erster + zweiter + dritter + vierter + fünfter + sechster + siebter + achter + neunter + zehnter + + + + Buch + Bücher + + + Kapitel + Kapitel + + + Spalte + Spalten + + + Abbildung + Abbildungen + + + Blatt + Blätter + + + Nummer + Nummern + + + Zeile + Zeilen + + + Note + Noten + + + Opus + Opera + + + Seite + Seiten + + + Seite + Seiten + + + Absatz + Absätze + + + Teil + Teile + + + Abschnitt + Abschnitte + + + sub verbo + sub verbis + + + Vers + Verse + + + Band + Bände + + + + B. + Kap. + Sp. + Abb. + Fol. + Nr. + l. + n. + op. + + S. + S. + + + S. + S. + + Abs. + Teil + Abschn. + + s.v. + s.vv. + + + V. + V. + + + Bd. + Bd. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + Herausgeber + Herausgeber + + + Herausgeber + Herausgeber + + + illustrator + illustrators + + + Übersetzer + Übersetzer + + + Herausgeber & Übersetzer + Herausgeber & Übersetzer + + + + + dir. + dirs. + + + Hrsg. + Hrsg. + + + Hrsg. + Hrsg. + + + ill. + ills. + + + Übers. + Übers. + + + Hrsg. & Übers. + Hrsg. & Übers + + + + directed by + herausgegeben von + herausgegeben von + illustrated by + interviewt von + an + by + übersetzt von + herausgegeben und übersetzt von + + + von + dir. + hg. von + hg. von + illus. + übers. von + hg. & übers. von + + + 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. + + + Frühjahr + Sommer + Herbst + Winter + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + zugegriffen + und + und andere + ohne Autor + o. A. + auf + verfügbar unter + von + circa + ca. + zitiert + + Auflage + Auflagen + + Aufl. + u. a. + i. E. + von + ebd. + in + im Druck + Internet + Interview + Brief + ohne Datum + o. J. + online + gehalten auf der + + Referenz + Referenzen + + + Ref. + Ref. + + abgerufen + Maßstab + Version + + + n. Chr. + v. Chr. + + + „ + “ + ‚ + ‘ + – + + + . + + + erster + zweiter + dritter + vierter + fünfter + sechster + siebter + achter + neunter + zehnter + + + + Buch + Bücher + + + Kapitel + Kapitel + + + Spalte + Spalten + + + Abbildung + Abbildungen + + + Blatt + Blätter + + + Nummer + Nummern + + + Zeile + Zeilen + + + Note + Noten + + + Opus + Opera + + + Seite + Seiten + + + Seite + Seiten + + + Absatz + Absätze + + + Teil + Teile + + + Abschnitt + Abschnitte + + + sub verbo + sub verbis + + + Vers + Verse + + + Band + Bände + + + + B. + Kap. + Sp. + Abb. + Fol. + Nr. + Z. + N. + op. + + S. + S. + + + S. + S. + + Abs. + Teil + Abschn. + + s.v. + s.vv. + + + V. + V. + + + Bd. + Bde. + + + + + + ¶¶ + + + § + §§ + + + + + Regisseur + Regisseure + + + Herausgeber + Herausgeber + + + Herausgeber + Herausgeber + + + Illustrator + Illustratoren + + + Übersetzer + Übersetzer + + + Herausgeber & Übersetzer + Herausgeber & Übersetzer + + + + + Reg. + Reg.. + + + Hrsg. + Hrsg. + + + Hrsg. + Hrsg. + + + Ill. + Ill. + + + Übers. + Übers. + + + Hrsg. & Übers. + Hrsg. & Übers + + + + directed by + herausgegeben von + herausgegeben von + illustriert von + interviewt von + an + von + übersetzt von + herausgegeben und übersetzt von + + + von + Reg. + hg. von + hg. von + illus. von + übers. von + hg. & übers. von + + + 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. + + + Frühjahr + Sommer + Herbst + Winter + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2013-11-08T20:31:02+00:00 + + + + + + + + + + + + + + ημερομηνία πρόσβασης + και + και άλλοι + ανώνυμο + ανών. + εφ. + διαθέσιμο στο + από + περίπου + περ. + παρατίθεται + + έκδοση + εκδόσεις + + έκδ. + κ.ά. + προσεχές + από + στο ίδιο + στο + υπό έκδοση + διαδίκτυο + συνέντευξη + επιστολή + χωρίς χρονολογία + χ.χ. + έκδοση σε ψηφιακή μορφή + παρουσιάστηκε στο + + παραπομπή + παραπομπές + + + παρ. + παρ. + + ανακτήθηκε + κλίμακα + εκδοχή + + + μ.Χ. + π.Χ. + + + ‘ + ’ + ' + ' + – + + + ος + + + πρώτος + δεύτερος + τρίτος + τέταρτος + πέμπτος + έκτος + έβδομος + όγδοος + ένατος + δέκατος + + + + βιβλίο + βιβλία + + + κεφάλαιο + κεφάλαια + + + στήλη + στήλες + + + εικόνα + εικόνες + + + φάκελος + φάκελοι + + + τεύχος + τεύχη + + + σειρά + σειρές + + + σημείωση + σημειώσεις + + + έργο + έργα + + + σελίδα + σελίδες + + + σελίδα + σελίδες + + + παράγραφος + παράγραφοι + + + μέρος + μέρη + + + τμήμα + τμήματα + + + λήμμα + λήμματα + + + στίχος + στίχοι + + + τόμος + τόμοι + + + + βιβ. + κεφ. + στ. + εικ. + φάκ + τχ. + γρ. + σημ. + έργ. + + σ + σσ + + + σ + σσ + + παρ. + μέρ. + τμ. + + λήμ. + λήμ. + + + στ. + στ. + + + τ. + τ. + + + + + + ¶¶ + + + § + §§ + + + + + Διευθυντής + Διευθυντές + + + επιμελητής + επιμελητές + + + διευθυντής σειράς + διευθυντές σειράς + + + εικονογράφος + εικονογράφοι + + + μεταφραστής + μεταφραστές + + + μεταφραστής και επιμελητής + μεταφραστές και επιμελητές + + + + + δ/ντης. + δ/ντές. + + + επιμ. + επιμ. + + + δ/ντής σειράς + δ/ντές σειρας + + + εικ. + εικ.. + + + μτφ. + μτφ. + + + μτφ. και επιμ. + μτφ. και επιμ. + + + + διεύθυνση + επιμέλεια + διεύθυνση σειράς + εικονογράφηση by + συνέντευξη + παραλήπτης + by + μετάφραση + μετάφραση και επιμέλεια + + + στον συλλ. τόμο + διευθ. + επιμέλ. + δ/νση σειράς + εικον. + μετάφρ. + μετάφρ. και επιμέλ. + + + Ιανουάριος + Φεβρουάριος + Μάρτιος + Απρίλιος + Μάιος + Ιούνιος + Ιούλιος + Αύγουστος + Σεπτέμβριος + Οκτώβριος + Νοέμβριος + Δεκέμβριος + + + Ιανουαρίου + Φεβρουαρίου + Μαρτίου + Απριλίου + Μαΐου + Ιουνίου + Ιουλίου + Αυγούστου + Σεπτεμβρίου + Οκτωβρίου + Νοεμβρίου + Δεκεμβρίου + + + Άνοιξη + Καλοκαίρι + Φθινόπωρο + Χειμώνας + + diff --git a/locales/locales-en-GB.xml b/locales/locales-en-GB.xml new file mode 100644 --- /dev/null +++ b/locales/locales-en-GB.xml @@ -0,0 +1,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon. + at + available at + by + circa + c. + cited + + edition + editions + + ed. + et al. + forthcoming + from + ibid. + in + in press + internet + interview + letter + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + scale + version + + + AD + BC + + + ‘ + ’ + “ + ” + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + lines + + + note + notes + + + opus + opera + + + page + pages + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk. + chap. + col. + fig. + f. + no. + l. + n. + op. + + p. + pp. + + + p. + pp. + + para. + pt. + sec. + + s.v. + s.vv. + + + v. + vv. + + + vol. + vols. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + editor + editors + + + editor + editors + + + illustrator + illustrators + + + translator + translators + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + ed. + eds. + + + ed. + eds. + + + ill. + ills. + + + tran. + trans. + + + ed. & tran. + eds. & trans. + + + + directed by + edited by + edited by + illustrated by + interview by + to + by + translated by + edited & translated by + + + by + dir. by + ed. by + ed. by + illus. by + trans. by + ed. & trans. by + + + January + February + March + April + May + June + July + August + September + October + November + December + + + Jan. + Feb. + Mar. + Apr. + May + Jun. + Jul. + Aug. + Sep. + Oct. + Nov. + Dec. + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-en-US.xml b/locales/locales-en-US.xml new file mode 100644 --- /dev/null +++ b/locales/locales-en-US.xml @@ -0,0 +1,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon. + at + available at + by + circa + c. + cited + + edition + editions + + ed. + et al. + forthcoming + from + ibid. + in + in press + internet + interview + letter + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + scale + version + + + AD + BC + + + “ + ” + ‘ + ’ + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + lines + + + note + notes + + + opus + opera + + + page + pages + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk. + chap. + col. + fig. + f. + no. + l. + n. + op. + + p. + pp. + + + p. + pp. + + para. + pt. + sec. + + s.v. + s.vv. + + + v. + vv. + + + vol. + vols. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + editor + editors + + + editor + editors + + + illustrator + illustrators + + + translator + translators + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + ed. + eds. + + + ed. + eds. + + + ill. + ills. + + + tran. + trans. + + + ed. & tran. + eds. & trans. + + + + directed by + edited by + edited by + illustrated by + interview by + to + by + translated by + edited & translated by + + + by + dir. by + ed. by + ed. by + illus. by + trans. by + ed. & trans. by + + + January + February + March + April + May + June + July + August + September + October + November + December + + + Jan. + Feb. + Mar. + Apr. + May + Jun. + Jul. + Aug. + Sep. + Oct. + Nov. + Dec. + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-es-ES.xml b/locales/locales-es-ES.xml new file mode 100644 --- /dev/null +++ b/locales/locales-es-ES.xml @@ -0,0 +1,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + accedido + y + y otros + anónimo + anón. + en + disponible en + de + circa + c. + citado + + edición + ediciones + + ed. + et al. + previsto + a partir de + ibid. + en + en imprenta + internet + entrevista + carta + sin fecha + s. f. + en línea + presentado en + + referencia + referencias + + + ref. + refs. + + recuperado + escala + versión + + + d. C. + a. C. + + + « + » + “ + ” + - + + + .ª + + + primera + segunda + tercera + cuarta + quinta + sexta + séptima + octava + novena + décima + + + + 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ágina + páginas + + + párrafo + párrafos + + + parte + partes + + + sección + secciones + + + sub voce + sub vocibus + + + verso + versos + + + volumen + volúmenes + + + + lib. + cap. + col. + fig. + f. + n.º + l. + n. + op. + + p. + pp. + + + p. + pp. + + párr. + pt. + sec. + + s. v. + s. vv. + + + v. + vv. + + + vol. + vols. + + + + + § + § + + + § + § + + + + + director + directores + + + editor + editores + + + editor + editores + + + ilustrador + ilustradores + + + traductor + traductores + + + editor y traductor + editores y traductores + + + + + dir. + dirs. + + + ed. + eds. + + + ed. + eds. + + + ilust. + ilusts. + + + trad. + trads. + + + ed. y trad. + eds. y trads. + + + + dirigido por + editado por + editado por + ilustrado por + entrevistado por + a + por + traducido por + editado y traducido por + + + de + dir. + ed. + ed. + ilust. + trad. + ed. y 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. + + + primavera + verano + otoño + invierno + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + vaadatud + ja + ja teised + anonüümne + anon + + available at + + umbes + u + tsiteeritud + + väljaanne + väljaanded + + tr + et al. + ilmumisel + + ibid. + + trükis + internet + intervjuu + kiri + s.a. + s.a. + online + esitatud + + viide + viited + + + viide + viited + + salvestatud + scale + version + + + pKr + eKr + + + „ + “ + ‘ + ’ + – + + + . + + + esimene + teine + kolmas + neljas + viies + kuues + seitsmes + kaheksas + üheksas + kümnes + + + + raamat + raamatud + + + peatükk + peatükid + + + veerg + veerud + + + joonis + joonised + + + foolio + fooliod + + + number + numbrid + + + rida + read + + + viide + viited + + + opus + opera + + + lehekülg + leheküljed + + + lehekülg + leheküljed + + + lõik + lõigud + + + osa + osad + + + alajaotis + alajaotised + + + sub verbo + sub verbis + + + värss + värsid + + + köide + köited + + + + rmt + ptk + v + joon + f + nr + l. + n. + op + + lk + lk + + + lk + lk + + lõik + osa + alajaot. + + s.v. + s.vv. + + + v + vv + + + kd + kd + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + toimetaja + toimetajad + + + toimetaja + toimetajad + + + illustrator + illustrators + + + tõlkija + tõlkijad + + + toimetaja & tõlkija + toimetajad & tõlkijad + + + + + dir. + dirs. + + + toim + toim + + + toim + toim + + + ill. + ills. + + + tõlk + tõlk + + + toim & tõlk + toim & tõlk + + + + directed by + toimetanud + toimetanud + illustrated by + intervjueerinud + + by + tõlkinud + toimetanud & tõlkinud + + + + dir. + toim + toim + illus. + tõlk + toim & tõlk + + + jaanuar + veebruar + märts + aprill + mai + juuni + juuli + august + september + oktoober + november + detsember + + + jaan + veebr + märts + apr + mai + juuni + juuli + aug + sept + okt + nov + dets + + + kevad + suvi + sügis + talv + + diff --git a/locales/locales-eu.xml b/locales/locales-eu.xml new file mode 100644 --- /dev/null +++ b/locales/locales-eu.xml @@ -0,0 +1,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + eskuratua + eta + eta beste + ezezaguna + ezez. + -(e)n + available at + -(e)k egina + inguru + ing. + aipatua + + argitalpena + argitalpenak + + arg. + et al. + bidean + -(e)tik + ibíd. + in + moldiztegian + internet + elkarrizketa + gutuna + datarik gabe + d. g. + sarean + -(e)n aurkeztua + + aipamena + aipamenak + + + aip. + aip. + + berreskuratua + scale + version + + + K.a. + K.o. + + + « + » + “ + ” + – + + + . + + + lehengo + bigarren + hirugarren + laugarren + bosgarren + seigarren + zazpigarren + zortzigarren + bederatzigarren + hamargarren + + + + liburua + liburuak + + + kapitulua + kapituluak + + + zutabea + zutabeak + + + irudia + irudiak + + + orria + orriak + + + zenbakia + zenbakiak + + + lerroa + lerroak + + + oharra + oharrak + + + obra + obrak + + + orrialdea + orrialdeak + + + orrialdea + orrialdeak + + + paragrafoa + paragrafoak + + + zatia + zatiak + + + atala + atalak + + + sub voce + sub vocem + + + bertsoa + bertsoak + + + luburikia + luburukiak + + + + lib. + kap. + zut. + iru. + or. + zenb. + l. + n. + op. + + or. + or. + + + or. + or. + + par. + zt. + atal. + + s.v. + s.v. + + + b. + bb. + + + libk. + libk. + + + + + + ¶¶ + + + § + § + + + + + director + directors + + + argitaratzailea + argitaratzaileak + + + argitaratzailea + argitaratzaileak + + + illustrator + illustrators + + + itzultzailea + itzultzaileak + + + argitaratzaile eta itzultzailea + argitaratzaile eta itzultzaileak + + + + + dir. + dirs. + + + arg. + arg. + + + arg. + arg. + + + ill. + ills. + + + itzul. + itzul. + + + arg. eta itzul. + arg. eta itzul. + + + + directed by + -(e)k argitaratua + -(e)k argitaratua + illustrated by + -(e)k elkarrizketatua + -(r)entzat + by + -(e)k itzulia + -(e)k argitaratu eta itzulia + + + + dir. + arg. + arg. + illus. + itzul. + -(e)k arg. eta itzul. + + + urtarrilak + otsailak + martxoak + apirilak + maiatzak + ekainak + uztailak + abuztuak + irailak + urriak + azaroak + abenduak + + + urt. + ots. + martx. + apr. + mai. + eka. + uzt. + abz. + ira. + urr. + aza. + abe. + + + udaberria + uda + udazkena + negua + + diff --git a/locales/locales-fa-IR.xml b/locales/locales-fa-IR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-fa-IR.xml @@ -0,0 +1,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + دسترسی + و + و دیگران + ناشناس + ناشناس + در + available at + توسط + circa + c. + یادکرد + + ویرایش + ویرایش‌های + + ویرایش + و دیگران + forthcoming + از + همان + در + زیر چاپ + اینترنت + مصاحبه + نامه + بدون تاریخ + بدون تاریخ + برخط + ارائه شده در + + مرجع + مراجع + + + مرجع + مراجع + + retrieved + scale + version + + + AD + BC + + + “ + ” + ‘ + ’ + – + + + th + st + nd + rd + th + th + th + + + اول + دوم + سوم + چهارم + پنجم + ششم + هفتم + هشتم + نهم + دهم + + + + کتاب + کتاب‌های + + + فصل + فصل‌های + + + ستون + ستون‌های + + + تصویر + تصاویر + + + برگ + برگ‌های + + + شماره + شماره‌های + + + خط + خطوط + + + یادداشت + یادداشت‌های + + + قطعه + قطعات + + + صفحه + صفحات + + + صفحه + صفحات + + + پاراگراف + پاراگراف‌های + + + بخش + بخش‌های + + + قسمت + قسمت‌های + + + sub verbo + sub verbis + + + بیت + بیت‌های + + + جلد + جلدهای + + + + کتاب + فصل + ستون + تصویر + برگ + ش + l. + n. + قطعه + + ص + صص + + + ص + صص + + پاراگراف + بخش + قسمت + + s.v + s.vv + + + بیت + ابیات + + + ج + جج + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + ویرایشگر + ویرایشگران + + + ویرایشگر + ویرایشگران + + + illustrator + illustrators + + + مترجم + مترجمین + + + ویرایشگر و مترجم + ویرایشگران و مترجمین + + + + + dir. + dirs. + + + ویرایشگر + ویرایشگران + + + ویرایشگر + ویرایشگران + + + ill. + ills. + + + مترجم + مترجمین + + + ویرایشگر و مترجم + ویرایشگران و مترجمین + + + + directed by + edited by + ویراسته‌ی + illustrated by + مصاحبه توسط + به + by + ترجمه‌ی + ترجمه و ویراسته‌ی + + + توسط + dir. + ویراسته‌ی + ویراسته‌ی + illus. + ترجمه‌ی + ترجمه و ویراسته‌ی + + + ژانویه + فوریه + مارس + آوریل + می + ژوئن + جولای + آگوست + سپتامبر + اکتبر + نوامبر + دسامبر + + + ژانویه + فوریه + مارس + آوریل + می + ژوئن + جولای + آگوست + سپتامبر + اکتبر + نوامبر + دسامبر + + + بهار + تابستان + پاییز + زمستان + + diff --git a/locales/locales-fi-FI.xml b/locales/locales-fi-FI.xml new file mode 100644 --- /dev/null +++ b/locales/locales-fi-FI.xml @@ -0,0 +1,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + viitattu + ja + ym. + tuntematon + tuntematon + osoitteessa + saatavissa + tekijä + noin + n. + viitattu + + painos + painokset + + p. + ym. + tulossa + osoitteesta + mt. + teoksessa + painossa + internet + haastattelu + kirje + ei päivämäärää + ei pvm. + verkossa + esitetty tilaisuudessa + + viittaus + viittaukset + + + viit. + viit. + + noudettu + mittakaava + versio + + + eaa. + jaa. + + + ” + ” + ’ + ’ + – + + + . + + + ensimmäinen + toinen + kolmas + neljäs + viides + kuudes + seitsemäs + kahdeksas + yhdeksäs + kymmenes + + + + kirja + kirjat + + + luku + luvut + + + palsta + palstat + + + kuvio + kuviot + + + folio + foliot + + + numero + numerot + + + rivi + rivit + + + huomautus + huomautukset + + + opus + opukset + + + sivu + sivut + + + sivu + sivut + + + kappale + kappaleet + + + osa + osat + + + osa + osat + + + sub verbo + sub verbis + + + säkeistö + säkeistöt + + + vuosikerta + vuosikerrat + + + + kirja + luku + palsta + kuv. + fol. + nro + r. + huom. + op. + + s. + ss. + + + s. + ss. + + kappale + osa + osa + + s.v. + s.vv. + + + säk. + säk. + + + vsk. + vsk. + + + + + + ¶¶ + + + § + §§ + + + + + ohjaaja + ohjaajat + + + toimittaja + toimittajat + + + toimittaja + toimittajat + + + kuvittaja + kuvittajat + + + kääntäjä + kääntäjät + + + toimittaja ja kääntäjä + toimittajat ja kääntäjät + + + + + ohj. + ohj. + + + toim. + toim. + + + toim. + toim. + + + kuv. + kuv. + + + käänt. + käänt. + + + toim. ja käänt. + toim. ja käänt. + + + + ohjannut + toimittanut + toimittanut + kuvittanut + haastatellut + vastaanottaja + + kääntänyt + toimittanut ja kääntänyt + + + + ohj. + toim. + toim. + kuv. + käänt. + toim. ja käänt. + + + tammikuuta + helmikuuta + maaliskuuta + huhtikuuta + toukokuuta + kesäkuuta + heinäkuuta + elokuuta + syyskuuta + lokakuuta + marraskuuta + joulukuuta + + + tammi + helmi + maalis + huhti + touko + kesä + heinä + elo + syys + loka + marras + joulu + + + kevät + kesä + syksy + talvi + + diff --git a/locales/locales-fr-CA.xml b/locales/locales-fr-CA.xml new file mode 100644 --- /dev/null +++ b/locales/locales-fr-CA.xml @@ -0,0 +1,317 @@ + + + + + Grégoire Colly + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + consulté le + et + et autres + anonyme + anon. + sur + disponible à + par + vers + v. + cité + + édition + éditions + + éd. + et al. + à paraître + à l'adresse + ibid. + dans + sous presse + Internet + entretien + lettre + sans date + s. d. + en ligne + présenté à + + référence + références + + + réf. + réf. + + consulté + échelle + version + + + apr. J.-C. + av. J.-C. + + + «  +  » + “ + ” + ‑ + + + ᵉ + ʳᵉ + ᵉʳ + + + premier + deuxième + troisième + quatrième + cinquième + sixième + septième + huitième + neuvième + dixième + + + + livre + livres + + + chapitre + chapitres + + + colonne + colonnes + + + figure + figures + + + folio + folios + + + numéro + numéros + + + ligne + lignes + + + note + notes + + + opus + opus + + + page + pages + + + page + pages + + + paragraphe + paragraphes + + + partie + parties + + + section + sections + + + sub verbo + sub verbis + + + verset + versets + + + volume + volumes + + + + liv. + chap. + col. + fig. + + fᵒ + fᵒˢ + + + nᵒ + nᵒˢ + + l. + n. + op. + + p. + p. + + + p. + p. + + paragr. + part. + sect. + + s. v. + s. vv. + + + v. + v. + + + vol. + vol. + + + + + § + § + + + § + § + + + + + réalisateur + réalisateurs + + + éditeur + éditeurs + + + directeur + directeurs + + + illustrateur + illustrateurs + + + traducteur + traducteurs + + + éditeur et traducteur + éditeurs et traducteurs + + + + + réal. + réal. + + + éd. + éd. + + + dir. + dir. + + + ill. + ill. + + + trad. + trad. + + + éd. et trad. + éd. et trad. + + + + réalisé par + édité par + sous la direction de + illustré par + entretien réalisé par + à + par + traduit par + édité et traduit par + + + par + réal. par + éd. par + ss la dir. de + ill. par + trad. par + éd. et trad. par + + + janvier + février + mars + avril + mai + juin + juillet + août + septembre + octobre + novembre + décembre + + + janv. + févr. + mars + avr. + mai + juin + juill. + août + sept. + oct. + nov. + déc. + + + printemps + été + automne + hiver + + diff --git a/locales/locales-fr-FR.xml b/locales/locales-fr-FR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-fr-FR.xml @@ -0,0 +1,317 @@ + + + + + Grégoire Colly + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + consulté le + et + et autres + anonyme + anon. + sur + disponible sur + par + vers + v. + cité + + édition + éditions + + éd. + et al. + à paraître + à l'adresse + ibid. + in + sous presse + Internet + entretien + lettre + sans date + s. d. + en ligne + présenté à + + référence + références + + + réf. + réf. + + consulté + échelle + version + + + apr. J.-C. + av. J.-C. + + + «  +  » + “ + ” + ‑ + + + ᵉ + ʳᵉ + ᵉʳ + + + premier + deuxième + troisième + quatrième + cinquième + sixième + septième + huitième + neuvième + dixième + + + + livre + livres + + + chapitre + chapitres + + + colonne + colonnes + + + figure + figures + + + folio + folios + + + numéro + numéros + + + ligne + lignes + + + note + notes + + + opus + opus + + + page + pages + + + page + pages + + + paragraphe + paragraphes + + + partie + parties + + + section + sections + + + sub verbo + sub verbis + + + verset + versets + + + volume + volumes + + + + liv. + chap. + col. + fig. + + fᵒ + fᵒˢ + + + nᵒ + nᵒˢ + + l. + n. + op. + + p. + p. + + + p. + p. + + paragr. + part. + sect. + + s. v. + s. vv. + + + v. + v. + + + vol. + vol. + + + + + § + § + + + § + § + + + + + réalisateur + réalisateurs + + + éditeur + éditeurs + + + directeur + directeurs + + + illustrateur + illustrateurs + + + traducteur + traducteurs + + + éditeur et traducteur + éditeurs et traducteurs + + + + + réal. + réal. + + + éd. + éd. + + + dir. + dir. + + + ill. + ill. + + + trad. + trad. + + + éd. et trad. + éd. et trad. + + + + réalisé par + édité par + sous la direction de + illustré par + entretien réalisé par + à + par + traduit par + édité et traduit par + + + par + réal. par + éd. par + ss la dir. de + ill. par + trad. par + éd. et trad. par + + + janvier + février + mars + avril + mai + juin + juillet + août + septembre + octobre + novembre + décembre + + + janv. + févr. + mars + avr. + mai + juin + juill. + août + sept. + oct. + nov. + déc. + + + printemps + été + automne + hiver + + diff --git a/locales/locales-he-IL.xml b/locales/locales-he-IL.xml new file mode 100644 --- /dev/null +++ b/locales/locales-he-IL.xml @@ -0,0 +1,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + נבדק לאחרונה + ו + ואחרים + אלמוני + anon + -ב + זמין ב + על-ידי + לערך + c. + מצוטט ב + + מהדורה + מהדורות + + ed + ואחרים + צפוי + מתוך + שם + בתוך + בהדפסה + אינטרנט + ראיון + מכתב + אין נתונים + nd + מקוון + הוצג ב + + הפניה + הפניות + + + ref. + refs. + + אוחזר + scale + גירסה + + + לספירה + לפני הספירה + + + “ + ” + ‘ + ’ + – + + + th + st + nd + rd + th + th + th + + + ראשון + שני + שלישי + רביעי + חמישי + שישי + שביעי + שמיני + תשיעי + עשירי + + + + ספר + ספרים + + + פרק + פרקים + + + טור + טורים + + + figure + figures + + + פוליו + פוליו + + + מספר + מספרים + + + שורה + שורות + + + הערה + הערות + + + אופוס + אופרה + + + עמוד + עמודים + + + עמוד + עמודים + + + פיסקה + פיסקאות + + + חלק + חלקים + + + סעיף + סעיפים + + + sub verbo + sub verbis + + + בית + בתים + + + כרך + כרכים + + + + bk + chap + col + fig + f + no + l. + n. + op + + 'עמ + 'עמ + + + 'עמ + 'עמ + + para + pt + ס' + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + במאי + במאים + + + עורך + עורכים + + + עורך ראשי + עורכים ראשיים + + + מאייר + מאיירים + + + מתרגם + מתרגמים + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + ed + eds + + + ed. + eds. + + + ill. + ills. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + בוים ע"י + נערך ע"י + בוים ע"י + אויר ע"י + רואיין ע"י + אל + ע"י + תורגם ע"י + edited & translated by + + + by + dir. + ed + ed. + illus. + trans + ed. & trans. by + + + ינואר + פברואר + מרץ + אפריל + מאי + יוני + יולי + אוגוסט + ספטמבר + אוקטובר + נובמבר + דצמבר + + + Jan + Feb + Mar + Apr + May + Jun + Jul + Aug + Sep + Oct + Nov + Dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-hr-HR.xml b/locales/locales-hr-HR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-hr-HR.xml @@ -0,0 +1,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + pristupljeno + i + i ostali + anonim + anon. + na + pristupačno na + od + circa + c. + citirano + + izdanje + izdanja + + izd. + i ostali + u pripremi + od + ibid. + u + u štampi + internet + intervju + pismo + bez datuma + bez datuma + na internetu + predstavljeno na + + reference + reference + + + ref. + ref. + + preuzeto + skala + verzija + + + AD + BC + + + „ + “ + ‚ + ‘ + – + + + th + st + nd + rd + th + th + th + + + prvi + drugi + treći + četvrti + peti + šesti + sedmi + osmi + deveti + deseti + + + + knjiga + knjige + + + poglavlje + poglavlja + + + kolona + kolone + + + crtež + crteži + + + folija + folije + + + broj + brojevi + + + linija + linije + + + beleška + beleške + + + opus + opera + + + stranica + stranice + + + stranica + stranice + + + paragraf + paragrafi + + + deo + delova + + + odeljak + odeljaka + + + sub verbo + sub verbis + + + strofa + strofe + + + tom + tomova + + + + knj + pog + kol + црт + fol + izd + l + n + op + + str. + str. + + + str. + str. + + par + deo + od + + s.v. + s.vv. + + + s + s + + + tom + tomova + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + priređivač + priređivači + + + priređivač + priređivači + + + ilustrator + ilustratori + + + prevodilac + prevodioci + + + priređivač & prevodilac + priređivači & prevodioci + + + + + prir. + prir. + + + prir. + prir. + + + prir. + prir. + + + il. + il. + + + prev. + prev. + + + prir. & prev. + prir. & prev. + + + + directed by + priredio + priredio + ilustrovao + intervjuisao + prima + od + preveo + priredio & preveo by + + + by + dir. + prir. + prir. + ilus. + prev. + prir. & prev. by + + + januar + februar + mart + april + maj + jun + jul + avgust + septembar + oktobar + novembar + decembar + + + jan. + feb. + mart + apr. + maj + jun + jul + avg. + sep. + okt. + nov. + dec. + + + proleće + leto + jesen + zima + + 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,310 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2014-06-17T09:56:35+02:00 + + + + + + + + + + + + + + elérés + és + és mások + szerző nélkül + sz. n. + + elérhető + by + körülbelül + kb. + idézi + + kiadás + kiadás + + kiad. + és mtsai. + megjelenés alatt + forrás + uo. + in + nyomtatás alatt + internet + interjú + levél + évszám nélkül + é. n. + online + előadás + + hivatkozás + hivatkozás + + + hiv. + hiv. + + elérés + skála + verzió + + + Kr. u. + Kr. e. + + + i. sz. + i. e. + + + „ + ” + » + « + – + + + . + + + első + második + harmadik + negyedik + ötödik + hatodik + hetedik + nyolcadik + kilencedik + tizedik + + + + könyv + könyv + + + fejezet + fejezet + + + oszlop + oszlop + + + ábra + ábra + + + fóliáns + fóliáns + + + szám + szám + + + sor + sor + + + jegyzet + jegyzet + + + mű + mű + + + oldal + oldal + + + oldal + oldal + + + bekezdés + bekezdés + + + rész + rész + + + szakasz + szakasz + + + sub verbo + sub verbis + + + versszak + versszak + + + kötet + kötet + + + + könyv + fej. + oszl. + ábr. + fol. + sz. + s. + j. + op. + + o. + o. + + + o. + o. + + bek. + rész + szak. + + s. v. + s. vv. + + + vsz. + vsz. + + + köt. + köt. + + + + + + ¶¶ + + + § + §§ + + + + + igazgató + igazgató + + + szerkesztő + szerkesztő + + + szerkesztőségi igazgató + szerkesztőségi igazgató + + + illusztrátor + illusztrátor + + + fordító + fordító + + + szerkesztő & fordító + szerkesztő & fordító + + + + + ig. + ig. + + + szerk. + szerk. + + + szerk. ig. + szerk. ig. + + + ill. + ill. + + + ford. + ford. + + + szerk. & ford. + szerk. & ford. + + + + directed by + szerkesztette + edited by + illusztrálta + interjúkészítő + címzett + by + fordította + szerkesztette & fordította + + + by + ig. + szerk. + ed. + ill. + ford. + 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. + + + tavasz + nyár + ősz + tél + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + sótt + og + og fleiri + nafnlaus + nafnl. + af + available at + eftir + sirka + u.þ.b. + tilvitnun + + útgáfa + útgáfur + + útg. + o.fl. + óbirt + af + sama heimild + í + í prentun + rafrænt + viðtal + bréf + engin dagsetning + e.d. + rafrænt + flutt á + + tilvitnun + tilvitnanir + + + tilv. + tilv. + + sótt + scale + version + + + e.Kr. + f.Kr. + + + „ + “ + ‘ + ’ + – + + + . + + + fyrsti + annar + þriðji + fjórði + fimmti + sjötti + sjöundi + áttundi + níundi + tíundi + + + + bók + bækur + + + kafli + kaflar + + + dálkur + dálkar + + + mynd + myndir + + + handrit + handrit + + + númer + númer + + + lína + línur + + + skilaboð + skilaboð + + + tónverk + tónverk + + + blaðsíða + blaðsíður + + + blaðsíða + blaðsíður + + + málsgrein + málsgreinar + + + hluti + hlutar + + + hluti + hlutar + + + sub verbo + sub verbis + + + vers + vers + + + bindi + bindi + + + + b. + k. + d. + mynd. + handr. + nr. + l. + n. + tónv. + + bls. + bls. + + + bls. + bls. + + málsgr. + hl. + hl. + + s.v. + s.vv. + + + v. + v. + + + bindi + bindi + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + ritstjóri + ritstjórar + + + ritstjóri + ritstjórar + + + illustrator + illustrators + + + þýðandi + þýðendur + + + ritstjóri og þýðandi + ritstjórar og þýðendur + + + + + dir. + dirs. + + + ritstj. + ritstj. + + + ritstj. + ritstj. + + + ill. + ills. + + + þýð. + þýð. + + + ritstj. og þýð. + ritstj. og þýð. + + + + directed by + ritstjóri + ritstjóri + illustrated by + viðtal tók + til + by + þýddi + ritstjóri og þýðandi + + + eftir + dir. + ritst. + ritst. + illus. + þýð. + ritst. og þýð. + + + janúar + febrúar + mars + apríl + maí + júní + júlí + ágúst + september + október + nóvember + desember + + + jan. + feb. + mar. + apr. + maí + jún. + júl. + ágú. + sep. + okt. + nóv. + des. + + + vor + sumar + haust + vetur + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + consultato + e + e altri + anonimo + anon. + a + available at + di + circa + c. + citato + + edizione + edizioni + + ed. + et al. + futuro + da + ibid. + in + in stampa + internet + intervista + lettera + senza data + s.d. + in linea + presentato al + + reference + references + + + ref. + refs. + + recuperato + scale + version + + + d.C. + a.C. + + + « + » + “ + ” + – + + + ° + + + prima + seconda + terza + quarta + quinta + sesta + settima + ottava + nona + decima + + + + libro + libri + + + capitolo + capitoli + + + colonna + colonne + + + figura + figure + + + foglio + fogli + + + numero + numeri + + + riga + righe + + + nota + note + + + opera + opere + + + pagina + pagine + + + pagina + pagine + + + capoverso + capoversi + + + parte + parti + + + paragrafo + paragrafi + + + sub verbo + sub verbis + + + verso + versi + + + volume + volumi + + + + lib. + cap. + col. + fig. + fgl. + n. + l. + n. + op. + + pag. + pagg. + + + pag. + pagg. + + cpv. + pt. + par. + + s.v. + s.vv. + + + v. + vv. + + + vol. + vol. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + curatore + curatori + + + editor + editors + + + illustrator + illustrators + + + traduttore + traduttori + + + curatore e traduttore + curatori e tradutori + + + + + dir. + dirs. + + + a c. di + a c. di + + + ed. + eds. + + + ill. + ills. + + + trad. + trad. + + + a c. di e trad. da + a c. di e trad. da + + + + directed by + a cura di + edited by + illustrated by + intervista di + a + by + tradotto da + a cura di e tradotto da + + + di + dir. + a c. di + ed. + illus. + trad. da + a c. di e 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. + + + primavera + estate + autunno + inverno + + 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,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + アクセス + と + and others + anonymous + anon + at + available at + by + circa + c. + cited + + edition + editions + + ed + 他 + 近刊 + から + 前掲 + + in press + internet + interview + letter + no date + 日付なし + online + presented at the + + reference + references + + + ref. + refs. + + 読み込み + scale + version + + + AD + BC + + + 「 + 」 + 『 + 』 + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + 行 + 行 + + + note + notes + + + opus + opera + + + ページ + ページ + + + ページ + ページ + + + 段落 + 段落 + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + 号 + l. + n. + op + + p + p + + + p + p + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + 編集者 + 編集者 + + + editor + editors + + + illustrator + illustrators + + + 翻訳者 + 翻訳者 + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + 編集者 + 編集者 + + + ed. + eds. + + + ill. + ills. + + + 翻訳者 + 翻訳者 + + + ed. & tran. + eds. & trans. + + + + directed by + 編集者： + edited by + illustrated by + interview by + to + by + 翻訳者： + edited & translated by + + + by + dir. + ed + ed. + illus. + trans + ed. & trans. by + + + 1月 + 2月 + 3月 + 4月 + 5月 + 6月 + 7月 + 8月 + 9月 + 10月 + 11月 + 12月 + + + 1月 + 2月 + 3月 + 4月 + 5月 + 6月 + 7月 + 8月 + 9月 + 10月 + 11月 + 12月 + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-km-KH.xml b/locales/locales-km-KH.xml new file mode 100644 --- /dev/null +++ b/locales/locales-km-KH.xml @@ -0,0 +1,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon. + at + available at + by + circa + c. + cited + + edition + editions + + ed. + et al. + forthcoming + from + ibid + in + in press + internet + interview + letter + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + scale + version + + + AD + BC + + + “ + ” + ‘ + ’ + – + + + th + st + nd + rd + th + th + th + + + ទីមួយ + ទីពីរ + ទីបី + ទីបួន + ទីប្រាំ + ទីប្រាំមួយ + ទីប្រាំពីរ + ទីប្រាំបី + ទីប្រាំបួន + ទីដប់មួយ + + + + សៀវភៅ + សៀវភៅ + + + ជំពូក + ជំពូក + + + កាឡោន + កាឡោន + + + តួលេខ + តួលេខ + + + folio + folios + + + ចំនួន + ចំនួន + + + បន្ទាត់ + បន្ទាត់ + + + កំណត់ចំណាំ + កំណត់ចំណាំ + + + opus + opera + + + ទំព័រ + ទំព័រ + + + ទំព័រ + ទំព័រ + + + កថាខណ្ឌ + កថាខណ្ឌ + + + ជំពូក + ជំពូក + + + ផ្នែក + ផ្នែក + + + sub verbo + sub verbis + + + verse + verses + + + វ៉ុល + វ៉ុល + + + + bk. + chap. + col. + fig. + f. + no. + l. + n. + op. + + p. + pp. + + + p. + pp. + + para. + pt. + sec. + + s.v. + s.vv. + + + v. + vv. + + + vol. + vols. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + editor + editors + + + + editors + + + illustrator + illustrators + + + translator + translator + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + ed. + eds. + + + ed. + eds. + + + ill. + ills. + + + tran. + trans. + + + ed. & tran. + eds. & trans. + + + + directed by + edited by + edited by + illustrated by + interview by + to + by + translated by + edited & translated by + + + by + dir. + ed. + ed. + illus. + trans. + ed. & trans. by + + + មករា + កុម្ភៈ + មីនា + មេសា + ឧសភា + មិថុនា + កក្កដា + សីហា + កញ្ញា + តុលា + វិច្ឆិកា + ធ្នូ + + + Jan. + Feb. + Mar. + Apr. + May + Jun. + Jul. + Aug. + Sep. + Oct. + Nov. + Dec. + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-ko-KR.xml b/locales/locales-ko-KR.xml new file mode 100644 --- /dev/null +++ b/locales/locales-ko-KR.xml @@ -0,0 +1,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + 접근된 + 와/과 + and others + anonymous + anon + at + available at + by + circa + c. + cited + + edition + editions + + ed + 기타 + 근간 + (으)로부터 + ibid. + in + in press + internet + interview + letter + no date + 일자 없음 + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + scale + version + + + AD + BC + + + “ + ” + ‘ + ’ + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + 행 + 행 + + + note + notes + + + opus + opera + + + 페이지 + 페이지 + + + 페이지 + 페이지 + + + 단락 + 단락 + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + 호 + l. + n. + op + + p + pp + + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + 편집자 + 편집자 + + + editor + editors + + + illustrator + illustrators + + + 번역자 + 번역자 + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + 편집자 + 편집자 + + + ed. + eds. + + + ill. + ills. + + + 번역자 + 번역자 + + + ed. & tran. + eds. & trans. + + + + directed by + 편집자： + edited by + illustrated by + interview by + to + by + 번역자： + edited & translated by + + + by + dir. + ed + ed. + illus. + trans + ed. & trans. by + + + 1월 + 2월 + 3월 + 4월 + 5월 + 6월 + 7월 + 8월 + 9월 + 10월 + 11월 + 12월 + + + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-lt-LT.xml b/locales/locales-lt-LT.xml new file mode 100644 --- /dev/null +++ b/locales/locales-lt-LT.xml @@ -0,0 +1,313 @@ + + + + + Valdemaras Klumbys + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + + + + + žiūrėta + ir + ir kt. + anonimas + anon. + + available at + + circa + ca. + cituojama pagal + + leidimas + leidimai + + leid. + et al. + ruošiamas + + ibid. + + spaudoje + prieiga per internetą + interviu + laiškas + sine anno + s.a. + interaktyvus + pristatytas + + nuoroda + nuorodos + + + nuor. + nuor. + + gauta + scale + version + + + po Kr. + pr. Kr. + + + „ + “ + , + ‘ + – + + + -asis + + + pirmasis + antrasis + trečiasis + ketvirtasis + penktasis + šeštasis + septintasis + aštuntasis + devintasis + dešimtasis + + + + knyga + knygos + + + skyrius + skyriai + + + skiltis + skiltys + + + iliustracija + iliustracijos + + + lapas + lapai + + + numeris + numeriai + + + eilutė + eilutės + + + pastaba + pastabos + + + opus + opera + + + puslapis + puslapiai + + + puslapis + puslapiai + + + pastraipa + pastraipos + + + dalis + dalys + + + poskyris + poskyriai + + + žiūrėk + žiūrėk + + + eilėraštis + eilėraščiai + + + tomas + tomai + + + + kn. + sk. + skilt. + il. + l. + nr. + l. + n. + op. + + p. + p. + + + p. + p. + + pastr. + d. + posk. + + žr. + žr. + + + eilėr. + eilėr. + + + t. + t. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + sudarytojas + sudarytojai + + + atsakingasis redaktorius + atsakingieji redaktoriai + + + illustrator + illustrators + + + vertėjas + vertėjai + + + sudarytojas ir vertėjas + sudarytojai ir vertėjai + + + + + dir. + dirs. + + + sud. + sud. + + + ats. red. + ats. red. + + + ill. + ills. + + + vert. + vert. + + + sud. ir vert. + sud. ir vert. + + + + directed by + sudarė + parengė + illustrated by + interviu ėmė + gavo + by + vertė + sudarė ir vertė + + + + dir. + sud. + pareng. + illus. + vert. + sud. ir vert. + + + sausio + vasario + kovo + balandžio + gegužės + birželio + liepos + rugpjūčio + rugsėjo + spalio + lapkričio + gruodžio + + + saus. + vas. + kovo + bal. + geg. + birž. + liep. + rugpj. + rugs. + spal. + lapkr. + gruodž. + + + pavasaris + vasara + ruduo + žiema + + diff --git a/locales/locales-lv-LV.xml b/locales/locales-lv-LV.xml new file mode 100644 --- /dev/null +++ b/locales/locales-lv-LV.xml @@ -0,0 +1,361 @@ + + + + + Andris Lupgins + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-12-27T11:40:58+02:00 + + + + + + + + + + + + + + + + skatīts + m.ē. + un + un citi + anonīms + anon. + + pieejams + p.m.ē. + + apmēram + apm. + citēts + + redakcija + redakcijas + + red. + u.c. + gaidāms + no + turpat + no + presē + internets + intervija + vēstule + bez datuma + b.g. + tiešsaiste + iesniegts + + atsauce + atsauces + + + ats. + ats. + + iegūts + mērogs + versija + + + " + " + " + " + – + + + -ais + -ā + + + pirmais + otrais + trešais + ceturtais + piektais + sestais + septītais + astotais + devītais + desmitais + + pirmā + otrā + trešā + ceturtā + piektā + sestā + septītā + astotā + devītā + desmitā + + + + grāmata + grāmatas + + + nodaļa + nodaļas + + + sleja + slejas + + + ilustrācija + ilustrācijas + + + folio + folio + + + numurs + numuri + + + rinda + rindas + + + piezīme + piezīmes + + + opuss + opusi + + + lappuse + lappuses + + + lappuse + lappuses + + + rindkopa + rindkopas + + + daļa + daļas + + + apakšnodaļa + apakšnodaļas + + + skatīt + skatīt + + + pants + panti + + + sējums + sējumi + + + + grām. + nod. + sl. + il. + fo. + nr. + r. + piez. + op. + + lpp. + lpp. + + + lpp. + lpp. + + rindk. + d. + apakšnod. + + sk. + sk. + + + p. + p. + + + sēj. + sēj. + + + + + + ¶¶ + + + § + §§ + + + + + krājuma redaktors + krājuma redaktori + + + sastādītājs + sastādītāji + + + pamatmateriāla autors + pamatmateriāla autori + + + vadītājs + vadītāji + + + redaktors + redaktors + + + galvenais redaktors + galvenie redaktori + + + redaktors un tulkotājs + redaktors un tulkotājs + + + ilustrators + ilustratori + + + intervētājs + intervētāji + + + saņēmējs + saņēmēji + + + tulkotājs + tulkotāji + + + + + kr. red. + kr. red. + + + sast. + sast. + + + pamatmat. aut. + pamatmat. aut. + + + vad. + vad. + + + red. + red. + + + galv. red. + galv. red. + + + red. un tulk. + red. un tulk. + + + ilustr. + ilustr. + + + interv. + interv. + + + saņ. + saņ. + + + tulk. + tulk. + + + + sastādīja + vadīja + sagatavoja + sagatavoja + sagatavoja un tulkoja + ilustrēja + intervēja + saņēma + tulkoja + + + + sast. + sag. + sag. + ilustr. + tulk. + sag. un tulk. + + + janvārī + februārī + martā + aprīlī + maijā + jūnijā + jūlijā + augustā + septembrī + oktobrī + novembrī + decembrī + + + janv. + febr. + mar. + apr. + mai. + jūn. + jūl. + aug. + sept. + okt. + nov. + dec. + + + pavasaris + vasara + rudens + ziema + + 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,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + accessed + and + and others + anonymous + anon + at + available at + by + circa + c. + cited + + edition + editions + + ed + et al. + forthcoming + from + ibid. + in + in press + internet + interview + letter + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + scale + version + + + AD + BC + + + « + » + „ + “ + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + lines + + + note + notes + + + opus + opera + + + page + pages + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + l. + n. + op + + p + pp + + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + editor + editors + + + editor + editors + + + illustrator + illustrators + + + translator + translators + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + ed + eds + + + ed. + eds. + + + ill. + ills. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + directed by + edited by + edited by + illustrated by + interview by + to + by + translated by + edited & translated by + + + by + dir. + ed + ed. + illus. + trans + ed. & trans. by + + + January + February + March + April + May + June + July + August + September + October + November + December + + + Jan + Feb + Mar + Apr + May + Jun + Jul + Aug + Sep + Oct + Nov + Dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-nb-NO.xml b/locales/locales-nb-NO.xml new file mode 100644 --- /dev/null +++ b/locales/locales-nb-NO.xml @@ -0,0 +1,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2013-03-01T12:20:00+01:00 + + + + + + + + + + + + + + åpnet + og + med flere + anonym + anon. + på + tilgjengelig på + av + circa + ca. + sitert + + utgave + utgaver + + utg. + mfl. + kommende + fra + ibid. + i + i trykk + Internett + intervju + brev + ingen dato + udatert + online + presentert på + + referanse + referanser + + + ref. + refr. + + hentet + målestokk + versjon + + + fvt. + evt. + + + « + » + ‘ + ’ + – + + + . + + + første + andre + tredje + fjerde + femte + sjette + sjuende + åttende + niende + tiende + + + + bok + bøker + + + kapittel + kapitler + + + kolonne + kolonner + + + figur + figurer + + + folio + folioer + + + nummer + numre + + + linje + linjer + + + note + noter + + + opus + opus + + + side + sider + + + side + sider + + + avsnitt + avsnitt + + + del + deler + + + paragraf + paragrafer + + + sub verbo + sub verbis + + + vers + vers + + + bind + bind + + + + b. + kap. + kol. + fig. + fol. + nr. + l. + n. + op. + + s. + s. + + + s. + s. + + avsn. + d. + pargr. + + s.v. + s.vv. + + + v. + v. + + + bd. + bd. + + + + + + ¶¶ + + + § + §§ + + + + + regissør + regissører + + + redaktør + redaktører + + + redaktør + redaktører + + + illustratør + illustratører + + + oversetter + oversettere + + + redaktør & oversetter + redaktører & oversettere + + + + + regi + regi + + + red. + red. + + + red. + red. + + + ill. + ills. + + + overs. + overs. + + + red. & overs. + red. & overs. + + + + regissert av + redigert av + redigert av + illustrert av + intervjuet av + til + av + oversatt av + redigert & oversatt av + + + av + regi + red. + red. + illus. + overs. + red. & overs. av + + + januar + februar + mars + april + mai + juni + juli + august + september + oktober + november + desember + + + jan. + feb. + mar. + apr. + mai + jun. + jul. + aug. + sep. + okt. + nov. + des. + + + vår + sommer + høst + vinter + + diff --git a/locales/locales-nl-NL.xml b/locales/locales-nl-NL.xml new file mode 100644 --- /dev/null +++ b/locales/locales-nl-NL.xml @@ -0,0 +1,328 @@ + + + + + Rintze Zelle + http://twitter.com/rintzezelle + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + geraadpleegd + en + en anderen + anoniem + anon. + bij + beschikbaar op + door + circa + c. + geciteerd + + editie + edities + + ed. + e.a. + in voorbereiding + van + ibid. + in + in druk + internet + interview + brief + zonder datum + z.d. + online + gepresenteerd bij + + referentie + referenties + + + ref. + refs. + + geraadpleegd + schaal + versie + + + AD + BC + + + “ + ” + ‘ + ’ + – + + + ste + de + de + de + de + de + de + de + de + de + de + de + de + de + de + de + de + de + de + + + eerste + tweede + derde + vierde + vijfde + zesde + zevende + achtste + negende + tiende + + + + boek + boeken + + + hoofdstuk + hoofdstukken + + + column + columns + + + figuur + figuren + + + folio + folio's + + + nummer + nummers + + + regel + regels + + + aantekening + aantekeningen + + + opus + opera + + + pagina + pagina's + + + pagina + pagina's + + + paragraaf + paragrafen + + + deel + delen + + + sectie + secties + + + sub verbo + sub verbis + + + vers + versen + + + volume + volumes + + + + bk. + hfdst. + col. + fig. + f. + nr. + l. + n. + op. + + p. + pp. + + + p. + pp. + + par. + deel + sec. + + s.v. + s.vv. + + + v. + vv. + + + vol. + vols. + + + + + + ¶¶ + + + § + §§ + + + + + regisseur + regisseurs + + + redacteur + redacteuren + + + redacteur + redacteuren + + + illustrator + illustrators + + + vertaler + vertalers + + + redacteur & vertaler + redacteuren & vertalers + + + + + reg. + reg. + + + red. + red. + + + red. + red. + + + ill. + ill. + + + vert. + vert. + + + red. & vert. + red. & vert. + + + + geregisseerd door + bewerkt door + bewerkt door + geïllustreerd door + geïnterviewd door + ontvangen door + door + vertaald door + bewerkt & vertaald door + + + door + geregisseerd door + bewerkt door + bewerkt door + geïllustreerd door + vertaald door + bewerkt & vertaald door + + + januari + februari + maart + april + mei + juni + juli + augustus + september + oktober + november + december + + + jan. + feb. + mrt. + apr. + mei + jun. + jul. + aug. + sep. + okt. + nov. + dec. + + + lente + zomer + herst + winter + + diff --git a/locales/locales-nn-NO.xml b/locales/locales-nn-NO.xml new file mode 100644 --- /dev/null +++ b/locales/locales-nn-NO.xml @@ -0,0 +1,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2013-03-01T12:20:00+01:00 + + + + + + + + + + + + + + vitja + og + med fleire + anonym + anon. + på + tilgjengeleg på + av + circa + ca. + sitert + + utgåve + utgåver + + utg. + mfl. + kommande + frå + ibid. + i + i trykk + Internett + intervju + brev + ingen dato + udatert + online + presentert på + + referanse + referansar + + + ref. + refr. + + henta + målestokk + versjon + + + fvt. + evt. + + + « + » + ‘ + ’ + – + + + . + + + første + andre + tredje + fjerde + femte + sjette + sjuande + åttande + niande + tiande + + + + bok + bøker + + + kapittel + kapittel + + + kolonne + kolonner + + + figur + figurar + + + folio + folioar + + + nummer + nummer + + + linje + linjer + + + note + notar + + + opus + opus + + + side + sider + + + side + sider + + + avsnitt + avsnitt + + + del + deler + + + paragraf + paragrafar + + + sub verbo + sub verbis + + + vers + vers + + + bind + bind + + + + b. + kap. + kol. + fig. + fol. + nr. + l. + n. + op. + + s. + s. + + + s. + s. + + avsn. + d. + par. + + s.v. + s.vv. + + + v. + v. + + + bd. + bd. + + + + + + ¶¶ + + + § + §§ + + + + + regissør + regissørar + + + redaktør + redaktørar + + + redaktør + redaktørar + + + illustratør + illustratørar + + + omsetjar + omsetjarar + + + redaktør & omsetjar + redaktørar & omsetjarar + + + + + regi + regi + + + red. + red. + + + red. + red. + + + ill. + ills. + + + oms. + oms. + + + red. & oms. + red. & oms. + + + + regissert av + redigert av + redigert av + illustrert av + intervjua av + til + av + omsett av + redigert & omsett av + + + av + regi + red. + red. + illus. + oms. + red. & oms. av + + + januar + februar + mars + april + mai + juni + juli + august + september + oktober + november + desember + + + jan. + feb. + mar. + apr. + mai + jun. + jul. + aug. + sep. + okt. + nov. + des. + + + vår + sommar + haust + vinter + + diff --git a/locales/locales-pl-PL.xml b/locales/locales-pl-PL.xml new file mode 100644 --- /dev/null +++ b/locales/locales-pl-PL.xml @@ -0,0 +1,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + udostępniono + i + i inni + anonim + anon. + na + dostępne na + przez + około + ok + cytowane + + wydanie + wydania + + wyd. + i in. + w przygotowaniu + z + ibid. + w + w druku + internet + wywiad + list + brak daty + b.d. + online + zaprezentowano na + + referencja + referencje + + + ref. + ref. + + pobrano + skala + wersja + + + n.e. + p.n.e. + + + „ + ” + « + » + – + + + . + + + pierwszy + drugi + trzeci + czwarty + piąty + szósty + siódmy + ósmy + dziewiąty + dziesiąty + + + + książka + książki + + + rozdział + rozdziały + + + kolumna + kolumny + + + rycina + ryciny + + + folio + folio + + + numer + numery + + + wers + wersy + + + notatka + notatki + + + opus + opera + + + strona + strony + + + strona + strony + + + akapit + akapity + + + część + części + + + sekcja + sekcje + + + sub verbo + sub verbis + + + wers + wersy + + + tom + tomy + + + + książka + rozdz. + kol. + ryc. + fol. + nr + l. + n. + op. + + s. + ss. + + + s. + ss. + + akap. + cz. + sekc. + + s.v. + s.vv. + + + w. + w. + + + t. + t. + + + + + + ¶¶ + + + § + §§ + + + + + reżyser + reżyserzy + + + redaktor + redaktorzy + + + edytor + edytorzy + + + ilustrator + ilustratorzy + + + tłumacz + tłumacze + + + redaktor & tłumacz + redaktorzy & tłumacze + + + + + dyr. + dyr. + + + red. + red. + + + red. + red. + + + il. + il. + + + tłum. + tłum. + + + red.tłum. + red.tłum. + + + + directed by + zredagowane przez + zredagowane przez + ilustrowane przez by + przeprowadzony przez + dla + przez + przetłumaczone przez + zredagowane i przetłumaczone przez + + + przez + dir. + red. + red. + il. + tłum. + red.tłum. + + + styczeń + luty + marzec + kwiecień + maj + czerwiec + lipiec + sierpień + wrzesień + październik + listopad + grudzień + + + sty. + luty + mar. + kwi. + maj + cze. + lip. + sie. + wrz. + paź. + lis. + grudz. + + + wiosna + lato + jesień + zima + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + acessado + e + e outros + anônimo + anon + em + available at + por + circa + c. + citado + + edição + edições + + ed + et al. + a ser publicado + de + ibidem + in + no prelo + internet + entrevista + carta + sem data + [s.d.] + online + apresentado em + + referência + referências + + + ref. + refs. + + recuperado + scale + version + + + AD + BC + + + “ + ” + ‘ + ’ + – + + + º + + + primeiro + segundo + terceiro + quarto + quinto + sexto + sétimo + oitavo + nono + décimo + + + + livro + livros + + + capítulo + capítulos + + + coluna + colunas + + + figura + figuras + + + folio + folios + + + número + números + + + linha + linhas + + + nota + notas + + + opus + opera + + + página + páginas + + + página + páginas + + + parágrafo + parágrafos + + + parte + partes + + + seção + seções + + + sub verbo + sub verbis + + + verso + versos + + + volume + volumes + + + + liv. + cap. + col. + fig. + f. + nº + l. + n. + op. + + p. + p. + + + p. + p. + + parag. + pt. + seç. + + s.v. + s.vv. + + + v. + vv. + + + vol. + vols. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + organizador + organizadores + + + editor + editors + + + illustrator + illustrators + + + tradutor + tradutores + + + editor e tradutor + editores e tradutores + + + + + dir. + dirs. + + + org. + orgs. + + + ed. + eds. + + + ill. + ills. + + + trad. + trads. + + + ed. e trad. + eds. e trads. + + + + directed by + organizado por + editado por + illustrated by + entrevista de + para + by + traduzido por + editado & traduzido por + + + por + dir. + org. + ed. + illus. + trad. + ed. e trad. por + + + janeiro + fevereiro + março + abril + maio + junho + julho + agosto + setembro + outubro + novembro + dezembro + + + jan. + fev. + mar. + abr. + maio + jun. + jul. + ago. + set. + out. + nov. + dez. + + + Primavera + Verão + Outono + Inverno + + 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,320 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2013-09-20T23:31:02+00:00 + + Jonadabe PT + + + + + + + + + + + + + + + acedido + e + e outros + anónimo + anón. + em + disponível em + por + circa + c. + citado + + edição + edições + + ed. + et al. + a publicar + de + ibid. + em + no prelo + internet + entrevista + carta + sem data + sem data + em linha + apresentado na + + referência + referências + + + ref. + refs. + + obtido + scale + versão + + + AD + BC + + + « + » + “ + ” + – + + + .º + .ª + + + primeiro + primeira + segundo + segunda + terceiro + terceira + quarto + quarta + quinto + quinta + sexto + sexta + sétimo + sétima + oitavo + oitava + nono + nona + décimo + décima + + + + livro + livros + + + capítulo + capítulos + + + coluna + colunas + + + figura + figuras + + + fólio + fólios + + + número + números + + + linha + linhas + + + nota + notas + + + opus + opera + + + página + páginas + + + página + páginas + + + parágrafo + parágrafos + + + parte + partes + + + secção + secções + + + sub verbo + sub verbis + + + versículo + versículos + + + volume + volumes + + + + liv. + cap. + col. + fig. + f. + n. + l. + n. + op. + + p. + pp. + + + p. + pp. + + par. + pt. + sec. + + s.v. + s.vv. + + + v + vv + + + vol. + vols. + + + + + + ¶¶ + + + § + §§ + + + + + director + directores + + + editor + editores + + + editor + editores + + + ilustrador + ilustradores + + + tradutor + tradutores + + + editor & tradutor + editores & tradutores + + + + + dir. + dirs. + + + ed. + eds. + + + ed. + eds. + + + il. + ils. + + + trad. + trads. + + + ed. & trad. + eds. & trads. + + + + dirigido por + editado por + editorial de + ilustrado por + entrevistado por + para + revisto por + traduzido por + editado & traduzido por + + + por + dir. + ed. + ed. + ilus. + trad. + ed. & trad. por + + + 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. + + + Primavera + Verão + Outono + Inverno + + 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,311 @@ + + + + + Nicolae Turcan + nturcan@gmail.com + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + data accesării + și + și alții + anonim + anon. + la + valabil la + de + circa + cca. + citat + + ediția + edițiile + + ed + et al. + în curs de apariție + din + ibidem + în + sub tipar + internet + interviu + scrisoare + fără dată + f.a. + online + prezentat la + + referință + referințe + + + ref. + ref. + + preluat în + scală + versiunea + + + d.Hr. + î.Hr. + + + „ + ” + « + » + - + + + -lea + + + + primul + al doilea + al treilea + al patrulea + al cincilea + al șaselea + al șaptelea + al optulea + al nouălea + al zecelea + + + + cartea + cărțile + + + capitolul + capitolele + + + coloana + coloanele + + + figura + figurile + + + folio + folio + + + numărul + numerele + + + linia + liniile + + + nota + notele + + + opusul + opusurile + + + pagina + paginile + + + pagina + paginile + + + paragraful + paragrafele + + + partea + părțile + + + secțiunea + secțiunile + + + sub verbo + sub verbis + + + versetul + versetele + + + volumul + volumele + + + + cart. + cap. + col. + fig. + fol. + nr. + l. + n. + op. + + p. + pp. + + + p. + pp. + + par. + part. + sec. + + s.v. + s.vv. + + + v. + vv. + + + vol. + vol. + + + + + + ¶¶ + + + § + §§ + + + + + director + directori + + + editor + editori + + + editor + editori + + + ilustrator + ilustratori + + + traducător + traducători + + + editor & traducător + editori & traducători + + + + + dir. + dir. + + + ed. + ed. + + + ed. + ed. + + + ilustr. + ilustr. + + + trad. + trad. + + + ed. & trad. + ed. & trad. + + + + coordonat de + ediție de + ediție de + ilustrații de + interviu de + în + de + traducere de + ediție & traducere de + + + de + dir. + ed. + ed. + ilustr. + trad. + ed. & trad. de + + + ianuarie + februarie + martie + aprilie + mai + iunie + iulie + august + septembrie + octombrie + noiembrie + decembrie + + + ian. + feb. + mar. + apr. + mai + iun. + iul. + aug. + sep. + oct. + nov. + dec. + + + primăvara + vara + toamna + iarna + + 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,311 @@ + + + + + Alexei Kouprianov + alexei.kouprianov@gmail.com + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + просмотрено + и + и др. + аноним + анон. + на + available at + + circa + ca. + цитируется по + цит. по + + издание + издания + + изд. + и др. + ожидается + от + там же + в + в печати + Интернет + интервью + письмо + без даты + б. д. + online + представлено на + + reference + references + + + ref. + refs. + + извлечено + scale + version + + + н. э. + до н. э. + + + « + » + „ + “ + – + + + й + + + первый + второй + третий + четвертый + пятый + шестой + седьмой + восьмой + девятый + десятый + + + + книга + книги + + + глава + главы + + + столбец + столбцы + + + рисунок + рисунки + + + лист + листы + + + выпуск + выпуски + + + строка + строки + + + примечание + примечания + + + сочинение + сочинения + + + страница + страницы + + + страница + страницы + + + параграф + параграфы + + + часть + части + + + раздел + разделы + + + смотри + смотри + + + стих + стихи + + + том + тома + + + + кн. + гл. + стб. + рис. + л. + № + l. + n. + соч. + + с. + с. + + + с. + с. + + пара. + ч. + разд. + + см. + см. + + + ст. + ст. + + + т. + тт. + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + редактор + редакторы + + + ответственный редактор + ответственные редакторы + + + illustrator + illustrators + + + переводчик + переводчики + + + редактор и переводчик + редакторы и переводчики + + + + + dir. + dirs. + + + ред. + ред. + + + отв. ред. + отв. ред. + + + ill. + ills. + + + перев. + перев. + + + ред. и перев. + ред. и перев. + + + + directed by + отредактировано + отредактировано + illustrated by + интервью + к + by + переведено + отредактировано и переведено + + + + dir. + ред. + отв. ред. + illus. + перев. + ред. и перев. + + + январь + февраль + март + апрель + май + июнь + июль + август + сентябрь + октябрь + ноябрь + декабрь + + + янв. + фев. + мар. + апр. + май + июн. + июл. + авг. + сен. + окт. + ноя. + дек. + + + весна + лета + осень + зима + + 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,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2014-03-09T22:23:31+00:00 + + + + + + + + + + + + + + cit + a + a ďalší + anonym + anon. + v + available at + by + circa + cca. + cit + + vydanie + vydania + + vyd. + et al. + nadchádzajúci + z + ibid. + v + v tlači + internet + osobná komunikácia + list + no date + n.d. + online + prezentované na + + reference + references + + + ref. + refs. + + cit + scale + version + + + po Kr. + pred Kr. + + + “ + ” + ‘ + ’ + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + 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 + + + strana + strany + + + odstavec + odstavce + + + časť + časti + + + sekcia + sekcie + + + sub verbo + sub verbis + + + verš + verše + + + ročník + ročníky + + + + k. + kap. + stĺp. + obr. + l. + č. + l. + n. + op. + + s. + s. + + + s. + s. + + par. + č. + sek. + + s.v. + s.vv. + + + v. + v. + + + roč. + roč. + + + + + + + + + § + § + + + + + director + directors + + + editor + editori + + + zostavovateľ + zostavovatelia + + + illustrator + illustrators + + + prekladateľ + prekladatelia + + + zostavovateľ & prekladateľ + zostavovatelia & prekladatelia + + + + + dir. + dirs. + + + ed. + ed. + + + zost. + zost. + + + ill. + ills. + + + prel. + prel. + + + ed. & tran. + eds. & trans. + + + + directed by + zostavil + zostavil + illustrated by + rozhovor urobil + adresát + by + preložil + zostavil & preložil + + + by + dir. + ed. + ed. + illus. + prel. + zost. & 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. + + + Jar + Leto + Jeseň + Zima + + 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,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + dostopano + in + in drugi + anonimni + anon + pri + available at + by + circa + c. + citirano + + izdaja + izdaje + + iz + idr. + pred izidom + od + isto + v + v tisku + internet + intervju + pismo + no date + b.d. + na spletu + predstavljeno na + + reference + references + + + ref. + refs. + + pridobljeno + scale + version + + + AD + BC + + + „ + “ + ‚ + ‘ + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + knjiga + knjige + + + poglavje + poglavja + + + stolpec + stolpci + + + slika + slike + + + folio + folii + + + številka + številke + + + vrstica + vrstice + + + opomba + opombe + + + opus + opera + + + stran + strani + + + stran + strani + + + odstavek + odstavki + + + del + deli + + + odsek + odseki + + + sub verbo + sub verbis + + + verz + verzi + + + letnik + letniki + + + + knj + pogl + sto + sl + f + št + l. + n. + op + + str + str + + + str + str + + odst + del + odsk + + s.v. + s.vv. + + + v + v + + + let + let + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + urednik + uredniki + + + editor + editors + + + illustrator + illustrators + + + prevajalec + prevajalci + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + ur + ur + + + ed. + eds. + + + ill. + ills. + + + prev + prev + + + ed. & tran. + eds. & trans. + + + + directed by + uredil + edited by + illustrated by + intervjuval + za + by + prevedel + edited & translated by + + + by + dir. + ur + ed. + illus. + prev + ed. & trans. by + + + januar + februar + marec + april + maj + junij + julij + avgust + september + oktober + november + december + + + jan + feb + mar + apr + maj + jun + jul + avg + sep + okt + nov + dec + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-sr-RS.xml b/locales/locales-sr-RS.xml new file mode 100644 --- /dev/null +++ b/locales/locales-sr-RS.xml @@ -0,0 +1,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + приступљено + и + и остали + анонимна + анон. + на + available at + by + circa + c. + цитирано + + издање + издања + + изд. + и остали + долазећи + од + ibid. + у + у штампи + Интернет + интервју + писмо + no date + без датума + на Интернету + представљено на + + reference + references + + + ref. + refs. + + преузето + scale + version + + + AD + BC + + + „ + “ + ‚ + ‘ + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + књига + књиге + + + поглавље + поглавља + + + колона + колоне + + + цртеж + цртежи + + + фолио + фолији + + + број + бројеви + + + линија + линије + + + белешка + белешке + + + опус + опера + + + страница + странице + + + страница + странице + + + параграф + параграфи + + + део + делова + + + одељак + одељака + + + sub verbo + sub verbis + + + строфа + строфе + + + том + томова + + + + књига + Пог. + кол. + црт. + фолио + изд. + l. + n. + оп. + + стр. + стр. + + + стр. + стр. + + пар. + део + од. + + s.v. + s.vv. + + + стр. + стр. + + + том + томови + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + уредник + урединици + + + editor + editors + + + illustrator + illustrators + + + преводилац + преводиоци + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + ур. + ур. + + + ed. + eds. + + + ill. + ills. + + + прев. + прев. + + + ed. & tran. + eds. & trans. + + + + directed by + уредио + edited by + illustrated by + интервјуисао + прима + by + превео + edited & translated by + + + by + dir. + ур. + ed. + illus. + прев. + ed. & trans. by + + + Јануар + Фебруар + Март + Април + Мај + Јуни + Јули + Август + Септембар + Октобар + Новембар + Децембар + + + Јан. + Феб. + Март + Апр. + Мај + Јуни + Јули + Авг. + Сеп. + Окт. + Нов. + Дец. + + + Spring + Summer + Autumn + Winter + + 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,310 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + åtkomstdatum + och + och andra + anonym + anon + vid + tillgänglig vid + av + cirka + ca + citerad + + upplaga + upplagor + + uppl + m.fl. + kommande + från + ibid. + i + i tryck + internet + intervju + brev + inget datum + nd + online + presenterad vid + + referens + referenser + + + ref. + refs. + + hämtad + scale + version + + + e. Kr. + f. Kr. + + + ” + ” + ’ + ’ + – + + + e + a + a + e + e + + + första + andra + tredje + fjärde + femte + sjätte + sjunde + åttonde + nionde + tionde + + + + bok + böcker + + + kapitel + kapitel + + + kolumn + kolumner + + + figur + figurer + + + folio + folios + + + nummer + nummer + + + rad + rader + + + not + noter + + + opus + opera + + + sida + sidor + + + sida + sidor + + + stycke + stycken + + + del + delar + + + avsnitt + avsnitt + + + sub verbo + sub verbis + + + vers + verser + + + volym + volumer + + + + bok + kap + kol + fig + f + num + l. + n. + op + + s + ss + + + s + ss + + st + del + avs + + s.v. + s.vv. + + + vers + verser + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + redaktör + redaktörer + + + editor + editors + + + illustratör + illustratörer + + + översättare + översättare + + + redaktör & översättare + redaktörer & översättare + + + + + dir. + dirs. + + + red + reds + + + ed. + eds. + + + ill. + ills. + + + övers + övers + + + ed. & tran. + eds. & trans. + + + + directed by + redigerad av + edited by + illustrated by + intervju av + till + by + översatt av + edited & translated by + + + by + dir. + red + ed. + illus. + övers + ed. & trans. by + + + januari + februari + mars + april + maj + juni + juli + augusti + september + oktober + november + december + + + jan + feb + mar + apr + maj + jun + jul + aug + sep + okt + nov + dec + + + vår + sommar + höst + vinter + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + สืบค้น + และ + และคณะ + นิรนาม + นิรนาม + ที่ + available at + โดย + โดยประมาณ + ประมาณ + อ้างถึง + + พิมพ์ครั้งที่ + พิมพ์ครั้งที่ + + พิมพ์ครั้งที่ + และคณะ + เต็มใจให้ข้อมูล + จาก + ในที่เดียวกัน + ใน + กำลังรอตีพิมพ์ + อินเทอร์เน็ต + การสัมภาษณ์ + จดหมาย + ไม่ปรากฏปีที่พิมพ์ + ม.ป.ป. + ออนไลน์ + นำเสนอที่ + + เอกสารอ้างอิง + เอกสารอ้างอิง + + + อ้างอิง + อ้างอิง + + สืบค้น + scale + version + + + ค.ศ. + พ.ศ. + + + “ + ” + ‘ + ’ + – + + + + + + หนึ่ง + สอง + สาม + สี่ + ห้า + หก + เจ็ด + แปด + เก้า + สิบ + + + + หนังสือ + หนังสือ + + + บทที่ + บทที่ + + + สดมภ์ + สดมภ์ + + + รูปภาพ + รูปภาพ + + + หน้า + หน้า + + + ฉบับที่ + ฉบับที่ + + + บรรทัดที่ + บรรทัดที่ + + + บันทึก + บันทึก + + + บทประพันธ์ + บทประพันธ์ + + + หน้า + หน้า + + + หน้า + หน้า + + + ย่อหน้า + ย่อหน้า + + + ส่วนย่อย + ส่วนย่อย + + + หมวด + หมวด + + + ใต้คำ + ใต้คำ + + + ร้อยกรอง + ร้อยกรอง + + + ปีที่ + ปีที่ + + + + หนังสือ + บทที่ + สดมภ์ + รูปภาพ + หน้า + ฉบับที่ + l. + n. + บทประพันธ์ + + น. + น. + + + น. + น. + + ย่อหน้า + ส่วนย่อย + หมวด + + ใต้คำ + ใต้คำ + + + ร้อยกรอง + ร้อยกรอง + + + ปี + ปี + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + บรรณาธิการ + บรรณาธิการ + + + ผู้อำนวยการบทบรรณาธิการ + ผู้อำนวยการบทบรรณาธิการ + + + illustrator + illustrators + + + ผู้แปล + ผู้แปล + + + บรรณาธิการและผู้แปล + บรรณาธิการและผู้แปล + + + + + dir. + dirs. + + + บ.ก. + บ.ก. + + + ผอ.บทบรรณาธิการ + ผอ.บทบรรณาธิการ + + + ill. + ills. + + + ผู้แปล + ผู้แปล + + + บ.ก. + บ.ก. + + + + directed by + เรียบเรียงโดย + เรียบเรียงโดย + illustrated by + สัมภาษณ์โดย + ถึง + by + แปลโดย + แปลและเรียบเรียงโดย + + + โดย + dir. + โดย + โดย + illus. + แปล + แปลและเรียบเรียงโดย + + + มกราคม + กุมภาพันธ์ + มีนาคม + เมษายน + พฤษภาคม + มิถุนายน + กรกฎาคม + สิงหาคม + กันยายน + ตุลาคาม + พฤศจิกายน + ธันวาคม + + + ม.ค. + ก.พ. + มี.ค. + เม.ย. + พ.ค. + มิ.ย. + ก.ค. + ส.ค. + ก.ย. + ต.ค. + พ.ย. + ธ.ค. + + + ฤดูใบไม้ผลิ + ฤดูร้อน + ฤดูใบไม้ร่วง + ฤดูหนาว + + 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,306 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + erişildi + ve + ve diğerleri + anonim + anonim + de + available at + by + circa + c. + kaynak + + baskı + baskı + + ed + ve diğerleri + gelecek + adresinden erişildi + ibid. + içinde + basımda + internet + kişisel iletişim + mektup + tarih yok + y.y. + çevrimiçi + sunulan + + reference + references + + + ref. + refs. + + tarihinde + scale + version + + + M.S + M.Ö. + + + « + » + ‹ + › + – + + + . + + + birinci + ikinci + üçüncü + dördüncü + beşinci + altıncı + yedinci + sekizinci + dokuzuncu + onuncu + + + + 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 + + + sayfa + sayfalar + + + paragraf + paragraflar + + + kısım + kısımlar + + + bölüm + bölümler + + + sub verbo + sub verbis + + + dize + dizeler + + + cilt + ciltler + + + + kit + böl + süt + şek + f + sayı + l. + n. + op + + s + ss + + + s + ss + + par + kıs + böl + + s.v. + s.vv. + + + v + vv + + + c + c + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + editör + editörler + + + editör + editör + + + illustrator + illustrators + + + çeviren + çevirenler + + + editör & çeviren + editörler & çevirenler + + + + + dir. + dirs. + + + ed + ed + + + ed. + ed. + + + ill. + ills. + + + çev. + çev. + + + ed. & çev. + ed. & çev. + + + + directed by + editör + düzenleyen + illustrated by + Röportaj yapan + to + by + çeviren + düzenleyen & çeviren by + + + + dir. + ed. + ed. + illus. + çev. + 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 + + + Bahar + Yaz + Sonbahar + Kış + + diff --git a/locales/locales-uk-UA.xml b/locales/locales-uk-UA.xml new file mode 100644 --- /dev/null +++ b/locales/locales-uk-UA.xml @@ -0,0 +1,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + accessed + і + та інші + анонімний + анон. + на + available at + by + circa + c. + cited + + edition + editions + + ed + et al. + forthcoming + із + ibid. + в + у пресі + інтернет + інтервю + лист + no date + n.d. + online + presented at the + + reference + references + + + ref. + refs. + + retrieved + scale + version + + + AD + BC + + + « + » + ‘ + ’ + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + line + lines + + + note + notes + + + opus + opera + + + page + pages + + + page + pages + + + paragraph + paragraph + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + no + l. + n. + op + + p + pp + + + p + pp + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + editor + editors + + + editor + editors + + + illustrator + illustrators + + + translator + translators + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + ed + eds + + + ed. + eds. + + + ill. + ills. + + + tran + trans + + + ed. & tran. + eds. & trans. + + + + directed by + edited by + edited by + illustrated by + interview by + to + by + translated by + edited & translated by + + + by + dir. + ed + ed. + illus. + trans + ed. & trans. by + + + Січень + Лютий + Березень + Квітень + Травень + Червень + Липень + Серпень + Вересень + Жовтень + Листопад + Грудень + + + Січ + Лют + Бер + Квіт + Трав + Чер + Лип + Сер + Вер + Жов + Лис + Груд + + + Spring + Summer + Autumn + Winter + + 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,312 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2012-07-04T23:31:02+00:00 + + + + + + + + + + + + + + truy cập + và + and others + anonymous + anon + at + available at + by + circa + c. + cited + + edition + editions + + ed + và c.s. + sắp tới + từ + n.t. + trong + in press + internet + interview + letter + no date + không ngày + online + presented at the + + reference + references + + + ref. + refs. + + truy vấn + scale + version + + + AD + BC + + + « + » + ‹ + › + – + + + th + st + nd + rd + th + th + th + + + first + second + third + fourth + fifth + sixth + seventh + eighth + ninth + tenth + + + + book + books + + + chapter + chapters + + + column + columns + + + figure + figures + + + folio + folios + + + number + numbers + + + dòng + dòng + + + note + notes + + + opus + opera + + + trang + trang + + + trang + trang + + + đoạn văn + đoạn văn + + + part + parts + + + section + sections + + + sub verbo + sub verbis + + + verse + verses + + + volume + volumes + + + + bk + chap + col + fig + f + số p.h + l. + n. + op + + tr + tr + + + tr + tr + + para + pt + sec + + s.v. + s.vv. + + + v + vv + + + vol + vols + + + + + + ¶¶ + + + § + §§ + + + + + director + directors + + + biên tập viên + biên tập viên + + + editor + editors + + + illustrator + illustrators + + + biên dịch viên + biên dịch viên + + + editor & translator + editors & translators + + + + + dir. + dirs. + + + b.t.v + b.t.v + + + ed. + eds. + + + ill. + ills. + + + b.d.v + b.d.v + + + ed. & tran. + eds. & trans. + + + + directed by + biên tập bởi + edited by + illustrated by + interview by + to + by + biên dịch bởi + edited & translated by + + + by + dir. + b.t + ed. + illus. + b.d + ed. & trans. by + + + Tháng Giêng + Tháng Hai + Tháng Ba + Tháng Tư + Tháng Năm + Tháng Sáu + Tháng Bảy + Tháng Tám + Tháng Chín + Tháng Mười + Tháng Mười-Một + Tháng Chạp + + + tháng 1 + tháng 2 + tháng 3 + tháng 4 + tháng 5 + tháng 6 + tháng 7 + tháng 8 + tháng 9 + tháng 10 + tháng 11 + tháng 12 + + + Spring + Summer + Autumn + Winter + + diff --git a/locales/locales-zh-CN.xml b/locales/locales-zh-CN.xml new file mode 100644 --- /dev/null +++ b/locales/locales-zh-CN.xml @@ -0,0 +1,196 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2014-05-15T23:31:02+00:00 + + + + + + + + + + + + + + 见於 + 及 + 及其他 + 作者不详 + 无名氏 + 於 + 载於 + 著 + 介于 + 约 + 见引於 + 版本 + 本 + 等 + 即将出版 + 从 + 同上 + 收入 + 送印中 + 网际网络 + 访谈 + 信函 + 日期不详 + 不详 + 在线 + 发表於 + 参考 + 参 + 取读于 + 比例 + 版 + + + 公元 + 公元前 + + + 《 + 》 + 〈 + 〉 + – + + + + + + 一 + 二 + 三 + 四 + 五 + 六 + 七 + 八 + 九 + 十 + + + 册 + 章 + 栏 + 图表 + 版 + 期 + 行 + 注脚 + 作品 + 页 + 总页数 + 段落 + 部分 + 节 + 另见 + 篇 + 卷 + + + 册 + 章 + 栏 + 图 + 版 + 期 + 行 + 注 + op. + 页 + 共 + 段 + 部 + 节 + 另见 + 篇 + 卷 + + + + + ¶¶ + + + § + §§ + + + + 导演 + 编辑 + 主编 + 绘图 + 翻译 + 编译 + + + 导演 + 编 + 主编 + 绘 + 译 + 编译 + + + 指导 + 编辑 + 主编 + 绘图 + 采访 + 受函 + 校订 + 翻译 + 编译 + + + 著 + 导 + 编 + 主编 + 绘 + 译 + 编译 + 校 + + + 一月 + 二月 + 三月 + 四月 + 五月 + 六月 + 七月 + 八月 + 九月 + 十月 + 十一月 + 十二月 + + + 1月 + 2月 + 3月 + 4月 + 5月 + 6月 + 7月 + 8月 + 9月 + 10月 + 11月 + 12月 + + + 春 + 夏 + 秋 + 冬 + + 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,196 @@ + + + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2014-05-15T23:31:02+00:00 + + + + + + + + + + + + + + 見於 + 及 + 及其他 + 作者不詳 + 無名氏 + 於 + 載於 + 著 + 介於 + 約 + 見引於 + 版本 + 本 + 等 + 即將出版 + 從 + 同上 + 收入 + 送印中 + 互聯網 + 訪談 + 信函 + 日期不詳 + 不詳 + 在線 + 發表於 + 參考 + 參 + 取讀於 + 比例 + 版 + + + 西元 + 西元前 + + + 「 + 」 + 『 + 』 + – + + + + + + 一 + 二 + 三 + 四 + 五 + 六 + 七 + 八 + 九 + 十 + + + 冊 + 章 + 欄 + 圖表 + 版 + 期 + 行 + 註腳 + 作品 + 頁 + 總頁數 + 段落 + 部分 + 節 + 另見 + 篇 + 卷 + + + 冊 + 章 + 欄 + 圖 + 版 + 期 + 行 + 註 + op. + 頁 + 共 + 段 + 部 + 節 + 另見 + 篇 + 卷 + + + + + ¶¶ + + + § + §§ + + + + 導演 + 編輯 + 主編 + 繪圖 + 翻譯 + 編譯 + + + 導演 + 編 + 主編 + 繪 + 譯 + 編譯 + + + 指導 + 編輯 + 主編 + 繪圖 + 採訪 + 受函 + 校訂 + 翻譯 + 編譯 + + + 著 + 導 + 編 + 主編 + 繪 + 譯 + 編譯 + 校 + + + 一月 + 二月 + 三月 + 四月 + 五月 + 六月 + 七月 + 八月 + 九月 + 十月 + 十一月 + 十二月 + + + 1月 + 2月 + 3月 + 4月 + 5月 + 6月 + 7月 + 8月 + 9月 + 10月 + 11月 + 12月 + + + 春 + 夏 + 秋 + 冬 + + diff --git a/man/man1/scholdoc-citeproc.1 b/man/man1/scholdoc-citeproc.1 new file mode 100644 --- /dev/null +++ b/man/man1/scholdoc-citeproc.1 @@ -0,0 +1,276 @@ +.TH "scholdoc\-citeproc" "1" "2014-10-16" "0.6" "" +.SH NAME +.PP +scholdoc\-citeproc \- filter to resolve citations in a Pandoc/Scholdoc +document. +.SH SYNOPSIS +.PP +scholdoc\-citeproc [options] [file..] +.SH DESCRIPTION +.PP +Scholdoc\-citeproc is a fork of \f[C]pandoc\-citeproc\f[], meant to be +used with Scholdoc instead of Pandoc. +.PP +The \f[C]scholdoc\-citeproc\f[] executable has two modes, filter mode +and convert mode. +.SS Filter mode +.PP +Run without options, it acts as a filter that takes a JSON\-encoded +Pandoc/Scholdoc document, formats citations and adds a bibliography, and +returns a JSON\-encoded scholdoc document. +Citations will be resolved, and a bibliography will be appended to the +end of the document (unless the \f[C]suppress\-bibliography\f[] metadata +field is set to a true value). +If you wish the bibliography to have a section header, put the section +header at the end of your document. +(See the \f[C]pandoc_markdown\f[] (5) man page under \[lq]Citations\[rq] +for details on how to encode citations in pandoc's markdown.) +.PP +To process citations with scholdoc, call scholdoc\-citeproc as a filter: +.IP +.nf +\f[C] +scholdoc\ \-\-filter\ scholdoc\-citeproc\ input.md\ \-s\ \-o\ output.html +\f[] +.fi +.PP +The bibliography will be put into a pandoc \f[C]Div\f[] container with +class \f[C]references\f[]. +.PP +scholdoc\-citeproc will look for the following metadata fields in the +input: +.PP +\f[C]bibliography\f[]: A path, or YAML list of paths, of bibliography +files to use. +These may be in any of the formats supported by bibutils. +.IP +.nf +\f[C] +Format\ \ \ \ \ \ \ \ \ \ \ \ File\ extension +\-\-\-\-\-\-\-\-\-\-\-\-\ \ \ \ \ \ \-\-\-\-\-\-\-\-\-\-\-\-\-\- +MODS\ \ \ \ \ \ \ \ \ \ \ \ \ \ .mods +BibLaTeX\ \ \ \ \ \ \ \ \ \ .bib +BibTeX\ \ \ \ \ \ \ \ \ \ \ \ .bibtex +RIS\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ .ris +EndNote\ \ \ \ \ \ \ \ \ \ \ .enl +EndNote\ XML\ \ \ \ \ \ \ .xml +ISI\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ .wos +MEDLINE\ \ \ \ \ \ \ \ \ \ \ .medline +Copac\ \ \ \ \ \ \ \ \ \ \ \ \ .copac +JSON\ citeproc\ \ \ \ \ .json +\f[] +.fi +.PP +\f[C]references\f[]: A YAML list of references. +Each reference is a YAML object. +The format is essentially CSL JSON format. +Here is an example: +.IP +.nf +\f[C] +\-\ id:\ doe2006 +\ \ author: +\ \ \ \ family:\ Doe +\ \ \ \ given:\ [John,\ F.] +\ \ title:\ Article +\ \ page:\ 33\-34 +\ \ issued: +\ \ \ \ year:\ 2006 +\ \ type:\ article\-journal +\ \ volume:\ 6 +\ \ container\-title:\ Journal\ of\ Generic\ Studies +\f[] +.fi +.PP +The contents of fields will be interpreted as markdown when appropriate: +so, for example, emphasis and strong emphasis can be used in title +fileds. +Simple tex math will also be parsed and rendered appropriately. +.PP +\f[C]csl\f[] or \f[C]citation\-style\f[]: Path or URL of a CSL style +file. +If the file is not found relative to the working directory, +scholdoc\-citeproc will look in the \f[C]$HOME/.csl\f[] directory (or +\f[C]C:\\Users\\USERNAME\\AppData\\Roaming\\csl\f[] in Windows 7). +If this is left off, scholdoc\-citeproc will look for +\f[C]$HOME/.csl/chicago\-author\-date.csl\f[], and if this is not +present, it will use its own version of +\f[C]chicago\-author\-date.csl\f[]. +.PP +\f[C]citation\-abbreviations\f[]: Path to a CSL abbreviations JSON file. +The format is described +here (http://citationstylist.org/2011/10/19/abbreviations-for-zotero-test-release). +Here is a short example: +.IP +.nf +\f[C] +{\ "default":\ { +\ \ \ \ "container\-title":\ { +\ \ \ \ \ \ \ \ \ \ \ \ "Lloyd\[aq]s\ Law\ Reports":\ "Lloyd\[aq]s\ Rep", +\ \ \ \ \ \ \ \ \ \ \ \ "Estates\ Gazette":\ "EG", +\ \ \ \ \ \ \ \ \ \ \ \ "Scots\ Law\ Times":\ "SLT" +\ \ \ \ } +\ \ } +} +\f[] +.fi +.PP +The metadata must contain either \f[C]references\f[] or +\f[C]bibliography\f[] or both as a source of references. +\f[C]csl\f[] and \f[C]citation\-abbreviations\f[] are optional. +If \f[C]csl\f[] is not provided, \f[C]chicago\-author\-date.csl\f[] will +be used by default. +.SS Convert mode +.PP +If the option \f[C]\-\-bib2yaml\f[] or \f[C]\-\-bib2json\f[] is used, +\f[C]scholdoc\-citeproc\f[] will not process citations; instead, it will +treat its input (from stdin or files) as a bibliography and convert it +either to a scholdoc YAML metadata section, suitable for inclusion in a +scholdoc document (\f[C]\-\-bib2yaml\f[]), or as a CSL JSON +bibliography, suitable for import to zotero (\f[C]\-\-bib2json\f[]). +.PP +The \f[C]\-\-format\f[] option can be used to specify the bibliography +format, though when files are used, \f[C]scholdoc\-citeproc\f[] can +generally guess this from the extension. +.PP +This mode supersedes the old \f[C]biblio2yaml\f[] program. +.SH OPTIONS +.TP +.B \f[C]\-h,\ \-\-help\f[] +Print usage information. +.RS +.RE +.TP +.B \f[C]\-V,\ \-\-version\f[] +Print version. +.RS +.RE +.TP +.B \f[C]\-y,\ \-\-bib2yaml\f[] +Convert bibliography to YAML suitable for inclusion in pandoc metadata. +.RS +.RE +.TP +.B \f[C]\-j,\ \-\-bib2json\f[] +Convert bibliography to CSL JSON suitable for import into Zotero. +.RS +.RE +.TP +.B \f[C]\-f\f[] \f[I]FORMAT\f[], \f[C]\-\-format=\f[]\f[I]FORMAT\f[] +Specify format of bibliography to be converted. +Legal values are \f[C]biblatex\f[], \f[C]bibtex\f[], \f[C]ris\f[], +\f[C]endnote\f[], \f[C]endnotexml\f[], \f[C]isi\f[], \f[C]medline\f[], +\f[C]copac\f[], \f[C]mods\f[], and \f[C]json\f[]. +.RS +.RE +.SH NOTES +.SS General +.PP +If you use a biblatex database, closely follow the specifications in the +\[lq]Database Guide\[rq] section of the biblatex manual (currently +2.8a). +.PP +If you use a CSL\-YAML or CSL\-JSON database, or a CSL\-YAML metadata +section in your markdown document, follow the \[lq]Citation Style +Language 1.0.1 Language Specification\[rq] +(). +Particularly relevant are + +(which neither comments on usage nor specifies required and optional +fields) and + +(which does contain comments). +.SS Titles: Title vs.\ Sentence Case +.PP +If you are using a bibtex or biblatex bibliography, then observe the +following rules: +.IP \[bu] 2 +English titles should be in title case. +Non\-English titles should be in sentence case, and the \f[C]langid\f[] +field in biblatex should be set to the relevant language. +(The following values are treated as English: \f[C]american\f[], +\f[C]british\f[], \f[C]canadian\f[], \f[C]english\f[], +\f[C]australian\f[], \f[C]newzealand\f[], \f[C]USenglish\f[], or +\f[C]UKenglish\f[].) +.IP \[bu] 2 +As is standard with bibtex/biblatex, proper names should be protected +with curly braces so that they won't be lowercased in styles that call +for sentence case. +For example: +.RS 2 +.IP +.nf +\f[C] +title\ =\ {My\ Dinner\ with\ {Andre}} +\f[] +.fi +.RE +.IP \[bu] 2 +In addition, words that should remain lowercase (or camelCase) should be +protected: +.RS 2 +.IP +.nf +\f[C] +title\ =\ {Spin\ Wave\ Dispersion\ on\ the\ {nm}\ Scale} +\f[] +.fi +.PP +Though this is not necessary in bibtex/biblatex, it is necessary with +citeproc, which stores titles internally in sentence case, and converts +to title case in styles that require it. +Here we protect \[lq]nm\[rq] so that it doesn't get converted to +\[lq]Nm\[rq] at this stage. +.RE +.PP +If you are using a CSL bibliography (either JSON or YAML), then observe +the following rules: +.IP \[bu] 2 +All titles should be in sentence case. +.IP \[bu] 2 +Use the \f[C]language\f[] field for non\-English titles to prevent their +conversion to title case in styles that call for this. +(Conversion happens only if \f[C]language\f[] begins with \f[C]en\f[] or +is left empty.) +.IP \[bu] 2 +Protect words that should not be converted to title case using this +syntax: +.RS 2 +.IP +.nf +\f[C] +Spin\ wave\ dispersion\ on\ the\ nm\ scale +\f[] +.fi +.RE +.SS Conference Papers, Published vs.\ Unpublished +.PP +For a formally published conference paper, use the biblatex entry type +\f[C]inproceedings\f[] (which will be mapped to CSL +\f[C]paper\-conference\f[]). +.PP +For an unpublished manuscript, use the biblatex entry type +\f[C]unpublished\f[] without an \f[C]eventtitle\f[] field (this entry +type will be mapped to CSL \f[C]manuscript\f[]). +.PP +For a talk, an unpublished conference paper, or a poster presentation, +use the biblatex entry type \f[C]unpublished\f[] with an +\f[C]eventtitle\f[] field (this entry type will be mapped to CSL +\f[C]speech\f[]). +Use the biblatex \f[C]type\f[] field to indicate the type, e.g. +\[lq]Paper\[rq], or \[lq]Poster\[rq]. +\f[C]venue\f[] and \f[C]eventdate\f[] may be useful too, though +\f[C]eventdate\f[] will not be rendered by most CSL styles. +Note that \f[C]venue\f[] is for the event's venue, unlike +\f[C]location\f[] which describes the publisher's location; do not use +the latter for an unpublished conference paper. +.SH AUTHORS +.PP +Andrea Rossato, John MacFarlane, and Tim T.Y. +Lin. +.SH SEE ALSO +.PP +\f[C]scholdoc\f[] (1), \f[C]pandoc_markdown\f[] (5). +.PP +The scholdoc\-citeproc source code and all documentation may be +downloaded from . diff --git a/scholdoc-citeproc.cabal b/scholdoc-citeproc.cabal new file mode 100644 --- /dev/null +++ b/scholdoc-citeproc.cabal @@ -0,0 +1,201 @@ +name: scholdoc-citeproc +version: 0.6 +cabal-version: >= 1.12 +synopsis: Scholdoc fork of pandoc-citeproc +description: This package is a fork of @pandoc-citeproc@, intended to + support the development of Scholdoc. It is currently just a + trivial fork just so it can compile against + @scholdoc-citeproc@ without polluting the @pandoc-citeproc@ + package and executable namespace. + . + This package is versioned identically to @pandoc-citeproc@. + . + For descriptions of the original @pandoc-citeproc@ package, + please visit + + +category: Text +license: BSD3 +license-file: LICENSE +author: Tim T.Y. Lin +maintainer: Tim T.Y. Lin +homepage: https://github.com/timtylin/scholdoc-citeproc +bug-reports: https://github.com/timtylin/scholdoc-citeproc/issues +build-type: Custom +data-files: chicago-author-date.csl + 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-GB.xml + locales/locales-en-US.xml + locales/locales-es-ES.xml + locales/locales-et-EE.xml + locales/locales-eu.xml + locales/locales-fa-IR.xml + locales/locales-fi-FI.xml + locales/locales-fr-CA.xml + locales/locales-fr-FR.xml + locales/locales-he-IL.xml + locales/locales-hr-HR.xml + locales/locales-hu-HU.xml + locales/locales-is-IS.xml + locales/locales-it-IT.xml + locales/locales-ja-JP.xml + locales/locales-km-KH.xml + locales/locales-ko-KR.xml + locales/locales-lt-LT.xml + locales/locales-lv-LV.xml + locales/locales-mn-MN.xml + locales/locales-nb-NO.xml + locales/locales-nl-NL.xml + locales/locales-nn-NO.xml + locales/locales-pl-PL.xml + locales/locales-pt-BR.xml + locales/locales-pt-PT.xml + 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-uk-UA.xml + locales/locales-vi-VN.xml + locales/locales-zh-CN.xml + locales/locales-zh-TW.xml + -- tests + tests/*.in.native + tests/*.expected.native + tests/*.csl + tests/biblio.bib + tests/biblio2yaml/*.bibtex + -- documentation + README.md + README-pandoc-citeproc.md + man/man1/scholdoc-citeproc.1 + changelog + +source-repository head + type: git + location: git://github.com/timtylin/scholdoc-citeproc.git + +flag small_base + description: Choose the new smaller, split-up base package. + +flag bibutils + description: Use Chris Putnam's Bibutils. + default: True + +flag embed_data_files + description: Embed locale files into the library (needed for windows packaging) + default: False + +flag unicode_collation + description: Use Haskell bindings to the International Components for Unicode (ICU) libraries + default: False + +flag test_citeproc + description: Build the test-citeproc program + default: False + +library + hs-source-dirs: src + exposed-modules: Text.CSL.Pandoc + Text.CSL + Text.CSL.Reference + Text.CSL.Style + Text.CSL.Eval + Text.CSL.Eval.Common + Text.CSL.Eval.Date + Text.CSL.Eval.Names + Text.CSL.Eval.Output + Text.CSL.Parser + Text.CSL.Proc + Text.CSL.Proc.Collapse + Text.CSL.Proc.Disamb + Text.CSL.Input.Bibutils + Text.CSL.Input.Bibtex + Text.CSL.Output.Pandoc + Text.CSL.Output.Plain + Text.CSL.Data + other-modules: Text.CSL.Util + Paths_scholdoc_citeproc + ghc-options: -funbox-strict-fields -Wall -fno-warn-unused-do-bind + ghc-prof-options: -prof -auto-all + build-depends: containers, directory, mtl, + bytestring, filepath, scholdoc-types >= 0.1.3, tagsoup, + aeson >= 0.7 && < 0.9, text, vector, + xml-conduit >= 1.2 && < 1.3, + data-default, + split, yaml >= 0.8.8.2, scholdoc >= 0.1.3 + if impl(ghc < 7.6) + build-depends: ghc-prim + + if flag(bibutils) + build-depends: hs-bibutils >= 0.3 + default-extensions: CPP + cpp-options: -DUSE_BIBUTILS + + if flag(embed_data_files) + default-extensions: CPP + cpp-options: -DEMBED_DATA_FILES + other-modules: Text.CSL.Data.Embedded + + if flag(unicode_collation) + build-depends: text, text-icu + default-extensions: CPP + cpp-options: -DUNICODE_COLLATION + else + build-depends: rfc5051 + default-extensions: CPP + + if impl(ghc >= 6.10) + build-depends: base >= 4, syb, parsec, old-locale, time + else + build-depends: base >= 3 && < 4 + + default-language: Haskell98 + +executable scholdoc-citeproc + main-is: scholdoc-citeproc.hs + hs-source-dirs: . + ghc-options: -funbox-strict-fields -Wall + ghc-prof-options: -prof -auto-all + build-depends: base >= 4, scholdoc-citeproc, scholdoc-types >= 0.1.3, aeson, + aeson-pretty, yaml, bytestring, syb, attoparsec, text, + filepath + default-language: Haskell98 + +executable test-citeproc + Main-Is: test-citeproc.hs + Other-Modules: JSON + Hs-Source-Dirs: tests + if flag(test_citeproc) + Buildable: True + else + Buildable: False + build-depends: base >= 4, aeson, directory, text, + scholdoc-types >= 0.1.3, scholdoc >= 0.1.3, filepath, + bytestring, scholdoc-citeproc, process, temporary >= 1.1, + yaml >= 0.8.8.2, containers >= 0.4 && < 0.6, + vector >= 0.10 && < 0.11 + default-language: Haskell98 + +test-suite test-scholdoc-citeproc + Type: exitcode-stdio-1.0 + Main-Is: test-scholdoc-citeproc.hs + Other-Modules: JSON + Hs-Source-Dirs: tests + build-depends: base >= 4, aeson, directory, text, + scholdoc-types >= 0.1.3, scholdoc >= 0.1.3, filepath, + bytestring, scholdoc-citeproc, process, temporary >= 1.1, + yaml >= 0.8.8.2 + default-language: Haskell98 diff --git a/scholdoc-citeproc.hs b/scholdoc-citeproc.hs new file mode 100644 --- /dev/null +++ b/scholdoc-citeproc.hs @@ -0,0 +1,189 @@ +module Main where +import Text.CSL.Input.Bibutils (readBiblioString, BibFormat(..)) +import Text.CSL.Style (Formatted(..), Agent(..)) +import Text.CSL.Reference (Reference(refId), Literal(..)) +import Data.Generics ( everywhere, mkT ) +import Data.List (group, sort) +import Data.Char (chr, toLower) +import Data.Monoid +import Data.Yaml +import Control.Applicative +import qualified Data.ByteString as B +import qualified Data.ByteString.Lazy.Char8 as BL8 +import qualified Data.ByteString.Char8 as B8 +import Data.Attoparsec.ByteString.Char8 as Attoparsec +import qualified Data.Text as T +import Data.Text.Encoding (encodeUtf8) +import Data.Aeson.Encode.Pretty (encodePretty', Config(..)) +import System.Console.GetOpt +import Control.Monad +import System.IO +import System.FilePath (takeExtension) +import System.Environment (getArgs) +import System.Exit +import Data.Version (showVersion) +import Paths_scholdoc_citeproc (version) +import Text.CSL.Pandoc (processCites') +import Text.Pandoc.JSON hiding (Format) +import Text.Pandoc.Walk + +main :: IO () +main = do + argv <- getArgs + let (flags, args, errs) = getOpt Permute options argv + let header = "Usage: pandoc-citeproc [options] [file..]" + unless (null errs) $ do + hPutStrLn stderr $ usageInfo (unlines $ errs ++ [header]) options + exitWith $ ExitFailure 1 + when (Version `elem` flags) $ do + putStrLn $ "pandoc-citeproc " ++ showVersion version + exitWith ExitSuccess + when (Help `elem` flags) $ do + putStrLn $ usageInfo header options + exitWith ExitSuccess + if Bib2YAML `elem` flags || Bib2JSON `elem` flags + then do + let mbformat = case [f | Format f <- flags] of + [x] -> readFormat x + _ -> Nothing + bibformat <- case mbformat <|> + msum (map formatFromExtension args) of + Just f -> return f + Nothing -> do + hPutStrLn stderr $ usageInfo + ("Unknown format\n" ++ header) options + exitWith $ ExitFailure 3 + bibstring <- case args of + [] -> getContents + xs -> mconcat <$> mapM readFile xs + readBiblioString bibformat bibstring >>= + warnDuplicateKeys >>= + if Bib2YAML `elem` flags + then outputYamlBlock . unescapeTags . encode + else BL8.putStrLn . + encodePretty' Config{ confIndent = 2 + , confCompare = compare } . + everywhere (mkT compressName) + else toJSONFilter doCites + +formatFromExtension :: FilePath -> Maybe BibFormat +formatFromExtension = readFormat . dropWhile (=='.') . takeExtension + +readFormat :: String -> Maybe BibFormat +readFormat = go . map toLower + where go "biblatex" = Just BibLatex + go "bib" = Just BibLatex + go "bibtex" = Just Bibtex + go "ris" = Just Ris + go "endnote" = Just Endnote + go "enl" = Just Endnote + go "endnotexml" = Just EndnotXml + go "xml" = Just EndnotXml + go "wos" = Just Isi + go "isi" = Just Isi + go "medline" = Just Medline + go "copac" = Just Copac + go "json" = Just Json + go "mods" = Just Mods + go _ = Nothing + + +doCites :: Pandoc -> IO Pandoc +doCites doc = do + doc' <- processCites' doc + let warnings = query findWarnings doc' + mapM_ (hPutStrLn stderr) warnings + return doc' + +findWarnings :: Inline -> [String] +findWarnings (Span (_,["citeproc-not-found"],[("data-reference-id",ref)]) _) = + ["scholdoc-citeproc: reference " ++ ref ++ " not found" | ref /= "*"] +findWarnings (Span (_,["citeproc-no-output"],_) _) = + ["scholdoc-citeproc: reference with no printed form"] +findWarnings _ = [] + +data Option = + Help | Version | Convert | Format String | Bib2YAML | Bib2JSON + deriving (Ord, Eq, Show) + +options :: [OptDescr Option] +options = + [ Option ['h'] ["help"] (NoArg Help) "show usage information" + , Option ['V'] ["version"] (NoArg Version) "show program version" + , Option ['y'] ["bib2yaml"] (NoArg Bib2YAML) "convert bibliography to YAML" + , Option ['j'] ["bib2json"] (NoArg Bib2JSON) "convert bibliography to JSON" + , Option ['f'] ["format"] (ReqArg Format "FORMAT") "bibliography format" + ] + +warnDuplicateKeys :: [Reference] -> IO [Reference] +warnDuplicateKeys refs = mapM_ warnDup dupKeys >> return refs + where warnDup k = hPutStrLn stderr $ "biblio2yaml: duplicate key " ++ k + allKeys = map (unLiteral . refId) refs + dupKeys = [x | (x:_:_) <- group (sort allKeys)] + +outputYamlBlock :: B.ByteString -> IO () +outputYamlBlock contents = do + putStrLn "---\nreferences:" + B.putStr contents + putStrLn "..." + +-- Compress particles and suffixes into given and last name, +-- as zotero JSON expects. (We might also want to set parse-names = true.) +compressName :: Agent -> Agent +compressName ag = Agent{ + givenName = gn + , familyName = fn + , droppingPart = mempty + , nonDroppingPart = mempty + , literal = literal ag + , nameSuffix = mempty + , commaSuffix = False + , parseNames = True + } + where + spcat (Formatted []) y = y + spcat y (Formatted []) = y + spcat x y = x <> Formatted [Space] <> y + gnbase = givenName ag ++ [droppingPart ag | droppingPart ag /= mempty] + gn = case (gnbase, nameSuffix ag) of + ([], _) -> [] + (xs, Formatted []) -> xs + (xs, ns) -> init xs ++ + [last xs <> Formatted [if commaSuffix ag + then Str ",!" + else Str ",", Space], ns] + fn = spcat (nonDroppingPart ag) (familyName ag) + +-- turn +-- id: ! "\u043F\u0443\u043D\u043A\u04423" +-- into +-- id: пункт3 +unescapeTags :: B.ByteString -> B.ByteString +unescapeTags bs = case parseOnly (many $ tag <|> other) bs of + Left e -> error e + Right r -> B.concat r + +tag :: Attoparsec.Parser B.ByteString +tag = do + _ <- string $ B8.pack ": ! " + c <- char '\'' <|> char '"' + cs <- manyTill (escaped c <|> other) (char c) + return $ B8.pack ": " <> B8.singleton c <> B.concat cs <> B8.singleton c + +escaped :: Char -> Attoparsec.Parser B.ByteString +escaped c = string $ B8.pack ['\\',c] + +other :: Attoparsec.Parser B.ByteString +other = uchar <|> Attoparsec.takeWhile1 notspecial <|> regchar + where notspecial = not . inClass ":!\\\"'" + +uchar :: Attoparsec.Parser B.ByteString +uchar = do + _ <- char '\\' + num <- (2 <$ char 'x') <|> (4 <$ char 'u') <|> (8 <$ char 'U') + cs <- count num $ satisfy $ inClass "0-9a-fA-F" + let n = read ('0':'x':cs) + return $ encodeUtf8 $ T.pack [chr n] + +regchar :: Attoparsec.Parser B.ByteString +regchar = B8.singleton <$> anyChar 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,151 @@ +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- /citeproc-hs/ is a library for automatically formatting +-- bibliographic reference citations into a variety of styles using a +-- macro language called Citation Style Language (CSL). More details +-- on CSL can be found here: . +-- +-- This module documents and exports the library API. +-- +----------------------------------------------------------------------------- + +module Text.CSL + ( -- * Introduction + -- $intro + + -- * Overview: A Simple Example + -- $overview + + -- * Reading Bibliographic Databases + readBiblioFile + , BibFormat (..) + , readBiblioString + + -- ** Reference Representation + , Reference (..) + , getReference + , setNearNote + + -- * CSL Parser, Representation, and Processing + , readCSLFile + , parseCSL + , parseCSL' + , localizeCSL + + -- ** The Style Types + , Style (..) + , Citation (..) + , Bibliography (..) + , Cite (..) + , Abbreviations (..) + , emptyCite + + -- ** High Level Processing + , ProcOpts (..) + , procOpts + , BibOpts (..) + , citeproc + , processCitations + , processBibliography + , BiblioData (..) + + -- * The output and the rendering functions + , renderPlain + , renderPandoc + , renderPandoc' + ) where + +import Text.CSL.Proc +import Text.CSL.Reference +import Text.CSL.Style +import Text.CSL.Parser +import Text.CSL.Input.Bibutils +import Text.CSL.Output.Pandoc +import Text.CSL.Output.Plain + + +-- $intro +-- +-- /citeproc-hs/ provides functions for reading bibliographic +-- databases, for reading and parsing CSL files and for generating +-- citations in an internal format, 'Formatted', that can be +-- easily rendered into different final formats. At the present time +-- only 'Pandoc' and plain text rendering functions are provided by +-- the library. +-- +-- The library also provides a wrapper around hs-bibutils, the Haskell +-- bindings to Chris Putnam's bibutils, a library that interconverts +-- between various bibliography formats using a common MODS-format XML +-- intermediate. For more information about hs-bibutils see here: +-- . +-- +-- /citeproc-hs/ can natively read MODS and JSON formatted +-- bibliographic databases. The JSON format is only partially +-- documented. It is used by citeproc-js, by the CSL processor +-- test-suite and is derived by the CSL scheme. More information can +-- be read here: +-- . +-- +-- A (git) repository of styles can be found here: +-- . + +-- $overview +-- +-- The following example assumes you have installed citeproc-hs with +-- hs-bibutils support (which is the default). +-- +-- Suppose you have a small bibliographic database, like this one: +-- +-- > @Book{Rossato2006, +-- > author="Andrea Rossato", +-- > title="My Second Book", +-- > year="2006" +-- > } +-- > +-- > @Book{Caso2007, +-- > author="Roberto Caso", +-- > title="Roberto's Book", +-- > year="2007" +-- > } +-- +-- Save it as @mybibdb.bib@. +-- +-- Then you can grab one of the CSL styles that come with the +-- test-suite for CSL processors. Suppose this one: +-- +-- +-- +-- saved locally as @apa-x.csl@. +-- +-- This would be a simple program that formats a list of citations +-- according to that style: +-- +-- > import Text.CSL +-- > +-- > cites :: [Cite] +-- > cites = [emptyCite { citeId = "Caso2007" +-- > , citeLabel = "page" +-- > , citeLocator = "15"} +-- > ,emptyCite { citeId = "Rossato2006" +-- > , citeLabel = "page" +-- > , citeLocator = "10"} +-- > ] +-- > +-- > main :: IO () +-- > main = do +-- > m <- readBiblioFile "mybibdb.bib" +-- > s <- readCSLFile Nothing "apa-x.csl" +-- > let result = citeproc procOpts s m $ [cites] +-- > putStrLn . unlines . map renderPlain . citations $ result +-- +-- The result would be: +-- +-- > (Caso, 2007, p. 15; Rossato, 2006, p. 10) diff --git a/src/Text/CSL/Data.hs b/src/Text/CSL/Data.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Data.hs @@ -0,0 +1,114 @@ +{-# LANGUAGE CPP #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Data +-- Copyright : (c) John MacFarlane +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : John MacFarlane +-- Stability : unstable +-- Portability : unportable +-- +----------------------------------------------------------------------------- + +module Text.CSL.Data + ( getLocale + , getDefaultCSL + , langBase + ) where + +import System.FilePath () +import qualified Data.ByteString.Lazy as L +#ifdef EMBED_DATA_FILES +import Data.Maybe (fromMaybe) +import Text.CSL.Data.Embedded (localeFiles, defaultCSL) +import qualified Data.ByteString as S +#else +import Paths_scholdoc_citeproc (getDataFileName) +import System.Directory (doesFileExist) +#endif + +getLocale :: String -> IO L.ByteString +getLocale s = do +#ifdef EMBED_DATA_FILES + f <- case length s of + 0 -> maybe (return S.empty) return + $ lookup "locales-en-US.xml" localeFiles + 2 -> let fn = ("locales-" ++ fromMaybe s (lookup s langBase) ++ ".xml") + in case lookup fn localeFiles of + Just x' -> return x' + _ -> error $ "could not find locale data for " ++ s + _ -> case lookup ("locales-" ++ take 5 s ++ ".xml") localeFiles of + Just x' -> return x' + _ -> -- try again with 2-letter locale + let s' = take 2 s in + case lookup ("locales-" ++ fromMaybe s' + (lookup s' langBase) ++ ".xml") localeFiles of + Just x'' -> return x'' + _ -> error $ + "could not find locale data for " ++ s + return $ L.fromChunks [f] +#else + f <- case length s of + 0 -> return "locales/locales-en-US.xml" + 2 -> getDataFileName ("locales/locales-" ++ + maybe "en-US" id (lookup s langBase) ++ ".xml") + _ -> getDataFileName ("locales/locales-" ++ take 5 s ++ ".xml") + exists <- doesFileExist f + if not exists && length s > 2 + then getLocale $ take 2 s -- try again with base locale + else L.readFile f +#endif + +getDefaultCSL :: IO L.ByteString +getDefaultCSL = +#ifdef EMBED_DATA_FILES + return $ L.fromChunks [defaultCSL] +#else + getDataFileName "chicago-author-date.csl" >>= L.readFile +#endif + +langBase :: [(String, String)] +langBase + = [("af", "af-ZA") + ,("ar", "ar-AR") + ,("bg", "bg-BG") + ,("ca", "ca-AD") + ,("cs", "cs-CZ") + ,("da", "da-DK") + ,("de", "de-DE") + ,("el", "el-GR") + ,("en", "en-US") + ,("es", "es-ES") + ,("et", "et-EE") + ,("fa", "fa-IR") + ,("fi", "fi-FI") + ,("fr", "fr-FR") + ,("he", "he-IL") + ,("hr", "hr-HR") + ,("hu", "hu-HU") + ,("is", "is-IS") + ,("it", "it-IT") + ,("ja", "ja-JP") + ,("km", "km-KH") + ,("ko", "ko-KR") + ,("lt", "lt-LT") + ,("lv", "lv-LV") + ,("mn", "mn-MN") + ,("nb", "nb-NO") + ,("nl", "nl-NL") + ,("nn", "nn-NO") + ,("pl", "pl-PL") + ,("pt", "pt-PT") + ,("ro", "ro-RO") + ,("ru", "ru-RU") + ,("sk", "sk-SK") + ,("sl", "sl-SI") + ,("sr", "sr-RS") + ,("sv", "sv-SE") + ,("th", "th-TH") + ,("tr", "tr-TR") + ,("uk", "uk-UA") + ,("vi", "vi-VN") + ,("zh", "zh-CN") + ] diff --git a/src/Text/CSL/Data/Embedded.hsb b/src/Text/CSL/Data/Embedded.hsb new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Data/Embedded.hsb @@ -0,0 +1,10 @@ +{-# LANGUAGE OverloadedStrings #-} +-- to be processed using hsb2hs +module Text.CSL.Data.Embedded (localeFiles, defaultCSL) where +import qualified Data.ByteString.Char8 as S + +localeFiles :: [(FilePath, S.ByteString)] +localeFiles = %blobs "locales/" + +defaultCSL :: S.ByteString +defaultCSL = %blob "chicago-author-date.csl" 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,459 @@ +{-# 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 + ( evalLayout + , evalSorting + , module Text.CSL.Eval.Common + , module Text.CSL.Eval.Output + ) where + +import Control.Arrow +import Control.Applicative ( (<$>) ) +import Control.Monad.State +import Data.Monoid (mempty, Any(..)) +import Data.Char ( toLower, isDigit, isLetter ) +import Data.Maybe +import Data.String ( fromString ) +import Text.Pandoc.Definition (Inline(Str, Space, Link)) +import Text.Pandoc.Walk (walk) +import Text.Pandoc.Shared (stringify) + +import Text.CSL.Eval.Common +import Text.CSL.Eval.Output +import Text.CSL.Eval.Date +import Text.CSL.Eval.Names +import Text.CSL.Output.Plain +import Text.CSL.Reference +import Text.CSL.Style hiding (Any) +import Text.CSL.Util ( readNum, last', proc, proc', query, betterThan ) + +-- | Produce the output with a 'Layout', the 'EvalMode', a 'Bool' +-- 'True' if the evaluation happens for disambiguation purposes, the +-- 'Locale', the 'MacroMap', the position of the cite and the +-- 'Reference'. +evalLayout :: Layout -> EvalMode -> Bool -> [Locale] -> [MacroMap] + -> [Option] -> Abbreviations -> Reference -> [Output] +evalLayout (Layout _ _ es) em b l m o a r + = cleanOutput evalOut + where + evalOut = case evalState job initSt of + [] -> if isSorting em + then [] + else [noOutputError] + x | title r == Formatted [Str (citeId cit), Space, Str "not", Space, + Str "found!"] -> [noBibDataError $ cit] + | otherwise -> suppTC x + locale = case l of + [x] -> x + _ -> Locale [] [] [] [] [] + job = evalElements es + cit = case em of + EvalCite c -> c + EvalSorting c -> c + EvalBiblio c -> c + initSt = EvalState (mkRefMap r) (Env cit (localeTerms locale) m + (localeDate locale) o [] a) [] em b False [] [] False [] [] [] + suppTC = let getLang = take 2 . map toLower in + case (getLang $ localeLang locale, getLang $ unLiteral $ language r) of + (_, "en") -> id + ("en", []) -> id + _ -> proc' rmTitleCase + +evalSorting :: EvalMode -> [Locale] -> [MacroMap] -> [Option] -> + [Sort] -> Abbreviations -> Reference -> [Sorting] +evalSorting m l ms opts ss as r + = map (format . sorting) ss + where + render = renderPlain . formatOutputList + format (s,e) = applaySort s . render $ uncurry eval e + eval o e = evalLayout (Layout emptyFormatting [] [e]) m False l ms o as r + applaySort c s + | Ascending {} <- c = Ascending s + | otherwise = Descending s + + unsetOpts ("et-al-min" ,_) = ("et-al-min" ,"") + unsetOpts ("et-al-use-first" ,_) = ("et-al-use-first" ,"") + unsetOpts ("et-al-subsequent-min" ,_) = ("et-al-subsequent-min","") + unsetOpts ("et-al-subsequent-use-first",_) = ("et-al-subsequent-use-first","") + unsetOpts x = x + setOpts s i = if i /= 0 then (s, show i) else ([],[]) + sorting s + = case s of + SortVariable str s' -> (s', ( ("name-as-sort-order","all") : opts + , Variable [str] Long emptyFormatting [])) + SortMacro str s' a b c -> (s', ( setOpts "et-al-min" a : ("et-al-use-last",c) : + setOpts "et-al-use-first" b : proc unsetOpts opts + , Macro str emptyFormatting)) + +evalElements :: [Element] -> State EvalState [Output] +evalElements = concatMapM evalElement + +evalElement :: Element -> State EvalState [Output] +evalElement el + | Const s fm <- el = return $ addSpaces s + $ if fm == emptyFormatting + then [OPan (readCSLString s)] + else [Output [OPan (readCSLString s)] fm] + -- NOTE: this conditional seems needed for + -- locator_SimpleLocators.json: + | Number s f fm <- el = if s == "locator" + then getLocVar >>= formatRange fm . snd + else formatNumber f fm s =<< + getStringVar s + | Variable s f fm d <- el = return . addDelim d =<< concatMapM (getVariable f fm) s + | Group fm d l <- el = outputList fm d <$> tryGroup l + | Date _ _ _ _ _ _ <- el = evalDate el + | Label s f fm _ <- el = formatLabel f fm True s -- FIXME !! + | Term s f fm p <- el = formatTerm f fm p s + | Names s n fm d sub <- el = modify (\st -> st { contNum = [] }) >> + ifEmpty (evalNames False s n d) + (withNames s el $ evalElements sub) + (appendOutput fm) + | Substitute (e:els) <- el = do + res <- consuming $ substituteWith e + if null res + then if null els + then return [ONull] + else evalElement (Substitute els) + else return res + -- All macros and conditionals should have been expanded + | Choose i ei xs <- el = do + res <- evalIfThen i ei xs + evalElements res + | Macro s fm <- el = do + ms <- gets (macros . env) + case lookup s ms of + Nothing -> error $ "Macro " ++ show s ++ " not found!" + Just els -> do + res <- concat <$> mapM evalElement els + if null res + then return [] + else return [Output res fm] + | otherwise = return [] + where + addSpaces strng = (if take 1 strng == " " then (OSpace:) else id) . + (if last' strng == " " then (++[OSpace]) else id) + substituteWith e = head <$> gets (names . env) >>= \(Names _ ns fm d _) -> do + case e of + Names rs [Name NotSet fm'' [] [] []] fm' d' [] + -> let nfm = mergeFM fm'' $ mergeFM fm' fm in + evalElement $ Names rs ns nfm (d' `betterThan` d) [] + _ -> evalElement e + + -- from citeproc documentation: "cs:group implicitly acts as a + -- conditional: cs:group and its child elements are suppressed if + -- a) at least one rendering element in cs:group calls a variable + -- (either directly or via a macro), and b) all variables that are + -- called are empty. This accommodates descriptive cs:text elements." + + -- TODO: problem, this approach gives wrong results when the variable + -- is in a conditional and the other branch is followed. the term + -- provided by the other branch (e.g. 'n.d.') is not printed. we + -- should ideally expand conditionals when we expand macros. + tryGroup l = if getAny $ query hasVar l + then do + oldState <- get + res <- evalElements (rmTermConst l) + put oldState + let numVars = [s | Number s _ _ <- l] + nums <- mapM getStringVar numVars + let pluralizeTerm (Term s f fm _) = Term s f fm $ + case numVars of + ["number-of-volumes"] -> not $ any (== "1") nums + ["number-of-pages"] -> not $ any (== "1") nums + _ -> any + (\x -> '-' `elem` x || '\x2013' `elem` x) + nums + pluralizeTerm x = x + if null res + then return [] + else evalElements $ map pluralizeTerm l + else evalElements l + hasVar e + | Variable {} <- e = Any True + | Date {} <- e = Any True + | Names {} <- e = Any True + | Number {} <- e = Any True + | otherwise = Any False + rmTermConst = proc $ filter (not . isTermConst) + isTermConst e + | Term {} <- e = True + | Const {} <- e = True + | otherwise = False + + ifEmpty p t e = p >>= \r -> if r == [] then t else return (e r) + + withNames e n f = modify (\s -> s { authSub = e ++ authSub s + , env = (env s) + {names = n : names (env s)}}) >> f >>= \r -> + modify (\s -> s { authSub = filter (not . flip elem e) (authSub s) + , env = (env s) + {names = tail $ names (env s)}}) >> return r + + getVariable f fm s = if isTitleVar s || isTitleShortVar s + then consumeVariable s >> formatTitle s f fm else + case map toLower s of + "year-suffix" -> getStringVar "ref-id" >>= \k -> + return . return $ OYearSuf [] k [] fm + "page" -> getStringVar "page" >>= formatRange fm + "locator" -> getLocVar >>= formatRange fm . snd + "url" -> getStringVar "url" >>= \k -> + if null k then return [] else return [Output [OPan [Link [Str k] (k,"")]] fm] + "doi" -> getStringVar "doi" >>= \d -> + if null d + then return [] + else return [Output [OPan [Link [Str d] ("http://dx.doi.org/" ++ d, "")]] fm] + _ -> gets (env >>> options &&& abbrevs) >>= \(opts,as) -> + getVar [] (getFormattedValue opts as f fm s) s >>= \r -> + consumeVariable s >> return r + +evalIfThen :: IfThen -> [IfThen] -> [Element] -> State EvalState [Element] +evalIfThen (IfThen c' m' el') ei e = whenElse (evalCond m' c') (return el') rest + where + rest = case ei of + [] -> return e + (x:xs) -> evalIfThen x xs 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 isUncertainDate c m + p <- checkCond chkPosition isPosition c m + a <- checkCond chkDisambiguate disambiguation c m + l <- checkCond chkLocator isLocator c m + return $ match m $ concat [t,v,n,d,p,a,l] + + checkCond a f c m = case f c of + [] -> case m of + All -> return [True] + _ -> return [False] + xs -> mapM a xs + + chkType t = let chk = (==) (formatVariable t) . show . fromMaybe NoType . fromValue + in getVar False chk "ref-type" + chkNumeric v = do val <- getStringVar v + as <- gets (abbrevs . env) + let val' = if getAbbreviation as v val == [] then val else getAbbreviation as v val + return (isNumericString val') + chkDate v = getDateVar v >>= return . not . null . filter circa + chkPosition s = if s == "near-note" + then gets (nearNote . cite . env) + else gets (citePosition . cite . env) >>= return . compPosition s + chkDisambiguate s = gets disamb >>= return . (==) (formatVariable s) . map toLower . show + chkLocator v = getLocVar >>= return . (==) v . fst + isIbid s = not (s == "first" || s == "subsequent") + compPosition a b + | "first" <- a = b == "first" + | "subsequent" <- a = b /= "first" + | "ibid-with-locator" <- a = b == "ibid-with-locator" || + b == "ibid-with-locator-c" + | otherwise = isIbid b + +getFormattedValue :: [Option] -> Abbreviations -> Form -> Formatting -> String -> Value -> [Output] +getFormattedValue o as f fm s val + | Just v <- fromValue val :: Maybe Formatted = + if v == mempty + then [] + else let ys = maybe (unFormatted v) (unFormatted . fromString) + $ getAbbr (stringify $ unFormatted v) + in if null ys + then [] + else [Output [OPan $ walk value' ys] fm] + | Just v <- fromValue val :: Maybe String = (:[]) . flip OStr fm . maybe v id . getAbbr $ value v + | Just v <- fromValue val :: Maybe Int = output fm (if v == 0 then [] else show v) + | Just v <- fromValue val :: Maybe CNum = if v == 0 then [] else [OCitNum (unCNum v) fm] + | Just v <- fromValue val :: Maybe [RefDate] = formatDate (EvalSorting emptyCite) [] [] sortDate v + | Just v <- fromValue val :: Maybe [Agent] = concatMap (formatName (EvalSorting emptyCite) True f + fm nameOpts []) v + | otherwise = [] + where + value = if stripPeriods fm then filter (/= '.') else id + value' (Str x) = Str (value x) + value' x = x + getAbbr v = if f == Short + then case getAbbreviation as s v of + [] -> Nothing + y -> Just y + else Nothing + nameOpts = ("name-as-sort-order","all") : o + sortDate = [ DatePart "year" "numeric-leading-zeros" "" emptyFormatting + , DatePart "month" "numeric-leading-zeros" "" emptyFormatting + , DatePart "day" "numeric-leading-zeros" "" emptyFormatting] + +formatTitle :: String -> Form -> Formatting -> State EvalState [Output] +formatTitle s f fm + | Short <- f + , isTitleVar s = try (getIt $ s ++ "-short") $ getIt s + | isTitleShortVar s = try (getIt s) $ return . (:[]) . flip OStr fm =<< getTitleShort s + | otherwise = getIt s + where + try g h = g >>= \r -> if r == [] then h else return r + getIt x = do + o <- gets (options . env) + a <- gets (abbrevs . env) + getVar [] (getFormattedValue o a f fm x) x + +formatNumber :: NumericForm -> Formatting -> String -> String -> State EvalState [Output] +formatNumber f fm v n + = gets (abbrevs . env) >>= \as -> + if isNumericString (getAbbr as n) + then gets (terms . env) >>= + return . output fm . flip process (getAbbr as n) + else return . output fm . getAbbr as $ n + where + getAbbr as = if getAbbreviation as v n == [] then id else getAbbreviation as v + checkRange' ts = if v == "page" then checkRange ts else id + process ts = checkRange' ts . printNumStr . map (renderNumber ts) . + breakNumericString . words + renderNumber ts x = if isTransNumber x then format ts x else x + + format tm = case f of + Ordinal -> ordinal tm v + LongOrdinal -> longOrdinal tm v + Roman -> if readNum n < 6000 then roman else id + _ -> id + + roman = foldr (++) [] . reverse . map (uncurry (!!)) . zip romanList . + map (readNum . return) . take 4 . reverse + romanList = [[ "", "i", "ii", "iii", "iv", "v", "vi", "vii", "viii", "ix" ] + ,[ "", "x", "xx", "xxx", "xl", "l", "lx", "lxx", "lxxx", "xc" ] + ,[ "", "c", "cc", "ccc", "cd", "d", "dc", "dcc", "dccc", "cm" ] + ,[ "", "m", "mm", "mmm", "mmmm", "mmmmm"] + ] + + +checkRange :: [CslTerm] -> String -> String +checkRange _ [] = [] +checkRange ts (x:xs) = if x == '-' || x == '\x2013' + then pageRange ts ++ checkRange ts xs + else x : checkRange ts xs + +printNumStr :: [String] -> String +printNumStr [] = [] +printNumStr (x:[]) = x +printNumStr (x:"-":y:xs) = x ++ "-" ++ y ++ printNumStr xs +printNumStr (x:",":y:xs) = x ++ ", " ++ y ++ printNumStr xs +printNumStr (x:xs) + | x == "-" = x ++ printNumStr xs + | otherwise = x ++ " " ++ printNumStr xs + +pageRange :: [CslTerm] -> String +pageRange = maybe "\x2013" termPlural . findTerm "page-range-delimiter" Long + +isNumericString :: String -> Bool +isNumericString [] = False +isNumericString s = all (\c -> isNumber c || isSpecialChar c) $ words s + +isTransNumber, isSpecialChar,isNumber :: String -> Bool +isTransNumber = all isDigit +isSpecialChar = all (`elem` "&-,\x2013") +isNumber cs = case [c | c <- cs + , not (isLetter c) + , not (c `elem` "&-,\x2013")] of + [] -> False + xs -> all isDigit xs + +breakNumericString :: [String] -> [String] +breakNumericString [] = [] +breakNumericString (x:xs) + | isTransNumber x = x : breakNumericString xs + | otherwise = let (a,b) = break (`elem` "&-\x2013,") x + (c,d) = if null b + then ("","") + else span (`elem` "&-\x2013,") b + in filter (/= []) $ a : c : breakNumericString (d : xs) + +formatRange :: Formatting -> String -> State EvalState [Output] +formatRange _ [] = return [] +formatRange fm p = do + ops <- gets (options . env) + ts <- gets (terms . env) + let opt = getOptionVal "page-range-format" ops + pages = tupleRange . breakNumericString . words $ p + + tupleRange [] = [] + tupleRange (x:cs:[] ) + | cs `elem` ["-", "--", "\x2013"] = return (x,[]) + tupleRange (x:cs:y:xs) + | cs `elem` ["-", "--", "\x2013"] = (x, y) : tupleRange xs + tupleRange (x: xs) = (x,[]) : tupleRange xs + + joinRange (a, []) = a + joinRange (a, b) = a ++ "-" ++ b + + process = case opt of + "expanded" -> checkRange ts . printNumStr . map (joinRange . uncurry expandedRange) + "chicago" -> checkRange ts . printNumStr . map (joinRange . uncurry chicagoRange ) + "minimal" -> checkRange ts . printNumStr . map (joinRange . uncurry minimalRange ) + _ -> checkRange ts . printNumStr . map (joinRange) + return [flip OLoc fm $ [OStr (process pages) emptyFormatting]] + +expandedRange :: String -> String -> (String, String) +expandedRange sa [] = (sa,[]) +expandedRange sa sb = (p ++ reverse nA', reverse nB') + where + (nA,pA) = reverse >>> break isLetter >>> reverse *** reverse $ sa + (nB,pB) = reverse >>> break isLetter >>> reverse *** reverse $ sb + zipNum x y = zipWith (\a b -> if b == '+' then (a,a) else (a,b)) + (reverse x ++ take 10 (repeat '*')) + >>> unzip >>> filter (/= '*') *** filter (/= '*') $ + (reverse y ++ repeat '+') + checkNum a b = let a' = take (length b) a + in readNum a' > readNum b + (p,(nA',nB')) + = case () of + _ | pA /= [] + , checkNum nA nB -> (,) [] $ (reverse $ pA ++ nA, reverse $ pB ++ nB) + | pA /= pB + , last' pA == last' pB -> (,) pA $ second (flip (++) (last' pA)) $ zipNum nA nB + | pA == pB -> (,) pA $ second (flip (++) (last' pA)) $ zipNum nA nB + | pB == [] -> (,) pA $ second (flip (++) (last' pA)) $ zipNum nA nB + | otherwise -> (,) [] $ (reverse $ pA ++ nA, reverse $ pB ++ nB) + +minimalRange :: String -> String -> (String, String) +minimalRange sa sb + = res + where + (a,b) = expandedRange sa sb + res = if length a == length b + then second (filter (/= '+')) $ unzip $ doit a b + else (a,b) + doit (x:xs) (y:ys) = if x == y + then (x,'+') : doit xs ys + else zip (x:xs) (y:ys) + doit _ _ = [] + +chicagoRange :: String -> String -> (String, String) +chicagoRange sa sb + = case () of + _ | length sa < 3 -> expandedRange sa sb + | '0':'0':_ <- sa' -> expandedRange sa sb + | _ :'0':_ <- sa' -> minimalRange sa sb + | _ :a2:as <- sa' + , b1 :b2:bs <- sb' + , comp as bs -> if a2 == b2 + then (sa, [b2,b1]) + else minimalRange sa sb + + | _:a2:a3:_:[] <- sa' + , _:b2:b3:_ <- sb' -> if a3 /= b3 && a2 /= b2 + then expandedRange sa sb + else minimalRange sa sb + | otherwise -> minimalRange sa sb + where + sa' = reverse sa + sb' = reverse sb + comp a b = let b' = takeWhile isDigit b + in take (length b') a == b' diff --git a/src/Text/CSL/Eval/Common.hs b/src/Text/CSL/Eval/Common.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Eval/Common.hs @@ -0,0 +1,196 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Eval.Common +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CSL implementation +-- +----------------------------------------------------------------------------- + +module Text.CSL.Eval.Common where + +import Control.Arrow ( (&&&), (>>>) ) +import Control.Applicative ( (<$>) ) +import Control.Monad.State +import Data.Char ( toLower ) +import Data.List ( elemIndex ) +import qualified Data.Map as M +import Data.Maybe + +import Text.Pandoc.Shared ( stringify ) +import Text.CSL.Reference +import Text.CSL.Style + +import Debug.Trace + +data EvalState + = EvalState + { ref :: ReferenceMap + , env :: Environment + , debug :: [String] + , mode :: EvalMode + , disamb :: Bool + , consume :: Bool + , authSub :: [String] + , consumed :: [String] + , edtrans :: Bool + , etal :: [[Output]] + , contNum :: [Agent] + , lastName :: [Output] + } deriving ( Show ) + +data Environment + = Env + { cite :: Cite + , terms :: [CslTerm] + , macros :: [MacroMap] + , dates :: [Element] + , options :: [Option] + , names :: [Element] + , abbrevs :: Abbreviations + } deriving ( Show ) + +data EvalMode + = EvalSorting Cite + | EvalCite Cite + | EvalBiblio Cite -- for the reference position + deriving ( Show, Eq ) + +isSorting :: EvalMode -> Bool +isSorting m = case m of EvalSorting _ -> True; _ -> False + +-- | With the variable name and the variable value search for an +-- abbreviation or return an empty string. +getAbbreviation :: Abbreviations -> String -> String -> String +getAbbreviation (Abbreviations as) s v + = maybe [] id $ M.lookup "default" as >>= + M.lookup (if s `elem` numericVars then "number" else s) >>= + M.lookup v + +-- | 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 . findTerm s f' <$> gets (terms . env) -- FIXME: vedere i fallback + where g = if b then termPlural else termSingular + f' = case f of NotSet -> Long; _ -> f + +getStringVar :: String -> State EvalState String +getStringVar + = getVar [] getStringValue + +getDateVar :: String -> State EvalState [RefDate] +getDateVar + = getVar [] getDateValue + where getDateValue = maybe [] id . fromValue + +getLocVar :: State EvalState (String,String) +getLocVar = gets (env >>> cite >>> citeLabel &&& citeLocator) + +getVar :: a -> (Value -> a) -> String -> State EvalState a +getVar a f s + = withRefMap $ maybe a f . lookup (formatVariable s) + +getAgents :: String -> State EvalState [Agent] +getAgents s + = do + mv <- withRefMap (lookup s) + case mv of + Just v -> case fromValue v of + Just x -> consumeVariable s >> return x + _ -> return [] + _ -> return [] + +getAgents' :: String -> State EvalState [Agent] +getAgents' s + = do + mv <- withRefMap (lookup s) + case mv of + Just v -> case fromValue v of + Just x -> return x + _ -> return [] + _ -> return [] + +getStringValue :: Value -> String +getStringValue val = + -- The second clause handles the case where we have a Formatted + -- but need a String. This is currently needed for "page". It's a bit + -- hackish; we should probably change the type in Reference for + -- page to String. + case fromValue val `mplus` ((stringify . unFormatted) `fmap` fromValue val) + `mplus` (unLiteral `fmap` fromValue val) of + Just v -> v + Nothing -> Debug.Trace.trace ("Expecting string value, got " ++ + show val) [] + +getOptionVal :: String -> [Option] -> String +getOptionVal s = fromMaybe [] . lookup s + +isOptionSet :: String -> [Option] -> Bool +isOptionSet s = maybe False (not . null) . lookup s + +isTitleVar, isTitleShortVar :: String -> Bool +isTitleVar = flip elem ["title", "container-title", "collection-title"] +isTitleShortVar = flip elem ["title-short", "container-title-short"] + +getTitleShort :: String -> State EvalState String +getTitleShort s = do let s' = take (length s - 6) s -- drop '-short' + v <- getStringVar s' + abbrs <- gets (abbrevs . env) + return $ getAbbreviation abbrs s' v + +isVarSet :: String -> State EvalState Bool +isVarSet s + | isTitleShortVar s = do r <- getVar False isValueSet s + if r then return r + else return . not . null =<< getTitleShort s + | otherwise = if s /= "locator" + then getVar False isValueSet s + else getLocVar >>= return . (/=) "" . snd + +withRefMap :: (ReferenceMap -> a) -> State EvalState a +withRefMap f = return . f =<< gets ref + +-- | Convert variable to lower case, translating underscores ("_") to dashes ("-") +formatVariable :: String -> String +formatVariable = foldr f [] + where f x xs = if x == '_' then '-' : xs else toLower x : xs + +consumeVariable :: String -> State EvalState () +consumeVariable s + = do b <- gets consume + when b $ modify $ \st -> st { consumed = s : consumed st } + +consuming :: State EvalState a -> State EvalState a +consuming f = setConsume >> f >>= \a -> doConsume >> unsetConsume >> return a + where setConsume = modify $ \s -> s {consume = True, consumed = [] } + unsetConsume = modify $ \s -> s {consume = False } + doConsume = do sl <- gets consumed + modify $ \st -> st { ref = remove (ref st) sl } + doRemove s (k,v) = if isValueSet v then [(formatVariable s,Value Empty)] else [(k,v)] + remove rm sl + | (s:ss) <- sl = case elemIndex (formatVariable s) (map fst rm) of + Just i -> let nrm = take i rm ++ + doRemove s (rm !! i) ++ + drop (i + 1) rm + in remove nrm ss + Nothing -> remove rm ss + | otherwise = rm + +when' :: Monad m => m Bool -> m [a] -> m [a] +when' p f = whenElse p f (return []) + +whenElse :: Monad m => m Bool -> m a -> m a -> m a +whenElse b f g = b >>= \ bool -> if bool then f else g + +concatMapM :: (Monad m, Functor m, Eq b) => (a -> m [b]) -> [a] -> m [b] +concatMapM f l = concat . filter (/=[]) <$> mapM f l + +{- +trace :: String -> State EvalState () +trace d = modify $ \s -> s { debug = d : debug s } +-} diff --git a/src/Text/CSL/Eval/Date.hs b/src/Text/CSL/Eval/Date.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Eval/Date.hs @@ -0,0 +1,248 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Eval.Date +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CSL implementation +-- +----------------------------------------------------------------------------- + +module Text.CSL.Eval.Date where + +import Control.Applicative ( (<$>) ) +import Control.Monad.State +import Data.Char +import Data.List +import Data.List.Split +import Data.Maybe +import Data.Monoid + +import Text.CSL.Eval.Common +import Text.CSL.Eval.Output +import Text.CSL.Style +import Text.CSL.Reference +import Text.CSL.Util ( readNum, toRead, init', last' ) +import Text.Pandoc.Definition ( Inline (Str) ) + +evalDate :: Element -> State EvalState [Output] +evalDate (Date s f fm dl dp dp') = do + tm <- gets $ terms . env + k <- getStringVar "ref-id" + em <- gets mode + let updateFM (Formatting aa ab ac ad ae af ag ah ai aj ak al am an) + (Formatting _ _ bc bd be bf bg bh _ bj bk _ _ _) = + Formatting aa ab (updateS ac bc) + (updateS ad bd) + (updateS ae be) + (updateS af bf) + (updateS ag bg) + (updateS ah bh) + ai + (updateS aj bj) + (if bk /= ak then bk else ak) + al am an + updateS a b = if b /= a && b /= [] then b else a + case f of + NoFormDate -> mapM getDateVar s >>= return . outputList fm dl . + concatMap (formatDate em k tm dp . concatMap parseRefDate) + _ -> do Date _ _ lfm ldl ldp _ <- getDate f + let go dps = return . outputList (updateFM fm lfm) (if ldl /= [] then ldl else dl) . + concatMap (formatDate em k tm dps . concatMap parseRefDate) + update l x@(DatePart a b c d) = + case filter ((==) a . dpName) l of + (DatePart _ b' c' d':_) -> DatePart a (updateS b b') + (updateS c c') + (updateFM d d') + _ -> x + updateDP = map (update dp) ldp + date = mapM getDateVar s + case dp' of + "year-month" -> go (filter ((/=) "day" . dpName) updateDP) =<< date + "year" -> go (filter ((==) "year" . dpName) updateDP) =<< date + _ -> go updateDP =<< date + +evalDate _ = return [] + +getDate :: DateForm -> State EvalState Element +getDate f = do + x <- filter (\(Date _ df _ _ _ _) -> df == f) <$> gets (dates . env) + case x of + [x'] -> return x' + _ -> return $ Date [] NoFormDate emptyFormatting [] [] [] + +formatDate :: EvalMode -> String -> [CslTerm] -> [DatePart] -> [RefDate] -> [Output] +formatDate em k tm dp date + | [d] <- date = concatMap (formatDatePart False d) dp + | (a:b:_) <- date = addODate . concat $ doRange a b + | otherwise = [] + where + addODate [] = [] + addODate xs = [ODate xs] + splitDate a b = case split (onSublist $ diff a b dp) dp of + [x,y,z] -> (x,y,z) + _ -> error "error in splitting date ranges" + doRange a b = let (x,y,z) = splitDate a b in + map (formatDatePart False a) x ++ + map (formatDatePart False a) (init' y) ++ + map (formatDatePart True a) (last' y) ++ + map (formatDatePart False b) (rmPrefix y) ++ + map (formatDatePart False b) z + -- the point of rmPrefix is to remove the blank space that otherwise + -- gets added after the delimiter in a range: 24- 26. + rmPrefix (dp':rest) = dp'{ dpFormatting = (dpFormatting dp') { prefix = "" } } : rest + rmPrefix [] = [] + diff a b = filter (flip elem (diffDate a b) . dpName) + diffDate (RefDate ya ma sa da _ _) + (RefDate yb mb sb db _ _) = case () of + _ | ya /= yb -> ["year","month","day"] + | ma /= mb -> ["month","day"] + | da /= db -> ["day"] + | sa /= sb -> ["month"] + | otherwise -> ["year","month","day"] + + term f t = let f' = if f `elem` ["verb", "short", "verb-short", "symbol"] + then read $ toRead f + else Long + in maybe [] termPlural $ findTerm t f' tm + + addZero n = if length n == 1 then '0' : n else n + addZeros = reverse . take 5 . flip (++) (repeat '0') . reverse + formatDatePart False (RefDate (Literal y) (Literal m) + (Literal e) (Literal d) _ _) (DatePart n f _ fm) + | "year" <- n, y /= mempty = return $ OYear (formatYear f y) k fm + | "month" <- n, m /= mempty = output fm (formatMonth f fm m) + | "day" <- n, d /= mempty = output fm (formatDay f m d) + | "month" <- n, m == mempty + , e /= mempty = output fm $ term f ("season-0" ++ e) + + formatDatePart True (RefDate (Literal y) (Literal m) (Literal e) (Literal d) _ _) (DatePart n f rd fm) + | "year" <- n, y /= mempty = OYear (formatYear f y) k (fm {suffix = []}) : formatDelim + | "month" <- n, m /= mempty = output (fm {suffix = []}) (formatMonth f fm m) ++ formatDelim + | "day" <- n, d /= mempty = output (fm {suffix = []}) (formatDay f m d) ++ formatDelim + | "month" <- n, m == mempty + , e /= mempty = output (fm {suffix = []}) (term f $ "season-0" ++ e) ++ formatDelim + where + formatDelim = if rd == "-" then [OPan [Str "\x2013"]] else [OPan [Str rd]] + + formatDatePart _ (RefDate _ _ _ _ (Literal o) _) (DatePart n _ _ fm) + | "year" <- n, o /= mempty = output fm o + | otherwise = [] + + formatYear f y + | "short" <- f = drop 2 y + | isSorting em + , iy < 0 = '-' : addZeros (tail y) + | isSorting em = addZeros y + | iy < 0 = show (abs iy) ++ term [] "bc" + | length y < 4 + , iy /= 0 = y ++ term [] "ad" + | iy == 0 = [] + | otherwise = y + where + iy = readNum y + formatMonth f fm m + | "short" <- f = getMonth $ period . termPlural + | "long" <- f = getMonth termPlural + | "numeric" <- f = m + | otherwise = addZero m + where + period = if stripPeriods fm then filter (/= '.') else id + getMonth g = maybe m g $ findTerm ("month-" ++ addZero m) (read $ toRead f) tm + formatDay f m d + | "numeric-leading-zeros" <- f = addZero d + | "ordinal" <- f = ordinal tm ("month-" ++ addZero m) d + | otherwise = d + +ordinal :: [CslTerm] -> String -> String -> String +ordinal _ _ [] = [] +ordinal ts v s + | length s == 1 = let a = termPlural (getWith1 s) in + if a == [] then setOrd (term []) else s ++ a + | length s == 2 = let a = termPlural (getWith2 s) + b = getWith1 [last s] in + if a /= [] + then s ++ a + else if termPlural b == [] || (termMatch b /= [] && termMatch b /= "last-digit") + then setOrd (term []) else setOrd b + | otherwise = let a = getWith2 last2 + b = getWith1 [last s] in + if termPlural a /= [] && termMatch a /= "whole-number" + then setOrd a + else if termPlural b == [] || (termMatch b /= [] && termMatch b /= "last-digit") + then setOrd (term []) else setOrd b + where + setOrd = (++) s . termPlural + getWith1 = term . (++) "-0" + getWith2 = term . (++) "-" + last2 = reverse . take 2 . reverse $ s + term t = getOrdinal v ("ordinal" ++ t) ts + +longOrdinal :: [CslTerm] -> String -> String -> String +longOrdinal _ _ [] = [] +longOrdinal ts v s + | num > 10 || + num == 0 = ordinal ts v s + | otherwise = case last s of + '1' -> term "01" + '2' -> term "02" + '3' -> term "03" + '4' -> term "04" + '5' -> term "05" + '6' -> term "06" + '7' -> term "07" + '8' -> term "08" + '9' -> term "09" + _ -> term "10" + where + num = readNum s + term t = termPlural $ getOrdinal v ("long-ordinal-" ++ t) ts + +getOrdinal :: String -> String -> [CslTerm] -> CslTerm +getOrdinal v s ts + = case findTerm' s Long gender ts of + Just x -> x + Nothing -> case findTerm' s Long Neuter ts of + Just x -> x + Nothing -> newTerm + where + gender = if v `elem` numericVars || "month" `isPrefixOf` v + then maybe Neuter termGender $ findTerm v Long ts + else Neuter + +parseRefDate :: RefDate -> [RefDate] +parseRefDate r@(RefDate _ _ _ _ (Literal o) c) + = if null o then return r + else let (a,b) = break (== '-') o + in if null b then return (parseRaw o) else [parseRaw a, parseRaw b] + where + parseRaw str = + case words $ check str of + [y'] | and (map isDigit y') -> RefDate (Literal y') mempty mempty mempty (Literal o) c + [s',y'] | and (map isDigit y') + , and (map isDigit s') -> RefDate (Literal y') (Literal s') mempty mempty (Literal o) c + [s',y'] | s' `elem'` seasons -> RefDate (Literal y') mempty (Literal $ select s' seasons) mempty (Literal o) False + [s',y'] | s' `elem'` months -> RefDate (Literal y') (Literal $ select s' months) mempty mempty (Literal o) c + [s',d',y'] | and (map isDigit s') + , and (map isDigit y') + , and (map isDigit d') -> RefDate (Literal y') (Literal s') mempty (Literal d') (Literal o) c + [s',d',y'] | s' `elem'` months + , and (map isDigit y') + , and (map isDigit d') -> RefDate (Literal y') (Literal $ select s' months) mempty (Literal d') (Literal o) c + [s',d',y'] | s' `elem'` months + , and (map isDigit y') + , and (map isDigit d') -> RefDate (Literal y') (Literal $ select s' months) mempty (Literal d') (Literal o) c + _ -> r + check [] = [] + check (x:xs) = if x `elem` ",/-" then ' ' : check xs else x : check xs + select x = show . (+ 1) . fromJust . elemIndex' x + elem' x = elem (map toLower $ take 3 x) + elemIndex' x = elemIndex (map toLower $ take 3 x) + + months = ["jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec"] + seasons = ["spr","sum","fal","win"] diff --git a/src/Text/CSL/Eval/Names.hs b/src/Text/CSL/Eval/Names.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Eval/Names.hs @@ -0,0 +1,386 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Eval.Names +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CSL implementation +-- +----------------------------------------------------------------------------- + +module Text.CSL.Eval.Names where + +import Control.Applicative ( (<$>) ) +import Control.Monad.State +import Data.Char ( isLower, isUpper, isLetter ) +import Data.List ( nub, intersperse ) +import Data.List.Split ( wordsBy ) +import Data.Maybe ( isJust ) +import Data.Monoid + +import Text.CSL.Eval.Common +import Text.CSL.Eval.Output +import Text.CSL.Util ( headInline, lastInline, readNum, (<^>), query, toRead, + splitStrWhen ) +import Text.CSL.Style +import Text.Pandoc.Definition +import Text.Pandoc.Shared ( stringify ) +import qualified Text.Pandoc.Builder as B + +evalNames :: Bool -> [String] -> [Name] -> String -> State EvalState [Output] +evalNames skipEdTrans ns nl d + | [sa,sb] <- ns, not skipEdTrans + , (sa == "editor" && sb == "translator") || + (sb == "editor" && sa == "translator") = do + aa <- getAgents' sa + ab <- getAgents' sb + if not (null aa) && aa == ab + then modify (\s -> s { edtrans = True }) >> + evalNames True [sa] nl d + else evalNames True ns nl d + | (s:xs) <- ns = do + resetEtal + ags <- getAgents s + k <- getStringVar "ref-id" + p <- gets (citePosition . cite . env) + ops <- gets (options . env) + aus <- gets authSub + r <- do res <- agents p s ags + st <- get + fb <- agents "subsequent" s ags + put st + if null res + then return [] + else let role = if aus == ["author"] then "authorsub" else s + in return . return . OContrib k role res fb =<< gets etal + r' <- evalNames skipEdTrans xs nl d + num <- gets contNum + return $ if r /= [] && r' /= [] + then count num (r ++ [ODel $ delim ops] ++ r') + else count num $ cleanOutput (r ++ r') + | otherwise = return [] + where + agents p s a = concatMapM (formatNames (hasEtAl nl) d p s a) nl + delim ops = if d == [] then getOptionVal "names-delimiter" ops else d + resetEtal = modify (\s -> s { etal = [] }) + count num x = if hasCount nl && num /= [] -- FIXME!! le zero!! + then [OContrib [] [] [ONum (length num) emptyFormatting] [] []] + else x + hasCount = or . query hasCount' + hasCount' n + | Name Count _ _ _ _ <- n = [True] + | otherwise = [False] + +-- | The 'Bool' is 'True' when formatting a name with a final "et-al". +-- The first 'String' represents the position and the second the role +-- (e.i. editor, translator, etc.). +formatNames :: Bool -> Delimiter -> String -> String -> [Agent] -> Name -> State EvalState [Output] +formatNames ea del p s as n + | Name f _ ns _ _ <- n, Count <- f = do + b <- isBib <$> gets mode + o <- gets (options . env) >>= return . mergeOptions ns + modify $ \st -> st { contNum = nub $ (++) (take (snd $ isEtAl b o p as) as) $ contNum st } + return [] + + | Name f fm ns d np <- n = do + b <- isBib <$> gets mode + o <- gets (options . env) >>= return . mergeOptions ns + m <- gets mode + let odel = if del /= [] then del else getOptionVal "name-delimiter" o + del' = if d /= [] then d else if odel == [] then ", " else odel + (_,i) = isEtAl b o p as + form = case f of + NotSet -> case getOptionVal "name-form" o of + [] -> Long + x -> read $ toRead x + _ -> f + genName x = do etal' <- formatEtAl o ea "et-al" fm del' x + if null etal' + then do t <- getTerm False Long "and" + return $ delim t o del' $ format m o form fm np x + else return $ (addDelim del' $ format m o form fm np x) ++ etal' + setLastName o $ formatName m False f fm o np (last as) + updateEtal =<< mapM genName [1 + i .. length as] + genName i + + | NameLabel f fm pl <- n = when' (isVarSet s) $ do + b <- gets edtrans + res <- formatLabel f fm (isPlural pl $ length as) $ + if b then "editortranslator" else s + modify $ \st -> st { edtrans = False } + -- Note: the following line was here previously. + -- It produces spurious 'et al's and seems to have no function, + -- so I have commented it out: + -- updateEtal [tr' "res" res] + return res + + | EtAl fm t <- n = do + o <- gets (options . env) + if (getOptionVal "et-al-min" o == []) + then return [] + else do + et <- gets etal + let i = length as - length et + t' = if null t then "et-al" else t + r <- mapM (et_al o False t' fm del) [i .. length as] + let (r',r'') = case r of + (x:xs) -> (x, xs) + [] -> ([],[]) + updateEtal r'' + return r' + + | otherwise = return [] + where + isBib (EvalBiblio _) = True + isBib _ = False + updateEtal x = modify $ \st -> + let x' = if length x == 1 then repeat $ head x else x + in st { etal = case etal st of + [] -> x + ys -> zipWith (++) ys x' + } + isWithLastName os + | "true" <- getOptionVal "et-al-use-last" os + , em <- readNum $ getOptionVal "et-al-min" os + , uf <- readNum $ getOptionVal "et-al-use-first" os + , em - uf > 1 = True + | otherwise = False + setLastName os x + | as /= [] + , isWithLastName os = modify $ \st -> st { lastName = x} + | otherwise = return () + + format m os f fm np i + | (a:xs) <- take i as = formatName m True f fm os np a ++ + concatMap (formatName m False f fm os np) xs + | otherwise = concatMap (formatName m True f fm os np) . take i $ as + delim t os d x + | "always" <- getOptionVal "delimiter-precedes-last" os + , length x == 2 = addDelim d (init x) ++ ODel (d <^> andStr t os) : [last x] + | length x == 2 = addDelim d (init x) ++ ODel (andStr' t d os) : [last x] + | "never" <- getOptionVal "delimiter-precedes-last" os + , length x > 2 = addDelim d (init x) ++ ODel (andStr' t d os) : [last x] + | length x > 2 = addDelim d (init x) ++ ODel (d <^> andStr t os) : [last x] + | otherwise = addDelim d x + andStr t os + | "text" <- getOptionVal "and" os = " " ++ t ++ " " + | "symbol" <- getOptionVal "and" os = " & " + | otherwise = [] + andStr' t d os = if andStr t os == [] then d else andStr t os + + formatEtAl o b t fm d i = do + ln <- gets lastName + if isWithLastName o + then case () of + _ | (length as - i) == 1 -> et_al o b t fm d i -- is that correct? FIXME later + | (length as - i) > 1 -> return $ [ODel d, OPan [Str "\x2026"], OSpace] ++ ln + | otherwise -> return [] + else et_al o b t fm d i + et_al o b t fm d i + = when' (gets mode >>= return . not . isSorting) $ + if (b || length as <= i) + then return [] + else do x <- getTerm False Long t + when' (return $ x /= []) $ + case getOptionVal "delimiter-precedes-et-al" o of + "never" -> return . (++) [OSpace] $ output fm x + "always" -> return . (++) [ODel d] $ output fm x + _ -> if i > 1 + then return . (++) [ODel d] $ output fm x + else return . (++) [OSpace] $ output fm x + +-- | The first 'Bool' is 'True' if we are evaluating the bibliography. +-- The 'String' is the cite position. The function also returns the +-- number of contributors to be displayed. +isEtAl :: Bool -> [Option] -> String -> [Agent] -> (Bool, Int) +isEtAl b os p as + | p /= "first" + , isOptionSet "et-al-subsequent-min" os + , isOptionSet "et-al-subsequent-use-first" os + , le <- etAlMin "et-al-subsequent-min" + , le' <- etAlMin "et-al-subsequent-use-first" + , length as >= le + , length as > le' = (,) True le' + | isOptionSet' "et-al-min" "et-al-subsequent-min" + , isOptionSet' "et-al-use-first" "et-al-subsequent-use-first" + , le <- etAlMin' "et-al-min" "et-al-subsequent-min" + , le' <- etAlMin' "et-al-use-first" "et-al-subsequent-use-first" + , length as >= le + , length as > le' = (,) True le' + | isOptionSet' "et-al-min" "et-al-subsequent-min" + , le <- etAlMin' "et-al-min" "et-al-subsequent-min" + , length as >= le + , length as > 1 = (,) True getUseFirst + | otherwise = (,) False $ length as + where + etAlMin x = read $ getOptionVal x os + etAlMin' x y = if b then etAlMin x else read $ getOptionVal' x y + isOptionSet' s1 s2 = if b + then isOptionSet s1 os + else or $ (isOptionSet s1 os) : [(isOptionSet s2 os)] + getOptionVal' s1 s2 = if null (getOptionVal s1 os) + then getOptionVal s2 os + else getOptionVal s1 os + getUseFirst = let u = if b + then getOptionVal "et-al-use-first" os + else getOptionVal' "et-al-use-first" "et-al-subsequent-min" + in if null u then 1 else read u + +-- | Generate the 'Agent's names applying et-al options, with all +-- possible permutations to disambiguate colliding citations. The +-- 'Bool' indicate whether we are formatting the first name or not. +formatName :: EvalMode -> Bool -> Form -> Formatting -> [Option] -> [NamePart] -> Agent -> [Output] +formatName m b f fm ops np n + | literal n /= mempty = return $ OName n institution [] fm + | Short <- f = return $ OName n shortName disambdata fm + | otherwise = return $ OName n (longName given) disambdata fm + where + institution = oPan' (unFormatted $ literal n) (form "family") + when_ c o = if c /= mempty then o else mempty + addAffixes (Formatted []) _ [] = [] + addAffixes s sf ns = [Output (Output [OPan (unFormatted s)] + (form sf){ prefix = mempty, suffix = mempty} : ns) + emptyFormatting { prefix = prefix (form sf) + , suffix = suffix (form sf)}] + + form s = case filter (\(NamePart n' _) -> n' == s) np of + NamePart _ fm':_ -> fm' + _ -> emptyFormatting + + hyphenate new [] = new + hyphenate new accum = + if getOptionVal "initialize-with-hyphen" ops == "false" + then new ++ accum + else trimsp new ++ [Str "-"] ++ accum + isInit [Str [c]] = isUpper c + isInit _ = False + initial (Formatted x) = + case lookup "initialize-with" ops of + Just iw + | getOptionVal "initialize" ops == "false" + , isInit x -> addIn x $ B.toList $ B.text iw + | getOptionVal "initialize" ops /= "false" + , not (all isLower $ query (:[]) x) -> addIn x $ B.toList $ B.text iw + Nothing + | isInit x -> addIn x [Space] -- default + _ -> Space : x ++ [Space] + addIn x i = foldr hyphenate [] + $ map (\z -> Str (headInline z) : i) + $ wordsBy (== Str "-") + $ splitStrWhen (=='-') x + + sortSep g s = when_ g $ separator ++ addAffixes (g <+> s) "given" mempty + separator = if null (getOptionVal "sort-separator" ops) + then [OPan [Str ",", Space]] + else [OPan $ B.toList $ B.text $ getOptionVal "sort-separator" ops] + + suff = if commaSuffix n && nameSuffix n /= mempty + then suffCom + else suffNoCom + suffCom = when_ (nameSuffix n) $ separator ++ + oPan' (unFormatted $ nameSuffix n) fm + suffNoCom = when_ (nameSuffix n) $ OSpace : oPan' (unFormatted $ nameSuffix n) fm + + onlyGiven = not (givenName n == mempty) && family == mempty + given = if onlyGiven + then givenLong + else when_ (givenName n) . Formatted . trimsp . fixsp . concatMap initial $ givenName n + fixsp (Space:Space:xs) = fixsp (Space:xs) + fixsp (x:xs) = x : fixsp xs + fixsp [] = [] + trimsp = reverse . dropWhile (==Space) . reverse . dropWhile (==Space) + givenLong = when_ (givenName n) . mconcat . intersperse (Formatted [Space]) $ givenName n + family = familyName n + dropping = droppingPart n + nondropping = nonDroppingPart n + -- see src/load.js ROMANESQUE_REGEX in citeproc-js: + isByzantine c = not (isLetter c) || + c <= '\x5FF' || + (c >= '\x1f00' && c <= '\x1fff') + shortName = oPan' (unFormatted $ nondropping <+> family) (form "family") + longName g = if isSorting m + then let firstPart = case getOptionVal "demote-non-dropping-particle" ops of + "never" -> nondropping <+> family <+> dropping + _ -> family <+> dropping <+> nondropping + in oPan' (unFormatted firstPart) (form "family") <++> oPan' (unFormatted g) (form "given") <> suffCom + else if (b && getOptionVal "name-as-sort-order" ops == "first") || + getOptionVal "name-as-sort-order" ops == "all" + then let (fam,par) = case getOptionVal "demote-non-dropping-particle" ops of + "never" -> (nondropping <+> family, dropping) + "sort-only" -> (nondropping <+> family, dropping) + _ -> (family, dropping <+> nondropping) + in oPan' (unFormatted fam) (form "family") <> sortSep g par <> suffCom + else let fam = addAffixes (dropping <+> nondropping <+> family) "family" suff + gvn = oPan' (unFormatted g) (form "given") + in if all isByzantine $ stringify $ unFormatted family + then gvn <++> fam + else fam <> gvn + + disWithGiven = getOptionVal "disambiguate-add-givenname" ops == "true" + initialize = isJust (lookup "initialize-with" ops) && not onlyGiven + isLong = f /= Short && initialize + givenRule = let gr = getOptionVal "givenname-disambiguation-rule" ops + in if null gr then "by-cite" else gr + disambdata = case () of + _ | "all-names-with-initials" <- givenRule + , disWithGiven, Short <- f, initialize -> [longName given] + | "primary-name-with-initials" <- givenRule + , disWithGiven, Short <- f, initialize, b -> [longName given] + | disWithGiven, Short <- f, b + , "primary-name" <- givenRule -> [longName given, longName givenLong] + | disWithGiven, Short <- f + , "all-names" <- givenRule -> [longName given, longName givenLong] + | disWithGiven, Short <- f + , "by-cite" <- givenRule -> [longName given, longName givenLong] + | disWithGiven, isLong -> [longName givenLong] + | otherwise -> [] + +formatTerm :: Form -> Formatting -> Bool -> String -> State EvalState [Output] +formatTerm f fm p s = do + t <- getTerm p f s + return $ oStr' t fm + +formatLabel :: Form -> Formatting -> Bool -> String -> State EvalState [Output] +formatLabel f fm p s + | "locator" <- s = when' (gets (citeLocator . cite . env) >>= return . (/=) []) $ do + (l,v) <- getLocVar + form (\fm' -> return . flip OLoc emptyFormatting . output fm') id l ('-' `elem` v || '\x2013' `elem` v) + | "page" <- s = checkPlural + | "volume" <- s = checkPlural + | "ibid" <- s = format s p + | isRole s = do a <- getAgents' (if s == "editortranslator" + then "editor" + else s) + if null a + then return [] + else form (\fm' x -> [OLabel x fm']) id s p + | otherwise = format s p + where + isRole = flip elem ["author", "collection-editor", "composer", "container-author" + ,"director", "editor", "editorial-director", "editortranslator" + ,"illustrator", "interviewer", "original-author", "recipient" + ,"reviewed-author", "translator"] + checkPlural = when' (isVarSet s) $ do + v <- getStringVar s + format s ('-' `elem` v || '\x2013' `elem` v) + format = form output id + form o g t b = return . o fm =<< g . period <$> getTerm (b && p) f t + period = if stripPeriods fm then filter (/= '.') else id + +(<+>) :: Formatted -> Formatted -> Formatted +Formatted [] <+> ss = ss +s <+> Formatted [] = s +Formatted xs <+> Formatted ys = + case lastInline xs of + "’" -> Formatted (xs ++ ys) + _ -> Formatted (xs ++ [Space] ++ ys) + +(<++>) :: [Output] -> [Output] -> [Output] +[] <++> o = o +o <++> [] = o +o1 <++> o2 = o1 ++ [OSpace] ++ o2 diff --git a/src/Text/CSL/Eval/Output.hs b/src/Text/CSL/Eval/Output.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Eval/Output.hs @@ -0,0 +1,199 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Eval.Output +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- The CSL implementation +-- +----------------------------------------------------------------------------- + +module Text.CSL.Eval.Output where + +import Text.CSL.Output.Pandoc (lastInline) +import Text.CSL.Style +import Data.Char (toLower, toUpper) +import Text.CSL.Util (capitalize, titlecase, unTitlecase, isPunct) +import Text.Pandoc.Definition +import Text.Pandoc.Walk (walk) +import Data.Monoid (mempty, mconcat, (<>)) +import Data.String (fromString) +import Data.Maybe (mapMaybe) + +output :: Formatting -> String -> [Output] +output fm s + | ' ':xs <- s = OSpace : output fm xs + | [] <- s = [] + | otherwise = [OStr s fm] + +appendOutput :: Formatting -> [Output] -> [Output] +appendOutput fm xs = if xs /= [] then [Output xs fm] else [] + +outputList :: Formatting -> Delimiter -> [Output] -> [Output] +outputList fm d = appendOutput fm . addDelim d . mapMaybe cleanOutput' + where + cleanOutput' o + | Output xs f <- o = case cleanOutput xs of + [] -> Nothing + ys -> Just (Output ys f) + | otherwise = rmEmptyOutput o + +cleanOutput :: [Output] -> [Output] +cleanOutput = flatten + where + flatten [] = [] + flatten (o:os) + | ONull <- o = flatten os + | Output xs f <- o + , f == emptyFormatting = flatten (mapMaybe rmEmptyOutput xs) ++ flatten os + | Output xs f <- o = Output (flatten $ mapMaybe rmEmptyOutput xs) f : flatten os + | otherwise = maybe id (:) (rmEmptyOutput o) $ flatten os + +rmEmptyOutput :: Output -> Maybe Output +rmEmptyOutput o + | Output [] _ <- o = Nothing + | OStr [] _ <- o = Nothing + | OPan [] <- o = Nothing + | ODel [] <- o = Nothing + | otherwise = Just o + +addDelim :: String -> [Output] -> [Output] +addDelim "" = id +addDelim d = foldr check [] + where + check ONull xs = xs + check x [] = [x] + check x (z:zs) = if formatOutput x == mempty || formatOutput z == mempty + then x : z : zs + else x : ODel d : z : zs + +noOutputError :: Output +noOutputError = OErr NoOutput + +noBibDataError :: Cite -> Output +noBibDataError c = OErr $ ReferenceNotFound (citeId c) + +oStr :: String -> [Output] +oStr s = oStr' s emptyFormatting + +oStr' :: String -> Formatting -> [Output] +oStr' [] _ = [] +oStr' s f = [OStr s f] + +oPan :: [Inline] -> [Output] +oPan [] = [] +oPan ils = [OPan ils] + +oPan' :: [Inline] -> Formatting -> [Output] +oPan' [] _ = [] +oPan' ils f = [Output [OPan ils] f] + +formatOutputList :: [Output] -> Formatted +formatOutputList = mconcat . map formatOutput + +-- | Convert evaluated 'Output' into 'Formatted', ready for the +-- output filters. +formatOutput :: Output -> Formatted +formatOutput o = + case o of + OSpace -> Formatted [Space] + OPan i -> Formatted i + ODel [] -> Formatted [] + ODel " " -> Formatted [Space] + ODel s -> fromString s + OStr [] _ -> Formatted [] + OStr s f -> addFormatting f $ fromString s + OErr NoOutput -> Formatted [Span ("",["citeproc-no-output"],[]) + [Strong [Str "???"]]] + OErr (ReferenceNotFound r) + -> Formatted [Span ("",["citeproc-not-found"], + [("data-reference-id",r)]) + [Strong [Str "???"]]] + OLabel [] _ -> Formatted [] + OLabel s f -> formatOutput (OStr s f) + ODate os -> format os + OYear s _ f -> formatOutput (OStr s f) + OYearSuf s _ _ f -> formatOutput (OStr s f) + ONum i f -> formatOutput (OStr (show i) f) + OCitNum i f -> if i == 0 + then Formatted [Strong [Str "???"]] + else formatOutput (OStr (show i) f) + OName _ os _ f -> formatOutput (Output os f) + OContrib _ _ os _ _ -> format os + OLoc os f -> formatOutput (Output os f) + Output [] _ -> Formatted [] + Output os f -> addFormatting f $ format os + _ -> Formatted [] + where + format = mconcat . map formatOutput + +addFormatting :: Formatting -> Formatted -> Formatted +addFormatting f = addSuffix . pref . quote . font . text_case + where pref i = case prefix f of + "" -> i + x -> fromString x <> i + addSuffix i + | null (suffix f) = i + | case suffix f of {(c:_) | isPunct c -> True; _ -> False} + , case lastInline (unFormatted i) of {(c:_) | isPunct c -> True; _ -> False} + = i <> fromString (tail $ suffix f) + | otherwise = i <> fromString (suffix f) + + quote (Formatted []) = Formatted [] + quote (Formatted ils) = + case quotes f of + NoQuote -> Formatted $ valign ils + NativeQuote -> Formatted + [Span ("",["csl-inquote"],[]) ils] + _ -> Formatted [Quoted DoubleQuote $ valign ils] + + font (Formatted ils) + | noDecor f = Formatted [Span ("",["nodecor"],[]) ils] + | otherwise = Formatted $ font_variant . font_style . font_weight $ ils + font_variant ils = + case fontVariant f of + "small-caps" -> [SmallCaps ils] + _ -> ils + font_style ils = + case fontStyle f of + "italic" -> [Emph ils] + "oblique" -> [Emph ils] + _ -> ils + font_weight ils = + case fontWeight f of + "bold" -> [Strong ils] + _ -> ils + + text_case (Formatted []) = Formatted [] + text_case (Formatted ils@(i:is)) + | noCase f = Formatted [Span ("",["nocase"],[]) ils] + | otherwise = Formatted $ + case textCase f of + "lowercase" -> walk lowercaseStr ils + "uppercase" -> walk uppercaseStr ils + "capitalize-all" -> walk capitalizeStr ils + "title" -> titlecase ils + "capitalize-first" -> walk capitalizeStr i : is + "sentence" -> unTitlecase ils + _ -> ils + + lowercaseStr (Str xs) = Str $ map toLower xs + lowercaseStr x = x + uppercaseStr (Str xs) = Str $ map toUpper xs + uppercaseStr x = x + capitalizeStr (Str xs) = Str $ capitalize xs + capitalizeStr x = x + + valign [] = [] + valign ils + | "sup" <- verticalAlign f = [Superscript ils] + | "sub" <- verticalAlign f = [Subscript ils] + | "baseline" <- verticalAlign f = + [Span ("",["csl-baseline"],[]) ils] + | otherwise = ils + diff --git a/src/Text/CSL/Input/Bibtex.hs b/src/Text/CSL/Input/Bibtex.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Input/Bibtex.hs @@ -0,0 +1,1098 @@ +{-# OPTIONS_GHC -fno-warn-unused-do-bind #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Input.Bibtex +-- Copyright : (c) John MacFarlane +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : John MacFarlane +-- Stability : unstable-- Portability : unportable +-- +----------------------------------------------------------------------------- + +module Text.CSL.Input.Bibtex + ( readBibtexInput + , readBibtexInputString + ) + where + +import Text.Parsec hiding (optional, (<|>), many, State) +import Control.Applicative +import Text.Pandoc +import Data.List.Split (splitOn, splitWhen, wordsBy) +import Data.List (intercalate) +import Data.Maybe +import Data.Char (toLower, isUpper, toUpper, isDigit, isAlphaNum) +import Control.Monad +import Control.Monad.RWS +import System.Environment (getEnvironment) +import Text.CSL.Reference +import Text.CSL.Style (Formatted(..), Locale(..), CslTerm(..), Agent(..)) +import Text.CSL.Util (trim, onBlocks, unTitlecase, protectCase, splitStrWhen) +import Text.CSL.Parser (parseLocale) +import qualified Text.Pandoc.Walk as Walk +import qualified Text.Pandoc.UTF8 as UTF8 + +blocksToFormatted :: [Block] -> Bib Formatted +blocksToFormatted bs = + case bs of + [Plain xs] -> inlinesToFormatted xs + [Para xs] -> inlinesToFormatted xs + _ -> inlinesToFormatted $ Walk.query (:[]) bs + +adjustSpans :: Lang -> Inline -> [Inline] +adjustSpans _ (Span ("",[],[]) xs) = xs +adjustSpans lang (RawInline (Format "latex") s) + | s == "\\hyphen" = [Str "-"] + | otherwise = bottomUp (concatMap (adjustSpans lang)) $ parseRawLaTeX lang s +adjustSpans _ x = [x] + +parseRawLaTeX :: Lang -> String -> [Inline] +parseRawLaTeX lang ('\\':xs) = + case readLaTeX def{readerParseRaw = True} contents of + Pandoc _ [Para ys] -> f command ys + Pandoc _ [Plain ys] -> f command ys + _ -> [] + where (command', contents') = break (=='{') xs + command = trim command' + contents = drop 1 $ reverse $ drop 1 $ reverse contents' + f "mkbibquote" ils = [Quoted DoubleQuote ils] + f "textnormal" ils = [Span ("",["nodecor"],[]) ils] + f "bibstring" [Str s] = [Str $ resolveKey' lang s] + f _ ils = [Span nullAttr ils] +parseRawLaTeX _ _ = [] + +inlinesToFormatted :: [Inline] -> Bib Formatted +inlinesToFormatted ils = do + lang <- gets localeLanguage + return $ Formatted $ bottomUp (concatMap (adjustSpans lang)) ils + +data Item = Item{ identifier :: String + , entryType :: String + , fields :: [(String, String)] + } + +readBibtexInput :: Bool -> FilePath -> IO [Reference] +readBibtexInput isBibtex f = UTF8.readFile f >>= readBibtexInputString isBibtex + +readBibtexInputString :: Bool -> String -> IO [Reference] +readBibtexInputString isBibtex bibstring = do + env <- getEnvironment + let lang = case lookup "LANG" env of + Just x -> case splitWhen (\c -> c == '.' || c == '_') x of + (w:z:_) -> Lang w z + [w] -> Lang w mempty + _ -> Lang "en" "US" + Nothing -> Lang "en" "US" + let items = case runParser (bibEntries <* eof) [] "stdin" bibstring of + Left err -> error (show err) + Right xs -> resolveCrossRefs isBibtex xs + locale <- parseLocale (langToLocale lang) + return $ mapMaybe (itemToReference lang locale isBibtex) items + +type BibParser = Parsec [Char] [(String, String)] + +bibEntries :: BibParser [Item] +bibEntries = many (try (skipMany nonEntry >> bibItem)) <* skipMany nonEntry + where nonEntry = bibSkip <|> bibComment <|> bibPreamble <|> bibString + +bibSkip :: BibParser () +bibSkip = skipMany1 (satisfy (/='@')) + +bibComment :: BibParser () +bibComment = try $ do + char '@' + cistring "comment" + skipMany (satisfy (/='\n')) + +bibPreamble :: BibParser () +bibPreamble = try $ do + char '@' + cistring "preamble" + spaces + void inBraces + return () + +bibString :: BibParser () +bibString = try $ do + char '@' + cistring "string" + spaces + char '{' + spaces + f <- entField + spaces + char '}' + updateState $ (f:) + return () + +inBraces :: BibParser String +inBraces = try $ do + char '{' + res <- manyTill + ( many1 (noneOf "{}\\") + <|> (char '\\' >> ( (char '{' >> return "\\{") + <|> (char '}' >> return "\\}") + <|> return "\\")) + <|> (braced <$> inBraces) + ) (char '}') + return $ concat res + +braced :: String -> String +braced s = "{" ++ s ++ "}" + +inQuotes :: BibParser String +inQuotes = do + char '"' + concat <$> manyTill ( many1 (noneOf "\"\\{") + <|> (char '\\' >> (\c -> ['\\',c]) <$> anyChar) + <|> braced <$> inBraces + ) (char '"') + +fieldName :: BibParser String +fieldName = (map toLower) <$> many1 (letter <|> digit <|> oneOf "-_") + +isBibtexKeyChar :: Char -> Bool +isBibtexKeyChar c = isAlphaNum c || c `elem` ".:;?!`'()/*@_+=-[]*" + +bibItem :: BibParser Item +bibItem = do + char '@' + enttype <- map toLower <$> many1 letter + spaces + char '{' + spaces + entid <- many (satisfy isBibtexKeyChar) + spaces + char ',' + spaces + entfields <- entField `sepEndBy` (char ',') + spaces + char '}' + return $ Item entid enttype entfields + +entField :: BibParser (String, String) +entField = try $ do + spaces + k <- fieldName + spaces + char '=' + spaces + vs <- (expandString <|> inQuotes <|> inBraces <|> rawWord) `sepBy` + (try $ spaces >> char '#' >> spaces) + spaces + return (k, concat vs) + +rawWord :: BibParser String +rawWord = many1 alphaNum + +expandString :: BibParser String +expandString = do + k <- fieldName + strs <- getState + case lookup k strs of + Just v -> return v + Nothing -> return k -- return raw key if not found + +cistring :: String -> BibParser String +cistring [] = return [] +cistring (c:cs) = do + x <- (char (toLower c) <|> char (toUpper c)) + xs <- cistring cs + return (x:xs) + +resolveCrossRefs :: Bool -> [Item] -> [Item] +resolveCrossRefs isBibtex entries = + map (resolveCrossRef isBibtex entries) entries + +splitKeys :: String -> [String] +splitKeys = wordsBy (\c -> c == ' ' || c == ',') + +getXrefFields :: Bool -> Item -> [Item] -> String -> [(String, String)] +getXrefFields isBibtex baseEntry entries keys = do + let keys' = splitKeys keys + xrefEntry <- [e | e <- entries, identifier e `elem` keys'] + (k, v) <- fields xrefEntry + if k == "crossref" || k == "xdata" + then do + xs <- mapM (getXrefFields isBibtex baseEntry entries) + (splitKeys v) + (x, y) <- xs + guard $ isNothing $ lookup x $ fields xrefEntry + return (x, y) + else do + k' <- if isBibtex + then return k + else transformKey (entryType xrefEntry) (entryType baseEntry) k + guard $ isNothing $ lookup k' $ fields baseEntry + return (k',v) + +resolveCrossRef :: Bool -> [Item] -> Item -> Item +resolveCrossRef isBibtex entries entry = foldl go entry (fields entry) + where go entry' (key, val) = + if key == "crossref" || key == "xdata" + then entry'{ fields = fields entry' ++ + getXrefFields isBibtex entry entries val } + else entry' + +-- transformKey source target key +-- derived from Appendix C of bibtex manual +transformKey :: String -> String -> String -> [String] +transformKey _ _ "ids" = [] +transformKey _ _ "crossref" = [] +transformKey _ _ "xref" = [] +transformKey _ _ "entryset" = [] +transformKey _ _ "entrysubtype" = [] +transformKey _ _ "execute" = [] +transformKey _ _ "label" = [] +transformKey _ _ "options" = [] +transformKey _ _ "presort" = [] +transformKey _ _ "related" = [] +transformKey _ _ "relatedoptions" = [] +transformKey _ _ "relatedstring" = [] +transformKey _ _ "relatedtype" = [] +transformKey _ _ "shorthand" = [] +transformKey _ _ "shorthandintro" = [] +transformKey _ _ "sortkey" = [] +transformKey x y "author" + | x `elem` ["mvbook", "book"] && + y `elem` ["inbook", "bookinbook", "suppbook"] = ["bookauthor", "author"] +-- note: this next clause is not in the biblatex manual, but it makes +-- sense in the context of CSL conversion: +transformKey x y "author" + | x == "mvbook" && y == "book" = ["bookauthor", "author"] +transformKey "mvbook" y z + | y `elem` ["book", "inbook", "bookinbook", "suppbook"] = standardTrans z +transformKey x y z + | x `elem` ["mvcollection", "mvreference"] && + y `elem` ["collection", "reference", "incollection", "inreference", + "suppcollection"] = standardTrans z +transformKey "mvproceedings" y z + | y `elem` ["proceedings", "inproceedings"] = standardTrans z +transformKey "book" y z + | y `elem` ["inbook", "bookinbook", "suppbook"] = bookTrans z +transformKey x y z + | x `elem` ["collection", "reference"] && + y `elem` ["incollection", "inreference", "suppcollection"] = bookTrans z +transformKey "proceedings" "inproceedings" z = bookTrans z +transformKey "periodical" y z + | y `elem` ["article", "suppperiodical"] = + case z of + "title" -> ["journaltitle"] + "subtitle" -> ["journalsubtitle"] + "shorttitle" -> [] + "sorttitle" -> [] + "indextitle" -> [] + "indexsorttitle" -> [] + _ -> [z] +transformKey _ _ x = [x] + +standardTrans :: String -> [String] +standardTrans z = + case z of + "title" -> ["maintitle"] + "subtitle" -> ["mainsubtitle"] + "titleaddon" -> ["maintitleaddon"] + "shorttitle" -> [] + "sorttitle" -> [] + "indextitle" -> [] + "indexsorttitle" -> [] + _ -> [z] + +bookTrans :: String -> [String] +bookTrans z = + case z of + "title" -> ["booktitle"] + "subtitle" -> ["booksubtitle"] + "titleaddon" -> ["booktitleaddon"] + "shorttitle" -> [] + "sorttitle" -> [] + "indextitle" -> [] + "indexsorttitle" -> [] + _ -> [z] + +data Lang = Lang String String -- e.g. "en" "US" + +langToLocale :: Lang -> String +langToLocale (Lang x y) = x ++ ('-':y) + +resolveKey :: Lang -> Formatted -> Formatted +resolveKey lang (Formatted ils) = Formatted (Walk.walk go ils) + where go (Str s) = Str $ resolveKey' lang s + go x = x + +resolveKey' :: Lang -> String -> String +resolveKey' (Lang "en" "US") k = + case map toLower k of + "inpreparation" -> "in preparation" + "submitted" -> "submitted" + "forthcoming" -> "forthcoming" + "inpress" -> "in press" + "prepublished" -> "pre-published" + "mathesis" -> "Master’s thesis" + "phdthesis" -> "PhD thesis" + "candthesis" -> "Candidate thesis" + "techreport" -> "technical report" + "resreport" -> "research report" + "software" -> "computer software" + "datacd" -> "data CD" + "audiocd" -> "audio CD" + "patent" -> "patent" + "patentde" -> "German patent" + "patenteu" -> "European patent" + "patentfr" -> "French patent" + "patentuk" -> "British patent" + "patentus" -> "U.S. patent" + "patreq" -> "patent request" + "patreqde" -> "German patent request" + "patreqeu" -> "European patent request" + "patreqfr" -> "French patent request" + "patrequk" -> "British patent request" + "patrequs" -> "U.S. patent request" + "countryde" -> "Germany" + "countryeu" -> "European Union" + "countryep" -> "European Union" + "countryfr" -> "France" + "countryuk" -> "United Kingdom" + "countryus" -> "United States of America" + "newseries" -> "new series" + "oldseries" -> "old series" + _ -> k +resolveKey' _ k = resolveKey' (Lang "en" "US") k + +parseMonth :: String -> String +parseMonth "jan" = "1" +parseMonth "feb" = "2" +parseMonth "mar" = "3" +parseMonth "apr" = "4" +parseMonth "may" = "5" +parseMonth "jun" = "6" +parseMonth "jul" = "7" +parseMonth "aug" = "8" +parseMonth "sep" = "9" +parseMonth "oct" = "10" +parseMonth "nov" = "11" +parseMonth "dec" = "12" +parseMonth x = x + +data BibState = BibState{ + untitlecase :: Bool + , localeLanguage :: Lang + } + +type Bib = RWST Item () BibState Maybe + +notFound :: String -> Bib a +notFound f = fail $ f ++ " not found" + +getField :: String -> Bib Formatted +getField f = do + fs <- asks fields + case lookup f fs of + Just x -> latex x + Nothing -> notFound f + +getPeriodicalTitle :: String -> Bib Formatted +getPeriodicalTitle f = do + fs <- asks fields + case lookup f fs of + Just x -> blocksToFormatted $ onBlocks protectCase $ latex' $ trim x + Nothing -> notFound f + +getTitle :: String -> Bib Formatted +getTitle f = do + fs <- asks fields + case lookup f fs of + Just x -> latexTitle x + Nothing -> notFound f + +getShortTitle :: Bool -> String -> Bib Formatted +getShortTitle requireColon f = do + fs <- asks fields + utc <- gets untitlecase + let processTitle = if utc then onBlocks unTitlecase else id + case lookup f fs of + Just x -> case processTitle $ latex' x of + bs | not requireColon || containsColon bs -> + blocksToFormatted $ upToColon bs + | otherwise -> return mempty + Nothing -> notFound f + +containsColon :: [Block] -> Bool +containsColon [Para xs] = (Str ":") `elem` xs +containsColon [Plain xs] = containsColon [Para xs] +containsColon _ = False + +upToColon :: [Block] -> [Block] +upToColon [Para xs] = [Para $ takeWhile (/= (Str ":")) xs] +upToColon [Plain xs] = upToColon [Para xs] +upToColon bs = bs + +getDates :: String -> Bib [RefDate] +getDates f = getRawField f >>= parseDates + +parseDates :: Monad m => String-> m [RefDate] +parseDates = mapM parseDate . splitWhen (== '/') + +parseDate :: Monad m => String -> m RefDate +parseDate s = do + let (year', month', day') = + case splitWhen (== '-') s of + [y] -> (y, mempty, mempty) + [y,m] -> (y, m, mempty) + [y,m,d] -> (y, m, d) + _ -> (mempty, mempty, mempty) + return RefDate { year = Literal $ dropWhile (=='0') year' + , month = Literal $ dropWhile (=='0') month' + , season = mempty + , day = Literal $ dropWhile (=='0') day' + , other = mempty + , circa = False + } + +isNumber :: String -> Bool +isNumber ('-':d:ds) = all isDigit (d:ds) +isNumber (d:ds) = all isDigit (d:ds) +isNumber _ = False + +-- A negative (BC) year might be written with -- or --- in bibtex: +fixLeadingDash :: String -> String +fixLeadingDash (c:d:ds) + | (c == '–' || c == '—') && isDigit d = '-':d:ds +fixLeadingDash xs = xs + +getOldDates :: String -> Bib [RefDate] +getOldDates prefix = do + year' <- fixLeadingDash <$> getRawField (prefix ++ "year") + month' <- (parseMonth <$> getRawField (prefix ++ "month")) <|> return "" + day' <- getRawField (prefix ++ "day") <|> return mempty + endyear' <- fixLeadingDash <$> getRawField (prefix ++ "endyear") <|> return "" + endmonth' <- getRawField (prefix ++ "endmonth") <|> return "" + endday' <- getRawField (prefix ++ "endday") <|> return "" + let start' = RefDate { year = Literal $ if isNumber year' then year' else "" + , month = Literal $ month' + , season = mempty + , day = Literal day' + , other = Literal $ if isNumber year' then "" else year' + , circa = False + } + let end' = if null endyear' + then [] + else [RefDate { year = Literal $ if isNumber endyear' then endyear' else "" + , month = Literal $ endmonth' + , day = Literal $ endday' + , season = mempty + , other = Literal $ if isNumber endyear' then "" else endyear' + , circa = False + }] + return (start':end') + +getRawField :: String -> Bib String +getRawField f = do + fs <- asks fields + case lookup f fs of + Just x -> return x + Nothing -> notFound f + +getAuthorList :: Options -> String -> Bib [Agent] +getAuthorList opts f = do + fs <- asks fields + case lookup f fs of + Just x -> latexAuthors opts x + Nothing -> notFound f + +getLiteralList :: String -> Bib [Formatted] +getLiteralList f = do + fs <- asks fields + case lookup f fs of + Just x -> toLiteralList $ latex' x + Nothing -> notFound f + +-- separates items with semicolons +getLiteralList' :: String -> Bib Formatted +getLiteralList' f = (Formatted . intercalate [Str ";", Space] . map unFormatted) + <$> getLiteralList f + +splitByAnd :: [Inline] -> [[Inline]] +splitByAnd = splitOn [Space, Str "and", Space] + +toLiteralList :: [Block] -> Bib [Formatted] +toLiteralList [Para xs] = + mapM inlinesToFormatted $ splitByAnd xs +toLiteralList [Plain xs] = toLiteralList [Para xs] +toLiteralList _ = mzero + +toAuthorList :: Options -> [Block] -> Bib [Agent] +toAuthorList opts [Para xs] = + mapM (toAuthor opts) $ splitByAnd xs +toAuthorList opts [Plain xs] = toAuthorList opts [Para xs] +toAuthorList _ _ = mzero + +toAuthor :: Options -> [Inline] -> Bib Agent +toAuthor _ [Str "others"] = return $ + Agent { givenName = [] + , droppingPart = mempty + , nonDroppingPart = mempty + , familyName = mempty + , nameSuffix = mempty + , literal = Formatted [Str "others"] + , commaSuffix = False + , parseNames = True + } +toAuthor _ [Span ("",[],[]) ils] = + return $ -- corporate author + Agent { givenName = [] + , droppingPart = mempty + , nonDroppingPart = mempty + , familyName = mempty + , nameSuffix = mempty + , literal = Formatted ils + , commaSuffix = False + , parseNames = True + } +-- First von Last +-- von Last, First +-- von Last, Jr ,First +-- NOTE: biblatex and bibtex differ on: +-- Drummond de Andrade, Carlos +-- bibtex takes "Drummond de" as the von; +-- biblatex takes the whole as a last name. +-- See https://github.com/plk/biblatex/issues/236 +-- Here we implement the more sensible biblatex behavior. +toAuthor opts ils = do + let useprefix = optionSet "useprefix" opts + let usecomma = optionSet "juniorcomma" opts + let bibtex = optionSet "bibtex" opts + let words' = wordsBy (\x -> x == Space || x == Str "\160") + let commaParts = map words' $ splitWhen (== Str ",") + $ splitStrWhen (\c -> c == ',' || c == '\160') ils + let (first, vonlast, jr) = + case commaParts of + --- First is the longest sequence of white-space separated + -- words starting with an uppercase and that is not the + -- whole string. von is the longest sequence of whitespace + -- separated words whose last word starts with lower case + -- and that is not the whole string. + [fvl] -> let (caps', rest') = span isCapitalized fvl + in if null rest' && not (null caps') + then (init caps', [last caps'], []) + else (caps', rest', []) + [vl,f] -> (f, vl, []) + (vl:j:f:_) -> (f, vl, j ) + [] -> ([], [], []) + + let (von, lastname) = + if bibtex + then case span isCapitalized $ reverse vonlast of + ([],(w:ws)) -> (reverse ws, [w]) + (vs, ws) -> (reverse ws, reverse vs) + else case span (not . isCapitalized) vonlast of + (vs@(_:_), []) -> (init vs, [last vs]) + (vs, ws) -> (vs, ws) + let prefix = Formatted $ intercalate [Space] von + let family = Formatted $ intercalate [Space] lastname + let suffix = Formatted $ intercalate [Space] jr + let givens = map Formatted first + return $ + Agent { givenName = givens + , droppingPart = if useprefix then mempty else prefix + , nonDroppingPart = if useprefix then prefix else mempty + , familyName = family + , nameSuffix = suffix + , literal = mempty + , commaSuffix = usecomma + , parseNames = True + } + +isCapitalized :: [Inline] -> Bool +isCapitalized (Str (c:cs) : rest) + | isUpper c = True + | isDigit c = isCapitalized (Str cs : rest) + | otherwise = False +isCapitalized (_:rest) = isCapitalized rest +isCapitalized [] = True + +optionSet :: String -> Options -> Bool +optionSet key opts = case lookup key opts of + Just "true" -> True + Just s -> s == mempty + _ -> False + +latex' :: String -> [Block] +latex' s = bs + where Pandoc _ bs = readLaTeX def{readerParseRaw = True} s + +latex :: String -> Bib Formatted +latex s = blocksToFormatted $ latex' $ trim s + +latexTitle :: String -> Bib Formatted +latexTitle s = do + utc <- gets untitlecase + let processTitle = if utc then onBlocks unTitlecase else id + blocksToFormatted $ processTitle $ latex' s + +latexAuthors :: Options -> String -> Bib [Agent] +latexAuthors opts = toAuthorList opts . latex' . trim + +bib :: Bib Reference -> Item -> Maybe Reference +bib m entry = fmap fst $ evalRWST m entry (BibState True (Lang "en" "US")) + +toLocale :: String -> String +toLocale "english" = "en-US" -- "en-EN" unavailable in CSL +toLocale "usenglish" = "en-US" +toLocale "american" = "en-US" +toLocale "british" = "en-GB" +toLocale "ukenglish" = "en-GB" +toLocale "canadian" = "en-US" -- "en-CA" unavailable in CSL +toLocale "australian" = "en-GB" -- "en-AU" unavailable in CSL +toLocale "newzealand" = "en-GB" -- "en-NZ" unavailable in CSL +toLocale "afrikaans" = "af-ZA" +toLocale "arabic" = "ar" +toLocale "basque" = "eu" +toLocale "bulgarian" = "bg-BG" +toLocale "catalan" = "ca-AD" +toLocale "croatian" = "hr-HR" +toLocale "czech" = "cs-CZ" +toLocale "danish" = "da-DK" +toLocale "dutch" = "nl-NL" +toLocale "estonian" = "et-EE" +toLocale "finnish" = "fi-FI" +toLocale "canadien" = "fr-CA" +toLocale "acadian" = "fr-CA" +toLocale "french" = "fr-FR" +toLocale "francais" = "fr-FR" +toLocale "austrian" = "de-AT" +toLocale "naustrian" = "de-AT" +toLocale "german" = "de-DE" +toLocale "germanb" = "de-DE" +toLocale "ngerman" = "de-DE" +toLocale "greek" = "el-GR" +toLocale "polutonikogreek" = "el-GR" +toLocale "hebrew" = "he-IL" +toLocale "hungarian" = "hu-HU" +toLocale "icelandic" = "is-IS" +toLocale "italian" = "it-IT" +toLocale "japanese" = "ja-JP" +toLocale "latvian" = "lv-LV" +toLocale "lithuanian" = "lt-LT" +toLocale "magyar" = "hu-HU" +toLocale "mongolian" = "mn-MN" +toLocale "norsk" = "nb-NO" +toLocale "nynorsk" = "nn-NO" +toLocale "farsi" = "fa-IR" +toLocale "polish" = "pl-PL" +toLocale "brazil" = "pt-BR" +toLocale "brazilian" = "pt-BR" +toLocale "portugues" = "pt-PT" +toLocale "portuguese" = "pt-PT" +toLocale "romanian" = "ro-RO" +toLocale "russian" = "ru-RU" +toLocale "serbian" = "sr-RS" +toLocale "serbianc" = "sr-RS" +toLocale "slovak" = "sk-SK" +toLocale "slovene" = "sl-SL" +toLocale "spanish" = "es-ES" +toLocale "swedish" = "sv-SE" +toLocale "thai" = "th-TH" +toLocale "turkish" = "tr-TR" +toLocale "ukrainian" = "uk-UA" +toLocale "vietnamese" = "vi-VN" +toLocale "latin" = "la" +toLocale x = x + +concatWith :: Char -> [Formatted] -> Formatted +concatWith sep = Formatted . foldl go mempty . map unFormatted + where go :: [Inline] -> [Inline] -> [Inline] + go accum [] = accum + go accum s = case reverse accum of + [] -> s + (Str x:_) + | not (null x) && last x `elem` "!?.,:;" + -> accum ++ (Space : s) + _ -> accum ++ (Str [sep] : Space : s) + +type Options = [(String, String)] + +parseOptions :: String -> Options +parseOptions = map breakOpt . splitWhen (==',') + where breakOpt x = case break (=='=') x of + (w,v) -> (map toLower $ trim w, + map toLower $ trim $ drop 1 v) + +ordinalize :: Locale -> String -> String +ordinalize locale n = + case [termSingular c | c <- terms, cslTerm c == ("ordinal-" ++ pad0 n)] ++ + [termSingular c | c <- terms, cslTerm c == "ordinal"] of + (suff:_) -> n ++ suff + [] -> n + where pad0 [c] = ['0',c] + pad0 s = s + terms = localeTerms locale + +itemToReference :: Lang -> Locale -> Bool -> Item -> Maybe Reference +itemToReference lang locale bibtex = bib $ do + modify $ \st -> st{ localeLanguage = lang, + untitlecase = case lang of + Lang "en" _ -> True + _ -> False } + id' <- asks identifier + et <- asks entryType + guard $ et /= "xdata" + opts <- (parseOptions <$> getRawField "options") <|> return [] + let getAuthorList' = getAuthorList + (("bibtex", map toLower $ show bibtex):opts) + st <- getRawField "entrysubtype" <|> return mempty + isEvent <- (True <$ (getRawField "eventdate" + <|> getRawField "eventtitle" + <|> getRawField "venue")) <|> return False + let (reftype, refgenre) = case et of + "article" + | st == "magazine" -> (ArticleMagazine,mempty) + | st == "newspaper" -> (ArticleNewspaper,mempty) + | otherwise -> (ArticleJournal,mempty) + "book" -> (Book,mempty) + "booklet" -> (Pamphlet,mempty) + "bookinbook" -> (Chapter,mempty) + "collection" -> (Book,mempty) + "electronic" -> (Webpage,mempty) + "inbook" -> (Chapter,mempty) + "incollection" -> (Chapter,mempty) + "inreference" -> (EntryEncyclopedia,mempty) + "inproceedings" -> (PaperConference,mempty) + "manual" -> (Book,mempty) + "mastersthesis" -> (Thesis, Formatted [Str $ resolveKey' lang "mathesis"]) + "misc" -> (NoType,mempty) + "mvbook" -> (Book,mempty) + "mvcollection" -> (Book,mempty) + "mvproceedings" -> (Book,mempty) + "mvreference" -> (Book,mempty) + "online" -> (Webpage,mempty) + "patent" -> (Patent,mempty) + "periodical" + | st == "magazine" -> (ArticleMagazine,mempty) + | st == "newspaper" -> (ArticleNewspaper,mempty) + | otherwise -> (ArticleJournal,mempty) + "phdthesis" -> (Thesis, Formatted [Str $ resolveKey' lang "phdthesis"]) + "proceedings" -> (Book,mempty) + "reference" -> (Book,mempty) + "report" -> (Report,mempty) + "suppbook" -> (Chapter,mempty) + "suppcollection" -> (Chapter,mempty) + "suppperiodical" + | st == "magazine" -> (ArticleMagazine,mempty) + | st == "newspaper" -> (ArticleNewspaper,mempty) + | otherwise -> (ArticleJournal,mempty) + "techreport" -> (Report,mempty) + "thesis" -> (Thesis,mempty) + "unpublished" -> (if isEvent then Speech else Manuscript,mempty) + "www" -> (Webpage,mempty) + -- biblatex, "unsupporEd" + "artwork" -> (Graphic,mempty) + "audio" -> (Song,mempty) -- for audio *recordings* + "commentary" -> (Book,mempty) + "image" -> (Graphic,mempty) -- or "figure" ? + "jurisdiction" -> (LegalCase,mempty) + "legislation" -> (Legislation,mempty) -- or "bill" ? + "legal" -> (Treaty,mempty) + "letter" -> (PersonalCommunication,mempty) + "movie" -> (MotionPicture,mempty) + "music" -> (Song,mempty) -- for musical *recordings* + "performance" -> (Speech,mempty) + "review" -> (Review,mempty) -- or "review-book" ? + "software" -> (Book,mempty) -- for lack of any better match + "standard" -> (Legislation,mempty) + "video" -> (MotionPicture,mempty) + -- biblatex-apa: + "data" -> (Dataset,mempty) + "letters" -> (PersonalCommunication,mempty) + "newsarticle" -> (ArticleNewspaper,mempty) + _ -> (NoType,mempty) + reftype' <- resolveKey lang <$> getField "type" <|> return mempty + + let isContainer = et `elem` ["book","collection","proceedings","reference", + "mvbook","mvcollection","mvproceedings", "mvreference", + "suppbook","suppcollection"] + + -- hyphenation: + let defaultHyphenation = case lang of + Lang x y -> x ++ "-" ++ y + let getLangId = do + langid <- (trim . map toLower) <$> getRawField "langid" + idopts <- (trim . map toLower) <$> + getRawField "langidopts" <|> return "" + case (langid, idopts) of + ("english","variant=british") -> return "british" + ("english","variant=american") -> return "american" + ("english","variant=us") -> return "american" + ("english","variant=usmax") -> return "american" + ("english","variant=uk") -> return "british" + ("english","varant=australian") -> return "australian" + ("english","variant=newzealand") -> return "newzealand" + (x,_) -> return x + hyphenation <- ((toLocale . map toLower) <$> + (getLangId <|> getRawField "hyphenation")) + <|> return mempty + + -- authors: + author' <- getAuthorList' "author" <|> return [] + containerAuthor' <- getAuthorList' "bookauthor" <|> return [] + translator' <- getAuthorList' "translator" <|> return [] + editortype <- getRawField "editortype" <|> return mempty + editor'' <- getAuthorList' "editor" <|> return [] + director'' <- getAuthorList' "director" <|> return [] + let (editor', director') = case editortype of + "director" -> ([], editor'') + _ -> (editor'', director'') + -- FIXME: add same for editora, editorb, editorc + + -- titles + let isArticle = et `elem` ["article", "periodical", "suppperiodical"] + let isPeriodical = et == "periodical" + let hasVolumes = et `elem` + ["inbook","incollection","inproceedings","bookinbook"] + let hyphenation' = if null hyphenation + then defaultHyphenation + else hyphenation + let la = case splitWhen (== '-') hyphenation' of + (x:_) -> x + [] -> mempty + modify $ \s -> s{ untitlecase = la == "en" } + title' <- getTitle (if isPeriodical then "issuetitle" else "title") + <|> return mempty + subtitle' <- getTitle (if isPeriodical then "issuesubtitle" else "subtitle") + <|> return mempty + titleaddon' <- getTitle "titleaddon" + <|> return mempty + volumeTitle' <- (getTitle "maintitle" >> guard hasVolumes + >> getTitle "booktitle") + <|> return mempty + volumeSubtitle' <- (getTitle "maintitle" >> guard hasVolumes + >> getTitle "booksubtitle") + <|> return mempty + volumeTitleAddon' <- (getTitle "maintitle" >> guard hasVolumes + >> getTitle "booktitleaddon") + <|> return mempty + containerTitle' <- (guard isPeriodical >> getPeriodicalTitle "title") + <|> getTitle "maintitle" + <|> (guard (not isContainer) >> + guard (volumeTitle' == mempty) >> getTitle "booktitle") + <|> getPeriodicalTitle "journaltitle" + <|> getPeriodicalTitle "journal" + <|> return mempty + containerSubtitle' <- (guard isPeriodical >> getPeriodicalTitle "subtitle") + <|> getTitle "mainsubtitle" + <|> (guard (not isContainer) >> + guard (volumeSubtitle' == mempty) >> + getTitle "booksubtitle") + <|> getPeriodicalTitle "journalsubtitle" + <|> return mempty + containerTitleAddon' <- (guard isPeriodical >> getPeriodicalTitle "titleaddon") + <|> getTitle "maintitleaddon" + <|> (guard (not isContainer) >> + guard (volumeTitleAddon' == mempty) >> + getTitle "booktitleaddon") + <|> return mempty + containerTitleShort' <- (guard isPeriodical >> getField "shorttitle") + <|> (guard (not isContainer) >> + getTitle "booktitleshort") + <|> getPeriodicalTitle "journaltitleshort" + <|> getPeriodicalTitle "shortjournal" + <|> return mempty + -- change numerical series title to e.g. 'series 3' + let fixSeriesTitle (Formatted [Str xs]) | all isDigit xs = + Formatted [Str (ordinalize locale xs), + Space, Str (resolveKey' lang "ser.")] + fixSeriesTitle x = x + seriesTitle' <- (fixSeriesTitle . resolveKey lang) <$> + getTitle "series" <|> return mempty + shortTitle' <- getTitle "shorttitle" + <|> if subtitle' /= mempty + then getShortTitle False "title" + else getShortTitle True "title" + <|> return mempty + + eventTitle' <- getTitle "eventtitle" <|> return mempty + origTitle' <- getTitle "origtitle" <|> return mempty + + -- publisher + pubfields <- mapM (\f -> Just `fmap` + (if bibtex || f == "howpublished" + then getField f + else getLiteralList' f) + <|> return Nothing) + ["school","institution","organization", "howpublished","publisher"] + let publisher' = concatWith ';' [p | Just p <- pubfields] + origpublisher' <- getField "origpublisher" <|> return mempty + +-- places + venue' <- getField "venue" <|> return mempty + address' <- (if bibtex + then getField "address" + else getLiteralList' "address" + <|> (guard (et /= "patent") >> + getLiteralList' "location")) + <|> return mempty + origLocation' <- (if bibtex + then getField "origlocation" + else getLiteralList' "origlocation") + <|> return mempty + jurisdiction' <- if et == "patent" + then ((concatWith ';' . map (resolveKey lang)) <$> + getLiteralList "location") <|> return mempty + else return mempty + + -- locators + pages' <- getField "pages" <|> return mempty + volume' <- getField "volume" <|> return mempty + part' <- getField "part" <|> return mempty + volumes' <- getField "volumes" <|> return mempty + pagetotal' <- getField "pagetotal" <|> return mempty + chapter' <- getField "chapter" <|> return mempty + edition' <- getField "edition" <|> return mempty + version' <- getField "version" <|> return mempty + (number', collectionNumber', issue') <- + (getField "number" <|> return mempty) >>= \x -> + if et `elem` ["book","collection","proceedings","reference", + "mvbook","mvcollection","mvproceedings", "mvreference", + "bookinbook","inbook", "incollection","inproceedings", + "inreference", "suppbook","suppcollection"] + then return (mempty,x,mempty) + else if isArticle + then (getField "issue" >>= \y -> + return (mempty,mempty,concatWith ',' [x,y])) + <|> return (mempty,mempty,x) + else return (x,mempty,mempty) + + -- dates + issued' <- getDates "date" <|> getOldDates mempty <|> return [] + eventDate' <- getDates "eventdate" <|> getOldDates "event" + <|> return [] + origDate' <- getDates "origdate" <|> getOldDates "orig" + <|> return [] + accessed' <- getDates "urldate" <|> getOldDates "url" <|> return [] + + -- url, doi, isbn, etc.: + -- note that with eprinttype = arxiv, we take eprint to be a partial url + url' <- (guard (et == "online" || lookup "url" opts /= Just "false") + >> getRawField "url") + <|> (do etype <- getRawField "eprinttype" + eprint <- getRawField "eprint" + case map toLower etype of + "arxiv" -> return $ "http://arxiv.org/abs/" ++ eprint + "googlebooks" -> return $ "http://books.google.com?id=" ++ + eprint + _ -> mzero) + <|> return mempty + doi' <- (guard (lookup "doi" opts /= Just "false") >> getRawField "doi") + <|> return mempty + isbn' <- getRawField "isbn" <|> return mempty + issn' <- getRawField "issn" <|> return mempty + callNumber' <- getRawField "library" <|> return mempty + + -- notes + annotation' <- getField "annotation" <|> getField "annote" + <|> return mempty + abstract' <- getField "abstract" <|> return mempty + keywords' <- getField "keywords" <|> return mempty + note' <- if et == "periodical" + then return mempty + else (getField "note" <|> return mempty) + addendum' <- if bibtex + then return mempty + else getField "addendum" + <|> return mempty + pubstate' <- resolveKey lang `fmap` + ( getField "pubstate" + <|> case issued' of + (x:_) | other x == Literal "forthcoming" -> + return (Formatted [Str "forthcoming"]) + _ -> return mempty + ) + + let convertEnDash (Str s) = Str (map (\c -> if c == '–' then '-' else c) s) + convertEnDash x = x + + let takeDigits (Str xs : _) = + case takeWhile isDigit xs of + [] -> [] + ds -> [Str ds] + takeDigits x = x + + return $ emptyReference + { refId = Literal id' + , refType = reftype + , author = author' + , editor = editor' + , translator = translator' + -- , recipient = undefined -- :: [Agent] + -- , interviewer = undefined -- :: [Agent] + -- , composer = undefined -- :: [Agent] + , director = director' + -- , illustrator = undefined -- :: [Agent] + -- , originalAuthor = undefined -- :: [Agent] + , containerAuthor = containerAuthor' + -- , collectionEditor = undefined -- :: [Agent] + -- , editorialDirector = undefined -- :: [Agent] + -- , reviewedAuthor = undefined -- :: [Agent] + + , issued = issued' + , eventDate = eventDate' + , accessed = accessed' + -- , container = undefined -- :: [RefDate] + , originalDate = origDate' + -- , submitted = undefined -- :: [RefDate] + , title = concatWith '.' [ + concatWith ':' [title', subtitle'] + , titleaddon' ] + , titleShort = shortTitle' + -- , reviewedTitle = undefined -- :: String + , containerTitle = concatWith '.' [ + concatWith ':' [ containerTitle' + , containerSubtitle'] + , containerTitleAddon' ] + , collectionTitle = seriesTitle' + , volumeTitle = concatWith '.' [ + concatWith ':' [ volumeTitle' + , volumeSubtitle'] + , volumeTitleAddon' ] + , containerTitleShort = containerTitleShort' + , collectionNumber = collectionNumber' + , originalTitle = origTitle' + , publisher = publisher' + , originalPublisher = origpublisher' + , publisherPlace = address' + , originalPublisherPlace = origLocation' + , jurisdiction = jurisdiction' + , event = eventTitle' + , eventPlace = venue' + , page = Formatted $ + Walk.walk convertEnDash $ unFormatted pages' + , pageFirst = Formatted $ takeDigits $ unFormatted pages' + , numberOfPages = pagetotal' + , version = version' + , volume = Formatted $ intercalate [Str "."] + $ filter (not . null) + [unFormatted volume', unFormatted part'] + , numberOfVolumes = volumes' + , issue = issue' + , chapterNumber = chapter' + -- , medium = undefined -- :: String + , status = pubstate' + , edition = edition' + -- , section = undefined -- :: String + -- , source = undefined -- :: String + , genre = if refgenre == mempty + then reftype' + else refgenre + , note = concatWith '.' [note', addendum'] + , annote = annotation' + , abstract = abstract' + , keyword = keywords' + , number = number' + , url = Literal url' + , doi = Literal doi' + , isbn = Literal isbn' + , issn = Literal issn' + , language = Literal hyphenation + , callNumber = Literal callNumber' + } diff --git a/src/Text/CSL/Input/Bibutils.hs b/src/Text/CSL/Input/Bibutils.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Input/Bibutils.hs @@ -0,0 +1,172 @@ +{-# LANGUAGE CPP, ForeignFunctionInterface, PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Input.Bibutils +-- Copyright : (C) 2008 Andrea Rossato +-- License : BSD3 +-- +-- Maintainer : andrea.rossato@unitn.it +-- Stability : unstable +-- Portability : unportable +-- +----------------------------------------------------------------------------- + +module Text.CSL.Input.Bibutils + ( readBiblioFile + , readBiblioString + , BibFormat (..) + , convertRefs + ) where + +import qualified Text.Pandoc.UTF8 as UTF8 +import Text.Pandoc +import Data.Char +import System.FilePath ( takeExtension ) +import Text.CSL.Reference hiding ( Value ) +import Text.CSL.Input.Bibtex +import qualified Data.ByteString.Lazy as BL +import qualified Data.Map as M +import Data.Aeson + +#ifdef USE_BIBUTILS +import qualified Control.Exception as E +import Control.Exception ( bracket, catch ) +import Control.Monad.Trans ( liftIO ) +import System.FilePath ( (), (<.>) ) +import System.IO.Error ( isAlreadyExistsError ) +import System.Directory +import Text.Bibutils +#endif + +-- | Read a file with a bibliographic database. The database format +-- is recognized by the file extension. +-- +-- Supported formats are: @json@, @mods@, @bibtex@, @biblatex@, @ris@, +-- @endnote@, @endnotexml@, @isi@, @medline@, and @copac@. +readBiblioFile :: FilePath -> IO [Reference] +readBiblioFile f + = case getExt f of + ".json" -> BL.readFile f >>= either error return . eitherDecode + ".yaml" -> UTF8.readFile f >>= either error return . readYamlBib + ".bib" -> readBibtexInput False f + ".bibtex" -> readBibtexInput True f + ".biblatex" -> readBibtexInput False f +#ifdef USE_BIBUTILS + ".mods" -> readBiblioFile' f mods_in + ".ris" -> readBiblioFile' f ris_in + ".enl" -> readBiblioFile' f endnote_in + ".xml" -> readBiblioFile' f endnotexml_in + ".wos" -> readBiblioFile' f isi_in + ".medline" -> readBiblioFile' f medline_in + ".copac" -> readBiblioFile' f copac_in + _ -> error $ "citeproc: the format of the bibliographic database could not be recognized\n" ++ + "using the file extension." +#else + _ -> error $ "citeproc: Bibliography format not supported.\n" ++ +#endif + +data BibFormat + = Json + | Yaml + | Bibtex + | BibLatex +#ifdef USE_BIBUTILS + | Ris + | Endnote + | EndnotXml + | Isi + | Medline + | Copac + | Mods +#endif + +readBiblioString :: BibFormat -> String -> IO [Reference] +readBiblioString b s + | Json <- b = either error return $ eitherDecode $ UTF8.fromStringLazy s + | Yaml <- b = either error return $ readYamlBib s + | Bibtex <- b = readBibtexInputString True s + | BibLatex <- b = readBibtexInputString False s +#ifdef USE_BIBUTILS + | Ris <- b = go ris_in + | Endnote <- b = go endnote_in + | EndnotXml <- b = go endnotexml_in + | Isi <- b = go isi_in + | Medline <- b = go medline_in + | Copac <- b = go copac_in + | Mods <- b = go mods_in +#endif + | otherwise = error "in readBiblioString" +#ifdef USE_BIBUTILS + where + go f = withTempDir "citeproc" $ \tdir -> do + let tfile = tdir "bibutils-tmp.biblio" + UTF8.writeFile tfile s + readBiblioFile' tfile f +#endif + +#ifdef USE_BIBUTILS +readBiblioFile' :: FilePath -> BiblioIn -> IO [Reference] +readBiblioFile' fin bin + | bin == biblatex_in = readBibtexInput False fin + | otherwise = E.handle handleBibfileError + $ withTempDir "citeproc" + $ \tdir -> do + let tfile = tdir "bibutils-tmp" + param <- bibl_initparams bin bibtex_out "hs-bibutils" + bibl <- bibl_init + unsetBOM param + setCharsetIn param bibl_charset_unicode + setCharsetOut param bibl_charset_unicode + _ <- bibl_read param bibl fin + _ <- bibl_write param bibl tfile + bibl_free bibl + bibl_freeparams param + refs <- readBibtexInput True tfile + return $! refs + where handleBibfileError :: E.SomeException -> IO [Reference] + handleBibfileError e = error $ "Error reading " ++ fin ++ "\n" ++ show e + +-- | Perform a function in a temporary directory and clean up. +withTempDir :: FilePath -> (FilePath -> IO a) -> IO a +withTempDir baseName = bracket (createTempDir 0 baseName) + (removeDirectoryRecursive) + +-- | Create a temporary directory with a unique name. +createTempDir :: Integer -> FilePath -> IO FilePath +createTempDir num baseName = do + sysTempDir <- getTemporaryDirectory + let dirName = sysTempDir baseName <.> show num + liftIO $ Control.Exception.catch (createDirectory dirName >> return dirName) $ + \e -> if isAlreadyExistsError e + then createTempDir (num + 1) baseName + else ioError e +#endif + +getExt :: String -> String +getExt = takeExtension . map toLower + +readYamlBib :: String -> Either String [Reference] +readYamlBib s = convertRefs $ lookupMeta "references" meta + where Pandoc meta _ = readMarkdown def{readerStandalone = True} s + +convertRefs :: Maybe MetaValue -> Either String [Reference] +convertRefs Nothing = Right [] +convertRefs (Just v) = + case fromJSON (metaValueToJSON v) of + Data.Aeson.Error s -> + -- check for empty string and treat it as empty list: + -- --- + -- references: + -- ... + case fromJSON (metaValueToJSON v) of + Success "" -> Right [] + _ -> Left s + Success x -> Right x + +metaValueToJSON :: MetaValue -> Value +metaValueToJSON (MetaMap m) = toJSON $ M.map metaValueToJSON m +metaValueToJSON (MetaList xs) = toJSON $ map metaValueToJSON xs +metaValueToJSON (MetaString t) = toJSON t +metaValueToJSON (MetaBool b) = toJSON b +metaValueToJSON (MetaInlines ils) = toJSON ils +metaValueToJSON (MetaBlocks bs) = toJSON bs 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,136 @@ +{-# LANGUAGE PatternGuards, DeriveDataTypeable #-} +----------------------------------------------------------------------------- +-- | +-- 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 + , renderPandoc' + , headInline + , initInline + , lastInline + , tailInline + , tailFirstInlineStr + , toCapital + ) where + +import Text.CSL.Util ( proc, proc', tailInline, lastInline, + initInline, tailFirstInlineStr, headInline, toCapital ) +import Data.Maybe ( fromMaybe ) +import Text.CSL.Style +import Text.Pandoc.Definition +import Text.Pandoc.XML (fromEntities) + +renderPandoc :: Style -> Formatted -> [Inline] +renderPandoc sty + = proc (convertQuoted sty) . proc' (clean' sty) . flipFlop . unFormatted + +renderPandoc' :: Style -> Formatted -> Block +renderPandoc' sty = Para . renderPandoc sty + +clean' :: Style -> [Inline] -> [Inline] +clean' _ [] = [] +clean' sty (i:is) = + case (i:is) of + (Span ("",["csl-inquote"],kvs) inls : _) -> + let isOuter = lookup "position" kvs == Just "outer" + in case headInline is of + [x] -> if x `elem` ".," && isPunctuationInQuote sty + then if lastInline inls `elem` [".",",",";",":","!","?"] + then quoted isOuter inls ++ + clean' sty (tailInline is) + else quoted isOuter (inls ++ [Str [x]]) ++ + clean' sty (tailInline is) + else quoted isOuter inls ++ clean' sty is + _ -> quoted isOuter inls ++ clean' sty is + (Quoted t inls : _) -> quoted (t == DoubleQuote) inls ++ clean' sty is + _ -> if lastInline [i] == headInline is && isPunct + then i : clean' sty (tailInline is) + else i : clean' sty is + where + isPunct = all (`elem` ".,;:!? ") $ headInline is + locale = case styleLocale sty of + (x:_) -> x + [] -> Locale [] [] [] [] [] -- should not happen + getQuote s d = case [term | term <- localeTerms locale, cslTerm term == s] of + (x:_) -> Str (termSingular x) + _ -> Str d + openQuoteOuter = getQuote "open-quote" "“" + openQuoteInner = getQuote "open-inner-quote" "‘" + closeQuoteOuter = getQuote "close-quote" "”" + closeQuoteInner = getQuote "close-inner-quote" "’" + quoted True ils = openQuoteOuter : ils ++ [closeQuoteOuter] + quoted False ils = openQuoteInner : ils ++ [closeQuoteInner] + +convertQuoted :: Style -> [Inline] -> [Inline] +convertQuoted s = convertQuoted' + where + locale = let l = styleLocale s in case l of [x] -> x; _ -> Locale [] [] [] [] [] + getQuote x y = fromEntities . termSingular . fromMaybe newTerm {termSingular = x} . + findTerm y Long . localeTerms $ locale + doubleQuotesO = getQuote "\"" "open-quote" + doubleQuotesC = getQuote "\"" "close-quote" + singleQuotesO = getQuote "'" "open-inner-quote" + singleQuotesC = getQuote "'" "close-inner-quote" + convertQuoted' o + | (Quoted DoubleQuote t:xs) <- o = Str doubleQuotesO : t ++ Str doubleQuotesC : convertQuoted' xs + | (Quoted SingleQuote t:xs) <- o = Str singleQuotesO : t ++ Str singleQuotesC : convertQuoted' xs + | (x :xs) <- o = x : convertQuoted' xs + | otherwise = [] + +-- flip-flop + +data FlipFlopState = FlipFlopState + { inEmph :: Bool + , inStrong :: Bool + , inSmallCaps :: Bool + , inOuterQuotes :: Bool + } + +flipFlop :: [Inline] -> [Inline] +flipFlop = map (flipFlop' $ FlipFlopState False False False False) + +flipFlop' :: FlipFlopState -> Inline -> Inline +flipFlop' st (Emph ils) = + (if inEmph st then Span ("",["csl-no-emph"],[]) else Emph) + $ map (flipFlop' st{ inEmph = not $ inEmph st }) ils +flipFlop' st (Strong ils) = + (if inStrong st then Span ("",["csl-no-strong"],[]) else Strong) + $ map (flipFlop' st{ inStrong = not $ inStrong st }) ils +flipFlop' st (SmallCaps ils) = + (if inSmallCaps st then Span ("",["csl-no-smallcaps"],[]) else SmallCaps) + $ map (flipFlop' st{ inSmallCaps = not $ inSmallCaps st }) ils +flipFlop' st (Strikeout ils) = + Strikeout $ map (flipFlop' st) ils +flipFlop' st (Superscript ils) = + Superscript $ map (flipFlop' st) ils +flipFlop' st (Subscript ils) = + Subscript $ map (flipFlop' st) ils +flipFlop' st (Quoted _ ils) = + Quoted (if inOuterQuotes st then SingleQuote else DoubleQuote) + $ map (flipFlop' st{ inOuterQuotes = not $ inOuterQuotes st }) ils +flipFlop' st (Span (_, ["csl-inquote"], _) ils) = + Span ("", ["csl-inquote"], [("position", if inOuterQuotes st then "inner" else "outer")]) + $ map (flipFlop' st{ inOuterQuotes = not $ inOuterQuotes st }) ils +flipFlop' st (Span (id',classes,kvs) ils) + | "nodecor" `elem` classes = Span (id',classes',kvs) $ map (flipFlop' st) ils + | otherwise = Span (id',classes,kvs) $ map (flipFlop' st) ils + where classes' = filter (/= "nodecor") classes ++ + ["csl-no-emph" | inEmph st] ++ + ["csl-no-strong" | inStrong st] ++ + ["csl-no-smallcaps" | inSmallCaps st] +flipFlop' st (Link ils t) = + Link (map (flipFlop' st) ils) t +flipFlop' st (Note [Para ils]) = + Note [Para $ map (flipFlop' st) ils] +flipFlop' _ il = il 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,26 @@ +{-# 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 + ) where + +import Text.CSL.Style +import Text.Pandoc + +-- | Render the 'Formatted' into a plain text string. +renderPlain :: Formatted -> String +renderPlain (Formatted ils) = writePlain def $ Pandoc nullMeta [Plain ils] + diff --git a/src/Text/CSL/Pandoc.hs b/src/Text/CSL/Pandoc.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Pandoc.hs @@ -0,0 +1,354 @@ +{-# LANGUAGE PatternGuards, OverloadedStrings, FlexibleInstances, + ScopedTypeVariables, CPP #-} +module Text.CSL.Pandoc (processCites, processCites') where + +import Text.Pandoc +import Text.Pandoc.Walk +import Text.Pandoc.Builder (setMeta, deleteMeta, Inlines, cite) +import Text.Pandoc.Shared (stringify) +import Text.HTML.TagSoup.Entity (lookupEntity) +import qualified Data.ByteString.Lazy as L +import Control.Applicative ((<|>)) +import Data.Aeson +import Data.Char ( isDigit, isPunctuation, isSpace ) +import qualified Data.Map as M +import Text.CSL.Reference hiding (processCites, Value) +import Text.CSL.Input.Bibutils (readBiblioFile, convertRefs) +import Text.CSL.Style hiding (Cite(..), Citation(..)) +import Text.CSL.Proc +import Text.CSL.Output.Pandoc (renderPandoc, renderPandoc') +import qualified Text.CSL.Style as CSL +import Text.CSL.Parser +import Text.CSL.Output.Pandoc ( headInline, tailFirstInlineStr, initInline, + toCapital ) +import Text.CSL.Data (getDefaultCSL) +import Text.Parsec hiding (State, (<|>)) +import Control.Monad +import Data.Monoid (mempty) +import Control.Monad.State +import System.FilePath +import System.Directory (doesFileExist, getAppUserDataDirectory) +import Text.CSL.Util (findFile, splitStrWhen) + +-- | Process a 'Pandoc' document by adding citations formatted +-- according to a CSL style. Add a bibliography (if one is called +-- for) at the end of the document. +processCites :: Style -> [Reference] -> Pandoc -> Pandoc +processCites style refs (Pandoc m1 b1) = + let m2 = setMeta "nocites-wildcards" (mkNociteWildcards refs m1) m1 + Pandoc m3 b2 = evalState (walkM setHashes $ Pandoc m2 b1) 1 + grps = query getCitation $ Pandoc m3 b2 + m4 = deleteMeta "nocites-wildcards" m3 + locMap = locatorMap style + result = citeproc procOpts style refs (setNearNote style $ + map (map (toCslCite locMap)) grps) + cits_map = M.fromList $ zip grps (citations result) + biblioList = map (renderPandoc' style) (bibliography result) + Pandoc m b3 = bottomUp (mvPunct style) . deNote . + topDown (processCite style cits_map) $ Pandoc m4 b2 + (bs, lastb) = case reverse b3 of + (Header lev (id',classes,kvs) ys) : xs -> + (reverse xs, [Header lev (id',classes',kvs) ys]) + where classes' = "unnumbered" : + [c | c <- classes, c /= "unnumbered"] + _ -> (b3, []) + in Pandoc m $ bottomUp (concatMap removeNocaseSpans) + $ bs ++ + if lookupMeta "suppress-bibliography" m == Just (MetaBool True) + then [] + else [Div ("",["references"],[]) (lastb ++ biblioList)] + +-- if the 'nocite' Meta field contains a citation with id = '*', +-- create a cite with to all the references. +mkNociteWildcards :: [Reference] -> Meta -> Inlines +mkNociteWildcards refs meta = + case lookupMeta "nocite" meta of + Nothing -> mempty + Just nocites -> + case [c | c <- concat (query getCitation nocites) + , citationId c == "*"] of + [] -> mempty + (_:_) -> cite allcites mempty + where allcites = map (\ref -> Citation{ + citationId = unLiteral (refId ref), + citationPrefix = [], + citationSuffix = [], + citationMode = NormalCitation, + citationNoteNum = 0, + citationHash = 0 }) refs + +removeNocaseSpans :: Inline -> [Inline] +removeNocaseSpans (Span ("",["nocase"],[]) xs) = xs +removeNocaseSpans x = [x] + +-- | Process a 'Pandoc' document by adding citations formatted +-- according to a CSL style. The style filename is derived from +-- the `csl` field of the metadata, and the references are taken +-- from the `references` field or read from a file in the `bibliography` +-- field. +processCites' :: Pandoc -> IO Pandoc +processCites' (Pandoc meta blocks) = do + csldir <- getAppUserDataDirectory "csl" + let inlineRefError s = error $ "Error parsing references: " ++ s + let inlineRefs = either inlineRefError id + $ convertRefs $ lookupMeta "references" meta + bibRefs <- getBibRefs $ maybe (MetaList []) id + $ lookupMeta "bibliography" meta + let refs = inlineRefs ++ bibRefs + let cslfile = (lookupMeta "csl" meta <|> lookupMeta "citation-style" meta) + >>= toPath + let mbLocale = lookupMeta "locale" meta >>= toPath + csl <- case cslfile of + Just f | not (null f) -> readCSLFile mbLocale f + _ -> do + -- get default CSL: look first in ~/.csl, and take + -- from distribution if not found + let f = csldir "chicago-author-date.csl" + exists <- doesFileExist f + raw <- if exists + then L.readFile f + else getDefaultCSL + localizeCSL mbLocale $ parseCSL' raw + let cslAbbrevFile = lookupMeta "citation-abbreviations" meta >>= toPath + let skipLeadingSpace = L.dropWhile (\s -> s == 32 || (s >= 9 && s <= 13)) + abbrevs <- maybe (return (Abbreviations M.empty)) + (\f -> findFile [".", csldir] f >>= + maybe (error $ "Could not find " ++ f) return >>= + L.readFile >>= + either error return . eitherDecode . skipLeadingSpace) + cslAbbrevFile + let csl' = csl{ styleAbbrevs = abbrevs } + return $ processCites csl' refs $ Pandoc meta blocks + +toPath :: MetaValue -> Maybe String +toPath (MetaString s) = Just s +toPath (MetaInlines ils) = Just $ stringify ils +toPath _ = Nothing + +getBibRefs :: MetaValue -> IO [Reference] +getBibRefs (MetaList xs) = concat `fmap` mapM getBibRefs xs +getBibRefs (MetaInlines xs) = getBibRefs (MetaString $ stringify xs) +getBibRefs (MetaString s) = do + path <- findFile ["."] s >>= maybe (error $ "Could not find " ++ s) return + map unescapeRefId `fmap` readBiblioFile path +getBibRefs _ = return [] + +-- unescape reference ids, which may contain XML entities, so +-- that we can do lookups with regular string equality +unescapeRefId :: Reference -> Reference +unescapeRefId ref = ref{ refId = Literal $ decodeEntities (unLiteral $ refId ref) } + +decodeEntities :: String -> String +decodeEntities [] = [] +decodeEntities ('&':xs) = + let (ys,zs) = break (==';') xs + in case zs of + ';':ws -> case lookupEntity ('&':ys ++ ";") of +#if MIN_VERSION_tagsoup(0,13,0) + Just s -> s ++ decodeEntities ws +#else + Just c -> [c] ++ decodeEntities ws +#endif + Nothing -> '&' : decodeEntities xs + _ -> '&' : decodeEntities xs +decodeEntities (x:xs) = x : decodeEntities xs + +-- | Substitute 'Cite' elements with formatted citations. +processCite :: Style -> M.Map [Citation] Formatted -> Inline -> Inline +processCite s cs (Cite t _) = + case M.lookup t cs of + Just (Formatted (x:xs)) + | isTextualCitation t && not (null xs) -> + Cite t (renderPandoc s (Formatted [x]) ++ + renderPandoc s (Formatted xs)) + | otherwise -> Cite t (renderPandoc s (Formatted (x:xs))) + _ -> Strong [Str "???"] -- TODO raise error instead? +processCite _ _ x = x + +isNote :: Inline -> Bool +isNote (Note _) = True +isNote (Cite _ [Note _]) = True +isNote _ = False + +mvPunctInsideQuote :: Inline -> Inline -> [Inline] +mvPunctInsideQuote (Quoted qt ils) (Str s) | s `elem` [".", ","] = + [Quoted qt (init ils ++ (mvPunctInsideQuote (last ils) (Str s)))] +mvPunctInsideQuote il il' = [il, il'] + +mvPunct :: Style -> [Inline] -> [Inline] +mvPunct _ (Space : Space : xs) = Space : xs +mvPunct _ (Space : x : ys) | isNote x, startWithPunct ys = + Str (headInline ys) : x : tailFirstInlineStr ys +mvPunct _ (Cite cs ils : ys) | + length ils > 1 + , isNote (last ils) + , startWithPunct ys + = Cite cs (init ils ++ [Str (headInline ys) | not (endWithPunct (init ils))] + ++ [last ils]) : tailFirstInlineStr ys +mvPunct sty (q@(Quoted _ _) : w@(Str _) : x : ys) + | isNote x, isPunctuationInQuote sty = + mvPunctInsideQuote q w ++ (x : ys) +mvPunct _ (Space : x : ys) | isNote x = x : ys +mvPunct _ (Space : x@(Cite _ (Superscript _ : _)) : ys) = x : ys +mvPunct _ xs = xs + +endWithPunct :: [Inline] -> Bool +endWithPunct [] = True +endWithPunct xs@(_:_) = case reverse (stringify xs) of + [] -> True + -- covers .), .", etc.: + (d:c:_) | isPunctuation d + && isEndPunct c -> True + (c:_) | isEndPunct c -> True + | otherwise -> False + where isEndPunct c = c `elem` ".,;:!?" + +startWithPunct :: [Inline] -> Bool +startWithPunct = and . map (`elem` ".,;:!?") . headInline + +deNote :: Pandoc -> Pandoc +deNote = topDown go + where go (Cite (c:cs) [Note xs]) = + Cite (c:cs) [Note $ sanitize xs] + go (Note xs) = Note $ topDown go' xs + go x = x + go' (x : Cite cs [Note [Para xs]] : ys) | x /= Space = + x : Str "," : Space : comb (\zs -> [Cite cs zs]) xs ys + go' (x : Note [Para xs] : ys) | x /= Space = + x : Str "," : Space : comb id xs ys + go' (Cite cs [Note [Para xs]] : ys) = comb (\zs -> [Cite cs zs]) xs ys + go' (Note [Para xs] : ys) = comb id xs ys + go' xs = xs + removeLeadingPunct (Str [c] : Space : xs) + | c == ',' || c == '.' || c == ':' = xs + removeLeadingPunct xs = xs + comb f xs ys = + let xs' = if startWithPunct ys && endWithPunct xs + then initInline $ removeLeadingPunct xs + else removeLeadingPunct xs + in f xs' ++ ys + sanitize :: [Block] -> [Block] + sanitize [Para xs] = + [Para $ toCapital xs ++ if endWithPunct xs then [Space] else []] + sanitize bs = bs + +isTextualCitation :: [Citation] -> Bool +isTextualCitation (c:_) = citationMode c == AuthorInText +isTextualCitation _ = False + +-- | Retrieve all citations from a 'Pandoc' docuument. To be used with +-- 'query'. +getCitation :: Inline -> [[Citation]] +getCitation i | Cite t _ <- i = [t] + | otherwise = [] + +setHashes :: Inline -> State Int Inline +setHashes i | Cite t ils <- i = do t' <- mapM setHash t + return $ Cite t' ils + | otherwise = return i + +setHash :: Citation -> State Int Citation +setHash c = do + ident <- get + put $ ident + 1 + return c{ citationHash = ident } + +toCslCite :: LocatorMap -> Citation -> CSL.Cite +toCslCite locMap c + = let (la, lo, s) = locatorWords locMap $ citationSuffix c + s' = case (la,lo,s) of + -- treat a bare locator as if it begins with space + -- so @item1 [blah] is like [@item1, blah] + ("","",(x:_)) + | not (isPunct x) -> Space : s + _ -> s + isPunct (Str (x:_)) = isPunctuation x + isPunct _ = False + citMode = case citationMode c of + AuthorInText -> (True, False) + SuppressAuthor -> (False,True ) + NormalCitation -> (False,False) + in emptyCite { CSL.citeId = citationId c + , CSL.citePrefix = Formatted $ citationPrefix c + , CSL.citeSuffix = Formatted s' + , CSL.citeLabel = la + , CSL.citeLocator = lo + , CSL.citeNoteNumber = show $ citationNoteNum c + , CSL.authorInText = fst citMode + , CSL.suppressAuthor = snd citMode + , CSL.citeHash = citationHash c + } + +locatorWords :: LocatorMap -> [Inline] -> (String, String, [Inline]) +locatorWords locMap inp = + case parse (pLocatorWords locMap) "suffix" $ + splitStrWhen (\c -> isPunctuation c || isSpace c) inp of + Right r -> r + Left _ -> ("","",inp) + +pLocatorWords :: LocatorMap -> Parsec [Inline] st (String, String, [Inline]) +pLocatorWords locMap = do + (la,lo) <- pLocator locMap + s <- getInput -- rest is suffix + return (la, lo, s) + +pMatch :: (Inline -> Bool) -> Parsec [Inline] st Inline +pMatch condition = try $ do + t <- anyToken + guard $ condition t + return t + +pSpace :: Parsec [Inline] st Inline +pSpace = pMatch (\t -> t == Space || t == Str "\160") + +pLocator :: LocatorMap -> Parsec [Inline] st (String, String) +pLocator locMap = try $ do + optional $ pMatch (== Str ",") + optional pSpace + rawLoc <- many + (notFollowedBy pSpace >> notFollowedBy (pWordWithDigits True) >> anyToken) + la <- case stringify rawLoc of + "" -> lookAhead (optional pSpace >> pDigit) >> return "page" + s -> maybe mzero return $ parseLocator locMap s + g <- pWordWithDigits True + gs <- many (pWordWithDigits False) + let lo = concat (g:gs) + return (la, lo) + +-- we want to capture: 123, 123A, C22, XVII, 33-44, 22-33; 22-11 +pWordWithDigits :: Bool -> Parsec [Inline] st String +pWordWithDigits isfirst = try $ do + punct <- if isfirst + then return "" + else stringify `fmap` pLocatorPunct + sp <- option "" (pSpace >> return " ") + r <- many1 (notFollowedBy pSpace >> notFollowedBy pLocatorPunct >> anyToken) + let s = stringify r + guard $ any isDigit s || all (`elem` "IVXLCM") s + return $ punct ++ sp ++ s + +pDigit :: Parsec [Inline] st () +pDigit = do + t <- anyToken + case t of + Str (d:_) | isDigit d -> return () + _ -> mzero + +pLocatorPunct :: Parsec [Inline] st Inline +pLocatorPunct = pMatch isLocatorPunct + +isLocatorPunct :: Inline -> Bool +isLocatorPunct (Str [c]) = isPunctuation c +isLocatorPunct _ = False + +type LocatorMap = M.Map String String + +parseLocator :: LocatorMap -> String -> Maybe String +parseLocator locMap s = M.lookup s locMap + +locatorMap :: Style -> LocatorMap +locatorMap sty = + foldr (\term -> M.insert (termSingular term) (cslTerm term) + . M.insert (termPlural term) (cslTerm term)) + M.empty + (concatMap localeTerms $ styleLocale sty) 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,419 @@ +{-# LANGUAGE OverloadedStrings, TupleSections #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Parser +-- Copyright : (C) 2014 John MacFarlane +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : John MacFarlane +-- Stability : unstable +-- Portability : unportable +-- +-- Parser for CSL XML files. +----------------------------------------------------------------------------- + +module Text.CSL.Parser (readCSLFile, parseCSL, parseCSL', + parseLocale, localizeCSL) +where +import qualified Data.Text as T +import qualified Data.ByteString.Lazy as L +import qualified Data.Map as M +import qualified Control.Exception as E +import Control.Monad (when) +import Data.Either (lefts, rights) +import Data.Text (Text, unpack) +import Text.CSL.Style hiding (parseNames) +import Text.CSL.Util (toRead, findFile) +import System.Directory (getAppUserDataDirectory) +import Control.Applicative hiding (many, Const) +import qualified Text.XML as X +import Data.Default +import Text.Pandoc.Shared (safeRead) +import Text.XML.Cursor +import Data.Maybe (listToMaybe, fromMaybe) +import Text.Pandoc.UTF8 (fromStringLazy) +import Text.Pandoc.Shared (fetchItem) +import Text.CSL.Data (getLocale) + +-- | Parse a 'String' into a 'Style' (with default locale). +parseCSL :: String -> Style +parseCSL = parseCSL' . fromStringLazy + +-- | Parse locale. +parseLocale :: String -> IO Locale +parseLocale locale = + parseLocaleElement . fromDocument . X.parseLBS_ def <$> getLocale locale + +-- | Merge locale into a CSL style. +localizeCSL :: Maybe String -> Style -> IO Style +localizeCSL mbLocale s = do + let locale = fromMaybe (styleDefaultLocale s) mbLocale + l <- parseLocale locale + return s { styleLocale = mergeLocales locale l (styleLocale s) } + +-- | Read and parse a CSL style file into a localized sytle. +readCSLFile :: Maybe String -> FilePath -> IO Style +readCSLFile mbLocale src = do + csldir <- getAppUserDataDirectory "csl" + mbSrc <- findFile [".", csldir] src + fetchRes <- fetchItem Nothing (fromMaybe src mbSrc) + f <- case fetchRes of + Left err -> E.throwIO err + Right (rawbs, _) -> return $ L.fromChunks [rawbs] + let cur = fromDocument $ X.parseLBS_ def f + -- see if it's a dependent style, and if so, try to fetch its parent: + let linkCur = cur $/ get "style" &/ get "info" &/ get "link" + let parent' = concatMap (stringAttr "independent-parent") linkCur + when (parent' == src) $ do + error $ "Dependent CSL style " ++ src ++ " specifies itself as parent." + case parent' of + "" -> localizeCSL mbLocale $ parseCSLCursor cur + y -> do + -- note, we insert locale from the dependent style: + let mbLocale' = case stringAttr "default-locale" cur of + "" -> mbLocale + x -> Just x + readCSLFile mbLocale' y + +parseCSL' :: L.ByteString -> Style +parseCSL' = parseCSLCursor . fromDocument . X.parseLBS_ def + +parseCSLCursor :: Cursor -> Style +parseCSLCursor cur = + Style{ styleVersion = version + , styleClass = class_ + , styleInfo = Just info + , styleDefaultLocale = defaultLocale + , styleLocale = locales + , styleAbbrevs = Abbreviations M.empty + , csOptions = filter (\(k,_) -> k `notElem` + ["class", + "xmlns", + "version", + "default-locale"]) $ parseOptions cur + , csMacros = macros + , citation = fromMaybe (Citation [] [] Layout{ layFormat = emptyFormatting + , layDelim = "" + , elements = [] }) $ listToMaybe $ + cur $/ get "citation" &| parseCitation + , biblio = listToMaybe $ cur $/ get "bibliography" &| parseBiblio + } + where version = unpack . T.concat $ cur $| laxAttribute "version" + class_ = unpack . T.concat $ cur $| laxAttribute "class" + defaultLocale = case cur $| laxAttribute "default-locale" of + (x:_) -> unpack x + [] -> "en-US" + author = case (cur $// get "info" &/ get "author") of + (x:_) -> CSAuthor (x $/ get "name" &/ string) + (x $/ get "email" &/ string) + (x $/ get "uri" &/ string) + _ -> CSAuthor "" "" "" + info = CSInfo + { csiTitle = cur $/ get "info" &/ get "title" &/ string + , csiAuthor = author + , csiCategories = [] -- TODO we don't really use this, and the type + -- in Style doesn't match current CSL at all + , csiId = cur $/ get "info" &/ get "id" &/ string + , csiUpdated = cur $/ get "info" &/ get "updated" &/ string + } + locales = cur $/ get "locale" &| parseLocaleElement + macros = cur $/ get "macro" &| parseMacroMap + +get :: Text -> Axis +get name = + element (X.Name name (Just "http://purl.org/net/xbiblio/csl") Nothing) + +string :: Cursor -> String +string = unpack . T.concat . content + +attrWithDefault :: Read a => Text -> a -> Cursor -> a +attrWithDefault t d cur = + case safeRead (toRead $ stringAttr t cur) of + Just x -> x + Nothing -> d + +stringAttr :: Text -> Cursor -> String +stringAttr t cur = + case node cur of + X.NodeElement e -> + case M.lookup (X.Name t Nothing Nothing) + (X.elementAttributes e) of + Just x -> unpack x + Nothing -> "" + _ -> "" + +parseCslTerm :: Cursor -> CslTerm +parseCslTerm cur = + let body = unpack $ T.dropAround (`elem` " \t\r\n") $ + T.concat $ cur $/ content + in CT + { cslTerm = stringAttr "name" cur + , termForm = attrWithDefault "form" Long cur + , termGender = attrWithDefault "gender" Neuter cur + , termGenderForm = attrWithDefault "gender-form" Neuter cur + , termSingular = if null body + then cur $/ get "single" &/ string + else body + , termPlural = if null body + then cur $/ get "multiple" &/ string + else body + , termMatch = stringAttr "match" cur + } + +parseLocaleElement :: Cursor -> Locale +parseLocaleElement cur = Locale + { localeVersion = unpack $ T.concat version + , localeLang = unpack $ T.concat lang + , localeOptions = concat $ cur $/ get "style-options" &| parseOptions + , localeTerms = terms + , localeDate = concat $ cur $/ get "date" &| parseElement + } + where version = cur $| laxAttribute "version" + lang = cur $| laxAttribute "lang" + terms = cur $/ get "terms" &/ get "term" &| parseCslTerm + +parseElement :: Cursor -> [Element] +parseElement cur = + case node cur of + X.NodeElement e -> + case X.nameLocalName $ X.elementName e of + "term" -> parseTerm cur + "text" -> parseText cur + "choose" -> parseChoose cur + "group" -> parseGroup cur + "label" -> parseLabel cur + "number" -> parseNumber cur + "substitute" -> parseSubstitute cur + "names" -> parseNames cur + "date" -> parseDate cur + _ -> [] + _ -> [] + +getFormatting :: Cursor -> Formatting +getFormatting cur = + emptyFormatting{ + prefix = stringAttr "prefix" cur + , suffix = stringAttr "suffix" cur + , fontFamily = stringAttr "font-family" cur + , fontStyle = stringAttr "font-style" cur + , fontVariant = stringAttr "font-variant" cur + , fontWeight = stringAttr "font-weight" cur + , textDecoration = stringAttr "text-decoration" cur + , verticalAlign = stringAttr "vertical-align" cur + , textCase = stringAttr "text-case" cur + , display = stringAttr "display" cur + , quotes = if attrWithDefault "quotes" False cur + then NativeQuote + else NoQuote + , stripPeriods = attrWithDefault "strip-periods" False cur + , noCase = attrWithDefault "no-case" False cur + , noDecor = attrWithDefault "no-decor" False cur + } + +parseDate :: Cursor -> [Element] +parseDate cur = [Date (words variable) form format delim parts partsAttr] + where variable = stringAttr "variable" cur + form = case stringAttr "form" cur of + "text" -> TextDate + "numeric" -> NumericDate + _ -> NoFormDate + format = getFormatting cur + delim = stringAttr "delimiter" cur + parts = cur $/ get "date-part" &| parseDatePart + partsAttr = stringAttr "date-parts" cur + +parseDatePart :: Cursor -> DatePart +parseDatePart cur = + DatePart { dpName = stringAttr "name" cur + , dpForm = case stringAttr "form" cur of + "" -> "long" + x -> x + , dpRangeDelim = case stringAttr "range-delimiter" cur of + "" -> "-" + x -> x + , dpFormatting = getFormatting cur + } + +parseNames :: Cursor -> [Element] +parseNames cur = [Names (words variable) names formatting delim others] + where variable = stringAttr "variable" cur + formatting = getFormatting cur + delim = stringAttr "delimiter" cur + elts = cur $/ parseName + names = case rights elts of + [] -> [Name NotSet emptyFormatting [] [] []] + xs -> xs + others = lefts elts + +parseName :: Cursor -> [Either Element Name] +parseName cur = + case node cur of + X.NodeElement e -> + case X.nameLocalName $ X.elementName e of + "name" -> [Right $ Name (attrWithDefault "form" NotSet cur) + format (nameAttrs e) delim nameParts] + "label" -> [Right $ NameLabel (attrWithDefault "form" Long cur) + format plural] + "et-al" -> [Right $ EtAl format $ stringAttr "term" cur] + _ -> map Left $ parseElement cur + _ -> map Left $ parseElement cur + where format = getFormatting cur + plural = attrWithDefault "plural" Contextual cur + delim = stringAttr "delimiter" cur + nameParts = cur $/ get "name-part" &| parseNamePart + nameAttrs x = [(T.unpack n, T.unpack v) | + (X.Name n _ _, v) <- M.toList (X.elementAttributes x), + n `elem` nameAttrKeys] + nameAttrKeys = [ "et-al-min" + , "et-al-use-first" + , "et-al-subsequent-min" + , "et-al-subsequent-use-first" + , "et-al-use-last" + , "delimiter-precedes-et-al" + , "and" + , "delimiter-precedes-last" + , "sort-separator" + , "initialize" + , "initialize-with" + , "name-as-sort-order" ] + + +parseNamePart :: Cursor -> NamePart +parseNamePart cur = NamePart s format + where format = getFormatting cur + s = stringAttr "name" cur + +parseSubstitute :: Cursor -> [Element] +parseSubstitute cur = [Substitute (cur $/ parseElement)] + +parseTerm :: Cursor -> [Element] +parseTerm cur = + let termForm' = attrWithDefault "form" Long cur + formatting = getFormatting cur + plural = attrWithDefault "plural" True cur + name = stringAttr "name" cur + in [Term name termForm' formatting plural] + +parseText :: Cursor -> [Element] +parseText cur = + let term = stringAttr "term" cur + variable = stringAttr "variable" cur + macro = stringAttr "macro" cur + value = stringAttr "value" cur + delim = stringAttr "delimiter" cur + formatting = getFormatting cur + plural = attrWithDefault "plural" True cur + textForm = attrWithDefault "form" Long cur + in if not (null term) + then [Term term textForm formatting plural] + else if not (null macro) + then [Macro macro formatting] + else if not (null variable) + then [Variable (words variable) textForm formatting delim] + else if not (null value) + then [Const value formatting] + else [] + +parseChoose :: Cursor -> [Element] +parseChoose cur = + let ifPart = cur $/ get "if" &| parseIf + elseIfPart = cur $/ get "else-if" &| parseIf + elsePart = cur $/ get "else" &/ parseElement + in [Choose (head ifPart) elseIfPart elsePart] + +parseIf :: Cursor -> IfThen +parseIf cur = IfThen cond mat elts + where cond = Condition { + isType = go "type" + , isSet = go "variable" + , isNumeric = go "is-numeric" + , isUncertainDate = go "is-uncertain-date" + , isPosition = go "position" + , disambiguation = go "disambiguate" + , isLocator = go "locator" + } + mat = attrWithDefault "match" All cur + elts = cur $/ parseElement + go x = words $ stringAttr x cur + +parseLabel :: Cursor -> [Element] +parseLabel cur = [Label variable form formatting plural] + where variable = stringAttr "variable" cur + form = attrWithDefault "form" Long cur + formatting = getFormatting cur + plural = attrWithDefault "plural" Contextual cur + +parseNumber :: Cursor -> [Element] +parseNumber cur = [Number variable numForm formatting] + where variable = stringAttr "variable" cur + numForm = attrWithDefault "form" Numeric cur + formatting = getFormatting cur + +parseGroup :: Cursor -> [Element] +parseGroup cur = + let elts = cur $/ parseElement + delim = stringAttr "delimiter" cur + formatting = getFormatting cur + in [Group formatting delim elts] + +parseMacroMap :: Cursor -> MacroMap +parseMacroMap cur = (name, elts) + where name = cur $| stringAttr "name" + elts = cur $/ parseElement + +parseCitation :: Cursor -> Citation +parseCitation cur = Citation{ citOptions = parseOptions cur + , citSort = concat $ cur $/ get "sort" &| parseSort + , citLayout = case cur $/ get "layout" &| parseLayout of + (x:_) -> x + [] -> Layout + { layFormat = emptyFormatting + , layDelim = "" + , elements = [] } + } + +parseSort :: Cursor -> [Sort] +parseSort cur = concat $ cur $/ get "key" &| parseKey + +parseKey :: Cursor -> [Sort] +parseKey cur = + case stringAttr "variable" cur of + "" -> + case stringAttr "macro" cur of + "" -> [] + x -> [SortMacro x sorting (attrWithDefault "names-min" 0 cur) + (attrWithDefault "names-use-first" 0 cur) + (stringAttr "names-use-last" cur)] + x -> [SortVariable x sorting] + where sorting = case stringAttr "sort" cur of + "descending" -> Descending "" + _ -> Ascending "" + +parseBiblio :: Cursor -> Bibliography +parseBiblio cur = + Bibliography{ + bibOptions = parseOptions cur, + bibSort = concat $ cur $/ get "sort" &| parseSort, + bibLayout = case cur $/ get "layout" &| parseLayout of + (x:_) -> x + [] -> Layout + { layFormat = emptyFormatting + , layDelim = "" + , elements = [] } + } + +parseOptions :: Cursor -> [Option] +parseOptions cur = + case node cur of + X.NodeElement e -> + [(T.unpack n, T.unpack v) | + (X.Name n _ _, v) <- M.toList (X.elementAttributes e)] + _ -> [] + +parseLayout :: Cursor -> Layout +parseLayout cur = + Layout + { layFormat = getFormatting cur + , layDelim = stringAttr "delimiter" cur + , elements = cur $/ parseElement + } 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,406 @@ +{-# LANGUAGE PatternGuards, DeriveDataTypeable, OverloadedStrings #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Proc +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- This module provides functions for processing the evaluated +-- 'Output' for disambiguation and citation collapsing. +-- +----------------------------------------------------------------------------- + +module Text.CSL.Proc where + +import Control.Arrow ( (&&&), (>>>), second ) +import Data.Char ( toLower, isLetter, isDigit ) +import Data.List +import Data.Ord ( comparing ) +import Data.Maybe ( mapMaybe ) +import Text.CSL.Eval +import Text.CSL.Util ( capitalize, proc, proc', query, toShow ) +import Text.CSL.Proc.Collapse +import Text.CSL.Proc.Disamb +import Text.CSL.Reference +import Text.CSL.Style +import Data.Aeson +import Data.Monoid ((<>)) +import Control.Applicative ((<|>)) +import Text.Pandoc.Definition (Inline(Space, Str, Note), Block(Para)) + +data ProcOpts + = ProcOpts + { bibOpts :: BibOpts + } + deriving ( Show, Read, Eq ) + +data BibOpts + = Select [(String, String)] [(String, String)] + | Include [(String, String)] [(String, String)] + | Exclude [(String, String)] [(String, String)] + deriving ( Show, Read, Eq ) + +newtype FieldVal = FieldVal{ + unFieldVal :: (String, String) + } deriving Show + +instance FromJSON FieldVal where + parseJSON (Object v) = do + x <- v .: "field" + y <- v .: "value" + return $ FieldVal (x,y) + parseJSON _ = fail "Could not parse FieldVal" + +instance FromJSON BibOpts where + parseJSON (Object v) = do + quash <- v .:? "quash".!= [] + let quash' = map unFieldVal quash + (v .: "select" >>= \x -> return $ Select (map unFieldVal x) quash') + <|> + (v .: "include" >>= \x -> return $ Include (map unFieldVal x) quash') + <|> + (v .: "exclude" >>= \x -> return $ Exclude (map unFieldVal x) quash') + <|> + return (Select [] quash') + parseJSON _ = return $ Select [] [] + +procOpts :: ProcOpts +procOpts = ProcOpts (Select [] []) + +-- | With a 'Style', a list of 'Reference's and the list of citation +-- groups (the list of citations with their locator), produce the +-- 'Formatted' for each citation group. +processCitations :: ProcOpts -> Style -> [Reference] -> Citations -> [Formatted] +processCitations ops s rs + = citations . citeproc ops s rs + +-- | With a 'Style' and the list of 'Reference's produce the +-- 'Formatted' for the bibliography. +processBibliography :: ProcOpts -> Style -> [Reference] -> [Formatted] +processBibliography ops s rs + = bibliography $ citeproc ops s rs [map (\r -> emptyCite { citeId = unLiteral $ refId r}) rs] + +-- | With a 'Style', a list of 'Reference's and the list of +-- 'Citations', produce the 'Formatted' for each citation group +-- and the bibliography. +citeproc :: ProcOpts -> Style -> [Reference] -> Citations -> BiblioData +citeproc ops s rs cs + = BD citsOutput biblioOutput + where + -- the list of bib entries, as a list of Reference, with + -- position, locator and year suffix set. + biblioRefs = procRefs s . mapMaybe (getReference rs) . + nubBy (\a b -> citeId a == citeId b) . concat $ cs + biblioOutput = if "disambiguate-add-year-suffix" `elem` getCitDisambOptions s + then map formatOutputList $ + map (proc (updateYearSuffixes yearS) . map addYearSuffix) $ + procBiblio (bibOpts ops) s biblioRefs + else map formatOutputList $ + procBiblio (bibOpts ops) s biblioRefs + citsAndRefs = processCites biblioRefs cs + (yearS,citG) = disambCitations s biblioRefs cs $ map (procGroup s) citsAndRefs + citsOutput = map (formatCitLayout s) . collapseCitGroups s $ citG + +-- | Given the CSL 'Style' and the list of 'Reference's sort the list +-- according to the 'Style' and assign the citation number to each +-- 'Reference'. +procRefs :: Style -> [Reference] -> [Reference] +procRefs (Style {biblio = mb, csMacros = ms , styleLocale = l, styleAbbrevs = as, csOptions = opts}) rs + = maybe (setCNum rs) process mb + where + opts' b = mergeOptions (bibOptions b) opts + setCNum = map (\(x,y) -> x { citationNumber = fromIntegral y }) . flip zip ([1..] :: [Int]) + sort_ b = evalSorting (EvalSorting emptyCite {citePosition = "first"}) l ms (opts' b) (bibSort b) as + process b = setCNum . sortItems . map (id &&& sort_ b) $ rs + +sortItems :: Show a => [(a,[Sorting])] -> [a] +sortItems [] = [] +sortItems l + = case head . concatMap (map snd) $ result of + [] -> concatMap (map fst) result + _ -> if or $ map ((<) 1 . length) result + then concatMap sortItems result + else concatMap (map fst) result + where + result = process l + process = sortBy (comparing $ take 1 . snd) >>> + groupBy (\a b -> take 1 (snd a) == take 1 (snd b)) >>> + map (map $ second (drop 1)) + +-- | With a 'Style' and a sorted list of 'Reference's produce the +-- evaluated output for the bibliography. +procBiblio :: BibOpts -> Style -> [Reference] -> [[Output]] +procBiblio bos (Style {biblio = mb, csMacros = ms , styleLocale = l, + styleAbbrevs = as, csOptions = opts}) rs + = maybe [] process mb + where + process :: Bibliography -> [[Output]] + process b = map (formatBiblioLayout (layFormat $ bibLayout b) (layDelim $ bibLayout b)) $ render b + + render :: Bibliography -> [[Output]] + render b = subsequentAuthorSubstitute b . map (evalBib b) . filterRefs bos $ rs + + evalBib :: Bibliography -> Reference -> [Output] + evalBib b r = evalLayout (bibLayout b) (EvalBiblio emptyCite {citePosition = "first"}) False l ms + (mergeOptions (bibOptions b) opts) as r + +subsequentAuthorSubstitute :: Bibliography -> [[Output]] -> [[Output]] +subsequentAuthorSubstitute b = if null subAuthStr then id else chkCreator + where + subAuthStr = getOptionVal "subsequent-author-substitute" (bibOptions b) + subAuthRule = getOptionVal "subsequent-author-substitute-rule" (bibOptions b) + + queryContrib = proc' rmLabel . query contribsQ + getContrib = if null subAuthStr + then const [] + else case subAuthRule of + "partial-first" -> take 1 . query namesQ . queryContrib + "partial-each" -> query namesQ . queryContrib + _ -> queryContrib + + getPartialEach x xs = concat . take 1 . map fst . reverse . + sortBy (comparing $ length . snd) . filter ((<) 0 . length . snd) . + zip xs . map (takeWhile id . map (uncurry (==)) . zip x) $ xs + + chkCreator = if subAuthRule == "partial-each" then chPartialEach [] else chkCr [] + + chkCr _ [] = [] + chkCr a (x:xs) = let contribs = getContrib x in + if contribs `elem` a + then substituteAuth [] + x : chkCr a xs + else x : chkCr (contribs : a) xs + + chPartialEach _ [] = [] + chPartialEach a (x:xs) = let contribs = getContrib x + partial = getPartialEach contribs a in + if not $ null partial + then substituteAuth partial x : + if length partial < length contribs + then chPartialEach (contribs : a) xs + else chPartialEach a xs + else x : chPartialEach (contribs : a) xs + + substituteAuth a = if subAuthRule == "complete-each" + then proc chNamas else proc (updateContribs a) + + updateContribs a o@(OContrib i r y ds os) + = if r == "author" || r == "authorsub" then OContrib i r upCont ds os else o + where + upCont = case subAuthRule of + "partial-first" -> rmFirstName y + "partial-each" -> rmSelectedName a y + _ -> OStr subAuthStr emptyFormatting : proc rmNames y + updateContribs _ o = o + + contribsQ o + | OContrib _ r c _ _ <- o = if r == "author" || r == "authorsub" then c else [] + | otherwise = [] + namesQ o + | OName {} <- o = [o] + | otherwise = [] + rmSelectedName _ [] = [] + rmSelectedName a (o:os) + | OName {} <- o = (if o `elem` a then OStr subAuthStr emptyFormatting else o) : rmSelectedName a os + | otherwise = o : rmSelectedName a os + rmFirstName [] = [] + rmFirstName (o:os) + | OName {} <- o = OStr subAuthStr emptyFormatting : os + | otherwise = o : rmFirstName os + chNamas o + | OName s _ os f <- o = OName s [OStr subAuthStr emptyFormatting] os f + | otherwise = o + rmNames o + | OName {} <- o = ONull + | OStr {} <- o = ONull + | ODel {} <- o = ONull + | otherwise = o + rmLabel [] = [] + rmLabel (o:os) + | OLabel {} <- o = rmLabel os + | otherwise = o : rmLabel os + +filterRefs :: BibOpts -> [Reference] -> [Reference] +filterRefs bos refs + | Select s q <- bos = filter (select s) . filter (quash q) $ refs + | Include i q <- bos = filter (include i) . filter (quash q) $ refs + | Exclude e q <- bos = filter (exclude e) . filter (quash q) $ refs + | otherwise = refs + where + quash [] _ = True + quash q r = not . and . flip map q $ \(f,v) -> lookup_ r f v + select s r = and . flip map s $ \(f,v) -> lookup_ r f v + include i r = or . flip map i $ \(f,v) -> lookup_ r f v + exclude e r = and . flip map e $ \(f,v) -> not $ lookup_ r f v + lookup_ r f v = case f of + "type" -> look "ref-type" + "id" -> look "ref-id" + "categories" -> look "categories" + x -> look x + where + look s = case lookup s (mkRefMap r) of + Just x | Just v' <- (fromValue x :: Maybe RefType ) -> v == toShow (show v') + | Just v' <- (fromValue x :: Maybe String ) -> v == v' + | Just v' <- (fromValue x :: Maybe [String] ) -> v `elem` v' + | Just v' <- (fromValue x :: Maybe [Agent] ) -> v == [] && v' == [] || v == show v' + | Just v' <- (fromValue x :: Maybe [RefDate]) -> v == [] && v' == [] || v == show v' + _ -> False + +-- | Given the CSL 'Style' and the list of 'Cite's coupled with their +-- 'Reference's, generate a 'CitationGroup'. The citations are sorted +-- according to the 'Style'. +procGroup :: Style -> [(Cite, Reference)] -> CitationGroup +procGroup (Style {citation = ct, csMacros = ms , styleLocale = l, + styleAbbrevs = as, csOptions = opts}) cr + = CG authIn (layFormat $ citLayout ct) (layDelim $ citLayout ct) (authIn ++ co) + where + (co, authIn) = case cr of + (c:_) -> if authorInText (fst c) + then (filter (eqCites (/=) c) $ result, + take 1 . filter (eqCites (==) c) $ result) + else (result, []) + _ -> (result, []) + eqCites eq c = fst >>> citeId &&& citeHash >>> eq (citeId &&& citeHash $ fst c) + opts' = mergeOptions (citOptions ct) opts + format (c,r) = (c, evalLayout (citLayout ct) (EvalCite c) False l ms opts' as r) + sort_ (c,r) = evalSorting (EvalSorting c) l ms opts' (citSort ct) as r + process = map (second (flip Output emptyFormatting) . format &&& sort_) + result = sortItems $ process cr + +formatBiblioLayout :: Formatting -> Delimiter -> [Output] -> [Output] +formatBiblioLayout f d = appendOutput f . addDelim d + +formatCitLayout :: Style -> CitationGroup -> Formatted +formatCitLayout s (CG co f d cs) + | [a] <- co = combine (formatAuth a) + (formatCits $ + (fst >>> citeId &&& citeHash >>> setAsSupAu $ a) $ cs) + | otherwise = formatCits cs + where + isNote = styleClass s == "note" + toNote (Formatted xs) = Formatted [Note [Para xs]] + combine (Formatted []) ys = ys + combine xs ys = + case ys of + Formatted [] -> xs + Formatted (Note _ : _) -> xs <> ys + Formatted (Str [c]:_) | c `elem` ", ;:" -> xs <> ys + _ -> xs <> Formatted [Space] <> ys + formatAuth = formatOutput . localMod + formatCits = (if isNote then toNote else id) . + formatOutputList . appendOutput formatting . addAffixes f . + addDelim d . + map (fst &&& localMod >>> uncurry addCiteAffixes) + formatting = unsetAffixes f + localMod = uncurry $ localModifiers s (not $ null co) + setAsSupAu h = map $ \(c,o) -> if (citeId c, citeHash c) == h + then flip (,) o c { authorInText = False + , suppressAuthor = True } + else flip (,) o c + +addAffixes :: Formatting -> [Output] -> [Output] +addAffixes f os + | [] <- os = [] + | [ONull] <- os = [] + | [Output [ONull] _] <- os = [] + | otherwise = pref ++ suff + where + pref = if not (null (prefix f)) + then [OStr (prefix f) emptyFormatting] ++ os + else os + suff = case suffix f of + [] -> [] + (c:cs) + | isLetter c || isDigit c || c == '(' || c == '[' -> + [OSpace, OStr (c:cs) emptyFormatting] + | otherwise -> [OStr (c:cs) emptyFormatting] + +-- | The 'Bool' is 'True' if we are formatting a textual citation (in +-- pandoc terminology). +localModifiers :: Style -> Bool -> Cite -> Output -> Output +localModifiers s b c + | authorInText c = check . return . proc rmFormatting . contribOnly s + | suppressAuthor c = check . rmContrib . return + | otherwise = id + where + isPunct' [] = False + isPunct' xs = all (`elem` ".,;:!? ") xs + check o = case cleanOutput o of + [] -> ONull + x -> case trim' x of + [] -> ONull + x' -> Output x' emptyFormatting + hasOutput o + | Output [] _ <- o = [False] + | ODel _ <- o = [False] + | OSpace <- o = [False] + | ONull <- o = [False] + | otherwise = [True] + trim' [] = [] + trim' (o:os) + | Output ot f <- o, p <- prefix f, p /= [] + , isPunct' p = trim' $ Output ot f { prefix = []} : os + | Output ot f <- o = if or (query hasOutput ot) + then Output (trim' ot) f : os + else Output ot f : trim' os + | ODel _ <- o = trim' os + | OSpace <- o = trim' os + | OStr x f <- o = OStr x (if isPunct' (prefix f) + then f { prefix = []} else f) : os + | otherwise = o:os + rmFormatting f + | Formatting {} <- f = emptyFormatting { prefix = prefix f + , suffix = suffix f} + | otherwise = f + rmCitNum o + | OCitNum {} <- o = ONull + | otherwise = o + rmContrib [] = [] + rmContrib o + | b, isNumStyle o = proc rmCitNum o + | otherwise = rmContrib' o + rmContrib' [] = [] + rmContrib' (o:os) + | Output ot f <- o = Output (rmContrib' ot) f : rmContrib' os + | ODel _ <- o + , OContrib _ "author" + _ _ _ : xs <- os = rmContrib' xs + | ODel _ <- o + , OContrib _ "authorsub" + _ _ _ : xs <- os = rmContrib' xs + | OContrib _ "author" _ _ _ <- o + , ODel _ : xs <- os = rmContrib' xs + | OContrib _ "authorsub" _ _ _ <- o + , ODel _ : xs <- os = rmContrib' xs + | OContrib _ "author" + _ _ _ <- o = rmContrib' os + | OContrib _ "authorsub" + _ _ _ <- o = rmContrib' os + | OStr x _ <- o + , "ibid" <- filter (/= '.') (map toLower x) = rmContrib' os + + | otherwise = o : rmContrib' os + +contribOnly :: Style -> Output -> Output +contribOnly s o + | isNumStyle [o] + , OCitNum {} <- o = Output [ OStr (query getRefTerm s) emptyFormatting + , OSpace, o] emptyFormatting + | OContrib _ "author" + _ _ _ <- o = o + | OContrib _ "authorsub" + _ _ _ <- o = o + | Output ot f <- o = Output (cleanOutput $ map (contribOnly s) ot) f + | OStr x _ <- o + , "ibid" <- filter (/= '.') + (map toLower x) = o + | otherwise = ONull + where + getRefTerm :: CslTerm -> String + getRefTerm t + | CT "reference" Long _ _ x _ _ <- t = capitalize x + | otherwise = [] diff --git a/src/Text/CSL/Proc/Collapse.hs b/src/Text/CSL/Proc/Collapse.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Proc/Collapse.hs @@ -0,0 +1,224 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Proc.Collapse +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- This module provides functions for processing the evaluated +-- 'Output' for citation collapsing. +-- +----------------------------------------------------------------------------- + +module Text.CSL.Proc.Collapse where + +import Data.Monoid (mempty, Any(..)) +import Control.Arrow ( (&&&), (>>>), second ) +import Data.Char +import Data.List ( groupBy, sort ) +import Text.CSL.Util ( query, proc, proc', betterThan ) +import Text.CSL.Eval +import Text.CSL.Proc.Disamb +import Text.CSL.Style hiding (Any) +import Text.Pandoc.Definition ( Inline (Str) ) + +-- | Collapse citations according to the style options. +collapseCitGroups :: Style -> [CitationGroup] -> [CitationGroup] +collapseCitGroups s + = map doCollapse + where + doCollapse = case getCollapseOptions s of + "year" : _ -> collapseYear s [] + "year-suffix" : _ -> collapseYear s "year-suffix" + "year-suffix-ranged" : _ -> collapseYear s "year-suffix-ranged" + "citation-number" : _ -> collapseNumber + _ -> id + +-- | Get the collapse option set in the 'Style' for citations. +getCollapseOptions :: Style -> [String] +getCollapseOptions + = map snd . filter ((==) "collapse" . fst) . citOptions . citation + +collapseNumber :: CitationGroup -> CitationGroup +collapseNumber cg + | CG [a] f d os <- cg = mapCitationGroup process . CG [a] f d $ drop 1 os + | otherwise = mapCitationGroup process cg + where + hasLocator = or . query hasLocator' + hasLocator' o + | OLoc _ _ <- o = [True] + | otherwise = [False] + citNum o + | OCitNum i f <- o = [(i,f)] + | otherwise = [] + numOf = foldr (\x _ -> x) (0,emptyFormatting) . query citNum + newNum = map numOf >>> (map fst >>> groupConsec) &&& map snd >>> uncurry zip + process xs = if hasLocator xs then xs else + flip concatMap (newNum xs) $ + \(x,f) -> if length x > 2 + then return $ Output [ OCitNum (head x) f + , OPan [Str "\x2013"] + , OCitNum (last x) f + ] emptyFormatting + else map (flip OCitNum f) x + +groupCites :: [(Cite, Output)] -> [(Cite, Output)] +groupCites [] = [] +groupCites (x:xs) = let equal = filter ((==) (namesOf $ snd x) . namesOf . snd) xs + notequal = filter ((/=) (namesOf $ snd x) . namesOf . snd) xs + in x : equal ++ groupCites notequal + where + contribsQ o + | OContrib _ _ c _ _ <- o = [c] + | otherwise = [] + namesOf y = case query contribsQ y of + [] -> [] + (z:_) -> proc rmHashAndGivenNames z + +getYearAndSuf :: Output -> Output +getYearAndSuf x + = case query getOYear x of + [] -> noOutputError + x' -> Output x' emptyFormatting + where + getOYear o + | OYear {} : _ <- o = [head o] + | OYearSuf {} : _ <- o = [head o] + | OLoc {} : _ <- o = [head o] + | ODel _ : OLoc {} : _ <- o = [head o] + | otherwise = [] + +collapseYear :: Style -> String -> CitationGroup -> CitationGroup +collapseYear s ranged (CG cs f d os) = CG cs f [] (process os) + where + styleYSD = getOptionVal "year-suffix-delimiter" . citOptions . citation $ s + yearSufDel = styleYSD `betterThan` (layDelim . citLayout . citation $ s) + afterCD = getOptionVal "after-collapse-delimiter" . citOptions . citation $ s + afterColDel = afterCD `betterThan` d + + format [] = [] + format (x:xs) = x : map getYearAndSuf xs + + isRanged = case ranged of + "year-suffix-ranged" -> True + _ -> False + + collapseRange = if null ranged then map (uncurry addCiteAffixes) + else collapseYearSuf isRanged yearSufDel + + rmAffixes x = x {citePrefix = mempty, citeSuffix = mempty} + delim = let d' = getOptionVal "cite-group-delimiter" . citOptions . citation $ s + -- FIXME: see https://bitbucket.org/bdarcus/citeproc-test/issue/15 + -- in if null d' then if null d then ", " else d else d' + in if null d' then ", " else d' + + collapsYS a = case a of + [] -> (emptyCite, ONull) + [x] -> rmAffixes . fst &&& uncurry addCiteAffixes $ x + _ -> (,) (rmAffixes $ fst $ head a) . flip Output emptyFormatting . + addDelim delim . collapseRange . + uncurry zip . second format . unzip $ a + + doCollapse [] = [] + doCollapse (x:[]) = [collapsYS x] + doCollapse (x:xs) = let (a,b) = collapsYS x + in if length x > 1 + then (a, Output (b : [ODel afterColDel]) emptyFormatting) : doCollapse xs + else (a, Output (b : [ODel d ]) emptyFormatting) : doCollapse xs + + contribsQ o + | OContrib _ _ c _ _ <- o = [proc' rmHashAndGivenNames c] + | otherwise = [] + namesOf = query contribsQ + process = doCollapse . groupBy (\a b -> namesOf (snd a) == namesOf (snd b)) . groupCites + +collapseYearSuf :: Bool -> String -> [(Cite,Output)] -> [Output] +collapseYearSuf ranged ysd = process + where + yearOf = concat . query getYear + getYear o + | OYear y _ _ <- o = [y] + | otherwise = [] + + processYS = if ranged then collapseYearSufRanged else id + process = map (flip Output emptyFormatting . getYS) . groupBy comp + + checkAffix (Formatted []) = True + checkAffix _ = False + + comp a b = yearOf (snd a) == yearOf (snd b) && + checkAffix (citePrefix $ fst a) && + checkAffix (citeSuffix $ fst a) && + checkAffix (citePrefix $ fst b) && + checkAffix (citeSuffix $ fst b) && + null (citeLocator $ fst a) && + null (citeLocator $ fst b) + + getYS [] = [] + getYS (x:[]) = return $ uncurry addCiteAffixes x + getYS (x:xs) = if ranged + then proc rmOYearSuf (snd x) : addDelim ysd (processYS $ (snd x) : query rmOYear (map snd xs)) + else addDelim ysd $ (snd x) : (processYS $ query rmOYear (map snd xs)) + rmOYearSuf o + | OYearSuf {} <- o = ONull + | otherwise = o + rmOYear o + | OYearSuf {} <- o = [o] + | otherwise = [] + +collapseYearSufRanged :: [Output] -> [Output] +collapseYearSufRanged = process + where + getOYS o + | OYearSuf s _ _ f <- o = [(if s /= [] then ord (head s) else 0, f)] + | otherwise = [] + sufOf = foldr (\x _ -> x) (0,emptyFormatting) . query getOYS + newSuf = map sufOf >>> (map fst >>> groupConsec) &&& map snd >>> uncurry zip + process xs = flip concatMap (newSuf xs) $ + \(x,f) -> if length x > 2 + then return $ Output [ OStr [chr $ head x] f + , OPan [Str "\x2013"] + , OStr [chr $ last x] f + ] emptyFormatting + else map (\y -> if y == 0 then ONull else flip OStr f . return . chr $ y) x + +addCiteAffixes :: Cite -> Output -> Output +addCiteAffixes c x = + if isNumStyle [x] + then x + else Output ( addCiteAff True (citePrefix c) ++ [x] ++ + addCiteAff False (citeSuffix c)) emptyFormatting + where + addCiteAff isprefix y = + case y of + Formatted [] -> [] + Formatted ils + | isprefix -> [OPan ils, OSpace] + | otherwise -> case ils of + (Str (z:_):_) + | isAlphaNum z || + z == '(' -> [OSpace, OPan ils] + _ -> [OPan ils] + + +isNumStyle :: [Output] -> Bool +isNumStyle = getAny . query ocitnum + where + ocitnum (OCitNum {}) = Any True + ocitnum _ = Any False + +-- | Group consecutive integers: +-- +-- > groupConsec [1,2,3,5,6,8,9] == [[1,2,3],[5,6],[8,9]] +groupConsec :: [Int] -> [[Int]] +groupConsec = foldr go [] . sort + where go :: Int -> [[Int]] -> [[Int]] + go x [] = [[x]] + go x ((y:ys):gs) = if x + 1 == y + then ((x:y:ys):gs) + else ([x]:(y:ys):gs) + go _ ([]:_) = error "groupConsec: head of list is empty" diff --git a/src/Text/CSL/Proc/Disamb.hs b/src/Text/CSL/Proc/Disamb.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Proc/Disamb.hs @@ -0,0 +1,414 @@ +{-# LANGUAGE PatternGuards #-} +----------------------------------------------------------------------------- +-- | +-- Module : Text.CSL.Proc.Disamb +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- This module provides functions for processing the evaluated +-- 'Output' for citation disambiguation. +-- +-- Describe the disambiguation process. +-- +----------------------------------------------------------------------------- + +module Text.CSL.Proc.Disamb where + +import Control.Arrow ( (&&&), (>>>), second ) +import Data.Char ( chr ) +import Data.List ( elemIndex, find, findIndex, sortBy, mapAccumL + , nub, nubBy, groupBy, isPrefixOf ) +import Data.Maybe +import Data.Ord ( comparing ) + +import Text.CSL.Eval +import Text.CSL.Reference +import Text.CSL.Style +import Text.CSL.Util (query, proc) + +-- | Given the 'Style', the list of references and the citation +-- groups, disambiguate citations according to the style options. +disambCitations :: Style -> [Reference] -> Citations -> [CitationGroup] + -> ([(String, String)], [CitationGroup]) +disambCitations s bibs cs groups + = (,) yearSuffs citOutput + where + -- utils + when_ b f = if b then f else [] + filter_ f = concatMap (map fst) . map (filter f) . map (uncurry zip) + + -- the list of the position and the reference of each citation + -- for each citation group. + refs = processCites bibs cs + -- name data of name duplicates + nameDupls = getDuplNameData groups + -- citation data of ambiguous cites + duplics = getDuplCiteData hasNamesOpt hasYSuffOpt groups + + -- check the options set in the style + isByCite = let gno = getOptionVal "givenname-disambiguation-rule" (citOptions $ citation s) + in gno == "by-cite" || gno == [] + disOpts = getCitDisambOptions s + hasNamesOpt = "disambiguate-add-names" `elem` disOpts + hasGNameOpt = "disambiguate-add-givenname" `elem` disOpts + hasYSuffOpt = "disambiguate-add-year-suffix" `elem` disOpts + givenNames = if hasGNameOpt + then if isByCite then ByCite else AllNames + else NoGiven + + clean = if hasGNameOpt then id else proc rmHashAndGivenNames + withNames = flip map duplics $ same . clean . + map (if hasNamesOpt then disambData else return . disambYS) + + needNames = filter_ (not . snd) $ zip duplics withNames + needYSuff = filter_ snd $ zip duplics withNames + + newNames :: [CiteData] + newNames = when_ (hasNamesOpt || hasGNameOpt) $ disambAddNames givenNames $ needNames ++ + if hasYSuffOpt && givenNames == NoGiven then [] else needYSuff + + newGName :: [NameData] + newGName = when_ hasGNameOpt $ concatMap disambAddGivenNames nameDupls + + -- the list of citations that need re-evaluation with the + -- \"disambiguate\" condition set to 'True' + reEval = let chk = if hasYSuffOpt then filter ((==) [] . citYear) else id + in chk needYSuff + reEvaluated = if or (query hasIfDis s) && not (null reEval) + then map (uncurry $ reEvaluate s reEval) $ zip refs groups + else groups + + withYearS = addNames $ + if hasYSuffOpt + then map (mapCitationGroup $ setYearSuffCollision hasNamesOpt needYSuff) $ reEvaluated + else rmYearSuff $ reEvaluated + + yearSuffs = when_ hasYSuffOpt . generateYearSuffix bibs . concatMap getYearSuffixes $ withYearS + + addNames = proc (updateContrib givenNames newNames newGName) + processed = if hasYSuffOpt + then proc (updateYearSuffixes yearSuffs) $ withYearS + else withYearS + + citOutput = if disOpts /= [] then processed else reEvaluated + +mapDisambData :: (Output -> Output) -> CiteData -> CiteData +mapDisambData f (CD k c ys d r s y) = CD k c ys (proc f d) r s y + +mapCitationGroup :: ([Output] -> [Output]) -> CitationGroup -> CitationGroup +mapCitationGroup f (CG cs fm d os) = CG cs fm d (zip (map fst os) . f $ map snd os) + +data GiveNameDisambiguation + = NoGiven + | ByCite + | AllNames + deriving (Show, Eq) + +disambAddNames :: GiveNameDisambiguation -> [CiteData] -> [CiteData] +disambAddNames b needName = addLNames + where + clean = if b == NoGiven then proc rmHashAndGivenNames else id + disSolved = zip needName' . disambiguate . map disambData $ needName' + needName' = nub' needName [] + addLNames = map (\(c,n) -> c { disambed = if null n then collision c else head n }) disSolved + nub' [] r = r + nub' (x:xs) r = case elemIndex (disambData $ clean x) (map (disambData . clean) r) of + Nothing -> nub' xs (x:r) + Just i -> let y = r !! i + in nub' xs (y {sameAs = key x : sameAs y} : filter (/= y) r) + +disambAddGivenNames :: [NameData] -> [NameData] +disambAddGivenNames needName = addGName + where + disSolved = zip needName (disambiguate $ map nameDisambData needName) + addGName = map (\(c,n) -> c { nameDataSolved = if null n then nameCollision c else head n }) disSolved + +updateContrib :: GiveNameDisambiguation -> [CiteData] -> [NameData] -> Output -> Output +updateContrib g c n o + | OContrib k r s d dd <- o = case filter (key &&& sameAs >>> uncurry (:) >>> elem k) c of + x:_ | clean (disambData x) == clean (d:dd) -> + OContrib k r (map processGNames $ disambed x) [] dd + _ | null c, AllNames <- g -> OContrib k r (map processGNames s) d dd + | otherwise -> o + | otherwise = o + where + clean = if g == NoGiven then proc rmHashAndGivenNames else id + processGNames = if g /= NoGiven then updateOName n else id + +updateOName :: [NameData] -> Output -> Output +updateOName n o + | OName _ _ [] _ <- o = o + | OName k x _ f <- o = case elemIndex (ND k (clean x) [] []) n of + Just i -> OName emptyAgent (nameDataSolved $ n !! i) [] f + _ -> o + | otherwise = o + where + clean = proc rmGivenNames + +-- | Evaluate again a citation group with the 'EvalState' 'disamb' +-- field set to 'True' (for matching the @\"disambiguate\"@ +-- condition). +reEvaluate :: Style -> [CiteData] -> [(Cite, Reference)] -> CitationGroup -> CitationGroup +reEvaluate (Style {citation = ct, csMacros = ms , styleLocale = lo, + styleAbbrevs = as}) l cr (CG a f d os) + = CG a f d . flip concatMap (zip cr os) $ + \((c,r),out) -> if unLiteral (refId r) `elem` map key l + then return . second (flip Output emptyFormatting) $ + (,) c $ evalLayout (citLayout ct) (EvalCite c) True lo ms (citOptions ct) as r + else [out] + +-- | Check if the 'Style' has any conditional for disambiguation. In +-- this case the conditional will be try after all other +-- disambiguation strategies have failed. To be used with the generic +-- 'query' function. +hasIfDis :: IfThen -> [Bool] +hasIfDis (IfThen (Condition {disambiguation = (_:_)}) _ _) = [True] +hasIfDis _ = [False] + +-- | Get the list of disambiguation options set in the 'Style' for +-- citations. +getCitDisambOptions :: Style -> [String] +getCitDisambOptions + = map fst . filter ((==) "true" . snd) . + filter (isPrefixOf "disambiguate" . fst) . citOptions . citation + +-- | Group citation data (with possible alternative names) of +-- citations which have a duplicate (same 'collision', and same +-- 'citYear' if year suffix disambiiguation is used). If the first +-- 'Bool' is 'False', then we need to retrieve data for year suffix +-- disambiguation. The second 'Bool' is 'True' when comparing both +-- year and contributors' names for finding duplicates (when the +-- year-suffix option is set). +getDuplCiteData :: Bool -> Bool -> [CitationGroup] -> [[CiteData]] +getDuplCiteData b1 b2 g + = groupBy (\x y -> collide x == collide y) . sortBy (comparing collide) + $ duplicates + where + whatToGet = if b1 then collision else disambYS + collide = proc rmExtras . proc rmHashAndGivenNames . whatToGet + citeData = nubBy (\a b -> collide a == collide b && key a == key b) $ + concatMap (mapGroupOutput $ getCiteData) g + duplicates = [c | c <- citeData , d <- citeData , collides c d] + collides x y = x /= y && (collide x == collide y) + && (not b2 || citYear x == citYear y) + +rmExtras :: [Output] -> [Output] +rmExtras os + | Output x _ : xs <- os = case rmExtras x of + [] -> rmExtras xs + ys -> ys ++ rmExtras xs + | OContrib _ _ x _ _ : xs <- os = OContrib [] [] x [] [] : rmExtras xs + | OYear y _ f : xs <- os = OYear y [] f : rmExtras xs + | ODel _ : xs <- os = rmExtras xs + | OLoc _ _ : xs <- os = rmExtras xs + | x : xs <- os = x : rmExtras xs + | otherwise = [] + +-- | For an evaluated citation get its 'CiteData'. The disambiguated +-- citation and the year fields are empty. Only the first list of +-- contributors' disambiguation data are collected for disambiguation +-- purposes. +getCiteData :: Output -> [CiteData] +getCiteData out + = (contribs &&& years >>> zipData) out + where + contribs x = case query contribsQ x of + [] -> [CD [] [out] [] [] [] [] []] + -- allow title to disambiguate + xs -> xs + years o = case query getYears o of + [] -> [([],[])] + r -> r + zipData = uncurry . zipWith $ \c y -> if key c /= [] + then c {citYear = snd y} + else c {key = fst y + ,citYear = snd y} + contribsQ o + | OContrib k _ _ d dd <- o = [CD k [out] d (d:dd) [] [] []] + | otherwise = [] + +getYears :: Output -> [(String,String)] +getYears o + | OYear x k _ <- o = [(k,x)] + | otherwise = [] + +getDuplNameData :: [CitationGroup] -> [[NameData]] +getDuplNameData g + = groupBy (\a b -> collide a == collide b) . sortBy (comparing collide) $ duplicates + where + collide = nameCollision + nameData = nub $ concatMap (mapGroupOutput getName) g + duplicates = filter (flip elem (getDuplNames g) . collide) nameData + +getDuplNames :: [CitationGroup] -> [[Output]] +getDuplNames xs + = nub . catMaybes . snd . mapAccumL dupl [] . getData $ xs + where + getData = concatMap (mapGroupOutput getName) + dupl a c = if nameCollision c `elem` map nameCollision a + then (a,Just $ nameCollision c) + else (c:a,Nothing) + +getName :: Output -> [NameData] +getName = query getName' + where + getName' o + | OName i n ns _ <- o = [ND i n (n:ns) []] + | otherwise = [] + +generateYearSuffix :: [Reference] -> [(String, [Output])] -> [(String,String)] +generateYearSuffix refs + = concatMap (flip zip suffs) . + -- sort clashing cites using their position in the sorted bibliography + getFst . map sort' . map (filter ((/=) 0 . snd)) . map (map getP) . + -- group clashing cites + getFst . filter (\grp -> length grp >= 2) . map nub . groupBy (\a b -> snd a == snd b) . sort' . filter ((/=) [] . snd) + where + sort' :: (Ord a, Ord b) => [(a,b)] -> [(a,b)] + sort' = sortBy (comparing snd) + getFst = map $ map fst + getP k = case findIndex ((==) k . unLiteral . refId) refs of + Just x -> (k, x + 1) + _ -> (k, 0) + suffs = l ++ [x ++ y | x <- l, y <- l ] + l = map (return . chr) [97..122] + +setYearSuffCollision :: Bool -> [CiteData] -> [Output] -> [Output] +setYearSuffCollision b cs = proc (setYS cs) . (map $ \x -> if hasYearSuf x then x else addYearSuffix x) + where + setYS c o + | OYearSuf _ k _ f <- o = OYearSuf [] k (getCollision k c) f + | otherwise = o + collide = if b then disambed else disambYS + getCollision k c = case find ((==) k . key) c of + Just x -> if collide x == [] + then [OStr (citYear x) emptyFormatting] + else collide x + _ -> [] + +updateYearSuffixes :: [(String, String)] -> Output -> Output +updateYearSuffixes yss o + | OYearSuf _ k c f <- o = case lookup k yss of + Just x -> OYearSuf x k c f + _ -> ONull + | otherwise = o + +getYearSuffixes :: CitationGroup -> [(String,[Output])] +getYearSuffixes (CG _ _ _ d) = map go d + where go (c,x) = (citeId c, relevant False [x]) + relevant :: Bool -> [Output] -> [Output] -- bool is true if has contrib + -- we're only interested in OContrib and OYear, unless there is no OContrib + relevant c (Output xs _ : rest) = relevant c xs ++ relevant c rest + relevant c (OYear n _ _ : rest) = OStr n emptyFormatting : relevant c rest + relevant False (OStr s _ : rest) = OStr s emptyFormatting : relevant False rest + relevant False (OSpace : rest) = OSpace : relevant False rest + relevant False (OPan ils : rest) = OPan ils : relevant False rest + relevant _ (OContrib _ _ v _ _ : rest ) = relevant False v ++ relevant True rest + relevant c (OName _ v _ _ : rest ) = relevant c v ++ relevant c rest + relevant c (_ : rest) = relevant c rest + relevant _ [] = [] + +rmYearSuff :: [CitationGroup] -> [CitationGroup] +rmYearSuff = proc rmYS + where + rmYS o + | OYearSuf _ _ _ _ <- o = ONull + | otherwise = o + +-- List Utilities + +-- | Try to disambiguate a list of lists by returning the first non +-- colliding element, if any, of each list: +-- +-- > disambiguate [[1,2],[1,3],[2]] = [[2],[3],[2]] +disambiguate :: (Eq a) => [[a]] -> [[a]] +disambiguate [] = [] +disambiguate l + = if hasMult l && not (allTheSame l) && hasDuplicates heads + then disambiguate (rest l) + else heads + where + heads = map (take 1) l + rest = map (\(b,x) -> if b then tail_ x else take 1 x) . zip (same heads) + + hasMult [] = False + hasMult (x:xs) = length x > 1 || hasMult xs + + tail_ [x] = [x] + tail_ x = if null x then x else tail x + +-- | For each element a list of 'Bool': 'True' if the element has a +-- duplicate in the list: +-- +-- > same [1,2,1] = [True,False,True] +same :: Eq a => [a] -> [Bool] +same l = map (`elem` dupl) l + where + dupl = catMaybes . snd . macc [] $ l + macc = mapAccumL $ \a x -> if x `elem` a + then (a,Just x) + else (x:a,Nothing) + +hasDuplicates :: Eq a => [a] -> Bool +hasDuplicates = or . same + +allTheSame :: Eq a => [a] -> Bool +allTheSame [] = True +allTheSame (x:xs) = all (== x) xs + +-- | Add the year suffix to the year. Needed for disambiguation. +addYearSuffix :: Output -> Output +addYearSuffix o + | OYear y k f <- o = Output [OYear y k emptyFormatting,OYearSuf [] k [] emptyFormatting] f + | ODate (x:xs) <- o = if or $ map hasYear xs + then Output (x : [addYearSuffix $ ODate xs]) emptyFormatting + else addYearSuffix (Output (x:xs) emptyFormatting) + | Output (x:xs) f <- o = if or $ map hasYearSuf (x : xs) + then Output (x : xs) f + else if hasYear x + then Output (addYearSuffix x : xs) f + else Output (x : [addYearSuffix $ Output xs emptyFormatting]) f + | otherwise = o + +hasYear :: Output -> Bool +hasYear = not . null . query getYear + where getYear o + | OYear _ _ _ <- o = [o] + | otherwise = [] + + +hasYearSuf :: Output -> Bool +hasYearSuf = not . null . query getYearSuf + where getYearSuf :: Output -> [String] + getYearSuf o + | OYearSuf _ _ _ _ <- o = ["a"] + | otherwise = [] + +-- | Removes all given names and name hashes from OName elements. +rmHashAndGivenNames :: Output -> Output +rmHashAndGivenNames (OName _ s _ f) = OName emptyAgent s [] f +rmHashAndGivenNames o = o + +rmGivenNames :: Output -> Output +rmGivenNames (OName a s _ f) = OName a s [] f +rmGivenNames o = o + +-- | Add, with 'proc', a give name to the family name. Needed for +-- disambiguation. +addGivenNames :: [Output] -> [Output] +addGivenNames + = addGN True + where + addGN _ [] = [] + addGN b (o:os) + | OName i _ xs f <- o + , xs /= [] = if b then OName i (head xs) (tail xs) f : addGN False os else o:os + | otherwise = o : addGN b os + +-- | Map the evaluated output of a citation group. +mapGroupOutput :: (Output -> [a]) -> CitationGroup -> [a] +mapGroupOutput f (CG _ _ _ os) = concatMap f $ map snd os 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,682 @@ +{-# LANGUAGE GeneralizedNewtypeDeriving, PatternGuards, OverloadedStrings, + DeriveDataTypeable, ExistentialQuantification, FlexibleInstances, + ScopedTypeVariables, GeneralizedNewtypeDeriving, IncoherentInstances, + DeriveGeneric #-} +----------------------------------------------------------------------------- +-- | +-- 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 ( Literal(..) + , Value(..) + , ReferenceMap + , mkRefMap + , formatField + , fromValue + , isValueSet + , Empty(..) + , RefDate(..) + , handleLiteral + , toDatePart + , setCirca + , mkRefDate + , RefType(..) + , CNum(..) + , Reference(..) + , emptyReference + , numericVars + , getReference + , processCites + , setPageFirst + , setNearNote + ) +where + +import Data.List ( elemIndex, intercalate ) +import Data.List.Split ( splitWhen ) +import Data.Maybe ( fromMaybe ) +import Data.Generics hiding (Generic) +import GHC.Generics (Generic) +import Data.Monoid +import Data.Aeson hiding (Value) +import Data.Aeson.Types (Parser) +import Control.Applicative ((<$>), (<*>), (<|>), pure) +import qualified Data.Text as T +import qualified Data.Vector as V +import Data.Char (toLower, isUpper, isLower, isDigit) +import Text.CSL.Style hiding (Number) +import Text.CSL.Util (parseString, parseInt, parseBool, safeRead, readNum, + inlinesToString, capitalize, camelize) +import Text.Pandoc (Inline(Str)) +import Data.String + +newtype Literal = Literal { unLiteral :: String } + deriving ( Show, Read, Eq, Data, Typeable, Monoid, Generic ) + +instance FromJSON Literal where + parseJSON v = Literal `fmap` parseString v + +instance ToJSON Literal where + toJSON = toJSON . unLiteral + +instance IsString Literal where + fromString = Literal + +-- | 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 Literal = v /= mempty + | Just v <- fromValue val :: Maybe String = v /= mempty + | Just v <- fromValue val :: Maybe Formatted = v /= mempty + | 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 CNum = v /= 0 + | Just _ <- fromValue val :: Maybe Empty = True + | otherwise = False + +data Empty = Empty deriving ( Typeable, Data, Generic ) + +data RefDate = + RefDate { year :: Literal + , month :: Literal + , season :: Literal + , day :: Literal + , other :: Literal + , circa :: Bool + } deriving ( Show, Read, Eq, Typeable, Data, Generic ) + +instance FromJSON RefDate where + parseJSON (Array v) = + case fromJSON (Array v) of + Success [y] -> RefDate <$> parseJSON y <*> + pure "" <*> pure "" <*> pure "" <*> pure "" <*> pure False + Success [y,m] -> RefDate <$> parseJSON y <*> parseJSON m <*> + pure "" <*> pure "" <*> pure "" <*> pure False + Success [y,m,d] -> RefDate <$> parseJSON y <*> parseJSON m <*> + pure "" <*> parseJSON d <*> pure "" <*> pure False + Error e -> fail $ "Could not parse RefDate: " ++ e + _ -> fail "Could not parse RefDate" + parseJSON (Object v) = RefDate <$> + v .:? "year" .!= "" <*> + v .:? "month" .!= "" <*> + v .:? "season" .!= "" <*> + v .:? "day" .!= "" <*> + v .:? "literal" .!= "" <*> + ((v .: "circa" >>= parseBool) <|> pure False) + parseJSON _ = fail "Could not parse RefDate" + +{- +instance ToJSON RefDate where + toJSON refdate = object' $ [ + "year" .= year refdate + , "month" .= month refdate + , "season" .= season refdate + , "day" .= day refdate + , "other" .= other refdate ] ++ + [ "circa" .= circa refdate | circa refdate ] +-} + +instance FromJSON [RefDate] where + parseJSON (Array xs) = mapM parseJSON $ V.toList xs + parseJSON (Object v) = do + dateParts <- v .:? "date-parts" + circa' <- (v .: "circa" >>= parseBool) <|> pure False + case dateParts of + Just (Array xs) -> mapM (fmap (setCirca circa') . parseJSON) + $ V.toList xs + _ -> handleLiteral <$> parseJSON (Object v) + parseJSON x = parseJSON x >>= mkRefDate + +-- Zotero doesn't properly support date ranges, so a common +-- workaround is 2005_2007; support this as date range: +handleLiteral :: RefDate -> [RefDate] +handleLiteral d@(RefDate (Literal "") (Literal "") (Literal "") + (Literal "") (Literal xs) b) + = case splitWhen (=='_') xs of + [x,y] | all isDigit x && all isDigit y && + not (null x) && not (null y) -> + [RefDate (Literal x) mempty mempty mempty mempty b, + RefDate (Literal y) mempty mempty mempty mempty b] + _ -> [d] +handleLiteral d = [d] + +toDatePart :: RefDate -> [Int] +toDatePart refdate = + case (safeRead (unLiteral $ year refdate), + safeRead (unLiteral $ month refdate), + safeRead (unLiteral $ day refdate)) of + (Just (y :: Int), Just (m :: Int), Just (d :: Int)) + -> [y, m, d] + (Just y, Just m, Nothing) -> [y, m] + (Just y, Nothing, Nothing) -> [y] + _ -> [] + +instance ToJSON [RefDate] where + toJSON [] = Array V.empty + toJSON xs = object' $ + case filter (not . null) (map toDatePart xs) of + [] -> ["literal" .= intercalate "; " (map (unLiteral . other) xs)] + dps -> (["date-parts" .= dps ] ++ + ["circa" .= (1 :: Int) | or (map circa xs)] ++ + ["season" .= s | s <- map season xs, s /= mempty]) + +-- instance ToJSON [RefDate] +-- toJSON xs = Array (V.fromList $ map toJSON xs) + +setCirca :: Bool -> RefDate -> RefDate +setCirca circa' rd = rd{ circa = circa' } + +mkRefDate :: Literal -> Parser [RefDate] +mkRefDate z@(Literal xs) + | all isDigit xs = return [RefDate z mempty mempty mempty mempty False] + | otherwise = return [RefDate mempty mempty mempty mempty z False] + +data RefType + = NoType + | Article + | ArticleMagazine + | ArticleNewspaper + | ArticleJournal + | Bill + | Book + | Broadcast + | Chapter + | Dataset + | 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, Generic ) + +instance Show RefType where + show MotionPicture = "motion_picture" + show MusicalScore = "musical_score" + show PersonalCommunication = "personal_communication" + show LegalCase = "legal_case" + show x = map toLower . formatField . showConstr . toConstr $ x + +instance FromJSON RefType where + parseJSON (String t) = safeRead (capitalize . camelize . T.unpack $ t) + parseJSON v@(Array _) = fmap (capitalize . camelize . inlinesToString) + (parseJSON v) >>= safeRead + parseJSON _ = fail "Could not parse RefType" + +instance ToJSON RefType where + toJSON reftype = toJSON (uncamelize $ uncapitalize $ show reftype) + where uncamelize [] = [] + uncamelize (x:y:zs) + | isLower x && isUpper y = x:'-':toLower y:uncamelize zs + uncamelize (x:xs) = x : uncamelize xs + uncapitalize (x:xs) = toLower x : xs + uncapitalize [] = [] + +newtype CNum = CNum { unCNum :: Int } deriving ( Show, Read, Eq, Num, Typeable, Data, Generic ) + +instance FromJSON CNum where + parseJSON x = CNum `fmap` parseInt x + +instance ToJSON CNum where + toJSON (CNum n) = toJSON n + +-- | The 'Reference' record. +data Reference = + Reference + { refId :: Literal + , refType :: RefType + + , author :: [Agent] + , editor :: [Agent] + , translator :: [Agent] + , recipient :: [Agent] + , interviewer :: [Agent] + , composer :: [Agent] + , director :: [Agent] + , illustrator :: [Agent] + , originalAuthor :: [Agent] + , containerAuthor :: [Agent] + , collectionEditor :: [Agent] + , editorialDirector :: [Agent] + , reviewedAuthor :: [Agent] + + , issued :: [RefDate] + , eventDate :: [RefDate] + , accessed :: [RefDate] + , container :: [RefDate] + , originalDate :: [RefDate] + , submitted :: [RefDate] + + , title :: Formatted + , titleShort :: Formatted + , reviewedTitle :: Formatted + , containerTitle :: Formatted + , volumeTitle :: Formatted + , collectionTitle :: Formatted + , containerTitleShort :: Formatted + , collectionNumber :: Formatted --Int + , originalTitle :: Formatted + , publisher :: Formatted + , originalPublisher :: Formatted + , publisherPlace :: Formatted + , originalPublisherPlace :: Formatted + , authority :: Formatted + , jurisdiction :: Formatted + , archive :: Formatted + , archivePlace :: Formatted + , archiveLocation :: Formatted + , event :: Formatted + , eventPlace :: Formatted + , page :: Formatted + , pageFirst :: Formatted + , numberOfPages :: Formatted + , version :: Formatted + , volume :: Formatted + , numberOfVolumes :: Formatted --Int + , issue :: Formatted + , chapterNumber :: Formatted + , medium :: Formatted + , status :: Formatted + , edition :: Formatted + , section :: Formatted + , source :: Formatted + , genre :: Formatted + , note :: Formatted + , annote :: Formatted + , abstract :: Formatted + , keyword :: Formatted + , number :: Formatted + , references :: Formatted + , url :: Literal + , doi :: Literal + , isbn :: Literal + , issn :: Literal + , pmcid :: Literal + , pmid :: Literal + , callNumber :: Literal + , dimensions :: Literal + , scale :: Literal + , categories :: [Literal] + , language :: Literal + + , citationNumber :: CNum + , firstReferenceNoteNumber :: Int + , citationLabel :: Literal + } deriving ( Eq, Show, Read, Typeable, Data, Generic ) + +instance FromJSON Reference where + parseJSON (Object v) = addPageFirst <$> (Reference <$> + v .:? "id" .!= "" <*> + v .:? "type" .!= NoType <*> + v .:? "author" .!= [] <*> + v .:? "editor" .!= [] <*> + v .:? "translator" .!= [] <*> + v .:? "recipient" .!= [] <*> + v .:? "interviewer" .!= [] <*> + v .:? "composer" .!= [] <*> + v .:? "director" .!= [] <*> + v .:? "illustrator" .!= [] <*> + v .:? "original-author" .!= [] <*> + v .:? "container-author" .!= [] <*> + v .:? "collection-editor" .!= [] <*> + v .:? "editorial-director" .!= [] <*> + v .:? "reviewed-author" .!= [] <*> + v .:? "issued" .!= [] <*> + v .:? "event-date" .!= [] <*> + v .:? "accessed" .!= [] <*> + v .:? "container" .!= [] <*> + v .:? "original-date" .!= [] <*> + v .:? "submitted" .!= [] <*> + v .:? "title" .!= mempty <*> + (v .: "shortTitle" <|> (v .:? "title-short" .!= mempty)) <*> + v .:? "reviewed-title" .!= mempty <*> + v .:? "container-title" .!= mempty <*> + v .:? "volume-title" .!= mempty <*> + v .:? "collection-title" .!= mempty <*> + (v .: "journalAbbreviation" <|> v .:? "container-title-short" .!= mempty) <*> + v .:? "collection-number" .!= mempty <*> + v .:? "original-title" .!= mempty <*> + v .:? "publisher" .!= mempty <*> + v .:? "original-publisher" .!= mempty <*> + v .:? "publisher-place" .!= mempty <*> + v .:? "original-publisher-place" .!= mempty <*> + v .:? "authority" .!= mempty <*> + v .:? "jurisdiction" .!= mempty <*> + v .:? "archive" .!= mempty <*> + v .:? "archive-place" .!= mempty <*> + v .:? "archive_location" .!= mempty <*> + v .:? "event" .!= mempty <*> + v .:? "event-place" .!= mempty <*> + v .:? "page" .!= mempty <*> + v .:? "page-first" .!= mempty <*> + v .:? "number-of-pages" .!= mempty <*> + v .:? "version" .!= mempty <*> + v .:? "volume" .!= mempty <*> + v .:? "number-of-volumes" .!= mempty <*> + v .:? "issue" .!= mempty <*> + v .:? "chapter-number" .!= mempty <*> + v .:? "medium" .!= mempty <*> + v .:? "status" .!= mempty <*> + v .:? "edition" .!= mempty <*> + v .:? "section" .!= mempty <*> + v .:? "source" .!= mempty <*> + v .:? "genre" .!= mempty <*> + v .:? "note" .!= mempty <*> + v .:? "annote" .!= mempty <*> + v .:? "abstract" .!= mempty <*> + v .:? "keyword" .!= mempty <*> + v .:? "number" .!= mempty <*> + v .:? "references" .!= mempty <*> + v .:? "URL" .!= "" <*> + v .:? "DOI" .!= "" <*> + v .:? "ISBN" .!= "" <*> + v .:? "ISSN" .!= "" <*> + v .:? "PMCID" .!= "" <*> + v .:? "PMID" .!= "" <*> + v .:? "call-number" .!= "" <*> + v .:? "dimensions" .!= "" <*> + v .:? "scale" .!= "" <*> + v .:? "categories" .!= [] <*> + v .:? "language" .!= "" <*> + v .:? "citation-number" .!= CNum 0 <*> + ((v .: "first-reference-note-number" >>= parseInt) <|> return 1) <*> + v .:? "citation-label" .!= "") + where takeFirstNum (Formatted (Str xs : _)) = + case takeWhile isDigit xs of + [] -> mempty + ds -> Formatted [Str ds] + takeFirstNum x = x + addPageFirst ref = if pageFirst ref == mempty && page ref /= mempty + then ref{ pageFirst = + takeFirstNum (page ref) } + else ref + parseJSON _ = fail "Could not parse Reference" + +instance ToJSON Reference where + toJSON ref = object' [ + "id" .= refId ref + , "type" .= refType ref + , "author" .= author ref + , "editor" .= editor ref + , "translator" .= translator ref + , "recipient" .= recipient ref + , "interviewer" .= interviewer ref + , "composer" .= composer ref + , "director" .= director ref + , "illustrator" .= illustrator ref + , "original-author" .= originalAuthor ref + , "container-author" .= containerAuthor ref + , "collection-editor" .= collectionEditor ref + , "editorial-director" .= editorialDirector ref + , "reviewed-author" .= reviewedAuthor ref + , "issued" .= issued ref + , "event-date" .= eventDate ref + , "accessed" .= accessed ref + , "container" .= container ref + , "original-date" .= originalDate ref + , "submitted" .= submitted ref + , "title" .= title ref + , "title-short" .= titleShort ref + , "reviewed-title" .= reviewedTitle ref + , "container-title" .= containerTitle ref + , "volume-title" .= volumeTitle ref + , "collection-title" .= collectionTitle ref + , "container-title-short" .= containerTitleShort ref + , "collection-number" .= collectionNumber ref + , "original-title" .= originalTitle ref + , "publisher" .= publisher ref + , "original-publisher" .= originalPublisher ref + , "publisher-place" .= publisherPlace ref + , "original-publisher-place" .= originalPublisherPlace ref + , "authority" .= authority ref + , "jurisdiction" .= jurisdiction ref + , "archive" .= archive ref + , "archive-place" .= archivePlace ref + , "archive_location" .= archiveLocation ref + , "event" .= event ref + , "event-place" .= eventPlace ref + , "page" .= page ref + , "page-first" .= (if page ref == mempty then pageFirst ref else mempty) + , "number-of-pages" .= numberOfPages ref + , "version" .= version ref + , "volume" .= volume ref + , "number-of-volumes" .= numberOfVolumes ref + , "issue" .= issue ref + , "chapter-number" .= chapterNumber ref + , "medium" .= medium ref + , "status" .= status ref + , "edition" .= edition ref + , "section" .= section ref + , "source" .= source ref + , "genre" .= genre ref + , "note" .= note ref + , "annote" .= annote ref + , "abstract" .= abstract ref + , "keyword" .= keyword ref + , "number" .= number ref + , "references" .= references ref + , "URL" .= url ref + , "DOI" .= doi ref + , "ISBN" .= isbn ref + , "ISSN" .= issn ref + , "PMCID" .= pmcid ref + , "PMID" .= pmid ref + , "call-number" .= callNumber ref + , "dimensions" .= dimensions ref + , "scale" .= scale ref + , "categories" .= categories ref + , "language" .= language ref + , "citation-number" .= citationNumber ref + , "first-reference-note-number" .= firstReferenceNoteNumber ref + , "citation-label" .= citationLabel ref + ] + +emptyReference :: Reference +emptyReference = + Reference + { refId = mempty + , refType = NoType + + , author = [] + , editor = [] + , translator = [] + , recipient = [] + , interviewer = [] + , composer = [] + , director = [] + , illustrator = [] + , originalAuthor = [] + , containerAuthor = [] + , collectionEditor = [] + , editorialDirector = [] + , reviewedAuthor = [] + + , issued = [] + , eventDate = [] + , accessed = [] + , container = [] + , originalDate = [] + , submitted = [] + + , title = mempty + , titleShort = mempty + , reviewedTitle = mempty + , containerTitle = mempty + , volumeTitle = mempty + , collectionTitle = mempty + , containerTitleShort = mempty + , collectionNumber = mempty + , originalTitle = mempty + , publisher = mempty + , originalPublisher = mempty + , publisherPlace = mempty + , originalPublisherPlace = mempty + , authority = mempty + , jurisdiction = mempty + , archive = mempty + , archivePlace = mempty + , archiveLocation = mempty + , event = mempty + , eventPlace = mempty + , page = mempty + , pageFirst = mempty + , numberOfPages = mempty + , version = mempty + , volume = mempty + , numberOfVolumes = mempty + , issue = mempty + , chapterNumber = mempty + , medium = mempty + , status = mempty + , edition = mempty + , section = mempty + , source = mempty + , genre = mempty + , note = mempty + , annote = mempty + , abstract = mempty + , keyword = mempty + , number = mempty + , references = mempty + , url = mempty + , doi = mempty + , isbn = mempty + , issn = mempty + , pmcid = mempty + , pmid = mempty + , callNumber = mempty + , dimensions = mempty + , scale = mempty + , categories = mempty + , language = mempty + + , citationNumber = CNum 0 + , firstReferenceNoteNumber = 0 + , citationLabel = mempty + } + +numericVars :: [String] +numericVars = [ "edition", "volume", "number-of-volumes", "number", "issue", "citation-number" + , "chapter-number", "collection-number", "number-of-pages"] + +getReference :: [Reference] -> Cite -> Maybe Reference +getReference r c + = case citeId c `elemIndex` map (unLiteral . refId) r of + Just i -> Just $ setPageFirst $ r !! i + Nothing -> Nothing + +processCites :: [Reference] -> [[Cite]] -> [[(Cite, Reference)]] +processCites rs cs + = procGr [[]] cs + where + procRef r = case filter ((==) (unLiteral $ refId r) . citeId) $ concat cs of + x:_ -> r { firstReferenceNoteNumber = readNum $ citeNoteNumber x} + [] -> r + getRef c = case filter ((==) (citeId c) . unLiteral . refId) rs of + x:_ -> procRef $ setPageFirst x + [] -> emptyReference { title = + fromString $ citeId c ++ " not found!" } + + procGr _ [] = [] + procGr a (x:xs) = let (a',res) = procCs a x + in res : procGr (a' ++ [[]]) xs + + procCs a [] = (a,[]) + procCs a (c:xs) + | isIbid, isLocSet = go "ibid-with-locator" + | isIbid = go "ibid" + | isElem = go "subsequent" + | otherwise = go "first" + where + go s = let addCite = init a ++ [last a ++ [c]] + (a', rest) = procCs addCite xs + in (a', (c { citePosition = s}, getRef c) : rest) + isElem = citeId c `elem` map citeId (concat a) + isIbid = case reverse (last a) of + [] -> case reverse (init a) of + [] -> False + (zs:_) -> not (null zs) && + all (== citeId c) + (map citeId zs) + (x:_) -> citeId c == citeId x + isLocSet = citeLocator c /= "" + +setPageFirst :: Reference -> Reference +setPageFirst ref = + let Formatted ils = page ref + ils' = takeWhile (\i -> i /= Str "–" && i /= Str "-") ils + in if ils == ils' + then ref + else ref{ pageFirst = Formatted ils' } + +setNearNote :: Style -> [[Cite]] -> [[Cite]] +setNearNote s cs + = procGr [] cs + where + near_note = let nn = fromMaybe [] . lookup "near-note-distance" . citOptions . citation $ s + in if nn == [] then 5 else readNum nn + procGr _ [] = [] + procGr a (x:xs) = let (a',res) = procCs a x + in res : procGr a' xs + + procCs a [] = (a,[]) + procCs a (c:xs) = (a', c { nearNote = isNear} : rest) + where + (a', rest) = procCs (c:a) xs + isNear = case filter ((==) (citeId c) . citeId) a of + x:_ -> citeNoteNumber c /= "0" && + citeNoteNumber x /= "0" && + readNum (citeNoteNumber c) - readNum (citeNoteNumber x) <= near_note + _ -> False 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,829 @@ +{-# LANGUAGE OverloadedStrings, PatternGuards, DeriveDataTypeable, + ScopedTypeVariables, FlexibleInstances, DeriveGeneric, + GeneralizedNewtypeDeriving #-} +----------------------------------------------------------------------------- +-- | +-- 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 ( readCSLString + , writeCSLString + , Formatted(..) + , Style(..) + , Locale(..) + , mergeLocales + , CslTerm(..) + , newTerm + , findTerm + , findTerm' + , Abbreviations(..) + , MacroMap + , Citation(..) + , Bibliography(..) + , Option + , mergeOptions + , Layout(..) + , Element(..) + , IfThen(..) + , Condition(..) + , Delimiter + , Match(..) + , match + , DatePart(..) + , defaultDate + , Sort(..) + , Sorting(..) + , compare' + , Form(..) + , Gender(..) + , NumericForm(..) + , DateForm(..) + , Plural(..) + , Name(..) + , NameAttrs + , NamePart(..) + , isPlural + , isName + , isNames + , hasEtAl + , Formatting(..) + , emptyFormatting + , rmTitleCase + , Quote(..) + , unsetAffixes + , mergeFM + , CSInfo(..) + , CSAuthor(..) + , CSCategory(..) + , CiteprocError(..) + , Output(..) + , Citations + , Cite(..) + , emptyCite + , CitationGroup(..) + , BiblioData(..) + , CiteData(..) + , NameData(..) + , isPunctuationInQuote + , object' + , Agent(..) + , emptyAgent + ) +where + +import Data.Aeson hiding (Number) +import GHC.Generics (Generic) +import Data.String +import Data.Monoid (mempty, Monoid, mappend, mconcat, (<>)) +import Control.Arrow hiding (left, right) +import Control.Applicative hiding (Const) +import qualified Data.Aeson as Aeson +import Data.Aeson.Types (Pair) +import Data.List ( nubBy, isPrefixOf, isInfixOf, intersperse, intercalate ) +import Data.List.Split ( splitWhen, wordsBy ) +import Data.Generics ( Data, Typeable ) +import Data.Maybe ( listToMaybe ) +import qualified Data.Map as M +import Data.Char (isPunctuation, isUpper, isLetter) +import Text.CSL.Util (mb, parseBool, parseString, (.#?), (.#:), query, + betterThan, trimr, tailInline, headInline, + initInline, lastInline, splitStrWhen) +import Text.Pandoc.Definition hiding (Citation, Cite) +import Text.Pandoc (readHtml, writeMarkdown, WriterOptions(..), + ReaderOptions(..), bottomUp, def) +import qualified Text.Pandoc.Walk as Walk +import qualified Text.Pandoc.Builder as B +import qualified Data.Text as T +import Text.Pandoc.XML (fromEntities) + +#ifdef UNICODE_COLLATION +import qualified Data.Text as T +import qualified Data.Text.ICU as T +#else +import Data.RFC5051 (compareUnicode) +#endif +import qualified Data.Vector as V + +-- Note: FromJSON reads HTML, ToJSON writes Markdown. +-- This means that they aren't proper inverses of each other, which +-- is odd, but it makes sense given the uses here. FromJSON is used +-- for reading JSON citeproc bibliographies. ToJSON is used to create +-- pandoc metadata bibliographies. + +readCSLString :: String -> [Inline] +readCSLString s = Walk.walk handleSmallCapsSpans + $ case readHtml def{ readerSmart = True + , readerParseRaw = True } + (adjustScTags s) of + Pandoc _ [Plain ils] -> ils + Pandoc _ [Para ils] -> ils + Pandoc _ x -> Walk.query (:[]) x + -- this is needed for versions of pandoc that don't turn + -- a span with font-variant:small-caps into a SmallCaps element: + where handleSmallCapsSpans (Span ("",[],[("style",sty)]) ils) + | filter (`notElem` " \t;") sty == "font-variant:small-caps" = + SmallCaps ils + handleSmallCapsSpans x = x + +-- is not a real HTML tag, but a CSL convention. So we +-- replace it with a real tag that the HTML reader will understand. +adjustScTags :: String -> String +adjustScTags zs = + case zs of + ('<':'s':'c':'>':xs) -> "" ++ + adjustScTags xs + ('<':'/':'s':'c':'>':xs) -> "" ++ adjustScTags xs + (x:xs) -> x : adjustScTags xs + [] -> [] + + +writeCSLString :: [Inline] -> String +writeCSLString ils = + trimr $ writeMarkdown def{writerWrapText = False} + $ Pandoc nullMeta [Plain $ bottomUp (concatMap adjustCSL) ils] + +adjustCSL :: Inline -> [Inline] +adjustCSL (Span ("",[],[]) xs) = xs +adjustCSL (Span ("",["citeproc-no-output"],[]) _) = + [Str "[CSL STYLE ERROR: reference with no printed form.]"] +adjustCSL (SmallCaps xs) = + RawInline (Format "html") "" : xs + ++ [RawInline (Format "html") ""] +adjustCSL (Subscript xs) = + RawInline (Format "html") "" : xs + ++ [RawInline (Format "html") ""] +adjustCSL (Superscript xs) = + RawInline (Format "html") "" : xs + ++ [RawInline (Format "html") ""] +adjustCSL x = [x] + +-- We use a newtype wrapper so we can have custom ToJSON, FromJSON +-- instances. +newtype Formatted = Formatted { unFormatted :: [Inline] } + deriving ( Show, Read, Eq, Ord, Data, Typeable, Generic ) + +instance FromJSON Formatted where + parseJSON v@(Array _) = + Formatted <$> (parseJSON v + <|> ((query (:[]) :: [Block] -> [Inline]) <$> parseJSON v)) + parseJSON v = fmap (Formatted . readCSLString) $ parseString v + +instance ToJSON Formatted where + toJSON = toJSON . writeCSLString . unFormatted + +instance IsString Formatted where + fromString = Formatted . toStr + +instance Monoid Formatted where + mempty = Formatted [] + mappend = appendWithPunct + mconcat = foldr mappend mempty + +toStr :: String -> [Inline] +toStr = intercalate [Str "\n"] . + map (B.toList . B.text . tweak . fromEntities) . + splitWhen (=='\n') + where + tweak ('«':' ':xs) = "«\8239" ++ tweak xs + tweak (' ':'»':xs) = "\8239»" ++ tweak xs + tweak (' ':';':xs) = "\8239;" ++ tweak xs + tweak (' ':':':xs) = "\8239:" ++ tweak xs + tweak (' ':'!':xs) = "\8239!" ++ tweak xs + tweak (' ':'?':xs) = "\8239?" ++ tweak xs + tweak ( x :xs ) = x : tweak xs + tweak [] = [] + +appendWithPunct :: Formatted -> Formatted -> Formatted +appendWithPunct (Formatted left) (Formatted right) = + Formatted $ + case concat [lastleft, firstright] of + [' ',d] | d `elem` ",.:;" -> initInline left ++ right + [c,d] | c `elem` " ,.:;", d == c -> left ++ tailInline right + [c,'.'] | c `elem` ",.!:;?" -> left ++ tailInline right + [c,':'] | c `elem` ",!:;?" -> left ++ tailInline right -- Mich.: 2005 + [c,'!'] | c `elem` ",.!:;?" -> left ++ tailInline right + [c,'?'] | c `elem` ",.!:;?" -> left ++ tailInline right + [c,';'] | c `elem` ",:;" -> left ++ tailInline right -- et al.; + [':',c] | c `elem` ",.!:;?" -> left ++ tailInline right + [';',c] | c `elem` ",.!:;?" -> left ++ tailInline right + -- ".;" -> right -- e.g. et al.; + _ -> left ++ right + where lastleft = lastInline left + firstright = headInline right + +-- | The representation of a parsed CSL style. +data Style + = Style + { styleVersion :: String + , styleClass :: String + , styleInfo :: Maybe CSInfo + , styleDefaultLocale :: String + , styleLocale :: [Locale] + , styleAbbrevs :: Abbreviations + , csOptions :: [Option] + , csMacros :: [MacroMap] + , citation :: Citation + , biblio :: Maybe Bibliography + } deriving ( Show, Read, Typeable, Data, Generic ) + +data Locale + = Locale + { localeVersion :: String + , localeLang :: String + , localeOptions :: [Option] + , localeTerms :: [CslTerm] + , localeDate :: [Element] + } deriving ( Show, Read, Eq, Typeable, Data, Generic ) + +-- | With the 'defaultLocale', the locales-xx-XX.xml loaded file and +-- the parsed 'Style' cs:locale elements, produce the final 'Locale' +-- as the only element of a list, taking into account CSL locale +-- prioritization. +mergeLocales :: String -> Locale -> [Locale] -> [Locale] +mergeLocales s l ls = doMerge list + where + list = filter ((==) s . localeLang) ls ++ + filter ((\x -> x /= [] && x `isPrefixOf` s) . localeLang) ls ++ + filter ((==) [] . localeLang) ls + doMerge x = return l { localeOptions = newOpt x + , localeTerms = newTerms x + , localeDate = newDate x + } + cht = cslTerm &&& termForm &&& termGenderForm + checkedLoc = if hasOrdinals ls then rmOrdinals (localeTerms l) else localeTerms l + newTerms x = nubBy (\a b -> cht a == cht b) (concatMap localeTerms x ++ checkedLoc) + newOpt x = nubBy (\a b -> fst a == fst b) (concatMap localeOptions x ++ localeOptions l) + newDate x = nubBy (\(Date _ a _ _ _ _) + (Date _ b _ _ _ _) -> a == b) (concatMap localeDate x ++ localeDate l) + +data CslTerm + = CT + { cslTerm :: String + , termForm :: Form + , termGender :: Gender + , termGenderForm :: Gender + , termSingular :: String + , termPlural :: String + , termMatch :: String + } deriving ( Show, Read, Eq, Typeable, Data, Generic ) + +newTerm :: CslTerm +newTerm = CT [] Long Neuter Neuter [] [] [] + +findTerm :: String -> Form -> [CslTerm] -> Maybe CslTerm +findTerm s f + = listToMaybe . filter (cslTerm &&& termForm >>> (==) (s, f)) + +findTerm' :: String -> Form -> Gender -> [CslTerm] -> Maybe CslTerm +findTerm' s f g + = listToMaybe . filter (cslTerm &&& termForm &&& termGenderForm >>> (==) (s,(f,g))) + +hasOrdinals :: [Locale] -> Bool +hasOrdinals = any (any hasOrd . localeTerms) + where + hasOrd o + | CT {cslTerm = t} <- o + , "ordinal" `isInfixOf` t = True + | otherwise = False + +rmOrdinals :: [CslTerm] -> [CslTerm] +rmOrdinals [] = [] +rmOrdinals (o:os) + | CT {cslTerm = t} <- o + , "ordinal" `isInfixOf` t = rmOrdinals os + | otherwise = o:rmOrdinals os + +newtype Abbreviations = Abbreviations { + unAbbreviations :: M.Map String (M.Map String (M.Map String String)) + } deriving ( Show, Read, Typeable, Data, Generic ) + +instance FromJSON Abbreviations where + parseJSON (Object v) = Abbreviations <$> parseJSON (Object v) + parseJSON (Bool False) = return $ Abbreviations M.empty + parseJSON _ = fail "Could not read Abbreviations" + +type MacroMap + = (String,[Element]) + +data Citation + = Citation + { citOptions :: [Option] + , citSort :: [Sort] + , citLayout :: Layout + } deriving ( Show, Read, Typeable, Data, Generic ) + +data Bibliography + = Bibliography + { bibOptions :: [Option] + , bibSort :: [Sort] + , bibLayout :: Layout + } deriving ( Show, Read, Typeable, Data, Generic ) + +type Option = (String,String) + +mergeOptions :: [Option] -> [Option] -> [Option] +mergeOptions os = nubBy (\x y -> fst x == fst y) . (++) os + +data Layout + = Layout + { layFormat :: Formatting + , layDelim :: Delimiter + , elements :: [Element] + } deriving ( Show, Read, Typeable, Data, Generic ) + +data Element + = Choose IfThen [IfThen] [Element] + | Macro String Formatting + | Const String Formatting + | Variable [String] Form Formatting Delimiter + | Term String Form Formatting Bool + | Label String Form Formatting Plural + | Number String NumericForm Formatting + | Names [String] [Name] Formatting Delimiter [Element] + | Substitute [Element] + | Group Formatting Delimiter [Element] + | Date [String] DateForm Formatting Delimiter [DatePart] String + deriving ( Show, Read, Eq, Typeable, Data, Generic ) + +data IfThen + = IfThen Condition Match [Element] + deriving ( Eq, Show, Read, Typeable, Data, Generic ) + +data Condition + = Condition + { isType :: [String] + , isSet :: [String] + , isNumeric :: [String] + , isUncertainDate :: [String] + , isPosition :: [String] + , disambiguation :: [String] + , isLocator :: [String] + } deriving ( Eq, Show, Read, Typeable, Data, Generic ) + +type Delimiter = String + +data Match + = Any + | All + | None + deriving ( Show, Read, Eq, Typeable, Data, Generic ) + +match :: Match -> [Bool] -> Bool +match All = and +match Any = or +match None = and . map not + +data DatePart + = DatePart + { dpName :: String + , dpForm :: String + , dpRangeDelim :: String + , dpFormatting :: Formatting + } deriving ( Show, Read, Eq, Typeable, Data, Generic ) + +defaultDate :: [DatePart] +defaultDate + = [ DatePart "year" "" "-" emptyFormatting + , DatePart "month" "" "-" emptyFormatting + , DatePart "day" "" "-" emptyFormatting] + +data Sort + = SortVariable String Sorting + | SortMacro String Sorting Int Int String + deriving ( Eq, Show, Read, Typeable, Data, Generic ) + +data Sorting + = Ascending String + | Descending String + deriving ( Read, Show, Eq, Typeable, Data, Generic ) + +instance Ord Sorting where + compare (Ascending []) (Ascending []) = EQ + compare (Ascending []) (Ascending _) = GT + compare (Ascending _) (Ascending []) = LT + compare (Ascending a) (Ascending b) = compare' a b + compare (Descending []) (Descending []) = EQ + compare (Descending []) (Descending _) = GT + compare (Descending _) (Descending []) = LT + compare (Descending a) (Descending b) = compare' b a + compare _ _ = EQ + +compare' :: String -> String -> Ordering +compare' x y + = case (x, y) of + ('-':_,'-':_) -> comp (dropPunct y) (dropPunct x) + ('-':_, _ ) -> LT + (_ ,'-':_) -> GT + _ -> comp (dropPunct x) (dropPunct y) + where + dropPunct = dropWhile isPunctuation +#ifdef UNICODE_COLLATION + comp a b = T.collate (T.collator T.Current) (T.pack a) (T.pack b) +#else + comp a b = compareUnicode a b +#endif + +data Form + = Long + | Short + | Count + | Verb + | VerbShort + | Symbol + | NotSet + deriving ( Eq, Show, Read, Typeable, Data, Generic ) + +data Gender + = Feminine + | Masculine + | Neuter + deriving ( Eq, Show, Read, Typeable, Data, Generic ) + +data NumericForm + = Numeric + | Ordinal + | Roman + | LongOrdinal + deriving ( Eq, Show, Read, Typeable, Data, Generic ) + +data DateForm + = TextDate + | NumericDate + | NoFormDate + deriving ( Eq, Show, Read, Typeable, Data, Generic ) + +data Plural + = Contextual + | Always + | Never + deriving ( Eq, Show, Read, Typeable, Data, Generic ) + +data Name + = Name Form Formatting NameAttrs Delimiter [NamePart] + | NameLabel Form Formatting Plural + | EtAl Formatting String + deriving ( Eq, Show, Read, Typeable, Data, Generic ) + +type NameAttrs = [(String, String)] + +data NamePart + = NamePart String Formatting + deriving ( Show, Read, Eq, Typeable, Data, Generic ) + +isPlural :: Plural -> Int -> Bool +isPlural p l + = case p of + Always -> True + Never -> False + Contextual -> l > 1 + +isName :: Name -> Bool +isName x = case x of Name {} -> True; _ -> False + +isNames :: Element -> Bool +isNames x = case x of Names {} -> True; _ -> False + +hasEtAl :: [Name] -> Bool +hasEtAl = any isEtAl + where isEtAl (EtAl _ _) = True + isEtAl _ = False + +data Formatting + = Formatting + { prefix :: String + , suffix :: String + , fontFamily :: String + , fontStyle :: String + , fontVariant :: String + , fontWeight :: String + , textDecoration :: String + , verticalAlign :: String + , textCase :: String + , display :: String + , quotes :: Quote + , stripPeriods :: Bool + , noCase :: Bool + , noDecor :: Bool + } deriving ( Read, Eq, Ord, Typeable, Data, Generic ) + +-- custom instance to make debugging output less busy +instance Show Formatting where + show x + | x == emptyFormatting = "emptyFormatting" + | otherwise = "emptyFormatting{" + ++ intercalate ", " + [ k ++ " = " ++ f x | + (k, f) <- [("prefix", show . prefix) + ,("suffix", show . suffix) + ,("fontFamily", show . fontFamily) + ,("fontStyle", show . fontStyle) + ,("fontVariant", show . fontVariant) + ,("fontWeight", show . fontWeight) + ,("textDecoration", show . textDecoration) + ,("verticalAlign", show . verticalAlign) + ,("textCase", show . textCase) + ,("display", show . display) + ,("quotes", show . quotes) + ,("stripPeriods", show . stripPeriods) + ,("noCase", show . noCase) + ,("noDecor", show . noDecor)], + f x /= f emptyFormatting ] + ++ "}" + +rmTitleCase :: Formatting -> Formatting +rmTitleCase f = f{ textCase = if textCase f == "title" then "" else textCase f } + +data Quote + = NativeQuote + | ParsedQuote + | NoQuote + deriving ( Show, Read, Eq, Ord, Typeable, Data, Generic ) + +emptyFormatting :: Formatting +emptyFormatting + = Formatting [] [] [] [] [] [] [] [] [] [] NoQuote False False False + +unsetAffixes :: Formatting -> Formatting +unsetAffixes f = f {prefix = [], suffix = []} + +mergeFM :: Formatting -> Formatting -> Formatting +mergeFM (Formatting aa ab ac ad ae af ag ah ai aj ak al am an) + (Formatting ba bb bc bd be bf bg bh bi bj bk bl bm bn) = + Formatting (ba `betterThan` aa) + (bb `betterThan` ab) + (bc `betterThan` ac) + (bd `betterThan` ad) + (be `betterThan` ae) + (bf `betterThan` af) + (bg `betterThan` ag) + (bh `betterThan` ah) + (bi `betterThan` ai) + (bj `betterThan` aj) + (if bk == NoQuote then ak else bk) + (bl || al) + (bm || am) + (bn || an) + +data CSInfo + = CSInfo + { csiTitle :: String + , csiAuthor :: CSAuthor + , csiCategories :: [CSCategory] + , csiId :: String + , csiUpdated :: String + } deriving ( Show, Read, Typeable, Data, Generic ) + +data CSAuthor = CSAuthor String String String + deriving ( Show, Read, Eq, Typeable, Data, Generic ) +data CSCategory = CSCategory String String String + deriving ( Show, Read, Eq, Typeable, Data, Generic ) + +data CiteprocError + = NoOutput + | ReferenceNotFound String + deriving ( Eq, Ord, Show, Typeable, Data, Generic ) + +-- | The 'Output' generated by the evaluation of a style. Must be +-- further processed for disambiguation and collapsing. +data Output + = ONull + | OSpace + | OPan [Inline] + | ODel String -- ^ A delimiter string. + | OStr String Formatting -- ^ A simple 'String' + | OErr CiteprocError -- ^ Warning message + | OLabel String Formatting -- ^ A label used for roles + | ONum Int Formatting -- ^ A number (used to count contributors) + | OCitNum Int Formatting -- ^ The citation number + | ODate [Output] -- ^ A (possibly) ranged date + | OYear String String Formatting -- ^ The year and the citeId + | OYearSuf String String [Output] Formatting -- ^ The year suffix, the citeId and a holder for collision data + | OName Agent [Output] [[Output]] Formatting -- ^ A (family) name with the list of given names. + | OContrib String String [Output] [Output] [[Output]] -- ^ The citation key, the role (author, editor, etc.), the contributor(s), + -- the output needed for year suf. disambiguation, and everything used for + -- name disambiguation. + | OLoc [Output] Formatting -- ^ The citation's locator + | Output [Output] Formatting -- ^ Some nested 'Output' + deriving ( Eq, Ord, Show, Typeable, Data, Generic ) + +type Citations = [[Cite]] +data Cite + = Cite + { citeId :: String + , citePrefix :: Formatted + , citeSuffix :: Formatted + , citeLabel :: String + , citeLocator :: String + , citeNoteNumber :: String + , citePosition :: String + , nearNote :: Bool + , authorInText :: Bool + , suppressAuthor :: Bool + , citeHash :: Int + } deriving ( Show, Eq, Typeable, Data, Generic ) + +instance FromJSON Cite where + parseJSON (Object v) = Cite <$> + v .#: "id" <*> + v .:? "prefix" .!= mempty <*> + v .:? "suffix" .!= mempty <*> + v .#? "label" .!= "page" <*> + v .#? "locator" .!= "" <*> + v .#? "note-number" .!= "" <*> + v .#? "position" .!= "" <*> + (v .:? "near-note" >>= mb parseBool) .!= False <*> + (v .:? "author-in-text" >>= mb parseBool) .!= False <*> + (v .:? "suppress-author" >>= mb parseBool) .!= False <*> + v .:? "cite-hash" .!= 0 + parseJSON _ = fail "Could not parse Cite" + +instance FromJSON [[Cite]] where + parseJSON (Array v) = mapM parseJSON $ V.toList v + parseJSON _ = return [] + +emptyCite :: Cite +emptyCite = Cite [] mempty mempty [] [] [] [] False False False 0 + +-- | A citation group: the first list has a single member when the +-- citation group starts with an "author-in-text" cite, the +-- 'Formatting' to be applied, the 'Delimiter' between individual +-- citations and the list of evaluated citations. +data CitationGroup = CG [(Cite, Output)] Formatting Delimiter [(Cite, Output)] deriving ( Show, Eq, Typeable, Data, Generic ) + +data BiblioData + = BD + { citations :: [Formatted] + , bibliography :: [Formatted] + } deriving ( Show, Typeable, Data, Generic ) + +-- | A record with all the data to produce the 'Formatted' of a +-- citation: the citation key, the part of the formatted citation that +-- may be colliding with other citations, the form of the citation +-- when a year suffix is used for disambiguation , the data to +-- disambiguate it (all possible contributors and all possible given +-- names), and, after processing, the disambiguated citation and its +-- year, initially empty. +data CiteData + = CD + { key :: String + , collision :: [Output] + , disambYS :: [Output] + , disambData :: [[Output]] + , disambed :: [Output] + , sameAs :: [String] + , citYear :: String + } deriving ( Show, Typeable, Data, Generic ) + +instance Eq CiteData where + (==) (CD ka ca _ _ _ _ _) + (CD kb cb _ _ _ _ _) = ka == kb && ca == cb + +data NameData + = ND + { nameKey :: Agent + , nameCollision :: [Output] + , nameDisambData :: [[Output]] + , nameDataSolved :: [Output] + } deriving ( Show, Typeable, Data, Generic ) + +instance Eq NameData where + (==) (ND ka ca _ _) + (ND kb cb _ _) = ka == kb && ca == cb + +isPunctuationInQuote :: Style -> Bool +isPunctuationInQuote sty = + case styleLocale sty of + (l:_) -> ("punctuation-in-quote","true") `elem` localeOptions l + _ -> False + +object' :: [Pair] -> Aeson.Value +object' = object . filter (not . isempty) + where isempty (_, Array v) = V.null v + isempty (_, String t) = T.null t + isempty ("first-reference-note-number", Aeson.Number n) = n == 0 + isempty ("citation-number", Aeson.Number n) = n == 0 + isempty (_, _) = False + +data Agent + = Agent { givenName :: [Formatted] + , droppingPart :: Formatted + , nonDroppingPart :: Formatted + , familyName :: Formatted + , nameSuffix :: Formatted + , literal :: Formatted + , commaSuffix :: Bool + , parseNames :: Bool + } + deriving ( Show, Read, Eq, Ord, Typeable, Data, Generic ) + +emptyAgent :: Agent +emptyAgent = Agent [] mempty mempty mempty mempty mempty False False + +instance FromJSON Agent where + parseJSON (Object v) = nameTransform <$> (Agent <$> + (v .: "given" <|> ((map Formatted . wordsBy (== Space) . unFormatted) <$> v .: "given") <|> pure []) <*> + v .:? "dropping-particle" .!= mempty <*> + v .:? "non-dropping-particle" .!= mempty <*> + v .:? "family" .!= mempty <*> + v .:? "suffix" .!= mempty <*> + v .:? "literal" .!= mempty <*> + v .:? "comma-suffix" .!= False <*> + v .:? "parse-names" .!= True) + parseJSON _ = fail "Could not parse Agent" + +-- See http://gsl-nagoya-u.net/http/pub/citeproc-doc.html#id28 +nameTransform :: Agent -> Agent +nameTransform ag + | parseNames ag = nonDroppingPartTransform . + droppingPartTransform . + suffixTransform $ ag + | otherwise = ag + +nonDroppingPartTransform :: Agent -> Agent +nonDroppingPartTransform ag + | nonDroppingPart ag == mempty = + case break startWithCapital' (unFormatted $ familyName ag) of + ([], _) -> ag + (xs, ys) -> ag { nonDroppingPart = Formatted $ trimSpace xs, + familyName = Formatted ys } + | otherwise = ag + +trimSpace :: [Inline] -> [Inline] +trimSpace = reverse . dropWhile isSpace . reverse . dropWhile isSpace + where isSpace Space = True + isSpace _ = False + +droppingPartTransform :: Agent -> Agent +droppingPartTransform ag + | droppingPart ag == mempty = + case break startWithCapital $ reverse $ givenName ag of + ([],_) -> ag + (ys,zs) -> ag{ droppingPart = mconcat $ + intersperse (Formatted [Space]) $ + reverse ys + , givenName = reverse zs } + | otherwise = ag + +startWithCapital' :: Inline -> Bool +startWithCapital' (Str (c:_)) = isUpper c && isLetter c +startWithCapital' _ = False + +startWithCapital :: Formatted -> Bool +startWithCapital (Formatted (x:_)) = startWithCapital' x +startWithCapital _ = False + +stripFinalComma :: Formatted -> (String, Formatted) +stripFinalComma (Formatted ils) = + case reverse $ splitStrWhen isPunctuation ils of + Str ",":xs -> (",", Formatted $ reverse xs) + Str "!":Str ",":xs -> (",!", Formatted $ reverse xs) + _ -> ("", Formatted ils) + +suffixTransform :: Agent -> Agent +suffixTransform ag + | nameSuffix ag == mempty = fst $ foldl go + (ag{ givenName = mempty + , nameSuffix = mempty + , commaSuffix = False }, False) + (givenName ag) + | otherwise = ag + where go (ag', False) n = + case stripFinalComma n of + ("", _) -> (ag'{ givenName = givenName ag' ++ [n] }, False) + (",",n') -> (ag'{ givenName = givenName ag' ++ [n'] }, True) + (",!",n') -> (ag'{ givenName = givenName ag' ++ [n'] + , commaSuffix = True }, True) + _ -> error "stripFinalComma returned unexpected value" + go (ag', True) n = (ag'{ nameSuffix = if nameSuffix ag' == mempty + then n + else nameSuffix ag' <> + Formatted [Space] <> n }, True) + +instance ToJSON Agent where + toJSON agent = object' $ [ + "given" .= Formatted (intercalate [Space] $ map unFormatted + $ givenName agent) + , "dropping-particle" .= droppingPart agent + , "non-dropping-particle" .= nonDroppingPart agent + , "family" .= familyName agent + , "suffix" .= nameSuffix agent + , "literal" .= literal agent + ] ++ ["comma-suffix" .= commaSuffix agent | nameSuffix agent /= mempty] + ++ ["parse-names" .= False | not (parseNames agent) ] + +instance FromJSON [Agent] where + parseJSON (Array xs) = mapM parseJSON $ V.toList xs + parseJSON (Object v) = (:[]) `fmap` parseJSON (Object v) + parseJSON _ = fail "Could not parse [Agent]" + +-- instance ToJSON [Agent] where +-- toJSON xs = Array (V.fromList $ map toJSON xs) diff --git a/src/Text/CSL/Util.hs b/src/Text/CSL/Util.hs new file mode 100644 --- /dev/null +++ b/src/Text/CSL/Util.hs @@ -0,0 +1,370 @@ +{-# LANGUAGE ScopedTypeVariables, PatternGuards #-} +module Text.CSL.Util + ( safeRead + , readNum + , (<^>) + , capitalize + , camelize + , isPunct + , last' + , init' + , words' + , trim + , triml + , trimr + , parseBool + , parseString + , parseInt + , mb + , (.#?) + , (.#:) + , onBlocks + , titlecase + , unTitlecase + , protectCase + , splitStrWhen + , proc + , proc' + , procM + , query + , betterThan + , readable + , toShow + , toRead + , inlinesToString + , headInline + , lastInline + , tailInline + , initInline + , tailFirstInlineStr + , toCapital + , mapHeadInline + , tr' + , findFile + ) where +import Data.Aeson +import Data.Aeson.Types (Parser) +import Data.Text (Text) +import qualified Data.Text as T +import Control.Applicative ((<$>), (<*>), pure) +import Data.Char (toLower, toUpper, isLower, isUpper, isPunctuation) +import qualified Data.Traversable +import Text.Pandoc.Shared (safeRead, stringify) +import Text.Pandoc.Walk (walk) +import Text.Pandoc +import Data.List.Split (wordsBy) +import Control.Monad.State +import Data.Monoid (Monoid, mappend, mempty) +import Data.Generics ( Typeable, Data, everywhere, everywhereM, mkM, + everywhere', everything, mkT, mkQ ) +import System.FilePath +import System.Directory (doesFileExist) +import qualified Debug.Trace + +readNum :: String -> Int +readNum s = case reads s of + [(x,"")] -> x + _ -> 0 + +-- | Conjoin strings, avoiding repeated punctuation. +(<^>) :: String -> String -> String +[] <^> sb = sb +sa <^> [] = sa +sa <^> (s:xs) + | s `elem` puncts && last sa `elem` puncts = sa ++ xs + where puncts = ";:,. " +sa <^> sb = sa ++ sb + +capitalize :: String -> String +capitalize [] = [] +capitalize (c:cs) = toUpper c : cs + +isPunct :: Char -> Bool +isPunct c = c `elem` ".;?!" + +camelize :: String -> String +camelize ('-':y:ys) = toUpper y : camelize ys +camelize ('_':y:ys) = toUpper y : camelize ys +camelize (y:ys) = y : camelize ys +camelize _ = [] + +last' :: [a] -> [a] +last' [] = [] +last' xs = [last xs] + +init' :: [a] -> [a] +init' [] = [] +init' xs = init xs + +-- | Like words, but doesn't break on nonbreaking spaces etc. +words' :: String -> [String] +words' = wordsBy (\c -> c == ' ' || c == '\t' || c == '\r' || c == '\n') + +-- | Remove leading and trailing space (including newlines) from string. +trim :: String -> String +trim = triml . trimr + +triml :: String -> String +triml = dropWhile (`elem` " \r\n\t") + +trimr :: String -> String +trimr = reverse . triml . reverse + +-- | Parse JSON Boolean or Number as Bool. +parseBool :: Value -> Parser Bool +parseBool (Bool b) = return b +parseBool (Number n) = case fromJSON (Number n) of + Success (0 :: Int) -> return False + Success _ -> return True + Error e -> fail $ "Could not read boolean: " ++ e +parseBool _ = fail "Could not read boolean" + +-- | Parse JSON value as String. +parseString :: Value -> Parser String +parseString (String s) = return $ T.unpack s +parseString (Number n) = case fromJSON (Number n) of + Success (x :: Int) -> return $ show x + Error _ -> case fromJSON (Number n) of + Success (x :: Double) -> return $ show x + Error e -> fail $ "Could not read string: " ++ e +parseString (Bool b) = return $ map toLower $ show b +parseString v@(Array _)= inlinesToString `fmap` parseJSON v +parseString v = fail $ "Could not read as string: " ++ show v + +-- | Parse JSON value as Int. +parseInt :: Value -> Parser Int +parseInt (String s) = case safeRead (T.unpack s) of + Just n -> return n + Nothing -> fail "Could not read Int" +parseInt (Number n) = case fromJSON (Number n) of + Success (x :: Int) -> return x + Error e -> fail $ "Could not read string: " ++ e +parseInt _ = fail "Could not read string" + +mb :: Monad m => (b -> m a) -> (Maybe b -> m (Maybe a)) +mb = Data.Traversable.mapM + +-- | Parse as a string (even if the value is a number). +(.#?) :: Object -> Text -> Parser (Maybe String) +x .#? y = (x .:? y) >>= mb parseString + +(.#:) :: Object -> Text -> Parser String +x .#: y = (x .: y) >>= parseString + +onBlocks :: ([Inline] -> [Inline]) -> [Block] -> [Block] +onBlocks f bs = walk f' bs + where f' (Para ils) = Para (f ils) + f' (Plain ils) = Plain (f ils) + f' x = x + +hasLowercaseWord :: [Inline] -> Bool +hasLowercaseWord = any startsWithLowercase . splitStrWhen isPunctuation + where startsWithLowercase (Str (x:_)) = isLower x + startsWithLowercase _ = False + +splitUpStr :: [Inline] -> [Inline] +splitUpStr = splitStrWhen (\c -> isPunctuation c || c == '\160') + +unTitlecase :: [Inline] -> [Inline] +unTitlecase zs = evalState (caseTransform untc zs) SentenceBoundary + where untc w = do + st <- get + case (w, st) of + (y, NoBoundary) -> return y + (Str (x:xs), WordBoundary) | isUpper x -> + return $ Str (toLower x : xs) + (Str (x:xs), SentenceBoundary) | isLower x -> + return $ Str (toUpper x : xs) + (Span ("",[],[]) xs, _) | hasLowercaseWord xs -> + return $ Span ("",["nocase"],[]) xs + _ -> return w + +protectCase :: [Inline] -> [Inline] +protectCase zs = evalState (caseTransform protect zs) SentenceBoundary + where protect (Span ("",[],[]) xs) + | hasLowercaseWord xs = do + st <- get + case st of + NoBoundary -> return $ Span ("",[],[]) xs + _ -> return $ Span ("",["nocase"],[]) xs + protect x = return x + +titlecase :: [Inline] -> [Inline] +titlecase zs = evalState (caseTransform tc zs) SentenceBoundary + where tc (Str (x:xs)) = do + st <- get + return $ case st of + WordBoundary -> if isShortWord (x:xs) + then Str (x:xs) + -- or? map toLower (x:xs) + else Str (toUpper x : xs) + SentenceBoundary -> Str (toUpper x : xs) + _ -> Str (x:xs) + tc (Span ("",["nocase"],[]) xs) = return $ Span ("",["nocase"],[]) xs + tc x = return x + isShortWord s = map toLower s `elem` + ["a","an","and","as","at","but","by","c","ca","d","de" + ,"down","et","for","from" + ,"in","into","nor","of","on","onto","or","over","so" + ,"the","till","to","up","van","von","via","with","yet"] + +data CaseTransformState = WordBoundary | SentenceBoundary | NoBoundary + +caseTransform :: (Inline -> State CaseTransformState Inline) -> [Inline] + -> State CaseTransformState [Inline] +caseTransform xform = fmap reverse . foldM go [] . splitUpStr + where go acc Space = do + modify (\st -> + case st of + SentenceBoundary -> SentenceBoundary + _ -> + case acc of + (Str [x]:_) + | x `elem` "?!:" -> SentenceBoundary + _ -> WordBoundary) + return $ Space : acc + go acc LineBreak = do + put WordBoundary + return $ Space : acc + go acc (Str [c]) + | c `elem` "-\2013\2014\160" = do + put WordBoundary + return $ Str [c] : acc + | isPunctuation c = do + -- leave state unchanged + return $ Str [c] : acc + go acc (Str []) = return acc + go acc (Str xs) = do + res <- xform (Str xs) + put NoBoundary + return $ res : acc + go acc (Span ("",classes,[]) xs) + | null classes || classes == ["nocase"] = do + res <- xform (Span ("",classes,[]) xs) + put NoBoundary + return $ res : acc + go acc (Quoted qt xs) = (:acc) <$> (Quoted qt <$> caseTransform xform xs) + go acc (Emph xs) = (:acc) <$> (Emph <$> caseTransform xform xs) + go acc (Strong xs) = (:acc) <$> (Strong <$> caseTransform xform xs) + go acc (Link xs t) = (:acc) <$> (Link <$> caseTransform xform xs <*> pure t) + go acc (Image _ xs t) = (:acc) <$> (Link <$> caseTransform xform xs <*> pure t) + go acc (Span attr xs) = (:acc) <$> (Span attr <$> caseTransform xform xs) + go acc x = return $ x : acc + +splitStrWhen :: (Char -> Bool) -> [Inline] -> [Inline] +splitStrWhen _ [] = [] +splitStrWhen p (Str xs : ys) = go xs ++ splitStrWhen p ys + where go [] = [] + go s = case break p s of + ([],[]) -> [] + (zs,[]) -> [Str zs] + ([],(w:ws)) -> Str [w] : go ws + (zs,(w:ws)) -> Str zs : Str [w] : go ws +splitStrWhen p (x : ys) = x : splitStrWhen p ys + +-- | A generic processing function. +proc :: (Typeable a, Data b) => (a -> a) -> b -> b +proc f = everywhere (mkT f) + +-- | A generic processing function: process a data structure in +-- top-down manner. +proc' :: (Typeable a, Data b) => (a -> a) -> b -> b +proc' f = everywhere' (mkT f) + +-- | A generic monadic processing function. +procM :: (Monad m, Typeable a, Data b) => (a -> m a) -> b -> m b +procM f = everywhereM (mkM f) + +-- | A generic query function. +query :: (Typeable a, Data b, Monoid m) => (a -> m) -> b -> m +query f = everything mappend (mempty `mkQ` f) + +betterThan :: [a] -> [a] -> [a] +betterThan [] b = b +betterThan a _ = a + +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 = [] + +inlinesToString :: [Inline] -> String +inlinesToString = stringify + +headInline :: [Inline] -> String +headInline = take 1 . stringify + +lastInline :: [Inline] -> String +lastInline xs = case stringify xs of + [] -> [] + ys -> [last ys] + +initInline :: [Inline] -> [Inline] +initInline [] = [] +initInline (i:[]) + | Str s <- i = return $ Str (init' s) + | Emph is <- i = return $ Emph (initInline is) + | Strong is <- i = return $ Strong (initInline is) + | Superscript is <- i = return $ Superscript (initInline is) + | Subscript is <- i = return $ Subscript (initInline is) + | Quoted q is <- i = return $ Quoted q (initInline is) + | SmallCaps is <- i = return $ SmallCaps (initInline is) + | Strikeout is <- i = return $ Strikeout (initInline is) + | Link is t <- i = return $ Link (initInline is) t + | Span at is <- i = return $ Span at (initInline is) + | otherwise = [] +initInline (i:xs) = i : initInline xs + +tailInline :: [Inline] -> [Inline] +tailInline (Space:xs) = xs +tailInline xs = removeEmpty $ tailFirstInlineStr xs + where removeEmpty = dropWhile (== Str "") + +tailFirstInlineStr :: [Inline] -> [Inline] +tailFirstInlineStr = mapHeadInline (drop 1) + +toCapital :: [Inline] -> [Inline] +toCapital ils@(Span (_,["nocase"],_) _:_) = ils +toCapital ils = mapHeadInline capitalize ils + +mapHeadInline :: (String -> String) -> [Inline] -> [Inline] +mapHeadInline _ [] = [] +mapHeadInline f (i:xs) + | Str [] <- i = mapHeadInline f xs + | Str s <- i = Str (f s) : xs + | Emph is <- i = Emph (mapHeadInline f is) : xs + | Strong is <- i = Strong (mapHeadInline f is) : xs + | Superscript is <- i = Superscript (mapHeadInline f is) : xs + | Subscript is <- i = Subscript (mapHeadInline f is) : xs + | Quoted q is <- i = Quoted q (mapHeadInline f is) : xs + | SmallCaps is <- i = SmallCaps (mapHeadInline f is) : xs + | Strikeout is <- i = Strikeout (mapHeadInline f is) : xs + | Link is t <- i = Link (mapHeadInline f is) t : xs + | Span at is <- i = Span at (mapHeadInline f is) : xs + | otherwise = i : xs + +tr' :: Show a => String -> a -> a +tr' note' x = Debug.Trace.trace (note' ++ ": " ++ show x) x + +findFile :: [FilePath] -> FilePath -> IO (Maybe FilePath) +findFile [] _ = return Nothing +findFile (p:ps) f = do + exists <- doesFileExist (p f) + if exists + then return $ Just (p f) + else findFile ps f + diff --git a/tests/JSON.hs b/tests/JSON.hs new file mode 100644 --- /dev/null +++ b/tests/JSON.hs @@ -0,0 +1,12 @@ +{-# OPTIONS_GHC -fno-warn-orphans #-} +-- ToJSON/FromJSON instances for Style +module JSON where +import Data.Aeson +import Text.CSL.Style +import Text.CSL.Parser +import qualified Data.Text.Encoding as T +import qualified Data.ByteString.Lazy as L + +instance FromJSON Style where + parseJSON (String s) = return $ parseCSL' $ L.fromChunks [T.encodeUtf8 s] + parseJSON _ = fail "Could not parse Style" diff --git a/tests/apa.csl b/tests/apa.csl new file mode 100644 --- /dev/null +++ b/tests/apa.csl @@ -0,0 +1,474 @@ + + diff --git a/tests/biblio.bib b/tests/biblio.bib new file mode 100644 --- /dev/null +++ b/tests/biblio.bib @@ -0,0 +1,26 @@ +@Book{item1, +author="John Doe", +title="First Book", +year="2005", +address="Cambridge", +publisher="Cambridge University Press" +} + +@Article{item2, +author="John Doe", +title="Article", +year="2006", +journal="Journal of Generic Studies", +volume="6", +pages="33-34" +} + +@InCollection{пункт3, +author="John Doe and Jenny Roe", +title="Why Water Is Wet", +booktitle="Third Book", +editor="Sam Smith", +publisher="Oxford University Press", +address="Oxford", +year="2007" +} diff --git a/tests/biblio2yaml/basic.bibtex b/tests/biblio2yaml/basic.bibtex new file mode 100644 --- /dev/null +++ b/tests/biblio2yaml/basic.bibtex @@ -0,0 +1,70 @@ +@Book{item1, +author="John Doe", +title="First Book", +year="2005", +address="Cambridge", +publisher="Cambridge University Press" +} + +@Article{item2, +author="John Doe", +title="Article", +year="2006", +journal="Journal of Generic Studies", +volume="6", +pages="33-34" +} + +@InCollection{пункт3, +author="John Doe and Jenny Roe", +title="Why Water Is Wet", +booktitle="Third Book", +editor="Sam Smith", +publisher="Oxford University Press", +address="Oxford", +year="2007" +} + +--- +references: +- publisher-place: Cambridge + author: + - family: Doe + given: John + id: item1 + issued: + date-parts: + - - 2005 + title: First book + type: book + publisher: Cambridge University Press +- volume: '6' + page: '33-34' + container-title: Journal of Generic Studies + author: + - family: Doe + given: John + id: item2 + issued: + date-parts: + - - 2006 + title: Article + type: article-journal +- publisher-place: Oxford + container-title: Third book + author: + - family: Doe + given: John + - family: Roe + given: Jenny + id: "пункт3" + issued: + date-parts: + - - 2007 + title: Why water is wet + type: chapter + publisher: Oxford University Press + editor: + - family: Smith + given: Sam +... diff --git a/tests/chicago-author-date-with-original-date-and-status.csl b/tests/chicago-author-date-with-original-date-and-status.csl new file mode 100644 --- /dev/null +++ b/tests/chicago-author-date-with-original-date-and-status.csl @@ -0,0 +1,575 @@ + + diff --git a/tests/chicago-author-date.expected.native b/tests/chicago-author-date.expected.native new file mode 100644 --- /dev/null +++ b/tests/chicago-author-date.expected.native @@ -0,0 +1,17 @@ +Pandoc (Meta {unMeta = fromList [("bibliography",MetaInlines [Str "tests/biblio.bib"]),("csl",MetaInlines [Str "chicago-author-date.csl"])]}) +[Header 1 ("pandoc-with-citeproc-hs",[],[]) [Str "Pandoc",Space,Str "with",Space,Str "citeproc-hs"] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Str "(",Span ("",["citeproc-not-found"],[("data-reference-id","nonexistent")]) [Strong [Str "???"]],Str ")"]] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 2}] [Str "(",Span ("",["citeproc-not-found"],[("data-reference-id","nonexistent")]) [Strong [Str "???"]],Str ")"]] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 3}] [Str "Doe",Space,Str "(",Str "2005",Str ")"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 4}] [Str "Doe",Space,Str "(",Str "2005",Str ",",Space,Str "30",Str ")"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30,",Space,Str "with",Space,Str "suffix"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 5}] [Str "Doe",Space,Str "(",Str "2005",Str ",",Space,Str "30",Str ",",Space,Str "with",Space,Str "suffix",Str ")"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 6},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "30"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 7},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "see",Space,Str "also"], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 8}] [Str "Doe",Space,Str "(",Str "2005",Str ";",Space,Str "2006",Str ",",Space,Str "30",Str ";",Space,Str "see",Space,Str "also",Space,Str "Doe",Space,Str "a",Str "n",Str "d",Space,Str "Roe",Space,Str "2007",Str ")"],Space,Str "says",Space,Str "blah."] +,Para [Str "In",Space,Str "a",Space,Str "note.",Note [Para [Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "12"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 9}] [Str "Doe",Space,Str "and",Space,Str "Roe",Space,Str "(",Str "2007",Str ",",Space,Str "12",Str ")"],Space,Str "and",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "locators",Space,Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 10}] [Str "(",Str "Doe",Space,Str "a",Str "n",Str "d",Space,Str "Roe",Space,Str "2007",Str ")"],Str "."]]] +,Para [Str "A",Space,Str "citation",Space,Str "group",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 11},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "also"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 12}] [Str "(",Str "see",Space,Str "Doe",Space,Str "2005",Str ",",Space,Str "chap.",Space,Str "3",Str ";",Space,Str "also",Space,Str "Doe",Space,Str "a",Str "n",Str "d",Space,Str "Roe",Space,Str "2007",Str ",",Space,Str "34\8211\&35",Str ")"],Str "."] +,Para [Str "Another",Space,Str "one",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 13}] [Str "(",Str "see",Space,Str "Doe",Space,Str "2005",Str ",",Space,Str "34\8211\&35",Str ")"],Str "."] +,Para [Str "And",Space,Str "another",Space,Str "one",Space,Str "in",Space,Str "a",Space,Str "note.",Note [Para [Str "Some",Space,Str "citations",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 14},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 15},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 16}] [Str "(",Str "see",Space,Str "Doe",Space,Str "2005",Str ",",Space,Str "chap.",Space,Str "3",Str ";",Space,Str "Doe",Space,Str "a",Str "n",Str "d",Space,Str "Roe",Space,Str "2007",Str ";",Space,Str "Doe",Space,Str "2006",Str ")"],Str "."]]] +,Para [Str "Citation",Space,Str "with",Space,Str "a",Space,Str "suffix",Space,Str "and",Space,Str "locator",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "pp.",Space,Str "33,",Space,Str "35-37,",Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 17}] [Str "(",Str "Doe",Space,Str "2005",Str ",",Space,Str "33,",Space,Str "35\8211\&37",Str ",",Space,Str "and",Space,Str "nowhere",Space,Str "else",Str ")"],Str "."] +,Para [Str "Citation",Space,Str "with",Space,Str "suffix",Space,Str "only",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 18}] [Str "(",Str "Doe",Space,Str "2005",Space,Str "and",Space,Str "nowhere",Space,Str "else",Str ")"],Str "."] +,Para [Str "Now",Space,Str "some",Space,Str "modifiers.",Note [Para [Str "Like",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "author:",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 19}] [Str "(",Str "2005",Str ")"],Str ",",Space,Str "and",Space,Str "now",Space,Str "Doe",Space,Str "with",Space,Str "a",Space,Str "locator",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "44"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 20}] [Str "(",Str "2006",Str ",",Space,Str "44",Str ")"],Str "."]]] +,Para [Str "With",Space,Str "some",Space,Str "markup",Space,Cite [Citation {citationId = "item1", citationPrefix = [Emph [Str "see"]], citationSuffix = [Space,Str "p.",Space,Strong [Str "32"]], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 21}] [Str "(",Emph [Str "see"],Space,Str "Doe",Space,Str "2005",Str ",",Space,Str "32",Str ")"],Str "."] +,Div ("",["references"],[]) [Header 1 ("references",["unnumbered"],[]) [Str "References"],Para [Str "Doe,",Space,Str "John.",Space,Str "2005.",Space,Emph [Str "First",Space,Str "Book"],Str ".",Space,Str "Cambridge:",Space,Str "Cambridge",Space,Str "University",Space,Str "Press",Str "."],Para [Str "\8212\8212\8212.",Space,Str "2006.",Space,Str "\8220",Str "Article",Str ".",Str "\8221",Str "",Space,Emph [Str "Journal",Space,Str "of",Space,Str "Generic",Space,Str "Studies"],Space,Str "6:",Space,Str "33\8211\&34",Str "."],Para [Str "Doe,",Space,Str "John,",Space,Str "and",Space,Str "Jenny",Space,Str "Roe.",Space,Str "2007.",Space,Str "\8220",Str "Why",Space,Str "Water",Space,Str "Is",Space,Str "Wet",Str ".",Str "\8221",Str "",Space,Str "In",Space,Emph [Str "Third",Space,Str "Book"],Str ",",Space,Str "edited",Space,Str "by",Space,Str "Sam",Space,Str "Smith.",Space,Str "Oxford:",Space,Str "Oxford",Space,Str "University",Space,Str "Press",Str "."]]] diff --git a/tests/chicago-author-date.in.native b/tests/chicago-author-date.in.native new file mode 100644 --- /dev/null +++ b/tests/chicago-author-date.in.native @@ -0,0 +1,17 @@ +Pandoc (Meta {unMeta = fromList [("bibliography",MetaInlines [Str "tests/biblio.bib"]),("csl",MetaInlines [Str "chicago-author-date.csl"])]}) +[Header 1 ("pandoc-with-citeproc-hs",[],[]) [Str "Pandoc",Space,Str "with",Space,Str "citeproc-hs"] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"]] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"]] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30,",Space,Str "with",Space,Str "suffix"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "30"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 0},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "see",Space,Str "also"], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Str "In",Space,Str "a",Space,Str "note.",Note [Para [Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "12"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "and",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "locators",Space,Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."]]] +,Para [Str "A",Space,Str "citation",Space,Str "group",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "also"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "Another",Space,Str "one",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "And",Space,Str "another",Space,Str "one",Space,Str "in",Space,Str "a",Space,Str "note.",Note [Para [Str "Some",Space,Str "citations",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."]]] +,Para [Str "Citation",Space,Str "with",Space,Str "a",Space,Str "suffix",Space,Str "and",Space,Str "locator",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "pp.",Space,Str "33,",Space,Str "35-37,",Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "Citation",Space,Str "with",Space,Str "suffix",Space,Str "only",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "Now",Space,Str "some",Space,Str "modifiers.",Note [Para [Str "Like",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "author:",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str ",",Space,Str "and",Space,Str "now",Space,Str "Doe",Space,Str "with",Space,Str "a",Space,Str "locator",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "44"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."]]] +,Para [Str "With",Space,Str "some",Space,Str "markup",Space,Cite [Citation {citationId = "item1", citationPrefix = [Emph [Str "see"]], citationSuffix = [Space,Str "p.",Space,Strong [Str "32"]], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Header 1 ("references",["unnumbered"],[]) [Str "References"]] diff --git a/tests/chicago-fullnote-bibliography.csl b/tests/chicago-fullnote-bibliography.csl new file mode 100644 --- /dev/null +++ b/tests/chicago-fullnote-bibliography.csl @@ -0,0 +1,1182 @@ + + diff --git a/tests/chicago-note-bibliography.csl b/tests/chicago-note-bibliography.csl new file mode 100644 --- /dev/null +++ b/tests/chicago-note-bibliography.csl @@ -0,0 +1,1005 @@ + + diff --git a/tests/ieee.csl b/tests/ieee.csl new file mode 100644 --- /dev/null +++ b/tests/ieee.csl @@ -0,0 +1,302 @@ + + diff --git a/tests/ieee.expected.native b/tests/ieee.expected.native new file mode 100644 --- /dev/null +++ b/tests/ieee.expected.native @@ -0,0 +1,17 @@ +Pandoc (Meta {unMeta = fromList [("bibliography",MetaInlines [Str "tests/biblio.bib"]),("csl",MetaInlines [Str "tests/ieee.csl"])]}) +[Header 1 ("pandoc-with-citeproc-hs",[],[]) [Str "Pandoc",Space,Str "with",Space,Str "citeproc-hs"] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Str "[",Strong [Str "???"],Str "]"]] +,Para [Strong [Str "???"]] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 3}] [Str "Reference",Space,Str "1"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 4}] [Str "Reference",Space,Str "1"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30,",Space,Str "with",Space,Str "suffix"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 5}] [Str "Reference",Space,Str "1"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 6},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "30"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 7},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "see",Space,Str "also"], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 8}] [Str "Reference",Space,Str "1",Space,Str "[",Str "3",Str "]"],Space,Str "says",Space,Str "blah."] +,Para [Str "In",Space,Str "a",Space,Str "note.",Note [Para [Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "12"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 9}] [Str "Reference",Space,Str "3"],Space,Str "and",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "locators",Space,Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 10}] [Str "[",Str "3",Str "]"],Str "."]]] +,Para [Str "A",Space,Str "citation",Space,Str "group",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 11},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "also"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 12}] [Str "[",Str "1",Str "]",Str ",",Space,Str "[",Str "3",Str "]"],Str "."] +,Para [Str "Another",Space,Str "one",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 13}] [Str "[",Str "1",Str "]"],Str "."] +,Para [Str "And",Space,Str "another",Space,Str "one",Space,Str "in",Space,Str "a",Space,Str "note.",Note [Para [Str "Some",Space,Str "citations",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 14},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 15},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 16}] [Str "[",Str "1",Str "\8211",Str "3",Str "]"],Str "."]]] +,Para [Str "Citation",Space,Str "with",Space,Str "a",Space,Str "suffix",Space,Str "and",Space,Str "locator",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "pp.",Space,Str "33,",Space,Str "35-37,",Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 17}] [Str "[",Str "1",Str "]"],Str "."] +,Para [Str "Citation",Space,Str "with",Space,Str "suffix",Space,Str "only",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 18}] [Str "[",Str "1",Str "]"],Str "."] +,Para [Str "Now",Space,Str "some",Space,Str "modifiers.",Note [Para [Str "Like",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "author:",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 19}] [Str "[",Str "1",Str "]"],Str ",",Space,Str "and",Space,Str "now",Space,Str "Doe",Space,Str "with",Space,Str "a",Space,Str "locator",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "44"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 20}] [Str "[",Str "2",Str "]"],Str "."]]] +,Para [Str "With",Space,Str "some",Space,Str "markup",Space,Cite [Citation {citationId = "item1", citationPrefix = [Emph [Str "see"]], citationSuffix = [Space,Str "p.",Space,Strong [Str "32"]], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 21}] [Str "[",Str "1",Str "]"],Str "."] +,Div ("",["references"],[]) [Header 1 ("references",["unnumbered"],[]) [Str "References"],Para [Str "[1]",Space,Str "J.",Space,Str "Doe,",Space,Emph [Str "First",Space,Str "book"],Str ".",Space,Str "Cambridge:",Space,Str "Cambridge",Space,Str "University",Space,Str "Press,",Space,Str "2005",Str "."],Para [Str "[2]",Space,Str "J.",Space,Str "Doe,",Space,Str "\8220",Str "Article",Str ",",Str "\8221",Str "",Space,Emph [Str "Journal",Space,Str "of",Space,Str "Generic",Space,Str "Studies"],Str ",",Space,Str "vol.",Space,Str "6,",Space,Str "pp.",Space,Str "33\8211\&34,",Space,Str "2006",Str "."],Para [Str "[3]",Space,Str "J.",Space,Str "Doe",Space,Str "and",Space,Str "J.",Space,Str "Roe,",Space,Str "\8220",Str "Why",Space,Str "water",Space,Str "is",Space,Str "wet",Str ",",Str "\8221",Str "",Space,Str "in",Space,Emph [Str "Third",Space,Str "book"],Str ",",Space,Str "S.",Space,Str "Smith,",Space,Str "Ed.",Space,Str "Oxford:",Space,Str "Oxford",Space,Str "University",Space,Str "Press,",Space,Str "2007",Str "."]]] diff --git a/tests/ieee.in.native b/tests/ieee.in.native new file mode 100644 --- /dev/null +++ b/tests/ieee.in.native @@ -0,0 +1,17 @@ +Pandoc (Meta {unMeta = fromList [("bibliography",MetaInlines [Str "tests/biblio.bib"]),("csl",MetaInlines [Str "tests/ieee.csl"])]}) +[Header 1 ("pandoc-with-citeproc-hs",[],[]) [Str "Pandoc",Space,Str "with",Space,Str "citeproc-hs"] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"]] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"]] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30,",Space,Str "with",Space,Str "suffix"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "30"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 0},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "see",Space,Str "also"], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Str "In",Space,Str "a",Space,Str "note.",Note [Para [Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "12"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "and",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "locators",Space,Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."]]] +,Para [Str "A",Space,Str "citation",Space,Str "group",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "also"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "Another",Space,Str "one",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "And",Space,Str "another",Space,Str "one",Space,Str "in",Space,Str "a",Space,Str "note.",Note [Para [Str "Some",Space,Str "citations",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."]]] +,Para [Str "Citation",Space,Str "with",Space,Str "a",Space,Str "suffix",Space,Str "and",Space,Str "locator",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "pp.",Space,Str "33,",Space,Str "35-37,",Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "Citation",Space,Str "with",Space,Str "suffix",Space,Str "only",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "Now",Space,Str "some",Space,Str "modifiers.",Note [Para [Str "Like",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "author:",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str ",",Space,Str "and",Space,Str "now",Space,Str "Doe",Space,Str "with",Space,Str "a",Space,Str "locator",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "44"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."]]] +,Para [Str "With",Space,Str "some",Space,Str "markup",Space,Cite [Citation {citationId = "item1", citationPrefix = [Emph [Str "see"]], citationSuffix = [Space,Str "p.",Space,Strong [Str "32"]], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Header 1 ("references",["unnumbered"],[]) [Str "References"]] diff --git a/tests/issue13.expected.native b/tests/issue13.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue13.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/chicago-note-bibliography.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaList [MetaInlines [Str "Ann"]])])),("container-title",MetaInlines [Str "Journal"]),("id",MetaInlines [Str "item1"]),("issued",MetaList [MetaMap (fromList [("year",MetaString "2011")])]),("title",MetaInlines [Str "Title"]),("type",MetaInlines [Str "article-newspaper"])])])]}) +[Para [Str "Foo",Str ".",Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Note [Para [Str "Author",Str ",",Space,Str "\8220",Str "Title",Str ".",Str "\8221"]]],Str ""] +,Div ("",["references"],[]) [Para [Str "Author",Str ",",Space,Str "Ann",Str ".",Space,Str "\8220",Str "Title",Str ".",Str "\8221",Space,Emph [Str "Journal"],Str ",",Space,Str "2011",Str "."]]] diff --git a/tests/issue13.in.native b/tests/issue13.in.native new file mode 100644 --- /dev/null +++ b/tests/issue13.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/chicago-note-bibliography.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaList [MetaInlines [Str "Ann"]])])),("container-title",MetaInlines [Str "Journal"]),("id",MetaInlines [Str "item1"]),("issued",MetaList [MetaMap (fromList [("year",MetaString "2011")])]),("title",MetaInlines [Str "Title"]),("type",MetaInlines [Str "article-newspaper"])])])]}) +[Para [Str "Foo",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@item1]"],Str "."]] diff --git a/tests/issue14.expected.native b/tests/issue14.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue14.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "chicago-author-date.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Pelikan"]),("given",MetaInlines [Str "Jaroslav"])])),("container-title",MetaInlines [Str "The",Space,Str "Christian",Space,Str "tradition:",Space,Str "A",Space,Str "history",Space,Str "of",Space,Str "the",Space,Str "development",Space,Str "of",Space,Str "doctrine"]),("id",MetaInlines [Str "CTv1c2"]),("issued",MetaList [MetaMap (fromList [("year",MetaString "1971")])]),("language",MetaInlines [Str "en-US"]),("page",MetaInlines [Str "34-56"]),("publisher",MetaInlines [Str "University",Space,Str "of",Space,Str "Chicago",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Chicago"]),("title",MetaInlines [Str "Chapter",Space,Str "two"]),("type",MetaInlines [Str "chapter"]),("volume",MetaString "1"),("volume-title",MetaInlines [Str "The",Space,Str "emergence",Space,Str "of",Space,Str "the",Space,Str "Catholic",Space,Str "tradition",Space,Str "(100\8211\&600)"])]),MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Pelikan"]),("given",MetaInlines [Str "Jaroslav"])])),("container-title",MetaInlines [Str "The",Space,Str "Christian",Space,Str "tradition:",Space,Str "A",Space,Str "history",Space,Str "of",Space,Str "the",Space,Str "development",Space,Str "of",Space,Str "doctrine"]),("id",MetaInlines [Str "CTv1"]),("issued",MetaList [MetaMap (fromList [("year",MetaString "1971")])]),("language",MetaInlines [Str "en-US"]),("publisher",MetaInlines [Str "University",Space,Str "of",Space,Str "Chicago",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Chicago"]),("title",MetaInlines [Str "The",Space,Str "emergence",Space,Str "of",Space,Str "the",Space,Str "Catholic",Space,Str "tradition",Space,Str "(100\8211\&600)"]),("type",MetaInlines [Str "book"]),("volume",MetaString "1")]),MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Pelikan"]),("given",MetaInlines [Str "Jaroslav"])])),("id",MetaInlines [Str "CT"]),("issued",MetaList [MetaMap (fromList [("year",MetaString "1971")])]),("language",MetaInlines [Str "en-US"]),("publisher",MetaInlines [Str "University",Space,Str "of",Space,Str "Chicago",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Chicago"]),("title",MetaInlines [Str "The",Space,Str "Christian",Space,Str "tradition:",Space,Str "A",Space,Str "history",Space,Str "of",Space,Str "the",Space,Str "development",Space,Str "of",Space,Str "doctrine"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Str "Foo",Space,Cite [Citation {citationId = "CT", citationPrefix = [], citationSuffix = [Str ",",Space,Str "1:12"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Str "(",Str "Pelikan",Space,Str "1971",Str "a",Str ",",Space,Str "1:12",Str ")"],Str ".",Space,Str "Bar",Space,Cite [Citation {citationId = "CTv1", citationPrefix = [], citationSuffix = [Str ",",Space,Str "12"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 2}] [Str "(",Str "Pelikan",Space,Str "1971",Str "b",Str ",",Space,Str "1:12",Str ")"],Str ".",Space,Str "Baz",Space,Cite [Citation {citationId = "CTv1c2", citationPrefix = [], citationSuffix = [Str ",",Space,Str "12"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 3}] [Str "(",Str "Pelikan",Space,Str "1971",Str "c",Str ",",Space,Str "12",Str ")"],Str "."] +,Div ("",["references"],[]) [Header 1 ("references",["unnumbered"],[]) [Str "References"],Para [Str "Pelikan",Str ",",Space,Str "Jaroslav",Str ".",Space,Str "1971",Str "a",Str ".",Space,Emph [Str "The",Space,Str "Christian",Space,Str "Tradition",Str ":",Space,Str "A",Space,Str "History",Space,Str "of",Space,Str "the",Space,Str "Development",Space,Str "of",Space,Str "Doctrine"],Str ".",Space,Str "Chicago",Str ":",Space,Str "University",Space,Str "of",Space,Str "Chicago",Space,Str "Press",Str "."],Para [Str "\8212\8212\8212",Str ".",Space,Str "1971",Str "b",Str ".",Space,Emph [Str "The",Space,Str "Emergence",Space,Str "of",Space,Str "the",Space,Str "Catholic",Space,Str "Tradition",Space,Str "(",Str "100",Str "\8211",Str "600",Str ")"],Str ".",Space,Emph [Str "The",Space,Str "Christian",Space,Str "Tradition",Str ":",Space,Str "A",Space,Str "History",Space,Str "of",Space,Str "the",Space,Str "Development",Space,Str "of",Space,Str "Doctrine"],Str ".",Space,Str "Vol.",Space,Str "1",Str ".",Space,Str "Chicago",Str ":",Space,Str "University",Space,Str "of",Space,Str "Chicago",Space,Str "Press",Str "."],Para [Str "\8212\8212\8212",Str ".",Space,Str "1971",Str "c",Str ".",Space,Str "\8220",Str "Chapter",Space,Str "Two",Str ".",Str "\8221",Space,Str "In",Space,Emph [Str "The",Space,Str "Christian",Space,Str "Tradition",Str ":",Space,Str "A",Space,Str "History",Space,Str "of",Space,Str "the",Space,Str "Development",Space,Str "of",Space,Str "Doctrine"],Str ",",Space,Str "1",Str ":",Str "34\8211\&56",Str ".",Space,Str "Chicago",Str ":",Space,Str "University",Space,Str "of",Space,Str "Chicago",Space,Str "Press",Str "."]]] diff --git a/tests/issue14.in.native b/tests/issue14.in.native new file mode 100644 --- /dev/null +++ b/tests/issue14.in.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "chicago-author-date.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Pelikan"]),("given",MetaInlines [Str "Jaroslav"])])),("container-title",MetaInlines [Str "The",Space,Str "Christian",Space,Str "tradition:",Space,Str "A",Space,Str "history",Space,Str "of",Space,Str "the",Space,Str "development",Space,Str "of",Space,Str "doctrine"]),("id",MetaInlines [Str "CTv1c2"]),("issued",MetaList [MetaMap (fromList [("year",MetaString "1971")])]),("language",MetaInlines [Str "en-US"]),("page",MetaInlines [Str "34-56"]),("publisher",MetaInlines [Str "University",Space,Str "of",Space,Str "Chicago",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Chicago"]),("title",MetaInlines [Str "Chapter",Space,Str "two"]),("type",MetaInlines [Str "chapter"]),("volume",MetaString "1"),("volume-title",MetaInlines [Str "The",Space,Str "emergence",Space,Str "of",Space,Str "the",Space,Str "Catholic",Space,Str "tradition",Space,Str "(100\8211\&600)"])]),MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Pelikan"]),("given",MetaInlines [Str "Jaroslav"])])),("container-title",MetaInlines [Str "The",Space,Str "Christian",Space,Str "tradition:",Space,Str "A",Space,Str "history",Space,Str "of",Space,Str "the",Space,Str "development",Space,Str "of",Space,Str "doctrine"]),("id",MetaInlines [Str "CTv1"]),("issued",MetaList [MetaMap (fromList [("year",MetaString "1971")])]),("language",MetaInlines [Str "en-US"]),("publisher",MetaInlines [Str "University",Space,Str "of",Space,Str "Chicago",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Chicago"]),("title",MetaInlines [Str "The",Space,Str "emergence",Space,Str "of",Space,Str "the",Space,Str "Catholic",Space,Str "tradition",Space,Str "(100\8211\&600)"]),("type",MetaInlines [Str "book"]),("volume",MetaString "1")]),MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Pelikan"]),("given",MetaInlines [Str "Jaroslav"])])),("id",MetaInlines [Str "CT"]),("issued",MetaList [MetaMap (fromList [("year",MetaString "1971")])]),("language",MetaInlines [Str "en-US"]),("publisher",MetaInlines [Str "University",Space,Str "of",Space,Str "Chicago",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Chicago"]),("title",MetaInlines [Str "The",Space,Str "Christian",Space,Str "tradition:",Space,Str "A",Space,Str "history",Space,Str "of",Space,Str "the",Space,Str "development",Space,Str "of",Space,Str "doctrine"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Str "Foo",Space,Cite [Citation {citationId = "CT", citationPrefix = [], citationSuffix = [Str ",",Space,Str "1:12"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@CT,",Space,Str "1:12]"],Str ".",Space,Str "Bar",Space,Cite [Citation {citationId = "CTv1", citationPrefix = [], citationSuffix = [Str ",",Space,Str "12"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@CTv1,",Space,Str "12]"],Str ".",Space,Str "Baz",Space,Cite [Citation {citationId = "CTv1c2", citationPrefix = [], citationSuffix = [Str ",",Space,Str "12"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@CTv1c2,",Space,Str "12]"],Str "."] +,Header 1 ("references",["unnumbered"],[]) [Str "References"]] diff --git a/tests/issue25.expected.native b/tests/issue25.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue25.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaInlines [Str "Al"])])]),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1998"]])])),("title",MetaInlines [Str "foo",Space,Str "bar",Space,Str "baz:",Space,Str "bazbaz",Space,Str "foo"]),("type",MetaInlines [Str "article-journal"])])])]}) +[Para [Str "Foo",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Str "(",Str "Author",Space,Str "1998",Str ")"],Str "."] +,Div ("",["references"],[]) [Header 1 ("references",["unnumbered"],[]) [Str "References"],Para [Str "Author",Str ",",Space,Str "Al",Str ".",Space,Str "1998",Str ".",Space,Str "\8220",Str "Foo",Space,Str "Bar",Space,Str "Baz:",Space,Str "Bazbaz",Space,Str "Foo",Str ".",Str "\8221"]]] diff --git a/tests/issue25.in.native b/tests/issue25.in.native new file mode 100644 --- /dev/null +++ b/tests/issue25.in.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaInlines [Str "Al"])])]),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1998"]])])),("title",MetaInlines [Str "foo",Space,Str "bar",Space,Str "baz:",Space,Str "bazbaz",Space,Str "foo"]),("type",MetaInlines [Str "article-journal"])])])]}) +[Para [Str "Foo",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@item1]"],Str "."] +,Header 1 ("references",["unnumbered"],[]) [Str "References"]] diff --git a/tests/issue27.expected.native b/tests/issue27.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue27.expected.native @@ -0,0 +1,4 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/science.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "AuthorOne"]),("given",MetaInlines [Str "Joe"])]),MetaMap (fromList [("family",MetaInlines [Str "AuthorTwo"]),("given",MetaInlines [Str "Jill"])])]),("container-title",MetaInlines [Str "Some",Space,Str "Journal"]),("id",MetaInlines [Str "AuthorOne2014"]),("issue",MetaInlines [Str "X"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "2014"]])])),("page",MetaInlines [Str "XXXX-YYYY"]),("title",MetaInlines [Str "Sample",Space,Str "Title"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaInlines [Str "XX"])])])]}) +[Header 1 ("minimal-example",[],[]) [Str "Minimal",Space,Str "example"] +,Para [Str "Here",Space,Str "is",Space,Str "some",Space,Str "text",Space,Str "that",Space,Str "needs",Space,Str "a",Space,Str "citation",Space,Cite [Citation {citationId = "AuthorOne2014", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Str "(",Emph [Str "1"],Str ")"],Str "."] +,Div ("",["references"],[]) [Para [Str "1.",Space,Str "J.",Space,Str "AuthorOne,",Space,Str "J.",Space,Str "AuthorTwo,",Space,Emph [Str "Some",Space,Str "Journal"],Str ",",Space,Str "in",Space,Str "press."]]] diff --git a/tests/issue27.in.native b/tests/issue27.in.native new file mode 100644 --- /dev/null +++ b/tests/issue27.in.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/science.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "AuthorOne"]),("given",MetaInlines [Str "Joe"])]),MetaMap (fromList [("family",MetaInlines [Str "AuthorTwo"]),("given",MetaInlines [Str "Jill"])])]),("container-title",MetaInlines [Str "Some",Space,Str "Journal"]),("id",MetaInlines [Str "AuthorOne2014"]),("issue",MetaInlines [Str "X"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "2014"]])])),("page",MetaInlines [Str "XXXX-YYYY"]),("title",MetaInlines [Str "Sample",Space,Str "Title"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaInlines [Str "XX"])])])]}) +[Header 1 ("minimal-example",[],[]) [Str "Minimal",Space,Str "example"] +,Para [Str "Here",Space,Str "is",Space,Str "some",Space,Str "text",Space,Str "that",Space,Str "needs",Space,Str "a",Space,Str "citation",Space,Cite [Citation {citationId = "AuthorOne2014", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@AuthorOne2014]"],Str "."]] diff --git a/tests/issue51.expected.native b/tests/issue51.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue51.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaInlines [Str "John"])])]),("container-title",MetaInlines [Str "Journal",Space,Str "of",Space,Str "Something"]),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1987"],MetaList [MetaString "1988"]])])),("page",MetaInlines [Str "12-34"]),("title",MetaInlines [Str "The",Space,Str "title"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaString "3")]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Roe"]),("given",MetaInlines [Str "Ron"])])]),("container-title",MetaInlines [Str "Journal",Space,Str "of",Space,Str "Something"]),("id",MetaInlines [Str "item2"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1987"]])])),("page",MetaInlines [Str "12-34"]),("title",MetaInlines [Str "The",Space,Str "title"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaString "4")])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 1}] [Str "Doe",Space,Str "(",Str "1987",Str "\8211",Str "1988",Str ")"],Str ";",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 2}] [Str "Roe",Space,Str "(",Str "1987",Str ")"]] +,Div ("",["references"],[]) [Para [Str "Doe",Str ",",Space,Str "John",Str ".",Space,Str "1987",Str "\8211",Str "1988",Str ".",Space,Str "\8220",Str "The",Space,Str "Title",Str ".",Str "\8221",Space,Emph [Str "Journal",Space,Str "of",Space,Str "Something"],Space,Str "3",Str ":",Space,Str "12\8211\&34",Str "."],Para [Str "Roe",Str ",",Space,Str "Ron",Str ".",Space,Str "1987",Str ".",Space,Str "\8220",Str "The",Space,Str "Title",Str ".",Str "\8221",Space,Emph [Str "Journal",Space,Str "of",Space,Str "Something"],Space,Str "4",Str ":",Space,Str "12\8211\&34",Str "."]]] diff --git a/tests/issue51.in.native b/tests/issue51.in.native new file mode 100644 --- /dev/null +++ b/tests/issue51.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaInlines [Str "John"])])]),("container-title",MetaInlines [Str "Journal",Space,Str "of",Space,Str "Something"]),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1987"],MetaList [MetaString "1988"]])])),("page",MetaInlines [Str "12-34"]),("title",MetaInlines [Str "The",Space,Str "title"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaString "3")]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Roe"]),("given",MetaInlines [Str "Ron"])])]),("container-title",MetaInlines [Str "Journal",Space,Str "of",Space,Str "Something"]),("id",MetaInlines [Str "item2"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1987"]])])),("page",MetaInlines [Str "12-34"]),("title",MetaInlines [Str "The",Space,Str "title"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaString "4")])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item1"],Str ";",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item2"]]] diff --git a/tests/issue57.expected.native b/tests/issue57.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue57.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/chicago-author-date-with-original-date-and-status.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Faraday"]),("given",MetaInlines [Str "Carry"])])]),("container-title",MetaInlines [Str "Seven",Space,Str "Trips",Space,Str "beyond",Space,Str "the",Space,Str "Asteroid",Space,Str "Belt"]),("editor",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Oring"]),("given",MetaInlines [Str "James"])])]),("id",MetaInlines [Str "Faraday-forthcoming"]),("publisher",MetaInlines [Str "Launch",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Cape",Space,Str "Canaveral,",Space,Str "FL"]),("status",MetaInlines [Str "forthcoming"]),("title",MetaInlines [Str "Protean",Space,Str "photography"]),("type",MetaInlines [Str "chapter"])])])]}) +[Para [Cite [Citation {citationId = "Faraday-forthcoming", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Str "(",Str "Faraday",Str ",",Space,Str "forthcoming",Str ")"]] +,Div ("",["references"],[]) [Header 1 ("references",["unnumbered"],[]) [Str "References"],Para [Str "Faraday",Str ",",Space,Str "Carry",Str ".",Space,Str "Forthcoming",Str ".",Space,Str "\8220",Str "Protean",Space,Str "Photography",Str ".",Str "\8221",Space,Str "In",Space,Emph [Str "Seven",Space,Str "Trips",Space,Str "Beyond",Space,Str "the",Space,Str "Asteroid",Space,Str "Belt"],Str ",",Space,Str "edited",Space,Str "by",Space,Str "James",Space,Str "Oring",Str ".",Space,Str "Cape",Space,Str "Canaveral,",Space,Str "FL",Str ":",Space,Str "Launch",Space,Str "Press",Str "."]]] diff --git a/tests/issue57.in.native b/tests/issue57.in.native new file mode 100644 --- /dev/null +++ b/tests/issue57.in.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/chicago-author-date-with-original-date-and-status.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Faraday"]),("given",MetaInlines [Str "Carry"])])]),("container-title",MetaInlines [Str "Seven",Space,Str "Trips",Space,Str "beyond",Space,Str "the",Space,Str "Asteroid",Space,Str "Belt"]),("editor",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Oring"]),("given",MetaInlines [Str "James"])])]),("id",MetaInlines [Str "Faraday-forthcoming"]),("publisher",MetaInlines [Str "Launch",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Cape",Space,Str "Canaveral,",Space,Str "FL"]),("status",MetaInlines [Str "forthcoming"]),("title",MetaInlines [Str "Protean",Space,Str "photography"]),("type",MetaInlines [Str "chapter"])])])]}) +[Para [Cite [Citation {citationId = "Faraday-forthcoming", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@Faraday-forthcoming]"]] +,Header 1 ("references",[],[]) [Str "References"]] diff --git a/tests/issue58.csl b/tests/issue58.csl new file mode 100644 --- /dev/null +++ b/tests/issue58.csl @@ -0,0 +1,553 @@ + + diff --git a/tests/issue58.expected.native b/tests/issue58.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue58.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/issue58.csl"]),("references",MetaList [MetaMap (fromList [("id",MetaInlines [Str "stanze"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1547"]])])),("language",MetaInlines [Str "it-IT"]),("publisher-place",MetaInlines [Str "Florence"]),("title",MetaInlines [Str "Stanze",Space,Str "in",Space,Str "lode",Space,Str "della",Space,Str "donna",Space,Str "brutta"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Str "In",Space,Str "this",Space,Str "item,",Space,Str "the",Space,Str "title",Space,Str "replaces",Space,Str "the",Space,Str "(unknown)",Space,Str "author",Space,Str "(see",Space,Str "14.79)",Space,Cite [Citation {citationId = "stanze", citationPrefix = [], citationSuffix = [Str ",",Space,Str "p.",Space,Str "12"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Str "(",Emph [Str "Stanze",Space,Str "in",Space,Str "lode",Space,Str "della",Space,Str "donna",Space,Str "brutta"],Space,Str "1547",Str ",",Space,Str "12",Str ")"],Str "."] +,Div ("",["references"],[]) [Header 1 ("references",["unnumbered"],[]) [Str "References"],Para [Emph [Str "Stanze",Space,Str "in",Space,Str "lode",Space,Str "della",Space,Str "donna",Space,Str "brutta"],Str ".",Space,Str "1547",Str ".",Space,Str "Florence",Str "."]]] diff --git a/tests/issue58.in.native b/tests/issue58.in.native new file mode 100644 --- /dev/null +++ b/tests/issue58.in.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/issue58.csl"]),("references",MetaList [MetaMap (fromList [("id",MetaInlines [Str "stanze"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1547"]])])),("language",MetaInlines [Str "it-IT"]),("publisher-place",MetaInlines [Str "Florence"]),("title",MetaInlines [Str "Stanze",Space,Str "in",Space,Str "lode",Space,Str "della",Space,Str "donna",Space,Str "brutta"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Str "In",Space,Str "this",Space,Str "item,",Space,Str "the",Space,Str "title",Space,Str "replaces",Space,Str "the",Space,Str "(unknown)",Space,Str "author",Space,Str "(see",Space,Str "14.79)",Space,Cite [Citation {citationId = "stanze", citationPrefix = [], citationSuffix = [Str ",",Space,Str "p.",Space,Str "12"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@stanze,",Space,Str "p.",Space,Str "12]"],Str "."] +,Header 1 ("references",[],[]) [Str "References"]] diff --git a/tests/issue61.expected.native b/tests/issue61.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue61.expected.native @@ -0,0 +1,8 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/modern-humanities-research-association.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaInlines [Str "John"])])]),("id",MetaInlines [Str "doe"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1985"]])])),("publisher",MetaInlines [Str "Publisher"]),("title",MetaInlines [Str "Title"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Roe"]),("given",MetaInlines [Str "Rob"])])]),("id",MetaInlines [Str "roe"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1985"]])])),("publisher",MetaInlines [Str "Publisher"]),("title",MetaInlines [Str "Title"]),("type",MetaInlines [Str "book"])])])]}) +[Header 1 ("text",[],[]) [Str "Text"] +,Para [Str "Foo",Str "",Cite [Citation {citationId = "doe", citationPrefix = [], citationSuffix = [Str ",",Space,Str "VIII,",Space,Str "89"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Note [Para [Str "John",Space,Str "Doe",Str ",",Space,Emph [Str "Title"],Space,Str "(",Str "Publisher",Str ",",Space,Str "1985",Str ")",Str ",",Space,Str "VIII,",Space,Str "89",Str ".",Space]]]] +,Para [Str "Foo",Str "",Cite [Citation {citationId = "roe", citationPrefix = [], citationSuffix = [Str ",",Space,Str "III,",Space,Str "89"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 2}] [Note [Para [Str "Rob",Space,Str "Roe",Str ",",Space,Emph [Str "Title"],Space,Str "(",Str "Publisher",Str ",",Space,Str "1985",Str ")",Str ",",Space,Str "III,",Space,Str "89",Str ".",Space]]]] +,Para [Str "Foo",Str "",Cite [Citation {citationId = "doe", citationPrefix = [], citationSuffix = [Str ",",Space,Str "LVIII,",Space,Str "89"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 3}] [Note [Para [Str "Doe",Str ",",Space,Str "LVIII,",Space,Str "89",Str ".",Space]]]] +,Para [Str "Foo",Str "",Cite [Citation {citationId = "roe", citationPrefix = [], citationSuffix = [Str ",",Space,Str "MVIII,",Space,Str "89"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 4}] [Note [Para [Str "Roe",Str ",",Space,Str "MVIII,",Space,Str "89",Str ".",Space]]]] +,Para [Str "Foo",Str "",Cite [Citation {citationId = "doe", citationPrefix = [], citationSuffix = [Str ",",Space,Str "CL,",Space,Str "89"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 5}] [Note [Para [Str "Doe",Str ",",Space,Str "CL,",Space,Str "89",Str ".",Space]]]] +,Div ("",["references"],[]) [Header 1 ("references",["unnumbered"],[]) [Str "References"],Para [Str "Doe",Str ",",Space,Str "John",Str ",",Space,Emph [Str "Title"],Space,Str "(",Str "Publisher",Str ",",Space,Str "1985",Str ")"],Para [Str "Roe",Str ",",Space,Str "Rob",Str ",",Space,Emph [Str "Title"],Space,Str "(",Str "Publisher",Str ",",Space,Str "1985",Str ")"]]] diff --git a/tests/issue61.in.native b/tests/issue61.in.native new file mode 100644 --- /dev/null +++ b/tests/issue61.in.native @@ -0,0 +1,8 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/modern-humanities-research-association.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaInlines [Str "John"])])]),("id",MetaInlines [Str "doe"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1985"]])])),("publisher",MetaInlines [Str "Publisher"]),("title",MetaInlines [Str "Title"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Roe"]),("given",MetaInlines [Str "Rob"])])]),("id",MetaInlines [Str "roe"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1985"]])])),("publisher",MetaInlines [Str "Publisher"]),("title",MetaInlines [Str "Title"]),("type",MetaInlines [Str "book"])])])]}) +[Header 1 ("text",[],[]) [Str "Text"] +,Para [Str "Foo",Space,Cite [Citation {citationId = "doe", citationPrefix = [], citationSuffix = [Str ",",Space,Str "VIII,",Space,Str "89"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@doe,",Space,Str "VIII,",Space,Str "89]"]] +,Para [Str "Foo",Space,Cite [Citation {citationId = "roe", citationPrefix = [], citationSuffix = [Str ",",Space,Str "III,",Space,Str "89"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@roe,",Space,Str "III,",Space,Str "89]"]] +,Para [Str "Foo",Space,Cite [Citation {citationId = "doe", citationPrefix = [], citationSuffix = [Str ",",Space,Str "LVIII,",Space,Str "89"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@doe,",Space,Str "LVIII,",Space,Str "89]"]] +,Para [Str "Foo",Space,Cite [Citation {citationId = "roe", citationPrefix = [], citationSuffix = [Str ",",Space,Str "MVIII,",Space,Str "89"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@roe,",Space,Str "MVIII,",Space,Str "89]"]] +,Para [Str "Foo",Space,Cite [Citation {citationId = "doe", citationPrefix = [], citationSuffix = [Str ",",Space,Str "CL,",Space,Str "89"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@doe,",Space,Str "CL,",Space,Str "89]"]] +,Header 1 ("references",[],[]) [Str "References"]] diff --git a/tests/issue64.expected.native b/tests/issue64.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue64.expected.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("bibliography",MetaList [MetaInlines [Str "tests/biblio.bib"]]),("nocite",MetaInlines [Cite [Citation {citationId = "*", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Str "(",Span ("",["citeproc-not-found"],[("data-reference-id","*")]) [Strong [Str "???"]],Str ")"]])]}) +[Div ("",["references"],[]) [Para [Str "Doe",Str ",",Space,Str "John",Str ".",Space,Str "2005",Str ".",Space,Emph [Str "First",Space,Str "Book"],Str ".",Space,Str "Cambridge",Str ":",Space,Str "Cambridge",Space,Str "University",Space,Str "Press",Str "."],Para [Str "\8212\8212\8212",Str ".",Space,Str "2006",Str ".",Space,Str "\8220",Str "Article",Str ".",Str "\8221",Space,Emph [Str "Journal",Space,Str "of",Space,Str "Generic",Space,Str "Studies"],Space,Str "6",Str ":",Space,Str "33\8211\&34",Str "."],Para [Str "Doe",Str ",",Space,Str "John",Str ",",Space,Str "and",Space,Str "Jenny",Space,Str "Roe",Str ".",Space,Str "2007",Str ".",Space,Str "\8220",Str "Why",Space,Str "Water",Space,Str "Is",Space,Str "Wet",Str ".",Str "\8221",Space,Str "In",Space,Emph [Str "Third",Space,Str "Book"],Str ",",Space,Str "edited",Space,Str "by",Space,Str "Sam",Space,Str "Smith",Str ".",Space,Str "Oxford",Str ":",Space,Str "Oxford",Space,Str "University",Space,Str "Press",Str "."]]] diff --git a/tests/issue64.in.native b/tests/issue64.in.native new file mode 100644 --- /dev/null +++ b/tests/issue64.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("bibliography",MetaList [MetaInlines [Str "tests/biblio.bib"]]),("nocite",MetaInlines [Cite [Citation {citationId = "*", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [RawInline (Format "latex") "\\nocite{*}"]])]}) +[] diff --git a/tests/issue65.expected.native b/tests/issue65.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue65.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("ISBN",MetaInlines [Str "3406493556"]),("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Stotz"]),("given",MetaInlines [Str "Peter"])])]),("call-number",MetaInlines [Str "PA25",Space,Str "PA2616",Space,Str ".H24",Space,Str "Abt.",Space,Str "2,",Space,Str "T.",Space,Str "5,",Space,Str "Bd.",Space,Str "2,",Space,Str "etc"]),("collection-number",MetaInlines [Str "2.5"]),("collection-title",MetaInlines [Str "Handbuch",Space,Str "der",Space,Str "Altertumswissenschaft"]),("event-place",MetaInlines [Str "Munich"]),("first-reference-note-number",MetaString "1"),("id",MetaInlines [Str "stotz:1996handbuch"]),("issued",MetaMap (fromList [("literal",MetaInlines [Str "1996_2004"])])),("language",MetaInlines [Str "German"]),("number-of-volumes",MetaInlines [Str "5"]),("publisher",MetaInlines [Str "Beck"]),("publisher-place",MetaInlines [Str "Munich"]),("source",MetaInlines [Str "Library",Space,Str "of",Space,Str "Congress",Space,Str "ISBN"]),("title",MetaInlines [Str "Handbuch",Space,Str "zur",Space,Str "lateinischen",Space,Str "Sprache",Space,Str "des",Space,Str "Mittelalters"]),("title-short",MetaInlines [Str "Handbuch"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Cite [Citation {citationId = "stotz:1996handbuch", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Str "(",Str "Stotz",Space,Str "1996",Str "\8211",Str "2004",Str ")"]] +,Div ("",["references"],[]) [Para [Str "Stotz",Str ",",Space,Str "Peter",Str ".",Space,Str "1996",Str "\8211",Str "2004",Str ".",Space,Emph [Str "Handbuch",Space,Str "zur",Space,Str "lateinischen",Space,Str "Sprache",Space,Str "des",Space,Str "Mittelalters"],Str ".",Space,Str "5",Space,Str "vols.",Space,Str "Handbuch",Space,Str "der",Space,Str "Altertumswissenschaft",Str ",",Space,Str "2.5",Str ".",Space,Str "Munich",Str ":",Space,Str "Beck",Str "."]]] diff --git a/tests/issue65.in.native b/tests/issue65.in.native new file mode 100644 --- /dev/null +++ b/tests/issue65.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("ISBN",MetaInlines [Str "3406493556"]),("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Stotz"]),("given",MetaInlines [Str "Peter"])])]),("call-number",MetaInlines [Str "PA25",Space,Str "PA2616",Space,Str ".H24",Space,Str "Abt.",Space,Str "2,",Space,Str "T.",Space,Str "5,",Space,Str "Bd.",Space,Str "2,",Space,Str "etc"]),("collection-number",MetaInlines [Str "2.5"]),("collection-title",MetaInlines [Str "Handbuch",Space,Str "der",Space,Str "Altertumswissenschaft"]),("event-place",MetaInlines [Str "Munich"]),("first-reference-note-number",MetaString "1"),("id",MetaInlines [Str "stotz:1996handbuch"]),("issued",MetaMap (fromList [("literal",MetaInlines [Str "1996_2004"])])),("language",MetaInlines [Str "German"]),("number-of-volumes",MetaInlines [Str "5"]),("publisher",MetaInlines [Str "Beck"]),("publisher-place",MetaInlines [Str "Munich"]),("source",MetaInlines [Str "Library",Space,Str "of",Space,Str "Congress",Space,Str "ISBN"]),("title",MetaInlines [Str "Handbuch",Space,Str "zur",Space,Str "lateinischen",Space,Str "Sprache",Space,Str "des",Space,Str "Mittelalters"]),("title-short",MetaInlines [Str "Handbuch"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Cite [Citation {citationId = "stotz:1996handbuch", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@stotz:1996handbuch]"]]] diff --git a/tests/issue68.expected.native b/tests/issue68.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue68.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/chicago-fullnote-bibliography.csl"]),("references",MetaList [MetaMap (fromList [("ISBN",MetaInlines [Str "0888441088"]),("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Goering"]),("given",MetaInlines [Str "Joseph"])])]),("call-number",MetaInlines [Str "BV4009",Space,Str ".W55",Space,Str "1992"]),("collection-number",MetaInlines [Str "108"]),("collection-title",MetaInlines [Str "Studies",Space,Str "and",Space,Str "Texts"]),("event-place",MetaInlines [Str "Toronto"]),("first-reference-note-number",MetaString "1"),("id",MetaInlines [Str "goering:1992william"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1992"]])])),("publisher",MetaInlines [Str "Pontifical",Space,Str "Institute",Space,Str "of",Space,Str "Mediaeval",Space,Str "Studies"]),("publisher-place",MetaInlines [Str "Toronto"]),("source",MetaInlines [Str "toroprod.library.utoronto.ca",Space,Str "Library",Space,Str "Catalog"]),("title",MetaInlines [Str "William",Space,Str "de",Space,Str "Montibus",Space,Str "(c.",Space,Str "1140\8211\&1213):",Space,Str "The",Space,Str "Schools",Space,Str "and",Space,Str "the",Space,Str "Literature",Space,Str "of",Space,Str "Pastoral",Space,Str "Care"]),("title-short",MetaInlines [Str "William",Space,Str "de",Space,Str "Montibus"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Str "...",Space,Str "a",Space,Str "prose",Space,Str "commentary",Str ".",Cite [Citation {citationId = "goering:1992william", citationPrefix = [Str "the",Space,Str "text",Space,Str "of",Space,Str "fol.",Space,Str "9r",Space,Str "is",Space,Str "printed",Space,Str "in"], citationSuffix = [Str ",",Space,Str "pp.",Space,Str "501\8211\&3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Note [Para [Str "The",Space,Str "text",Space,Str "of",Space,Str "fol.",Space,Str "9r",Space,Str "is",Space,Str "printed",Space,Str "in",Space,Str "Joseph",Space,Str "Goering",Str ",",Space,Emph [Str "William",Space,Str "de",Space,Str "Montibus",Space,Str "(",Str "c",Str ".",Space,Str "1140",Str "\8211",Str "1213",Str "):",Space,Str "The",Space,Str "Schools",Space,Str "and",Space,Str "the",Space,Str "Literature",Space,Str "of",Space,Str "Pastoral",Space,Str "Care"],Str ",",Space,Str "Studies",Space,Str "and",Space,Str "Texts",Space,Str "108",Space,Str "(",Str "Toronto",Str ":",Space,Str "Pontifical",Space,Str "Institute",Space,Str "of",Space,Str "Mediaeval",Space,Str "Studies",Str ",",Space,Str "1992",Str ")",Str ",",Space,Str "501\8211\&3",Str ".",Space]]],Str "",Space,Str "...",Space,Str "a",Space,Str "collection",Space,Str "of",Space,Str "verses",Space,Str "with",Space,Str "a",Space,Str "formal",Space,Str "prose",Space,Str "commentary",Cite [Citation {citationId = "goering:1992william", citationPrefix = [Str "excerpts",Space,Str "from",Space,Str "this",Space,Str "text",Space,Str "were",Space,Str "previously",Space,Str "printed",Space,Str "in"], citationSuffix = [Str ",",Space,Str "p.",Space,Str "508\8211\&14"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 2},Citation {citationId = "goering:1992william", citationPrefix = [Str "it",Space,Str "was",Space,Str "also",Space,Str "briefly",Space,Str "described",Space,Str "in"], citationSuffix = [Str ",",Space,Str "pp.",Space,Str "141\8211\&42"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 3}] [Note [Para [Str "Excerpts",Space,Str "from",Space,Str "this",Space,Str "text",Space,Str "were",Space,Str "previously",Space,Str "printed",Space,Str "in",Space,Str "ibid.",Str ",",Space,Str "508\8211\&14",Str ";",Space,Str "it",Space,Str "was",Space,Str "also",Space,Str "briefly",Space,Str "described",Space,Str "in",Space,Str "ibid.",Str ",",Space,Str "141\8211\&42",Str ".",Space]]],Space,Str "...",Space,Str "and",Space,Str "finally",Space,Str "a",Space,Str "note",Space,Str "starting",Space,Str "with",Space,Str "a",Space,Str "citation",Str ".",Cite [Citation {citationId = "goering:1992william", citationPrefix = [], citationSuffix = [Str ",",Space,Str "pp.",Space,Str "141-42"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 4}] [Note [Para [Str "Ibid.",Str ",",Space,Str "141\8211\&42",Str ".",Space]]],Str ""] +,Div ("",["references"],[]) [Para [Str "Goering",Str ",",Space,Str "Joseph",Str ".",Space,Emph [Str "William",Space,Str "de",Space,Str "Montibus",Space,Str "(",Str "c",Str ".",Space,Str "1140",Str "\8211",Str "1213",Str "):",Space,Str "The",Space,Str "Schools",Space,Str "and",Space,Str "the",Space,Str "Literature",Space,Str "of",Space,Str "Pastoral",Space,Str "Care"],Str ".",Space,Str "Studies",Space,Str "and",Space,Str "Texts",Space,Str "108",Str ".",Space,Str "Toronto",Str ":",Space,Str "Pontifical",Space,Str "Institute",Space,Str "of",Space,Str "Mediaeval",Space,Str "Studies",Str ",",Space,Str "1992",Str "."]]] diff --git a/tests/issue68.in.native b/tests/issue68.in.native new file mode 100644 --- /dev/null +++ b/tests/issue68.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/chicago-fullnote-bibliography.csl"]),("references",MetaList [MetaMap (fromList [("ISBN",MetaInlines [Str "0888441088"]),("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Goering"]),("given",MetaInlines [Str "Joseph"])])]),("call-number",MetaInlines [Str "BV4009",Space,Str ".W55",Space,Str "1992"]),("collection-number",MetaInlines [Str "108"]),("collection-title",MetaInlines [Str "Studies",Space,Str "and",Space,Str "Texts"]),("event-place",MetaInlines [Str "Toronto"]),("first-reference-note-number",MetaString "1"),("id",MetaInlines [Str "goering:1992william"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1992"]])])),("publisher",MetaInlines [Str "Pontifical",Space,Str "Institute",Space,Str "of",Space,Str "Mediaeval",Space,Str "Studies"]),("publisher-place",MetaInlines [Str "Toronto"]),("source",MetaInlines [Str "toroprod.library.utoronto.ca",Space,Str "Library",Space,Str "Catalog"]),("title",MetaInlines [Str "William",Space,Str "de",Space,Str "Montibus",Space,Str "(c.",Space,Str "1140\8211\&1213):",Space,Str "The",Space,Str "Schools",Space,Str "and",Space,Str "the",Space,Str "Literature",Space,Str "of",Space,Str "Pastoral",Space,Str "Care"]),("title-short",MetaInlines [Str "William",Space,Str "de",Space,Str "Montibus"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Str "...",Space,Str "a",Space,Str "prose",Space,Str "commentary",Space,Cite [Citation {citationId = "goering:1992william", citationPrefix = [Str "the",Space,Str "text",Space,Str "of",Space,Str "fol.",Space,Str "9r",Space,Str "is",Space,Str "printed",Space,Str "in"], citationSuffix = [Str ",",Space,Str "pp.",Space,Str "501\8211\&3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[the",Space,Str "text",Space,Str "of",Space,Str "fol.",Space,Str "9r",Space,Str "is",Space,Str "printed",Space,Str "in",Space,Str "@goering:1992william,",Space,Str "pp.",Space,Str "501\8211\&3]"],Str ".",Space,Str "...",Space,Str "a",Space,Str "collection",Space,Str "of",Space,Str "verses",Space,Str "with",Space,Str "a",Space,Str "formal",Space,Str "prose",Space,Str "commentary",Space,Cite [Citation {citationId = "goering:1992william", citationPrefix = [Str "excerpts",Space,Str "from",Space,Str "this",Space,Str "text",Space,Str "were",Space,Str "previously",Space,Str "printed",Space,Str "in"], citationSuffix = [Str ",",Space,Str "p.",Space,Str "508\8211\&14"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "goering:1992william", citationPrefix = [Str "it",Space,Str "was",Space,Str "also",Space,Str "briefly",Space,Str "described",Space,Str "in"], citationSuffix = [Str ",",Space,Str "pp.",Space,Str "141\8211\&42"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[excerpts",Space,Str "from",Space,Str "this",Space,Str "text",Space,Str "were",Space,Str "previously",Space,Str "printed",Space,Str "in",Space,Str "@goering:1992william,",Space,Str "p.",Space,Str "508\8211\&14;",Space,Str "it",Space,Str "was",Space,Str "also",Space,Str "briefly",Space,Str "described",Space,Str "in",Space,Str "@goering:1992william,",Space,Str "pp.",Space,Str "141\8211\&42]"],Space,Str "...",Space,Str "and",Space,Str "finally",Space,Str "a",Space,Str "note",Space,Str "starting",Space,Str "with",Space,Str "a",Space,Str "citation",Space,Cite [Citation {citationId = "goering:1992william", citationPrefix = [], citationSuffix = [Str ",",Space,Str "pp.",Space,Str "141-42"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@goering:1992william,",Space,Str "pp.",Space,Str "141-42]"],Str "."]] diff --git a/tests/issue7.expected.native b/tests/issue7.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue7.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaList [MetaInlines [Str "Ann"]])])),("container-title",MetaInlines [Str "Journal"]),("id",MetaInlines [Str "item1"]),("issued",MetaList [MetaMap (fromList [("day",MetaString "24"),("month",MetaString "9"),("year",MetaString "2011")]),MetaMap (fromList [("day",MetaString "26"),("month",MetaString "9"),("year",MetaString "2011")])]),("title",MetaInlines [Str "Title"]),("type",MetaInlines [Str "article-magazine"])])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 1}] [Str "Author",Space,Str "(",Str "2011",Str ")"]] +,Div ("",["references"],[]) [Para [Str "Author",Str ",",Space,Str "Ann",Str ".",Space,Str "2011",Str ".",Space,Str "\8220",Str "Title",Str ".",Str "\8221",Space,Emph [Str "Journal"],Str ",",Space,Str "September",Space,Str "24",Str "\8211",Str "26",Str "."]]] diff --git a/tests/issue7.in.native b/tests/issue7.in.native new file mode 100644 --- /dev/null +++ b/tests/issue7.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaList [MetaInlines [Str "Ann"]])])),("container-title",MetaInlines [Str "Journal"]),("id",MetaInlines [Str "item1"]),("issued",MetaList [MetaMap (fromList [("day",MetaString "24"),("month",MetaString "9"),("year",MetaString "2011")]),MetaMap (fromList [("day",MetaString "26"),("month",MetaString "9"),("year",MetaString "2011")])]),("title",MetaInlines [Str "Title"]),("type",MetaInlines [Str "article-magazine"])])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item1"]]] diff --git a/tests/issue70.expected.native b/tests/issue70.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue70.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("ISBN",MetaInlines [Str "9782503531465"]),("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Dinkova-Bruun"]),("given",MetaInlines [Str "Greti"])])]),("call-number",MetaInlines [Str "CB351",Space,Str ".F564",Space,Str "2009"]),("collection-number",MetaInlines [Str "50"]),("collection-title",MetaInlines [Str "Textes",Space,Str "et",Space,Str "\233tudes",Space,Str "du",Space,Str "moyen",Space,Str "\226ge"]),("container-title",MetaInlines [Str "Florilegium",Space,Str "mediaevale:",Space,Str "\201tudes",Space,Str "offertes",Space,Str "\224",Space,Str "Jacqueline",Space,Str "Hamesse",Space,Str "\224",Space,Str "l\8217occasion",Space,Str "de",Space,Str "son",Space,Str "\233m\233ritat"]),("editor",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Meirinhos"]),("given",MetaInlines [Str "Jos\233",Space,Str "Francisco"])]),MetaMap (fromList [("family",MetaInlines [Str "Weijers"]),("given",MetaInlines [Str "Olga"])])]),("event-place",MetaInlines [Str "Louvain-la-Neuve"]),("first-reference-note-number",MetaString "1"),("id",MetaInlines [Str "bruun:2009samuel"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "2009"]])])),("language",MetaInlines [Str "French"]),("page",MetaInlines [Str "155\8211\&174"]),("publisher",MetaInlines [Str "F\233d\233ration",Space,Str "Internationale",Space,Str "des",Space,Str "Instituts",Space,Str "d\8217\201tudes",Space,Str "M\233di\233vales"]),("publisher-place",MetaInlines [Str "Louvain-la-Neuve"]),("source",MetaInlines [Str "Library",Space,Str "of",Space,Str "Congress",Space,Str "ISBN"]),("title",MetaInlines [Str "Samuel",Space,Str "Presbyter",Space,Str "and",Space,Str "the",Space,Str "Glosses",Space,Str "to",Space,Str "His",Space,Str "Versification",Space,Str "of",Space,Str "Psalm",Space,Str "1:",Space,Str "An",Space,Str "Anti-Church",Space,Str "Invective?"]),("title-short",MetaInlines [Str "Samuel",Space,Str "Presbyter"]),("type",MetaInlines [Str "chapter"])]),MetaMap (fromList [("ISSN",MetaInlines [Str "0362-1529"]),("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Thorndike"]),("given",MetaInlines [Str "Lynn"])])]),("container-title",MetaInlines [Str "Traditio"]),("first-reference-note-number",MetaString "1"),("id",MetaInlines [Str "thorndike:1955unde"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1955"]])])),("language",MetaInlines [Str "Latin"]),("note",MetaInlines [Str "ArticleType:",Space,Str "research-article",Space,Str "/",Space,Str "Full",Space,Str "publication",Space,Str "date:",Space,Str "1955",Space,Str "/",Space,Str "Copyright",Space,Str "\169",Space,Str "1955",Space,Str "Fordham",Space,Str "University"]),("page",MetaInlines [Str "163\8211\&193"]),("source",MetaInlines [Str "JSTOR"]),("title",MetaInlines [Str "Unde",Space,Str "versus"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaInlines [Str "11"])])])]}) +[Para [Cite [Citation {citationId = "thorndike:1955unde", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1},Citation {citationId = "bruun:2009samuel", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 2}] [Str "(",Str "Thorndike",Space,Str "1955",Str ";",Space,Str "Dinkova-Bruun",Space,Str "2009",Str ")"]] +,Div ("",["references"],[]) [Para [Str "Dinkova-Bruun",Str ",",Space,Str "Greti",Str ".",Space,Str "2009",Str ".",Space,Str "\8220",Str "Samuel",Space,Str "Presbyter",Space,Str "and",Space,Str "the",Space,Str "Glosses",Space,Str "to",Space,Str "His",Space,Str "Versification",Space,Str "of",Space,Str "Psalm",Space,Str "1:",Space,Str "An",Space,Str "Anti-Church",Space,Str "Invective?",Str "\8221",Space,Str "In",Space,Emph [Str "Florilegium",Space,Str "mediaevale:",Space,Str "\201tudes",Space,Str "offertes",Space,Str "\224",Space,Str "Jacqueline",Space,Str "Hamesse",Space,Str "\224",Space,Str "l\8217occasion",Space,Str "de",Space,Str "son",Space,Str "\233m\233ritat"],Str ",",Space,Str "edited",Space,Str "by",Space,Str "Jos\233",Space,Str "Francisco",Space,Str "Meirinhos",Space,Str "and",Space,Str "Olga",Space,Str "Weijers",Str ",",Space,Str "155\8211\&74",Str ".",Space,Str "Textes",Space,Str "et",Space,Str "\233tudes",Space,Str "du",Space,Str "moyen",Space,Str "\226ge",Space,Str "50",Str ".",Space,Str "Louvain-la-Neuve",Str ":",Space,Str "F\233d\233ration",Space,Str "Internationale",Space,Str "des",Space,Str "Instituts",Space,Str "d\8217\201tudes",Space,Str "M\233di\233vales",Str "."],Para [Str "Thorndike",Str ",",Space,Str "Lynn",Str ".",Space,Str "1955",Str ".",Space,Str "\8220",Str "Unde",Space,Str "versus",Str ".",Str "\8221",Space,Emph [Str "Traditio"],Space,Str "11",Str ":",Space,Str "163\8211\&93",Str "."]]] diff --git a/tests/issue70.in.native b/tests/issue70.in.native new file mode 100644 --- /dev/null +++ b/tests/issue70.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("ISBN",MetaInlines [Str "9782503531465"]),("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Dinkova-Bruun"]),("given",MetaInlines [Str "Greti"])])]),("call-number",MetaInlines [Str "CB351",Space,Str ".F564",Space,Str "2009"]),("collection-number",MetaInlines [Str "50"]),("collection-title",MetaInlines [Str "Textes",Space,Str "et",Space,Str "\233tudes",Space,Str "du",Space,Str "moyen",Space,Str "\226ge"]),("container-title",MetaInlines [Str "Florilegium",Space,Str "mediaevale:",Space,Str "\201tudes",Space,Str "offertes",Space,Str "\224",Space,Str "Jacqueline",Space,Str "Hamesse",Space,Str "\224",Space,Str "l\8217occasion",Space,Str "de",Space,Str "son",Space,Str "\233m\233ritat"]),("editor",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Meirinhos"]),("given",MetaInlines [Str "Jos\233",Space,Str "Francisco"])]),MetaMap (fromList [("family",MetaInlines [Str "Weijers"]),("given",MetaInlines [Str "Olga"])])]),("event-place",MetaInlines [Str "Louvain-la-Neuve"]),("first-reference-note-number",MetaString "1"),("id",MetaInlines [Str "bruun:2009samuel"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "2009"]])])),("language",MetaInlines [Str "French"]),("page",MetaInlines [Str "155\8211\&174"]),("publisher",MetaInlines [Str "F\233d\233ration",Space,Str "Internationale",Space,Str "des",Space,Str "Instituts",Space,Str "d\8217\201tudes",Space,Str "M\233di\233vales"]),("publisher-place",MetaInlines [Str "Louvain-la-Neuve"]),("source",MetaInlines [Str "Library",Space,Str "of",Space,Str "Congress",Space,Str "ISBN"]),("title",MetaInlines [Str "Samuel",Space,Str "Presbyter",Space,Str "and",Space,Str "the",Space,Str "Glosses",Space,Str "to",Space,Str "His",Space,Str "Versification",Space,Str "of",Space,Str "Psalm",Space,Str "1:",Space,Str "An",Space,Str "Anti-Church",Space,Str "Invective?"]),("title-short",MetaInlines [Str "Samuel",Space,Str "Presbyter"]),("type",MetaInlines [Str "chapter"])]),MetaMap (fromList [("ISSN",MetaInlines [Str "0362-1529"]),("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Thorndike"]),("given",MetaInlines [Str "Lynn"])])]),("container-title",MetaInlines [Str "Traditio"]),("first-reference-note-number",MetaString "1"),("id",MetaInlines [Str "thorndike:1955unde"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1955"]])])),("language",MetaInlines [Str "Latin"]),("note",MetaInlines [Str "ArticleType:",Space,Str "research-article",Space,Str "/",Space,Str "Full",Space,Str "publication",Space,Str "date:",Space,Str "1955",Space,Str "/",Space,Str "Copyright",Space,Str "\169",Space,Str "1955",Space,Str "Fordham",Space,Str "University"]),("page",MetaInlines [Str "163\8211\&193"]),("source",MetaInlines [Str "JSTOR"]),("title",MetaInlines [Str "Unde",Space,Str "versus"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaInlines [Str "11"])])])]}) +[Para [Cite [Citation {citationId = "thorndike:1955unde", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "bruun:2009samuel", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@thorndike:1955unde;",Space,Str "@bruun:2009samuel]"]]] diff --git a/tests/issue75.expected.native b/tests/issue75.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue75.expected.native @@ -0,0 +1,13 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/apa.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaInlines [Str "John"])])]),("id",MetaInlines [Str "test"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "2006"]])])),("title",MetaInlines [Str "Test"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaInlines [Str "81"])])])]}) +[Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "p.",Space,Str "6"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "p.",Space,Str "6",Str ")"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "chap.",Space,Str "6"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 2}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "Chapter",Space,Str "6",Str ")"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "n.",Space,Str "6"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 3}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "n.",Space,Str "6",Str ")"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "pp.",Space,Str "34-36,",Space,Str "38-39"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 4}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "pp.",Space,Str "34\8211\&36,",Space,Str "38\8211\&39",Str ")"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "sec.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 5}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "sec.",Space,Str "3",Str ")"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "p.3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 6}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "p.",Space,Str "3",Str ")"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "33-35,",Space,Str "38-39"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 7}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "pp.",Space,Str "33\8211\&35,",Space,Str "38\8211\&39",Str ")"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "14"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 8}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "p.",Space,Str "14",Str ")"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Space,Str "bk.",Space,Str "VI"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 9}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "bk.",Space,Str "VI",Str ")"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "no.",Space,Str "6"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 10}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "no.",Space,Str "6",Str ")"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "nos.",Space,Str "6",Space,Str "and",Space,Str "7"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 11}] [Str "(",Str "Doe",Str ",",Space,Str "2006",Str ",",Space,Str "nos.",Space,Str "6",Space,Str "and",Space,Str "7",Str ")"]] +,Div ("",["references"],[]) [Para [Str "Doe",Str ",",Space,Str "J",Str ".",Space,Str "(",Str "2006",Str ")",Str ".",Space,Str "Test",Str ",",Space,Emph [Str "81"],Str "."]]] diff --git a/tests/issue75.in.native b/tests/issue75.in.native new file mode 100644 --- /dev/null +++ b/tests/issue75.in.native @@ -0,0 +1,12 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/apa.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaInlines [Str "John"])])]),("id",MetaInlines [Str "test"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "2006"]])])),("title",MetaInlines [Str "Test"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaInlines [Str "81"])])])]}) +[Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "p.",Space,Str "6"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test,",Space,Str "p.",Space,Str "6]"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "chap.",Space,Str "6"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test,",Space,Str "chap.",Space,Str "6]"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "n.",Space,Str "6"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test,",Space,Str "n.",Space,Str "6]"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "pp.",Space,Str "34-36,",Space,Str "38-39"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test,",Space,Str "pp.",Space,Str "34-36,",Space,Str "38-39]"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "sec.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test,",Space,Str "sec.",Space,Str "3]"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "p.3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test,",Space,Str "p.3]"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "33-35,",Space,Str "38-39"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test,",Space,Str "33-35,",Space,Str "38-39]"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "14"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test,",Space,Str "14]"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Space,Str "bk.",Space,Str "VI"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test",Space,Str "bk.",Space,Str "VI]"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "no.",Space,Str "6"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test,",Space,Str "no.",Space,Str "6]"]] +,Para [Cite [Citation {citationId = "test", citationPrefix = [], citationSuffix = [Str ",",Space,Str "nos.",Space,Str "6",Space,Str "and",Space,Str "7"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@test,",Space,Str "nos.",Space,Str "6",Space,Str "and",Space,Str "7]"]]] diff --git a/tests/issue76.expected.native b/tests/issue76.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue76.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaInlines [Str "Al"])])]),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1998"]])])),("title",MetaInlines [Str "foo",Space,Str "bar",Space,Str "baz:",Space,Str "bazbaz",Space,Str "bar",Space,Str "foo"]),("type",MetaInlines [Str "article-journal"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaInlines [Str "Al"])])]),("id",MetaInlines [Str "item2"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1998"]])])),("title",MetaInlines [Str "foo",Space,Str "bar",Space,Str "baz:",Space,Str "the",Space,Str "bazbaz",Space,Str "bar",Space,Str "foo"]),("type",MetaInlines [Str "article-journal"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaInlines [Str "Al"])])]),("id",MetaInlines [Str "item3"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1998"]])])),("title",MetaInlines [Str "foo",Space,Str "bar",Space,Str "baz:",Space,Str "a",Space,Str "bazbaz",Space,Str "bar",Space,Str "foo"]),("type",MetaInlines [Str "article-journal"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaInlines [Str "Al"])])]),("id",MetaInlines [Str "item4"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1998"]])])),("title",MetaInlines [Str "foo",Space,Str "bar",Space,Str "baz:",Space,Str "an",Space,Str "abazbaz",Space,Str "bar",Space,Str "foo"]),("type",MetaInlines [Str "article-journal"])])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 1}] [Str "Author",Space,Str "(",Str "1998",Str "a",Str ")"],Str ",",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 2}] [Str "Author",Space,Str "(",Str "1998",Str "b",Str ")"],Str ",",Space,Cite [Citation {citationId = "item3", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 3}] [Str "Author",Space,Str "(",Str "1998",Str "c",Str ")"],Str ",",Space,Cite [Citation {citationId = "item4", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 4}] [Str "Author",Space,Str "(",Str "1998",Str "d",Str ")"]] +,Div ("",["references"],[]) [Para [Str "Author",Str ",",Space,Str "Al",Str ".",Space,Str "1998",Str "a",Str ".",Space,Str "\8220",Str "Foo",Space,Str "Bar",Space,Str "Baz",Str ":",Space,Str "Bazbaz",Space,Str "Bar",Space,Str "Foo",Str ".",Str "\8221"],Para [Str "\8212\8212\8212",Str ".",Space,Str "1998",Str "b",Str ".",Space,Str "\8220",Str "Foo",Space,Str "Bar",Space,Str "Baz",Str ":",Space,Str "The",Space,Str "Bazbaz",Space,Str "Bar",Space,Str "Foo",Str ".",Str "\8221"],Para [Str "\8212\8212\8212",Str ".",Space,Str "1998",Str "c",Str ".",Space,Str "\8220",Str "Foo",Space,Str "Bar",Space,Str "Baz",Str ":",Space,Str "A",Space,Str "Bazbaz",Space,Str "Bar",Space,Str "Foo",Str ".",Str "\8221"],Para [Str "\8212\8212\8212",Str ".",Space,Str "1998",Str "d",Str ".",Space,Str "\8220",Str "Foo",Space,Str "Bar",Space,Str "Baz",Str ":",Space,Str "An",Space,Str "Abazbaz",Space,Str "Bar",Space,Str "Foo",Str ".",Str "\8221"]]] diff --git a/tests/issue76.in.native b/tests/issue76.in.native new file mode 100644 --- /dev/null +++ b/tests/issue76.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaInlines [Str "Al"])])]),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1998"]])])),("title",MetaInlines [Str "foo",Space,Str "bar",Space,Str "baz:",Space,Str "bazbaz",Space,Str "bar",Space,Str "foo"]),("type",MetaInlines [Str "article-journal"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaInlines [Str "Al"])])]),("id",MetaInlines [Str "item2"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1998"]])])),("title",MetaInlines [Str "foo",Space,Str "bar",Space,Str "baz:",Space,Str "the",Space,Str "bazbaz",Space,Str "bar",Space,Str "foo"]),("type",MetaInlines [Str "article-journal"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaInlines [Str "Al"])])]),("id",MetaInlines [Str "item3"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1998"]])])),("title",MetaInlines [Str "foo",Space,Str "bar",Space,Str "baz:",Space,Str "a",Space,Str "bazbaz",Space,Str "bar",Space,Str "foo"]),("type",MetaInlines [Str "article-journal"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaInlines [Str "Al"])])]),("id",MetaInlines [Str "item4"]),("issued",MetaMap (fromList [("date-parts",MetaList [MetaList [MetaString "1998"]])])),("title",MetaInlines [Str "foo",Space,Str "bar",Space,Str "baz:",Space,Str "an",Space,Str "abazbaz",Space,Str "bar",Space,Str "foo"]),("type",MetaInlines [Str "article-journal"])])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item1"],Str ",",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item2"],Str ",",Space,Cite [Citation {citationId = "item3", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item3"],Str ",",Space,Cite [Citation {citationId = "item4", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item4"]]] diff --git a/tests/issue77.expected.native b/tests/issue77.expected.native new file mode 100644 --- /dev/null +++ b/tests/issue77.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/chicago-fullnote-bibliography.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaInlines [Str "John,",Space,Str "III"])])]),("id",MetaInlines [Str "item1"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "van",Space,Str "Gogh"]),("given",MetaInlines [Str "Vincent"])])]),("id",MetaInlines [Str "item2"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Humboldt"]),("given",MetaInlines [Str "Alexander",Space,Str "von"])])]),("id",MetaInlines [Str "item3"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Bennett"]),("given",MetaInlines [Str "Frank",Space,Str "G.,!",Space,Str "Jr."]),("parse-names",MetaBool True)])]),("id",MetaInlines [Str "item4"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Dumboldt"]),("given",MetaInlines [Str "Ezekiel,",Space,Str "III"]),("parse-names",MetaBool False)])]),("id",MetaInlines [Str "item5"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 2},Citation {citationId = "item3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 3},Citation {citationId = "item4", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 4},Citation {citationId = "item5", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 5}] [Note [Para [Str "John",Space,Str "Doe",Space,Str "III",Str ",",Space,Str "n.d.",Str ";",Space,Str "Vincent",Space,Str "van",Space,Str "Gogh",Str ",",Space,Str "n.d.",Str ";",Space,Str "Alexander",Space,Str "von",Space,Str "Humboldt",Str ",",Space,Str "n.d.",Str ";",Space,Str "Frank",Space,Str "G",Str ".",Space,Str "Bennett",Str ",",Space,Str "Jr.",Str ",",Space,Str "n.d.",Str ";",Space,Str "Ezekiel,",Space,Str "III",Space,Str "Dumboldt",Str ",",Space,Str "n.d.",Space]]]] +,Div ("",["references"],[]) [Para [Str "Bennett",Str ",",Space,Str "Frank",Space,Str "G",Str ".",Str ",",Space,Str "Jr.",Str ",",Space,Str "n.d."],Para [Str "Doe",Str ",",Space,Str "John",Str ",",Space,Str "III",Str ",",Space,Str "n.d."],Para [Str "Dumboldt",Str ",",Space,Str "Ezekiel,",Space,Str "III",Str ",",Space,Str "n.d."],Para [Str "Humboldt",Str ",",Space,Str "Alexander",Space,Str "von",Str ",",Space,Str "n.d."],Para [Str "van",Space,Str "Gogh",Str ",",Space,Str "Vincent",Str ",",Space,Str "n.d."]]] diff --git a/tests/issue77.in.native b/tests/issue77.in.native new file mode 100644 --- /dev/null +++ b/tests/issue77.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/chicago-fullnote-bibliography.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaInlines [Str "John,",Space,Str "III"])])]),("id",MetaInlines [Str "item1"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "van",Space,Str "Gogh"]),("given",MetaInlines [Str "Vincent"])])]),("id",MetaInlines [Str "item2"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Humboldt"]),("given",MetaInlines [Str "Alexander",Space,Str "von"])])]),("id",MetaInlines [Str "item3"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Bennett"]),("given",MetaInlines [Str "Frank",Space,Str "G.,!",Space,Str "Jr."]),("parse-names",MetaBool True)])]),("id",MetaInlines [Str "item4"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Dumboldt"]),("given",MetaInlines [Str "Ezekiel,",Space,Str "III"]),("parse-names",MetaBool False)])]),("id",MetaInlines [Str "item5"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "item3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "item4", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "item5", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "[@item1;",Space,Str "@item2;",Space,Str "@item3;",Space,Str "@item4;",Space,Str "@item5]"]]] diff --git a/tests/mhra.csl b/tests/mhra.csl new file mode 100644 --- /dev/null +++ b/tests/mhra.csl @@ -0,0 +1,399 @@ + + diff --git a/tests/mhra.expected.native b/tests/mhra.expected.native new file mode 100644 --- /dev/null +++ b/tests/mhra.expected.native @@ -0,0 +1,17 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/mhra.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaList [MetaInlines [Str "John"]])])),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("year",MetaString "2005")])),("publisher",MetaInlines [Str "Cambridge",Space,Str "University",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Cambridge"]),("title",MetaInlines [Str "First",Space,Str "Book"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaList [MetaInlines [Str "John"]])])),("container-title",MetaInlines [Str "Journal",Space,Str "of",Space,Str "Generic",Space,Str "Studies"]),("id",MetaInlines [Str "item2"]),("issued",MetaMap (fromList [("year",MetaString "2006")])),("page",MetaInlines [Str "33-34"]),("title",MetaInlines [Str "Article"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaString "6")]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaList [MetaInlines [Str "John"]])]),MetaMap (fromList [("family",MetaInlines [Str "Roe"]),("given",MetaList [MetaInlines [Str "Jenny"]])])]),("container-title",MetaInlines [Str "Third",Space,Str "Book"]),("editor",MetaMap (fromList [("family",MetaInlines [Str "Smith"]),("given",MetaList [MetaInlines [Str "Sam"]])])),("id",MetaInlines [Str "\1087\1091\1085\1082\1090\&3"]),("issued",MetaMap (fromList [("year",MetaString "2007")])),("publisher",MetaInlines [Str "Oxford",Space,Str "University",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Oxford"]),("title",MetaInlines [Str "Why",Space,Str "Water",Space,Str "Is",Space,Str "Wet"]),("type",MetaInlines [Str "chapter"])])])]}) +[Header 1 ("pandoc-with-citeproc-hs",[],[]) [Str "Pandoc",Space,Str "with",Space,Str "citeproc-hs"] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 1}] [Note [Para [Span ("",["citeproc-not-found"],[("data-reference-id","nonexistent")]) [Strong [Str "???"]]]]]] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 2}] [Note [Para [Span ("",["citeproc-not-found"],[("data-reference-id","nonexistent")]) [Strong [Str "???"]]]]]] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 3}] [Str "John",Space,Str "Doe",Str ".",Note [Para [Emph [Str "First",Space,Str "Book"],Space,Str "(",Str "Cambridge:",Space,Str "Cambridge",Space,Str "University",Space,Str "Press,",Space,Str "2005",Str ")",Str "."]]]] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 4}] [Str "Doe",Note [Para [Emph [Str "First",Space,Str "Book"],Str ",",Space,Str "p.",Space,Str "30",Str "."]]],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30,",Space,Str "with",Space,Str "suffix"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 5}] [Str "Doe",Note [Para [Emph [Str "First",Space,Str "Book"],Str ",",Space,Str "p.",Space,Str "30",Str ",",Space,Str "with",Space,Str "suffix",Str "."]]],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 6},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "30"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 7},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "see",Space,Str "also"], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 8}] [Str "Doe",Note [Para [Emph [Str "First",Space,Str "Book"],Str ";",Space,Str "\8216",Str "Article",Str "\8217",Str ",",Space,Emph [Str "Journal",Space,Str "of",Space,Str "Generic",Space,Str "Studies"],Str ",",Space,Str "6",Space,Str "(",Str "2006",Str ")",Str ",",Space,Str "33\8211\&34",Space,Str "(",Str "p.",Space,Str "30",Str ")",Str ";",Space,Str "see",Space,Str "also",Space,Str "John",Space,Str "Doe",Space,Str "a",Str "n",Str "d",Space,Str "Jenny",Space,Str "Roe",Str ",",Space,Str "\8216",Str "Why",Space,Str "Water",Space,Str "Is",Space,Str "Wet",Str "\8217",Str ",",Space,Str "in",Space,Emph [Str "Third",Space,Str "Book"],Str ",",Space,Str "ed.",Space,Str "by",Space,Str "Sam",Space,Str "Smith",Space,Str "(",Str "Oxford:",Space,Str "Oxford",Space,Str "University",Space,Str "Press,",Space,Str "2007",Str ")",Str "."]]],Space,Str "says",Space,Str "blah."] +,Para [Str "In",Space,Str "a",Space,Str "note.",Note [Para [Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "12"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 9}] [Str "Doe",Space,Str "and",Space,Str "Roe",Str ",",Space,Str "p.",Space,Str "12",Str ""],Space,Str "and",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "locators",Space,Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 10}] [Str "Doe",Space,Str "a",Str "n",Str "d",Space,Str "Roe",Str ""],Str "."]]] +,Para [Str "A",Space,Str "citation",Space,Str "group",Str ".",Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 11},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "also"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 12}] [Note [Para [Str "See",Space,Str "Doe",Str ",",Space,Emph [Str "First",Space,Str "Book"],Str ",",Space,Str "chap.",Space,Str "3",Str ";",Space,Str "also",Space,Str "Doe",Space,Str "a",Str "n",Str "d",Space,Str "Roe",Str ",",Space,Str "pp.",Space,Str "34\8211\&35",Str "."]]],Str ""] +,Para [Str "Another",Space,Str "one",Str ".",Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 13}] [Note [Para [Str "See",Space,Str "Doe",Str ",",Space,Emph [Str "First",Space,Str "Book"],Str ",",Space,Str "pp.",Space,Str "34\8211\&35",Str "."]]],Str ""] +,Para [Str "And",Space,Str "another",Space,Str "one",Space,Str "in",Space,Str "a",Space,Str "note.",Note [Para [Str "Some",Space,Str "citations",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 14},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 15},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 16}] [Str "see",Space,Str "Doe",Str ",",Space,Emph [Str "First",Space,Str "Book"],Str ",",Space,Str "chap.",Space,Str "3",Str ";",Space,Str "Doe",Space,Str "a",Str "n",Str "d",Space,Str "Roe",Str ";",Space,Str "Doe",Str ",",Space,Str "\8216Article\8217",Str ",",Space,Str "33\8211\&34",Str ""],Str "."]]] +,Para [Str "Citation",Space,Str "with",Space,Str "a",Space,Str "suffix",Space,Str "and",Space,Str "locator",Str ".",Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "pp.",Space,Str "33,",Space,Str "35-37,",Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 17}] [Note [Para [Str "Doe",Str ",",Space,Emph [Str "First",Space,Str "Book"],Str ",",Space,Str "pp.",Space,Str "33,",Space,Str "35\8211\&37",Str ",",Space,Str "and",Space,Str "nowhere",Space,Str "else",Str "."]]],Str ""] +,Para [Str "Citation",Space,Str "with",Space,Str "suffix",Space,Str "only",Str ".",Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 18}] [Note [Para [Str "Doe",Str ",",Space,Emph [Str "First",Space,Str "Book"],Space,Str "and",Space,Str "nowhere",Space,Str "else",Str "."]]],Str ""] +,Para [Str "Now",Space,Str "some",Space,Str "modifiers.",Note [Para [Str "Like",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "author:",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 19}] [Emph [Str "First",Space,Str "Book"],Str ""],Str ",",Space,Str "and",Space,Str "now",Space,Str "Doe",Space,Str "with",Space,Str "a",Space,Str "locator",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "44"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 20}] [Str "\8216",Str "Article",Str "\8217",Str ",",Space,Str "33\8211\&34",Space,Str "(",Str "p.",Space,Str "44",Str ")",Str ""],Str "."]]] +,Para [Str "With",Space,Str "some",Space,Str "markup",Str ".",Cite [Citation {citationId = "item1", citationPrefix = [Emph [Str "see"]], citationSuffix = [Space,Str "p.",Space,Strong [Str "32"]], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 21}] [Note [Para [Emph [Str "See"],Space,Str "Doe",Str ",",Space,Emph [Str "First",Space,Str "Book"],Str ",",Space,Str "p.",Space,Str "32",Str "."]]],Str ""] +,Div ("",["references"],[]) [Header 1 ("references",["unnumbered"],[]) [Str "References"],Para [Str "Doe,",Space,Str "John,",Space,Str "\8216Article\8217,",Space,Emph [Str "Journal",Space,Str "of",Space,Str "Generic",Space,Str "Studies"],Str ",",Space,Str "6",Space,Str "(2006),",Space,Str "33\8211\&34",Str "."],Para [Str "---,",Space,Emph [Str "First",Space,Str "Book"],Space,Str "(Cambridge:",Space,Str "Cambridge",Space,Str "University",Space,Str "Press,",Space,Str "2005)",Str "."],Para [Str "Doe,",Space,Str "John,",Space,Str "and",Space,Str "Jenny",Space,Str "Roe,",Space,Str "\8216Why",Space,Str "Water",Space,Str "Is",Space,Str "Wet\8217,",Space,Str "in",Space,Emph [Str "Third",Space,Str "Book"],Str ",",Space,Str "ed.",Space,Str "by",Space,Str "Sam",Space,Str "Smith",Space,Str "(Oxford:",Space,Str "Oxford",Space,Str "University",Space,Str "Press,",Space,Str "2007)",Str "."]]] diff --git a/tests/mhra.in.native b/tests/mhra.in.native new file mode 100644 --- /dev/null +++ b/tests/mhra.in.native @@ -0,0 +1,17 @@ +Pandoc (Meta {unMeta = fromList [("csl",MetaInlines [Str "tests/mhra.csl"]),("references",MetaList [MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaList [MetaInlines [Str "John"]])])),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("year",MetaString "2005")])),("publisher",MetaInlines [Str "Cambridge",Space,Str "University",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Cambridge"]),("title",MetaInlines [Str "First",Space,Str "Book"]),("type",MetaInlines [Str "book"])]),MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaList [MetaInlines [Str "John"]])])),("container-title",MetaInlines [Str "Journal",Space,Str "of",Space,Str "Generic",Space,Str "Studies"]),("id",MetaInlines [Str "item2"]),("issued",MetaMap (fromList [("year",MetaString "2006")])),("page",MetaInlines [Str "33-34"]),("title",MetaInlines [Str "Article"]),("type",MetaInlines [Str "article-journal"]),("volume",MetaString "6")]),MetaMap (fromList [("author",MetaList [MetaMap (fromList [("family",MetaInlines [Str "Doe"]),("given",MetaList [MetaInlines [Str "John"]])]),MetaMap (fromList [("family",MetaInlines [Str "Roe"]),("given",MetaList [MetaInlines [Str "Jenny"]])])]),("container-title",MetaInlines [Str "Third",Space,Str "Book"]),("editor",MetaMap (fromList [("family",MetaInlines [Str "Smith"]),("given",MetaList [MetaInlines [Str "Sam"]])])),("id",MetaInlines [Str "\1087\1091\1085\1082\1090\&3"]),("issued",MetaMap (fromList [("year",MetaString "2007")])),("publisher",MetaInlines [Str "Oxford",Space,Str "University",Space,Str "Press"]),("publisher-place",MetaInlines [Str "Oxford"]),("title",MetaInlines [Str "Why",Space,Str "Water",Space,Str "Is",Space,Str "Wet"]),("type",MetaInlines [Str "chapter"])])])]}) +[Header 1 ("pandoc-with-citeproc-hs",[],[]) [Str "Pandoc",Space,Str "with",Space,Str "citeproc-hs"] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"]] +,Para [Cite [Citation {citationId = "nonexistent", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"]] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "30,",Space,Str "with",Space,Str "suffix"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "30"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 0},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "see",Space,Str "also"], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "says",Space,Str "blah."] +,Para [Str "In",Space,Str "a",Space,Str "note.",Note [Para [Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "12"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "???"],Space,Str "and",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "locators",Space,Cite [Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."]]] +,Para [Str "A",Space,Str "citation",Space,Str "group",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [Str "also"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "Another",Space,Str "one",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "p.",Space,Str "34-35"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "And",Space,Str "another",Space,Str "one",Space,Str "in",Space,Str "a",Space,Str "note.",Note [Para [Str "Some",Space,Str "citations",Space,Cite [Citation {citationId = "item1", citationPrefix = [Str "see"], citationSuffix = [Space,Str "chap.",Space,Str "3"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "\1087\1091\1085\1082\1090\&3", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0},Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."]]] +,Para [Str "Citation",Space,Str "with",Space,Str "a",Space,Str "suffix",Space,Str "and",Space,Str "locator",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "pp.",Space,Str "33,",Space,Str "35-37,",Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "Citation",Space,Str "with",Space,Str "suffix",Space,Str "only",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Space,Str "and",Space,Str "nowhere",Space,Str "else"], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Para [Str "Now",Space,Str "some",Space,Str "modifiers.",Note [Para [Str "Like",Space,Str "a",Space,Str "citation",Space,Str "without",Space,Str "author:",Space,Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str ",",Space,Str "and",Space,Str "now",Space,Str "Doe",Space,Str "with",Space,Str "a",Space,Str "locator",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [Space,Str "p.",Space,Str "44"], citationMode = SuppressAuthor, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."]]] +,Para [Str "With",Space,Str "some",Space,Str "markup",Space,Cite [Citation {citationId = "item1", citationPrefix = [Emph [Str "see"]], citationSuffix = [Space,Str "p.",Space,Strong [Str "32"]], citationMode = NormalCitation, citationNoteNum = 0, citationHash = 0}] [Str "???"],Str "."] +,Header 1 ("references",["unnumbered"],[]) [Str "References"]] diff --git a/tests/modern-humanities-research-association.csl b/tests/modern-humanities-research-association.csl new file mode 100644 --- /dev/null +++ b/tests/modern-humanities-research-association.csl @@ -0,0 +1,445 @@ + + diff --git a/tests/no-author.expected.native b/tests/no-author.expected.native new file mode 100644 --- /dev/null +++ b/tests/no-author.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "A"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item2"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "B"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item3"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "C"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item4"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "D"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item5"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "E"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item4"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "D"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Newspaper"]),("id",MetaInlines [Str "item5"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "E"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Newspaper"]),("id",MetaInlines [Str "item6"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "F"]),("type",MetaInlines [Str "article-magazine"])])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "3"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 1}] [Str "(",Emph [Str "Magazine"],Space,Str "2012a,",Space,Str "3)"],Str ",",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 2}] [Str "(",Emph [Str "Magazine"],Space,Str "2012b)"],Str ",",Space,Cite [Citation {citationId = "item3", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 3}] [Str "(",Emph [Str "Magazine"],Space,Str "2012c)"],Str ",",Space,Cite [Citation {citationId = "item4", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 4}] [Str "(",Emph [Str "Magazine"],Space,Str "2012d)"],Str ",",Space,Cite [Citation {citationId = "item5", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 5}] [Str "(",Emph [Str "Magazine"],Space,Str "2012e)"],Str ",",Space,Cite [Citation {citationId = "item6", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 6}] [Str "(",Emph [Str "Newspaper"],Space,Str "2012)"]] +,Div ("",["references"],[]) [Para [Emph [Str "Magazine"],Str ".",Space,Str "2012a.",Space,Str "\8220Title",Space,Str "A.\8221"],Para [Emph [Str "Magazine"],Str ".",Space,Str "2012b.",Space,Str "\8220Title",Space,Str "B.\8221"],Para [Emph [Str "Magazine"],Str ".",Space,Str "2012c.",Space,Str "\8220Title",Space,Str "C.\8221"],Para [Emph [Str "Magazine"],Str ".",Space,Str "2012d.",Space,Str "\8220Title",Space,Str "D.\8221"],Para [Emph [Str "Magazine"],Str ".",Space,Str "2012e.",Space,Str "\8220Title",Space,Str "E.\8221"],Para [Emph [Str "Newspaper"],Str ".",Space,Str "2012.",Space,Str "\8220Title",Space,Str "F.\8221"]]] diff --git a/tests/no-author.in.native b/tests/no-author.in.native new file mode 100644 --- /dev/null +++ b/tests/no-author.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "A"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item2"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "B"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item3"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "C"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item4"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "D"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item5"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "E"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Magazine"]),("id",MetaInlines [Str "item4"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "D"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Newspaper"]),("id",MetaInlines [Str "item5"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "E"]),("type",MetaInlines [Str "article-magazine"])]),MetaMap (fromList [("container-title",MetaInlines [Str "Newspaper"]),("id",MetaInlines [Str "item6"]),("issued",MetaMap (fromList [("year",MetaString "2012")])),("title",MetaInlines [Str "Title",Space,Str "F"]),("type",MetaInlines [Str "article-magazine"])])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [Str "p.",Space,Str "3"], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item1",Space,Str "[p.",Space,Str "3]"],Str ",",Space,Cite [Citation {citationId = "item2", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item2"],Str ",",Space,Cite [Citation {citationId = "item3", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item3"],Str ",",Space,Cite [Citation {citationId = "item4", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item4"],Str ",",Space,Cite [Citation {citationId = "item5", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item5"],Str ",",Space,Cite [Citation {citationId = "item6", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item6"]]] diff --git a/tests/number-of-volumes.expected.native b/tests/number-of-volumes.expected.native new file mode 100644 --- /dev/null +++ b/tests/number-of-volumes.expected.native @@ -0,0 +1,3 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaList [MetaInlines [Str "Al"]])])),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("year",MetaString "2013")])),("language",MetaInlines [Str "en-US"]),("number-of-volumes",MetaString "2"),("publisher",MetaInlines [Str "Publisher"]),("publisher-place",MetaInlines [Str "Location"]),("title",MetaInlines [Str "Title"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 1}] [Str "Author",Space,Str "(",Str "2013",Str ")"]] +,Div ("",["references"],[]) [Para [Str "Author",Str ",",Space,Str "Al",Str ".",Space,Str "2013",Str ".",Space,Emph [Str "Title"],Str ".",Space,Str "2",Space,Str "vols.",Space,Str "Location",Str ":",Space,Str "Publisher",Str "."]]] diff --git a/tests/number-of-volumes.in.native b/tests/number-of-volumes.in.native new file mode 100644 --- /dev/null +++ b/tests/number-of-volumes.in.native @@ -0,0 +1,2 @@ +Pandoc (Meta {unMeta = fromList [("references",MetaList [MetaMap (fromList [("author",MetaMap (fromList [("family",MetaInlines [Str "Author"]),("given",MetaList [MetaInlines [Str "Al"]])])),("id",MetaInlines [Str "item1"]),("issued",MetaMap (fromList [("year",MetaString "2013")])),("language",MetaInlines [Str "en-US"]),("number-of-volumes",MetaString "2"),("publisher",MetaInlines [Str "Publisher"]),("publisher-place",MetaInlines [Str "Location"]),("title",MetaInlines [Str "Title"]),("type",MetaInlines [Str "book"])])])]}) +[Para [Cite [Citation {citationId = "item1", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 0, citationHash = 0}] [Str "@item1"]]] diff --git a/tests/science.csl b/tests/science.csl new file mode 100644 --- /dev/null +++ b/tests/science.csl @@ -0,0 +1,245 @@ + + diff --git a/tests/test-citeproc.hs b/tests/test-citeproc.hs new file mode 100644 --- /dev/null +++ b/tests/test-citeproc.hs @@ -0,0 +1,244 @@ +{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, FlexibleInstances, + ScopedTypeVariables #-} +import JSON +import Text.Printf +import System.Exit +import qualified Control.Exception as E +import Text.Pandoc +import Data.Char (isSpace, toLower) +import System.Environment (getArgs) +import System.Process +import System.IO.Temp (withSystemTempDirectory) +import Text.Pandoc.Definition (Inline(Span, Str)) +import Text.Pandoc.Generic +import Text.Pandoc.Walk +import Data.Maybe (mapMaybe) +import Data.Aeson +import Data.Aeson.Types (Parser) +import System.FilePath +import System.Directory +import Data.List (intercalate, sort, isInfixOf) +import qualified Data.Vector as V +import qualified Data.Map as M +import qualified Data.Text as T +import qualified Data.Text.Encoding as T +import Text.CSL.Style hiding (Number) +import Text.CSL.Reference +import Text.CSL +import Control.Monad +import Control.Applicative +import qualified Data.ByteString.Lazy as BL + +data TestCase = TestCase{ + testMode :: Mode -- mode + , testBibopts :: BibOpts -- bibsection + , testCitations :: [CiteObject] -- citations + , testCitationItems :: Citations -- citation-items + , testCsl :: Style -- csl + , testAbbreviations :: Abbreviations -- abbreviations + , testReferences :: [Reference] -- input + , testResult :: String -- result + } deriving (Show) + +data Mode = CitationMode + | BibliographyMode + | BibliographyHeaderMode + | BibliographyNoSortMode + deriving Show + +instance FromJSON Mode where + parseJSON (String "citation") = return CitationMode + parseJSON (String "bibliography") = return BibliographyMode + parseJSON (String "bibliography-header") = return BibliographyHeaderMode + parseJSON (String "bibliography-nosort") = return BibliographyNoSortMode + parseJSON _ = fail "Unknown mode" + +instance FromJSON TestCase where + parseJSON (Object v) = TestCase <$> + v .: "mode" <*> + v .:? "bibsection" .!= Select [] [] <*> + v .:? "citations" .!= [] <*> + v .:? "citation_items" .!= [] <*> + v .: "csl" <*> + v .:? "abbreviations" .!= (Abbreviations M.empty) <*> + v .: "input" <*> + v .: "result" + parseJSON _ = fail "Could not parse test case" + +newtype CiteObject = + CiteObject { unCiteObject :: [Cite] } deriving Show + +instance FromJSON CiteObject where + parseJSON (Array v) = + case fromJSON (Array v) of + Success [Object x, Array _, Array _] -> + CiteObject <$> x .: "citationItems" + Error e -> fail $ "Could not parse CiteObject: " ++ e + x -> fail $ "Could not parse CiteObject" ++ show x + parseJSON x = fail $ "Could not parse CiteObject " ++ show x + +instance FromJSON [CiteObject] where + parseJSON (Array v) = mapM parseJSON $ V.toList v + parseJSON _ = return [] + +data TestResult = + Passed + | Skipped + | Failed + | Errored + deriving (Show, Eq) + +testDir :: FilePath +testDir = "citeproc-test" "processor-tests" "machines" + +handleError :: FilePath -> E.SomeException -> IO TestResult +handleError path e = do + putStrLn $ "[ERROR] " ++ path ++ "\n" ++ show e + return Errored + +runTest :: FilePath -> IO TestResult +runTest path = E.handle (handleError path) $ do + raw <- BL.readFile path + let testCase = either error id $ eitherDecode raw + let procOpts = ProcOpts (testBibopts testCase) + style <- localizeCSL Nothing + $ (testCsl testCase) { styleAbbrevs = testAbbreviations testCase } + let refs = testReferences testCase + let cites = map unCiteObject (testCitations testCase) ++ testCitationItems testCase + let cites' = if null cites + then [map (\ref -> emptyCite{ citeId = unLiteral $ refId ref}) refs] + else cites + let expected = adjustEntities $ fixBegins $ trimEnd $ testResult testCase + let mode = testMode testCase + let assemble BibliographyMode xs = + "
\n" ++ + unlines (map (\x -> "
" ++ x ++ + "
") xs) ++ "
\n" + assemble _ xs = unlines xs + case mode of + BibliographyHeaderMode -> do + putStrLn $ "[SKIPPED] " ++ path ++ "\n" + return Skipped + BibliographyNoSortMode -> do + putStrLn $ "[SKIPPED] " ++ path ++ "\n" + return Skipped + _ -> do + let result = assemble mode + $ map (inlinesToString . renderPandoc style) $ + (case mode of {CitationMode -> citations; _ -> bibliography}) + $ citeproc procOpts style refs cites' + if result == expected + then do + putStrLn $ "[PASSED] " ++ path ++ "\n" + return Passed + else do + putStrLn $ "[FAILED] " ++ path + showDiff expected result + putStrLn "" + return Failed + +trimEnd :: String -> String +trimEnd = reverse . ('\n':) . dropWhile isSpace . reverse + +-- this is designed to mimic the test suite's output: +inlinesToString :: [Inline] -> String +inlinesToString ils = + writeHtmlString def{ writerWrapText = False } + $ bottomUp (concatMap adjustSpans) + $ Pandoc nullMeta [Plain ils] + +-- We want & instead of & etc. +adjustEntities :: String -> String +adjustEntities ('&':'#':'3':'8':';':xs) = "&" ++ adjustEntities xs +adjustEntities (x:xs) = x : adjustEntities xs +adjustEntities [] = [] + +-- citeproc-js test suite expects "citations" to be formatted like +-- .. [0] Smith (2007) +-- >> [1] Jones (2008) +-- To get a meaningful comparison, we remove this. +fixBegins :: String -> String +fixBegins = unlines . map fixLine . lines + where fixLine ('.':'.':'[':xs) = dropWhile isSpace $ dropWhile (not . isSpace) xs + fixLine ('>':'>':'[':xs) = dropWhile isSpace $ dropWhile (not . isSpace) xs + fixLine xs = xs + +-- adjust the spans so we fit what the test suite expects. +adjustSpans :: Inline -> [Inline] +adjustSpans (Note [Para xs]) = xs +adjustSpans (Link ils _) = ils +adjustSpans (Span ("",[],[]) xs) = xs +adjustSpans (Span ("",["nocase"],[]) xs) = xs +adjustSpans (Span ("",["citeproc-no-output"],[]) _) = + [Str "[CSL STYLE ERROR: reference with no printed form.]"] +adjustSpans (Span (id',classes,kvs) ils) = + [Span (id',classes',kvs') ils] + where classes' = filter (`notElem` ["csl-no-emph","csl-no-strong","csl-no-smallcaps"]) classes + kvs' = if null styles then kvs else (("style", concat styles) : kvs) + styles = ["font-style:normal;" | "csl-no-emph" `elem` classes] + ++ ["font-weight:normal;" | "csl-no-strong" `elem` classes] + ++ ["font-variant:normal;" | "csl-no-smallcaps" `elem` classes] +adjustSpans (Emph xs) = + RawInline (Format "html") "" : xs ++ [RawInline (Format "html") ""] +adjustSpans (Strong xs) = + RawInline (Format "html") "" : xs ++ [RawInline (Format "html") ""] +adjustSpans (SmallCaps xs) = + RawInline (Format "html") "" : xs ++ [RawInline (Format "html") ""] +adjustSpans x = [x] + +showDiff :: String -> String -> IO () +showDiff expected' result' = + withSystemTempDirectory "test-pandoc-citeproc-XXX" $ \fp -> do + let expectedf = fp "expected" + let actualf = fp "actual" + writeFile expectedf expected' + writeFile actualf result' + withDirectory fp $ void $ rawSystem "diff" ["-u","expected","actual"] + +withDirectory :: FilePath -> IO a -> IO a +withDirectory fp action = do + oldDir <- getCurrentDirectory + setCurrentDirectory fp + result <- action + setCurrentDirectory oldDir + return result + +main :: IO () +main = do + args <- getArgs + let matchesPattern x + | null args = True + | otherwise = any (`isInfixOf` (map toLower x)) + (map (map toLower . takeBaseName) args) + exists <- doesDirectoryExist testDir + unless exists $ do + putStrLn "Downloading test suite" + rawSystem "hg" ["clone", "https://bitbucket.org/bdarcus/citeproc-test"] + withDirectory "citeproc-test" $ + void $ rawSystem "python" ["processor.py", "--grind"] + + testFiles <- if any ('/' `elem`) args + then return args + else (map (testDir ) . sort . + filter matchesPattern . + filter (\f -> takeExtension f == ".json")) + <$> getDirectoryContents testDir + results <- mapM runTest testFiles + let numpasses = length $ filter (== Passed) results + let numskipped = length $ filter (== Skipped) results + let numfailures = length $ filter (== Failed) results + let numerrors = length $ filter (== Errored) results + putStrLn $ show numpasses ++ " passed; " ++ show numfailures ++ + " failed; " ++ show numskipped ++ " skipped; " ++ + show numerrors ++ " errored." + let summary = unlines $ zipWith (\fp res -> printf "%-10s %s" (show res) fp) testFiles results + when (null args) $ do -- write log if complete test suite run + ex <- doesFileExist "test-citeproc.log" + when ex $ do + putStrLn "Copying existing test-citeproc.log to test-citeproc.log.old" + copyFile "test-citeproc.log" "test-citeproc.log.old" + putStrLn "Writing test-citeproc.log." + writeFile "test-citeproc.log" summary + exitWith $ if numfailures == 0 + then ExitSuccess + else ExitFailure $ numfailures + numerrors diff --git a/tests/test-scholdoc-citeproc.hs b/tests/test-scholdoc-citeproc.hs new file mode 100644 --- /dev/null +++ b/tests/test-scholdoc-citeproc.hs @@ -0,0 +1,127 @@ +module Main where +import JSON +import System.Process +import System.Exit +import System.Directory +import System.FilePath +import Data.Maybe (fromMaybe) +import Text.Printf +import System.IO +import Data.Monoid (mempty) +import System.IO.Temp (withSystemTempDirectory) +import System.Process (rawSystem) +import Text.Printf +import qualified Data.Aeson as Aeson +import Text.Pandoc.Definition +import qualified Data.ByteString.Lazy.Char8 as BL +import qualified Data.ByteString.Char8 as B +import qualified Text.Pandoc.UTF8 as UTF8 +import Text.Pandoc.Shared (normalize) +import Text.Pandoc.Process (pipeProcess) +import qualified Data.Yaml as Yaml +import Text.Pandoc (writeNative, writeHtmlString, readNative, def) +import Text.CSL.Pandoc (processCites') +import Data.List (isSuffixOf) + +main = do + testnames <- fmap (map (dropExtension . takeBaseName) . + filter (".in.native" `isSuffixOf`)) $ + getDirectoryContents "tests" + citeprocTests <- mapM testCase testnames + fs <- filter (\f -> takeExtension f `elem` [".bibtex",".biblatex"]) + `fmap` getDirectoryContents "tests/biblio2yaml" + biblio2yamlTests <- mapM biblio2yamlTest fs + let allTests = citeprocTests ++ biblio2yamlTests + let numpasses = length $ filter (== Passed) allTests + let numskipped = length $ filter (== Skipped) allTests + let numfailures = length $ filter (== Failed) allTests + let numerrors = length $ filter (== Errored) allTests + putStrLn $ show numpasses ++ " passed; " ++ show numfailures ++ + " failed; " ++ show numskipped ++ " skipped; " ++ + show numerrors ++ " errored." + exitWith $ if numfailures == 0 && numerrors == 0 + then ExitSuccess + else ExitFailure $ numfailures + numerrors + +err :: String -> IO () +err = hPutStrLn stderr + +data TestResult = + Passed + | Skipped + | Failed + | Errored + deriving (Show, Eq) + +testCase :: String -> IO TestResult +testCase csl = do + hPutStr stderr $ "[" ++ csl ++ ".in.native] " + indataNative <- readFile $ "tests/" ++ csl ++ ".in.native" + expectedNative <- readFile $ "tests/" ++ csl ++ ".expected.native" + let jsonIn = Aeson.encode $ (read indataNative :: Pandoc) + let expectedDoc = normalize $ read expectedNative + + (ec, jsonOut, errout) <- pipeProcess + (Just [("LANG","en_US.UTF-8"),("HOME",".")]) + "dist/build/scholdoc-citeproc/scholdoc-citeproc" + [] jsonIn + if ec == ExitSuccess + then do + let outDoc = normalize $ fromMaybe mempty $ Aeson.decode $ jsonOut + if outDoc == expectedDoc + then err "PASSED" >> return Passed + else do + err $ "FAILED" + showDiff (UTF8.fromStringLazy $ writeNative def expectedDoc) + (UTF8.fromStringLazy $ writeNative def outDoc) + return Failed + else do + err "ERROR" + err $ "Error status " ++ show ec + err $ UTF8.toStringLazy errout + return Errored + +showDiff :: BL.ByteString -> BL.ByteString -> IO () +showDiff expected' result' = + withSystemTempDirectory "test-scholdoc-citeproc-XXX" $ \fp -> do + let expectedf = fp "expected" + let actualf = fp "actual" + BL.writeFile expectedf expected' + BL.writeFile actualf result' + oldDir <- getCurrentDirectory + setCurrentDirectory fp + rawSystem "diff" ["-U1","expected","actual"] + setCurrentDirectory oldDir + +biblio2yamlTest :: String -> IO TestResult +biblio2yamlTest fp = do + hPutStr stderr $ "[biblio2yaml/" ++ fp ++ "] " + let yamlf = "tests/biblio2yaml/" ++ fp + raw <- BL.readFile yamlf + let yamlStart = BL.pack "---" + let (biblines, yamllines) = break (== yamlStart) $ BL.lines raw + let bib = BL.unlines biblines + let expected = BL.unlines yamllines + (ec, result, errout) <- pipeProcess + (Just [("LANG","en_US.UTF-8"),("HOME",".")]) + "dist/build/scholdoc-citeproc/scholdoc-citeproc" + ["--bib2yaml", "-f", drop 1 $ takeExtension fp] bib + if ec == ExitSuccess + then do + let expectedDoc :: Maybe Aeson.Value + expectedDoc = Yaml.decode $ B.concat $ BL.toChunks expected + let resultDoc :: Maybe Aeson.Value + resultDoc = Yaml.decode $ B.concat $ BL.toChunks result + let result' = BL.fromChunks [Yaml.encode resultDoc] + let expected' = BL.fromChunks [Yaml.encode expectedDoc] + if expected' == result' + then err "PASSED" >> return Passed + else do + err $ "FAILED" + showDiff expected' result' + return Failed + else do + err "ERROR" + err $ "Error status " ++ show ec + err $ UTF8.toStringLazy errout + return Errored