/
MadDAD
/
alterplast
Обзор
Документация
Войти
/
MadDAD
/
alterplast
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
OpenConf_Scripts/CodeWorks/CodeIns.txt
98 строк
6 KB
trdm
24 мар 2017, 12:42
24 мар 2017, 12:42
988c847
Код
Авторство
О чём код?
������� ��� �������� ������� ���� � ����������� ������. CodeIns.pl - ������ ��� �������� ������ ���� � ������� ������, ��� �� ���� �������. �������� ���: ���������� ��� ������, ����� ���� ��������������� ������ �� �������� ���� ������, � ��������� ���. ������ - ��� ������ ������, ���������� �� �����, � ���������� ������ CodeWorks. RunPerlScripts.vbs - ������ ��� ������� CodeIns.pl �� OpenConf. ��������������.pl � �������������.pl - ������� ��������. ######################################################################################################### CodeWorks.pm - ������ (package) � �������� ��������� ��� ��������� ����. ��� ����� �������� � ������� �������� ���������. � ������ ����������� ��������� ActivePerl ��� ����� c:\perl\lib ������: 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 - ��� ����������. 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 ������, ������� ������ ������� ��� ������, �������� ���������� � �������� �������. ������ �� ������ ��������� �����������. - $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 - ��� ��������� �� �������, � ������ ������ ����������, ��������������� ��������� ��������� �-���� #########################################################################################################