hp/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added a number of api conversions to pascal and also a new pascal test app.

Browse Source
This commit is contained in:
memson
2002-04-23 19:07:22 +00:00
parent b25c948c1d
commit e67f770704
5 changed files with 829 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

335
begui/begui/imports/pascal/be_errors.pas Normal file
View File

@@ -0,0 +1,335 @@
unit be_errors;
interface
{$PACKRECORDS C}
{------------------------------------------------------------- }
{----- Error baselines --------------------------------------- }
const
B_GENERAL_ERROR_BASE = LONG_MIN;
B_OS_ERROR_BASE = B_GENERAL_ERROR_BASE + $1000;
B_APP_ERROR_BASE = B_GENERAL_ERROR_BASE + $2000;
B_INTERFACE_ERROR_BASE = B_GENERAL_ERROR_BASE + $3000;
B_MEDIA_ERROR_BASE = B_GENERAL_ERROR_BASE + $4000; //* - $41ff */
B_TRANSLATION_ERROR_BASE = B_GENERAL_ERROR_BASE + $4800 //* - $48ff */
B_MIDI_ERROR_BASE = B_GENERAL_ERROR_BASE + $5000;
B_STORAGE_ERROR_BASE = B_GENERAL_ERROR_BASE + $6000;
B_POSIX_ERROR_BASE = B_GENERAL_ERROR_BASE + $7000;
B_MAIL_ERROR_BASE = B_GENERAL_ERROR_BASE + $8000;
B_PRINT_ERROR_BASE = B_GENERAL_ERROR_BASE + $9000;
B_DEVICE_ERROR_BASE = B_GENERAL_ERROR_BASE + $a000;
B_WWW_ERROR_BASE = B_GENERAL_ERROR_BASE + $b000;
B_DIALER_ERROR_BASE = B_GENERAL_ERROR_BASE + $c000;
B_REGEXP_ERROR_BASE = B_GENERAL_ERROR_BASE + $d000;
B_BINDER_ERROR_BASE = B_GENERAL_ERROR_BASE + $e000;
{--- Developer-defined errors start at (B_ERRORS_END+1)---- }
B_ERRORS_END = B_GENERAL_ERROR_BASE + $ffff;
{------------------------------------------------------------- }
{----- General Errors ---------------------------------------- }
B_NO_MEMORY = B_GENERAL_ERROR_BASE;
B_IO_ERROR = B_GENERAL_ERROR_BASE + 1
B_PERMISSION_DENIED = B_GENERAL_ERROR_BASE + 2;
B_BAD_INDEX = B_GENERAL_ERROR_BASE + 3;
B_BAD_TYPE = B_GENERAL_ERROR_BASE + 4;
B_BAD_VALUE = B_GENERAL_ERROR_BASE + 5;
B_MISMATCHED_VALUES = B_GENERAL_ERROR_BASE + 6;
B_NAME_NOT_FOUND = B_GENERAL_ERROR_BASE + 7;
B_NAME_IN_USE = B_GENERAL_ERROR_BASE + 8;
B_TIMED_OUT = B_GENERAL_ERROR_BASE + 9;
B_INTERRUPTED = B_GENERAL_ERROR_BASE + 10;
B_WOULD_BLOCK = B_GENERAL_ERROR_BASE + 11;
B_CANCELED = B_GENERAL_ERROR_BASE + 12;
B_NO_INIT = B_GENERAL_ERROR_BASE + 13;
B_BUSY = B_GENERAL_ERROR_BASE + 14;
B_NOT_ALLOWED = B_GENERAL_ERROR_BASE + 15;
B_BAD_DATA = B_GENERAL_ERROR_BASE + 16;
B_DATA_TRUNCATED = B_GENERAL_ERROR_BASE + 17;
B_DONT_DO_THAT = B_GENERAL_ERROR_BASE + 18;
B_ERROR = -1;
B_OK = 0;
B_NO_ERROR = 0;
{------------------------------------------------------------- }
{----- Kernel Kit Errors ------------------------------------- }
B_BAD_SEM_ID = B_OS_ERROR_BASE;
B_NO_MORE_SEMS = B_OS_ERROR_BASE + 1;
B_BAD_THREAD_ID = B_OS_ERROR_BASE + $100;
B_NO_MORE_THREADS = B_OS_ERROR_BASE + $101;
B_BAD_THREAD_STATE = B_OS_ERROR_BASE + $102;
B_BAD_TEAM_ID = B_OS_ERROR_BASE + $103;
B_NO_MORE_TEAMS = B_OS_ERROR_BASE + $104;
B_BAD_PORT_ID = B_OS_ERROR_BASE + $200;
B_NO_MORE_PORTS = B_OS_ERROR_BASE + $201;
B_BAD_IMAGE_ID = B_OS_ERROR_BASE + $300;
B_BAD_ADDRESS = B_OS_ERROR_BASE + $301;
B_NOT_AN_EXECUTABLE = B_OS_ERROR_BASE + $302;
B_MISSING_LIBRARY = B_OS_ERROR_BASE + $303;
B_MISSING_SYMBOL = B_OS_ERROR_BASE + $304;
B_DEBUGGER_ALREADY_INSTALLED = B_OS_ERROR_BASE + $400;
{------------------------------------------------------------- }
{----- Application Kit Errors -------------------------------- }
B_BAD_REPLY = B_APP_ERROR_BASE;
B_DUPLICATE_REPLY = B_APP_ERROR_BASE + 1;
B_MESSAGE_TO_SELF = B_APP_ERROR_BASE + 2;
B_BAD_HANDLER = B_APP_ERROR_BASE + 3;
B_ALREADY_RUNNING = B_APP_ERROR_BASE + 4;
B_LAUNCH_FAILED = B_APP_ERROR_BASE + 5;
B_AMBIGUOUS_APP_LAUNCH = B_APP_ERROR_BASE + 6;
B_UNKNOWN_MIME_TYPE = B_APP_ERROR_BASE + 7;
B_BAD_SCRIPT_SYNTAX = B_APP_ERROR_BASE + 8;
B_LAUNCH_FAILED_NO_RESOLVE_LINK = B_APP_ERROR_BASE + 9;
B_LAUNCH_FAILED_EXECUTABLE = B_APP_ERROR_BASE + 10;
B_LAUNCH_FAILED_APP_NOT_FOUND = B_APP_ERROR_BASE + 11;
B_LAUNCH_FAILED_APP_IN_TRASH = B_APP_ERROR_BASE + 12;
B_LAUNCH_FAILED_NO_PREFERRED_APP = B_APP_ERROR_BASE + 13;
B_LAUNCH_FAILED_FILES_APP_NOT_FOUND = B_APP_ERROR_BASE + 14;
B_BAD_MIME_SNIFFER_RULE = B_APP_ERROR_BASE + 15;
B_NOT_A_MESSAGE = B_APP_ERROR_BASE + 16;
{------------------------------------------------------------- }
{----- Storage Kit/File System Errors ------------------------ }
B_FILE_ERROR = B_STORAGE_ERROR_BASE;
B_FILE_NOT_FOUND = B_STORAGE_ERROR_BASE + 1; //* discouraged; use B_ENTRY_NOT_FOUND in new code*/
B_FILE_EXISTS = B_STORAGE_ERROR_BASE + 2;
B_ENTRY_NOT_FOUND = B_STORAGE_ERROR_BASE + 3;
B_NAME_TOO_LONG = B_STORAGE_ERROR_BASE + 4;
B_NOT_A_DIRECTORY = B_STORAGE_ERROR_BASE + 5;
B_DIRECTORY_NOT_EMPTY = B_STORAGE_ERROR_BASE + 6;
B_DEVICE_FULL = B_STORAGE_ERROR_BASE + 7;
B_READ_ONLY_DEVICE = B_STORAGE_ERROR_BASE + 8;
B_IS_A_DIRECTORY = B_STORAGE_ERROR_BASE + 9;
B_NO_MORE_FDS = B_STORAGE_ERROR_BASE + 10;
B_CROSS_DEVICE_LINK = B_STORAGE_ERROR_BASE + 11;
B_LINK_LIMIT = B_STORAGE_ERROR_BASE + 12;
B_BUSTED_PIPE = B_STORAGE_ERROR_BASE + 13;
B_UNSUPPORTED = B_STORAGE_ERROR_BASE + 14;
B_PARTITION_TOO_SMALL = B_STORAGE_ERROR_BASE + 15;
{------------------------------------------------------------- }
{----- POSIX Errors ------------------------------------------ }
E2BIG = B_POSIX_ERROR_BASE + 1;
ECHILD = B_POSIX_ERROR_BASE + 2;
EDEADLK = B_POSIX_ERROR_BASE + 3;
EFBIG = B_POSIX_ERROR_BASE + 4;
EMLINK = B_POSIX_ERROR_BASE + 5;
ENFILE = B_POSIX_ERROR_BASE + 6;
ENODEV = B_POSIX_ERROR_BASE + 7;
ENOLCK = B_POSIX_ERROR_BASE + 8;
ENOSYS = B_POSIX_ERROR_BASE + 9;
ENOTTY = B_POSIX_ERROR_BASE + 10;
ENXIO = B_POSIX_ERROR_BASE + 11;
ESPIPE = B_POSIX_ERROR_BASE + 12;
ESRCH = B_POSIX_ERROR_BASE + 13;
EFPOS = B_POSIX_ERROR_BASE + 14;
ESIGPARM = B_POSIX_ERROR_BASE + 15;
EDOM = B_POSIX_ERROR_BASE + 16;
ERANGE = B_POSIX_ERROR_BASE + 17;
EPROTOTYPE = B_POSIX_ERROR_BASE + 18;
EPROTONOSUPPORT = B_POSIX_ERROR_BASE + 19;
EPFNOSUPPORT = B_POSIX_ERROR_BASE + 20;
EAFNOSUPPORT = B_POSIX_ERROR_BASE + 21;
EADDRINUSE = B_POSIX_ERROR_BASE + 22;
EADDRNOTAVAIL = B_POSIX_ERROR_BASE + 23;
ENETDOWN = B_POSIX_ERROR_BASE + 24;
ENETUNREACH = B_POSIX_ERROR_BASE + 25;
ENETRESET = B_POSIX_ERROR_BASE + 26;
ECONNABORTED = B_POSIX_ERROR_BASE + 27;
ECONNRESET = B_POSIX_ERROR_BASE + 28;
EISCONN = B_POSIX_ERROR_BASE + 29;
ENOTCONN = B_POSIX_ERROR_BASE + 30;
ESHUTDOWN = B_POSIX_ERROR_BASE + 31;
ECONNREFUSED = B_POSIX_ERROR_BASE + 32;
EHOSTUNREACH = B_POSIX_ERROR_BASE + 33;
ENOPROTOOPT = B_POSIX_ERROR_BASE + 34;
ENOBUFS = B_POSIX_ERROR_BASE + 35;
EINPROGRESS = B_POSIX_ERROR_BASE + 36;
EALREADY = B_POSIX_ERROR_BASE + 37;
EILSEQ = B_POSIX_ERROR_BASE + 38;
ENOMSG = B_POSIX_ERROR_BASE + 39;
ESTALE = B_POSIX_ERROR_BASE + 40;
EOVERFLOW = B_POSIX_ERROR_BASE + 41;
EMSGSIZE = B_POSIX_ERROR_BASE + 42;
EOPNOTSUPP = B_POSIX_ERROR_BASE + 43;
ENOTSOCK = B_POSIX_ERROR_BASE + 44;
ENOMEM = B_NO_MEMORY;
EACCES = B_PERMISSION_DENIED;
EINTR = B_INTERRUPTED;
EIO = B_IO_ERROR;
EBUSY = B_BUSY;
EFAULT = B_BAD_ADDRESS;
ETIMEDOUT = B_TIMED_OUT;
{ SysV compatibility }
EAGAIN = B_WOULD_BLOCK;
{ BSD compatibility }
EWOULDBLOCK = B_WOULD_BLOCK;
EBADF = B_FILE_ERROR;
EEXIST = B_FILE_EXISTS;
EINVAL = B_BAD_VALUE;
ENAMETOOLONG = B_NAME_TOO_LONG;
ENOENT = B_ENTRY_NOT_FOUND;
EPERM = B_NOT_ALLOWED;
ENOTDIR = B_NOT_A_DIRECTORY;
EISDIR = B_IS_A_DIRECTORY;
ENOTEMPTY = B_DIRECTORY_NOT_EMPTY;
ENOSPC = B_DEVICE_FULL;
EROFS = B_READ_ONLY_DEVICE;
EMFILE = B_NO_MORE_FDS;
EXDEV = B_CROSS_DEVICE_LINK;
ELOOP = B_LINK_LIMIT;
ENOEXEC = B_NOT_AN_EXECUTABLE;
EPIPE = B_BUSTED_PIPE;
{------------------------------------------------------------- }
{----- Media Kit Errors -------------------------------------- }
B_STREAM_NOT_FOUND = B_MEDIA_ERROR_BASE;
B_SERVER_NOT_FOUND = B_MEDIA_ERROR_BASE + 1;
B_RESOURCE_NOT_FOUND = B_MEDIA_ERROR_BASE + 2;
B_RESOURCE_UNAVAILABLE = B_MEDIA_ERROR_BASE + 3;
B_BAD_SUBSCRIBER = B_MEDIA_ERROR_BASE + 4;
B_SUBSCRIBER_NOT_ENTERED = B_MEDIA_ERROR_BASE + 5;
B_BUFFER_NOT_AVAILABLE = B_MEDIA_ERROR_BASE + 6;
B_LAST_BUFFER_ERROR = B_MEDIA_ERROR_BASE + 7;
{------------------------------------------------------------- }
{----- Mail Kit Errors --------------------------------------- }
B_MAIL_NO_DAEMON = B_MAIL_ERROR_BASE;
B_MAIL_UNKNOWN_USER = B_MAIL_ERROR_BASE + 1;
B_MAIL_WRONG_PASSWORD = B_MAIL_ERROR_BASE + 2;
B_MAIL_UNKNOWN_HOST = B_MAIL_ERROR_BASE + 3;
B_MAIL_ACCESS_ERROR = B_MAIL_ERROR_BASE + 4;
B_MAIL_UNKNOWN_FIELD = B_MAIL_ERROR_BASE + 5;
B_MAIL_NO_RECIPIENT = B_MAIL_ERROR_BASE + 6;
B_MAIL_INVALID_MAIL = B_MAIL_ERROR_BASE + 7;
{------------------------------------------------------------- }
{----- Printing Errors -------------------------------------- }
B_NO_PRINT_SERVER = B_PRINT_ERROR_BASE;
B_PAPER_JAM = B_PRINT_ERROR_BASE + 1;
B_NO_PAPER = B_PRINT_ERROR_BASE + 2;
B_NO_INK = B_PRINT_ERROR_BASE + 3;
B_NO_TRANSPORT = B_PRINT_ERROR_BASE + 4;
B_BAD_TRANSPORT = B_PRINT_ERROR_BASE + 5;
B_TRANSPORT_INIT_ERROR = B_PRINT_ERROR_BASE + 6;
B_PRINTER_BUSY = B_PRINT_ERROR_BASE + 7;
B_NO_PRINTER = B_PRINT_ERROR_BASE + 8;
B_INVALID_PRINT_SETTINGS = B_PRINT_ERROR_BASE + 9;
B_INVALID_PRINTER = B_PRINT_ERROR_BASE + 10;
B_NO_SPOOL_FILE = B_PRINT_ERROR_BASE + 11;
B_BAD_SPOOL_FILE = B_PRINT_ERROR_BASE + 12;
B_NO_DRIVER = B_PRINT_ERROR_BASE + 13;
B_BAD_DRIVER = B_PRINT_ERROR_BASE + 14;
{------------------------------------------------------------- }
{----- Device Kit Errors ------------------------------------- }
B_DEV_INVALID_IOCTL = B_DEVICE_ERROR_BASE;
B_DEV_NO_MEMORY = B_DEVICE_ERROR_BASE + 1;
B_DEV_BAD_DRIVE_NUM = B_DEVICE_ERROR_BASE + 2;
B_DEV_NO_MEDIA = B_DEVICE_ERROR_BASE + 3;
B_DEV_UNREADABLE = B_DEVICE_ERROR_BASE + 4;
B_DEV_FORMAT_ERROR = B_DEVICE_ERROR_BASE + 5;
B_DEV_TIMEOUT = B_DEVICE_ERROR_BASE + 6;
B_DEV_RECALIBRATE_ERROR = B_DEVICE_ERROR_BASE + 7;
B_DEV_SEEK_ERROR = B_DEVICE_ERROR_BASE + 8;
B_DEV_ID_ERROR = B_DEVICE_ERROR_BASE + 9;
B_DEV_READ_ERROR = B_DEVICE_ERROR_BASE + 10;
B_DEV_WRITE_ERROR = B_DEVICE_ERROR_BASE + 11;
B_DEV_NOT_READY = B_DEVICE_ERROR_BASE + 12;
B_DEV_MEDIA_CHANGED = B_DEVICE_ERROR_BASE + 13;
B_DEV_MEDIA_CHANGE_REQUESTED = B_DEVICE_ERROR_BASE + 14;
B_DEV_RESOURCE_CONFLICT = B_DEVICE_ERROR_BASE + 15;
B_DEV_CONFIGURATION_ERROR = B_DEVICE_ERROR_BASE + 16;
B_DEV_DISABLED_BY_USER = B_DEVICE_ERROR_BASE + 17;
B_DEV_DOOR_OPEN = B_DEVICE_ERROR_BASE + 18;
//
B_DEV_INVALID_PIPE = B_DEVICE_ERROR_BASE + 19;
B_DEV_CRC_ERROR = B_DEVICE_ERROR_BASE + 20;
B_DEV_STALLED = B_DEVICE_ERROR_BASE + 21;
B_DEV_BAD_PID = B_DEVICE_ERROR_BASE + 22;
B_DEV_UNEXPECTED_PID = B_DEVICE_ERROR_BASE + 23;
B_DEV_DATA_OVERRUN = B_DEVICE_ERROR_BASE + 24;
B_DEV_DATA_UNDERRUN = B_DEVICE_ERROR_BASE + 25;
B_DEV_FIFO_OVERRUN = B_DEVICE_ERROR_BASE + 26;
B_DEV_FIFO_UNDERRUN = B_DEVICE_ERROR_BASE + 27;
B_DEV_PENDING = B_DEVICE_ERROR_BASE + 28;
B_DEV_MULTIPLE_ERRORS = B_DEVICE_ERROR_BASE + 29;
B_DEV_TOO_LATE = B_DEVICE_ERROR_BASE + 30;
{------------------------------------------------------------- }
{----- WWW Kit Errors ------------------------------------- }
B_AUTHENTICATION_ERROR = B_WWW_ERROR_BASE;
B_FINISH_STREAM = B_WWW_ERROR_BASE + 1;
B_NO_RANDOM_ACCESS = B_WWW_ERROR_BASE + 2;
B_NO_CONTENT = B_WWW_ERROR_BASE + 3;
//* compatibility for RealPlayer. Remove after next version */
FINISH_STREAM = B_FINISH_STREAM;
{------------------------------------------------------------- }
{-----Dialer Errors (typically returned from modems)---------- }
B_MODEM_NO_CARRIER = B_DIALER_ERROR_BASE;
B_MODEM_BUSY = B_DIALER_ERROR_BASE + 1;
B_MODEM_NO_DIALTONE = B_DIALER_ERROR_BASE + 2;
B_MODEM_NO_ANSWER = B_DIALER_ERROR_BASE + 3;
B_MODEM_ERROR = B_DIALER_ERROR_BASE + 4;
B_MODEM_RINGING = B_DIALER_ERROR_BASE + 5;
B_MODEM_UNKNOWN = B_DIALER_ERROR_BASE + 6;
B_MODEM_BAD_LOGIN = B_DIALER_ERROR_BASE + 7;
B_MODEM_TIMEOUT = B_DIALER_ERROR_BASE + 8;
{------------------------------------------------------------- }
{-----RegExp Errors ------------------------------------------ }
B_REGEXP_UNMATCHED_PARENTHESIS = B_REGEXP_ERROR_BASE;
B_REGEXP_TOO_BIG = B_REGEXP_ERROR_BASE + 1;
B_REGEXP_TOO_MANY_PARENTHESIS = B_REGEXP_ERROR_BASE + 2;
B_REGEXP_JUNK_ON_END = B_REGEXP_ERROR_BASE + 3;
B_REGEXP_STAR_PLUS_OPERAND_EMPTY = B_REGEXP_ERROR_BASE + 4;
B_REGEXP_NESTED_STAR_QUESTION_PLUS = B_REGEXP_ERROR_BASE + 5;
B_REGEXP_INVALID_BRACKET_RANGE = B_REGEXP_ERROR_BASE + 6;
B_REGEXP_UNMATCHED_BRACKET = B_REGEXP_ERROR_BASE + 7;
B_REGEXP_INTERNAL_ERROR = B_REGEXP_ERROR_BASE + 8;
B_REGEXP_QUESTION_PLUS_STAR_FOLLOWS_NOTHING = B_REGEXP_ERROR_BASE + 9;
B_REGEXP_TRAILING_BACKSLASH = B_REGEXP_ERROR_BASE + 10;
B_REGEXP_CORRUPTED_PROGRAM = B_REGEXP_ERROR_BASE + 11;
B_REGEXP_MEMORY_CORRUPTION = B_REGEXP_ERROR_BASE + 12;
B_REGEXP_CORRUPTED_POINTERS = B_REGEXP_ERROR_BASE + 13;
B_REGEXP_CORRUPTED_OPCODE = B_REGEXP_ERROR_BASE + 14;
{------------------------------------------------------------- }
{-----Binder Errors ------------------------------------------ }
B_BINDER_MISSING_ARG = B_BINDER_ERROR_BASE;
B_BINDER_BAD_TYPE = B_BINDER_ERROR_BASE + 1;
B_BINDER_DEAD = B_BINDER_ERROR_BASE + 2;
B_BINDER_UNKNOWN_TRANSACT = B_BINDER_ERROR_BASE + 3;
B_BINDER_BAD_TRANSACT = B_BINDER_ERROR_BASE + 4;
{------------------------------------------------------------- }
{------------------------------------------------------------- }
ENOERR = 0;
{ some code assumes EOK exists }
EOK = ENOERR;
implementation
end.

