/usr/share/hol88-2.02.19940316/Library/unwind/unwind.ml is in hol88-library-source 2.02.19940316-35.
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 | % ===================================================================== %
% FILE : unwind.ml %
% DESCRIPTION : loads the library "unwind" into hol. %
% %
% AUTHOR : R.J.Boulton %
% DATE : 3rd September 1991 %
% ===================================================================== %
% --------------------------------------------------------------------- %
% Add the unwind help files to online help. %
% --------------------------------------------------------------------- %
let path = library_pathname() ^ `/unwind/help/entries/` in
print_string `Updating help search path`; print_newline();
set_help_search_path (union [path] (help_search_path()));;
% --------------------------------------------------------------------- %
% Load the compiled code into ml. %
% --------------------------------------------------------------------- %
let path st = library_pathname() ^ `/unwind/` ^ st in
load(path `unwinding`, get_flag_value `print_lib`);;
|