diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2023-07-16 14:52:40 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2023-07-16 14:52:40 +0000 |
commit | cf821c33e384e8d208a1a158942a7e70336a8c72 (patch) | |
tree | 18d492ccebd23cbe11913afa894287407a52c029 /Build/source/texk/web2c/cwebdir | |
parent | 7d872ada040cbe958cff98ad58cbfd5720166cb6 (diff) |
[CWEB] Fix last commit.
Ouch, my bad! 'break' jumps out of the 'for' loop, not out of the
'switch' group. :o)
git-svn-id: svn://tug.org/texlive/trunk@67649 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir')
-rw-r--r-- | Build/source/texk/web2c/cwebdir/ctwill-mini.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/cwebdir/ctwill-w2c.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/cwebdir/cweave.w | 6 |
3 files changed, 9 insertions, 17 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch index e8617e437d7..1fc99dbd0b3 100644 --- a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch +++ b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch @@ -1947,15 +1947,7 @@ Section 279. @x cur_name=sort_ptr->head; @y - @+cur_name=sort_ptr->head;@/ -@z - -Section 280. - -@x - if (xislower(*j)) { out_str("\\\\");@+ break; } -@y - if (xislower(*j)) { out_str("\\\\");@+ break;@+ } + cur_name=sort_ptr->head;@/ @z Section 285. diff --git a/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch b/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch index c7acb53960f..8b57b77ae9a 100644 --- a/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch @@ -1246,9 +1246,9 @@ switch (cur_name->ilk) { @z @x - else { + else {@+boolean all_caps=true;@+@t}\6{@> @y - else {@+char *j;@+@t}\6{@> + else {@+boolean all_caps=true;@+char *j;@+@t}\6{@> @z @x @@ -1877,10 +1877,10 @@ out_mini( switch (cur_name->ilk) {@+char *j;@+@t}\6{\4@> case normal: case func_template: if (is_tiny(cur_name)) out_str("\\|"); - else { + else {@+boolean all_caps=true;@+@t}\6{@> for (j=cur_name->byte_start;j<(cur_name+1)->byte_start;j++) - if (xislower(*j)) { out_str("\\\\");@+ break; } - out_str("\\."); /* \.{UPPERCASE} */ + if (xislower(*j)) all_caps=false; + out_str(all_caps ? "\\." : "\\\\"); } break; @.\\|@> diff --git a/Build/source/texk/web2c/cwebdir/cweave.w b/Build/source/texk/web2c/cwebdir/cweave.w index c0f14a20d3e..3f92f12c82f 100644 --- a/Build/source/texk/web2c/cwebdir/cweave.w +++ b/Build/source/texk/web2c/cwebdir/cweave.w @@ -4772,10 +4772,10 @@ while (sort_ptr>scrap_info) { switch (cur_name->ilk) {@+char *j;@+@t}\6{\4@> case normal: case func_template: if (is_tiny(cur_name)) out_str("\\|"); - else { + else {@+boolean all_caps=true;@+@t}\6{@> for (j=cur_name->byte_start;j<(cur_name+1)->byte_start;j++) - if (xislower(*j)) { out_str("\\\\");@+ break; } - out_str("\\."); /* \.{UPPERCASE} */ + if (xislower(*j)) all_caps=false; + out_str(all_caps ? "\\." : "\\\\"); } break; @.\\|@> |