From d81668235dd4b524d90abf1b0e6cfdf49796c75739f2c95d78afd62a479a36da Mon Sep 17 00:00:00 2001
From: Gabriel Lorenzo <ermakina@gmail.com>
Date: Mon, 9 Sep 2002 15:45:23 +0000
Subject: [PATCH] all_drawing, all_text, Runtime_Error y Critical_Error

---
 ediv/CHANGE_LOG.txt           |   7 +++++
 ediv/src/dlls/dlls.suo        | Bin 19968 -> 20480 bytes
 ediv/src/dlls/export.h        |   6 ++++
 ediv/src/dlls/graphics/main.c |  21 +++++++++++--
 ediv/src/dlls/text/text.c     |  54 ++++++++++++++++++++++++++--------
 ediv/src/shared/extern.h      |   6 ++++
 ediv/src/stub/error.c         |  10 +++----
 ediv/src/stub/inte.c          |   2 ++
 ediv/src/stub/main.h          |   4 +--
 ediv/src/visual c/ediv_ws.suo | Bin 18944 -> 17920 bytes
 10 files changed, 89 insertions(+), 21 deletions(-)

diff --git a/ediv/CHANGE_LOG.txt b/ediv/CHANGE_LOG.txt
index 2c804e4..2349b74 100644
--- a/ediv/CHANGE_LOG.txt
+++ b/ediv/CHANGE_LOG.txt
@@ -4,6 +4,13 @@
    para cambiárselo después de haber compilado un programa con ediv. mola
    eh? :) incluyo también un icono de pacman de ejemplo ke me kedó mu majo.
    (Er_Makina)
+ * Agregados all_drawing y all_text a sus correspondientes dll's. (Er_Makina)
+ * He incluido en la estructura fp funciones para errores (Runtime_Error y
+   Critical_Error). ¡¡Empezad a usarlas YA!! Tenéis una lista completa de los
+   errores en el language.c del stub. Podéis añadir nuevos errores aprovechando
+   los huecos, pero no añadáis a menos que estéis seguros de que ese error no
+   existe ya (si la descripción no es como os gusta, pos la cambiáis un poco,
+   hala). (Er_Makina)
 
 6/9/2002
 --------