74
begui/begui/imports/pascal/bebuild.pas Normal file
View File

@@ -0,0 +1,74 @@
unit BeBuild;
interface
{$PACKRECORDS C}
{
/
/ File: BeBuild.h
/
/ Description: Import/export macros
/
/ Copyright 1993-98, Be Incorporated
/
}
//{$include <ProductFeatures.h>}
const
B_BEOS_VERSION_4 = $0400;
B_BEOS_VERSION_4_5 = $0450;
B_BEOS_VERSION_5 = $0500;
B_BEOS_VERSION_5_0_3 = $0503;
B_BEOS_VERSION_5_0_4 = $0504;
B_BEOS_VERSION_DANO = $0510;
B_BEOS_VERSION_MAUI = B_BEOS_VERSION_5;
B_BEOS_VERSION = B_BEOS_VERSION_5_0_3;
{ Originally, it wasn't possible to unset _R5_COMPATIBLE_, so make the
default behaviour the same. }
{$ifdef powerc}
const
_PR2_COMPATIBLE_ = 1;
_PR3_COMPATIBLE_ = 1;
_R4_COMPATIBLE_ = 1;
_R4_5_COMPATIBLE_ = 1;
_R5_COMPATIBLE_ = 1;
_R5_0_4_COMPATIBLE_ = 1;
{$else}
const
_PR2_COMPATIBLE_ = 0;
_PR3_COMPATIBLE_ = 0;
_R4_COMPATIBLE_ = 1;
_R4_5_COMPATIBLE_ = 1;
_R5_COMPATIBLE_ = 1;
_R5_0_4_COMPATIBLE_ = 1;
{$endif}
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function _UNUSED(x : longint) : longint;
{ was #define dname def_expr }
{ return type might be wrong }
function _PACKED : longint;
implementation
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function _UNUSED(x : longint) : longint;
begin
_UNUSED:=x;
end;
{ was #define dname def_expr }
{ return type might be wrong }
function _PACKED : longint;
begin
_PACKED:=__attribute__(packed);
end;
end.

305
begui/begui/imports/pascal/beutils.pas Normal file
View File

@@ -0,0 +1,305 @@
unit beutils;
interface
{$PACKRECORDS C}
const
LIBROOT = 'root';
LIBBE = 'be';
LIBBEGUI = 'begui';
_BEEP_FLAGS = 0;
{----- From types.h -------------------------------------------}
type
blkcnt_t = int64;
blksize_t = longint;
fsblkcnt_t = int64;
fsfilcnt_t = int64;
ino_t = int64;
cnt_t = longint;
mode_t = dword;
nlink_t = longint;
dev_t = longint;
off_t = int64;
pid_t = longint;
uid_t = dword;
gid_t = dword;
umode_t = dword;
daddr_t = longint;
{ bsd }
u_char = byte;
u_short = word;
u_int = dword;
u_long = dword;
{ sysv }
unchar = byte;
ushort = word;
uint = dword;
ulong = dword;
caddr_t = char;
{--------------------------------------------------------------}
{----- From fcntl.h (posix) ----------------------------------}
const
F_DUPFD = $0001;
F_GETFD = $0002;
F_SETFD = $0004;
F_GETFL = $0008;
F_SETFL = $0010;
F_GETLK = $0020;
F_RDLCK = $0040;
F_SETLK = $0080;
F_SETLKW = $0100;
F_UNLCK = $0200;
F_WRLCK = $0400;
const
O_RDONLY = 0; { read only }
O_WRONLY = 1; { write only }
O_RDWR = 2; { read and write }
O_RWMASK = 3; { Mask to get open mode }
O_CLOEXEC = $0040; { close fd on exec }
O_NONBLOCK = $0080; { non blocking io }
O_EXCL = $0100; { exclusive creat }
O_CREAT = $0200; { create and open file }
O_TRUNC = $0400; { open with truncation }
O_APPEND = $0800; { to end of file }
O_NOCTTY = $1000; { currently unsupported }
O_NOTRAVERSE = $2000; { do not traverse leaf link }
O_ACCMODE = $0003; { currently unsupported }
O_TEXT = $4000; { CR-LF translation }
O_BINARY = $8000; { no translation }
const
FD_CLOEXEC = 1;
const
{ #define O_DSYNC XXXdbg }
{ #define O_RSYNC XXXdbg }
{ #define O_SYNC XXXdbg }
S_IREAD = $0100; { owner may read }
S_IWRITE = $0080; { owner may write }
type
flock = record
l_type : smallint;
l_whence : smallint;
l_start : off_t;
l_len : off_t;
l_pid : pid_t;
end;
function creat(path:Pchar; mode:mode_t):longint;cdecl; external LIBROOT;
//function open(pathname:Pchar; oflags:longint; args:array of const):longint; cdecl; external LIBROOT;
function open(pathname:Pchar; oflags:longint):longint; cdecl; external LIBROOT;
{ the third argument is the permissions of the created file when O_CREAT is passed in oflags }
//function fcntl(fd:longint; op:longint; args: array of const):longint; cdecl; external LIBROOT;
function fcntl(fd:longint; op:longint):longint; cdecl; external LIBROOT;
{------------------------------------------------------------- }
{----- Shorthand type formats -------------------------------- }
type
int8 = char;
uint8 = byte;
int16 = smallint;
uint16 = word;
int32 = longint;
int64 = comp;
uint32 = dword;
uint64 = qword;
uchar = byte;
unichar = word;
//Volatile types unsupported
//--------------------------
//typedef volatile signed char vint8;
//typedef volatile unsigned char vuint8;
//typedef volatile short vint16;
//typedef volatile unsigned short vuint16;
//typedef volatile long vint32;
//typedef volatile unsigned long vuint32;
//typedef volatile long long vint64;
//typedef volatile unsigned long long vuint64;
//typedef volatile long vlong;
//typedef volatile int vint;
//typedef volatile short vshort;
//typedef volatile char vchar;
//typedef volatile unsigned long vulong;
//typedef volatile unsigned int vuint;
//typedef volatile unsigned short vushort;
//typedef volatile unsigned char vuchar;
{------------------------------------------------------------- }
{----- Descriptive formats ----------------------------------- }
type
status_t = int32;
bigtime_t = comp;
type_code = uint32;
perform_code = uint32;
{----------------------------------------------------- }
{----- min and max comparisons ----------------------- }
{----- min() and max() won't work in C++ ------------- }
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function min_c(a,b : longint) : longint;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function max_c(a,b : longint) : longint;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function min(a,b : longint) : longint;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function max(a,b : longint) : longint;
{----------------------------------------------------- }
{----- Grandfathering -------------------------------- }
type
bool = byte;
const
bool_false = 0;
bool_true = 1;
const
NULL = 0;
{----LIMITS-------------------------------- }
const
NAME_MAX = 256;
SYMLINK_MAX = 16;
MAXPATHLEN = 1024; //guess...
const
B_FILE_NAME_LENGTH = NAME_MAX;
B_PATH_NAME_LENGTH = MAXPATHLEN;
B_ATTR_NAME_LENGTH = B_FILE_NAME_LENGTH - 1;
B_MIME_TYPE_LENGTH = B_ATTR_NAME_LENGTH - 15;
B_MAX_SYMLINKS = SYMLINK_MAX;
{----FILE OPEN MODES-------------------------------- }
const
B_READ_ONLY = O_RDONLY; { read only }
B_WRITE_ONLY = O_WRONLY; { write only }
B_READ_WRITE = O_RDWR; { read and write }
B_FAIL_IF_EXISTS = O_EXCL; { exclusive create }
B_CREATE_FILE = O_CREAT; { create the file }
B_ERASE_FILE = O_TRUNC; { erase the file's data }
B_OPEN_AT_END = O_APPEND; { point to the end of the data }
{--------------------------------------------------------------- }
{----- Atomic functions; old value is returned ----------------- }
//function atomic_add(value:Pvint32; addvalue:int32):int32;cdecl; external LIBROOT;
//function atomic_and(value:Pvint32; andvalue:int32):int32;cdecl; external LIBROOT;
//function atomic_or(value:Pvint32; orvalue:int32):int32;cdecl; external LIBROOT;
{----- Other stuff --------------------------------------------- }
function get_stack_frame:pointer;cdecl; external LIBROOT;
{----- From SupportDef.h ----------------------------------------}
{ unlock function, NULL if lock failed }
{ error if "unlock_func" is NULL }
{ locked object if "unlock_func" is non-NULL }
type
lock_status_t = record
unlock_func : procedure (data:pointer);cdecl;
value : record
case longint of
0 : ( error : status_t );
1 : ( data : pointer );
end;
end;
const
BEEP_SOUND = 'Beep';
STARTUP_SOUND = 'Startup';
NEWEMAIL_SOUND = 'New E-mail';
{----- From Beep.h ----------------------------------------------}
//because of the was libbe was compiled, FPC can't link to the exported
//functions from it!! Had to wrap these to get things to work.
function beep: status_t; cdecl; external LIBBEGUI name 'beapi_beep';
function system_beep(event_name:Pchar): status_t; cdecl; external LIBBEGUI name 'beapi_system_beep';
function add_system_beep_event(event_name:Pchar; flags:uint32):status_t; cdecl; external LIBBEGUI name 'beapi_add_system_beep_event';
implementation
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function min_c(a,b : longint) : longint;
var
if_local1 : longint;
(* result types are not known *)
begin
if b > a then
if_local1:=b
else if_local1:=a;
min_c := if_local1;
end;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function max_c(a,b : longint) : longint;
var
if_local1 : longint;
(* result types are not known *)
begin
if b > a then
if_local1:=a
else if_local1:=b;
max_c := if_local1;
end;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function min(a,b : longint) : longint;
var
if_local1 : longint;
(* result types are not known *)
begin
if b > a then
if_local1:=b
else if_local1:=a;
min:=if_local1;
end;
function max(a,b : longint) : longint;
var
if_local1 : longint;
(* result types are not known *)
begin
if b > a then
if_local1:=a
else if_local1:=b;
max:=if_local1;
end;
end.

13
begui/begui/imports/pascal/examples/testapp5.pas Normal file
View File

@@ -0,0 +1,13 @@
program testapp;
uses
beutils;
var
i: status_t;
begin
i := beep;
i := system_beep(NEWEMAIL_SOUND);
end.

102
begui/begui/imports/pascal/utf8.pas Normal file
View File

@@ -0,0 +1,102 @@
unit UTF8;
interface
{$PACKRECORDS C}
{
/
/ File: UTF8.h
/
/ Description: UTF-8 conversion functions.
/
/ Copyright 1993-98; Be Incorporated
/
}
{------------------------------------------------------------ }
{------- Conversion Flavors --------------------------------- }
const
B_ISO1_CONVERSION = 0; //* ISO 8859-1 */
B_ISO2_CONVERSION = 1; //* ISO 8859-2 */
B_ISO3_CONVERSION = 2; //* ISO 8859-3 */
B_ISO4_CONVERSION = 3; //* ISO 8859-4 */
B_ISO5_CONVERSION = 4; //* ISO 8859-5 */
B_ISO6_CONVERSION = 5; //* ISO 8859-6 */
B_ISO7_CONVERSION = 6; //* ISO 8859-7 */
B_ISO8_CONVERSION = 7; //* ISO 8859-8 */
B_ISO9_CONVERSION = 8; //* ISO 8859-9 */
B_ISO10_CONVERSION = 9; //* ISO 8859-10 */
B_ISO13_CONVERSION = 21; //* ISO 8859-13 */
B_ISO14_CONVERSION = 22; //* ISO 8859-14 */
B_ISO15_CONVERSION = 23; //* ISO 8859-15 */
B_UNICODE_CONVERSION = 15; //* Unicode 2.0 */
B_SJIS_CONVERSION = 11; //* Shift-JIS */
B_EUC_CONVERSION = 12; //* EUC Packed Japanese */
B_JIS_CONVERSION = 13; //* JIS X 0208-1990 */
B_KOI8R_CONVERSION = 16; //* KOI8-R */
B_EUC_KR_CONVERSION = 20; //* EUC Korean */
B_BIG5_CONVERSION = 24; //* Big5 */
B_GBK_CONVERSION = 25; //* GBK */
B_MS_WINDOWS_CONVERSION = 14; //* MS-Windows Codepage 1252 */
B_MS_WINDOWS_1250_CONVERSION = 26; //* MS-Windows Codepage 1250 */
B_MS_WINDOWS_1251_CONVERSION = 17; //* MS-Windows Codepage 1251 */
B_MS_WINDOWS_1252_CONVERSION = B_MS_WINDOWS_CONVERSION;
B_MS_WINDOWS_1253_CONVERSION = 27; //* MS-Windows Codepage 1253 */
B_MS_WINDOWS_1254_CONVERSION = 28; //* MS-Windows Codepage 1254 */
B_MS_WINDOWS_1255_CONVERSION = 29; //* MS-Windows Codepage 1255 */
B_MS_WINDOWS_1256_CONVERSION = 30; //* MS-Windows Codepage 1256 */
B_MS_WINDOWS_1257_CONVERSION = 31; //* MS-Windows Codepage 1257 */
B_MS_WINDOWS_1258_CONVERSION = 32; //* MS-Windows Codepage 1258 */
B_MS_DOS_CONVERSION = 19; //* MS-DOS Codepage 437 */
B_MS_DOS_437_CONVERSION = B_MS_DOS_CONVERSION;
B_MS_DOS_737_CONVERSION = 33; //* MS-DOS Codepage 737 (Greek) */
B_MS_DOS_775_CONVERSION = 34; //* MS-DOS Codepage 775 (Baltic Rim) */
B_MS_DOS_850_CONVERSION = 35; //* MS-DOS Codepage 850 (Latin 1) */
B_MS_DOS_852_CONVERSION = 36; //* MS-DOS Codepage 852 (Latin 2) */
B_MS_DOS_855_CONVERSION = 37; //* MS-DOS Codepage 855 (Cyrillic) */
B_MS_DOS_857_CONVERSION = 38; //* MS-DOS Codepage 857 (Turkish) */
B_MS_DOS_860_CONVERSION = 39; //* MS-DOS Codepage 860 (Portugese) */
B_MS_DOS_861_CONVERSION = 40; //* MS-DOS Codepage 861 (Icelandic) */
B_MS_DOS_862_CONVERSION = 41; //* MS-DOS Codepage 862 (Hebrew) */
B_MS_DOS_863_CONVERSION = 42; //* MS-DOS Codepage 863 (French Canada) */
B_MS_DOS_864_CONVERSION = 43; //* MS-DOS Codepage 864 (Arabic) */
B_MS_DOS_865_CONVERSION = 44; //* MS-DOS Codepage 865 (Nordic) */
B_MS_DOS_866_CONVERSION = 18; //* MS-DOS Codepage 866 */
B_MS_DOS_869_CONVERSION = 45; //* MS-DOS Codepage 869 (Greek2) */
B_MS_DOS_874_CONVERSION = 46; //* MS-DOS Codepage 874 */
B_MAC_ROMAN_CONVERSION = 10; //* Macintosh Roman */
B_MAC_CENTEURO_CONVERSION = 47; //* Macintosh Central Europe */
B_MAC_CROATIAN_CONVERSION = 48; //* Macintosh Croatian */
B_MAC_CYRILLIC_CONVERSION = 49; //* Macintosh Cyrillic */
B_MAC_GREEK_CONVERSION = 50; //* Macintosh Greek */
B_MAC_HEBREW_CONVERSION = 51; //* Macintosh Hebrew */
B_MAC_ICELAND_CONVERSION = 52; //* Macintosh Iceland */
B_MAC_TURKISH_CONVERSION = 53; //* Macintosh Turkish */
{------------------------------------------------------------- }
{------- Conversion Functions -------------------------------- }
(* status_t convert_to_utf8(uint32 srcEncoding,
const char *src,
int32 *srcLen,
char *dst,
int32 *dstLen,
int32 *state,
char substitute = B_SUBSTITUTE);
status_t convert_from_utf8(uint32 dstEncoding,
const char *src,
int32 *srcLen,
char *dst,
int32 *dstLen,
int32 *state,
char substitute = B_SUBSTITUTE); *)
{------------------------------------------------------------- }
{------------------------------------------------------------- }
implementation
end.