File tree Expand file tree Collapse file tree 2 files changed +26
-1
lines changed Expand file tree Collapse file tree 2 files changed +26
-1
lines changed Original file line number Diff line number Diff line change 1
1
object /
2
2
library /
3
3
binary /
4
- body_core /* setup.adb
4
+ body_ada /* setup.adb
5
5
body_aws /* setup.adb
6
6
body_gnat /* setup.adb
7
7
var /* .template
Original file line number Diff line number Diff line change
1
+ --
2
+ -- The author disclaims copyright to this source code. In place of
3
+ -- a legal notice, here is a blessing:
4
+ --
5
+ -- May you do good and not evil.
6
+ -- May you find forgiveness for yourself and forgive others.
7
+ -- May you share freely, not taking more than you give.
8
+ --
9
+
10
+ with Ada.Strings ;
11
+
12
+ package DK8543JQ.Strings is
13
+
14
+ procedure Trim
15
+ (Item : in String;
16
+ First : in out Natural;
17
+ Last : in out Natural;
18
+ Side : in Ada.Strings.Trim_End);
19
+
20
+ function In_First_Part
21
+ (From : in String;
22
+ Item : in String) return Boolean;
23
+ -- Return True when Item is first part of From.
24
+
25
+ end DK8543JQ.Strings ;
You can’t perform that action at this time.
0 commit comments