OberonCore

MODULE WinError;

  CONST
    ...
    ERROR_INVALID_PARAMETER_txt* = "The parameter is incorrect.";
    ERROR_INVALID_PARAMETER* = 87;
    ...

  PROCEDURE CodeToText* (code: INTEGER; OUT text: ARRAY OF CHAR);
  BEGIN
    CASE code OF
      ...
      | ERROR_INVALID_PARAMETER: text := ERROR_INVALID_PARAMETER_txt
      ...
    ELSE text := ""
    END
  END CodeToText;

END WinError.

MODULE WinBase ["Kernel32"];

  CONST
    INVALID_FILE_SIZE* = 00FFFFFFFFH;
    INVALID_SET_FILE_POINTER* = -1;
    INVALID_FILE_ATTRIBUTES* = -1;
    FILE_BEGIN* = 0;
    FILE_CURRENT* = 1;
    FILE_END* = 2;
    ...

  TYPE
    Pointer* = INTEGER;
    Handle* = INTEGER;
    Bool* = INTEGER;
    ...

  PROCEDURE GetFreeSpace* (x: INTEGER): INTEGER;
  ...
  PROCEDURE CreateFileA* (lpFileName: Pointer; dwDesiredAccess: INTEGER; dwShareMode: INTEGER; lpSecurityAttributes: Pointer; dwCreationDisposition: INTEGER; dwFlagsAndAttributes: INTEGER; hTemplateFile: Handle): Handle;
  PROCEDURE CreateFileW* (lpFileName: Pointer; dwDesiredAccess: INTEGER; dwShareMode: INTEGER; lpSecurityAttributes: Pointer; dwCreationDisposition: INTEGER; dwFlagsAndAttributes: INTEGER; hTemplateFile: Handle): Handle;
  ...
  PROCEDURE GetNumaAvailableMemoryNode* (Node: SHORTCHAR; AvailableBytes: Pointer): Bool;

END WinBase.