Вверх ↑
Этот топик читают: Гость
Ответов: 946
Рейтинг: 12
#1: 2021-07-18 17:50:50 ЛС | профиль | цитата
Как обычно моя скорость написания длинных постов недостаточна и легко превосходит таймаут форума по этому первую версию этого поста я как водится потерял .

Но попробую повторить!

В начале о том, что по моему можно получить с помощью "парсинга формата SHA".

1 Это открывает возможность для создания препроцессоров и расширения формата

2 Появляется возможность обработки SHA файлов и создания их более читаемой и редактируемой вручную версии.

3 В перспективе можно написать "виртуальную скрипт-машину" исполняющую схемы в рун-тайм режиме.


4 И наконец то из за чего я взялся за это "неблагодарное дело": парсинг формата SHA открывает возможность для написания внешнего просмотрщика (а в перспективе редактора) схем.



Мой тестовый модуль parsing_sha.pas





Написан в Лазарусе.
(но я специально провозился почти неделю чтобы максимально отвязать его от среды )

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

Особнности.
1 Контейнеры еще не поддерживает
(Рекурсивный парсинг контейнеров есть но я его не использую )

2 Хабы пока тоже не показывает ( что довольно обидно)

3 Не видит "точки из свойств" (которые появляются при клике на галочку в инспекторе )

4 Процедура CreateOrLoadElementBase умеет перелопачивать Ini-файлы с описаниями элементов во внутренний формат.

Процедура ParserElementBase их парсит

Процедура SHA_Parser парсит непосредственно схему.

И наконц процедура SHA2TXT транслирующая код сехмы (а по сути рисующая схему )

unit parsing_sha;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils,FileUtil,LazFileUtils,IniFiles,Math, Graphics;
type
TSPoint=Record
Name:String;
VName:String;
Rem:String;
PointType:Integer; {1-Left(do) 2-Top(on) 3-Right(Var) 4-Bottom(Data) }
PointDataType:String;
X,Y:Integer;
Option:String;
end;

TSPsram=Record
Name:String;
Data:String;
end;


TSLink=Record
PointName:String;
Id :String;
PointTO:String;
LinkCP:String;
end;

PSPoint=^TSPoint;
PSPsram=^TSPsram;
PSLink =^TSLink;

TSElement=class;

TSElementDrawProc = procedure (EL:TSElement);
TSLinkDrawProc = procedure (EL:TSElement);

TSElement=class(TObject)
PointList:Tlist;
ParamList:TList;
LinkList:Tlist;

// SHACode:STring;
Name:STring;
ID:STring;
eX,eY,CW,CH:Integer;
SubElementList:TStringList;
Cdo,Con,Cdat,Cvar:Integer;
Constructor Create;//override;
//Constructor CreateFromSHA(FCode:STring);
destructor Destroy; override;
Procedure DrawElement;



const
StepX :Integer=7; //Шаг X
StepY :Integer=7; //Шаг X
WW:Integer=-1;
HH:Integer=-1;
Procedure CalkMetrix;

end;

var

SElementDraw:TSElementDrawProc;


const
TextSHA:TStringList=nil;
ElementList:TStringList=nil;
BaseElementDrawList:TStringList=nil;
MiniSHA:TStringList=nil;

Procedure CreateOrLoadElementBase(IniDir,baseName :String;Upd:Boolean;var TS:TStringList);
Procedure ParserElementBase(var TS:TStringList);
Procedure SHA_Parser(TextSHA:TStringList);

function IndexOfPointItem(N:String;L:Tlist;T:Boolean=False ):integer;
Procedure ClearPointItem(Var It:PSPoint );
Procedure FreePointItem(Var It:PSPoint );
// Конвертор SHA 2 TXT
procedure SHA2TXT;

implementation

const
StepX :Integer=7; //Шаг X
StepY :Integer=7; //Шаг X
MinW :Integer=3; //Минмальная шрина чипа (в шагах)
MinH :Integer=4; //Минмальная высота чипа (в шагах)
otX:Integer=1; // отсуп X (в шагах)
otY:Integer=1; // отсуп Y (в шагах)
ZDX:Integer=0; // сдвиг X
ZDY:Integer=0; // сдвиг Y

Procedure TSElement.CalkMetrix;
Function CalkIt(var LP:TList;T:Integer):Integer;
var I,J:Integer;
C2: PSPoint;
begin
If Lp ‹› nil then begin
J:=0; for I:=0 to LP.Count-1 do
begin
C2:= PSPoint ( LP[i] );
if (C2^.PointType=T) and (C2^.Option‹›'/Hide') then
J:=J+1;
end;
Result:=J;
end
else Result:=0;
end;

Procedure CalkItXY(var LP:TList;T:Integer);
var x,y,I,J:Integer;
C2: PSPoint;
begin

If Lp ‹› nil then begin
X:=Ex; Y:=Ey;
J:=0; for I:=0 to LP.Count-1 do
begin

