arexx/pascal

[easy_john]

Пишу тут себе небольшую тулзу для амиги.
наткнулся на то, что в arexx при вызове функции нельзя переменные сделать локальными. т.е. они все глобальные и такие вещи как вызов функции рекурсивно банально не работают.
задумался.
из языков еще знаю паскаль. может уже есть смысл переписать все на паскале? (на каком?)
или можно как-то обойтись возможностями рекса?

[ED]

[quote="easy_john"]Пишу тут себе небольшую тулзу для амиги.
наткнулся на то, что в arexx при вызове функции нельзя переменные сделать локальными. т.е. они все глобальные и такие вещи как вызов функции рекурсивно банально не работают.
задумался.
из языков еще знаю паскаль. может уже есть смысл переписать все на паскале? (на каком?)
или можно как-то обойтись возможностями рекса?[/quote]
Переменные глобальные, это так.
Arexx очень слабенький язык, причем он еще и хорошенько глючит.
У меня написан конвертер 3д-объектов на нем. Я уже жалею, что когда-то использовал arexx, думаю переписать на каком-нибудь другом.
За счет ущербности языка конструкция на нем может получиться громоздкой и нелогичной.
К тому же он очень медленно работает. Для сравнения, что на асме происходит за доли секунды, то на арексе может растянуться на пол-часа (я не преувеличиваю).
По-возможности используй другой, можно бейсик (Amiblitz), можно паскаль.
А что пишем? алгоритм надо видеть, чтобы прикинуть, может и арексом можно обойтись.
Вообще, на арексе ветвления/переходы слабо поддержаны, поэтому о рекурсиях лучше вообще не думать.
О каких-то огромных массивах можно сразу забыть, потому как это очень медленно.

[easy_john]

[quote="ED"]Переменные глобальные, это так.[/quote]
это гнусно. не позволяет легко делать рекурсивные вещи вызовом функции самой из себя.

[quote="ED"]Arexx очень слабенький язык, причем он еще и хорошенько глючит. [/quote]
хм.

[quote="ED"]За счет ущербности языка конструкция на нем может получиться громоздкой и нелогичной.[/quote]
сама логика работы не слишком сложная, но вот некоторые процедуры могут сильно подпортить крови..

[quote="ED"]К тому же он очень медленно работает. Для сравнения, что на асме происходит за доли секунды, то на арексе может растянуться на пол-часа (я не преувеличиваю).[/quote]
ну, пока в эмуле это работает с достаточной скоростью.

[quote="ED"]По-возможности используй другой, можно бейсик (Amiblitz), можно паскаль.[/quote]
последний раз бейсик я видел году в 94-ом... и хотя раньше я был спецом по диалектам бейсика, сейчас я на нем писать ничего не готов.
паскаль - годится, его осилю, но какой тогда компилятор брать?
нужен код под 68000 и минимум рама.

[quote="ED"]А что пишем? алгоритм надо видеть, чтобы прикинуть, может и арексом можно обойтись.
Вообще, на арексе ветвления/переходы слабо поддержаны, поэтому о рекурсиях лучше вообще не думать.
О каких-то огромных массивах можно сразу забыть, потому как это очень медленно.[/quote]
алгоритм с рекурсиями неизвестной заранее глубины. думаю не больше 7-10, но без локальных переменных ...

[ED]

[quote="easy_john"]это гнусно. не позволяет легко делать рекурсивные вещи вызовом функции самой из себя.[/quote]
Может тебе еще объекты/классы дать?

[quote="easy_john"][quote="ED"]Arexx очень слабенький язык, причем он еще и хорошенько глючит. [/quote]
хм.[/quote]
Да-да, посидишь денек в арексе, как начнет регулярно ребутиться система.

[quote]Сама логика работы не слишком сложная, но вот некоторые процедуры могут сильно подпортить крови..[/quote]
Да самая простая процедура стандартно в лоб может быть нереализуема, когда циклы в циклах, переменные не имеют типов это и плюс и минус. Ну хз, я вообще с символьными строками работал по большей части.

