summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/apa6/pseudoTeX
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/apa6/pseudoTeX
Initial commit
Diffstat (limited to 'macros/latex/contrib/apa6/pseudoTeX')
-rw-r--r--macros/latex/contrib/apa6/pseudoTeX/TeX2WordForapa6.bas405
-rw-r--r--macros/latex/contrib/apa6/pseudoTeX/apa6.ptex420
2 files changed, 825 insertions, 0 deletions
diff --git a/macros/latex/contrib/apa6/pseudoTeX/TeX2WordForapa6.bas b/macros/latex/contrib/apa6/pseudoTeX/TeX2WordForapa6.bas
new file mode 100644
index 0000000000..359c34ff79
--- /dev/null
+++ b/macros/latex/contrib/apa6/pseudoTeX/TeX2WordForapa6.bas
@@ -0,0 +1,405 @@
+%%
+%% This is file `./pseudoTeX/TeX2WordForapa6.bas',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% apa6.dtx (with options: `bas')
+%% ----------------------------------------------------------------------
+%%
+%% apa6 - A LaTeX class for formatting documents in compliance with the
+%% American Psychological Association's Publication Manual, 6th edition
+%%
+%% Copyright (C) 2011-2017 by Brian D. Beitzel <brian at beitzel.com>
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License (LPPL), either
+%% version 1.3c of this license or (at your option) any later
+%% version. The latest version of this license is in the file:
+%%
+%% http://www.latex-project.org/lppl.txt
+%%
+%% Users may freely modify these files without permission, as long as the
+%% copyright line and this statement are maintained intact.
+%%
+%% This work is not endorsed by, affiliated with, or probably even known
+%% by, the American Psychological Association.
+%%
+%% ----------------------------------------------------------------------
+%%
+Attribute VB_Name = "TeX2WordForapa6"
+Sub FormatTex2WordDocument()
+
+ Dim strRunningHead, r, E
+ Dim myrange As Range
+
+ strRunningHead = InputBox("Please type the running head:", "Running Head")
+ If strRunningHead = "" Then Exit Sub
+
+ Selection.EndKey Unit:=wdStory
+ Selection.InsertBreak Type:=wdPageBreak
+ Selection.TypeText Text:="References" & vbCrLf
+ Selection.MoveUp Unit:=wdLine, Count:=1
+ Selection.ParagraphFormat.LeftIndent = InchesToPoints(0)
+ Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
+
+ Selection.HomeKey Unit:=wdStory
+
+ Call FormatTex2WordPageHeader(strRunningHead)
+ Call FormatAndMoveTex2WordTables
+ Call FormatAndMoveTex2WordFigures
+
+ Selection.EndKey Unit:=wdStory
+ Selection.InsertBreak Type:=wdPageBreak
+ Selection.TypeText Text:="Appendix" & vbCrLf
+ Selection.MoveUp Unit:=wdLine, Count:=1
+ Selection.ParagraphFormat.LeftIndent = InchesToPoints(0)
+ Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
+
+ ' touch up temporary citations
+ Selection.HomeKey Unit:=wdStory
+
+ Selection.Find.ClearFormatting
+ Selection.Find.Replacement.ClearFormatting
+ With Selection.Find
+ .Text = "{\"
+ .Replacement.Text = "{"
+ .Forward = True
+ .Wrap = wdFindContinue
+ .Format = False
+ .MatchCase = False
+ .MatchWholeWord = False
+ .MatchWildcards = False
+ .MatchSoundsLike = False
+ .MatchAllWordForms = False
+ End With
+ Selection.Find.Execute Replace:=wdReplaceAll
+
+ With Selection.Find
+ .Text = "@}"
+ .Replacement.Text = "}"
+ .Forward = True
+ .Wrap = wdFindContinue
+ .Format = False
+ .MatchCase = False
+ .MatchWholeWord = False
+ .MatchWildcards = False
+ .MatchSoundsLike = False
+ .MatchAllWordForms = False
+ End With
+ Selection.Find.Execute Replace:=wdReplaceAll
+
+ With Selection.Find
+ .Text = "{e.g.,\"
+ .Replacement.Text = "{e.g.`, \"
+ .Forward = True
+ .Wrap = wdFindContinue
+ .Format = False
+ .MatchCase = False
+ .MatchWholeWord = False
+ .MatchWildcards = False
+ .MatchSoundsLike = False
+ .MatchAllWordForms = False
+ End With
+ Selection.Find.Execute Replace:=wdReplaceAll
+
+ With Selection.Find
+ .Text = "{i.e.,\"
+ .Replacement.Text = "{i.e.`, \"
+ .Forward = True
+ .Wrap = wdFindContinue
+ .Format = False
+ .MatchCase = False
+ .MatchWholeWord = False
+ .MatchWildcards = False
+ .MatchSoundsLike = False
+ .MatchAllWordForms = False
+ End With
+ Selection.Find.Execute Replace:=wdReplaceAll
+
+ With Selection.Find
+ .Text = "{cf.\"
+ .Replacement.Text = "{cf. \"
+ .Forward = True
+ .Wrap = wdFindContinue
+ .Format = False
+ .MatchCase = False
+ .MatchWholeWord = False
+ .MatchWildcards = False
+ .MatchSoundsLike = False
+ .MatchAllWordForms = False
+ End With
+ Selection.Find.Execute Replace:=wdReplaceAll
+
+ With Selection.Find
+ .Text = "@p. "
+ .Replacement.Text = "@"
+ .Forward = True
+ .Wrap = wdFindContinue
+ .Format = False
+ .MatchCase = False
+ .MatchWholeWord = False
+ .MatchWildcards = False
+ .MatchSoundsLike = False
+ .MatchAllWordForms = False
+ End With
+ Selection.Find.Execute Replace:=wdReplaceAll
+
+ With Selection.Find
+ .Text = "@pp. "
+ .Replacement.Text = "@"
+ .Forward = True
+ .Wrap = wdFindContinue
+ .Format = False
+ .MatchCase = False
+ .MatchWholeWord = False
+ .MatchWildcards = False
+ .MatchSoundsLike = False
+ .MatchAllWordForms = False
+ End With
+ Selection.Find.Execute Replace:=wdReplaceAll
+
+ ' for table footnotes
+ With Selection.Find
+ .Text = "[para,flushleft] "
+ .Replacement.Text = ""
+ .Forward = True
+ .Wrap = wdFindContinue
+ .Format = False
+ .MatchCase = False
+ .MatchWholeWord = False
+ .MatchWildcards = False
+ .MatchSoundsLike = False
+ .MatchAllWordForms = False
+ End With
+ Selection.Find.Execute Replace:=wdReplaceAll
+
+ ' remove extra spaces at the end of paragraphs
+ With Selection.Find
+ .Text = " ^p"
+ .Replacement.Text = "^p"
+ .Forward = True
+ .Wrap = wdFindContinue
+ .Format = False
+ .MatchCase = False
+ .MatchWholeWord = False
+ .MatchWildcards = False
+ .MatchSoundsLike = False
+ .MatchAllWordForms = False
+ End With
+ Selection.Find.Execute Replace:=wdReplaceAll
+
+ ' delete the instructions
+ Selection.HomeKey Unit:=wdStory
+
+ Set myrange = Selection.Range
+ myrange.Start = Selection.Start
+
+ Selection.HomeKey Unit:=wdStory
+ Selection.Find.ClearFormatting
+ With Selection.Find
+ .Execute findText:="Delete these instructions!", Forward:=True, Wrap:=wdFindStop
+ myrange.End = Selection.End + 1
+ myrange.Select
+ myrange.Delete
+ End With
+
+ Selection.HomeKey Unit:=wdStory
+
+End Sub
+
+Sub FormatTex2WordPageHeader(strRunningHead)
+
+ Dim r, E
+
+ ' set the first page to be a different header
+ ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
+
+ With ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)
+ .Range.ParagraphFormat.LineSpacingRule = wdLineSpaceDouble
+ .Range.ParagraphFormat.FirstLineIndent = InchesToPoints(0)
+ .Range.ParagraphFormat.TabStops.ClearAll
+ .Range.ParagraphFormat.TabStops.Add Position:=InchesToPoints(6.5), _
+ Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces
+ .Range.Text = "Running head: " & UCase(strRunningHead) & vbTab
+ With .Range.Font
+ .Name = "Times New Roman"
+ .Size = 12
+ .Bold = False
+ .Italic = False
+ End With
+
+ Set r = .Range
+ E = .Range.End
+ r.Start = E
+ .Range.Fields.Add r, wdFieldPage
+
+ End With
+
+ With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
+ .Range.ParagraphFormat.LineSpacingRule = wdLineSpaceDouble
+ .Range.ParagraphFormat.FirstLineIndent = InchesToPoints(0)
+ .Range.Text = UCase(strRunningHead)
+ .PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight
+ With .Range.Font
+ .Name = "Times New Roman"
+ .Size = 12
+ .Bold = False
+ .Italic = False
+ End With
+ End With
+
+End Sub
+
+Sub FormatAndMoveTex2WordTables()
+
+ Dim i, rngParagraphs As Range
+
+ If ActiveDocument.Tables.Count > 0 Then
+
+ For i = 1 To ActiveDocument.Tables.Count
+
+ Selection.HomeKey Unit:=wdStory
+
+ Set rngParagraphs = ActiveDocument.Range( _
+ Start:=ActiveDocument.Tables(1).Range.Start, _
+ End:=ActiveDocument.Tables(1).Range.End)
+ rngParagraphs.Select
+
+ With Selection.Tables(1)
+ .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
+ .Borders(wdBorderRight).LineStyle = wdLineStyleNone
+ With .Borders(wdBorderTop)
+ .LineStyle = wdLineStyleSingle
+ .LineWidth = wdLineWidth050pt
+ .Color = wdColorAutomatic
+ End With
+ With .Borders(wdBorderBottom)
+ .LineStyle = wdLineStyleSingle
+ .LineWidth = wdLineWidth050pt
+ .Color = wdColorAutomatic
+ End With
+ .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
+ .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
+ .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
+ .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
+ .Borders.Shadow = False
+ '.Rows.Alignment = wdAlignRowLeft
+ .PreferredWidthType = wdPreferredWidthPercent
+ .PreferredWidth = 100
+ .TopPadding = InchesToPoints(0.08)
+ .BottomPadding = InchesToPoints(0.08)
+ .LeftPadding = InchesToPoints(0.08)
+ .RightPadding = InchesToPoints(0.08)
+ .Spacing = 0
+ .AllowPageBreaks = True
+ .AllowAutoFit = False
+ End With
+
+ With Selection.ParagraphFormat
+ .LineSpacingRule = wdLineSpaceSingle
+ .LeftIndent = InchesToPoints(0)
+ .RightIndent = InchesToPoints(0)
+ .SpaceBefore = 0
+ .SpaceBeforeAuto = False
+ .SpaceAfter = 0
+ .SpaceAfterAuto = False
+ .WidowControl = False
+ .KeepWithNext = False
+ .KeepTogether = False
+ .PageBreakBefore = False
+ .NoLineNumber = False
+ .Hyphenation = True
+ .FirstLineIndent = InchesToPoints(0)
+ .CharacterUnitLeftIndent = 0
+ .CharacterUnitRightIndent = 0
+ .CharacterUnitFirstLineIndent = 0
+ .LineUnitBefore = 0
+ .LineUnitAfter = 0
+ .MirrorIndents = False
+ .TextboxTightWrap = wdTightNone
+ End With
+
+ rngParagraphs.Cut
+
+ Selection.EndKey Unit:=wdStory
+ Selection.InsertBreak Type:=wdPageBreak
+ Selection.TypeText Text:="Table " & i & vbCrLf
+ Selection.Paste
+
+ Next
+
+ End If
+
+End Sub
+
+Sub FormatAndMoveTex2WordFigures()
+
+ Dim i, rngParagraphs As Range
+
+ If ActiveDocument.InlineShapes.Count > 0 Then
+
+ For i = 1 To ActiveDocument.InlineShapes.Count
+
+ Selection.HomeKey Unit:=wdStory
+
+ Set rngParagraphs = ActiveDocument.Range( _
+ Start:=ActiveDocument.InlineShapes(1).Range.Start, _
+ End:=ActiveDocument.InlineShapes(1).Range.End)
+ rngParagraphs.Select
+ rngParagraphs.Cut
+
+ Selection.EndKey Unit:=wdStory
+ Selection.InsertBreak Type:=wdPageBreak
+ Selection.Paste
+ Selection.TypeText Text:=vbCrLf & "Figure " & i & vbCrLf
+
+ Next
+
+ End If
+
+End Sub
+%%
+%% Copyright (C) 2011-2017 by Brian D. Beitzel <brian at beitzel.com>
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License (LPPL), either
+%% version 1.3c of this license or (at your option) any later
+%% version. The latest version of this license is in the file:
+%%
+%% http://www.latex-project.org/lppl.txt
+%%
+%% Users may freely modify these files without permission, as long as the
+%% copyright line and this statement are maintained intact.
+%%
+%% This work is not endorsed by, affiliated with, or probably even known
+%% by, the American Psychological Association.
+%%
+%%
+%% This work is "maintained" (as per LPPL maintenance status) by
+%% Brian D. Beitzel.
+%%
+%% This work consists of the file apa6.dtx
+%% and the derived files apa6.ins,
+%% apa6.cls,
+%% apa6.pdf,
+%% README,
+%% APAamerican.txt,
+%% APAbritish.txt,
+%% APAdutch.txt,
+%% APAenglish.txt,
+%% APAgerman.txt,
+%% APAngerman.txt,
+%% APAgreek.txt,
+%% APAczech.txt,
+%% APAturkish.txt,
+%% APAendfloat.cfg,
+%% apa6.ptex,
+%% TeX2WordForapa6.bas,
+%% Figure1.pdf,
+%% shortsample.tex,
+%% longsample.tex, and
+%% bibliography.bib.
+%%
+%%
+%% End of file `./pseudoTeX/TeX2WordForapa6.bas'.
diff --git a/macros/latex/contrib/apa6/pseudoTeX/apa6.ptex b/macros/latex/contrib/apa6/pseudoTeX/apa6.ptex
new file mode 100644
index 0000000000..a7363d1dae
--- /dev/null
+++ b/macros/latex/contrib/apa6/pseudoTeX/apa6.ptex
@@ -0,0 +1,420 @@
+%%
+%% This is file `./pseudoTeX/apa6.ptex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% apa6.dtx (with options: `ptex')
+%% ----------------------------------------------------------------------
+%%
+%% apa6 - A LaTeX class for formatting documents in compliance with the
+%% American Psychological Association's Publication Manual, 6th edition
+%%
+%% Copyright (C) 2011-2017 by Brian D. Beitzel <brian at beitzel.com>
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License (LPPL), either
+%% version 1.3c of this license or (at your option) any later
+%% version. The latest version of this license is in the file:
+%%
+%% http://www.latex-project.org/lppl.txt
+%%
+%% Users may freely modify these files without permission, as long as the
+%% copyright line and this statement are maintained intact.
+%%
+%% This work is not endorsed by, affiliated with, or probably even known
+%% by, the American Psychological Association.
+%%
+%% ----------------------------------------------------------------------
+%%
+
+%% pseudo {apa6}
+%% Copyright (C) 2001-2011 Chikrii Softlab.
+%% All rights reserved.
+%% http://www.chikrii.com
+%% mailto: support@chikrii.com
+%% License: You are allowed to create your own translators based
+%% on the contents of this file solely for use with TeX2Word.
+%% Chikrii Softlab is not responsible for any damages caused by the
+%% use of this file or derived works.
+%%
+%% Modified by Brian Beitzel for the 'apa6' class
+%% Distributed with permission from Chikrii Softlab
+
+\DeclareOption{mask}{\def\apaSix@maskauthoridentity{\relax}}
+
+\ProcessOptions\relax
+
+\newenvironment{abstract}{\section*{\abstractname}}{\relax}
+
+\newenvironment{titlepage}{\relax}{\relax}
+\newcommand\appendix{\par
+ \setcounter{section}{0}%
+ \setcounter{subsection}{0}%
+ \gdef\thesection{\@Alph\c@section}}
+\renewcommand\theequation{\@arabic\c@equation}
+\renewcommand\thefigure{\@arabic\c@figure}
+\renewcommand\thetable{\@arabic\c@table}
+
+\newcommand\tableofcontents{\section*{\contentsname}\entity@toc@placeholder}
+\newcommand\listoffigures{\section*{\listfigurename}}
+\newcommand\listoftables{\section*{\listtablename}}
+
+\newenvironment{theindex}{\relax}{\relax}
+\newcommand\contentsname{Contents}
+\newcommand\listfigurename{List of Figures}
+\newcommand\listtablename{List of Tables}
+\newcommand\refname{References}
+\newcommand\indexname{Index}
+\newcommand\figurename{Figure}
+\newcommand\tablename{Table}
+\newcommand\partname{Part}
+\newcommand\appendixname{Appendix}
+\newcommand\abstractname{Abstract}
+\def\today{\ifcase\month\or
+ January\or February\or March\or April\or May\or June\or
+ July\or August\or September\or October\or November\or December\fi
+ \space\number\day, \number\year}
+
+\def\shorttitle#1{\gdef\@shorttitle{#1}\relax}
+\def\leftheader#1{\gdef\@leftheader{#1}\relax}
+\long\def\abstract#1{\gdef\@abstract{#1}\relax}
+\long\def\keywords#1{\gdef\@keywords{#1}\relax}
+\long\def\authornote#1{\gdef\@authornote{#1}\relax}
+\long\def\note#1{\gdef\@note{#1}\relax}
+
+\long\def\cmidrule#1{\gdef\@cmidrule{#1}}
+
+\newcommand{\tabfnm}[1]{\textsuperscript{#1}}
+\newcommand{\tabfnt}[1]{\textsuperscript{#1}}
+\newcommand{\tnote}[1]{\textsuperscript{#1}}
+
+\newcommand\table[1][tbp]{%
+\begingroup%
+ \entity@paragraph@first=0%
+\let\caption=\tab@caption}
+\def\endtable{\par\endgroup}
+
+\@namedef{caption*}#1{\entity@paragraph@new\entity@paragraph@just=1\relax%
+{\normalsize\rm{#1}\par}}
+\newcommand{\tab@caption}[2][?]{\refstepcounter{table}\entity@paragraph@new\relax%
+{\entity@paragraph@first=0\normalsize\rm{\tablename~\thetable\par{\it #2}\par}}%
+}
+\newcommand{\fig@caption}[2][?]{\refstepcounter{figure}\entity@paragraph@new\relax%
+{\entity@paragraph@first=0\normalsize\rm{{\it \figurename~\thefigure.}\space{#2}\par}}%
+}
+
+\newcommand\@secdef@nonum[7]{%
+ \begingroup%
+ \entity@paragraph@style=#1%
+ \entity@paragraph@span@font=0%
+ \entity@paragraph@just=#2%
+ \entity@paragraph@spacebefore=#3%
+ \entity@paragraph@spaceafter=#4%
+ \entity@paragraph@keepwithnext=1%
+ \entity@paragraph@linespacingmultiple=1%
+ \entity@paragraph@spacebetween=480%
+ \entity@paragraph@sbasedon=0\entity@paragraph@snext=0%
+ \relax #5\relax%
+ \stylesheet@style#1=#7; aka Heading #1;%
+ \endgroup%
+ \@namedef{#6}{%
+ \def\@sec@hook@setstyle{\entity@paragraph@style=#1\relax}%
+ \def\@sec@hook@refstepcounter{\relax}%
+ \def\@sec@hook@prefix{\relax}%
+ \@sec@hook}}
+
+\def\@sec@hook@paragraphlevel{%
+ \entity@paragraph@new%
+ \entity@paragraph@linespacingmultiple=1%
+ \entity@paragraph@spacebetween=480%
+ \@@sec@hook@paragraphlevel}
+\def\@@sec@hook@paragraphlevel{%
+ \@ifnextchar*{\@@@sec@hook@paragraphlevel}{\@@@@sec@hook@paragraphlevel}}
+\def\@@@sec@hook@paragraphlevel*#1{%
+ {\@sec@hook@setstyle{#1}\entity@paragraph@new}}
+\def\@@@@sec@hook@paragraphlevel{%
+ \@ifnextchar[{\@@@@@sec@hook@paragraphlevel}{\@@@@@@sec@hook@paragraphlevel}}
+\def\@@@@@sec@hook@paragraphlevel[#1]#2{%
+ {\@sec@hook@setstyle\@sec@hook@refstepcounter\@sec@hook@prefix{#2}.}}
+\def\@@@@@@sec@hook@paragraphlevel#1{%
+ {\@sec@hook@setstyle\@sec@hook@refstepcounter\@sec@hook@prefix{#1}.}}
+
+\newcommand\@secdef@nonum@paragraphlevel[7]{%
+ \begingroup%
+ \entity@paragraph@style=#1%
+ \entity@paragraph@just=1%
+ \entity@paragraph@span@font=0%
+ \entity@paragraph@sbasedon=0\entity@paragraph@snext=0%
+ \relax #5\relax%
+ \stylesheet@style#1=#7; aka Normal;%
+ \endgroup%
+ \@namedef{#6}{%
+ \def\@sec@hook@setstyle{\entity@paragraph@style=#1\relax}%
+ \def\@sec@hook@refstepcounter{\relax}%
+ \def\@sec@hook@prefix{\relax}%
+ \@sec@hook@paragraphlevel}}
+
+\@secdef@nonum{1}{3}{0}{0}{\normalsize\rm\bf}{section}{Section}
+\@secdef@nonum{2}{1}{0}{0}{\normalsize\rm\bf}{subsection}{Subsection}
+\@addtoreset{subsection}{section}
+\@secdef@nonum@paragraphlevel{3}{1}{0}{0}{\normalsize\rm\bf}{subsubsection}{Subsubsection}
+\@addtoreset{subsubsection}{subsection}
+\@secdef@nonum@paragraphlevel{4}{1}{0}{0}{\normalsize\rm\bf\it}{paragraph}{Paragraph}
+\@addtoreset{paragraph}{subsubsection}
+\@secdef@nonum@paragraphlevel{5}{1}{0}{0}{\normalsize\rm\it}{subparagraph}{Subparagraph}
+\@addtoreset{subparagraph}{paragraph}
+
+\newcommand\DeclareLanguageMapping[2]{}
+\newcommand\addbibresource[1]{}
+\newcommand\printbibliography{}
+
+\def\specialComma{,}
+\def\specialSemicolon{;}
+
+\catcode`\^^G=12
+\newcommand*{\doachar}[1]{%
+\if#1\specialComma\specialSemicolon\else#1\fi%%
+}
+\newcommand*{\makeCommaIntoSemicolon}[1]{%
+\def\stuff{#1}\ifx\stuff\@empty\else\@llchars#1^^G\fi}
+\def\@llchars#1#2^^G{%
+\def\letter{#1}\def\others{#2}%
+\ifx\letter\@empty\let\next\@gobble%
+\else%
+\doachar{#1}%
+\ifx\others\@empty \let\next\@gobble%
+\else \let\next\@llchars \fi%
+\fi%
+\next#2^^G}
+\catcode`\^^G=15
+
+\def\parencite{%
+ \@ifnextchar[%
+ {\@parencite}%
+ {\@parencite[]}%
+}
+\def\@parencite[#1]{%
+ \@ifnextchar[%
+ {\@@parencite[#1]}%
+ {\@@parencite[#1][]}%
+}
+\def\@@parencite[#1][#2]#3{%
+ \makeatletter%
+ {\{{{#1}\textbackslash}{\makeCommaIntoSemicolon{#3}}@{#2}\}}%
+ \makeatother%
+}
+
+\let\Parencite=\parencite
+\let\citep=\parencite
+\let\Citep=\parencite
+\let\citeyear=\parencite
+\let\citeyearpar=\parencite
+
+\def\textcite{%
+ \@ifnextchar[%
+ {\@textcite}%
+ {\@textcite[]}%
+}
+\def\@textcite[#1]{%
+ \@ifnextchar[%
+ {\@@textcite[#1]}%
+ {\@@textcite[#1][]}%
+}
+\def\@@textcite[#1][#2]#3{%
+ \makeatletter%
+ {\{ , , \makeCommaIntoSemicolon{#3}@{#2}@author-year\}}%
+ \makeatother%
+}
+\let\Textcite=\textcite
+
+\let\citet=\textcite
+\let\Citet=\textcite
+
+\let\citeA=\textcite
+
+\let\citeauthor=\textcite
+\let\Citeauthor=\textcite
+
+\let\citeyearNP=\textcite
+\let\citeNP=\textcite
+
+\@ifundefined{apaSix@maskauthoridentity}{% change masked references to unmasked
+
+ % \maskcite
+ \let\maskcite=\parencite
+
+ \let\maskparencite=\maskcite
+ \let\maskParencite=\maskparencite
+ \let\maskcitep=\maskparencite
+ \let\maskCitep=\maskparencite
+ \let\maskciteyear=\maskparencite
+ \let\maskciteyearpar=\maskparencite
+ \let\masktextcite=\maskparencite
+ \let\maskTextcite=\maskparencite
+ \let\maskcitet=\maskparencite
+ \let\maskCitet=\maskparencite
+ \let\maskciteA=\maskparencite
+ \let\maskciteauthor=\maskparencite
+ \let\maskCiteauthor=\maskparencite
+ \let\maskciteyearNP=\maskparencite
+ \let\maskciteNP=\maskparencite
+
+}{% mask references to author
+
+ % \maskcite
+ \newcommand\maskcite{\@ifnextchar[{\maskcite@@also}{\maskcite@@also[]}}
+ \newcommand\maskcite@@also{}
+ \def\maskcite@@also[#1]{\@ifnextchar[{\maskcite@@@also[#1]}{\maskcite@@@also[][#1]}}
+
+ \def\maskcite@@@also%
+ [#1][#2]#3{%
+ \def\apaSix@masked@refs{\it (citation(s) removed for masked review)}%
+ {\apaSix@masked@refs}%
+ }
+
+ \let\maskparencite=\maskcite
+ \let\maskParencite=\maskparencite
+ \let\maskcitep=\maskparencite
+ \let\maskCitep=\maskparencite
+ \let\maskciteyear=\maskparencite
+ \let\maskciteyearpar=\maskparencite
+
+ \let\masktextcite=\maskparencite
+ \let\maskTextcite=\maskparencite
+ \let\maskcitet=\maskparencite
+ \let\maskCitet=\maskparencite
+ \let\maskciteA=\maskparencite
+ \let\maskciteauthor=\maskparencite
+ \let\maskCiteauthor=\maskparencite
+ \let\maskciteyearNP=\maskparencite
+ \let\maskciteNP=\maskparencite
+
+}
+
+\long\def\maketitle{\entity@paragraph@new\begingroup\entity@paragraph@just=1\relax%
+{\raggedright\entity@paragraph@first=0\entity@paragraph@linespacingmultiple=0\entity@paragraph@spacebetween=240%
+{\bf INSTRUCTIONS:}\par\entity@paragraph@first=0%
+\begin{enumerate}%
+\item Insert page numbers (non-italic) in top right corner\par%
+\item Insert the following text on the left-hand side of the page header:\par%
+ \begin{itemize}%
+ \item Running head: \MakeUppercase{\@shorttitle}\par%
+ \end{itemize}%
+\item Adjust the vertical spacing on this title page to look appealing%
+\item Verify formatting accuracy of bibliographic entries and References list%
+\item Move each table and figure to its appropriate place at the end of the document%
+ \begin{itemize}%
+ \item {\it Note:} Captions are already formatted properly (above tables, below figures)
+ \end{itemize}%
+\item Format tables
+ \begin{itemize}%
+ \item {\it Hint:} Start by showing all borders, left-align, and make 100\% wide
+ \item See the .pdf version of the \LaTeX\ file to see how the table should look
+ \end{itemize}%
+\item The final pages must appear in this order:%
+ \begin{enumerate}%
+ \item References
+ \item Tables
+ \item Figures
+ \item Appendices
+ \end{enumerate}%
+\item Delete these instructions!%
+\end{enumerate}}%
+\@ifundefined{apaSix@maskauthoridentity}{%
+{\par\centering\entity@paragraph@first=0{\newline}\par}%
+{\centering\entity@paragraph@first=0%
+{\@title}\newline%
+{\@author}\newline%
+{\@affiliation}%
+ \newline{\@note}%
+\par%
+{%
+\@ifundefined{\@authornote}{}{%
+\par\entity@paragraph@first=0%
+\newline\newline\newline%
+{Author Note\par\par}%
+}%
+}%
+}%
+\@ifundefined{\@authornote}{}{%
+ {\entity@paragraph@first=720\@authornote}%
+}
+}{%
+{\par\centering\entity@paragraph@first=0{\newline}\par}%
+{\centering\entity@paragraph@first=0%
+{\@title}\newline%
+ \newline{\@note}%
+\par%
+}%
+ {\entity@paragraph@first=720\par}
+}%
+\newpage%
+{\centering\entity@paragraph@first=0{Abstract\par\par}}%
+{\entity@paragraph@first=0\@abstract\par}%
+{\entity@paragraph@first=720{\it Keywords:} \@keywords}%
+\newpage%
+{\entity@paragraph@new\begingroup\entity@paragraph@just=3\entity@paragraph@first=0\relax%
+ {\@title}%
+ \par\endgroup%
+}%
+\entity@paragraph@first=720%
+\endgroup}
+
+\entity@paragraph@just=1
+\entity@paragraph@first=720%
+\entity@paragraph@linespacingmultiple=1%
+\entity@paragraph@spacebetween=480%
+\stylesheet@style8=Normal; aka Normal;%
+
+\ProcessOptions
+
+\api@lockfile apa6
+
+\@@endinput
+
+
+%%
+%% Copyright (C) 2011-2017 by Brian D. Beitzel <brian at beitzel.com>
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License (LPPL), either
+%% version 1.3c of this license or (at your option) any later
+%% version. The latest version of this license is in the file:
+%%
+%% http://www.latex-project.org/lppl.txt
+%%
+%% Users may freely modify these files without permission, as long as the
+%% copyright line and this statement are maintained intact.
+%%
+%% This work is not endorsed by, affiliated with, or probably even known
+%% by, the American Psychological Association.
+%%
+%%
+%% This work is "maintained" (as per LPPL maintenance status) by
+%% Brian D. Beitzel.
+%%
+%% This work consists of the file apa6.dtx
+%% and the derived files apa6.ins,
+%% apa6.cls,
+%% apa6.pdf,
+%% README,
+%% APAamerican.txt,
+%% APAbritish.txt,
+%% APAdutch.txt,
+%% APAenglish.txt,
+%% APAgerman.txt,
+%% APAngerman.txt,
+%% APAgreek.txt,
+%% APAczech.txt,
+%% APAturkish.txt,
+%% APAendfloat.cfg,
+%% apa6.ptex,
+%% TeX2WordForapa6.bas,
+%% Figure1.pdf,
+%% shortsample.tex,
+%% longsample.tex, and
+%% bibliography.bib.
+%%
+%%
+%% End of file `./pseudoTeX/apa6.ptex'.