一般フォーラム

--- ptex-base.ch.orig Thu Mar 08 23:08:24 2012
+++ ptex-base.ch Sat Mar 10 07:41:53 2012
@@ -1483,17 +1483,6 @@
{|state| code at start of line}
@z

-@x [22.311] l.6986 - pTeX: label
-@p procedure show_context; {prints where the scanner is}
-label done;
-var old_setting:0..max_selector; {saved |selector| setting}
-@y
-@p procedure show_context; {prints where the scanner is}
-label done, done1;
-var old_setting:0..max_selector; {saved |selector| setting}
-@!s: pointer; {temporary pointer}
-@z
-
@x [22.316] l.7110 - pTeX: init kcode_pos
@d begin_pseudoprint==
begin l:=tally; tally:=0; selector:=pseudo;
@@ -1535,32 +1524,6 @@
for q:=1 to n do print_char(" "); {print |n| spaces to begin line~2}
if m+n<=error_line then p:=first_count+m else p:=first_count+(error_line-n-3);
if trick_buf2[(p-1) mod error_line]=1 then p:=p-1;
-@z
-
-@x [22.319] l.7157 - pTeX: adjust kanji code token
-@ @<Pseudoprint the token list@>=
-begin_pseudoprint;
-if token_type<macro then show_token_list(start,loc,100000)
-else show_token_list(link(start),loc,100000) {avoid reference count}
-@y
-@ @<Pseudoprint the token list@>=
-begin_pseudoprint;
-if token_type<macro then
- begin if (token_type=backed_up)and(loc<>null) then
- begin if (link(start)=null)and(check_kanji(info(start))) then {|wchar_token|}
- begin cur_input:=input_stack[base_ptr-1];
- s:=get_avail; info(s):=Lo(info(loc));
- cur_input:=input_stack[base_ptr];
- link(start):=s;
- show_token_list(start,loc,100000);
- free_avail(s);link(start):=null;
- goto done1;
- end;
- end;
- show_token_list(start,loc,100000);
- end
-else show_token_list(link(start),loc,100000); {avoid reference count}
-done1:
@z

@x [24.341] l.7479 - pTeX: set last_chr


のように，この部分に関する changes を全て無くすると，

(1)
\documentclass{article}
\begin{document}
\frame{\verb+\catcode+命令}
\end{document}

! Missing number, treated as zero.
<to be read again>
命
l.3 \frame{\verb+\catcode+命令}


(2)
\catcode あ0
\end

! Missing number, treated as zero.
<to be read again>
あ
l.1 \catcode あ
0


(3)
\toks0={あ}
\expandafter\expandafter\expandafter\catcode\expandafter\the\toks0
\end

! Missing number, treated as zero.
<to be read again>
あ
l.2 ...r\expandafter\catcode\expandafter\the\toks0


のように，これらの例については全てもっともらしく
なるのですけど，ちょっとこわいです。


なお，latex, tex では
(1)
\documentclass{article}
\begin{document}
\frame{\verb+\catcode+ab}
\end{document}

! Missing number, treated as zero.
<to be read again>
a
l.3 \frame{\verb+\catcode+ab}


(2)
\catcode a0
\end

! Missing number, treated as zero.
<to be read again>
a
l.1 \catcode a
0


(3)
\toks0={a}
\expandafter\expandafter\expandafter\catcode\expandafter\the\toks0
\end

! Missing number, treated as zero.
<to be read again>
a
l.2 ...r\expandafter\catcode\expandafter\the\toks0