Dylan mode
("Cannot find relative path of absolute locator %= from relative locator %=",
1
Module: locators-internals
2
Synopsis: Abstract modeling of locations
3
Author: Andy Armstrong
4
Copyright: Original Code is Copyright (c) 1995-2004 Functional Objects, Inc.
5
All rights reserved.
6
License: See License.txt in this distribution for details.
7
Warranty: Distributed WITHOUT WARRANTY OF ANY KIND
8
9
define open generic locator-server
10
(locator :: <locator>) => (server :: false-or(<server-locator>));
11
define open generic locator-host
12
(locator :: <locator>) => (host :: false-or(<string>));
13
define open generic locator-volume
14
(locator :: <locator>) => (volume :: false-or(<string>));
15
define open generic locator-directory
16
(locator :: <locator>) => (directory :: false-or(<directory-locator>));
17
define open generic locator-relative?
18
(locator :: <locator>) => (relative? :: <boolean>);
19
define open generic locator-path
20
(locator :: <locator>) => (path :: <sequence>);
21
define open generic locator-base
22
(locator :: <locator>) => (base :: false-or(<string>));
23
define open generic locator-extension
24
(locator :: <locator>) => (extension :: false-or(<string>));
25
26
/// Locator classes
27
28
define open abstract class <directory-locator> (<physical-locator>)
29
end class <directory-locator>;
30
31
define open abstract class <file-locator> (<physical-locator>)
32
end class <file-locator>;
MIME types defined: text/x-dylan
.