Ada Programming/Delimiters/*
Appearance
Operator
[edit | edit source]Standard Operations
[edit | edit source]Arithmetic Multiplication
[edit | edit source]The "*" operator is defined as arithmetic multiplication for all numeric types.
function
"*" (Left, Right : T)return
T;
Usage
[edit | edit source]A :constant
Float := 5.0 * 2.0; -- A is now 10.0 B :constant
Integer := 5 * 2; -- B is also 10
Working Example
[edit | edit source]with
Ada.Text_IO;procedure
Operator_Multiplyis
A :constant
Float := 5.0 * 2.0; -- A is now 10.0 B :constant
Integer := 5 * 2; -- B is also 10package
T_IOrenames
Ada.Text_IO;package
F_IOis
new
Ada.Text_IO.Float_IO (Float);package
I_IOis
new
Ada.Text_IO.Integer_IO (Integer);begin
T_IO.Put ("A = "); F_IO.Put ( Item => A, Fore => 3, Aft => 1, Exp => 0); T_IO.New_Line; T_IO.Put ("B = "); I_IO.Put ( Item => B, Width => 3, Base => 10); T_IO.New_Line;end
Operator_Multiply;
Common Non-Standard Operations
[edit | edit source]Character replication
[edit | edit source]A String is created where a single character is replicated n-times.
function
"*" (Left : Natural; Right : Character)return
String;
In addition to standard Strings this operator is also defined for Bounded_String and Unbounded_String.
Usage
[edit | edit source]A : constant
String := 10 * 'X'; -- A is filled with 10 X
Working Example
[edit | edit source]The character replication operator is part of the Ada.Strings.Fixed package. You need to with
and use
the package to make the operator visible.
with
Ada.Text_IO;with
Ada.Strings.Fixed;procedure
Operator_Multiply_2is
use
Ada.Strings.Fixed; A :constant
String := 10 * 'X'; -- A is filled with 10 Xpackage
T_IOrenames
Ada.Text_IO;begin
T_IO.Put_Line ("A = " & A);end
Operator_Multiply_2;
String replication
[edit | edit source]A String is created where a source string is replicated n-times.
function
"*" (Left : Natural; Right : String)return
String;
In addition to standard fixed strings this operator is also defined for Bounded_String and Unbounded_String.
Usage
[edit | edit source]A : constant
String := 3 * "Hello "; -- A is filled with 3 Hello
Working Example
[edit | edit source]The string replication operator is part of the Ada.Strings.Fixed package. You need to with
and use
the package to make the operator visible.
with
Ada.Text_IO;with
Ada.Strings.Fixed;procedure
Operator_Multiply_3is
use
Ada.Strings.Fixed; A :constant
String := 3 * "Hello "; -- A is filled with 3 Hello.package
T_IOrenames
Ada.Text_IO;begin
T_IO.Put_Line ("A = " & A);end
Operator_Multiply_3;
See also
[edit | edit source]Wikibook
[edit | edit source]Ada 95 Reference Manual
[edit | edit source]- 4.4 Expressions (Annotated)
- 4.5.5 Multiplying Operators (Annotated)
- A.4.3 Fixed-Length String Handling (Annotated)
- A.4.4 Bounded-Length String Handling (Annotated)
- A.4.5 Unbounded-Length String Handling (Annotated)
Ada 2005 Reference Manual
[edit | edit source]- 4.4 Expressions (Annotated)
- 4.5.5 Multiplying Operators (Annotated)
- A.4.3 Fixed-Length String Handling (Annotated)
- A.4.4 Bounded-Length String Handling (Annotated)
- A.4.5 Unbounded-Length String Handling (Annotated)
Ada Operators | ||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|