Re: [Spf-dev] TAB

[mlg 3 <m_...@ya...>]

Ruvim Pinka wrote:
> 
> in answer to àÒÉÊ öÉÌÏ×ÅÃ, 20.06.2002 10:50
> ðÒÉ×ÅÔ!
> 
> AC>> åÓÌÉ ÔÏÌØËÏ ÄÌÑ ÜÔÏÇÏ, ÔÏ ÄÅÌÁÔØ ÎÉÞÅÇÏ ÎÅ
ÎÕÖÎÏ. ô.Ë. NextWord × SPF
> AC>> É ÔÁË ÓÞÉÔÁÅÔ ÐÒÏÂÅÌÁÍÉ ×Ó£, ÞÔÏ IsDelimiter,
Ô.Å.   BL 1+ <. TAB ÔÕÄÁ
> AC>> ÐÏÄÐÁÄÁÅÔ ÔÏÖÅ × ÓÏÏÔ×ÅÔÓÔ×ÉÉ ÓÏ Ó×ÏÉÍ ËÏÄÏÍ.
> 
> àö> ôÁËÉ ÎÅÔ. ðÏÐÒÏÂÕÊ, ÎÁÐÒÉÍÅÒ,
> àö> REQUIRE "<tab>~yz/lib/common.f
> àö> ÉÌÉ
> àö> REQUIRE<tab><tab>" ~yz/lib/common.f
> 
> : REQUIRE ( "word" "libpath" -- )
>   BL SKIP BL PARSE
>   BL SKIP BL PARSE 2DUP + 0 SWAP C!
>   REQUIRED
> ;
> 
> ÉÌÉ ÔÙ ÈÏÞÅÛØ, ÞÔÏÂÙ ÆÒÁÚÁ  BL SKIP
>   ÓËÉÐÁÌÁ ÞÔÏ-ÔÏ ÅÝÅ, ËÒÏÍÅ BL ? ;)
> 

üÔÏ ÏÄÉÎ ÉÚ ÎÅÐÒÏÒÁÂÏÔÁÎÎÙÈ ÍÏÍÅÎÔÏ× × áîó æÏÒÔÅ.
÷ÓÅ ÓÌÏ×Á ÏÂÒÁÂÏÔËÉ ÓÔÒÏË ÍÏÇÕÔ ×ÓÔÒÅÔÉÔØ É ÎÅ ÐÒÏÂÅÌ,
Á, ÓËÁÖÅÍ, tab ÉÌÉ cr ÉÌÉ lf, ÉÌÉ ×ÏÏÂÝÅ '\xff'.
þÔÏ × ÜÔÏÍ ÓÌÕÞÁÅ ÄÅÌÁÔØ -- ÏÓÔÁ×ÌÅÎÏ ÎÁ ÏÔËÕÐ
ÒÁÚÒÁÂÏÔÞÉËÁÍ.
âÁÒÁÎÏ× × âÅÔÁ-æÏÒÔÅ ÚÁÍÅÎÑÌ ÔÁÂÕÌÑÃÉÀ ÎÁ ÐÒÏÂÅÌÙ ÐÒÉ
ÞÔÅÎÉÉ
ÉÚ ÆÁÊÌÁ × ÎÅÄ×ÏÉÞÎÏÍ ÒÅÖÉÍÅ (ÐÒÁ×ÄÁ, INCLUDE
ÏËÏÎÞÁÔÅÌØÎÏ 
ÄÏ ÕÍÁ ÄÏ×ÅÄÅÎ ÎÅ ÂÙÌ IIRC).

äÒÕÇÏÊ ÍÅÔÏÄ -- WORD PARSE É Ô.Ð. ÒÁÂÏÔÁÀÔ ÐÏ-ÏÓÏÂÏÍÕ
ÄÌÑ ÓÌÕÞÁÑ, ËÏÇÄÁ ÒÁÚÄÅÌÉÔÅÌÅÍ Ñ×ÌÑÅÔÓÑ ÐÒÏÂÅÌ.
ðÒÉ ÜÔÏÍ ÅÝÅ ÏÓÔÁÅÔÓÑ ÓÌÕÞÁÊ >IN @ TIB + C@ BL = 

íÏÖÎÏ ÚÁÎÑÔØ ÒÁÓÛÉÆÒÏ×ËÏÊ ÐÒÏÂÅÌÏ× REFILL, ÎÏ ÔÏÇÄÁ
ÏÓÔÁÅÔÓÑ
bufaddr bufsize handle READ-LINE ?IO bufaddr SWAP
EVELUATE

ðÏÌÕÞÁÅÔÓÑ, ÞÔÏ ÎÁÄÏ ÉÌÉ ÚÁÐÒÅÝÁÔØ tab, ÉÌÉ
ÒÁÓÛÉÆÒÏ×Ù×ÁÔØ ×
READ-LINE, ÞÔÏ ÏÐÑÔØ ÖÅ ÞÒÅ×ÁÔÏ ÐÒÏÂÌÅÍÁÍÉ ÉÚ-ÚÁ
ÎÅÓÏÏÔ×ÅÔÓÔ×ÉÑ
ÄÌÉÎÙ ÓÔÒÏËÉ ÆÁÊÌÁ ÒÁÚÍÅÒÕ ÓÔÒÏËÉ ×ÈÏÄÎÏÇÏ ÐÏÔÏËÁ.




__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com