mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 12:50:17 +00:00
371 lines
13 KiB
C++
371 lines
13 KiB
C++
// Fill out dependency macros
|
|
#ifndef DEPENDENCY_NO_SOCKETS
|
|
# define DEPENDENCY_SOCKETS
|
|
#endif
|
|
|
|
#ifndef DEPENDENCY_NO_PRINTER
|
|
# define DEPENDENCY_PRINTER
|
|
#endif
|
|
|
|
#ifndef DEPENDENCY_NO_ICON
|
|
# define DEPENDENCY_ICON
|
|
#endif
|
|
|
|
#ifndef DEPENDENCY_NO_SCREENIMAGE
|
|
# define DEPENDENCY_SCREENIMAGE
|
|
#endif
|
|
|
|
#ifndef INC_COMMON_CPP
|
|
# define INC_COMMON_CPP
|
|
# include "os.h"
|
|
|
|
# define QB64_GL1
|
|
# define QB64_GLUT
|
|
|
|
# ifdef DEPENDENCY_CONSOLE_ONLY
|
|
# undef QB64_GLUT
|
|
# else
|
|
# define QB64_GUI
|
|
# endif
|
|
|
|
// core
|
|
# ifdef QB64_GUI
|
|
# ifdef QB64_GLUT
|
|
// This file only contains header stuff
|
|
# include "parts/core/src.c"
|
|
# endif
|
|
# endif
|
|
|
|
# ifdef QB64_WINDOWS
|
|
|
|
# ifndef QB64_GUI
|
|
# undef int64 // definition of int64 from os.h conflicts with a definition within windows.h, temporarily undefine then redefine
|
|
# include <windows.h>
|
|
# define int64 __int64
|
|
# endif
|
|
|
|
# include <shfolder.h>
|
|
|
|
# include <float.h>
|
|
# include <winbase.h>
|
|
|
|
# endif
|
|
|
|
// common includes
|
|
# include <cmath>
|
|
# include <errno.h>
|
|
# include <fcntl.h>
|
|
# include <fstream>
|
|
# include <iostream>
|
|
# include <limits.h>
|
|
# include <stdint.h>
|
|
# include <stdio.h>
|
|
# include <string.h>
|
|
# include <time.h>
|
|
|
|
// OS/compiler specific includes
|
|
# ifdef QB64_WINDOWS
|
|
# include <direct.h>
|
|
# ifdef DEPENDENCY_PRINTER
|
|
# include <winspool.h>
|
|
# endif
|
|
# include <csignal>
|
|
# include <process.h> //required for multi-threading
|
|
# if defined DEPENDENCY_AUDIO_MINIAUDIO || defined QB64_GUI
|
|
# include <mmsystem.h>
|
|
# endif
|
|
|
|
# else
|
|
|
|
# include <dlfcn.h>
|
|
# include <pthread.h>
|
|
# include <stdlib.h>
|
|
# include <sys/stat.h>
|
|
# include <sys/types.h>
|
|
# include <sys/wait.h>
|
|
# include <unistd.h>
|
|
|
|
# endif
|
|
|
|
# ifdef QB64_GUI
|
|
# ifdef QB64_GLUT
|
|
# include "parts/core/gl_headers/opengl_org_registery/glext.h"
|
|
# endif
|
|
# endif
|
|
|
|
# define QB_FALSE 0
|
|
# define QB_TRUE -1
|
|
|
|
# define QB_ERROR_NEXT_WITHOUT_FOR 1
|
|
# define QB_ERROR_SYNTAX_ERROR 2
|
|
# define QB_ERROR_RETURN_WITHOUT_GOSUB 3
|
|
# define QB_ERROR_OUT_OF_DATA 4
|
|
# define QB_ERROR_ILLEGAL_FUNCTION_CALL 5
|
|
# define QB_ERROR_OVERFLOW 6
|
|
# define QB_ERROR_OUT_OF_MEMORY 7
|
|
# define QB_ERROR_LABEL_NOT_DEFINED 8
|
|
# define QB_ERROR_SUBSCRIPT_OUT_OF_RANGE 9
|
|
# define QB_ERROR_DUPLICATE_DEFINITION 10
|
|
# define QB_ERROR_DIVISION_BY_ZERO 11
|
|
# define QB_ERROR_ILLEGAL_IN_DIRECT_MODE 12
|
|
# define QB_ERROR_TYPE_MISMATCH 13
|
|
# define QB_ERROR_OUT_OF_STRING_SPACE 14
|
|
# define QB_ERROR_STRING_FORMULA_TOO_COMPLEX 16
|
|
# define QB_ERROR_CANNOT_CONTINUE 17
|
|
# define QB_ERROR_FUNCTION_NOT_DEFINED 18
|
|
# define QB_ERROR_NO_RESUME 19
|
|
# define QB_ERROR_RESUME_WITHOUT_ERROR 20
|
|
# define QB_ERROR_DEVICE_TIMEOUT 24
|
|
# define QB_ERROR_DEVICE_FAULT 25
|
|
# define QB_ERROR_FOR_WITHOUT_NEXT 26
|
|
# define QB_ERROR_OUT_OF_PAPER 27
|
|
# define QB_ERROR_WHILE_WITHOUT_WEND 29
|
|
# define QB_ERROR_WEND_WITHOUT_WHILE 30
|
|
# define QB_ERROR_DUPLICATE_LABEL 33
|
|
# define QB_ERROR_SUBPROGRAM_NOT_DEFINED 35
|
|
# define QB_ERROR_ARGUMENT_COUNT_MISMATCH 37
|
|
# define QB_ERROR_ARRAY_NOT_DEFINED 38
|
|
# define QB_ERROR_VARIABLE_REQUIRED 40
|
|
# define QB_ERROR_FIELD_OVERFLOW 50
|
|
# define QB_ERROR_INTERNAL_ERROR 51
|
|
# define QB_ERROR_BAD_FILE_NAME_OR_NUMBER 52
|
|
# define QB_ERROR_FILE_NOT_FOUND 53
|
|
# define QB_ERROR_BAD_FILE_MODE 54
|
|
# define QB_ERROR_FILE_ALREADY_OPEN 55
|
|
# define QB_ERROR_FIELD_STATEMENT_ACTIVE 56
|
|
# define QB_ERROR_DEVICE_IO_ERROR 57
|
|
# define QB_ERROR_FILE_ALREADY_EXISTS 58
|
|
# define QB_ERROR_BAD_RECORD_LENGTH 59
|
|
# define QB_ERROR_DISK_FULL 61
|
|
# define QB_ERROR_INPUT_PAST_END_OF_FILE 62
|
|
# define QB_ERROR_BAD_RECORD_NUMBER 63
|
|
# define QB_ERROR_BAD_FILE_NAME 64
|
|
# define QB_ERROR_TOO_MANY_FILES 67
|
|
# define QB_ERROR_DEVICE_UNAVAILABLE 68
|
|
# define QB_ERROR_COMMUNICATION_BUFFER_OVERFLOW 69
|
|
# define QB_ERROR_PERMISSION_DENIED 70
|
|
# define QB_ERROR_DISK_NOT_READY 71
|
|
# define QB_ERROR_DISK_MEDIA_ERROR 72
|
|
# define QB_ERROR_FEATURE_UNAVAILABLE 73
|
|
# define QB_ERROR_RENAME_ACROSS_DISKS 74
|
|
# define QB_ERROR_PATH_FILE_ACCESS_ERROR 75
|
|
# define QB_ERROR_PATH_NOT_FOUND 76
|
|
# define QB_ERROR_OUT_OF_STACK_SPACE 256
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL 257
|
|
# define QB_ERROR_INVALID_HANDLE 258
|
|
# define QB_ERROR_CANNOT_FIND_DYNAMIC_LIBRARY_FILE 259
|
|
# define QB_ERROR_FUNCTION_NOT_FOUND_IN_DYNAMIC_LIBRARY 260
|
|
# define QB_ERROR_FUNCTION_NOT_FOUND_IN_DYNAMIC_LIBRARY_261 261
|
|
# define QB_ERROR_GL_COMMAND_OUTSIDE_SUB_GL_SCOPE 270
|
|
# define QB_ERROR_END_SYSTEM_IN_SUB_GL_SCOPE 271
|
|
# define QB_ERROR_MEMORY_REGION_OUT_OF_RANGE 300
|
|
# define QB_ERROR_INVALID_SIZE 301
|
|
# define QB_ERROR_SOURCE_MEMORY_REGION_OUT_OF_RANGE 302
|
|
# define QB_ERROR_DESTINATION_MEMORY_REGION_OUT_OF_RANGE 303
|
|
# define QB_ERROR_BOTH_MEMORY_REGIONS_OUT_OF_RANGE 304
|
|
# define QB_ERROR_SOURCE_MEMORY_FREED 305
|
|
# define QB_ERROR_DESTINATION_MEMORY_FREED 306
|
|
# define QB_ERROR_MEMORY_ALREADY_FREED 307
|
|
# define QB_ERROR_MEMORY_HAS_BEEN_FREED 308
|
|
# define QB_ERROR_MEMORY_NOT_INITIALIZED 309
|
|
# define QB_ERROR_SOURCE_MEMORY_NOT_INITIALIZED 310
|
|
# define QB_ERROR_DESTINATION_MEMORY_NOT_INITIALIZED 311
|
|
# define QB_ERROR_BOTH_MEMORY_NOT_INITIALIZED 312
|
|
# define QB_ERROR_BOTH_MEMORY_FREED 313
|
|
# define QB_ERROR_ASSERT_FAILED 314
|
|
# define QB_ERROR_ASSERT_FAILED_WITH_DESCRIPTION 315
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_502 502
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_503 503
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_504 504
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_505 505
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_506 506
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_507 507
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_508 508
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_509 509
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_510 510
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_511 511
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_512 512
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_513 513
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_514 514
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_515 515
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_516 516
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_517 517
|
|
# define QB_ERROR_OUT_OF_MEMORY_FATAL_518 518
|
|
|
|
// QB64 string descriptor structure
|
|
struct qbs_field {
|
|
int32 fileno;
|
|
int64 fileid;
|
|
int64 size;
|
|
int64 offset;
|
|
};
|
|
|
|
struct qbs {
|
|
uint8 *chr; // a 32 bit pointer to the string's data
|
|
int32 len; // must be signed for comparisons against signed int32s
|
|
uint8 in_cmem; // set to 1 if in the conventional memory DBLOCK
|
|
uint16 *cmem_descriptor;
|
|
uint16 cmem_descriptor_offset;
|
|
uint32 listi; // the index in the list of strings that references it
|
|
uint8 tmp; // set to 1 if the string can be deleted immediately after being processed
|
|
uint32 tmplisti; // the index in the list of strings that references it
|
|
uint8 fixed; // fixed length string
|
|
uint8 readonly; // set to 1 if string is read only
|
|
qbs_field *field;
|
|
};
|
|
|
|
struct img_struct {
|
|
void *lock_offset;
|
|
int64 lock_id;
|
|
uint8 valid; // 0,1 0=invalid
|
|
uint8 text; // if set, surface is a text surface
|
|
uint8 console; // dummy surface to absorb unimplemented console functionality
|
|
uint16 width, height;
|
|
uint8 bytes_per_pixel; // 1,2,4
|
|
uint8 bits_per_pixel; // 1,2,4,8,16(text),32
|
|
uint32 mask; // 1,3,0xF,0xFF,0xFFFF,0xFFFFFFFF
|
|
uint16 compatible_mode; // 0,1,2,7,8,9,10,11,12,13,32,256
|
|
uint32 color, background_color, draw_color;
|
|
uint32 font; // 8,14,16,?
|
|
int16 top_row, bottom_row; // VIEW PRINT settings, unique (as in QB) to each "page"
|
|
int16 cursor_x, cursor_y; // unique (as in QB) to each "page"
|
|
uint8 cursor_show, cursor_firstvalue, cursor_lastvalue;
|
|
union {
|
|
uint8 *offset;
|
|
uint32 *offset32;
|
|
};
|
|
uint32 flags;
|
|
uint32 *pal;
|
|
int32 transparent_color; //-1 means no color is transparent
|
|
uint8 alpha_disabled;
|
|
uint8 holding_cursor;
|
|
uint8 print_mode;
|
|
// BEGIN apm ('active page migration')
|
|
// everything between apm points is migrated during active page changes
|
|
// note: apm data is only relevent to graphics modes
|
|
uint8 apm_p1;
|
|
int32 view_x1, view_y1, view_x2, view_y2;
|
|
int32 view_offset_x, view_offset_y;
|
|
float x, y;
|
|
uint8 clipping_or_scaling;
|
|
float scaling_x, scaling_y, scaling_offset_x, scaling_offset_y;
|
|
float window_x1, window_y1, window_x2, window_y2;
|
|
double draw_ta;
|
|
double draw_scale;
|
|
uint8 apm_p2;
|
|
// END apm
|
|
};
|
|
// img_struct flags
|
|
# define IMG_FREEPAL 1 // free palette data before freeing image
|
|
# define IMG_SCREEN 2 // img is linked to other screen pages
|
|
# define IMG_FREEMEM 4 // if set, it means memory must be freed
|
|
|
|
// QB64 internal variable type flags (internally referenced by some C functions)
|
|
# define ISSTRING 1073741824
|
|
# define ISFLOAT 536870912
|
|
# define ISUNSIGNED 268435456
|
|
# define ISPOINTER 134217728
|
|
# define ISFIXEDLENGTH 67108864 // only set for strings with pointer flag
|
|
# define ISINCONVENTIONALMEMORY 33554432
|
|
# define ISOFFSETINBITS 16777216
|
|
|
|
struct ontimer_struct {
|
|
uint8 allocated;
|
|
uint32 id; // the event ID to trigger (0=no event)
|
|
int64 pass; // the value to pass to the triggered event (only applicable to ON ... CALL ...(x)
|
|
uint8 active; // 0=OFF, 1=ON, 2=STOP
|
|
uint8 state; // 0=untriggered,1=triggered
|
|
double seconds; // how many seconds between events
|
|
double last_time; // the last time this event was triggered
|
|
};
|
|
|
|
struct onkey_struct {
|
|
uint32 id; // the event ID to trigger (0=no event)
|
|
int64 pass; // the value to pass to the triggered event (only applicable to ON ... CALL ...(x)
|
|
uint8 active; // 0=OFF, 1=ON, 2=STOP
|
|
uint8 state; // 0=untriggered,1=triggered,2=in progress(TIMER only),2+=multiple events queued(KEY only)
|
|
uint32 keycode; // 32-bit code, same as what _KEYHIT returns
|
|
uint32 keycode_alternate; // an alternate keycode which may also trigger event
|
|
uint8 key_scancode;
|
|
uint8 key_flags;
|
|
// flags:
|
|
// 0 No keyboard flag, 1-3 Either Shift key, 4 Ctrl key, 8 Alt key,32 NumLock key,64 Caps Lock key, 128 Extended keys on a 101-key keyboard
|
|
// To specify multiple shift states, add the values together. For example, a value of 12 specifies that the user-defined key is used in combination with the
|
|
// Ctrl and Alt keys.
|
|
qbs *text;
|
|
};
|
|
|
|
struct onstrig_struct {
|
|
uint32 id; // the event ID to trigger (0=no event)
|
|
int64 pass; // the value to pass to the triggered event (only applicable to ON ... CALL ...(x)
|
|
uint8 active; // 0=OFF, 1=ON, 2=STOP
|
|
uint8 state; // 0=untriggered,1=triggered,2=in progress(TIMER only),2+=multiple events queued(KEY only)
|
|
};
|
|
|
|
struct byte_element_struct {
|
|
uint64 offset;
|
|
int32 length;
|
|
};
|
|
|
|
struct device_struct {
|
|
int32 used;
|
|
int32 type;
|
|
// 0=Unallocated
|
|
// 1=Joystick/Gamepad
|
|
// 2=Keybaord
|
|
// 3=Mouse
|
|
char *name;
|
|
int32 connected;
|
|
int32 lastbutton;
|
|
int32 lastaxis;
|
|
int32 lastwheel;
|
|
//--------------
|
|
int32 max_events;
|
|
int32 queued_events;
|
|
uint8 *events; // the structure and size of the events depends greatly on the device and its capabilities
|
|
int32 event_size;
|
|
//--------------
|
|
uint8 STRIG_button_pressed[256]; // checked and cleared by the STRIG function
|
|
//--------------
|
|
void *handle_pointer; // handle as pointer
|
|
int64 handle_int; // handle as integer
|
|
char *description; // description provided by manufacturer
|
|
int64 product_id;
|
|
int64 vendor_id;
|
|
int32 buttons;
|
|
int32 axes;
|
|
int32 balls;
|
|
int32 hats;
|
|
};
|
|
|
|
// device_struct constants
|
|
# define QUEUED_EVENTS_LIMIT 1024
|
|
# define DEVICETYPE_CONTROLLER 1
|
|
# define DEVICETYPE_KEYBOARD 2
|
|
# define DEVICETYPE_MOUSE 3
|
|
|
|
struct mem_block {
|
|
ptrszint offset;
|
|
ptrszint size;
|
|
int64 lock_id; // 64-bit key, must be present at lock's offset or memory region is invalid
|
|
ptrszint lock_offset; // pointer to lock
|
|
ptrszint type; // https://qb64phoenix.com/qb64wiki/index.php/MEM
|
|
ptrszint elementsize;
|
|
int32 image;
|
|
int32 sound;
|
|
};
|
|
|
|
struct mem_lock {
|
|
uint64 id;
|
|
int32 type; // required to know what action to take (if any) when a request is made to free the block
|
|
// 0=no security (eg. user defined block from _OFFSET)
|
|
// 1=C-malloc'ed block
|
|
// 2=image
|
|
// 3=sub/function scope block
|
|
// 4=array
|
|
// 5=sound
|
|
//---- type specific variables follow ----
|
|
void *offset; // used by malloc'ed blocks to free them
|
|
};
|
|
|
|
#endif // INC_COMMON_CPP
|