Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=373648&view=findpost&p=3286301 Sun, 10 Mar 2013 15:58:52 +0000 Форматтеры исходного кода Pascal https://forum.sources.ru/index.php?showtopic=373648&view=findpost&p=3286301
Если Вы сочтёте возможным, опубликуйте программу, добавив в описании ограничения на имена файлов форматируемых текстов.]]> Федосеев Павел Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=373648&view=findpost&p=3286146 Sun, 10 Mar 2013 09:21:50 +0000 Форматтеры исходного кода Pascal https://forum.sources.ru/index.php?showtopic=373648&view=findpost&p=3286146 Цитата Федосеев Павел @
Программа — консольная, и у неё отсутствует графический интерфейс.
Специально для этой утилиты мной несколько лет назад был написан GUI, на Лазарусе, с возможностью менять язык интерфейса, изменять некоторые настройки форматирования, и изменять кодировку исходника (этим, кстати, тексты на форуме тоже грешат):]]> volvo877 Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=373648&view=findpost&p=3286064 Sat, 09 Mar 2013 18:10:15 +0000 Форматтеры исходного кода Pascal https://forum.sources.ru/index.php?showtopic=373648&view=findpost&p=3286064 PTOP (из Free Pascal)

Эта утилита входит в состав Free Pascal Compiler http://www.freepascal.org, и скачать её исполняемый файл и исходники можно только вместе со всем пакетом программ. Описание на английском (довольно ироничное) доступно по http://www.freepascal.org/tools/ptop.var.

Как следует из описания утилиты, она является модернизацией другой утилиты, восходящей корнями к программе PP (pretty-printer), опубликованной в 1977 году.

Программа — консольная, и у неё отсутствует графический интерфейс.
При форматировании иногда получается не вполне корректный результат:
из «каши»
    If a=0 then
    Begin
    If b=0 then
    If c=0 then
    Writeln('-1')
    else
    Writeln('0')
    Else
    Begin
    x:=c/b;

получается
      If a=0 Then
        Begin
          If b=0 Then
            If c=0 Then
              Writeln('-1')
          Else                              <---------- здесь не хватает ещё одного отступа
            Writeln('0')
          Else
            Begin
              x := c/b;

Но, в целом, утилита хорошая.

Перед тем как перечислить опции запуска утилиты, расскажу о том, как я её использую.
Скрытый текст
Если нужно по-быстренькому переформатировать «исходную кашу», просто запускаю из командной строки
ptop исходный.pas результат.pas
Т. к. я пользуюсь файловым менеджером a-la NortonCommander (a-la Far или a-la TotalCommander), то проблем с вводом имени исходного файла не возникает (Ctrl-Enter). Имя выходного файла я обычно делаю похожим на исходное, т. е. опять ввожу имя исходного файла и добаляю какой-либо символ. Например,
ptop test1.pas test1x.pas

Но, иногда, возникает желание получить на выходе файл, отформатированный с настройками не «по-умолчанию», а «на мой вкус». Такой вариант также предусмотрен разработчиками. Запускаем утилиту со следующими параметрами
ptop -g ptop.cfg
После этого будет создан файл «ptop.cfg». Это текстовый файл, его можно открыть и отредактировать в штатном для Windows «Блокноте». Возможностей редактирования, правда, немного — формат только прописанных разработчиком ключеых слов, новых — не добавить. Поэкспериментировав с настройками, получаем итоговый «my_ptop.cfg», который и будем использовать при вызове
ptop -c my_ptop.cfg test1.pas test1x.pas
Строка вызова немного увеличилась, что вызывает неудобство, но тут уж ничего не поделаешь. Вариант улучшения ситуации — только создание пакетного файла (".bat", ".cmd", ".vbs" или др.) для запуска утилиты с параметрами.


Теперь, можно привести вольный перевод официальной странички для ptop. Я его приведу здесь только потому, что ранее мне он не встречался, и не каждый умеет читать по-английски.

Строка запуска программы
ptop [-v] [-i indent] [-b bufsize ] [-c optsfile] infile outfile

