*** empty log message *** (0e71cefd) · Commits · Bernd Paysan / forth-standard

core.tex

+2 −2

Original line number	Diff line number	Diff line
		@@ -2509,7 +2509,7 @@
		condition exists if the most recent definition does not have a
		name or if it was defined as a \word[tools]{SYNONYM}.

		\see \wref{tools:SYNONYM},
		\see \wref{tools:SYNONYM}{},
		\rref{core:IMMEDIATE}{},
		\xref[D.6.7 Immediacy]{diff:immediate}.

		@@ -5539,7 +5539,7 @@
		\end{worddef}


		\begin{worddef}{2020}{PARSE-NAME}[][X:parse-name]
		\begin{worddef}{2010}{PARSE-NAME}[][X:parse-name]
		\item \stack{"<spaces>name<space>"}{c-addr u}

		Skip leading space delimiters. Parse \param{name} delimited by a

facility.tex

+1 −1

Original line number	Diff line number	Diff line
		@@ -693,7 +693,7 @@ to provide all of the Facility and Facility Extensions word sets.

		% -------------------------------------

		\begin{worddef}{1336}{END-STRUCTURE}[][X:structures]
		\begin{worddef}{1340}{END-STRUCTURE}[][X:structures]
		\item \stack{struct-sys +n}{}

		Terminate definition of a structure started by

file.tex

+2 −2

Original line number	Diff line number	Diff line
		@@ -962,7 +962,7 @@ provide all of the File Access and File Access Extensions word sets.
		\end{worddef}


		\begin{worddef}{1714}{INCLUDE}[][X:required]
		\begin{worddef}{1715}{INCLUDE}[][X:required]
		\item \stack{ix "name"}{jx}

		Skip leading white space and parse \param{name} delimited by a
		@@ -1064,7 +1064,7 @@ provide all of the File Access and File Access Extensions word sets.
		\end{worddef}


		\begin{worddef}{2144}[50]{REQUIRED}[][X:required]
		\begin{worddef}{2144}[15]{REQUIRED}[][X:required]
		\item \stack{ix c-addr u}{ix}

		If the file specified by \param{c-addr u} has been \word{INCLUDED}

history.sty

0 → 100644

+225 −0