[quote] нужен код под 68000 и минимум рама...
ну, пока в эмуле это работает с достаточной скоростью.[/quote]
тогда причем здесь 68000?

[quote]паскаль - годится, его осилю, но какой тогда компилятор брать?[/quote]
не знаю, на паскале на ами никогда не програмил. Имеются какие-то в коллекции компиляторы, посоветовать ничего не могу...

[quote]алгоритм с рекурсиями неизвестной заранее глубины. думаю не больше 7-10, но без локальных переменных ...[/quote]
надо обойтись без рекурсии в классическом ее понимании. или нагородить какую-то сложную конструкцию, но на арексе, все равно во что-то все время будешь упираться.

[easy_john]

[quote="ED"]Может тебе еще объекты/классы дать? :)[/quote]
не, спасибо, я объектам не обучен, как с ними работать - не знаю. :)
[quote="ED"]Да-да, посидишь денек в арексе, как начнет регулярно ребутиться система.[/quote]
ну, пока не замечал.
да и вообще странно, куча софта на арекс завязана, чего ему глючить..
[quote="ED"]тогда причем здесь 68000?[/quote]
потому, что хочу, что бы оно работало даже на 600-ке. а отлаживаю я естественно пока на эмуле.
[quote="ED"]не знаю, на паскале на ами никогда не програмил. Имеются какие-то в коллекции компиляторы, посоветовать ничего не могу...[/quote]
ладно. я тут покопался в компиляторах, посмтрел, что док нормальных по всем этому нет, да и компиляторы все старые. решил пока сколько могу - буду писать на рексе, сложные вещи буду упрощать, ибо хотя бы код быстро пишется и основную логику надо попробовать запустить.

второй вопрос - надо мне будет потом сделать интерфейс на mui, там древовидные списки т.п. фактически чисто информационный, без каких-то функций. как это и на чем делается?

[quote="ED"]надо обойтись без рекурсии в классическом ее понимании. или нагородить какую-тосложную конструкцию, но на арексе, все равно во что-то все время будешь упираться.[/quote]
пока упростил задачу, посмотрим, может все в рекс впихнется.

[ED]

[quote="easy_john"]
[quote="ED"]Да-да, посидишь денек в арексе, как начнет регулярно ребутиться система.[/quote]
ну, пока не замечал.
да и вообще странно, куча софта на арекс завязана, чего ему глючить..[/quote]
Скажу понятнее. Арекс вроде содержит свою систему обработки ошибок, но она очень несовершенна. Поэтому при серьезных ошибках, арекс вешал машину. Ну опять же все зависит от сложности программы. Отлаженные программы работают без нареканий и без каких-либо проблем.

[quote]второй вопрос - надо мне будет потом сделать интерфейс на mui, там древовидные списки т.п. фактически чисто информационный, без каких-то функций. как это и на чем делается?[/quote]
Не знаю, с гуёй на ами никогда не работал. Была какая-то библиотека rxmui, я не сталкивался

[quote]пока упростил задачу, посмотрим, может все в рекс впихнется.[/quote]
впихнется, конечно. Все можно написать, вопрос только какой ценой.

[easy_john]

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

PROCEDURE [EXPOSE <переменная> [<переменная>] [...]]
Эта инструкция создает новую символьную таблицу для встроенной функции. В символьную таблицу входят имена переменных, доступных из этой функции. Без использования инструкции PROCEDURE все переменные вызывающей функцию программы доступны из нее без каких-либо ограничений, т.е. ничто не мешает менять их из тела функции. Пример:

[code]х = 1
сall func
say x ==> 2
exit
func:
x = 2
return[/code]
Ситуация меняется при использовании инструкции PROCEDURE, локализирующей переменные, действия с которыми происходят в теле функции:
[code]х = 1
call func
say x ==> 1
exit
func: PROCEDURE
x = 2
return[/code]

Как я умудрился это упустить?

[ED]

