!Сценарий перевода программ с языка Фортран на язык Паскаль

 

!Запись списков в файлы

>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\lflist.txt,fNew,fLeft,rAll

>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\rtlist.txt,fNew,fRight,rAll

 

!Создание списка имен файлов в ячейке архива {{1}}

#[ЗАМЕНА КОНТЕКСТОВ] {1}

/1/входной текст (индекс): 1

/2/выходной текст (индекс): 0

/3/входной каталог: d:\forpas\_scrpt\lflist.txt

/4/шаблоны входных файлов: *.*

/5/искать в подкаталогах (признак): 0

/6/без учета регистра (признак): 1

/7/режим замены (индекс): 1

/8/входная кодировка (индекс): 3

/9/выходной каталог: d:\forpas\rabout\

/10/рабочий каталог:

/11/сводный файл строк редакции (признак): 0

/12/только протокол (признак): 1

/13/вид протокола (индекс): 4

/14/статистика для протокола (признак): 0

/15/файл запроса: d:\forpas\_scrpt\contit8.txt

[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]

/1/запись измененных файлов (индекс): 0

/2/выходной каталог: d:\forpas\rabout\

/3/сохранять копии (признак): 0

/4/рабочий каталог: d:\forpas\rabout\

/5/копировать дерево файлов исходного каталога (признак): 0

/6/копировать в рабочий каталог (индекс): 0

/7/изменить имя файла (признак): 0

/8/переименовать после редакции (признак): 0

/9/постфиксные символы имени файла записи:

/10/расширение файла записи:

>НАЧАТЬ: 12

 

!Создание списка, ячейка которого содержит имя каталога и имя файла замены

#[ЗАМЕНА КОНТЕКСТОВ] {2}

/1/входной текст (индекс): 1

/2/выходной текст (индекс): 0

/3/входной каталог: d:\forpas\_scrpt\rtlist.txt

/4/шаблоны входных файлов: *.*

/5/искать в подкаталогах (признак): 0

/6/без учета регистра (признак): 1

/7/режим замены (индекс): 1

/8/входная кодировка (индекс): 3

/9/выходной каталог: d:\forpas\_scrpt\

/10/рабочий каталог:

/11/сводный файл строк редакции (признак): 0

/12/только протокол (признак): 0

/13/вид протокола (индекс): 4

/14/статистика для протокола (признак): 0

/15/файл запроса: d:\forpas\_scrpt\contit9.txt

[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]

/1/запись измененных файлов (индекс): 1

/2/выходной каталог: d:\forpas\_scrpt\

/3/сохранять копии (признак): 0

/4/рабочий каталог:

/5/копировать дерево файлов исходного каталога (признак): 0

/6/копировать в рабочий каталог (индекс): 0

/7/изменить имя файла (признак): 0

/8/переименовать после редакции (признак): 0

/9/постфиксные символы имени файла записи:

/10/расширение файла записи:

>НАЧАТЬ: 12

 

>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\rtlist.txt,new

 

#[РАБОТА С АРХИВОМ] {3}

>ОЧИСТИТЬ АРХИВ

 

!Сохранение правого списка с именами выходных файлов

>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\dfname.txt,fNew,fRight,rAll

>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\pasname.txt,fNew,fRight,rAll

 

!Создание правого абстрактного списка для сохранения архива

#[СОЗДАНИЕ СПИСКОВ] {4}

/1/источник списка (индекс): 5

/2/входной (базовый) каталог:

/3/шаблоны входных файлов: *.*

/4/искать в подкаталогах (признак): 1

/5/неполный путь к файлу (признак): 0

/6/левый список (признак): 0

/7/правый список (признак): 1

/8/новый список (признак): 1

/9/добавить в список (признак): 0

/10/содержимое списка (индекс): 0

/11/уровень от базы (режим): >=

/12/уровень от базы (значение): 0

[СОЗДАНИЕ АБСТРАКТНОГО СПИСКА]

/1/каталог: d:

/2/префикс имени файла: newdir

/3/начальный индекс: 1

/4/расширение:

/5/размерность списка: -1

/6/добавление к имени файла/каталога: arh

/7/режим добавления (индекс): 2

/8/вид списка: 12

>АБСТРАКТНЫЙ СПИСОК

 

!Первый этап: анализ и запись парметров программы в общий архив

#[ЗАМЕНА КОНТЕКСТОВ] {5}

/1/входной текст (индекс): 3

/2/выходной текст (индекс): 0

/3/входной каталог: LeftList

