-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998 Free Software Foundation, Inc. --
+-- Copyright (c) 1998-2004,2006 Free Software Foundation, Inc. --
-- --
-- Permission is hereby granted, free of charge, to any person obtaining a --
-- copy of this software and associated documentation files (the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
--- Author: Juergen Pfeifer <Juergen.Pfeifer@T-Online.de> 1996
+-- Author: Juergen Pfeifer, 1996
-- Version Control
--- $Revision: 1.9 $
--- Binding Version 00.93
+-- $Revision: 1.20 $
+-- $Date: 2006/06/25 14:30:22 $
+-- Binding Version 01.00
------------------------------------------------------------------------------
-- Poor mans help system. This scans a sequential file for key lines and
-- then reads the lines up to the next key. Those lines are presented in
Help_Keys : constant String := "HELPKEYS";
In_Help : constant String := "INHELP";
- File_Name : String := "explain.msg";
+ File_Name : constant String := "explain.msg";
F : File_Type;
type Help_Line;
Current : Help_Line_Access;
Top_Line : Help_Line_Access;
- Has_More : Boolean;
+ Has_More : Boolean := True;
procedure Unknown_Key
is
Root : Help_Line_Access := null;
Current : Help_Line_Access;
Tail : Help_Line_Access := null;
- Save : String_Access;
function Next_Line return Boolean;
Reset (F);
Outer :
loop
- exit when not Next_Line;
+ exit Outer when not Next_Line;
if Last = (1 + Key'Length) and then Key = Buffer (2 .. Last)
and then Buffer (1) = '#' then
loop
begin
Open (F, In_File, File_Name);
end Sample.Explanation;
-