Вопрос по биндингу ? Или что тут еще требуется?

[vlad]

а подскажите, пожалуйста, есть ли в компиляторе код/объект, который бы мог использоваться для создания автокомплита по оберону?

Пока нет. Но хочется. Когда-нибудь будет, если проект не загнется

[vlad]

КП в плане того, что процедуры не надо присваивать, удобнее конечно

Да, процедуры будут добавлены одними их первых в расширение языка. Хотя бы по по образу и подобию КП.

[vlad]

В текущей версии жабаскриптовые строки можно не конверить в массив при передаче как ARRAY OF CHAR - будет работать.

Код: [Выделить]

PROCEDURE f*(s: ARRAY OF CHAR);
...
var s = "abc";
oberonModule.f(s);

Также можно попробовать поддержать обратный сценарий (если надо) - чтобы обероновский ARRAY OF CHAR  выглядел для жабаскрипта почти как строка (перегрузить toString в rtl.js).

Код: [Выделить]

VAR s: ARRAY 10 OF CHAR;
BEGIN
    s := "abc";
    JS.alert(s);


[vlad]

    JS.alert(s);

Cейчас показывает 97,98,99,0,0,0...

[adva]

Подскажите, пожалуйста, как исключения обрабатываются? Или ключевые слова, которые по этому поводу посмотреть. Или подобного вообще нет?

[vlad]

Подскажите, пожалуйста, как исключения обрабатываются? Или ключевые слова, которые по этому поводу посмотреть. Или подобного вообще нет?

Будет после методов Пока можно кидать и ловить из жабаскрипта.

[adva]

Ладно, пока жабаскриптом буду.

Такой вопрос, не нашел как объявлять форвардные объявления процедур. Или это уже не требуется?

[vlad]

Такой вопрос, не нашел как объявлять форвардные объявления процедур. Или это уже не требуется?

Вирт выпилил. Если есть взаиморекурсивные процедуры - то только через дополнительную процедурную переменную.

[adva]

А где нибудь есть описание стандартных библиотек (чтобы реализацию для снегопата можно было бы использовать и в других средах)?

Наверное поэтому вопрос и возник, по поводу написания логики с использованием node. Чтобы потом можно было использовать код и в браузере.

Сейчас вижу, что достаточно реализовывать стандартные библиотеки, и работать через них. Чтобы потом также легко перейти на браузер.

[adva]

Вирт выпилил. Если есть взаиморекурсивные процедуры - то только через дополнительную процедурную переменную.

Ясно.
А при этом процедурное переменной можно присваивать только процедуры текущего модуля? А то пытаюсь присвоить из другого, выдает ошибку

[adva]

Кстати, судя по ответу на оберонкоре, там исключение вроде как через системную библиотеку сделано, здесь наверное тоже самое надо.

Может приведете, интерфейс (чтобы на яваскрипте пока у себя написал)

[Geniepro]

А при этом процедурное переменной можно присваивать только процедуры текущего модуля? А то пытаюсь присвоить из другого, выдает ошибку

Можно:

Код: [Выделить]

MODULE test1;

TYPE
   Proc* = PROCEDURE(x: INTEGER): INTEGER;
 
VAR
   proc: Proc;

PROCEDURE SetProc*(p: Proc);
BEGIN
   proc := p;
END SetProc;   

PROCEDURE TestProc*(x: INTEGER): INTEGER;
BEGIN
   RETURN proc(x)
END TestProc;   

END test1.

MODULE test;
IMPORT JS, test1;
 
PROCEDURE Add1(x: INTEGER): INTEGER;
BEGIN
   RETURN x + 1
END Add1;   
 
PROCEDURE Mul2(x: INTEGER): INTEGER;
BEGIN
   RETURN 2 * x
END Mul2;   
 
PROCEDURE Sqr(x: INTEGER): INTEGER;
BEGIN
   RETURN x * x
END Sqr;   
 
BEGIN
   test1.SetProc(Add1);  JS.alert(test1.TestProc(5));
   test1.SetProc(Mul2);  JS.alert(test1.TestProc(5));
   test1.SetProc(Sqr);   JS.alert(test1.TestProc(5))
END test.

[adva]

Я делал как-то так:

Код: [Выделить]

MODULE test;
 
PROCEDURE Add1*(x: INTEGER): INTEGER;
BEGIN
   RETURN x + 1
END Add1;   
 
BEGIN
 
END test.


MODULE test1;
IMPORT JS, test;

TYPE
   Proc* = PROCEDURE(x: INTEGER): INTEGER;
 
VAR
   proc: Proc;

PROCEDURE SetProc*(p: Proc);
BEGIN
   proc := p;
END SetProc;   

BEGIN
 
  SetProc(test.Add1);
  JS.alert(Proc(5));

END test1.

Сейчас тоже ошибка выдается, но как-то по другому

[adva]

Наверное как всегда глупость сделал, позже попробую разобраться сам

[Geniepro]

Я делал как-то так:

Код: [Выделить]

MODULE test;
 
PROCEDURE Add1*(x: INTEGER): INTEGER;
BEGIN
   RETURN x + 1
END Add1;   
 
BEGIN
 
END test.


MODULE test1;
IMPORT JS, test;

TYPE
   Proc* = PROCEDURE(x: INTEGER): INTEGER;
 
VAR
   proc: Proc;

PROCEDURE SetProc*(p: Proc);
BEGIN
   proc := p;
END SetProc;   

BEGIN
 
  SetProc(test.Add1);
  JS.alert(Proc(5));

END test1.
Сейчас тоже ошибка выдается, но как-то по другому

В строке

JS.alert(Proc(5));

указано имя типа вместо имени процедуры. Надо так:

JS.alert(proc(5));