/usr/share/hol88-2.02.19940316/Library/window/window.ml is in hol88-library-source 2.02.19940316-31.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | % --------------------------------------------------------------------- %
% Copyright (c) Jim Grundy 1992 %
% All rights reserved %
% %
% Jim Grundy, hereafter referred to as `the Author', retains the %
% copyright and all other legal rights to the Software contained in %
% this file, hereafter referred to as `the Software'. %
% %
% The Software is made available free of charge on an `as is' basis. %
% No guarantee, either express or implied, of maintenance, reliability, %
% merchantability or suitability for any purpose is made by the Author. %
% %
% The user is granted the right to make personal or internal use %
% of the Software provided that both: %
% 1. The Software is not used for commercial gain. %
% 2. The user shall not hold the Author liable for any consequences %
% arising from use of the Software. %
% %
% The user is granted the right to further distribute the Software %
% provided that both: %
% 1. The Software and this statement of rights is not modified. %
% 2. The Software does not form part or the whole of a system %
% distributed for commercial gain. %
% %
% The user is granted the right to modify the Software for personal or %
% internal use provided that all of the following conditions are %
% observed: %
% 1. The user does not distribute the modified software. %
% 2. The modified software is not used for commercial gain. %
% 3. The Author retains all rights to the modified software. %
% %
% Anyone seeking a licence to use this software for commercial purposes %
% is invited to contact the Author. %
% --------------------------------------------------------------------- %
%============================================================================%
% CONTENTS: puts it all together in the right order %
%============================================================================%
%$Id: window.ml,v 3.1 1993/12/07 14:15:19 jg Exp $%
% Extend the help search path. %
print_string `Extending help search path`;
print_newline();
let path1 = (library_pathname())^`/window/help/entries/`
and path2 = (library_pathname())^`/window/help/general/`
and path3 = (library_pathname())^`/window/help/internal/`
and path4 = (library_pathname())^`/window/help/defs/`
and path5 = (library_pathname())^`/window/help/thms/` in
set_help_search_path
(union [path1; path2; path3; path4; path5] (help_search_path()));;
% Extend search path. %
print_string `Extending search path`;
print_newline();
let path = (library_pathname())^`/window/` in
set_search_path (union (search_path()) [path]);;
% Load (or attempt to load) the theory `win`. %
if not (mem `win` (ancestry())) then
if draft_mode() then
(
print_string `Declaring theory win a new parent`;
print_newline();
new_parent `win`
)
else
(
load_theory `win` ?
(
print_string `Unable to load theory win`;
print_newline();
print_string `Defining ML function load_window`;
print_newline();
load (
(library_pathname())^`/window/load_window`,
get_flag_value `print_lib`)
)
);;
% Load compiled code if possible. %
if (mem `win` (ancestry ())) & (not compiling) then
load((library_pathname())^`/window/load_code`, get_flag_value `print_lib`);;
let window_version =
implode (rev (tl (tl (rev (tl (explode `$Revision: 3.1 $`))))));;
print_newline();
print_string (`window Library (`^window_version^`) loaded.`);
print_newline();
print_string `Copyright (c) Jim Grundy 1992`;
print_newline();;
print_string `All rights reserved`;
print_newline();;
|