summaryrefslogtreecommitdiff
path: root/macros/plain/formats/texsis/styles/paradox.txs
diff options
context:
space:
mode:
Diffstat (limited to 'macros/plain/formats/texsis/styles/paradox.txs')
-rw-r--r--macros/plain/formats/texsis/styles/paradox.txs167
1 files changed, 167 insertions, 0 deletions
diff --git a/macros/plain/formats/texsis/styles/paradox.txs b/macros/plain/formats/texsis/styles/paradox.txs
new file mode 100644
index 0000000000..7c60c94ad7
--- /dev/null
+++ b/macros/plain/formats/texsis/styles/paradox.txs
@@ -0,0 +1,167 @@
+%% file: paradox.txs (TeXsis version 2.17)
+% $Revision: 1.3 $ : $Date: 1996/12/20 18:17:30 $ : Author: T.C. Pearce
+%========================================================================*
+% FILE - PARADOX.TXS AUTHOR - T.C. PEARCE
+% Engineering Department, University of Derby. (t.c.pearce@derby.ac.uk)
+%
+% These macros have been created for the interpretation of literature
+% database info from Borland Paradox 3.5. It is intended for use under
+% TeXsis 2.17 where a reference has the following form. However, they may
+% be used for any database that can be persuaded to output fields in the
+% following format
+%
+% \referencelist % } Standard Texsis Reference
+% % ..................
+% \reference{Tag Identifier for reference} % } format
+% % Begin reference text or in the case of these macros assign fields to
+% % appropriate macros definitions
+%
+% \Authors .....\EndAuthors % List all authors in following format
+% % Pearce T.C., Burrows W.S., , for all authors
+% % ** Entry must end with , ,
+% % use of \etaltrue will omit all but the first
+% % author. Defaults to false i.e. all authors
+% % listed
+%
+%
+% \ReferenceType.....\EndReferenceType
+% % States desired type of reference
+% % Two forms :
+% % Journal - Gives Author, Journal, Year,
+% % Volume, Part*, Pages
+% % (English style journal citations)
+% % Book - Gives Author [et al] in BookTitle,
+% % Volume*, Part*, Host Editors*,
+% % Pages in Book, Place of
+% % Publication*, Publishers*,
+% % Year.
+% % (English style article-in-book citations)
+% % * Optional inclusions. Essential fields will
+% % cause WARNINGS during compilation and ????
+% % under reference if absent !
+% % Must be specified precisely as Journal or Book
+%
+%
+% \Title.....\EndTitle % Title of Article in Journal or Book
+% % Normally suppressed unless \AddTitles is called
+% % in which case it is inserted in with
+% % the reference after the author
+%
+% \JournalBook....\EndJournalBook
+% % Name of Journal or Book Title
+% \Place....\EndPlace % Place of publication (Only does anything for
+% % Books)
+% \Publisher.....\EndPublisher
+% % Publishing organisation (Only does anything for
+% % Books)
+% \Year....\EndYear % Year of publication
+% \Volume...\EndYear % Volume Number
+% \Part...\EndPart % Part Number
+% \Pages....\EndPages % Pages Numbers
+% \HostAuthor....\EndHostAuthor
+% % Host Editors (Only does anything for Books)
+% \CompileReference % Command to format this reference
+% \endreference
+% % ................
+% \endreferencelist
+%
+%
+% Example of a straightforward journal reference :
+%
+% \reference{Abe,Automated}\Authors Abe H., Yoshimura T., ,\EndAuthors
+% \ReferenceType Journal\EndReferenceType\Title Automated odor-sensing system
+% based on plural semiconductor gas sensors and computerized pattern recognition
+% techniques\EndTitle
+% \JournalBook Analytica Chimica Acta\EndJournalBook\Part \EndPart
+% \Publisher [NOT NEEDED]\EndPublisher\Year 1987\EndYear\Volume
+% 194\EndVolume\Place [NOT NEEDED]\EndPlace
+% \Pages 1-9\EndPages\HostAuthor [NOT NEEDED]\EndHostAuthor
+% \CompileReference\endreference
+%
+% Example of article in a book reference :
+%
+% \reference{Eric,Sensory ne}\Authors Erickson R.P., ,\EndAuthors
+% \ReferenceType Book\EndReferenceType\Title Sensory neural patterns and
+% gustation\EndTitle
+% \JournalBook Olfaction \& Taste\EndJournalBook\Part \EndPart
+% \Publisher Pergamon Press\EndPublisher\Year 1963\EndYear
+% \Volume \EndVolume\Place New York\EndPlace
+% \Pages 205-213\EndPages\HostAuthor Zotterman, Y. (ed.)\EndHostAuthor
+% \CompileReference\endreference
+%
+%
+% NOTE - CALLS TO these macros should be made even if fields are empty!
+% This is in accordance with Paradox and most other databases.
+%
+% (C) Copyright 1997 by T.C. Pearce, all rights reserved.
+%======================================================================*
+\message{[Paradox --> Texsis 2.17 Translation Macros T.C.P. 18.12.96]}
+%
+
+\def\Comma{,}
+\def\etal{{\it et al.}}
+\def\JournalReference{Journal}
+\def\ReferenceType#1\EndReferenceType{\def\RReferenceType{#1}}
+\def\Authors#1,#2,\EndAuthors{%
+ \def\FFirstAuthor{#1}\def\OOtherAuthors{#2}\FFirstAuthor}
+\def\Title#1\EndTitle{\def\TTitle{#1}}
+\def\JournalBook#1\EndJournalBook{\def\JJournalBook{#1}}
+\def\Place#1\EndPlace{\def\PPlace{#1}}
+\def\Publisher#1\EndPublisher{\def\PPublisher{#1}}
+\def\Year#1\EndYear{\def\YYear{#1}}
+\def\Volume#1\EndVolume{\def\VVolume{#1}}
+\def\Part#1\EndPart{\def\PPart{#1}}
+\def\Pages#1\EndPages{\def\PPages{#1}}
+\def\HostAuthor#1\EndHostAuthor{\def\HHostAuthor{#1}}
+
+\newif\ifJournal
+\newif\ifTitles
+\newif\ifAllAuthors
+\newif\ifetal
+\etalfalse
+\Titlestrue
+\AllAuthorstrue
+\newif\ifSingleAuthor
+
+\def\AddTitles{\Titlestrue}
+\def\TTestJournal{\ifx\JournalReference\RReferenceType\Journaltrue
+ \else\Journalfalse\fi}
+\def\CompileReference{\TTestJournal\ifJournal\CCompileJournal
+ \else\CCompileBook\fi}
+
+\def\CCompileJournal{%
+ \TTestSingleAuthor\ifetal{\ifSingleAuthor\space \else\space\etal, \fi}%
+ \else{\ifSingleAuthor\space \else , \OOtherAuthors\space\fi}\fi
+ \ifTitles\TTitle ,\space \fi
+ \ifx\JJournalBook\empty\relax\message{[WARNING - No Journal for reference]}%
+ \else{\it\JJournalBook, }\fi
+ \ifx\YYear\empty\relax\message{[WARNING - No Year for reference]}%
+ \else\YYear. \fi
+ \ifx\VVolume\empty\relax\message{[WARNING - No Volume for reference]}%
+ \else{\bf\VVolume}\fi
+ \ifx\PPart\empty{\ifx\VVolume\empty\relax \else . \fi}\else (\PPart). \fi
+ \ifx\PPages\empty\message{[WARNING - No Page numbers for reference]}%
+ \else\PPages\fi}
+
+\def\CCompileBook{%
+ \TTestSingleAuthor\ifetal{\ifSingleAuthor\space\else\space\etal , \fi}%
+ \else{\ifSingleAuthor\space \else , \OOtherAuthors\space\fi}\fi
+ \ifTitles{\ifx\TTitle\empty\else\TTitle ,\space\fi}\fi
+ \ifx\JJournalBook\empty{\message{[WARNING - No Book Name for reference]}}%
+ \else{\ifx\TTitle\empty\relax \else in \fi\booktitle{\JJournalBook}}\fi
+ \ifx\VVolume\empty\relax\else , Vol.\VVolume\fi
+ \ifx\PPart\empty . \else (\PPart). \fi
+ \ifx\HHostAuthor\empty\relax\else\HHostAuthor, \fi
+ \ifx\PPages\empty{\ifx\TTitle\empty\relax\else ????.
+ \message{[WARNING - No Page numbers for reference]}\fi}%
+ \else p.\PPages. \fi
+ \ifx\Place\empty\relax \else\PPlace\begingroup\ifx\Publisher\empty
+ \else: \fi\endgroup\fi
+ \ifx\PPublisher\empty\relax \else\PPublisher, \fi
+ \ifx\YYear\empty\relax\message{[WARNING - No Year for reference]}%
+ \else\stripblanks\YYear\endlist\tok\fi}
+
+\def\TTestSingleAuthor{\ifx\OOtherAuthors\Comma\SingleAuthortrue
+ \else\SingleAuthorfalse\fi}
+
+%>>> EOF paradox.txs <<<