NYSIIS: Difference between revisions

No change in size ,  8 years ago
m
→‎{{header|REXX}}: used a better method of detecting post-nominal letters.
m (→‎{{header|REXX}}: added/changed whitespace and comments, changed some comments in the REXX section header.)
m (→‎{{header|REXX}}: used a better method of detecting post-nominal letters.)
Line 624:
titles = 'ESQ JNR JR SNR SR' /* [↓] last word a post─nomimal word? */
if w\==1 then if pos('IL',lw)==0 then /*disallow IL as Roman#.*/
if rightpos(lw.,1x)\=='.'0 |, /*Sr. Jr. Esq. ... ? */
datatype(left(lw,1),'W') |, /*2nd 3rd 4th ... ? */
verify(lw,'IVXL')==0 |, /*Roman numeral suffix? */