aboutsummaryrefslogtreecommitdiff
path: root/core/bgdi/src/main.c
diff options
context:
space:
mode:
authorneonloop2021-10-20 14:54:27 +0000
committerneonloop2021-10-20 14:54:27 +0000
commitea1947ffcc606d757357398b24e74a3f4ecefa07 (patch)
tree2031b8d4fc4c61063c710a7148378f57e662efbd /core/bgdi/src/main.c
downloadbennugd-ea1947ffcc606d757357398b24e74a3f4ecefa07.tar.gz
bennugd-ea1947ffcc606d757357398b24e74a3f4ecefa07.tar.bz2
bennugd-ea1947ffcc606d757357398b24e74a3f4ecefa07.zip
Initial commit from steward-fu releasemain
Diffstat (limited to 'core/bgdi/src/main.c')
-rw-r--r--core/bgdi/src/main.c339
1 files changed, 339 insertions, 0 deletions
diff --git a/core/bgdi/src/main.c b/core/bgdi/src/main.c
new file mode 100644
index 0000000..b9d99c1
--- /dev/null
+++ b/core/bgdi/src/main.c
@@ -0,0 +1,339 @@
+/*
+ * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd)
+ * Copyright © 2002-2006 Fenix Team (Fenix)
+ * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix)
+ *
+ * This file is part of Bennu - Game Development
+ *
+ * This software is provided 'as-is', without any express or implied
+ * warranty. In no event will the authors be held liable for any damages
+ * arising from the use of this software.
+ *
+ * Permission is granted to anyone to use this software for any purpose,
+ * including commercial applications, and to alter it and redistribute it
+ * freely, subject to the following restrictions:
+ *
+ * 1. The origin of this software must not be misrepresented; you must not
+ * claim that you wrote the original software. If you use this software
+ * in a product, an acknowledgment in the product documentation would be
+ * appreciated but is not required.
+ *
+ * 2. Altered source versions must be plainly marked as such, and must not be
+ * misrepresented as being the original software.
+ *
+ * 3. This notice may not be removed or altered from any source
+ * distribution.
+ *
+ */
+
+/*
+ * INCLUDES
+ */
+
+#ifdef _WIN32
+#define _WIN32_WINNT 0x0500
+#include <windows.h>
+#endif
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <unistd.h>
+
+#include "bgdi.h"
+#include "bgdrtm.h"
+#include "xstrings.h"
+#include "dirs.h"
+
+/* ---------------------------------------------------------------------- */
+
+static char * dcb_exts[] = { ".dcb", ".dat", ".bin", NULL };
+
+static int standalone = 0; /* 1 only if this is an standalone interpreter */
+static int embedded = 0; /* 1 only if this is a stub with an embedded DCB */
+
+/* ---------------------------------------------------------------------- */
+
+/*
+ * FUNCTION : main
+ *
+ * Main function
+ *
+ * PARAMS:
+ * INT n: ERROR LEVEL to return to OS
+ *
+ * RETURN VALUE:
+ * No value
+ *
+ */
+
+int main( int argc, char *argv[] )
+{
+ char * filename = NULL, dcbname[ __MAX_PATH ], *ptr, *arg0, *ext ;
+ int i, j, ret = -1;
+ file * fp = NULL;
+ INSTANCE * mainproc_running;
+ dcb_signature dcb_signature;
+
+ /* disable stdout buffering */
+ setvbuf( stdout, NULL, _IONBF, BUFSIZ );
+
+ /* get my executable name */
+
+#ifdef _WIN32
+ if ( strlen( argv[0] ) < 4 || strncmpi( &argv[0][strlen( argv[0] ) - 4], ".exe", 4 ) )
+ {
+ arg0 = malloc( strlen( argv[0] ) + 5 );
+ sprintf( arg0, "%s.exe", argv[0] );
+ }
+ else
+ {
+#endif
+ arg0 = strdup( argv[0] );
+#ifdef _WIN32
+ }
+#endif
+
+ ptr = arg0 + strlen( arg0 );
+ while ( ptr > arg0 && ptr[-1] != '\\' && ptr[-1] != '/' ) ptr-- ;
+
+ appexename = strdup( ptr );
+
+ /* get executable full pathname */
+ fp = NULL;
+ appexefullpath = getfullpath( arg0 );
+ if ( ( !strchr( arg0, '\\' ) && !strchr( arg0, '/' ) ) )
+ {
+ struct stat st;
+ if ( stat( appexefullpath, &st ) || !S_ISREG( st.st_mode ) )
+ {
+ char *p = whereis( appexename );
+ if ( p )
+ {
+ char * tmp = calloc( 1, strlen( p ) + strlen( appexename ) + 2 );
+ free( appexefullpath );
+ sprintf( tmp, "%s/%s", p, appexename );
+ appexefullpath = getfullpath( tmp );
+ free( tmp );
+ }
+ }
+ }
+
+ /* get pathname of executable */
+ ptr = strstr( appexefullpath, appexename );
+ appexepath = calloc( 1, ptr - appexefullpath + 1 );
+ strncpy( appexepath, appexefullpath, ptr - appexefullpath );
+
+ standalone = ( strncmpi( appexename, "bgdi", 4 ) == 0 ) ;
+
+ /* add binary path */
+ file_addp( appexepath );
+
+ if ( !standalone )
+ {
+ /* Hand-made interpreter: search for DCB at EOF */
+ fp = file_open( appexefullpath, "rb0" );
+ if ( fp )
+ {
+ file_seek( fp, -( int )sizeof( dcb_signature ), SEEK_END );
+ file_read( fp, &dcb_signature, sizeof( dcb_signature ) );
+
+ if ( strcmp( dcb_signature.magic, DCB_STUB_MAGIC ) == 0 )
+ {
+ ARRANGE_DWORD( &dcb_signature.dcb_offset );
+ embedded = 1;
+ }
+ }
+
+ filename = appexefullpath;
+ }
+
+ if ( standalone )
+ {
+ /* Calling BGDI.EXE so we must get all command line params */
+
+ for ( i = 1 ; i < argc ; i++ )
+ {
+ if ( argv[i][0] == '-' )
+ {
+ j = 1 ;
+ while ( argv[i][j] )
+ {
+ if ( argv[i][j] == 'd' ) debug++;
+ if ( argv[i][j] == 'i' )
+ {
+ if ( argv[i][j+1] == 0 )
+ {
+ if ( i == argc - 1 )
+ {
+ fprintf( stderr, "You must provide a directory" ) ;
+ exit( 0 );
+ }
+ file_addp( argv[i+1] );
+ i++ ;
+ break ;
+ }
+ file_addp( &argv[i][j + 1] ) ;
+ break ;
+ }
+ j++ ;
+ }
+ }
+ else
+ {
+ if ( !filename )
+ {
+ filename = argv[i] ;
+ if ( i < argc - 1 ) memmove( &argv[i], &argv[i+1], sizeof( char* ) * ( argc - i - 1 ) ) ;
+ argc-- ;
+ i-- ;
+ }
+ }
+ }
+
+ if ( !filename )
+ {
+ printf( BGDI_VERSION "\n"
+ "Bennu Game Development Interpreter\n"
+ "\n"
+ "Copyright (c) 2006-2016 SplinterGU (Fenix/BennuGD)\n"
+ "Copyright (c) 2002-2006 Fenix Team (Fenix)\n"
+ "Copyright (c) 1999-2002 José Luis Cebrián Pagüe (Fenix)\n"
+ "\n"
+ "Usage: %s [options] <data code block file>[.dcb]\n"
+ "\n"
+ " -d Activate DEBUG mode (several -d for increment debug level)\n"
+ " -i dir Adds the directory to the PATH\n"
+ "\n"
+ "This software is provided 'as-is', without any express or implied\n"
+ "warranty. In no event will the authors be held liable for any damages\n"
+ "arising from the use of this software.\n"
+ "\n"
+ "Permission is granted to anyone to use this software for any purpose,\n"
+ "including commercial applications, and to alter it and redistribute it\n"
+ "freely, subject to the following restrictions:\n"
+ "\n"
+ " 1. The origin of this software must not be misrepresented; you must not\n"
+ " claim that you wrote the original software. If you use this software\n"
+ " in a product, an acknowledgment in the product documentation would be\n"
+ " appreciated but is not required.\n"
+ "\n"
+ " 2. Altered source versions must be plainly marked as such, and must not be\n"
+ " misrepresented as being the original software.\n"
+ "\n"
+ " 3. This notice may not be removed or altered from any source\n"
+ " distribution.\n"
+ , appexename ) ;
+ return -1 ;
+ }
+ }
+
+ /* Initialization (modules needed before dcb_load) */
+
+ string_init() ;
+ init_c_type() ;
+
+ /* Init application title for windowed modes */
+
+ strcpy( dcbname, filename ) ;
+
+ ptr = filename + strlen( filename );
+ while ( ptr > filename && ptr[-1] != '\\' && ptr[-1] != '/' ) ptr-- ;
+
+ appname = strdup( ptr ) ;
+ if ( strlen( appname ) > 3 )
+ {
+ char ** dcbext = dcb_exts, *ext = &appname[ strlen( appname ) - 4 ];
+#ifdef _WIN32
+ if ( !strncmpi( ext, ".exe", 4 ) )
+ {
+ *ext = '\0';
+ }
+ else
+#endif
+ while ( dcbext && *dcbext )
+ {
+ if ( !strncmpi( ext, *dcbext, 4 ) )
+ {
+ *ext = '\0';
+ break;
+ }
+ dcbext++;
+ }
+ }
+
+#ifdef __DEBUG__
+printf( "appname %s\n", appname);
+printf( "appexename %s\n", appexename);
+printf( "appexepath %s\n", appexepath);
+printf( "appexefullpath %s\n", appexefullpath);
+printf( "dcbname %s\n", dcbname);
+fflush(stdout);
+#endif
+
+ if ( !embedded )
+ {
+ /* First try to load directly (we expect myfile.dcb) */
+ if ( !dcb_load( dcbname ) )
+ {
+ char ** dcbext = dcb_exts;
+ int dcbloaded = 0;
+
+ while ( dcbext && *dcbext )
+ {
+ strcpy( dcbname, appname ) ;
+ strcat( dcbname, *dcbext ) ;
+ if (( dcbloaded = dcb_load( dcbname ) ) ) break;
+ dcbext++;
+ }
+
+ if ( !dcbloaded )
+ {
+ printf( "%s: doesn't exist or isn't version %d DCB compatible\n", filename, DCB_VERSION >> 8 ) ;
+ return -1 ;
+ }
+ }
+ }
+ else
+ {
+ dcb_load_from( fp, dcbname, dcb_signature.dcb_offset );
+ }
+
+ /* If the dcb is not in debug mode */
+
+ if ( dcb.data.NSourceFiles == 0 ) debug = 0;
+
+ /* Initialization (modules needed after dcb_load) */
+
+ sysproc_init() ;
+
+#ifdef _WIN32
+ HWND hWnd = /*GetForegroundWindow()*/ GetConsoleWindow();
+ DWORD dwProcessId;
+ GetWindowThreadProcessId( hWnd, &dwProcessId );
+ if ( dwProcessId == GetCurrentProcessId() ) ShowWindow( hWnd, SW_HIDE );
+#endif
+
+ argv[0] = filename;
+ bgdrtm_entry( argc, argv );
+
+ if ( mainproc )
+ {
+ mainproc_running = instance_new( mainproc, NULL ) ;
+ ret = instance_go_all() ;
+ }
+
+ bgdrtm_exit( ret );
+
+ free( appexename );
+ free( appexepath );
+ free( appexefullpath );
+ free( appname );
+
+ return ret;
+}
+