Source Examples

Source Examples

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.

How to check if the program started from Wanderer/Workbench

 program WBStart;
 begin
   if assigned(AOS_WbMsg) then
     writeln('Started from WB')
   else
     writeln('Started from CLI');
 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;