Original line number	Diff line number	Diff line
		% history package
		%
		% Actually it should be called changes but that is already used by
		% the docstrip system.
		%
		% This is a first draft of a change history package and is not
		% ready for public distribution. It is provided on an "as you find
		% it" basis, and no support is offered.
		%
		% The code has been developed by Dr. Peter Knaggs.
		%
		% 0.1 PjK Original Code
		% 0.2 PjK Complete rewrite of original code
		% Introducing \@history@test
		% 0.3 PjK Added History Log
		% 0.4 PjK \@history@test now useable in inner paragraphs
		% Fixed problem with \openhistory
		% Added silent labelling on same page (\@history@label)

		\def\fileversion{0.4}
		\def\filedate{04 Aug 2007 17:08:00 BST}
		\def\filename{history.sty}
		\def\Copyright{Copyright (C) 2007 Peter Knaggs,
		University of Bournemouth, England}

		\NeedsTeXFormat{LaTeX2e}[1996/06/01]
		\ProvidesPackage{history}[2007/08/04]

		\typeout{Package `history' <\filedate>.}
		\typeout{\Copyright}

		\newif\if@history@final
		\DeclareOption{final}{\@history@finaltrue}
		\DeclareOption{draft}{\@history@finalfalse}

		\ExecuteOptions{draft}
		\ProcessOptions


		\RequirePackage[outerbars]{changebar}[2004/02/20]
		\setlength{\changebarwidth}{1pt}

		\RequirePackage[normalem]{ulem}[2000/05/26]


		% Define a file to record the changes / history
		\newwrite\@history@file
		\newif\if@history@open
		\@history@openfalse

		\newcommand{\openhistory}[1][\jobname.hst]{%
		\if@history@open
		\immediate\closeout\@history@file
		\fi
		\immediate\openout\@history@file=#1
		\@history@opentrue
		\typeout{Writing Change History to #1}
		}

		\newcommand{\closehistory}{%
		\if@history@open
		\immediate\closeout\@history@file
		\@history@openfalse
		\fi
		}


		% Define a list of accepted changes
		\def\@history@accepted{}
		\def\accept#1{\edef\@history@accepted{\zap@space#1 \@empty,\@history@accepted}}
		\@onlypreamble\accept

		% Define a list of rejected changes
		\def\@history@rejected{}
		\def\reject#1{\edef\@history@rejected{\zap@space#1 \@empty,\@history@rejected}}
		\@onlypreamble\reject


		\newcommand{\listaccepted}{%
		\@for\temp@a:=\@history@accepted\do{\temp@a }
		}

		\newcommand{\listrejected}{%
		\@for\temp@a:=\@history@rejected\do{\temp@a }
		}


		\newcommand{\@history@nolabel}{\@latex@error
		{Change on line \the\inputlineno\space has no label}
		{Give the damn thing a label.}%
		}

		\newcommand{\@history@review}{\@latex@error
		{The change \temp@a\space is neither accepted or rejected}
		{Add the change label to either the \noexpand\accept or \noexpand\reject list.}%
		}


		% The \@history@label macro is used to hold the last displayed label.
		% It is used to control the printing of the change label in the margin
		% note.

		\def\@history@label{}

		% The \@history@test macro is the work horse of this package. It take
		% a number of parameters as follows:
		%
		% label: The label of a change (may be left blank)
		% accept: The Latex code required to typeset the change if it has been
		% accepted
		% reject: The LaTeX code for typesetting the change if it was rejected
		% review: The code to typeset a change under review
		%
		% log: the log entry text
		%
		% If the label is blank a warning will be produced.

		\newif\if@tempswb

		\newcommand{\@history@test}[5]{% {label}{accept}{reject}{review}{log}
		\edef\temp@a{#1}% Remember the change label
		\@tempswatrue % Change Processed
		\@tempswbfalse % Don't Log the change
		%
		\ifx\temp@a\empty % The label is empty
		\if@history@final
		\@history@nolabel
		\fi
		\def\temp@a{noname}%
		\fi
		%
		% Change is accepted
		%
		\@for\temp@b:=\@history@accepted\do
		{\ifx\temp@a\temp@b
		\@tempswafalse % Change shown
		\@tempswbtrue % Log the change
		{#2}% % Show the accepted text
		\fi}%
		%
		% Change is rejected
		%
		\@for\temp@b:=\@history@rejected\do
		{\ifx\temp@a\temp@b
		\@tempswafalse % Change Shown
		{#3}% % Show the rejected text
		\fi}%
		%
		% Neither Accepted or Rejected, so must be in review
		%
		\if@tempswa
		\if@history@final
		% Review in a Final revision - Something wrong with this
		\@history@review
		\fi
		\@tempswbtrue% Log the review
		\ifinner\@tempswatrue\else\@tempswafalse\fi
		\cbstart% Start the change bar
		\if@tempswa
		% We are in an inner paragraph
		% Fix the extra vspace \cbstart puts in for us.
		\vspace*{-0.5\baselineskip}%
		\fi%
		{#4}% Output the change text
		\if@tempswa
		% Margin par is not allowed in an inner paragraph
		\else
		% Make up the last displayed label, on this page
		\edef\temp@b{\thepage.\temp@a}
		% Have we seen this label before?
		\ifx\temp@b\@history@label
		% Yes - then ignore the label
		\else
		% No - Must be a either a new label, or the
		% first label on this page. Output the label
		\marginpar{\tiny\temp@a{\color{white}c:b}}
		% Remember the label for next time.
		\edef\@history@label{\temp@b}
		\fi
		\fi
		\cbend% Make the end of the Change bar
		\fi
		%
		% Write a log entry
		%
		\if@history@open
		\if@tempswb
		\immediate\write\@history@file{%
		\string\@historylog@%
		{\temp@a}% Change Label
		{\thepage}% Page Number
		{\@currentlabel}%
		#5% Log entry
		}%
		\fi
		\fi
		}


		\newcommand{\place}[2]{% {label}{text}
		\@history@test%
		{#1}% Change Label
		{#2}% Accepted text
		{}% Rejected text
		{\uline{#2}}% Review text
		{place{#2}}% Log text
		}

		\newcommand{\remove}[2]{% {label}{text}
		\@history@test%
		{#1}% Change Label
		{}% Accepted text
		{#2}% Rejected text
		{\sout{#2}}% Review text
		{remove{#2}}% Log text
		}

		\newcommand{\replace}[3]{% {label}{old}{new}
		\@history@test%
		{#1}% Change Label
		{#3}% Accepted text
		{#2}% Rejected text
		{\sout{#2}\uline{#3}}% Review text
		{replace{#2}{#3}}% Log text
		}

locals.tex

+1 −1

Original line number	Diff line number	Diff line
		@@ -342,7 +342,7 @@ to provide all of the Locals and Locals Extensions word sets.

		Parse \param{ccc} according to the following syntax:
		\begin{center}
		\word{b:} \arg{arg}* [\textbf{\textbar} \arg{val}] [\textbf{--\,--} \arg{out}] \textbf{:\}"}
		\word{b:} \arg{arg}* [\textbf{\textbar} \arg{val}] [\textbf{--\,--} \arg{out}] \textbf{:\}}
		\end{center}
		where \arg{arg}, \arg{val} and \arg{out} are local names, and
		\param{i} is the number of \arg{arg} names given.