C2:= PSPoint ( LP[i] );
if (C2^.PointType=T) and (C2^.Option‹›'/Hide') then begin
J:=J+1;
Case T of
1:begin C2^.x:=x; C2^.Y:=y+StepY*J; end;
2:begin C2^.x:=x+StepX*WW; C2^.Y:=y+StepY*J; end;
3:begin C2^.x:=x+StepX*J; C2^.Y:=Y+StepY*HH; end;
4:begin C2^.x:=x+StepX*J; C2^.Y:=y; end;
end;

end
end
end
end;


begin

Cdo:= CalkIt(PointList,1);
Con:= CalkIt(PointList,2);
CVar:= CalkIt(PointList,3);
Cdat:= CalkIt(PointList,4);

WW:=Max(CDo,Max(COn,minW));
HH:=Max(CDat,Max(CVar,minH));

CalkItXY(PointList,1);
CalkItXY(PointList,2);
CalkItXY(PointList,3);
CalkItXY(PointList,4);
end;


Procedure TSElement.DrawElement;
begin
SElementDraw(Self);
end;

destructor TSElement.Destroy;
Var
EN:TListEnumerator;

begin

EN:=PointList.GetEnumerator;

If PointList.Count ›0 then
while En.MoveNext do begin
PSPoint(EN.Current)^.Name:='';
PSPoint(EN.Current)^.VName:='';
PSPoint(EN.Current)^.Rem:='';
PSPoint(EN.Current)^.Option:='';
PSPoint(EN.Current)^.PointDataType:='';
Dispose( PSPoint(EN.Current) );
end; EN.Free;

PointList.free;


EN:=ParamList.GetEnumerator;

If ParamList.Count ›0 then
while En.MoveNext do begin
PSPsram(EN.Current)^.Name:='';
PSPsram(EN.Current)^.Data:='';
Dispose( PSPsram(EN.Current) );
end; EN.Free;

ParamList.free;

EN:=LinkList.GetEnumerator;
If LinkList.Count ›0 then
while En.MoveNext do begin
PSLink(EN.Current)^.PointName :='';
PSLink(EN.Current)^.Id :='';
PSLink(EN.Current)^.PointTO:='';
PSLink(EN.Current)^.LinkCP :='';
Dispose( PSLink(EN.Current) );
end; EN.Free;

LinkList.free;
{
if PointDo‹›Nil then PointDo.free;
if PointOn‹›Nil then PointOn.free;
if PointData‹›Nil then PointData.free;
if PointVar‹›Nil then PointVar.free;
if ExtPointDo‹›Nil then ExtPointDo.free;
}
inherited Destroy;
end;
Constructor TSElement.Create;
begin
inherited Create;
{PointDo:=Nil;PointOn:=Nil;
PointVar:=Nil;PointData:=Nil;}

PointList:=Tlist.Create;
ParamList:=TList.Create;
LinkList :=Tlist.Create;
SubElementList:=Nil;
end;

function IndexOfPointItem(N:String;L:Tlist;T:Boolean=False ):integer;
Var
I:Integer;
begin
Result:=-1; If L = Nil then exit;
If l.Count›0 then
For I:=0 to l.Count-1 do
if PSPoint(l[i])^.Name‹› '' then begin
If t then Writeln(PSPoint(l[i])^.Name);
if PSPoint(l[i])^.Name=N then
begin
Result:=i; exit;
end;
end;
end;
Procedure ClearPointItem(Var It:PSPoint );
begin
If It = Nil then exit;
It^.Name:=''; It^.VName:=''; It^.Rem:='';
It^.PointDataType:=''; It^.Option:=''; It^.PointType:=0;
end;
Procedure FreePointItem(Var It:PSPoint );
begin
If It = Nil then exit;
ClearPointItem(It);
Dispose( It ); It:=nil;
end;

function IsPointInRegion(Rect:Trect;AX, AY: Integer): Boolean;
begin
Result := (AX ›= Rect.Left) and (AX ‹= Rect.Right) and
(AY ›= Rect.Top) and (AY ‹= Rect.Bottom);
end;

Function I2S(F:Integer; const d1:byte=1):String;
var
E:Integer;
Begin
Str(F:D1,Result);
end;

Function S2I(S:String; const d:Integer=0 ):Integer;
var E:Integer;
Begin
Val(S,Result,E);
If E ‹› 0 then Result:=d;
end;

Function S2F(S:String;const d:Extended=0):Extended ;
var E:Integer;
Begin
Val(S,Result,E);
If E ‹› 0 then Result:=d;
end;
Function F2S(F:Extended; const d1:byte=1;d2:byte=4):String;
var E:Integer;
Begin
Str(F:D1:D2,Result);
end;

// Мини парсер строк
Function Next1(Var SS:String;Ch:Char):String;
var i:Longint;
begin
Result:='';
I:=Pos(Ch,SS);
If i›0 then begin
Result:= Copy (ss,1,i-1);
delete(SS,1,i);
end
end;

