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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
% This is the main slrn initialization file called from interp.c.
% It is not meant for end user configuration; edit slrn.rc instead.
define prepend_to_slang_load_path (dir)
{
if (dir == NULL)
return;
variable path = get_slang_load_path ();
variable delim = char (path_get_delimiter ());
set_slang_load_path (strcat (dir, delim, path));
}
define append_to_slang_load_path (dir)
{
if (dir == NULL)
return;
variable path = get_slang_load_path ();
variable delim = char (path_get_delimiter ());
set_slang_load_path (strcat (path, delim, dir));
}
% This function gets called from the "set macro_directory" line in the
% slrn.rc file. The paths are either relative to the home directory, or
% are absolute
define slrn_set_macro_dir_hook (dirs)
{
foreach (strchopr (dirs, ',', 0))
{
variable dir = ();
if (0 == path_is_absolute (dir))
dir = make_home_filename (dir);
prepend_to_slang_load_path (dir);
}
}
define slrn_get_macro_dir_hook ()
{
variable path = get_slang_load_path ();
variable delim = char (path_get_delimiter ());
return strtrans (path, delim, ",");
}
define search_path_for_file (path, file, delim)
{
if (path_is_absolute (file) and (stat_file (file) != NULL))
return file;
if (path == NULL)
return NULL;
foreach (strtok (path, char(delim)))
{
variable dir = ();
variable dirfile = path_concat (dir, file);
if (stat_file (dirfile) != NULL)
return dirfile;
}
return NULL;
}
define find_executable (exe)
{
return search_path_for_file (getenv ("PATH"), exe, path_get_delimiter ());
}
% A conforming slang application is one that has access to slsh's files
private define add_slsh_paths ()
{
% Assume a standard install with:
% /prefix/bin/slsh
% /prefix/share/slsh/local-packages/
variable prefixes = {};
variable exe = find_executable ("slsh");
if (exe != NULL)
list_append (prefixes, path_dirname (path_dirname (exe)));
list_append (prefixes, _slang_install_prefix);
foreach (prefixes)
{
variable prefix = ();
if (prefix == NULL)
continue;
variable dir = path_concat (prefix, "share/slsh/local-packages");
if (stat_file (dir) == NULL)
continue;
append_to_slang_load_path (dir);
append_to_slang_load_path (path_dirname (dir));
return;
}
}
add_slsh_paths ();
private define add_slsh_paths (); % delete it -- no longer needed
autoload ("require", "require");
autoload ("provide", "require");
autoload ("reverse", "arrayfuns");
autoload ("shift", "arrayfuns");
% Prepend the $HOME directory as a path for backward-compatibility
prepend_to_slang_load_path (path_dirname (make_home_filename (".")));
|
