Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[admin]

Спасибо, очень может быть, что так оно и есть.
Проверю, по результатам исправлю.

[Sh@dow]

Ïîõîæå, îøèáêà â ìîäóëå OComp.pas
ñòðîêà 1458, ôóíêöèÿ TCompiler.ParseVarSection

Code: [Select]

  for i := OldTotalVars to OldTotalVars+VarCount-1 do begin
    Inc(Result, GetTypeSize(TID));
    if (CurNamespace.Kind = nskModule) or (CurNamespace.Kind = nskRecord) then begin
      if GetExternalVarIndex(Data.Variables[i].Name) <> -1 then
       Data.Variables[i].Index := AllocateData(0, 0) else begin
         Data.Variables[i].Index := AllocateData(GetTypeSize(TID), 0);
         SetVarLocation(Data.Variables[i], ilGlobal);
       end;
    end else begin
      Data.Variables[i].Index := AllocateStack(GetTypeSize(TID));
      SetVarLocation(Data.Variables[i], ilStack);
    end;
    Data.Variables[i].TypeID := TID;
  end;íàäî çàìåíèòü íà

Code: [Select]

  for i := OldTotalVars to OldTotalVars+VarCount-1 do begin
    Inc(Result, GetTypeSize(TID));
    case CurNamespace.Kind of
     nskModule:begin
      if GetExternalVarIndex(Data.Variables[i].Name) <> -1 then
       Data.Variables[i].Index := AllocateData(0, 0) else begin
         Data.Variables[i].Index := AllocateData(GetTypeSize(TID), 0);
         SetVarLocation(Data.Variables[i], ilGlobal);
       end;
     end;
     nskRecord:begin
         Data.Variables[i].Index :=CurNamespace.StackLength;
         Inc(CurNamespace.StackLength, GetTypeSize(TID));
         SetVarLocation(Data.Variables[i], ilGlobal);
     end;
     nskProcedure:begin
      Data.Variables[i].Index := AllocateStack(GetTypeSize(TID));
      SetVarLocation(Data.Variables[i], ilStack);
     end;
    end;
    Data.Variables[i].TypeID := TID;
  end;âñå äåëî â òîì, ÷òî ó ïåðåìåííûõ, âõîäÿùèõ â çàïèñü, ïàðàìåòð Index îáîçíà÷àåò ñìåùåíèå îòíîñèòåëüíî íà÷àëà çàïèñè, à íå îòíîñèòåëüíî íà÷àëà ìàññèâà Data, êàê ó îáû÷íûõ ïåðåìåííûõ.
â ýòîì ìîæíî óáåäèòüñÿ, ïðîñìîòðåâ ôóíêöèþ TCompiler.SpecifyRecord

PS. Íàøåë îøèáêó â ñâîåì æå êîäå ß èñïîëüçîâàë ïåðåìåííóþ StackLength ÷òîáû çàïîìèíàòü, ãäå çàêàí÷èâàåòñÿ ïîñëåäíÿÿ ïåðåìåííàÿ, ò.ê. ó çàïèñåé îíà âñå ðàâíî íå èñïîëüçóåòñÿ

[svsd_val]

Я это пробывал сделать, она их ставляла , но толку никакого небыло , немог заставить записи работать , работало всё кроме записей


буду ждать новой версии

[admin]

Для этого служит процедура ImportExternalVar();
Она принимает название переменной, типа и адрес. В скрипте требуется объявить эквивалентный тип с таким же названием и можно обращаться к данной переменной из скрипта по заданному имени. Тип может быть произвольным. Я в предыдущей версии движка, таким образом импортировал массив с частицами и можно было из скрипта задавать их поведение.
Хотя похоже, что что-то сломалось и в текущей версии это не работает, если в объявлении типа присутствуют записи.
Думаю, что к следующему релизу исправлю проблему с записями.
Тут можно взять тестовое приложение для скрипта. Чтобы более так ничего не ломалось, надо бы еще что-то вроде юнит тестов изобрести.

[svsd_val]

Доброго времени суток !

случайно наткнулся на oberon - в CAST][ исходниках
Помучил его немного и возник вопрос :

Как из в скрипте получить и изменить переменную от программы ?
то есть :

допустим у нас есть вектор , с определёнными значениями, нужно чтоб в скрипте можно было выполнить с ним операции и вернуть полученные результаты в переменную программы

пример:

type
 TVector = record
  x,y,z:single;
  end;

Var
 A,B : TVector;
....
A = (x:  10, y: -20, z:  30)
B = (x: -20, y:  30, z: -70)

в скрипте
 A.x := ( A.x + b.x );
 A.y := ( A.y + b.y );
 A.z := ( A.z + b.z );

Так вот как мне получить стартовое значение переменных A и B
и после окончания работы скрипта новое значение переменной A


С уважением SVSD_VAL

With Quick-Reply you can write a post when viewing a topic without loading a new page. You can still use bulletin board code and smileys as you would in a normal post.

Warning: this topic has not been posted in for at least 120 days.
Unless you're sure you want to reply, please consider starting a new topic.

Name: Email:
Verification: