diff options
Diffstat (limited to 'src/fltk-filenames.ads')
-rw-r--r-- | src/fltk-filenames.ads | 157 |
1 files changed, 0 insertions, 157 deletions
diff --git a/src/fltk-filenames.ads b/src/fltk-filenames.ads deleted file mode 100644 index 2872b8c..0000000 --- a/src/fltk-filenames.ads +++ /dev/null @@ -1,157 +0,0 @@ - - --- Programmed by Jedidiah Barber --- Released into the public domain - - -package FLTK.Filenames is - - - Max_Path_Length : constant Natural; - - subtype Path_String is String - with Dynamic_Predicate => Path_String'Length <= Max_Path_Length; - - - type Comparison is (Lesser, Equal, Greater); - - type Compare_Function is access function - (A, B : in String) - return Comparison; - - function Alpha_Sort - (A, B : in String) - return Comparison; - - function Case_Alpha_Sort - (A, B : in String) - return Comparison; - - function Numeric_Sort - (A, B : in String) - return Comparison; - - function Case_Numeric_Sort - (A, B : in String) - return Comparison; - - - type File_List is new Wrapper with private; - - function Length - (This : in File_List) - return Natural; - - function Item - (This : in File_List; - Index : in Positive) - return Path_String - with Pre => Index in 1 .. This.Length; - - - Open_URI_Error : exception; - - - - - function Decode_URI - (URI : in Path_String) - return Path_String; - - procedure Open_URI - (URI : in Path_String); - - - - - function Absolute - (Name : in Path_String) - return Path_String; - - function Absolute - (Name : in Path_String; - Changed : out Boolean) - return Path_String; - - function Relative - (Name : in Path_String) - return Path_String; - - function Relative - (Name : in Path_String; - Changed : out Boolean) - return Path_String; - - function Expand - (Name : in Path_String) - return Path_String; - - function Expand - (Name : in Path_String; - Changed : out Boolean) - return Path_String; - - - - - function Base_Name - (Name : in Path_String) - return Path_String; - - function Extension - (Name : in Path_String) - return Path_String; - - function Set_Extension - (Name : in Path_String; - Suffix : in String) - return Path_String; - - - - - function Is_Directory - (Name : in Path_String) - return Boolean; - - function Get_Listing - (Name : in Path_String; - Sort : in not null Compare_Function := Numeric_Sort'Access) - return File_List; - - - - - function Match - (Input, Pattern : in String) - return Boolean; - - -private - - - type File_List is new Wrapper with record - Entries : Interfaces.C.int := 0; - end record; - - overriding procedure Finalize - (This : in out File_List); - - - fl_path_max : constant Interfaces.C.int; - pragma Import (C, fl_path_max, "fl_path_max"); - - Max_Path_Length : constant Natural := Natural (fl_path_max); - - - pragma Inline (Length); - pragma Inline (Item); - - pragma Inline (Is_Directory); - - pragma Inline (Match); - - -end FLTK.Filenames; - - |