Function InR(AA,B,C:Longint):Boolean;
begin
InR:=((AA›=B) And (AA‹=C));
End;


Procedure CreateOrLoadElementBase(IniDir,baseName :String;Upd:Boolean;var TS:TStringList);
Var
FS:TFileStream;

ET:TSElement;
CPo: PSPoint;
// MM: THeapStatus;

Var
S:String;
K,I,J:Integer;

begin

// Загрузказка *.ini в мини базу 'Delphi.dat'
If Not FileExists (baseName) or UPD then
begin
Try
TS:=FindAllFiles( IniDir , '*.ini',false);
For I:=0 to ts.Count-1 do begin
ts.Objects[i]:=TStringList.Create;
TStringList(ts.Objects[i]).LoadFromFile(ts[I]);

Ts[I]:=
ExtractFileName( ExtractFileNameWithoutExt(TS[i]));
end;

FS:=TFileStream.Create(baseName,fmCreate);
fs.Seek(0,soFromBeginning);

For I:=0 to ts.Count-1 do Begin

fs.WriteAnsiString(TS[i]);

For J:=0 to TStringList(ts.Objects[i]).Count-1 do
begin

S:= TStringList(ts.Objects[i])[J];

fs.WriteAnsiString(S);

//Writeln(cp1251toUtf8());
end;
fs.WriteAnsiString('Element_END');
//Writeln;
end;

finally

fs.Free;
end
end;

Try
FS:=TFileStream.Create(baseName,fmOpenRead);
//TS:=TStringList.Create;

fs.Seek(0,soFromBeginning);

While FS.Position‹fs.Size do Begin
TS.AddObject( fs.ReadAnsiString,TStringList.Create);

S:= fs.ReadAnsiString;
While S‹›'Element_END' do begin
TStringList(ts.Objects[ts.Count-1]).Add(S);
S:= fs.ReadAnsiString;
end;

end;

finally

Fs.Free;
end;

end;


Procedure ParserElementBase(var TS:TStringList);
Var
FS:TFileStream;

ET:TSElement;
CPo: PSPoint;
// MM: THeapStatus;

procedure ParsOne(NN:String);
Var
K,I,J:Integer;
Mi: TMemIniFile;
S1,S,TN,VN:String;
EEP,SS,MS:TStringList;
C: PSPoint;
// C_P:TC_Point;
begin
// Доступ данным по названию элемента
Ms:=TStringList(TS.Objects[ts.IndexOf(NN)]);//.Text;
// Создаю класс TMemIniFile для доступа к разделам
MI:=TMemIniFile.Create('Test'); Mi.SetStrings(MS);

// Обработка "множественного наследования"
S1:=mi.ReadString('Type','Inherit','');
IF S1‹›'' then begin //write('[',s1,'] ');
Repeat
S:=Next1(s1,','); //!!! Рекурсия
If S‹›'' then ParsOne(S) else ParsOne(S1);
Until S='';
end;

{}
// Простой парсинг описания контактных точек
ss:=TStringList.Create;
mi.ReadSectionRaw('Methods',SS);

For I:=0 to ss.Count-1 do begin
S:=SS[I];

//Групы игнорирую...
If Pos('##',S)=1 Then continue;
If S='' Then continue;

TN:=Next1(s,'=');
//Вырезаю (если есть) дополнительное имя
If TN‹›'' Then begin
New(CPo);VN:='';
CPo^.Option:='';
If Pos('[',Tn)›0 then begin
VN:=TN;
TN:=Next1(VN,'[');
VN:=Next1(VN,']');
end;
if vn‹›'' then
CPo^.VName:=VN
else CPo^.VName:='' ;

//--------------------
//Учитываю опции в имени
J:= Pos('*',Tn);
If (J›0) then begin
CPo^.Option:=CPo^.Option+'/Hide';
Next1(TN,'*');
end;
CPo^.Name:=TN;

{ //Задел на будущее для свойств 'Property' ;
J:= Pos('@',Tn);
If (J›0) then begin
Delete(TN,J,1);
CPo^.Option:=CPo^.Option+'/CPoint';
end;
J:= Pos('+',Tn);
If (J›0) then begin
Delete(TN,J,1);
CPo^.Option:=CPo^.Option+'/CUOpen';
end;
CPo^.Name:=NewStr(TN);
end}


//Пасинг параметров с учетом "хитрого" кодирования
//особых символов внутири строк
S:=StringReplace(S,'||','◙◙',[rfReplaceAll]);
S1:= Next1(S,'|');
S1:=StringReplace(S1,'◙◙','||',[rfReplaceAll]);
CPo^.Rem:= S1 ;
CPo^.PointType:=StrToInt( Next1(S,'|'));
CPo^.PointDataType:=S;

//Перезагрузка точек при "наследовании".
J:=IndexOfPointItem(TN,et.PointList);
If J‹›-1 then begin

