/
MadDAD
/
TFS4OpenConf
ОбзорДокументацияВойти
/
MadDAD
/
TFS4OpenConf
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
ДокументацияПоддержка
Политика конфиденциальностиПользовательское соглашениеПолитика использования «cookies»Согласие субъекта персональных данных
2026 ©
TFS4OpenConf/
.../scripts/Code_works/
..
CodeWorks.pm

Выгрузил исходники

10 лет назад
Code_Ins.pl

Выгрузил исходники

10 лет назад
readme.txt

Выгрузил исходники

10 лет назад
ФормаДокумента.pl

Выгрузил исходники

10 лет назад
ФормаЭлемента.pl

Выгрузил исходники

10 лет назад
readme.txt
 
������� ��� �������� ������� ���� � ����������� ������.
 
 
CodeWorks.pm - ������ (package) � �������� ��������� ��� ��������� ����.
������:
LoadModule($FileName) - ��������� ����� ������ �� �����
- $FileName - ��� �����, ������� ����� ���������.
 
ProcessModule($ProcName) - ���� ���������� �� ������������ ������
- $ProcName - ��� ���������, ������� ����� ����� � ������. ����� ���� ������ �������.
 
FindProc($ProcName) - ����� ��������� ��������� � ������. ��������� ������ � ���������� $proc_start, $proc_end � $proc_body
- $ProcName - ��� ���������, ������� ����� ����� � ������.
 
CreateProc($ProcName, $ProcText, $PeforeProc) - ������ ��������� ���������
- $ProcName - ��� ���������
- $ProcText - ������ ����� ���������
- $PeforeProc - ��� ���������, ����� ������� ����� ������� �������. �������� �� ������������.
 
RemoveProc($ProcName, $WithComments) - ������� ��������� ���������
- $ProcName - ��� ��������� ���������
- $WithComments - ���� �� ������, �� ����� ������� ����������� ����� ���������� � ����� ��.
 
InsertVarDecl($ObjName, $ProcName, $VarName) - ������� ���������� ����������
- $ObjName - ��� ������� ����������. ������ ��� ������ � ������� ����: ���� � ����� ����������
���������� ������ ���� <ObjectName>, �� ��� ����� �������� �� �������� $ObjName.
- $ProcName - ��� ���������, � ������� ����� �������� ����������. ���� ������ ������, �� ���������� �����
��������� ��� ���������� ������.
- $VarName - ��� ����������.
 
RemoveVarDecl($ObjName, $ProcName, $VarName) - ������� ��������� ����������. ��������� ���������� InsertVarDecl()
 
RenameObject($ObjName, $ProcName, $OldName, $NewName) - ��������������� ��� ����������� �������
- $ObjName - ��� ������� ����������. ������ ��� ������ � ������� ����: ���� � ����� ����������
���������� ������ ���� <ObjectName>, �� ��� ����� �������� �� �������� $ObjName.
- $ProcName - ��� ���������, � ������� ����� ���-�� ��������������. ���� ������ ������,
�� �������������� ����������� �� ��� ������.
- $OldName - ��� ���������������
- $NewName - �� ��� ����������������
 
InsertCode($ObjName, $ProcName, $Code, $AtEnd) - ������� ����
- $ObjName - ��� ������� ����������. ������ ��� ������ � ������� ����: ���� � $Code ����������
������ ���� <ObjectName>, �� ��� ����� �������� �� �������� $ObjName.
- $ProcName - ��� ���������, � ������� ����� �������� ���. ���� ������ ������, �� ��� �����
�������� � ������.
- $AtEnd - ���� �������� �� ������, �� ��� ����� �������� � ����� ���������.
 
ReplaceCode($ObjName, $ProcName, $OldCode, $NewCode) - ������ ����� ������ ���� �� ������.
- $ObjName - ��� ������� ����������. ������ ��� ������ � ������� ����: ���� � $Code ����������
������ ���� <ObjectName>, �� ��� ����� �������� �� �������� $ObjName.
- $ProcName - ��� ���������, � ������� ����� ������ ���. ���� ������ ������, �� ��� �����
�������� �� ��� ������.
- $OldCode - ������ ���. RegExp ������, ������� ������ ������� ��� ������, ��������
���������� � �������� �������. ������ �� ������ ��������� ����������� - ���� �����������
��-�� �����, �� ����������� non capturing groupings, �.�. ���-�� ����� (?:���|����|This|Self).
- $NewCode - ����� ���, ������� ����� �������� � ������ ���������� ������� $OldCode.
 
RemoveCode($ProcName, $StartMarker, $EndMarker) - �������� ����, ������������� ���������
- $ProcName - ��� ���������, � ������� ����� ������� ���. ���� ������ ������, �� ��� �����
����� ��� ������.
- $StartMarker - ���������� ���������, ������������ ��������� ������ ����� ����. ��������: "\/\/{������������� ������"
- $EndMarker - ���������� ���������, ������������ ����������� ������ ����� ����. ��������: "\/\/}������������� ������"
 
GetObjectName($FullFName) - ������������ ��� ������� �� ������� ���� � �����. ��������, ����
$FullFName = "Src\�����������\�����������\�����������.1s" �� ������� ������ ������ "�����������".
 
PrintErrors() - ������� ��������� ���������� @errors � stdout
 
GetErrorsDescr() - ���������� ������ - ���������� @errors. �������� ������ ��������� �������� '\n'
 
 
�������������� ����������, � ������� ������������ ���������� ������� ������:
$first_proc - ����� ������ ������ ����� ������ ��������� � ������
$last_proc - ����� ������ ������ ����� ��������� ��������� � ������
$last_proc_end - ����� ��������� ������ ����� ��������� ��������� � ������
$last_var - ��������� ���������� ���������� ������
$first_code - ������ ������ ���� ������ (��� ��� ��������/�������)
$first_line_for_ins - ������ ������, ���� ����� ��������� ���� ���������
$last_line_for_ins - ��������� ������, ���� ����� ��������� ���������
$proc_start - ������ ������ ������� ���������
$proc_end - ��������� ������ ������� ���������
$proc_body - ������ ����� ������� ���������
$line_count - ���������� ����� � ������
@lines - ��� ������ ������
@errors - ��� ��������� �� �������, � ������ ������ ����������, ��������������� ��������� ��������� �-����
 
Code_Ins.pl - ������ ��� �������� ������ ���� �� ���� �������.
�������� ���: ���������� ��� ����� *.1s, ��� ������� ���������� ������, � ��������� ���� ������.
������� - ��� ������ �������, ������������ ������ CodeWorks.pm. ������� � ���������
����������� � ��������� ������. ����� �������� ����� ���� ������:
���������������.pl
��������������.pl
�����������.pl
�����������.pl
�������������.pl
���������.pl
�����.pl
������������.pl
 
 
��������������.pl � �������������.pl - ������� ��������.