import from .zip file

latin_file_names.adb

@@ -0,0 +1,21 @@
+package body LATIN_FILE_NAMES is
+
+  function ADD_FILE_NAME_EXTENSION(NAME, EXTENSION : STRING) return STRING is
+  --  This is the version that creates a DOS file name
+  --  One that has a name, a '.', and an extension no longer than 3 characters
+  --  Arbitarily, we also truncate the NAME to 8 characters
+  --  To port to another system, one needs to do this function appropriately
+    NAME_LENGTH : INTEGER := NAME'LENGTH;
+    EXTENSION_LENGTH : INTEGER := EXTENSION'LENGTH;
+  begin
+    if NAME_LENGTH >= 8  then
+      NAME_LENGTH := 8;
+    end if;
+    if EXTENSION'LENGTH >= 3  then
+      EXTENSION_LENGTH := 3;
+    end if;
+    return NAME(1..NAME_LENGTH) & '.' & EXTENSION(1..EXTENSION_LENGTH);
+  end ADD_FILE_NAME_EXTENSION;
+
+
+end LATIN_FILE_NAMES;