C:=PSpoint(et.PointList[j]);
FreePointItem( C );
ET.PointList[J]:=CPO;

end else ET.PointList.Add(CPO);

//-------------------------------
end else continue;
end; //For
(* *)
ss.Free;
mi.Free;
end;
Var
S:String;
K,I,J:Integer;

begin
If BaseElementDrawList=nil then
BaseElementDrawList:=TStringList.Create
else BaseElementDrawList.clear;


For K:=0 to Ts.Count-1 do begin
//Mm:=GetHeapStatus;
//WRiteln ('Free Memory ',mm.TotalFree);
ET:=TSElement.Create;
ET.Name:=TS[K];
// Memo2.Lines.Add('----› '+ET.Name);

//Вызваю рекусивный парсер для перовго уровня.
ParsOne(TS[K]);

//Заношу резуьтат в список
BaseElementDrawList.AddObject(ts[K],Et);

end; //for K


end ;
Procedure SHA_Parser(TextSHA:TStringList);
Var
LP,NL, N,Z,Sx,Sy,Nam,ID,S,s1,Hed1,hed2:String;
MC,TE,J,I,K,Y,lev,EI,IP:Integer;

//Рекурсивный парсер контейнеров схемы
procedure ParserOneLev (EL:TStringList);
Var
BE,CE: TSElement;
CPo,BP: PSPoint;
CPr: PSPsram;
CLk: PSLink;
begin

repeat
if I › TextSHA.Count-1 then exit;

//else //END_SDK

While pos('Add(',TextSHA[I])=0 do
if I ‹ TextSHA.Count-1 then i:=i+1 else exit;

//i:=i+1;
S:=TextSHA[I];
Next1(S,'('); Nam:=Next1(S,',');
id:=Next1(S,',');

Sx:=Next1(S,',');
SY:=Next1(S,')');

CE:=TSElement.Create;
Ce.Name:=Nam;
Ce.ID:=id;
Ce.eX:=StrToInt(SX);
Ce.eY:=StrToInt(SY);

//------------------------------
// Поиск начала "тела" элемента
While pos('{',TextSHA[I])=0 do
if I‹ TextSHA.Count then i:=i+1 else begin ce.Free; exit; end;
i:=i+1;
// Если нет завершения ...
While pos('}',TextSHA[I])=0 do begin
S:=TextSHA[I];
// Поиск связей.
if pos('link(',TextSHA[I])‹›0 then begin

Next1(S,'('); N:=Next1(S,',');
ID:=Next1(S,':');NL:=Next1(S,',');
Next1(S,'['); LP:=Next1(S,']');

New(CLk);
CLK^.PointName:=N;
CLK^.Id:=Id;
CLK^.PointTO:=NL;
CLK^.LinkCP:=LP;
ce.LinkList.Add(Clk);
end else
// Параметры
if pos('=',TextSHA[I])‹›0 then begin
While S[1]=' ' do delete(S,1,1);

N:=Next1(S,'='); Z:=S;

New(CPR);
CPR^.Name:=N;
CPR^.Data:=Z;
CE.ParamList.Add(CPR);

end else
//Дополнительные точки
if pos('Point(',TextSHA[I])‹›0 then
begin

Next1(S,'(');N:=Next1(S,')');

New(CPo);
Cpo^.Name:=N;
Cpo^.VName:='';
Cpo^.PointType:=-1; // Неопределино

// Переопредиляю ---------------------
If BaseElementDrawList‹›nil then begin
EI:=BaseElementDrawList.IndexOf( Ce.Name );
If Ei‹›-1 Then begin
BE:=TSElement(BaseElementDrawList.Objects[EI]);
IP:=IndexOfPointItem(N,BE.PointList);
If IP‹›-1 Then begin
BP:=BE.PointList[ip];
Cpo^.PointType:=BP^.PointType;
end
end
End;
//-----------------------------
Cpo^.Rem:='';
Cpo^.Option:='';
CE.PointList.Add(CPo);
{ }

end;
i:=i+1;
if I › TextSHA.Count-1 then break;
end;
i:=i+1;

EL.AddObject(ce.ID,CE);

if I › TextSHA.Count-1 then exit;
// Если есть контейнер ....
if (pos('BEGIN_SDK',TextSHA[I])‹›0) then
begin
Lev:=Lev+1;
I:=I+1;
//WRIteln('\\ BEGIN_SDK--------------');
CE.SubElementList:=TStringList.Create;

ParserOneLev(CE.SubElementList); //!! Рекурсия
if I › TextSHA.Count-1 then exit;
end else
// Конец контейнера
if (pos('END_SDK',TextSHA[I])‹›0) and (Lev›0) then
begin
Lev:=Lev-1;

MC:=MC+EL.Count;
//WRIteln('\\ END_SDK--------------');
I:=I+1;
exit; // Возварат на уровень выше
end;


//Application.ProcessMessages;
until I ›= TextSHA.Count-1;

