Pascal и J2ME

[Piligrim]

MODULE Hello;
IMPORT 
	lcdui, midlet;
TYPE
	Main* = POINTER TO RECORD(midlet.MIDlet+lcdui.CommandListener)
	END;
VAR
	D: lcdui.Display;
	C1: lcdui.Command;
	F : lcdui.Form;	
	item : INTEGER;
PROCEDURE (self:Main) startApp*();
BEGIN
	D := lcdui.Display.getDisplay(self);
	C1 := lcdui.Command.Init("Exit", 7, 0);
	F := lcdui.Form.InitForm("title");
	item := F.append("Проверка");
	F.addCommand(C1);
	D.setCurrent(F);
	F.setCommandListener(self);
END startApp;
PROCEDURE (self:Main) pauseApp*();
END pauseApp;
PROCEDURE (self:Main) destroyApp*(c: BOOLEAN);
END destroyApp;
PROCEDURE (self:Main) commandAction*(c:lcdui.Command; d:lcdui.Displayable), NEW;
BEGIN
	IF c = C1 THEN
		self.destroyApp(TRUE);
	END;
END commandAction;
END Hello.

результат во вложении. Стоит ли продолжать?

[Bruteo]

А в чем преимущество перед написанием непосредственно на яве? Логика, структура - идентичны. Только синтаксис различен.

[Piligrim]

В том-то и дело, что ни в чем, потому и спрашиваю. Просто паскаль, вместо явы.

[ViNT]

Я думаю что продолжать стоит, ведь как я понял возможности практически не ограничены, но в то же время удобнее чем java особенно для тех кто её не знает.

[odd]

И в чём тут удобство? Уж лучше писать на Java, чем на таком Паскале.

[Piligrim]

Сообщение от odd

И в чём тут удобство? Уж лучше писать на Java, чем на таком Паскале.

Может и так. Из плюсов, наверное только то, что весит мало и для работы нужна только JRE.
ЗЫ: Просто этот Паскаль написан на основе Оберон, поэтому так отличается

[Piligrim]

нашел еще один Паскаль Больше похоже на Delphi

program test;
uses javax_microedition_midlet_MIDlet;
type
	CApp = class(MIDlet)
		constructor init; virtual;
		procedure startApp; override;
		procedure pauseApp;
		procedure destroyApp(uncond: boolean);
	end;
	
	constructor CApp.init;
	begin
	
	end;
	procedure CApp.startApp;
	begin
	
	end;
	procedure CApp.pauseApp;
	begin
	
	end;
	procedure CApp.destroyApp(uncond: boolean);
	begin
	
	end;
begin	
end.

[ViNT]

Да, точно как Delphi.
Вот этот вариант по моему лучше всего.

[odd]

Ну вот это уже ближе к теме, но одного языка мало. Нужно ещё добавить туда функций.

[Piligrim]

хм, он напрямую импортирует классы явы. т.е. можно

uses javax_microedition_media_Manager,
  javax_microedition_media_Player;
var
  player : Player;
....
player := Manager.createPlayer('file:///a/mobile/audio/ok.mp3');
player.start;

из минусов, естественно, отсутствие IDE. Я пробую прикруть к CREdit, Ant и ProGuard. Вроде получается неплохо.

[Kurdt]

ухты!!!! вот это да вот это вещь я и незнал что такое возможно безусловно идея очень перспективная, вопросик а как можно

program test;
uses javax_microedition_midlet_MIDlet;
type
CApp = class(MIDlet)....
перекомпилировать в яву??
это что идет инерпритатор? тоесть переводит код в яву и потом его компилирует, или какойто другой способ? очень интересно по идее выходит даже полутше чем мп.

[odd]

Конечно получше. Вот вы, к примеру, можете написать обработчик для паузы на MP? А тут - легко. И вся Java тут же к твоим услугам, но её нужно знать само сабой.

[Preddy]

А можеш ссылки дать на эти проекты?

[Kurdt]

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

[Preddy]

Сорри за оффтоп, но у меня линка bin.zip не открывается. Пишет что не авторизован