ada-libraries
/
AdaID
mirror of https://github.com/anthony-arnold/AdaID
1
0
Fork 0
Code Issues Releases Wiki Activity

Enforce token spacing with style check 

Now the code looks a lot more "Ada-like".
This commit is contained in:
jrmarino 2016-08-02 08:53:33 -05:00
parent 091ae71647
commit 55dfe3794a
5 changed files with 78 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
adaid_debug.gpr
View File

@ -12,7 +12,7 @@ library project AdaID_Debug is
end Builder;
package Compiler is
for Default_Switches ("ada") use ("-gnatyabBCeiklmnpxAfh");
for Default_Switches ("ada") use ("-gnatyabBCeiklmnpxAfht");
end Compiler;
package Linker is

5
include/adaid-generate.ads
View File

@ -20,7 +20,10 @@ package AdaID.Generate is
procedure Random (id : in out UUID);
-- Generate a random UUID
procedure From_Name(namespace: in UUID; name: in String; id: in out UUID);
procedure From_Name
(namespace : in UUID;
name : in String;
id : in out UUID);
-- Generate a UUID based on a name
procedure From_String (str : in String; id : in out UUID);

6
src/adaid-generate.adb
View File

@ -75,7 +75,11 @@ package body AdaID.Generate is
-- Generate a UUID based on a name
procedure From_Name(namespace: in UUID; name: in String; id: in out UUID) is
procedure From_Name
(namespace : in UUID;
name : in String;
id : in out UUID)
is
use SHA.Process_Data;
c : Context;