end;
Var
ETB,ET,BE,CE: TSElement;
C,C2,CPo,BP: PSPoint;

begin

lev:=0; MC:=0;
Hed1:=TextSHA[0];
Hed2:=TextSHA[1];

I:=0; if ElementList=nil then ElementList:=TStringList.Create;
ElementList.Clear;

ParserOneLev( ElementList );
MC:=MC+ ElementList .Count;

{Добавляю точки из базы }

For I:=0 to ElementList.Count-1 do begin
ET:=TSElement(ElementList.Objects[i]);
N:=ET.Name;

K:=BaseElementDrawList.IndexOf(N);
if k=-1 then continue;
ETB:=TSElement(BaseElementDrawList.Objects[K]);
For J:=0 to etb.PointList.Count-1 do begin
C:= PSPoint(etb.PointList[j]);
K:= IndexOfPointItem(C^.name, et.PointList);
If (c^.Option‹›'/Hide') or (K‹›-1 )then Begin
New(C2);C2^:=C^;

C2^.Name:=C^.Name;
C2^.VName:=C^.VName;
C2^.Rem:=C^.REM;

// K:=IndexOfPointItem(C^.name^, et.PointList);
if K=-1 then Begin
C2^.Option:='';
Et.PointList.Add(C2);//.Insert(0,C2);

end else begin
C2^.Option:='';
C:= PSPoint(et.PointList[K]);
ClearPointItem(C);C^:=C2^;

end;
End;

end; //for etb.PointList

end;
end;


// Конвертор SHA 2 TXT
procedure SHA2TXT;
Var
s1,S,N:String;
COl,SX,SY,X1,Y1,X2,Y2,Cdo,Con,Cdat,Cvar,W,h,X,Y,K,I,J:Integer;
ET,ET2,ETB:TSElement;
C,C2: PSPoint;
L:PSLink;
//CK:TCanvas;CB:TBitmap;


Procedure ContactChip2d; // Контакты чипа
Var
J,YF,XF:Integer;
begin



For J:=0 to Cdo-1 do begin
Xf:=X;Yf:=y+Sy*J+6;
MiniSHA.Add(Format('s(%d,%d)' , [XF,YF]));
//CK.EllipseC(x,y+Sy*J+6,3,3);

end;
For J:=0 to Con-1 do begin
Xf:=x+W*SX;Yf:=y+Sy*J+6;
MiniSHA.Add(Format('s(%d,%d)' , [XF,YF]));

// CK.EllipseC(x+W*SX,y+Sy*J+6,3,3);
end;

For J:=0 to Cdat-1 do begin
Xf:=X+Sx*J+7;Yf:=y;
MiniSHA.Add(Format('s(%d,%d)' , [XF,YF]));

// CK.EllipseC(X+Sx*J+7,y,3,3);
end;
For J:=0 to Cvar-1 do begin
Xf:=X+Sx*J+7;Yf:=y+H*SY+SY;
MiniSHA.Add(Format('s(%d,%d)' , [XF,YF]));

//CK.EllipseC(X+Sx*J+7,y+H*SY,3,3);
end;
end;


Procedure Link2d; // Конверсия связей
Var
I,J,K:Integer;
begin

For I:=0 to ElementList.Count-1 do begin
ET:=TSElement(ElementList.Objects[i]);
//Link
if et.LinkList.Count›0 then
For J:=0 to et.LinkList.Count-1 do begin
L:=PSLink( et.LinkList[J]);

// Writeln (' [',L^.PointName^,']-›' );
// Writeln ('-› [',L^.PointTO^,'] ' );

K:=IndexOfPointItem(L^.PointName,et.PointList);
// Writeln (K);
If K=-1 then continue;
C:=PSPoint(et.PointList[k]);

K:= ElementList.IndexOf( L^.Id );
If K=-1 then continue;
ET2:=TsElement(ElementList.Objects[K]);
k:=IndexOfPointItem(L^.PointTO, et2.PointList);
C2:=PSPoint(et2.PointList[K]);

if C^.PointType in [3,4] then Col:=ClRed else Col:=clGreen;
if l^.LinkCP‹›'' then
begin
S:= l^.LinkCP;
X1:=C^.x-1; Y1:=C^.y-1; S:= l^.LinkCP; X2:= C2^.x-1;Y2:=C2^.y-1;

MiniSHA.Add(Format('p[%d]((%d,%d)',[col,x1,y1])+S+
Format('(%d,%d))',[x2,y2]));


end else
MiniSHA.Add(Format('p[%d]((%d,%d)(%d,%d))',[col,C^.x,C^.y-2,C2^.x,C2^.y-2]));
end;
end;

end;
Var
YF,XF,YF1,XF1:Integer;
TS:TStringList;
begin

// "на всякий пожарный"...
if BaseElementDrawList = nil then
begin
TS:=TStringList.Create;
CreateOrLoadElementBase('','Delphi.dat',false,TS);
ParserElementBase(TS);

