ifhub/inform7
1
0
Fork 0
mirror of https://github.com/ganelson/inform.git synced 2024-07-07 17:44:22 +03:00
Code Issues Projects Releases Wiki Activity

Adjust TEXT_TY_ROGPRI().

Browse source
This commit is contained in:
Andrew Plotkin 2023-05-14 01:54:08 -04:00
parent f88edf2261
commit 88f971ff1a
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
inform7/Internal/Inter/CommandParserKit/Sections/Parser.i6t
View file

@ -4153,7 +4153,7 @@ recognises an existing value: it doesn't parse a new one.
return r; return r;
]; ];
[ TEXT_TY_ROGPRI txt [ TEXT_TY_ROGPRI txt
pos len wa wl wpos bdm ch own; pos len wa wl wpos wach bdm ch own;
bdm = true; own = wn; bdm = true; own = wn;
len = BlkValueLBCapacity(txt); len = BlkValueLBCapacity(txt);
for (pos=0: pos<=len: pos++) { for (pos=0: pos<=len: pos++) {
@ -4171,7 +4171,12 @@ recognises an existing value: it doesn't parse a new one.
wl = WordLength(wn-1); wl = WordLength(wn-1);
wpos = 0; wpos = 0;
} }
if (wa->wpos ~= ch or TEXT_TY_RevCase(ch)) return GPR_FAIL; #Ifdef TARGET_ZCODE;
wach = wa->wpos;
#Ifnot; ! TARGET_GLULX
wach = wa-->wpos;
#Endif; ! TARGET_
if (wach ~= ch or TEXT_TY_RevCase(ch)) return GPR_FAIL;
wpos++; wpos++;
} }
} }