How to use the function open in Adept?

[ghost]

open is a POSIX function but Microsoft also implemented it for Windows:

https://learn.microsoft.com/en-us/cpp/c-runtime-library/reference/open-wopen?view=msvc-170

[IsaacShelton]

It could be defined like this:

// _O Globals constants acquired from https://github.com/pilight/windows-cli/blob/master/include/fcntl.h

/* Specifiy one of these flags to define the access mode. */
define _O_RDONLY = 0
define _O_WRONLY = 1
define _O_RDWR = 2

/* Mask for access mode bits in the _open flags. */
define _O_ACCMODE = _O_RDONLY | _O_WRONLY | _O_RDWR

define _O_APPEND = 0x0008 /* Writes will add to the end of the file. */

define _O_RANDOM = 0x0010
define _O_SEQUENTIAL = 0x0020
define _O_TEMPORARY = 0x0040 /* Make the file dissappear after closing. * WARNING: Even if not created by _open! */
define _O_NOINHERIT = 0x0080

define _O_CREAT = 0x0100 /* Create the file if it does not exist. */
define _O_TRUNC = 0x0200 /* Truncate the file if it does exist. */
define _O_EXCL = 0x0400 /* Open only if the file does not exist. */

define _O_SHORT_LIVED = 0x1000

/* NOTE: Text is the default even if the given _O_TEXT bit is not on. */
define _O_TEXT = 0x4000 /* CR-LF in file becomes LF in memory. */
define _O_BINARY = 0x8000 /* Input and output is not translated. */
define _O_RAW = _O_BINARY
define _O_WTEXT = 0x10000
define _O_U16TEXT = 0x20000
define _O_U8TEXT = 0x40000

// From https://github.com/pilight/windows-cli/blob/24d3eb30ca5d1ddeacf02e1ae0491daf2dff6f93/include/io.h#L365
/* Optional third argument is unsigned unPermissions. */
foreign _open(*ubyte, int, ...) int
func alias open(*ubyte, int, ...) => _open
foreign _close(int) int
func alias close(int) => _close

define O_RDONLY = _O_RDONLY
define O_WRONLY = _O_WRONLY
define O_RDWR = _O_RDWR
define O_ACCMODE = _O_ACCMODE
define O_APPEND = _O_APPEND
define O_CREAT = _O_CREAT
define O_TRUNC = _O_TRUNC
define O_EXCL = _O_EXCL
define O_TEXT = _O_TEXT
define O_BINARY = _O_BINARY
define O_TEMPORARY = _O_TEMPORARY
define O_NOINHERIT = _O_NOINHERIT
define O_SEQUENTIAL = _O_SEQUENTIAL
define O_RANDOM = _O_RANDOM

// _S Global Constants from https://github.com/pilight/windows-cli/blob/master/include/sys/stat.h
define _S_IEXEC = 0x0040
define _S_IWRITE = 0x0080
define _S_IREAD = 0x0100

and then used like normal:

func main int {
   fh1 int = open('CRT_OPEN.C', O_RDONLY)

   if fh1 == -1 {
      printf('Open failed on input file\n')
      return 1
   } else {
      printf('Open succeeded on input file\n')
      close(fh1)
   }

   fh2 int = open('CRT_OPEN.OUT', O_WRONLY | O_CREAT, _S_IREAD | _S_IWRITE)
   
   if fh2 == -1 {
      printf('Open failed on output file\n');
      return 1
   } else {
      printf('Open succeeded on output file\n');
      close(fh2)
   }

   return 0
}