/
MadDAD
/
TFS4OpenConf
Обзор
Документация
Войти
/
MadDAD
/
TFS4OpenConf
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
gcomp/scripts/Code_works/readme.txt
101 строка
6 KB
DmitryDreytser
Выгрузил исходники
01 фев 2017, 17:19
01 фев 2017, 17:19
b9402b1
Код
Авторство
О чём код?
������� ��� �������� ������� ���� � ����������� ������. 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 - ������� ��������.