2013-11-04 11:28:45 -05:00
|
|
|
USING: help.markup help.syntax ;
|
|
|
|
IN: alien.libraries.finder
|
|
|
|
|
2014-06-08 21:08:26 -04:00
|
|
|
HELP: find-library*
|
2013-11-04 11:28:45 -05:00
|
|
|
{ $values
|
|
|
|
{ "name" "a shared library name" }
|
2015-12-11 20:05:45 -05:00
|
|
|
{ "path/f" { $maybe "filesystem path" } }
|
2013-11-04 11:28:45 -05:00
|
|
|
}
|
|
|
|
{ $description
|
|
|
|
"Returns a filesystem path for a plain shared library name, or f if no library can be found."
|
2014-06-08 21:08:26 -04:00
|
|
|
} ;
|
|
|
|
|
|
|
|
HELP: find-library
|
|
|
|
{ $values
|
|
|
|
{ "name" "a shared library name" }
|
|
|
|
{ "path/library-not-found" "a filesystem path or " { $snippet "name" } }
|
2013-11-04 11:28:45 -05:00
|
|
|
}
|
2014-06-08 21:08:26 -04:00
|
|
|
{ $description
|
|
|
|
"Used to load libraries whose exact filenames is not known in advance:"
|
2013-11-04 11:28:45 -05:00
|
|
|
{ $code
|
|
|
|
"<< \"sqlite\" \"sqlite3\" find-library cdecl add-library >>"
|
|
|
|
}
|
|
|
|
"Note the parse time evaluation with " { $link POSTPONE: << } "."
|
|
|
|
} ;
|