Add files via upload

Author: python36

byte_package.adb

@@ -28,22 +28,4 @@ package body byte_package is
   begin
     e := e + 1;
   end increment;
-
-
-
-
-  function byte_shift_right (value : byte; amount : integer := 1) return byte is
-  begin
-    return byte(Interfaces.Shift_Right(
-      Value => Interfaces.Unsigned_8(value), Amount => amount));
-  end;
-
-    procedure byte_print (b : byte) is
-    type byte_chars_t is array (byte(0)..byte(15)) of character;
-    byte_chars : byte_chars_t := (
-      '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f');
-  begin
-    ada.text_io.put(byte_chars(byte_shift_right(b, 4)));
-    ada.text_io.put(byte_chars(b and 16#0f#));
-  end byte_print;
 end byte_package;

byte_package.ads

@@ -14,13 +14,4 @@ package byte_package is
   procedure increment (e : in out earth);
 
   package byte_io is new Ada.Sequential_IO(byte);
-
-
-
-
-
-function byte_shift_right (value : byte; amount : integer := 1) return byte;
-  procedure byte_print (b : byte);
-    
-
 end byte_package;

file_crypter.adb

@@ -4,7 +4,7 @@ package body file_crypter is
     raiden.init_key(key);
   end init_key;
 
-  procedure file_crypt(in_file : byte_io.File_Type; out_file : out byte_io.File_Type; mode_crypt : mode) is
+procedure file_crypt(in_file : byte_io.File_Type; out_file : out byte_io.File_Type; mode_crypt : mode) is
   type raiden_access is access procedure (x : in byte_array_8; y : out byte_array_8);
   raiden_operation : raiden_access;
   t_b : byte;

vibecrypt.adb

@@ -113,4 +113,4 @@ begin
   exception
     when Error: others =>
       Ada.Text_IO.Put_Line("Error: " & Ada.Exceptions.Exception_Message(Error));
-end vibecrypt;
+end vibecrypt;