Просто, интереса ради. Ведь наверняка-же кому-нибудь приходится писать на старом добром дос-овском фоксе. Ностальгия...
У меня даже сохранился самодельный текстовый препроцессор. Целый проект был FwHF - FoxPro with Human Face. О-о-о-о, годы, годы...
Прелесть этого препроцессора была просто неописуемая.
Например, определив ряд тестовых эквивалентов, я писал ня языке более высого уровня (менее кодоемкого), а затем преобразовывал его в FOX-овский.
Помните все эти @ ... say ... picture "" Со временем совсем забыл, какой последовательностью в picture обозначается какой элемент управления. Типичный код выглядел так.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
$INCLUDE "some file 1"
$INCLUDE "some file 2"
$INCLUDE "some file 3"
=DlgMain(param1, param2, orWithoutParams)
quit
Dialog Main
parameters param1, param2, orWithoutParams
*/ далее - следующие в любой последовательности опиания характеристик диалога
.CoordW= 20
.CenterX=.Y.
.title="My main form"
Add BtnOk as Button
.CoordX= 10
.CoordY= 20
.Title='Ok'
.Valid=clear reads
EndAdd
Add MyTable.UserName as Edit
.CoordX= 10
.CoordY= 21
.CoordW= 15
EndAdd
WhenShow
*/ аналог OnShow, OnActivate
Some Actions...
WhenDone
*/ аналог OnHide, OnClose
Some Actions...
EndDialog
Или, например:
1.
2.
3.
4.
5.
6.
7.
8.
MainMenu
SubMenu "Файл"
menuItem "Открыть" then do OpenFileAction
Sepator
menuItem "Выход" then quit
End SubMenu
End MainMenu
Красота. Жутко доволен был. Конечно, скажете: "Фи! Как много строчек!" Что-ж, возразить нечего.
Ностальгия.
Итак, кому-нибудь приходится сейчас работать на ДОС-овском FoxPro?
