Help:Programming Example Prototypes: Difference between revisions
m (Help:Example Programming Example moved to Help:Programming Example Prototypes: Better name for it.) |
|||
Line 97: | Line 97: | ||
''When using a compiler, but without illustrative text: |
''When using a compiler, but without illustrative text: |
||
==[[ |
==[[Ada]]== |
||
[[Category:Your Language Here]] |
[[Category:Your Language Here]] |
||
'''Compiler:''' [[ |
'''Compiler:''' [[Gnat]] (GPL 2005) |
||
[[Category: |
[[Category:GNAT GPL 2005]] |
||
with Ada.Text_Io; |
|||
Some code. |
|||
with Ada.Integer_text_IO; |
|||
Notice how each line begins with at least one space. |
|||
Multiple spaces are fine; Please use proper indentation in your code. |
|||
procedure Call_Back_Example is |
|||
---- |
|||
-- Purpose: Apply a callback to an array |
|||
-- Output: Prints the squares of an integer array to the console |
|||
''When using an interpreter, with illustrative text: |
|||
-- Define the callback procedure |
|||
procedure Display(Location : Positive; Value : Integer) is |
|||
begin |
|||
Ada.Text_Io.Put("array("); |
|||
Ada.Integer_Text_Io.Put(Item => Location, Width => 1); |
|||
Ada.Text_Io.Put(") = "); |
|||
Ada.Integer_Text_Io.Put(Item => Value, Width => 1); |
|||
Ada.Text_Io.New_Line; |
|||
end Display; |
|||
-- Define an access type matching the signature of the callback procedure |
|||
type Call_Back_Access is access procedure(L : Positive; V : Integer); |
|||
-- Define an unconstrained array type |
|||
type Value_Array is array(Positive range <>) of Integer; |
|||
-- Define the procedure performing the callback |
|||
procedure Map(Values : Value_Array; Worker : Call_Back_Access) is |
|||
begin |
|||
for I in Values'range loop |
|||
Worker(I, Values(I)); |
|||
end loop; |
|||
end Map; |
|||
-- Define and initialize the actual array |
|||
Sample : Value_Array := (5,4,3,2,1); |
|||
begin |
|||
Map(Sample, Display'access); |
|||
end Call_Back_Example; |
|||
==[[Your Language Here]]== |
==[[Your Language Here]]== |
Revision as of 03:19, 3 February 2007
These are prototypes of well-formed programming examples conforming to curring Rosetta Code formatting style. View this page's source to see how to construct your own programming examples.
Use the one which supplies the most information possible.
Prototypes
When using a compiler and a library, with illustrative text:
Your Language Here
Compiler: Your Compiler Here (Your version here)
Library: Your Library Here
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.
Here, I can talk a bit about the next bit of code.
Now I'm typing more code, with the spaces again at the beginning of the line.
Now I'm talking about the next bit of code again.
And here's that final bit of code...
When using a compiler and a library, but without illustrative text:
Your Language Here
Compiler: Your Compiler Here (Your version here)
Library: Your Library Here
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.
When using an interpreter and a library, with illustrative text:
Your Language Here
Interpreter: Your Interpreter Here (Your version here)
Library: Your Library Here
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.
Here, I can talk a bit about the next bit of code.
Now I'm typing more code, with the spaces again at the beginning of the line.
Now I'm talking about the next bit of code again.
And here's that final bit of code...
When using an interpreter and a library, but without illustrative text:
Your Language Here
Interpreter: Your Interpreter Here (Your version here)
Library: Your Library Here
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.
When using a compiler, with illustrative text:
Your Language Here
Compiler: Your Compiler Here
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.
Here, I can talk a bit about the next bit of code.
Now I'm typing more code, with the spaces again at the beginning of the line.
Now I'm talking about the next bit of code again.
And here's that final bit of code...
When using a compiler, but without illustrative text:
Ada
Compiler: Gnat (GPL 2005)
with Ada.Text_Io; with Ada.Integer_text_IO;
procedure Call_Back_Example is -- Purpose: Apply a callback to an array -- Output: Prints the squares of an integer array to the console -- Define the callback procedure procedure Display(Location : Positive; Value : Integer) is begin Ada.Text_Io.Put("array("); Ada.Integer_Text_Io.Put(Item => Location, Width => 1); Ada.Text_Io.Put(") = "); Ada.Integer_Text_Io.Put(Item => Value, Width => 1); Ada.Text_Io.New_Line; end Display; -- Define an access type matching the signature of the callback procedure type Call_Back_Access is access procedure(L : Positive; V : Integer); -- Define an unconstrained array type type Value_Array is array(Positive range <>) of Integer; -- Define the procedure performing the callback procedure Map(Values : Value_Array; Worker : Call_Back_Access) is begin for I in Values'range loop Worker(I, Values(I)); end loop; end Map; -- Define and initialize the actual array Sample : Value_Array := (5,4,3,2,1); begin Map(Sample, Display'access); end Call_Back_Example;
Your Language Here
Compiler: Your Interpreter Here (Your version here)
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.
Here, I can talk a bit about the next bit of code.
Now I'm typing more code, with the spaces again at the beginning of the line.
Now I'm talking about the next bit of code again.
And here's that final bit of code...
When using an interpreter, but without illustrative text:
Your Language Here
Interpreter: Your Interpreter Here (Your version here)
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.
When you don't know the compiler or interpreter, but you're using a library, and you are using illustrative text:
Your Language Here
Library: Your Library Here
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.
Here, I can talk a bit about the next bit of code.
Now I'm typing more code, with the spaces again at the beginning of the line.
Now I'm talking about the next bit of code again.
And here's that final bit of code...
When you don't know the compiler or interpreter, but you're using a library, and you are not using illustrative text:
Your Language Here
Library: Your Library Here
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.
When you don't know the compiler or interpreter, and you are using illustrative text:
Your Language Here
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.
Here, I can talk a bit about the next bit of code.
Now I'm typing more code, with the spaces again at the beginning of the line.
Now I'm talking about the next bit of code again.
And here's that final bit of code...
When you don't know the compiler or interpreter, and you are not using illustrative text:
Your Language Here
Some code. Notice how each line begins with at least one space. Multiple spaces are fine; Please use proper indentation in your code.