Код:
\ К конкурсу решения задач на форте (http://fforum.winglion.ru/viewtopic.php?p=7587#7587)
\ Замена табуляторов на пробелы
\ Первый пример (см. после слова /TEST ) -- просто строка
\ Второй -- требует наличия текстового файла in.txt с текстом
\ Для запуска нужен дистрибутив SPF:
\ http://sourceforge.net/project/showfiles.php?group_id=17919
\ И апрельское обновление:
\ http://sourceforge.net/project/shownotes.php?release_id=497972&group_id=17919
REQUIRE /TEST ~profit/lib/testing.f
REQUIRE HEAP-COPY ~ac/lib/ns/heap-copy.f
REQUIRE FILE ~ac/lib/str5.f
REQUIRE split ~profit/lib/bac4th-str.f
REQUIRE LOCAL ~profit/lib/static.f
: COPY-ARR ( addr1 u1 -- addr2 u2 ) DUP >R HEAP-COPY R> ;
: tabs>spaces ( addr1 u1 n -- addr2 u2 )
LOCAL tabs tabs !
LOCAL res-addr
LOCAL res-len
START{
concat{ byRows split notEmpty DUP STR@ \ режем строку по переводам строки
concat{ 9 byChar split \ режем строку по табуляторам
*> <*> \ оператор "вилка" -- сначала подаёт одну строку отрезанную по табуляторам
\ а потом подаёт строку составленную из пробелов нужных для доведения до позиции табуляции
concat{ \ цикл конкатенации нужного кол-ва пробелов
START{ PRO DUP STR@ NIP \ длина только что данной строки отрезанной по табуляторам
tabs @ MOD tabs @ SWAP - \ определяем нужное кол-во пробелов
0 ?DO S" " CONT LOOP }EMERGE \ генерируем пробелы столько-то раз
}concat \ все пробелы слили в одну строку
<* DUP STR@ ( addr u ) }concat DUP STR@ \ обработали одну строку: сцепили все куски: отрезок-пробелы-отрезок-пробелы-...
\ и снова вилка: сначала подаём строку, потом -- перевод строки
*> <*> LT LTL @ <* }concat DUP STR@ \ сцепляем всё вместе
COPY-ARR res-len ! res-addr ! }EMERGE \ копируем в кучу
\ Конструкция concat{ }concat по окончании работы убирает лишние отрезки памяти, поэтому копировать нужно явно
res-addr @ res-len @ ;
\ Изначальный код без комментариев:
\ : tabs>spaces ( addr1 u1 n -- addr2 u2 )
\ LOCAL tabs tabs !
\ LOCAL res-addr
\ LOCAL res-len
\ START{
\ concat{ byRows split notEmpty DUP STR@
\ concat{ 9 byChar split
\ *> <*>
\ concat{ START{ PRO DUP STR@ NIP tabs @ MOD tabs @ SWAP - 0 ?DO S" " CONT LOOP }EMERGE }concat
\ <* DUP STR@ ( addr u ) }concat DUP STR@ *> <*> LT LTL @ <* }concat DUP STR@
\ COPY-ARR res-len ! res-addr ! }EMERGE
\ res-addr @ res-len @ ;
/TEST
" ab beac core d
def eres f"
STR@ 7 tabs>spaces TYPE
CR CR
S" in.txt" FILE 7 tabs>spaces TYPE
Хм. В коде что-то многовато стеко-строкового шума в лице "DUP STR@", надо с этим что-нибудь посмотреть... Возможно, стоит сделать split'ы сразу получающие на вход строки ~ac/lib/str5.f.
Вторая подзадача представляется неверной по цели. Табулятор -- это не n пробелов. Преобразование табулятора в пробелы -- это понижение качества оформления текста, то есть он становится менее гибким к изменениям. Обратное преобразование пусть и можно сделать но там уже совсем необратимые косяки появляются (становится невозможно отличить от табулятора просто группу пробелов, как перед центрованным заголовком например). То есть:
Код:
табулятор табулятор табулятор табулятор
| | | |
И молвила рыбка: "что тебе надобно, старче"
Здесь "рыбка" и "старче" попадают на позиции табуляции (в том смысле что по логике можно заменить стоящие перед словами пробелы на табуляции). А не проверять единичные пробелы на выровненность по табуляции -- нельзя, так как оформление может привести и к табуляциям, равным только одной позиции.
Вход
Регистрация
Благодарности
Forth-FAQ
