UNSAFE MODULEUtilsPosix EXPORTSUtils ; IMPORT Unix; PROCEDURESymbolicLinkFile (from, to: TEXT) = BEGIN MakeRelative (from, to); SymbolicOrHardLink(Unix.symlink, "-s ", from, to); END SymbolicLinkFile; PROCEDUREHardLinkFile (from, to: TEXT) = BEGIN SymbolicOrHardLink((*Unix.*)(*bootstrap hack*)link, "", from, to); END HardLinkFile; BEGIN END UtilsPosix.