[quote="easy_john"]
Как я умудрился это упустить?[/quote]
Называется, читайте мануал.
Помнится я в институте на программухе тоже косячил. Delphi/pascal в тексте программы надо было возвести x в квадарат. Ну я и пишу x*x. Меня препод дергает, не правильно, перечеркивает мою прогу, говорит надо использовать функцию sqr(x).
Или я писал программу имитацию железнодорожных касс(в рамках институтской программы, конечно). Время считал - переводил минуты в часы и т.п. На меня препод визжал что дурной, причем фразами "что я, хочу экономику всю развалить?". А оказывается есть встроенная функция date.
Внимательно читайте мануалы!

[aGGreSSor]

[quote="easy_john"]из языков еще знаю паскаль. может уже есть смысл переписать все на паскале? (на каком?)[/quote]Если сишник с асмом всё ещё не осилены, HiSpeedPascal only. Я на нём лабораторные по стартовым комплексам делал для универа. Он в значительной части совместим с TurboPascal, т.е. можно было с некоторыми оговорками писать так чтобы потом записать на дискету 3,5" через CrossDOS и в универе показать. Математика нормальная, простая графика возможна. Ещё я на нём плазму писал на спор за полчаса. Настолько же тормозную насколько тормозят паскалевские массивы. Теперь когда Амига кое-как работает, могу найти и выложить). Вообще, если Amiga only и just for fun, то AmigaE вне конкуренции. PowerD и пр. клоны imho ерунда. Для примера: EvenMore на AmigaE. И второй инструмент AMOS. Для примера: Worms для A600 и Dizzy. С AMOS у меня вообще трагедия была. Написалась большая забитая олдскульными эффектами игра в 2000-м где-то и погибла на рухнувшей PFS-партиции. Выкладывайте в паблик любую ерунду в бетах с сорцами, как вывод. Где-то ещё игра у меня на asm болталась типа Twiins, слабо помню.. Надо сеть заставить работать и вывалить часть винчестера в аминет, а то EasyLink не торт. Остапа понесло, короче.. Вот три полезных инструмента на классике (помимо vbcc и Devpac): AmigaE, AMOS и HiSpeedPascal

[aGGreSSor]

Нашлось. Оттакая фигня малята! flame.pas

[code]
{ Flame.pas ; HiSpeedPascal Amiga/TP 7.0 compatibly (c) aGGreSSor, 30-Jun-00 }

program Flame;
uses Crt,Graph;
var GrDriver,GrMode,x,y,n,m,i,r: integer;
A: real;
CTab: array [0..10,0..50] of integer;

procedure Clear_Tab;
begin
FOR x:=0 TO 50 DO
FOR y:=0 TO 10 DO
CTab [x,y]:=0;
end;

procedure RND_Tab;
begin
y:=10; Randomize;
FOR n:=0 TO 50 DO
begin
r:=Random(5);
CTab[n,y]:=r;
end;
end;

procedure Calc_Tab;
begin
FOR y:=1 TO 9 DO
begin
FOR x:=1 TO 49 DO
begin
A:=Int((CTab[x+1,y+1]+CTab[x-1,y+1])/2);
CTab[x,y]:=Trunc(A);
end;
end;
end;

procedure Print_Tab;
begin
FOR y:=1 TO 9 DO
FOR x:=1 TO 49 DO
putpixel (x+135,y+160,CTab[x,y]);
end;

{ flame/plasma process.. }
begin
GrDriver:=CGA; GrMode:=CGAc0; {CGA, 320x200, 4 colors}
InitGraph (GrDriver,GrMode,' '); {0-black, 1-blue, 2-red, 3-magenta}
Clear_Tab; m:=0;
REPEAT
RND_Tab;
Calc_Tab;
Print_Tab;
UNTIL m=250;
m:=0;
REPEAT
FOR x:=0 TO 50 DO
begin
CTab[x,10]:=0;
end;
Calc_Tab;
Print_Tab;
m:=m+1;
UNTIL m=30;

{ delay (1000); }

CloseGraph
end.
[/code]