## winix.pkg
# Win32 OS interface
package winix_guts: Winix {
use os # open type-only package to get types
type System_Error = Int
# exception RUNTIME_EXCEPTION of (String * System_Error Null_Or)
exception RUNTIME_EXCEPTION = assembly::RUNTIME_EXCEPTION
fun errorName _ = "<winix::errorName unimplemented>"
fun errorMsg _ = "<winix::errorMessage unimplemented>"
fun syserror _ = raise FAIL "winix::syserror unimplemented"
package file = winix_file
package path = winix_path
package process = winix_process
package io = winix_io
}; # OS
## COPYRIGHT (c) 1996 Bell Laboratories.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2012,
## released under Gnu Public Licence version 3.