Jump to navigation Jump to search
Revision as of 12:23, 25 August 2013 by Molly (Added hello world example program (as in wiki-editor trying to get the hang on things))
On this page Source example are going to collect (or links to it) which working on AROS freepascal
- Call Library - How to call a library function
Basic hello world program:
Program HelloWorld; Begin Writeln('Hello World'); End.
One example, Put a message to a named port:
function SafePutToPort(Msg: PMessage; Portname: string): Integer; var Port: PMsgPort; PName: PChar; begin Result := -1; PName := PChar(Portname + #0); Forbid(); Port := FindPort(PName); if Assigned(Port) then begin PutMsg(Port, Msg); Result := 0; end; Permit(); end;