Commit e07776e5 authored by pknaggs's avatar pknaggs
Browse files

Replaced F94 with F12 

Added word numbers for X-SIZE XC!+ XC!+? XC, XC-SIZE, XC@+ XCHAR+ XEMIT XKEY XKEY? +X/STRING -TRAILING-GARBAGE EKEY>XCHAR X-WIDTH WC-WIDTH XCHAR- XHOLD XSTRING-
parent 8114af25

xchar.tex

+23 −23
Original line number Original line Diff line number Diff line
@@ -191,8 +191,8 @@ in-memory string handling should work transparently with xchars. 




\section{Compliance and labeling} % 18.5

\section{Compliance and labeling} % 18.5





\cbstart\patch{F94}

\cbstart\patch{F12}

\subsection[Forth systems]{ANS\strike{3.5}{25} Forth systems} % 18.5.1

\subsection[Forth-\snapshot systems]{Forth-\snapshot\strike{-1}{25} systems} % 18.5.1

\cbend

\cbend





The phrase ``Providing the Extended Character word set'' shall be

The phrase ``Providing the Extended Character word set'' shall be
@@ -209,8 +209,8 @@ shall be appended to the label of any Standard System that provides 
all of the Extended Character and Extended Character Extensions

all of the Extended Character and Extended Character Extensions

word sets.

word sets.





\cbstart\patch{F94}

\cbstart\patch{F12}

\subsection[Forth programs]{ANS\strike{3.5}{25} Forth programs} % 18.5.2

\subsection[Forth-\snapshot programs]{Forth-\snapshot\strike{-1}{25} programs} % 18.5.2

\cbend

\cbend





The phrase ``Requiring the Extended Character word set'' shall be

The phrase ``Requiring the Extended Character word set'' shall be
@@ -231,7 +231,7 @@ Extended Character Extensions word sets. 




\subsection{Extended Character words} % 18.6.1

\subsection{Extended Character words} % 18.6.1





\begin{worddef}{}{X-SIZE}[][x:xchar]

\begin{worddef}{2486}[50]{X-SIZE}[][x:xchar]

\item \stack{xc-addr u_1}{u_2}

\item \stack{xc-addr u_1}{u_2}





	\param{u_2} is the number of pchars used to encode the first xchar

	\param{u_2} is the number of pchars used to encode the first xchar
@@ -256,7 +256,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{XC!+}[x-c-store-plus][x:xchar]

\begin{worddef}{2487}[10]{XC!+}[x-c-store-plus][x:xchar]

\item \stack{xchar xc-addr_1}{xc-addr_2}

\item \stack{xchar xc-addr_1}{xc-addr_2}





	Stores the \param{xchar} at \param{xc-addr_1}.  \param{xc-addr_2}

	Stores the \param{xchar} at \param{xc-addr_1}.  \param{xc-addr_2}
@@ -275,7 +275,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}[XC!+q]{}{XC!+?}[x-c-store-plus-query][x:xchar]

\begin{worddef}[XC!+q]{2487}[15]{XC!+?}[x-c-store-plus-query][x:xchar]

\item \stack{xchar xc-addr_1 u_1}{xc-addr_2 u_2 flag}

\item \stack{xchar xc-addr_1 u_1}{xc-addr_2 u_2 flag}





	Stores the \param{xchar} into the string buffer specified by

	Stores the \param{xchar} into the string buffer specified by
@@ -300,7 +300,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{XC,}[x-c-comma][x:xchar]

\begin{worddef}{2487}[20]{XC,}[x-c-comma][x:xchar]

\item \stack{xchar}{}

\item \stack{xchar}{}





	Append the encoding of \param{xchar} to the dictionary.

	Append the encoding of \param{xchar} to the dictionary.
@@ -313,7 +313,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{XC-SIZE}[x-c-size][x:xchar]

\begin{worddef}{2487}[25]{XC-SIZE}[x-c-size][x:xchar]

\item \stack{xchar}{u}

\item \stack{xchar}{u}





	\param{u} is the number of pchars used to encode \param{xchar} in memory.

	\param{u} is the number of pchars used to encode \param{xchar} in memory.
@@ -344,7 +344,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{XC@+}[x-c-fetch-plus][x:xchar]

\begin{worddef}{2487}[35]{XC@+}[x-c-fetch-plus][x:xchar]

\item \stack{xc-addr_1}{xc-addr_2 xchar}

\item \stack{xc-addr_1}{xc-addr_2 xchar}





	Fetches the \param{xchar} at \param{xc-addr_1}.  \param{xc-addr_2}

	Fetches the \param{xchar} at \param{xc-addr_1}.  \param{xc-addr_2}
@@ -376,13 +376,13 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{XCHAR+}[x-char-plus][x:xchar]

\begin{worddef}{2487}[40]{XCHAR+}[x-char-plus][x:xchar]

\item \stack{xc-addr_1}{xc-addr_2}

\item \stack{xc-addr_1}{xc-addr_2}





	Adds the size of the xchar stored at \param{xc-addr_1} to this address,

	Adds the size of the xchar stored at \param{xc-addr_1} to this address,

	giving \param{xc-addr_2}.

	giving \param{xc-addr_2}.





\see \wref{core:CHAR+}{}.

