texlive[67106] Build/source/texk/web2c/cwebdir: [CWEB] Permit '$' in

[commits+ascherer at tug.org]

Revision: 67106
          http://tug.org/svn/texlive?view=revision&revision=67106
Author:   ascherer
Date:     2023-05-14 15:56:36 +0200 (Sun, 14 May 2023)
Log Message:
-----------
[CWEB] Permit '$' in C identifiers.

See the similar code line in ctangle.w.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/ChangeLog
    trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch

Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2023-05-14 13:30:32 UTC (rev 67105)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2023-05-14 13:56:36 UTC (rev 67106)
@@ -1,7 +1,8 @@
 2023-05-14  Andreas Scherer  <https://ascherer.github.io>
 
 	* ctwill-mini.ch,
-	* ctwill-w2c.ch: Reshuffle fix for CTWILL.
+	* ctwill-w2c.ch: Reshuffle fix for CTWILL;
+	permit '$' in C identifiers (from ctangle.w).
 
 2023-05-13  Andreas Scherer  <https://ascherer.github.io>
 

Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch	2023-05-14 13:30:32 UTC (rev 67105)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch	2023-05-14 13:56:36 UTC (rev 67106)
@@ -1580,7 +1580,7 @@
 { char *first=id_first;
   while (xisspace(*first)) first++;
   loc=first;
-  while (xisalpha(*loc)||xisdigit(*loc)||*loc=='_') loc++;
+  while (xisalpha(*loc)||xisdigit(*loc)||isxalpha(*loc)) loc++;
   if (*loc++!=' ')
     err_print(_("! Identifier in meaning should be followed by space"));
   else {@+ int n=0;