Difference between revisions of "Source Examples"

From Freepascal Amiga wiki
Jump to navigation Jump to search
(activated syntax highlighting)
Line 3: Line 3:
 
On this page Source example are going to collect (or links to it) which working on AROS freepascal
 
On this page Source example are going to collect (or links to it) which working on AROS freepascal
 
----
 
----
 +
==== Examples with own pages ====
 
* [[Call Library]] - How to call a library function
 
* [[Call Library]] - How to call a library function
 
* ...
 
* ...
 
----
 
----
  
Basic hello world program:
+
==== Hello World ====
 
<source lang="pascal">
 
<source lang="pascal">
 
Program HelloWorld;
 
Program HelloWorld;
Line 15: Line 16:
 
</source>
 
</source>
  
 +
==== Started from Workbench/Wanderer ====
 
How to check if the program started from Wanderer/Workbench
 
How to check if the program started from Wanderer/Workbench
 
<source lang="pascal">
 
<source lang="pascal">
Line 26: Line 28:
 
</source>
 
</source>
  
One example, Put a message to a named port:
+
==== Put a messagt to a named port ====
 +
 
 
<source lang="pascal">
 
<source lang="pascal">
 
  function SafePutToPort(Msg: PMessage; Portname: string): Integer;
 
  function SafePutToPort(Msg: PMessage; Portname: string): Integer;

Revision as of 13:56, 27 August 2013

Source Examples

On this page Source example are going to collect (or links to it) which working on AROS freepascal


Examples with own pages


Hello World

Program HelloWorld;
Begin
  Writeln('Hello World');
End.

Started from Workbench/Wanderer

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.

Put a messagt 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;