/4/шаблоны входных файлов: *

/5/искать в подкаталогах (признак): 0

/6/без учета регистра (признак): 0

/7/режим замены (индекс): 0

/8/входная кодировка (индекс): 3

/9/выходной каталог: d:\forpas\rabout\

/10/рабочий каталог:

/11/сводный файл строк редакции (признак): 0

/12/только протокол (признак): 1

/13/вид протокола (индекс): 4

/14/статистика для протокола (признак): 0

/15/файл запроса: d:\forpas\_scrpt\contit1.txt

[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]

/1/запись измененных файлов (индекс): 0

/2/выходной каталог: d:\forpas\rabout\

/3/сохранять копии (признак): 0

/4/рабочий каталог: d:\forpas\rabout\

/5/копировать дерево файлов исходного каталога (признак): 0

/6/копировать в рабочий каталог (индекс): 0

/7/изменить имя файла (признак): 0

/8/переименовать после редакции (признак): 0

/9/постфиксные символы имени файла записи:

/10/расширение файла записи:

>НАЧАТЬ: 12

 

!Второй этап: построение программы на Паскале

#[ЗАМЕНА КОНТЕКСТОВ] {6}

/1/входной текст (индекс): 3

/2/выходной текст (индекс): 0

/3/входной каталог: LeftList

/4/шаблоны входных файлов: *

/5/искать в подкаталогах (признак): 0

/6/без учета регистра (признак): 0

/7/режим замены (индекс): 0

/8/входная кодировка (индекс): 3

/9/выходной каталог: d:\forpas\rabout\

/10/рабочий каталог:

/11/сводный файл строк редакции (признак): 0

/12/только протокол (признак): 0

/13/вид протокола (индекс): 4

/14/статистика для протокола (признак): 0

/15/файл запроса: d:\forpas\_scrpt\contit2.txt

[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]

/1/запись измененных файлов (индекс): 0

/2/выходной каталог: d:\forpas\rabout\

/3/сохранять копии (признак): 0

/4/рабочий каталог: d:\forpas\rabout\

/5/копировать дерево файлов исходного каталога (признак): 0

/6/копировать в рабочий каталог (индекс): 0

/7/изменить имя файла (признак): 0

/8/переименовать после редакции (признак): 0

/9/постфиксные символы имени файла записи:

/10/расширение файла записи:

>НАЧАТЬ: 12

 

!Сохранение правого списка с именами выходных файлов

>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\daname.txt,fNew,fRight,rAll

 

!Загрузка правого списка с именами выходных каталогов и файлов

>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\dfname.txt,new

 

!Создание файла со списком перекодированных файлов,

!находящихся в каталоге rabout

>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\fname.txt,fNew,fLeft,rAll

 

#[ЗАМЕНА КОНТЕКСТОВ] {7}

/1/входной текст (индекс): 1

/2/выходной текст (индекс): 0

/3/входной каталог: d:\forpas\_scrpt\fname.txt

/4/шаблоны входных файлов: *

/5/искать в подкаталогах (признак): 0

/6/без учета регистра (признак): 1

/7/режим замены (индекс): 1

/8/входная кодировка (индекс): 3

/9/выходной каталог: d:\forpas\_scrpt\

/10/рабочий каталог:

/11/сводный файл строк редакции (признак): 0

/12/только протокол (признак): 0

/13/вид протокола (индекс): 4

/14/статистика для протокола (признак): 0

/15/файл запроса: d:\forpas\_scrpt\contit5.txt

[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]

/1/запись измененных файлов (индекс): 1

/2/выходной каталог: d:\forpas\_scrpt\

/3/сохранять копии (признак): 0

/4/рабочий каталог: d:\forpas\_scrpt\

/5/копировать дерево файлов исходного каталога (признак): 0

/6/копировать в рабочий каталог (индекс): 0

/7/изменить имя файла (признак): 0

/8/переименовать после редакции (признак): 0

/9/постфиксные символы имени файла записи:

/10/расширение файла записи:

>НАЧАТЬ: 12

 

!Загрузка левого списка с именами перекодированных файлов

>ЗАГРУЗИТЬ ЛЕВЫЙ СПИСОК: D:\forpas\_SCRPT\fname.txt,new

 

!Третий этап: корректировка перекодированных программ для БЧА

#[ЗАМЕНА КОНТЕКСТОВ] {8}

/1/входной текст (индекс): 3

/2/выходной текст (индекс): 0

/3/входной каталог: LeftList

