16 lines
409 B
PostScript
16 lines
409 B
PostScript
sub getResDirectory(REF string $resPath) {
|
|
@record on;
|
|
# get resource directory
|
|
ifnot (`getdirectory -resources`) {
|
|
echo "* Unable to get resources directory";
|
|
return false;
|
|
}
|
|
string $rDir = GetCmdData("dir");
|
|
ifnot (defined($rDir[0])) {
|
|
echo "* Unable to retrieve resources directory";
|
|
return false;
|
|
}
|
|
$resPath = "$rDir\\Capn";
|
|
@record off;
|
|
return true;
|
|
}
|