//Memo2.Text:=cp1251toUtf8(Ts.Text);
ts.Free;

end;
///Button3Click(Sender);
if ElementList ‹› nil then ElementList.Clear;
parsing_sha.SHA_Parser(TextSHA);
//Button1Click(Sender);
if MiniSHA=nil then MiniSHA:=TStringList.Create;
if MiniSHA.Count ›0 then MiniSHA.Text:='';
Sx:=7; SY:=7;

// Тест формата



// для всех элементов схемы
For I:=0 to ElementList.Count-1 do begin
ET:=TSElement(ElementList.Objects[i]);
N:=ET.Name;
X:=ET.eX; Y:=ET.eY;

et.CalkMetrix;
Cdo:=ET.Cdo; Con:=ET.Con; CVar:=ET.CVar; CDat:=ET.CDat;
W:=et.WW; H:=et.HH;
Sx:=et.StepX; Sy:=et.StepY;


// "Чип"
X:=ET.eX; Y:=ET.eY;
X2:=x+(w*Sx);Y2:= y+(h*Sy)+Sy;
MiniSHA.Add(Format('c(%d,%d,%d,%d)',[x,y,x2,y2]));

// контакты "Чипа"

ContactChip2d;

end;//for ElementList

Link2d; // Конверсия связей

/// MiniSHA.SaveToFile('MiniSHA.Txt');

end;


end.

Редактировалось 14 раз(а), последний 2021-07-26 14:06:55
карма: -1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8675
Рейтинг: 803
#2: 2021-07-18 19:42:55 ЛС | профиль | цитата
AlexKir писал(а):
по этому первую версию этого поста я как водится потерял
Бог есть и он пытался вас отговорить, но вы не вняли предупреждению
карма: 18

0
Ответов: 946
Рейтинг: 12
#3: 2021-07-19 06:47:47 ЛС | профиль | цитата
Это не Бог, а "бок" мой ленивый... (Лень было перед посылкой поста запомнить написанное, а набираю тексты я действительно медленно бо мой ДЦП быстро набирать не позволяет, но это уже точно не не бог, а скорее черт )

Лучше бы с хабом кто помог ... Совершенно непонятно как там тип точек определяется .
Зы
На всякий случай : Я не собираюсь "плагиатить ХайАсм" (это ИМХО бесполезно хотя у меня есть идеи ( каюсь отложенные в долгий ящик ) по поводу своей разработки чего-то похожего под названием "МидАсм" ) Но кое что из моих идей развития ХайАсма можно реализовать только через изменение среды разработки . Кроме того по моему ХайАсму совсем не помешает редактор схем с поддержкой ZUI(zooming user interface ),3D(с помощью OpenGL) и VR (с помощью Open VR).

Зы Зы
В ближайших планах :
1 Сделать тестовый вариант парсера в виде Схемы для самого ХайАсма ( с IC )

2 При переходе на "новый уровень" сделать отдельный проект ViewSHA_VR
( Разумеется работа в VR режиме будет опциональной и возможно будет даже специальная "Легаси версия" для 32-разрядных ОС )

3 Разумеется надеюсь доработать парсинг хотя-бы для возможности показа 60% всей "схемотехники".

4 Попробовать сделать "истинное 3д" для схем. (Но нужно подумать как это можно реализовать сохранив совместимость формата и нужно ли это вообще... Хотя сама идея создания схем в ВиАр в режиме "свободного дизайнера" видится мне довольно привлекательной особенно в плане создания програм для ВиАр )

Зы Зы Зы
Главное можно считать доказанным "Полный внешний парсинг формата SHA" ВОЗМОЖЕН!


Редактировалось 10 раз(а), последний 2021-07-19 08:18:24
карма: -1

0
Ответов: 1986
Рейтинг: 632
#4: 2021-07-19 11:25:21 ЛС | профиль | цитата
AlexKir писал(а):
Главное можно считать доказанным "Полный внешний парсинг формата SHA" ВОЗМОЖЕН!
А разве кто-то утверждал обратное? Что-то не помню такого. Серьёзно что в этом сложного?
карма: 9

0
Ответов: 946
Рейтинг: 12
#5: 2021-07-19 15:12:04 ЛС | профиль | цитата
Ха Ха Ха !
Во первых, поскольку никто вроде не продвинулся дальше сбора статистики по элементам схемы то проблема есть. (как раз подобную схему я пытаюсь (признаюсь не очень успешно ) парсить на скрине выше)

Во вторых,сомневался я сам. И дело разумеется не в формате-SHA,а в том что данные нужные для отрисовки схемы хранятся совсем не в ней самой. А использовать данные из базы пакета это "немного другой" уровень сложности. (как вам например "множественное наследование" в INI-файлах ?) Определенно проще разработать свой альтернативный формат для отрисовки схемы (что по сути и делает схема hiasm3d - легко переписанная мной в Лазарусе ) чем найти и верно использовать неизвестно где хранящиеся данные.

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