infile и outfile – соответственно входной и выходной файлы.
-h выводит на экран краткую справку о параметрах запуска программы из командной строки.
-c optsfile взять настройки форматирования из конфигурационного файла optsfile. Если параметр пропущен, то будут использоваться внутренние настройки «по-умолчанию». Также см. параметр -g
-i ident устанавливает размер отступа в блоке равным ident пробелов (для блоков BEGIN END и др)
-b bufsize устанавливает размер буфера равным bufsize.
-v выводит дополнительные подробности. На настоящий момент — только номер считываемой/записываемой строки и некоторые сообщения об ошибках.
-g optsfile сохраняет настройки «по-умолчанию» в файл optsfile.

Описание конфигурационного файла «ptop.cfg»

Структура конфигурационного файла это простые блоки, повторяющиеся некоторое (20-30) количество раз для каждого ключевого слова Pascal'я, которое известно программе ptop. Список ключевых слов можно уточнить взглянув в дефолтный конфигурационный файл ptop или в исходник «ptopu.pp».

Каждый блок конфигурационного файла состоит из двух строк, описывающих как ptop должен реагировать на каждое конкретное ключевое слово.

Первая строка без квадратных скобок имеет следующий формат:
keyword=option1,option2,option3,...

Если среди опций присутствует опция "dindonkey", то необходима вторая строка вида:
[keyword]=otherkeyword1,otherkeyword2,otherkeyword3,...

Как видно, блок содержит два вида идентификаторов - ключевые слова (keyword и otherkeyword1..3) и опции (option1..3).

Ключевые слова (keyword) это зарезервированные слова Pascal'я (вроде, BEGIN, END, CASE, IF, THEN, ELSE, IMPLEMENTATION). Дефолтный конфигурационный файл ptop содержит большинство из них.

Кроме зарезервированных слов Pascal'я к ключевым словам относятся и символьные конструкции языка, используемые в операторах и для обозначения комментариев. Вот они:
Название конструкцииОператор в Pascal'е
casevar: в метке опрератора case (не то же, что и 'colon')
becomes:=
delphicomment//
opencomment{ или (*
closecomment} или *)
semicolon;
colon:
equals=
openparen[
closeparen]
period. в конструкции подобной '1..6'


Действия, которые должны выполнятся, если в обрабатываемом тексте встретится ключевое слово описываются опциями
Опция (option)Действие
upperВыводит ключевое слово в верхнем регистре ("СЛОВО").
lowerВыводит ключевое слово в нижнем регистре ("слово").
capitalВыводит ключевое слово с заглавной первой буквой, и маленькими остальными буквами ("Слово").
crsuppПодавляет «перевод строки» перед ключевым словом.
crbeforeСтавит «перевод строки» перед ключевым словом. (не действует вместе с опцией crsupp :) )
crafterСтавит «перевод строки» после ключевого слова.
blinbeforeВставляет пустую строку перед ключевым словом.
spbefДобавляет один пробел перед ключевым словом.
spaftДобавляет один пробел после ключевого слова.
gobsymВыводит символы, которые следуют за ключевым словом, но не влияющих на вывод. Выводит до терминатора (терминаторы жестко прописаны в PtoP).
dindonkeyЭто ключевое слово отменяет предыдущий уровень отступа блока операторов в обрабатываемом тексте для других ключевых слов из списка, который приводится в следующей строке конфигурационного файла.
dindentЭто ключевое слово всегда отменяет предыдущий уровень отступа в обрабатываемом тексте.
inbytabКлючевое слово является началом следующего уровня отступа (блока операторов в тексте, до окончания которого все последующие элементы блока сдвинута в строке на несколько пробелов) относительно первого символа этого ключевого слова.
Например,
    TRec = Record
             field1 : Integer;
             field1 : Byte;
           End;
inbyindent То же,что и inbytab, но отступ будет относительно предыдущего отступа.
Например,
    TRec = Record
      field1 : Integer;
      field1 : Byte;
    End;


Опция "dindonkey" требует несколько дополнительных параметров, которые определяются во второй строке описания ключевого слова (с квадратными скобками).
В этой строке определяются ключевые слова, завершающие блок операторов в обрабатываемом тексте, выделяемых отступом в строках.

