Помогите со старой прогой

← →
Брюнетка © (2005-10-19 09:16) [0]

Ситуация: есть старая программа, написанная в начале 90-х. В рабочей папке лежит база (*.dbf и пр.), исходники (*.prg) и, как я понимаю, скомпилированные файлы с каким-то непонятным расширением kar. Проблема в том, что нужно поменять пару параметров, а прописаны они, к сожалению не в базе, а в исходниках. А для начала нужно определить хотя бы на каком языке все это дело написано. Судя по исходным текстам, яык похож на Clipper, но вроде бы не он.

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

P.S. Понимаю, что форум дельфистов, но может быть есть спецы по старым языкам? Подскажите плиз в каком направлении копать.

← →
DiamondShark © (2005-10-19 09:33) [1]

FoxPro ?

← →
Holy © (2005-10-19 09:35) [2]

Кусочек исходников покажите...

← →
XGarik © (2005-10-19 09:38) [3]

100% FOXPRO!!!!! Версия скорее всего 2.5

← →
Брюнетка © (2005-10-19 09:40) [4]

>DiamondShark © (19.10.05 09:33) [1]

Меня больше всего смущают kar-файлы. В Фоксе я что-то такого не припомню.

← →
MBo © (2005-10-19 09:41) [5]

>Меня больше всего смущают kar-файлы
Это караоке, чтобы не скучать во время работы ;)

← →
Брюнетка © (2005-10-19 09:45) [6]

>MBo © (19.10.05 09:41) [5]

Ох, сколько раз я уже этот вариант слышала! :))

← →
MBo © (2005-10-19 09:49) [7]

.kar Precompiled .prg for KARAT (Rus. FOX+ 2.0)

← →
Брюнетка © (2005-10-19 09:50) [8]

"кусочек" кода ;)

----------------------------

clear set status off set scoreboard off set safety off set talk off set date german set bell off set dele on set path to d:\bazs-svt ******* Создание баз данных со структурами БД K_tr01-88t и K_tr01-88r clear @ 15,17 SAY "Создание файлов, содержащих структуры новых БД" L=1 DO WHILE L<3 if L=1 Fil_b="k_tr01t" Fil_s="struk_t" else Fil_b="k_tr01r" Fil_s="struk_r" endif sele 1 use &Fil_b copy structure EXTENDED to &Fil_s use &Fil_s GO 5 Xtype=FIELD_TYPE Xlen=FIELD_LEN XDEC=FIELD_DEC i=5 DO WHILE i<47 DELETE skip i=i+1 ENDDO PACK if L=1 go top C_type=FIELD_TYPE copy to fil_st for FIELD_TYPE#C_type DELETE for FIELD_TYPE#C_type pack endif I=1 j=1 DO WHILE I<100 IF I<10 N_p="0"+RTRIM(LTRIM(STR(I))) ELSE N_p=RTRIM(LTRIM(STR(I))) ENDIF DO CASE CASE N_p="01".OR.N_p="04".OR.N_p="07" IF J=1 I_pol=N_p+"V" ELSE I_pol=N_p+"E" I=I+1 ENDIF if j=1 j=j+1 else j=1 endif CASE N_p="15".OR.N_p="16".OR.N_p="33".OR.N_p="34".OR.N_p="35" DO CASE CASE J=1 I_pol=N_p+"V" CASE J=2 I_pol=N_p+"E" CASE J=3 I_pol=N_p+"T" I=I+1 if i>35 i=99 endif ENDCASE if j<3 j=j+1 else j=1 endif OTHERWISE I_pol=N_p+"O" I=I+1 ENDCASE APPEND BLANK IF L=1 I_pol="T"+I_pol ELSE I_pol="R"+I_pol ENDIF REPLACE FIELD_NAME WITH I_pol,FIELD_TYPE WITH Xtype; FIELD_LEN WITH Xlen,FIELD_DEC WITH Xdec ENDDO IF L=1 APPEND FROM fil_st ENDIF L=L+1 ENDDO clear @ 15,17 SAY "Файлы, содержащие структуры новых БД - созданы" @ 17,15 SAY "Нажмите - <Enter>" WAIT "" SUSPEND RETURN

← →
REP © (2005-10-19 09:51) [9]

Это карат. Русский клон Foxpro 1. впринципе компилируется любыми ДОС фоксами. Хотя на компьютере где запускается должна быть папочка Karat или что-то в этом духе.

← →
REP © (2005-10-19 09:53) [10]

MBo © (19.10.05 09:49) [7]
странно но на 2 фокс карат не тянет, хотя может были и какие-то другие версии карата.

← →
Amoeba © (2005-10-19 11:05) [11]

Карат - это русская версия FoxBase, предшественника FoxPro. Древность жуткая, еще 80-х годов.

← →
Igorek © (2005-10-19 12:33) [12]

FoxBase? Писал сто лет назад на нем.. Уж точно не скажу.

← →
SergP. (2005-10-19 13:44) [13]

Судя по коду - Фокспро как фокспро...
Ничего нефокспрошного я в нем не вижу...

> Судя по коду - Фокспро как фокспро...

так ить синтаксис что в FoxPro, что FoxBase, что DBase в общем один. интерпретируются по разному.

Спасибо, люди добрые, действительно КАРАТ.
Даже компилятор нашла 1988 года, во как. Я в то время в школу ходила и не знала, что такие звери бывают. :)
Всем спасибо, всем большой :kiss:

← →
SergP. (2005-10-19 15:23) [16]

> так ить синтаксис что в FoxPro, что FoxBase, что DBase в
> общем один. интерпретируются по разному.

Ну я насчет FoxBase и DBase не в курсе. Никогда с ними не приходилось работать, а с FoxPro раньше приходилось (да и сейчас иногда тоже).
А насчет того что синтаксис что в FoxPro, что FoxBase, что DBase один даже и не знал...

Да и Сlipper S`87 компильнет это без проблем...

← →
PQ2 (2005-10-28 20:52) [18]

oldman © (19.10.05 17:54) [17]
Да и Сlipper S`87 компильнет это без проблем...

Это ты, дружище, загнул. Clipper через строчку будет находить ошибки. FoxPro работает, только проблемы с кириллицей. Пару символов отображает неверно. Еще была в древние времена киевская разработка MRS-3. Она тоже заглотит прогу без проблем

Помогите со старой прогой Найти похожие ветки