Подключение графической библиотеки QT к SPF 4.20

mOleg

похоже чего-то не хватает:

D:\SPF>spf4.exe console.f
API-CALL isn't unique (stdlib.f)
Exception #-2003 at: D:\SPF\devel/~day\hype3\hype3.f:2:3:
ta c-addr u - xt 1 | xt -1 | abort )
    MFIND ?DUP 0=
    IF
       ROT DUP S" unknown" SEND
    THEN
;

: SEND, ( a ta addr u
 ^ -2003 WORD OR FILE NOT FOUND
^C

пытался запустить на стандартном СПФ без CVS обновлений (может поэтому?)

Заглянул в код, интересно, вы [IF] [ELSE] [THEN] специально не используете?

И еще,

Код:

VARIABLE  uSaveUSD    // Указатель для сохранения и востановления стека

может лучше таки USER использовать?

mgw

Странно ... У меня обычный SPF 4.20 из дистрибутива, правда собранный на моём компе из каталога src. Обновления из CVS я не использую.

Интересно, у других то работает?

spf

mgw писал(а):

Мне он не нравится, т.к. тяжело визуально понять, где объект, а где его метод. Думаю при помощи слова NOTFOUND реализовать синтаксис через точку

Конфликтовать не будет. Но, может быть перекрытие — например, если есть объект o, метод m, и слово с именем o.m, то при связывании будет отдано предпочтение слову.

Код:

REQUIRE enqueueNOTFOUND ~pinka/spf/notfound-ext.f
REQUIRE SPLIT-  ~pinka/samples/2005/lib/split.f
REQUIRE AsQWord ~pinka/spf/quoted-word.f


: AsHypeMethod ( i*x c-addr u -- i*x a-addr u false | j*x true )
  `. SPLIT- 0= IF FALSE EXIT THEN
  SFIND 0= IF DROP -ROT + OVER - FALSE EXIT THEN
  EVALUATE-WITH
  TRUE EXIT
;
 'AsHypeMethod enqueueNOTFOUND

\EOF  \ test:
~day\hype3\hype3.f

CLASS C1
  : test ." passed " ;
;CLASS

C1 NEW a
a test
a.test

_Harry

mgw писал(а):

Мне он не нравится, т.к. тяжело визуально понять, где объект, а где его метод. Думаю при помощи слова NOTFOUND реализовать синтаксис через точку:

NOTFOUND для этого ни к чему (разве что очень хочется)
Почему бы ни писать просто при помощи префиксов

Код:

оОбъект   оОбъектик   оОбъектушка   \имена объектов  
mДелает  mОтлынивает  mКовыряетсяВносу  \имена методов  

Код:

оОбъект mДелает 
оОбъектик mКовыряетсяВносу 
оОбъектушка mОтлынивает

Помоему все будет понятно или нет :?:

Хотя еще лучше писать используя части речи как в обычном языке.

mgw

Код:

REQUIRE enqueueNOTFOUND ~pinka/spf/notfound-ext.f
REQUIRE SPLIT-  ~pinka/samples/2005/lib/split.f
REQUIRE AsQWord ~pinka/spf/quoted-word.f

: AsHypeMethod ( i*x c-addr u -- i*x a-addr u false | j*x true )
  `. SPLIT- 0= IF FALSE EXIT THEN
  SFIND 0= IF DROP -ROT + OVER - FALSE EXIT THEN
  EVALUATE-WITH
  TRUE EXIT
;
'AsHypeMethod enqueueNOTFOUND

Спасибо SPF за красивое решение.

Работает отлично!

_Harry писал(а):

NOTFOUND для этого ни к чему (разве что очень хочется)Почему бы ни писать просто при помощи префиксов

Я так и делал в начале, но консерватизм берет своё. На меня С++ давит очень сильно ...

Трудность, которую наверное не обойти (может кто знает как сделать):
Пока работаем с указателем (пример: *QWidget) всё отлично. Но как дело доходит до объектов, то всё рушится. Связано это с типизацией С++. Объект в С++ - это структура в нескольких регистрах. Вернуть объект на стек SPF нет возможности

а вся QT усеяна такими вот методами:

Код:

QString QApplication.DirNamePath();

Форт надо развивать в сторону структур и объектов C++ (например MinGW и gcc). Если форт сможет работать со структурами С++, то это будет супер!

mOleg

mgw писал(а):

Трудность, которую наверное не обойти (может кто знает как сделать):
Пока работаем с указателем (пример: *QWidget) всё отлично. Но как дело доходит до объектов, то всё рушится. Связано это с типизацией С++. Объект в С++ - это структура в нескольких регистрах. Вернуть объект на стек SPF нет возможности а вся QT усеяна такими вот методами:

Вариант только один - делать обертки для каждого вызова на асме.
То есть, снимать данные со стека данных, размещать их в регистрах (предварительно сохранив содержимое EDI на стеке данных), сохранять указатель на стек данных, и потом делать вызов.

mgw писал(а):

Я так и делал в начале, но консерватизм берет своё. На меня С++ давит очень сильно ...

зря, будет получаться некрасиво и неудобно (таки идеология иная)

mOleg

mgw писал(а):

Форт надо развивать в сторону структур и объектов C++

к Форту уже тьма объектных библиотек есть (каждый делает свой вариант) и очень мало толку. Структуры тоже не проблема, они не только есть, но есть в разном исполнении. Объекты - таки другая парадигма, лучше освоить нормально словари и работу с ними.

mgw

mOleg писал(а):

к Форту уже тьма объектных библиотек есть

Есть моделирование объектов на форте, а я говорю об реальных объектах и структурах C++ и работе с форта с ними.
Ну вот простой пример:
В QtCore4.dll лежит функция с именем _ZN16QCoreApplication19applicationFilePathEv. Адрес этой функции известен.
Её опеределение: QString CoreApplication::applicationFilePath() проще некуда, просто вернуть значение. Вопрос как это сделать ..... не имея поддержки объектов С++ Или я заблуждаюсь и это просто?

mOleg

я имел ввиду что-то типа такого:

Код:

;syscall that takes one parameter

sys1:
 pop ebx
 jmp sys0

;-------------------------------------------------------------------------
;syscall that takes 2 parameters

sys2:
 pop ebx
 pop ecx
 jmp sys0

;-------------------------------------------------------------------------
;etc

sys3:
 pop ebx
 pop ecx
 pop edx
 jmp sys0

;-------------------------------------------------------------------------

sys4:
 pop ebx
 pop ecx
 pop edx
 pop esi
 jmp sys0

;-------------------------------------------------------------------------

sys5:
 pop ebx
 pop ecx
 pop edx
 pop esi
 pop edi
 jmp sys0

;-------------------------------------------------------------------------
;use of this limits your code to kernel 2.4+

sys6:
 pop ebx
 pop ecx
 pop edx
 pop esi
 pop edi
 pop ebp
 jmp sys0

это кусочек одного из Фортов под Linux, где параметры передаются не через стек, а через регистры.

mgw

mOleg писал(а):

это кусочек одного из Фортов под Linux

Это интересно, большое спасибо. Я уже думал в этом направлении, ну а раз есть подтверждение, надо нажать.

Кстати, Олег, удалось запустить console.f ?

mOleg

mgw писал(а):

Кстати, Олег, удалось запустить console.f ?

Нет, не пытался разбираться. Посмотрел чуток в код и все.
Хотя, таки либы у меня новые для СПФа.

mgw

Снимок с экрана. tutor1, tutor2 и console в Linux http://mgw.narod.ru/tmp1.jpeg

mgw

Изменил расположение файлов в библиотеке. Сделал каталог ~mgw.
Вставлено несколько новых элементов, например QChar, поддержка юникода и т.д.

Написал с использованием модернизированной библиотеки программу на SPF. Это просмоторщик файлов форта (view.f), с подсветкой синтаксиса. Вполне реально развить её до редактора (можно вписывать текст, но пока без сохранения) или до IDE.

Ссылка для скачивания spfqt_win_2.zip

mOleg

попытка запустить исполнимый файл view.exe подвесила комп (пришлось перегружаться).
С вызовом объектов разобрался сишных?

mgw

mOleg писал(а):

С вызовом объектов разобрался сишных?

Частично. С вызовом объектов С++ из форта проблема. Объект в понятиях C++ - это куча значений в регистрах, а у форта только стек. Писать на ассемблере слова моделирующие механизмы С++ слишком сложно, фактически писать компилятор С++. Пока я на промежуточном варианте, а именно, всё что не могу сделать в форте делаю в DLL. Вообще по современным меркам форт развит слабо, с другой стороны если его развить, то получится, либо Python либо Java. Форт, тем и хорош, что пока не страдает гигантизмом.

P.S. Народ, помогите протестировать библиотеку spfqt_win_2.zip Должна же она работать у других ...

Подключение графической библиотеки QT к SPF 4.20

Кто сейчас на конференции