Ada in Denmark - The wiki
http://wiki.ada-dk.org/
2012-02-23T00:05:31+01:00Ada in Denmark - The wiki
http://wiki.ada-dk.org/
http://wiki.ada-dk.org/ttp://wiki.ada-dk.org/lib/tpl/monobook/images/favicon.icotext/html2012-02-01T11:31:44+01:00thomaslockeada.directories.start_search
http://wiki.ada-dk.org/ada.directories.start_search?rev=1328092304&do=diff
Ada.Directories.Start_Search Example
with Ada.Text_IO;
with Ada.Directories; use Ada.Directories;
with Ada.Calendar.Formatting;
procedure aDir is
package IO renames Ada.Text_IO;
package D renames Ada.Directories;
package IOI is new IO.Integer_IO (D.File_Size);
package ACF renames Ada.Calendar.Formatting;
A_Search : D.Search_Type;
Search_Item : D.Directory_Entry_Type;
Filter : constant D.Filter_Type := (D.Ordinary_File => True,
D.S…text/html2012-02-01T11:31:32+01:00thomaslockeada.directories - [Start_Search]
http://wiki.ada-dk.org/ada.directories?rev=1328092292&do=diff
Introduction
The Ada.Directories package provides tools for manipulation of directories and files. If the environment supports the notion of files and directories, it is possible to manipulate these in a way that is fairly OS agnostic.
A package like Ada.Directories is very implementation dependent and, as such, the information that can be extracted about files and directories is kept very basic. If further information is needed (owner, group, and so on), a child package should be created for …text/html2012-02-01T11:31:09+01:00thomaslockeada.directories.modification_time
http://wiki.ada-dk.org/ada.directories.modification_time?rev=1328092269&do=diff
Ada.Directories.Modification_Time Example
with Ada.Text_IO;
with Ada.Directories;
with Ada.Calendar.Formatting;
procedure aDir is
package IO renames Ada.Text_IO;
package D renames Ada.Directories;
package ACF renames Ada.Calendar.Formatting;
begin
IO.Put ("Starting default directory: ");
IO.Put_Line (Item => D.Current_Directory);
IO.Put_Line (Item => ACF.Image (D.Modification_Time (Name => "some_file")));
end aDir;text/html2012-02-01T11:30:44+01:00thomaslockeada.directories.size
http://wiki.ada-dk.org/ada.directories.size?rev=1328092244&do=diff
Ada.Directories.Size Example
with Ada.Text_IO;
with Ada.Directories;
procedure aDir is
package IO renames Ada.Text_IO;
package D renames Ada.Directories;
begin
IO.Put ("Starting default directory: ");
IO.Put_Line (Item => D.Current_Directory);
IO.Put_Line (Item => D.Size (Name => "some_file")'Img);
IO.Put_Line (Item => D.Size (Name => "adir")'Img);
IO.Put_Line
(Item => "Max File_Size on this system: " & Long_Long_Integer'Last'Img);
end aDir;text/html2012-02-01T11:30:20+01:00thomaslockeada.directories.kind
http://wiki.ada-dk.org/ada.directories.kind?rev=1328092220&do=diff
Ada.Directories.Kind Example
with Ada.Text_IO;
with Ada.Directories;
procedure aDir is
package IO renames Ada.Text_IO;
package D renames Ada.Directories;
package IOE is new Ada.Text_IO.Enumeration_IO (D.File_Kind);
begin
IO.Put ("Starting default directory: ");
IO.Put_Line (Item => D.Current_Directory);
IOE.Put (Item => D.Kind (Name => "some_file"));
IO.New_Line;
IOE.Put (Item => D.Kind (Name => "some_dir"));
IO.New_Line;
IOE.Put (Item => D.Kind (Name => "/dev/…text/html2012-02-01T11:29:54+01:00thomaslockeada.directories.exists
http://wiki.ada-dk.org/ada.directories.exists?rev=1328092194&do=diff
Ada.Directories.Exists Example
with Ada.Text_IO;
with Ada.Directories;
procedure aDir is
package IO renames Ada.Text_IO;
package D renames Ada.Directories;
begin
IO.Put ("Starting default directory: ");
IO.Put_Line (Item => D.Current_Directory);
if D.Exists (Name => "some_file") then
IO.Put_Line (Item => "some_file exists");
end if;
if D.Exists (Name => "/home/thomas/wiki_examples/aDir/some_dir") then
IO.Put_Line (Item => "/home/thomas/wiki_examples/aDir/…text/html2012-02-01T11:29:28+01:00thomaslockeada.directories.compose
http://wiki.ada-dk.org/ada.directories.compose?rev=1328092168&do=diff
Ada.Directories.Compose Example
with Ada.Text_IO;
with Ada.Directories;
procedure aDir is
package IO renames Ada.Text_IO;
package D renames Ada.Directories;
begin
IO.Put ("Starting default directory: ");
IO.Put_Line (Item => D.Current_Directory);
IO.Put_Line (Item => D.Compose (Containing_Directory => "foo/",
Name => "bar",
Extension => "conf"));
IO.Put_Line (Item => D.Compose …text/html2012-02-01T11:29:01+01:00thomaslockeada.directories.base_name
http://wiki.ada-dk.org/ada.directories.base_name?rev=1328092141&do=diff
Ada.Directories.Base_Name Example
with Ada.Text_IO;
with Ada.Directories;
procedure aDir is
package IO renames Ada.Text_IO;
package D renames Ada.Directories;
begin
IO.Put ("Starting default directory: ");
IO.Put_Line (Item => D.Current_Directory);
IO.Put_Line (Item => D.Base_Name (Name => "foo.txt"));
IO.Put_Line (Item => D.Base_Name (Name => ".secret"));
IO.Put_Line (Item => D.Base_Name (Name => ".secret.conf"));
IO.Put_Line (Item => D.Base_Name (Name => "foo/bar")…text/html2012-02-01T11:28:36+01:00thomaslockeada.directories.extension
http://wiki.ada-dk.org/ada.directories.extension?rev=1328092116&do=diff
Ada.Directories.Extension Example
with Ada.Text_IO;
with Ada.Directories;
procedure aDir is
package IO renames Ada.Text_IO;
package D renames Ada.Directories;
begin
IO.Put ("Starting default directory: ");
IO.Put_Line (Item => D.Current_Directory);
IO.Put_Line (Item => D.Extension (Name => "foo.txt"));
IO.Put_Line (Item => D.Extension (Name => "foo/bar"));
IO.Put_Line (Item => D.Extension (Name => "/home/thomas/stuff.conf"));
IO.Put_Line (Item => D.Extension (Nam…