barra de titulo

ediv/CHANGE_LOG.txt

@@ -1,3 +1,8 @@
+28/9/2002
+---------
+ * El título por defecto de la ventana del juego compilado es el nombre in-
+   dicado en la sentencia program. (Er_Makina)
+
 26/9/2002
 ---------
  * Algunos bugfixes y cambios menores. CicTec y yo andamos tras la pista de
@@ -13,8 +18,6 @@
      produce si no usamos procesos con más de un parámetro.
    - Al llegar a x procesos (600, 900...) el programa se queda bloqueado.
    (Er_Makina)
- * Para mañana, haré que el título por defecto de la ventana sea el nombre
-   del programa indicado en program. (Er_Makina)
 
 25/9/2002
 ---------

ediv/bin/bum.prg

@@ -1,4 +1,3 @@
-compiler_options _max_process=2000;
 program bum;
 private
     numprocs;

ediv/src/dlls/export.h

@@ -252,6 +252,7 @@ struct _fun_params{
 	int *num_procs ;
 	int *proc_orden ;
 	int *proceso_actual ;
+	unsigned char* nombre_program;
 	struct _regions *regions ;
 	struct _existe existe ;
 	struct _files *files ;
@@ -296,7 +297,7 @@ void frame(FUNCTION_PARAMS);
 void trace(int imem, char* nombreprg, int* lin, void* dbg);
 void debug(int imem, char* nombreprg, int* lin, void* dbg);
 void first_load(FUNCTION_PARAMS) ;
-void quit(int dont_quit);
+void quit(void);
 
 //////////////////////////////
 

ediv/src/dlls/graphics/main.c

@@ -1489,9 +1489,9 @@ void first_load(FUNCTION_PARAMS2)
 
 	define_region = 1 ;
 
-	SDL_WM_SetCaption("eDiv testing", NULL);
+	SDL_WM_SetCaption(fp->nombre_program, NULL);
 
-	prueba = SDL_LoadBMP("prueba.bmp" );
+	//prueba = SDL_LoadBMP("prueba.bmp" );
 
 	//fclose(fichero ) ;
 

ediv/src/ediv/compiler.c

@@ -323,6 +323,7 @@ void compila()
 	#endif
 
 	if ((f=fopen(outfilename,"ab"))!=NULL) {
+		fwrite(nombre_program,strlen(nombre_program)+1,1,f);
 		p=(byte*)e_malloc((imem+iloc)*4);
 		m=(imem+iloc)*4+1024;
 		q=(byte*)e_malloc(m);

ediv/src/shared/extern.h

@@ -251,6 +251,7 @@ struct _fun_params{
 	int *num_procs ;
 	int *proc_orden ;
 	int *proceso_actual ;
+	byte* nombre_program;
 	struct _regions *regions ;
 	struct _existe existe ;
 	struct _files *files ;

ediv/src/stub/inte.c

@@ -79,6 +79,7 @@ int ini_interprete()
 	fp.num_procs = &num_proc_orden ;
 	fp.proc_orden = proc_orden ;
 	fp.proceso_actual = &proceso_actual ;
+	fp.nombre_program=nombre_program;
 	fp.existe.regions = 0 ;
 	fp.existe.dibuja = 0 ;
 	fp.Runtime_Error=error;

ediv/src/stub/main.h

@@ -33,6 +33,8 @@
 // GLOBALES DEL INTERPRETE
 //
 
+byte nombre_program[256];	// nombre del programa, titulo por defecto de la ventana
+
 int ignore_errors;		// 1 = se ignoran los errores 'evitables'
 
 #ifdef DBG

ediv/src/stub/stub.c

@@ -58,6 +58,7 @@ int main(int argc, char* argv[])
 	byte * ptr;
 	unsigned long len,len_descomp;
 	byte* vartemp;
+	byte* p;
 	//const SDL_version* sdl_version;
 #ifdef DBG
 	int start_lin;
@@ -114,6 +115,11 @@ int main(int argc, char* argv[])
 	read(f,&stub_size,4);
 	printf("STUB_SIZE: %d\n",stub_size);
 	lseek(f,stub_size,SEEK_SET);
+	p=nombre_program;
+	do {
+		read(f,p,1);
+	} while(*p++!=0);
+
 	read(f,mimem,4*10);
 	read(f,&len,4);