ForthNet@willett.UUCP (ForthNet articles from GEnie) (02/03/90)
Date: 02-01-90 (07:05) Number: 1733 (Echo) To: ALL Refer#: NONE From: ROY RICE Read: HAS REPLIES Subj: IMPLEMENTATION OF 'X' Status: PUBLIC MESSAGE I have recently downloaded f-pc 3.5. There are some nifty features in it, but I have found it hard to read, or at least hard to discover how Tom implemented some features. I finally found out how he did the / commands within .", but have yet been able to figure out how he does the 'x'--- surrounding an ascii char with single quotes instead of saying "ascii x". Any commentary will be appreciated. Roy Rice ----- This message came from GEnie via willett through a semi-automated process. Report problems to: 'uunet!willett!dwp' or 'willett!dwp@gateway.sei.cmu.edu'
ForthNet@willett.UUCP (ForthNet articles from GEnie) (02/03/90)
Date: 02-01-90 (22:31) Number: 1734 (Echo) To: ROY RICE Refer#: 1733 From: BILL MCCARTHY Read: NO Subj: IMPLEMENTATION OF 'X' Status: PUBLIC MESSAGE The 'x' handling in F-PC 3.50 is located in KERNEL2.SEQ. The 'x' sequence is tested in %NUMBER which eventually gets control when a word cannot be found in the search order. If the 1st and 3rd character of the word are 's then this code word branches to the high level word %'NUM which converts the 2nd character to a double. BTW, it seems strange that %'NUM is state smart. During compilation it converts the character in TIB. Interpreting, it works with the counted string sent to %'NUM. Consequently, if you are running with CAPS ON, 'a' will give different results when interpreting (65) and compiling (97). A possible fix (insensitive to CAPS): : MY'NUM1 ( a1 -- d1 f1 ) DROP TIB >IN @ 3 - + C@ 0 TRUE DPL ON ; ' MY'NUM1 IS 'NUM or sensitive to CAPS: : MY'NUM2 ( a1 -- d1 f1 ) 2+ C@ 0 TRUE DPL ON ; ' MY'NUM2 IS 'NUM ----- This message came from GEnie via willett through a semi-automated process. Report problems to: 'uunet!willett!dwp' or 'willett!dwp@gateway.sei.cmu.edu'