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.