ada_fuse_1.0.1_5f4f6769/examples/rotfs/src/rot_13.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
with Interfaces.C.Strings;

package Rot_13 is

   function Encrypt (Plaintext : String)
      return String;

   function Encrypt (Plaintext : Interfaces.C.Strings.chars_ptr)
      return Interfaces.C.Strings.chars_ptr;

end Rot_13;