/4/шаблоны входных файлов: *

/5/искать в подкаталогах (признак): 0

/6/без учета регистра (признак): 1

/7/режим замены (индекс): 0

/8/входная кодировка (индекс): 3

/9/выходной каталог: ListFiles (путь к каталогу в списке)

/10/рабочий каталог:

/11/сводный файл строк редакции (признак): 0

/12/только протокол (признак): 0

/13/вид протокола (индекс): 4

/14/статистика для протокола (признак): 0

/15/файл запроса: d:\forpas\_scrpt\contit3.txt

[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]

/1/запись измененных файлов (индекс): 1

/2/выходной каталог: ListFiles (путь к каталогу в списке)

/3/сохранять копии (признак): 0

/4/рабочий каталог:

/5/копировать дерево файлов исходного каталога (признак): 0

/6/копировать в рабочий каталог (индекс): 0

/7/изменить имя файла (признак): 0

/8/переименовать после редакции (признак): 0

/9/постфиксные символы имени файла записи:

/10/расширение файла записи:

>НАЧАТЬ: 12

 

!Cоздание файла со списком для переписи перекодированных файлов,

!находящихся в каталоге rabout

#[ЗАМЕНА КОНТЕКСТОВ] {9}

/1/входной текст (индекс): 1

/2/выходной текст (индекс): 0

/3/входной каталог: d:\forpas\_scrpt\pasname.txt

/4/шаблоны входных файлов: *

/5/искать в подкаталогах (признак): 0

/6/без учета регистра (признак): 1

/7/режим замены (индекс): 1

/8/входная кодировка (индекс): 3

/9/выходной каталог: d:\forpas\_scrpt\

/10/рабочий каталог:

/11/сводный файл строк редакции (признак): 0

/12/только протокол (признак): 0

/13/вид протокола (индекс): 4

/14/статистика для протокола (признак): 0

/15/файл запроса: d:\forpas\_scrpt\contit6.txt

[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]

/1/запись измененных файлов (индекс): 1

/2/выходной каталог: d:\forpas\_scrpt\

/3/сохранять копии (признак): 0

/4/рабочий каталог: d:\forpas\_scrpt\

/5/копировать дерево файлов исходного каталога (признак): 0

/6/копировать в рабочий каталог (индекс): 0

/7/изменить имя файла (признак): 0

/8/переименовать после редакции (признак): 0

/9/постфиксные символы имени файла записи:

/10/расширение файла записи:

>НАЧАТЬ: 12

 

!Загрузка правого списка с именами файлов переписи

>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\pasname.txt,new

 

#[ФАЙЛОВЫЕ ОПЕРАЦИИ] {10}

/1/тип операции (индекс): 1

/2/входной (базовый) каталог:

/3/шаблоны входных файлов: *

/4/базировать путь к файлу (признак): 0

/5/выходной каталог:

/6/шаблоны файлов очистки: *.*

/7/режим очистки подкаталогов (индекс): -1

/8/создать структуру базы (признак): 0

/9/левый список (признак): 0

/10/правый список (признак): 1

/11/содержимое списка (индекс): 0

/12/использовать корзину (признак): 1

>КОПИРОВАТЬ

 

!Загрузка правого списка с именами выходных каталогов и файлов

>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\dfname.txt,new

 

>ЗАПИСАТЬ СПИСОК: D:\forpas\_SCRPT\unitname.txt,fNew,fLeft,rAll

!Cоздание файла со списком для переименования перекодированных файлов,

!находящихся в каталоге rabout

#[ЗАМЕНА КОНТЕКСТОВ] {11}

/1/входной текст (индекс): 1

/2/выходной текст (индекс): 0

/3/входной каталог: d:\forpas\_scrpt\unitname.txt

/4/шаблоны входных файлов: *

/5/искать в подкаталогах (признак): 0

/6/без учета регистра (признак): 1

/7/режим замены (индекс): 1

/8/входная кодировка (индекс): 3

/9/выходной каталог: d:\forpas\_scrpt\

/10/рабочий каталог:

/11/сводный файл строк редакции (признак): 0

/12/только протокол (признак): 0

/13/вид протокола (индекс): 4

/14/статистика для протокола (признак): 0

/15/файл запроса: d:\forpas\_scrpt\contit7.txt

[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]

/1/запись измененных файлов (индекс): 1

/2/выходной каталог: d:\forpas\_scrpt\

/3/сохранять копии (признак): 0

/4/рабочий каталог: d:\forpas\_scrpt\