\see \remove{ed12}{\wref{core:CHAR+}{}.}





	\begin{implement}

	\begin{implement}

	\word{:} \word{XCHAR+} \word{p} xc-addr -{}- xc-addr' )  \word{XC@+} \word{DROP} \word{;}

	\word{:} \word{XCHAR+} \word{p} xc-addr -{}- xc-addr' )  \word{XC@+} \word{DROP} \word{;}
@@ -390,7 +390,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{XEMIT}[x-emit][x:xchar]

\begin{worddef}{2488}[10]{XEMIT}[x-emit][x:xchar]

\item \stack{xchar}{}

\item \stack{xchar}{}





	Prints an \param{xchar} on the terminal.

	Prints an \param{xchar} on the terminal.
@@ -410,7 +410,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{XKEY}[x-key][x:xchar]

\begin{worddef}{2488}[30]{XKEY}[x-key][x:xchar]

\item \stack{}{xchar}

\item \stack{}{xchar}





	Reads an \param{xchar} from the terminal.  This will discard all input

	Reads an \param{xchar} from the terminal.  This will discard all input
@@ -430,7 +430,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}[XKEYq]{}{XKEY?}[x-key-query][x:xchar]

\begin{worddef}[XKEYq]{2488}[35]{XKEY?}[x-key-query][x:xchar]

\item \stack{}{flag}

\item \stack{}{flag}





	\param{Flag} is true when it's possible to do \word{XKEY} without

	\param{Flag} is true when it's possible to do \word{XKEY} without
@@ -445,7 +445,7 @@ Extended Character Extensions word sets. 
\subsection{Extended Character extension words} % 18.6.2

\subsection{Extended Character extension words} % 18.6.2

\extended

\extended





\begin{worddef}{}{+X/STRING}[plus-x-string][x:xchar]

\begin{worddef}{0145}{+X/STRING}[plus-x-string][x:xchar]

\item \stack{xc-addr_1 u_1}{xc-addr_2 u_2}

\item \stack{xc-addr_1 u_1}{xc-addr_2 u_2}





	Step forward by one xchar in the buffer defined by \param{xc-addr_1 u_1}.

	Step forward by one xchar in the buffer defined by \param{xc-addr_1 u_1}.
@@ -459,7 +459,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{-TRAILING-GARBAGE}[minus-trailing-garbage][x:xchar]

\begin{worddef}{0175}{-TRAILING-GARBAGE}[minus-trailing-garbage][x:xchar]

\item \stack{xc-addr u_1}{xc-addr u_2}

\item \stack{xc-addr u_1}{xc-addr u_2}





	Examine the last xchar in the string \param{xc-addr u_1} --- if the

	Examine the last xchar in the string \param{xc-addr u_1} --- if the
@@ -500,7 +500,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}[EKEYtoXCHAR]{}{EKEY>XCHAR}[e-key-to-x-char][x:xchar]

\begin{worddef}[EKEYtoXCHAR]{1306}[60]{EKEY>XCHAR}[e-key-to-x-char][x:xchar]

\item \stack{x}{xchar true | x false}

\item \stack{x}{xchar true | x false}





	If the keyboard event \param{x} corresponds to an xchar, return the

	If the keyboard event \param{x} corresponds to an xchar, return the
@@ -528,7 +528,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{X-WIDTH}[][x:xchar]

\begin{worddef}{2486}[70]{X-WIDTH}[][x:xchar]

\item \stack{xc-addr u}{n}

\item \stack{xc-addr u}{n}





	\param{n} is the number of monospace ASCII characters that take the same

	\param{n} is the number of monospace ASCII characters that take the same
@@ -545,7 +545,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{XC-WIDTH}[x-c-width][x:xchar]

\begin{worddef}{2487}[30]{XC-WIDTH}[x-c-width][x:xchar]

\item \stack{xchar}{n}

\item \stack{xchar}{n}





	\param{n} is the number of monospace ASCII characters that take the same

	\param{n} is the number of monospace ASCII characters that take the same
@@ -710,7 +710,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{XCHAR-}[x-char-minus][x:xchar]

\begin{worddef}{2487}[45]{XCHAR-}[x-char-minus][x:xchar]

\item \stack{xc-addr_1}{xc-addr_2}

\item \stack{xc-addr_1}{xc-addr_2}





	Goes backward from \param{xc-addr_1} until it finds an xchar so that the

	Goes backward from \param{xc-addr_1} until it finds an xchar so that the
@@ -725,7 +725,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}{}{XHOLD}[x-hold][x:xchar]

\begin{worddef}{2488}[20]{XHOLD}[x-hold][x:xchar]

\item \stack{xchar}{}

\item \stack{xchar}{}





	Adds \param{xchar} to the picture numeric output string.  An ambiguous

	Adds \param{xchar} to the picture numeric output string.  An ambiguous
@@ -743,7 +743,7 @@ Extended Character Extensions word sets. 
\end{worddef}

\end{worddef}









\begin{worddef}[XSTRING-]{}{X\bs{}STRING-}[x-string-minus][x:xchar]

\begin{worddef}[XSTRING-]{2495}{X\bs{}STRING-}[x-string-minus][x:xchar]

\item \stack{xc-addr u_1}{xc-addr u_2}

\item \stack{xc-addr u_1}{xc-addr u_2}





	Search for the penultimate xchar in the string \param{xc-addr u_1}.

	Search for the penultimate xchar in the string \param{xc-addr u_1}.