Source Examples - Revision history

Alb42: MUI Helper link added

2016-12-18T15:29:25Z

MUI Helper link added

Alb42: typing error

2013-11-20T20:41:00Z

typing error

89.247.25.193 at 12:56, 27 August 2013

2013-08-27T12:56:14Z

Alb42: activated syntax highlighting

2013-08-25T16:26:57Z

activated syntax highlighting

2001:4DD0:F923:0:956D:EE9F:360C:D593 at 16:09, 25 August 2013

2013-08-25T16:09:29Z

Molly: Added hello world example program (as in wiki-editor trying to get the hang on things)

2013-08-25T11:23:28Z

Added hello world example program (as in wiki-editor trying to get the hang on things)

Alb42 at 15:11, 24 August 2013

2013-08-24T15:11:30Z

Alb42: Created page with "=== Source Examples === On this page Source example are going to collect (or links to it) which working on AROS freepascal ---- One example, Put a message to a named port: <..."

2013-08-24T14:39:16Z

Created page with "=== Source Examples === On this page Source example are going to collect (or links to it) which working on AROS freepascal ---- One example, Put a message to a named port: <..."

New page

=== Source Examples ===

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

One example, Put a message to a named port:
<code>
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;
</code>

@@ Line 5: / Line 5: @@
 ==== Examples with own pages ====
 * [[Call Library]] - How to call a library function
 * ...
 ----

@@ Line 28: / Line 28: @@
 </source>
-==== Put a messagt to a named port ====
+==== Put a message to a named port ====
 <source lang="pascal">

@@ Line 3: / Line 3: @@
 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:
+==== Hello World ====
 <source lang="pascal">
 Program HelloWorld;
@@ Line 15: / Line 16: @@
 </source>
 How to check if the program started from Wanderer/Workbench
 <source lang="pascal">
@@ Line 26: / Line 28: @@
 </source>
-One example, Put a message to a named port:
+==== Put a messagt to a named port ====
 <source lang="pascal">
   function SafePutToPort(Msg: PMessage; Portname: string): Integer;

@@ Line 8: / Line 8: @@
 Basic hello world program:
-  Program HelloWorld;
+<source lang="pascal">
-  Begin
+Program HelloWorld;
-    Writeln('Hello World');
+Begin
-  End.
+  Writeln('Hello World');
 How to check if the program started from Wanderer/Workbench
    program WBStart;
    begin
@@ Line 21: / Line 24: @@
        writeln('Started from CLI');
    end.
 One example, Put a message to a named port:
   function SafePutToPort(Msg: PMessage; Portname: string): Integer;
   var
@@ Line 39: / Line 44: @@
     Permit();
   end;

@@ Line 6: / Line 6: @@
 * ...
 ----
 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
@@ Line 33: / Line 39: @@
     Permit();
   end;