Add initial prototype.

4-high/gel/source/gel.adb

@@ -0,0 +1,30 @@
+package body GEL
+is
+
+   function to_Asset (Self : in String) return asset_Name
+   is
+      the_Name : String (asset_Name'Range);
+   begin
+      the_Name (1               .. Self'Length)   := Self;
+      the_Name (Self'Length + 1 .. the_Name'Last) := [others => ' '];
+
+      return asset_Name (the_Name);
+   end to_Asset;
+
+
+
+   function to_String (Self : in asset_Name) return String
+   is
+   begin
+      for i in reverse Self'Range
+      loop
+         if Self (i) /= ' '
+         then
+            return String (Self (1 .. i));
+         end if;
+      end loop;
+
+      return "";
+   end to_String;
+
+end GEL;