/5/копировать дерево файлов исходного каталога (признак): 0

/6/копировать в рабочий каталог (индекс): 0

/7/изменить имя файла (признак): 0

/8/переименовать после редакции (признак): 0

/9/постфиксные символы имени файла записи:

/10/расширение файла записи:

>НАЧАТЬ: 12

 

!Загрузка правого списка с именами файлов переименования

>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\unitname.txt,new

 

#[ФАЙЛОВЫЕ ОПЕРАЦИИ] {12}

/1/тип операции (индекс): 1

/2/входной (базовый) каталог:

/3/шаблоны входных файлов: *

/4/базировать путь к файлу (признак): 0

/5/выходной каталог:

/6/шаблоны файлов очистки: *.*

/7/режим очистки подкаталогов (индекс): -1

/8/создать структуру базы (признак): 0

/9/левый список (признак): 0

/10/правый список (признак): 1

/11/содержимое списка (индекс): 0

/12/использовать корзину (признак): 0

>ПЕРЕИМЕНОВАТЬ

 

!Загрузка левого списка с именами файлов переименования

>ЗАГРУЗИТЬ ЛЕВЫЙ СПИСОК: D:\forpas\_SCRPT\unitname.txt,new

 

!Загрузка правого списка с именами выходных каталогов и файлов

>ЗАГРУЗИТЬ ПРАВЫЙ СПИСОК: D:\forpas\_SCRPT\dfname.txt,new

 

!Четвертый этап: создание Unit-файла для проекта Delphi

#[ЗАМЕНА КОНТЕКСТОВ] {13}

/1/входной текст (индекс): 3

/2/выходной текст (индекс): 0

/3/входной каталог: LeftList

/4/шаблоны входных файлов: *

/5/искать в подкаталогах (признак): 0

/6/без учета регистра (признак): 1

/7/режим замены (индекс): 0

/8/входная кодировка (индекс): 3

/9/выходной каталог: d:\forpas\&1|RightList:-1 _prj\

/10/рабочий каталог:

/11/сводный файл строк редакции (признак): 0

/12/только протокол (признак): 0

/13/вид протокола (индекс): 4

/14/статистика для протокола (признак): 0

/15/файл запроса: d:\forpas\_scrpt\contit4.txt

[ПАРАМЕТРЫ ВЫХОДНОГО КАТАЛОГА]

/1/запись измененных файлов (индекс): 0

/2/выходной каталог: d:\forpas\&1|RightList:-1 _prj\

/3/сохранять копии (признак): 0

/4/рабочий каталог: d:\forpas\&1|RightList:-1 _prj\

/5/копировать дерево файлов исходного каталога (признак): 0

/6/копировать в рабочий каталог (индекс): 0

/7/изменить имя файла (признак): 0

/8/переименовать после редакции (признак): 0

/9/постфиксные символы имени файла записи:

/10/расширение файла записи:

>НАЧАТЬ: 12

 

!Удаление файлов (по левому списку)

#[ФАЙЛОВЫЕ ОПЕРАЦИИ] {14}

/1/тип операции (индекс): 0

/2/входной (базовый) каталог:

/3/шаблоны входных файлов: *

/4/базировать путь к файлу (признак): 0

/5/выходной каталог: d:\forpas\

/6/шаблоны файлов очистки: *.*

/7/режим очистки подкаталогов (индекс): -1

/8/создать структуру базы (признак): 0

/9/левый список (признак): 1

/10/правый список (признак): 0

/11/содержимое списка (индекс): 0

/12/использовать корзину (признак): 0

>УДАЛИТЬ

 

!Загрузка левого списка с именами архивных файлов

>ЗАГРУЗИТЬ ЛЕВЫЙ СПИСОК: D:\forpas\_SCRPT\daname.txt,new

 

!Удаление архивных файлов (по левому списку)

#[ФАЙЛОВЫЕ ОПЕРАЦИИ] {15}

/1/тип операции (индекс): 0

/2/входной (базовый) каталог:

/3/шаблоны входных файлов: *

/4/базировать путь к файлу (признак): 0

/5/выходной каталог: d:\forpas\

/6/шаблоны файлов очистки: *.*

/7/режим очистки подкаталогов (индекс): -1

/8/создать структуру базы (признак): 0

/9/левый список (признак): 1

/10/правый список (признак): 0

/11/содержимое списка (индекс): 0

/12/использовать корзину (признак): 0

>УДАЛИТЬ

 

#[КОНЕЦ СЦЕНАРИЯ] {16}