IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Gnu Pascal модули
сообщение
Сообщение #1


Гость






Gnu pascal
Помогите разобраться как на нем писать модули.....тут я как понял отличается от BP7 TP7
в инете чет ничего нет или ссылочку подскажите!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Ты про GPC (Gnu Pascal Compiler) что-ли? Вообще-то модули они и в Африке модули, и на FPC/GPC/VP/Delphi модуль имеет в целом такую же структуру, как и на TP... Возможны нюансы, но для этого надо знать, какой именно модуль тебе нужен, что он должен делать...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Ну вот эти нюансы как раз мне и нужно узнать!!!
Ну там прописаны будут все функции
Что то типо этого!!Но нифига не компилит!
Module MADT interface;
Export MADT = (ADT, Item, Create, Empty, PopFront, PopBack, First, Last,
PushFront, PushBack, Print, Size, Next, Prev, InsertBefore, InsertAfter,
RemoveBefore, RemoveAfter);
Type Item = integer;
Type ADT = ^Node;
Node = record
Number:Item;
Next:ADT;
End;
procedure Create(Var D:ADT);
function Empty(Var D:ADT) : Boolean;
procedure PopFront(Var D:ADT);
procedure PopBack(Var D:ADT);
function First(Var D:ADT):Item;
function Last(Var D:ADT):Item;
End.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Да ты что? Module - это откуда? Из ADA?

Вот структура модуля GPC:
6.1 Source Structures

Так что... Будет как-то вот так:
Unit MADT;

interface
Type Item = integer;
Type ADT = ^Node;
Node = record
Number:Item;
Next:ADT;
End;

procedure Create(Var D:ADT);
function Empty(Var D:ADT) : Boolean;
procedure PopFront(Var D:ADT);
procedure PopBack(Var D:ADT);
function First(Var D:ADT):Item;
function Last(Var D:ADT):Item;

implementation
{ Здесь - реализация процедур/функций }
End.


Как видишь, аналогично TP...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






А еще не подскажите как в Unix откомпилить прогу вместе с модулем
#makefile
prog : prog.o madt.o
gpc -o prog prog.o madt.o
prog.o: prog.p
gpc -c prog.p
madt.o: madt.p
gpc -c madt.p

так?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Module - это из Extended Pascal
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 21.10.2017 22:41
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"