Редактировалось 8 раз(а), последний 2021-07-19 15:46:33
карма: -1

0
Главный модератор
Ответов: 2977
Рейтинг: 392
#6: 2021-07-19 15:33:52 ЛС | профиль | цитата
AlexKir писал(а):
как вам например "множественное наследование" в INI-файлах

Это просто рекурсивный вызов функции во время разбора SHA файла. И вообще идея построчного выполнения sha файла невозможна, так как результатом чтения схемы является объектная модель, которая в свою очередь, используется для отрисовки только одного текущего контейнера схемы. Если внимательно вчитываться в исходный код HiAsm 5, то:
sla8a писал(а):
Серьёзно что в этом сложного?

карма: 7
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 946
Рейтинг: 12
#7: 2021-07-19 15:59:41 ЛС | профиль | цитата
Nic писал(а):

Это просто рекурсивный вызов функции во время разбора SHA файла. И вообще идея построчного выполнения sha файла невозможна, так как результатом чтения схемы является объектная модель, которая в свою очередь, используется для отрисовки только одного текущего контейнера схемы. Если внимательно вчитываться в исходный код HiAsm 5, то:
Серьёзно что в этом сложного?


1 "просто рекурсивный вызов функции во время разбора SHA файла" Угу,угу а как поступать на пример при "перекрытии точек"? И в какой последовательности это самое перекрытие призводить. (Я чувствую что еще нахлебаюсь с этим потому, что то что "интуитивно понятно" далеко не значит, что именно так все и есть )

2 Про построчное исполнение ( и исполнение вообще ) речи пока не идет. Однако, если в памяти будут все необходимые и верно интерпретированные данные то сделать режим интерпретации (ИМХО) не многим сложнее чем отрисовать связи между элементами.
(Даже в текущей и признаюсь сильно кривой версии парсера TSElement вполне себе класс причем с поддержкой "режима контейнера" хотя для отрисовки я его пока не использую и вообще как рисуется именно контейнер я пока толком еще не разобрался но иерархия уже поддерживается ).
3
Nic писал(а):
Если внимательно вчитываться в исходный код HiAsm 5, то:
sla8a писал(а):
Серьёзно что в этом сложного?

Оксюморон зачетный.
"исходный код HiAsm 5" смотрел и дело даже, не в том что он на С++ (хотя я "кресты" не люблю но сталкиваюсь с ними регулярно ) А с тем что разобрать с нуля логику столь сложного проекта было-бы сложно даже если бы исходники были на любимом мной лазарусе.
Сам не раз сталкивался ситуаций когда мои совсем не сложные вроде-бы (как для меня) исходники вызвали "форменный ступор". Разбирать "чужую логику" без дополнительного подробнейшего ее описания бывает сложно даже при наличии полного и исходника.(Это-же все равно ничто иное как пресловутый "инженерный анализ" )

Редактировалось 5 раз(а), последний 2021-07-19 16:39:33
карма: -1

0
Главный модератор
Ответов: 2977
Рейтинг: 392
#8: 2021-07-19 16:09:35 ЛС | профиль | цитата
AlexKir писал(а):
Угу,угу а как поступать на пример при ...

«Дайте воды попить, а то так есть хочется, что переночевать негде!»

карма: 7
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 946
Рейтинг: 12
#9: 2021-07-19 16:38:30 ЛС | профиль | цитата
Nic писал(а):
«Дайте воды попить, а то так есть хочется, что переночевать негде!»

С "множественным наследованием" я как раз более мнение разобрался (иначе вместо даже простейших схем увидел-бы "дулю с маком" )

А вот с хабом у меня пока непонятка . Как там тип точки определяется? (do,on,Var,Data )
То есть понятно, что если одна точка on то вторая автоматом do, но что делать если хаб соединяется с хабом ?

Редактировалось 5 раз(а), последний 2021-07-19 16:52:49
карма: -1

0
Главный модератор
Ответов: 2977
Рейтинг: 392
#10: 2021-07-19 16:59:47 ЛС | профиль | цитата
Леонид писал(а):
Бог есть и он пытался вас отговорить, но вы не вняли предупреждению

Хочу изменить мир к лучшему, но Бог не даёт исходники.

карма: 7
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 1986
Рейтинг: 632
#11: 2021-07-19 17:02:42 ЛС | профиль | цитата
AlexKir, делаете вы свой парсинг формата sha, дело ваше на чем и как вам это делать. Но вот зачем вы в заблуждение вводите, основываясь исключительно на своих домыслах.
AlexKir писал(а):
Ха Ха Ха !
Во первых, поскольку никто вроде не продвинулся дальше сбора статистики по элементам схемы
Вы когда разберетесь с сверхсекретным, сверхсложным и очень запутанным форматом с огромным количеством подводных камней, подскажите остальным, сделайте милость.
AlexKir писал(а):
А вот с хабом у меня пока непонятка . Как там тип точки определяется?
А можно узнать у кого вы спрашиваете, если сами только что утверждали что никто не понимает. Вот из вашего поста выше:
AlexKir писал(а):
Ха Ха Ха !
Во первых, поскольку никто вроде не продвинулся дальше сбора статистики по элементам схемы
Так что:
AlexKir писал(а):
Оксюморон зачетный.


