quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improved compatibility with bcb

Browse Source
This commit is contained in:
tony 2014-12-09 22:12:21 +08:00
parent e6be2beb27
commit 0e11c86786
4 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
HISTORY
View File

@ -1,3 +1,6 @@
Dec. 9 2014
Improved compatibility with BCB
May. 25 2014 May. 25 2014
Added a mb_set_inputer function which allows the user to specify an INPUT reader, thanks to Michael P. Welch for suggestion Added a mb_set_inputer function which allows the user to specify an INPUT reader, thanks to Michael P. Welch for suggestion
Added a mb_remove_reserved_func function which allows the user to disable/remove a reserved statement Added a mb_remove_reserved_func function which allows the user to disable/remove a reserved statement

18
core/my_basic.c
View File

@ -60,6 +60,12 @@ extern "C" {
# pragma clang diagnostic ignored "-Wunused-variable" # pragma clang diagnostic ignored "-Wunused-variable"
#endif /* __APPLE__ */ #endif /* __APPLE__ */
#ifdef __BORLANDC__
# pragma warn -8004
# pragma warn -8008
# pragma warn -8066
#endif /* __BORLANDC__ */
#ifdef MB_COMPACT_MODE #ifdef MB_COMPACT_MODE
# pragma pack(1) # pragma pack(1)
#endif /* MB_COMPACT_MODE */ #endif /* MB_COMPACT_MODE */
@ -72,9 +78,9 @@ extern "C" {
/** Macros */ /** Macros */
#define _VER_MAJOR 1 #define _VER_MAJOR 1
#define _VER_MINOR 0 #define _VER_MINOR 0
#define _VER_REVISION 42 #define _VER_REVISION 43
#define _MB_VERSION ((_VER_MAJOR * 0x01000000) + (_VER_MINOR * 0x00010000) + (_VER_REVISION)) #define _MB_VERSION ((_VER_MAJOR * 0x01000000) + (_VER_MINOR * 0x00010000) + (_VER_REVISION))
#define _MB_VERSION_STRING "1.0.0042" #define _MB_VERSION_STRING "1.0.0043"
/* Uncomment this line to treat warnings as error */ /* Uncomment this line to treat warnings as error */
/*#define _WARING_AS_ERROR*/ /*#define _WARING_AS_ERROR*/
@ -695,6 +701,8 @@ static int _close_std_lib(mb_interpreter_t* s);
# else /* _MSC_VER < 1300 */ # else /* _MSC_VER < 1300 */
# define _do_nothing do { printf("Unaccessable function: %s\n", __FUNCTION__); } while(0) # define _do_nothing do { printf("Unaccessable function: %s\n", __FUNCTION__); } while(0)
# endif /* _MSC_VER < 1300 */ # endif /* _MSC_VER < 1300 */
#elif defined __BORLANDC__
# define _do_nothing do { printf("Unaccessable function: %s\n", __FUNC__); } while(0)
#else /* _MSC_VER */ #else /* _MSC_VER */
# define _do_nothing do { printf("Unaccessable function: %s\n", __FUNCTION__); } while(0) # define _do_nothing do { printf("Unaccessable function: %s\n", __FUNCTION__); } while(0)
#endif /* _MSC_VER */ #endif /* _MSC_VER */
@ -5909,6 +5917,12 @@ _exit:
# pragma pack() # pragma pack()
#endif /* MB_COMPACT_MODE */ #endif /* MB_COMPACT_MODE */
#ifdef __BORLANDC__
# pragma warn .8004
# pragma warn .8008
# pragma warn .8066
#endif /* __BORLANDC__ */
#ifdef __APPLE__ #ifdef __APPLE__
# pragma clang diagnostic pop # pragma clang diagnostic pop
#endif /* __APPLE__ */ #endif /* __APPLE__ */

4
core/my_basic.h
View File

@ -64,7 +64,11 @@ extern "C" {
#ifndef _MSC_VER #ifndef _MSC_VER
# ifndef _strcmpi # ifndef _strcmpi
# ifdef __BORLANDC__
# define _strcmpi stricmp
# else /* __BORLANDC__*/
# define _strcmpi strcasecmp # define _strcmpi strcasecmp
# endif /* __BORLANDC__ */
# endif /* _strcmpi */ # endif /* _strcmpi */
#endif /* _MSC_VER */ #endif /* _MSC_VER */

8
shell/main.c
View File

@ -32,7 +32,7 @@
#ifdef _MSC_VER #ifdef _MSC_VER
# include <crtdbg.h> # include <crtdbg.h>
# include <conio.h> # include <conio.h>
#else /* _MSC_VER */ #elif !defined __BORLANDC__
# include <unistd.h> # include <unistd.h>
#endif /* _MSC_VER */ #endif /* _MSC_VER */
#include <assert.h> #include <assert.h>
@ -46,6 +46,12 @@
# pragma warning(disable : 4996) # pragma warning(disable : 4996)
#endif /* _MSC_VER */ #endif /* _MSC_VER */
#ifdef __BORLANDC__
# pragma warn -8004
# pragma warn -8008
# pragma warn -8066
#endif /* __BORLANDC__ */
#define _MAX_LINE_LENGTH 256 #define _MAX_LINE_LENGTH 256
#define _str_eq(__str1, __str2) (_strcmpi(__str1, __str2) == 0) #define _str_eq(__str1, __str2) (_strcmpi(__str1, __str2) == 0)