Пример
Строки
else=crbefore,dindonkey,inbytab,upper
[else]=if,then,else
Означают:
1. Рассматриваем ключевое слово 'else' (оно расположено слева от знака равно).
2. Когда парсер ptop найдёт 'else', исходя из опций, будет выполнено следующее:
- (crbefore) Не позволить другому коду находится на одной строке перед ключевым словом ('else' будет одним в строке)
- (dindonkey) В следующей строке конфигурационного файла будут определены ключевые слова, для которых "наше" ('else') отменяет отступ для блока операторов из обрабатываемого текста.
- (inbytab) Следующие опрераторы из обрабатываемого текста будут выводится с отступом.
- (upper) Ключевое слово вывести в верхнем регистре ('ELSE').]]> Федосеев Павел Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=373648&view=findpost&p=3286040 Sat, 09 Mar 2013 16:29:19 +0000 Форматтеры исходного кода Pascal https://forum.sources.ru/index.php?showtopic=373648&view=findpost&p=3286040 JCF (JEDI Code Format)

Описание этого пакета программ будет довольно коротким из-за интуитивно понятного интерфейса, а также хорошей справки к этому пакету.

Это самостоятельный пакет программ, который можно найти по ссылке.

Из недостатков хочется отметить пару несущественных:
- при описании блока констант, почему-то не делает отступ,
- в начале форматируемого файла обязательно присутствие строки program, unit, package или library,
- только англоязычный интерфейс.

Установка пакета:
1. Скачать два архивных файла «jcf_243_exe.zip» и «Jcf_243_source.zip».
2. Создать папку «c:\Program Files\JCF».
3. Распаковать содержимое архива «jcf_243_exe.zip» в эту папку.

В состав пакета входит несколько исполняемых файлов. Нас будут интересовать только три, а точнее два из них:
JCF.exe — консольная версия форматтера
JCFGui.exe — GUI версия форматтера кода
JCFNotepad.exe – GUI версия форматтера кода с текстовым редактором

Настроек форматирования очень много, но пользуясь JCFNotepad можно сразу наблюдать за результатоми их изменения.

"Из коробки" он поступает с ненастроенным форматированием - нужно настроить самостоятельно. Но если поискать в интернете, то можно узнать, что архив с исходниками JCF в папке "Jcf_243_source.zip\Test\TestCases\" содержит три файла с "готовыми" настройками. Один из них "JCFTestSettings.cfg" - настроен согласно рекомендациям от Borland. Его нужно скопировать в папку с распакованным JCF и переименовать в "JCFSettings.cfg".

Результат форматирования сохраняется в папке с исходником, с тем же именем, что и у исходника, но с расширением ".out" (возможно настроить иначе).]]> Федосеев Павел Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=373648&view=findpost&p=3286030 Sat, 09 Mar 2013 15:54:36 +0000 Форматтеры исходного кода Pascal https://forum.sources.ru/index.php?showtopic=373648&view=findpost&p=3286030 Форматтеры кода для Pascal

Часто, при просмотре чужих исходников на форуме, возникает желание отформатировать код. Свои тексты также иногда неплохо бы приводить в «божий вид». Тогда и возникает желание автоматизировать рутинную работу. А т.к. Pascal появился далеко не вчера, то и подобные утилиты для него уже давно существуют. Перечислю лишь некоторые:

НазваниеЛицензияТип приложенияОСГод выпускаПримечание
BP7SBпроприетарная, платнаяконсольноеDOS1993
PTOP?консольное2004Автор Aleksej Kozlov, для Virtual Pascal
PTOPGPLконсольноеDOS, Linux, Windows2008Входит в состав Free Pascal
JCF (JEDI Code Format)MPL 1.1 или GPL 2.0консольное, GUI, плагин к IDEWindows2009
GExpertsThe Open Source Definitionплагин к IDEWindows2011


В интернете можно встретить упоминания и о множестве других форматтеров.

Лично мне довелось пользоваться двумя:
- ptop (из состава FPC)
- JCF

О них я и расскажу.

Для начала о JCF, как о более удобном и лёгком в освоении, а затем о ptop, т.к. вместе с FPC он присутствует на многих компьютерах у школьников и студентов - основных авторов тем форума Pascal.]]> Федосеев Павел Все языки: Статьи, заготовки в FAQ