Редактировалось 1 раз(а), последний 2021-07-19 17:03:18
карма: 9

0
Ответов: 4724
Рейтинг: 525
#12: 2021-07-19 18:34:15 ЛС | профиль | цитата
http://hiasm.narod.ru/HiAsm2_13b.rar
Может что и пригодится, хотя лучше с гитхаба портировать
карма: 6
0
Ответов: 946
Рейтинг: 12
#13: 2021-07-19 19:17:44 ЛС | профиль | цитата
andrestudio писал(а):
http://hiasm.narod.ru/HiAsm2_13b.rar
Может что и пригодится, хотя лучше с гитхаба портировать



Во первых спасибо !


(Где то в архивах это файл есть (но фиг найдешь!) причем вроде еще без вируса но исходникам вирус почти не страшен так что выдернул только их [глянул, старенькие они больно но рад и таким ])

sla8a писал(а):
AlexKir, делаете вы свой парсинг формата sha, дело ваше на чем и как вам это делать. Но вот зачем вы в заблуждение вводите, основываясь исключительно на своих домыслах.

В принципе возможно вы забыли а возможно это было немного до вашего появления на форуме. Но тема парсинга схем тут далеко не новая (хотя часть тем благополучно потерлась или затерялась ). Кроме того я перелопатил ту все поиском и нашел только AnalisSHA и findcomponent.

sla8a писал(а):
Вы когда разберетесь с сверхсекретным, сверхсложным и очень запутанным форматом с огромным количеством подводных камней, подскажите остальным, сделайте милость.


Так я уже выложил первую более мнение рабочую тестовую версию парсера (честно описав проблемы и возможности ) и действительно готов поделится всем что отрою.
.
sla8a писал(а):
А можно узнать у кого вы спрашиваете, если сами только что утверждали что никто не понимает.


Так тут иногда непосредственные разработчики hiasma появляется ( и даже сам Dilma) и ОНИ-то точно все знают. (хотя могут и не сказать но "попытка не пытка". )

Nic писал(а):
Хочу изменить мир к лучшему, но Бог не даёт исходники.

Что-то вроде того ...

Редактировалось 8 раз(а), последний 2021-07-19 20:04:11
карма: -1

0
Ответов: 1986
Рейтинг: 632
#14: 2021-07-19 21:19:34 ЛС | профиль | цитата
AlexKir писал(а):
возможно это было немного до вашего появления на форуме.
Это на дату регистрации в моем профиле посмотрев сделан такой вывод
AlexKir писал(а):
иногда непосредственные разработчики hiasma появляется ( и даже сам Dilma) и ОНИ-то точно все знают

А можете перечислить всех непосредственных разработчиков HiAsm? (уж простите за флуд, но очень хочется узнать)
AlexKir писал(а):
я уже выложил первую более мнение рабочую тестовую версию парсера (честно описав проблемы и возможности )
А где описаны проблемы? Или слова "проблемы" и "особенности" синонимы? А так ни одного внятного вопроса.
карма: 9

0
Ответов: 946
Рейтинг: 12
#15: 2021-07-20 12:12:36 ЛС | профиль | цитата
sla8a писал(а):
то на дату регистрации в моем профиле посмотрев сделан такой вывод

Нет посмотрев на дату собственной регистрации
(Бо если честно уже забыл когда я здесь объявился... я тут кроме первых не нескольких лет довольно не регулярно появляюсь, что отлично видно по числу постов и прочим "регалиям"... )
sla8a писал(а):
А можете перечислить всех непосредственных разработчиков HiAsm? (уж простите за флуд, но очень хочется узнать)

Думаете я точно помню что тут творилось на протяжении 16-ти лет ?
sla8a писал(а):
А так ни одного внятного вопроса.


Кратко: пока на повестке дня простой вопрос :" Как определить тип точек Хаба?"
(И если кто-то поделится скажу "Спасибо!" если нет попробую разобраться самостоятельно )

До прочих проблем и сложностей я пока банально не добрался и спрашивать что-то конкретное пока просто рано. Но работа идет, результат есть.
Так что новые вопросы "не за горами"!

Зы
О написании hiasm-эмулятора я пока всерьез действительно не думал . (Возможно нужно будет написать спец пакет Open-Hiasm потому что использовать существующие в приложении OpenGL/OpenVR особого смысла нет ) Но в принципе само по себе "исполнение схемы" реализовать не так уж и сложно. Жаль разумеется что нет фирменного транслятора SHA2EXE или SHA 2 "целевой ЯВУ". Но для моих текущих целей это не так уж важно.

Редактировалось 9 раз(а), последний 2021-07-20 16:48:51
карма: -1

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)