diff --git a/ediv/src/dlls/dlls.suo b/ediv/src/dlls/dlls.suo
index fdc3e77ee23fe45286a62fc38690fa0b0998cf2fa502ca27d25ed36969aae4d8..f5ef7c7e80ca675eb532c9a8c39c64d8481cc7c9a268295db07deaccb0cf66d5 100644
GIT binary patch
delta 981
zcmaKqO=uHQ5Xa|jc9S&Om!|pHL|fEozRbmh6d@E_VfA3rns^g$qV<EsT9Q>ttr+wu
z9-0yAp$DPh$%Ax{-b@dIAk9@l{5*K62syMKs`KI|ttGfH?3>^G_y6Y2zWOq&KV>f-
zODt|KN@doNCz%sl@*)2Hz%A|kD`o?LdJgC1Gn@_5TI9d!!69c7H{}9nLl)`KmK?>C
zP8sKv0tb0drNL!$Q(1D1+HFsmOZXg-fK?s{&(8BK3=6L*XIAcFci=eWAg6#Gn>;e$
zA<GbjiY@MMcuuJUq;ybpH@ABz(H%JN$*W$AcWa91|2b}X-l)MnC9^$PlsN1o%&ig)
zA&Q2th)s7!@e$m>Eni+_X!zGvm5BWxX`rMEnR_>E6ATmZ?}kROq=qce?agclmsp}V
zm*{`zVy=cF{9ZwvZyGMcb+`>RFlYtvQnYXts&Elz;Tn}LQHlPV&<ahJ&<qI#EYmN5
z8>BQy3Gh&iPPokwoTdO+5sE8>Dg*$sLQx~jD%=FELew%bs60nD0EiJeY}R8<7iZ#Z
z!^FC0L?gY9Ywq-lk&z-Fsjy9zZ}k2|@tNWa#a9Z!w-?WqS4VZS2@ugJc5KE=szg9^
z(}V5t60Rv}G$x9uD;cvr@!oc@H_uq#d72ygBfGmJ%F>k^WB8V9xSStxWXbw8ohFkQ
z#&`LY7VrQ4{z8!LY?A0NIy>oR$q@8<N%ocfz4OP!y;jn+`w6@|mB9P)D5kU#86^0H
kKMzl_1w5)n@P{UF0BiaM)SYAaA(q0FOG7W8#kB1G12G62+W-In

delta 827
zcmaKq&ubG=5Xa|j-zMAbzHOTyO*DlXXiV{Bu!vPLLiAu#O}uyz4@#{+FltGcQmTg>
zyopeEgkE|mC|<nS?tfrFgdnt6J&Gs6(;k{jb!JV{Jp>=T<;`clZ)V<?ZElI?rug_q
z69?PZ9|>2^i($;lDSNB_^K;|ICou%H&fuE7qF{`UlJ*~3IBv|~zN}!&EZ{{$;;LT3
zQnBDF>Fw(q(b=2YwlG;ct%0b&4C-*L_i1?kg<`=0EmJ&$(=Z2fI_TI^+2Lb4K!@7s
zxToT-eaYf>QBnqN_vCcMrXUr;HM?v@=xBs;`X~kK*s<GIoK9LO<@uvkO^G9fc$i)_
zbYfM0gdQXK0z0vC@FXX`YbhdJ?@*ek1=A$M(C@-j7&^(CH9=rJ1U)~wA@Y4+a{u#1
z^LA2Mb-vA(FT!1T2rIA*4xIoNc+&gOfIF}R4=A-jDS!{;HasTi5Cr()<`S3NY!%;r
zLYYO{02!9uBUC2<@QW48RH6Y-3Dr4bg+tj@`U0Gz{~_%)b1n0qF(-Ge3}GIkXUtot
zpveP@aQ)QM>)Yv_*-}@0p=OPckel?x=o7TMpbwp5Rfz=AbV%y?#qUE?eaDUubj<r*
zdKEDP5l_E@UsVb>%ahTw^o!L5U?HEuZ{-sc`N7wZR+8ed$IM{SwfPZ&aU<_41K(Yp
I#4&a2FQ7{EGynhq

diff --git a/ediv/src/dlls/export.h b/ediv/src/dlls/export.h
index b7cc7e9..334bef7 100644
--- a/ediv/src/dlls/export.h
+++ b/ediv/src/dlls/export.h
@@ -65,6 +65,10 @@ typedef int (TYPEOF_Call_Entrypoint)(int ep, ...);
 // Dibuja
 typedef int (TYPEOF_Dibuja)(SDL_Surface *, SDL_Rect, SDL_Rect, int, int);
 
+// Errores
+typedef void (TYPEOF_Runtime_Error)(int, ...);
+typedef void (TYPEOF_Critical_Error)(int, ...);
+
 // estilo BO2K, sólo para "defaultear" las funciones como NULL
 /*extern TYPEOF_EDIV_Export				*EDIV_Export;
 extern TYPEOF_EDIV_Export_Const			*EDIV_Export_Const;
@@ -227,6 +231,8 @@ struct _fun_params{
 	struct _files *files ;
 	TYPEOF_Dibuja *Dibuja ; // <- Tienes una funcion identica a esta variable (Daijo) <<- Y que? , la funcion no esta dentro de esta estructura :P (Riseven)	
 	TYPEOF_Call_Entrypoint *Call_Entrypoint ;
+	TYPEOF_Runtime_Error *Runtime_Error ;
+	TYPEOF_Critical_Error *Critical_Error ;
 } ;
 
 
diff --git a/ediv/src/dlls/graphics/main.c b/ediv/src/dlls/graphics/main.c
index 9aa9e8d..305cc39 100644
--- a/ediv/src/dlls/graphics/main.c
+++ b/ediv/src/dlls/graphics/main.c
@@ -29,6 +29,8 @@ struct {
 #define TRANS	0x04
 #define NOCOLORKEY	0x80
 
+#define MAX_DRAWS	1024
+
 //GRAPH *fondo;
 
 struct _files files[ 0xFF ] ;
@@ -78,7 +80,7 @@ struct{
 	int x , y ;
 	int t , c ; // requerido para move_draw()
 	SDL_Surface *Surface ;
-} draws[1024] ;
+} draws[MAX_DRAWS] ;
 
 int last_draw ;
 
@@ -136,6 +138,7 @@ int ExportaFuncs(EXPORTAFUNCS_PARAMS)
 	CONST("g_x_center",2);
 	CONST("g_y_center",3);
 
+	CONST("all_drawing",-1);
 	
 
 	GLOBAL_STRUCT("video_modes",31);
@@ -1041,6 +1044,18 @@ int eDIV_DELETE_DRAW(FUNCTION_PARAMS2)
 {
 	int n ;
 	n = getparm() ;
+
+	if(n==-1) {
+		for(n=0;n<MAX_DRAWS;n++) {
+			if(draws[n].existe) {
+				SDL_FreeSurface( draws[n].Surface );
+				draws[n].existe = 0;
+			}
+		}
+		last_draw=0;
+		return 1;
+	}
+
 	if ( !draws[n].existe )
 		return -1 ;
 
@@ -1344,8 +1359,10 @@ void frame(FUNCTION_PARAMS2 )
 			dstrect.y -= files[f].mapa[g].cpoint[0].y ;
 			if ( fp->mem[ id + fp->varindex[_loc_flags] ] & 4 )
 				//SDL_SetAlpha(files[f].mapa[g].Surface, SDL_SRCALPHA , fp->mem[ id + fp->varindex[_loc_transparency] ] ) ;
-				if ( fp->mem[ id + fp->varindex[_loc_flags] ] & 8 )
+				if ( fp->mem[ id + fp->varindex[_loc_flags] ] & 8 ) {
 					trans = 255 - fp->mem[ id + fp->varindex[_loc_transparency] ] ;
+					if(trans<0) trans=0; else if(trans>255) trans=255;
+				}
 				else
 					trans = 128 ;
             else
diff --git a/ediv/src/dlls/text/text.c b/ediv/src/dlls/text/text.c
index edd9499..a30160a 100644
--- a/ediv/src/dlls/text/text.c
+++ b/ediv/src/dlls/text/text.c
@@ -7,8 +7,11 @@
 #include "text.h"
 
 
-struct _fuente_control_s fuente_control_s[0xFF];
-int existe[0xFF] ;
+#define MAX_FONTS	0xFF
+#define MAX_WRITES	0xFFF
+
+struct _fuente_control_s fuente_control_s[MAX_FONTS];
+int existe[MAX_FONTS] ;
 
 struct
 {
@@ -20,11 +23,12 @@ struct
 	int x , y ;
 	int cx , cy ;
 	SDL_Surface *imagen ;
-}textos[0xFFF] ;
+}textos[MAX_WRITES] ;
 
 
 int ExportaFuncs(EXPORTAFUNCS_PARAMS)
 {
+	CONST("all_text",0);
 
 	FUNCTION("load_fnt",1,eDiv_LoadFnt) ;
 	FUNCTION("write",5,eDiv_Write) ;
@@ -47,13 +51,15 @@ int eDiv_LoadFnt(FUNCTION_PARAMS)
 	fpos_t pos ;
 	const char *filename=getstrparm();    // Fichero a cargar
 
-	for ( i = 1 ; i < 256 ; i++ )
+	for ( i = 1 ; i <= MAX_FONTS ; i++ )
 	{
 		if ( existe[i] == 0 )
 			break ;
 	}
-	if ( i == 256 )
+	if ( i == MAX_FONTS ) {
+		fp->Runtime_Error(113);	// demasiadas fuentes
 		return -1 ;
+	}
 
 	fichero = fopen("text.txt" , "w+" ) ;
 	fuente = fopen(filename, "rb" ) ;
@@ -88,13 +94,20 @@ int eDiv_Write(FUNCTION_PARAMS)
 	x = getparm() ;
 	fuente = getparm() ;
 
-	for ( i = 1 ; i < 0xFFF ; i++ )
+	if(fuente<0 || fuente>MAX_FONTS || !existe[fuente]) {
+		fp->Runtime_Error(116);	// id de fuente no válido
+		return -1;
+	}
+
+	for ( i = 1 ; i < MAX_WRITES ; i++ )
 	{
 		if ( textos[i].existe == 0 )
 			break ;
 	}
-	if ( i == 0xFFF )
+	if ( i == MAX_WRITES ) {
+		fp->Runtime_Error(118);	// demasiados textos
 		return -1 ;
+	}
 
 
 	textos[i].x = x ;
@@ -163,14 +176,20 @@ int eDiv_WriteInt(FUNCTION_PARAMS)
 	x = getparm() ;
 	fuente = getparm() ;
 
-	for ( i = 1 ; i < 0xFFF ; i++ )
+	if(fuente<0 || fuente>MAX_FONTS || !existe[fuente]) {
+		fp->Runtime_Error(116);	// id de fuente no válido
+		return -1;
+	}
+
+	for ( i = 1 ; i < MAX_WRITES ; i++ )
 	{
 		if ( textos[i].existe == 0 )
 			break ;
 	}
-	if ( i == 1024 )
+	if ( i == MAX_WRITES ) {
+		fp->Runtime_Error(118);	// demasiados textos
 		return -1 ;
-
+	}
 
 	textos[i].x = x ;
 	textos[i].y = y ;
@@ -256,11 +275,22 @@ int eDiv_DeleteText(FUNCTION_PARAMS)
 	int i ;
 	i = getparm() ;
 
-	if ( !textos[i].existe ) 
+
+	if ( i<0 || i>MAX_WRITES || !textos[i].existe ) {
+		fp->Runtime_Error(119);	// id de texto no válido
 		return -1 ;
+	}
+
+	if(i==0) {
+		for(i=1;i<MAX_WRITES;i++) {
+			textos[i].existe=0;
+			//SDL_FreeSurface(textos[i].imagen) ;   // <--- por ke esta comentado??
+		}
+		return 1;
+	}
 
 	textos[i].existe = 0 ;
-	//SDL_FreeSurface(textos[i].imagen) ;
+	//SDL_FreeSurface(textos[i].imagen) ;   // <--- por ke esta comentado??
 
 	return 1 ;
 }
diff --git a/ediv/src/shared/extern.h b/ediv/src/shared/extern.h
index e1d4820..09e4d6b 100644
--- a/ediv/src/shared/extern.h
+++ b/ediv/src/shared/extern.h
@@ -80,6 +80,10 @@ typedef int (TYPEOF_Call_Entrypoint)(int ep, ...);
 // Dibuja
 typedef int (TYPEOF_Dibuja)(SDL_Surface *, SDL_Rect , SDL_Rect , int , int ) ;
 
+// Errores
+typedef void (TYPEOF_Runtime_Error)(int, ...);
+typedef void (TYPEOF_Critical_Error)(int, ...);
+
 /////////////
 // ENTRY-POINTS
 ///////////
@@ -247,6 +251,8 @@ struct _fun_params{
 	struct _files *files ;
 	TYPEOF_Dibuja *Dibuja ; // <- Tienes una funcion identica a esta variable (Daijo) <<- Y que? , la funcion no esta dentro de esta estructura :P (Riseven)
 	TYPEOF_Call_Entrypoint *Call_Entrypoint ;
+	TYPEOF_Runtime_Error *Runtime_Error ;
+	TYPEOF_Critical_Error *Critical_Error ;
 } fp ;
 
 		
diff --git a/ediv/src/stub/error.c b/ediv/src/stub/error.c
index c59a94f..8a6800f 100644
--- a/ediv/src/stub/error.c
+++ b/ediv/src/stub/error.c
@@ -42,14 +42,14 @@
  *
  * Genera un error en tiempo de ejecución, no crítico (en debug se llama al trazador)
  * ATENCIÓN: Ahora mismo está en forma de RELEASE, para la versión DEBUG del stub se deberá
- * invocar al trazador (aún hay que decidir si el trazador estará metido en el propio stub o
- * si estará integrado en el entorno Delphi. En este último caso será necesaria una DLL
- * especial para poder enlazar los datos de un programa y otro).
+ * invocar al trazador (llamando a la función adecuada, que aún no está hecha, en debug.dll)
  * Otra nota: he puesto exactamente los mismos errores de DIV2, ya que tenemos que mantener
  * la compatibilidad con el ignore_error... 100% compatible, recordad.. :P
  */
 
-void error(word num, ...)
+// POR HACER: ignore_errors, ignore_error()
+
+void error(int num, ...)
 {
 	va_list opparam;
 	char mensaje[256];
@@ -75,7 +75,7 @@ void error(word num, ...)
  * en que se produce un error de este tipo.
  */
 
-void critical_error(word num, ...)
+void critical_error(int num, ...)
 {
 	va_list opparam;
 	char mensaje[256];
diff --git a/ediv/src/stub/inte.c b/ediv/src/stub/inte.c
index c9e9b1c..3bbcae9 100644
--- a/ediv/src/stub/inte.c
+++ b/ediv/src/stub/inte.c
@@ -81,6 +81,8 @@ int ini_interprete()
 	fp.proceso_actual = &proceso_actual ;
 	fp.existe.regions = 0 ;
 	fp.existe.dibuja = 0 ;
+	fp.Runtime_Error=error;
+	fp.Critical_Error=critical_error;
 
 
 	return 1 ;
diff --git a/ediv/src/stub/main.h b/ediv/src/stub/main.h
index 3426817..fab6d6e 100644
--- a/ediv/src/stub/main.h
+++ b/ediv/src/stub/main.h
@@ -83,8 +83,8 @@ int* lin;
 // PROTOTIPOS
 ///
 
-void error(word num, ...);		// Mensaje de error no crítico (trazable)
-void critical_error(word num, ...);		// Mensaje de error crítico
+void error(int num, ...);		// Mensaje de error no crítico (trazable)
+void critical_error(int num, ...);		// Mensaje de error crítico
 void stub_quit();				// Salir del stub
 void* e_malloc(size_t size);	// identico a malloc pero con errormsg utomático
 
diff --git a/ediv/src/visual c/ediv_ws.suo b/ediv/src/visual c/ediv_ws.suo
index 439f04e76f68c6c0a616dd012f714f680cd7fdeb261b75bde1e6c2497661cce5..c694849fa17a3c176d056d229c4ecfb106695a10b9658441b4c1c145f0cbf35f 100644
GIT binary patch
delta 820
zcmaKqOHY$Q6o$`y{V257eqgn&K}|)(8Y1+@MWEP9OYlO1k(eeLBPbU`0})X{B$VLF
zuuzZgBpPE-SJIAm5fkIW#2C}Rpg+K9y3h^yPLt|}IFo1QocGN2%%pCK)SOtns)?2K
zkx6k=Pue}7Dla(`?}dqoQnm83eo)v}QOe+}p0j!-=Zd=Z6*%&+d0e+`Mo0}Wgk{b;
zXHo)N_cuFQs0dXEqTP`EpqjIGhou8nH>g!!#u(Rx&J$(R#b1gbVs1LNS2k{l=;At0
zIHyH|e>)FxtklP2t}dGzqqb8;ok-?f-%Ji^g?xraXoxPrI_kzUsWw*)wp5Wm#Lm)1
zSUXD4^iqKO(Vtea^E8Gzy|89w?Uvhy&45`7{_RlRXcmuoPvH2bN6;Stm4XHI55W_j
z50r<MvIs8?GC%^QJwyK-yZ|r3EASe;0ZZU5z!R(!nNUJ_w`(Mlvnqr6vf!pGAK@c~
z`SOz{$wxu*%T!&5D6vB<oRV|(Df3eZNsVV3+SsQT%MT4xg0takmOdIq9idT<ga<tp
z|Jy{PUwp&e$)B5B%Ll0k(^T?KpdCk|)I!5lLxa4nrQcb#=0b8gtO@ot*_^x9jPr7M
zp1(Jp^LW<`|GjMC9PR6qIL9yz;F)@8fKRn{S>m{;`a%`?57h?i7;xo11L?EC(^%|V
zH7JJ1o`UNS1VeT8Y()Hgf1{gy4zoNNvkU$j5Axk;1xMT8@tv(zyl}wFKVku)$(fx)
Pnkj^zbT8V;OYztr_?X;D

delta 1223
zcmaizTS(JU9LIm>zqvV?o0`t0&9n;`Y1x|T)VYf#VH(ke0u3t5ibhGZ)LOccL>C{b
zUqKLpP*~B;{CBsk%<gGKZ$0!<Z#@*@OAoca|IJy#qywM-`Tc+AcYf#mE+^0_0;fc8
zhZHx1h-S(`sac#<dkwv3KW@;j8x$&N$tLepR|&lVq7j5J_`P}-kH)Q5UxY%g*0iX3
z$W$PYCUmM)i>ZVU8l1*>5`t*`7=qs$rs(Fv+yO}W>oc}UVkNgGw`+YmMM-?aWtWRn
zTx#)!TTSg^gnycr>8D~P4vZh%l)gfrJf?^$<<a!ds^qT;P;aJPw1f6QI%eiyi!$?6
zigpY1+i5SP5ApbHA}cjuu2<H4)CBuYkXFg_r=2$HmAI3@U+;5^HR2xUTWixUL4O|H
z1wG&bc*0%Q%=YV$dch6Q2V`&)+yb}39q=1274Ads2M@qQFaREb$3R&h#QYSDfM?)2
zcmZC5SKu{x1KxsRfIU*^9S5ZseYSNX*CLV1+Yv4w7OBTf{+IYiF~Z|J?I#;8B##^@
zTq@#~FqIK0>!N^W2v%N+gGCiwpw`MmMF#|5$yhA>Tx-c;XL&|iG@W(hiJeFFT;*uU
z&ic>Me4?=CuOsc4BQA3^nWo3w%59}xT;)j+5&zjSjmAU!!6(c$Y$>lyY@m&(>qhcY
z<Z5eqeo3M!C+2p!tyB`aYJ{y2Zcp772+bff+`6@pwgD{*XUMpV8WH$TDyKw32eHw$
zAfM7nqdFt-8w$;cdCK@D)p!n$!`!V)VV5UWwL6@;HM8ko7c(bu!Drla`1q1Mi=WD<
z20iVgdaA_i#f^Npk)I+@u#}fMR?eH?bJiq25f_m}xq|Cl)hLe9zJRYe^-85V$zBl2
zeA@73TgtbAtDls2ZN&yV$W@YK?w5!LL3BhdWtS^YaCe4=&$+X3=|(>4PU9m*`JC!m
z&Pkp|A<4nnJ0#AtrJ~a`e8{uZx`(zRnw^LRbwi#T5$D8wS5OJnk(-b=)MPvT0kKpv
A%>V!Z