From a47dc64718336f6160f7aad645b57e29df05deca19a712b467291a3d4ca155bb Mon Sep 17 00:00:00 2001
From: Victor Roman Archidona <vroman@loadfront.com>
Date: Mon, 7 Oct 2002 14:51:57 +0000
Subject: [PATCH] Mas limpieza de codigo y comentarizacion :)

---
 ediv/src/ediv/config.c      |  34 ++++++------
 ediv/src/ediv/dll_load.c    |  32 +++++------
 ediv/src/ediv/ediv.c        | 106 ++++++++++++++++--------------------
 ediv/src/ediv/ediv_export.c |  48 +++++-----------
 4 files changed, 96 insertions(+), 124 deletions(-)

diff --git a/ediv/src/ediv/config.c b/ediv/src/ediv/config.c
index 4bae404..a793e31 100644
--- a/ediv/src/ediv/config.c
+++ b/ediv/src/ediv/config.c
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion Entertainment
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -23,7 +23,6 @@
 #include <stdlib.h>
 
 #include "main.h"
-//#include "config.h"
 #include "compiler.h"
 #include "lower.h"
 #include "language.h"
@@ -59,7 +58,8 @@ void lee_ediv_cfg(char* ediv_cfg)
 
 	strcpy(cfg,ediv_cfg);
 
-	max_process=0; // Valores de las opciones por defecto
+	/* Valores de las opciones por defecto */
+	max_process=0; 
 	ignore_errors=0;
 	free_sintax=0;
 	extended_conditions=0;
@@ -91,9 +91,9 @@ void lee_ediv_cfg(char* ediv_cfg)
 
 		if(!strcmp(tag,"max_process")) {
 			salta_spc();
-			if(buffer[i]!='=') cfg_error(1); // se esperaba '='
+			if(buffer[i]!='=') cfg_error(1); /* se esperaba '=' */
 			salta_spc();
-			if(buffer[i]<'0' || buffer[i]>'9') cfg_error(2); // se esperaba un dato numerico
+			if(buffer[i]<'0' || buffer[i]>'9') cfg_error(2); /* se esperaba un dato numerico */
 			c=0;
 			while(buffer[i]>='0' && buffer[i]<='9' && i<tamano)
 				tag[c++]=buffer[i++];
@@ -106,51 +106,51 @@ void lee_ediv_cfg(char* ediv_cfg)
 							printf("dbg: max_process=%d\n",max_process);
 						#endif
 						break;
-					case 1: // _extended_conditions
+					case 1: /* _extended_conditions */
 						lexico();
 						extended_conditions=1;
 						break;
-					case 2: // _simple_conditions
+					case 2: /* _simple_conditions */
 						lexico();
 						simple_conditions=1;
 						break;
-					case 3: // _case_sensitive
+					case 3: /* _case_sensitive */
 						lexico();
 						memcpy(lower+129,"üéâäàåçêëèïîìäåéææôöòûùÿöü¢£¥áíóú",35);
 						memcpy(lower+'A',"ABCDEFGHIJKLMNOPQRSTUVWXYZ",26);
 						lower['Ñ']='Ñ';
 						break;
-					case 4: // _ignore_errors
+					case 4: /* _ignore_errors */
 						lexico();
 						ignore_errors=1;
 						break;
-					case 5: // _free_sintax
+					case 5: /* _free_sintax */
 						lexico();
 						free_sintax=1;
 						break;
-					case 6: // _no_check
+					case 6: /* _no_check */
 						lexico();
 						comprueba_rango=0;
 						comprueba_id=0;
 						comprueba_null=0;
 						break;
-					case 7: // _no_strfix
+					case 7: /* _no_strfix */
 						lexico();
 						hacer_strfix=0;
 						break;
-					case 8: // _no_optimization
+					case 8: /* _no_optimization */
                         lexico();
                         optimizar=0;
                         break;
-                    case 9: // _no_range_check
+                    case 9: /* _no_range_check */
                         lexico();
                         comprueba_rango=0;
                         break;
-                    case 10: // _no_id_check
+                    case 10: /* _no_id_check */
                         lexico();
                         comprueba_id=0;
                         break;
-                    case 11: // _no_null_check
+                    case 11: /* _no_null_check */
                         lexico();
                         comprueba_null=0;
                         break;
diff --git a/ediv/src/ediv/dll_load.c b/ediv/src/ediv/dll_load.c
index 7f1aa3e..ada3e5b 100644
--- a/ediv/src/ediv/dll_load.c
+++ b/ediv/src/ediv/dll_load.c
@@ -49,19 +49,21 @@ typedef BOOL (WINAPI *DLLMAIN_T)(HMODULE hinstDLL, DWORD fdwReason, LPVOID lpvRe
 #pragma pack(pop)
 
 
-// Process-global variables
+/* Process-global variables */
 
 IMAGE_PARAMETERS *g_pImageParamHead;
 CRITICAL_SECTION g_DLLCrit;
 
-// Function implementations
+/* Function implementations */
 
-/////////////////////////////////////////////////////////////////////////////////////////////////////////////
-// Detecta la version de windows                                                                           //
-/////////////////////////////////////////////////////////////////////////////////////////////////////////////
-
-// Si es WinNT devuelve g_bIsWinNT=1
-// Si es Win'9x/Me devuelve g_bIsWinNT=0;
+/*
+ * void CheckWindowsVersion(void);
+ * Detecta la version de windows
+ *
+ * Ajusta
+ *	g_bIsWinNT a 1 si estamos en un NT
+ *  g_bIsWinNT a 0 si NO estamos en un NT
+ */
 void CheckWindowsVersion(void)
 {
 	OSVERSIONINFO osvi;
@@ -76,10 +78,9 @@ void CheckWindowsVersion(void)
 
 }
 
-/////////////////////////////////////////////////////////////////////////////////////////////////////////////
-// Initialization Routines                                                                                 //
-/////////////////////////////////////////////////////////////////////////////////////////////////////////////
-
+/*
+ * Initialization Routines                                                                                 
+ */
 void InitializeDLLLoad(void)
 {
 	InitializeCriticalSection(&g_DLLCrit);
@@ -100,10 +101,9 @@ void KillDLLLoad(void)
 }
 
 
-/////////////////////////////////////////////////////////////////////////////////////////////////////////////
-// Internal DLL list management                                                                            //
-/////////////////////////////////////////////////////////////////////////////////////////////////////////////
-
+/*
+ * Internal DLL list management                                                                            
+ */
 // returns 0 if just ref count increment, 1 if this is a new addition, -1 on error
 static int AddDLLReference(void *pImageBase, char *svName, DWORD dwFlags)
 {
diff --git a/ediv/src/ediv/ediv.c b/ediv/src/ediv/ediv.c
index d35dea8..6f9e2de 100644
--- a/ediv/src/ediv/ediv.c
+++ b/ediv/src/ediv/ediv.c
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion Entertainment
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -21,9 +21,7 @@
 #ifdef _WIN32
 #	include <winsock2.h>
 #	include "dll_load.h"
-
 struct in_addr iahost;
-//struct sockaddr_in sin;
 struct hostent *htent;
 struct servent *svent;
 int status;
@@ -36,9 +34,8 @@ void muestra_motd();
 void conecta(char *servidor, char *archivo);
 
 #else
-#	include <dlfcn.h>		// ¿será igual en BeOS?
+#	include <dlfcn.h>		/* ¿será igual en BeOS? */
 #	include <dirent.h>
-//#	include <sys/stat.h>
 #endif
 
 #include <stdio.h>
@@ -58,9 +55,9 @@ void conecta(char *servidor, char *archivo);
 
 int main(int argc, char *argv[])
 {
-	FILE *fp;			// stream del PRG
+	FILE *fp;			/* stream del PRG /*
 	char *p;
-	char libmagic[14];	// cabecera "magic" de EDIVRUN.LIB
+	char libmagic[14];	/* cabecera "magic" de EDIVRUN.LIB */
 	
 	int i,j;
 	byte hayprog=0;
@@ -73,8 +70,7 @@ int main(int argc, char *argv[])
 	listados=0;
 	noexe=0;
 
-	// Sistemas
-
+	/* Sistemas */
 	#ifdef _WIN32
 		strcpy(sistema,"win32");
 	#endif
@@ -87,7 +83,7 @@ int main(int argc, char *argv[])
 
 	idioma=detecta_idioma();
 
-	// mensaje de cabecera
+	/* mensaje de cabecera */
 	printf(translate(0));
 	printf(translate(1));
 	printf("\n");
@@ -99,7 +95,7 @@ int main(int argc, char *argv[])
 
     if(strcmp(argv[1],"--help")==0 || strcmp(argv[1],"-h")==0) {
         ayuda:
-		// pantalla de ayuda
+		/* pantalla de ayuda */
         printf(translate(2));
         printf(translate(3),argv[0]);
 		printf(translate(4));
@@ -129,7 +125,7 @@ int main(int argc, char *argv[])
 					if(++i<argc) {
 						strcpy(sistema,argv[i]);
 					} else {
-						printf(translate(12)); // se debe indicar un sistema para --system
+						printf(translate(12)); /* se debe indicar un sistema para --system */
 						exit(1);
 					}
 #ifdef _WIN32
@@ -138,7 +134,7 @@ int main(int argc, char *argv[])
 				}
 #endif
                 else {
-                    printf(translate(13),argv[i]); // parámetro erróneo
+                    printf(translate(13),argv[i]); /* parámetro erróneo */
                     exit(1);
                 }
             }
@@ -169,7 +165,7 @@ int main(int argc, char *argv[])
 									j=strlen(argv[i])-1;
 								}
 								else {
-									printf(translate(14)); // se debe indicar un sistema para -s
+									printf(translate(14)); /* se debe indicar un sistema para -s */
 									exit(1);
 								}
 							}
@@ -180,7 +176,7 @@ int main(int argc, char *argv[])
 							exit(0);
 #endif
                         default:
-                            printf(translate(15),argv[i][j]); // parámetro erróneo
+                            printf(translate(15),argv[i][j]); /* parámetro erróneo */
                             exit(1);
                     }
                     j++;
@@ -197,13 +193,13 @@ int main(int argc, char *argv[])
 				hayprog=2;
 				break;
 			default:        	
-                printf(translate(13),argv[i]); // parámetro erróneo
+                printf(translate(13),argv[i]); /* parámetro erróneo */
                 exit(1);
 		}
     }
 
     if(hayprog==0) {
-        printf(translate(16)); // no se ha especificado un archivo
+        printf(translate(16)); /* no se ha especificado un archivo */
         exit(1);
     }
 	
@@ -222,30 +218,28 @@ int main(int argc, char *argv[])
 				strcpy(fichero_prg,nombreprog);
 				strcat(fichero_prg,".PRG");
 				if(!(fp = fopen(fichero_prg, "rb"))) {
-					printf(translate(17),nombreprog); // error al abrir archivo
+					printf(translate(17),nombreprog); /* error al abrir archivo */
 					exit(1);
 				}
 			}
 		}
 		else {
-			printf(translate(17),argv[1]); // error al abrir archivo
+			printf(translate(17),argv[1]); /* error al abrir archivo */
 			exit(1);
 		}
 	}
 	
-	// Componemos el nombre del ejecutable
+	/* Componemos el nombre del ejecutable */
 	if(hayprog<2) {
 		strcpy(outfilename,nombreprog);
 		if(!strcmp(sistema,"win32"))
 			strcat(outfilename,".exe");
 	}
 	
-	printf(translate(18),fichero_prg); // compilando...
+	printf(translate(18),fichero_prg); /* compilando... */
 
-	/*fichero_prg=(char*)e_malloc(strlen(argv[1])+1);
-	strcpy(fichero_prg,argv[1]);		// fichero_prg="xxxxx.prg"*/
-
-	// mete el PRG en el buffer prog
+	
+	/* mete el PRG en el buffer prog */
 	fseek(fp,0,SEEK_END);
 	progsize=ftell(fp);
 	prog = (char *)e_malloc(progsize+1);
@@ -257,7 +251,7 @@ int main(int argc, char *argv[])
 	} while(!feof(fp));
 	fclose(fp);
 
-	// Comprueba si existe la edivrun.lib
+	/* Comprueba si existe la edivrun.lib */
 	if(!noexe) {
 		strcpy(edivrun_lib,sistema);
 		if(debug)
@@ -266,13 +260,13 @@ int main(int argc, char *argv[])
 			strcat(edivrun_lib,".rel");
 
 		if((fp = fopen(edivrun_lib, "rb"))==NULL) {
-			printf(translate(19),edivrun_lib); // no se encuentra el fichero
+			printf(translate(19),edivrun_lib); /* no se encuentra el fichero */
 			exit(1);
 		}
 		else {
 			fread(libmagic,1,14,fp);
 			if(strcmp(libmagic,magic)) {
-				printf(translate(20),edivrun_lib); // formato incorrecto de edivrun.lib
+				printf(translate(20),edivrun_lib); /* formato incorrecto de edivrun.lib */
 				fclose(fp);
 				exit(1);
 			}
@@ -286,11 +280,9 @@ int main(int argc, char *argv[])
 		}
 	}
 
-	// El stream de salida para el seudocódigo
-//	fout=tmpfile();
-
 	if(!ini) {
-		max_process=0; // Valores de las opciones por defecto
+		/* Valores de las opciones por defecto */
+		max_process=0; 
 		ignore_errors=0;
 		free_sintax=0;
 		extended_conditions=0;
@@ -322,13 +314,6 @@ int main(int argc, char *argv[])
 	prepara_compilacion();
 	dll_func();
 
-	//**************************
-
-	//###############//
-	// NO PONER NADA //
-	//loggea("prg: %s",argv[1]);
-	//@@@@@@@@@@@@@@@//
-
 	compila();
 	
 #ifdef MULTI_ERROR	
@@ -350,7 +335,13 @@ int main(int argc, char *argv[])
 }
 
 
-// idéntico a malloc, pero con errormsg utomático
+/*
+ * void *e_malloc(size_t size)
+ * Idéntico a malloc, pero con errormsg automático
+ *
+ * Retorna:
+ *	El numero de bytes de memoria alojados o sale si no se puede reservar la memoria.
+ */
 void* e_malloc(size_t size)
 {
 	void* ret;
@@ -370,14 +361,13 @@ void errormem()
 }
 
 
-//-----------------------------------------------------------------------------
-//      Gestión de errores
-//-----------------------------------------------------------------------------
-
+/*
+ *      Gestión de errores
+ */
 int _le,_t;
 byte *_ie;
 
-void save_error(word tipo) { // Guarda una posicion de error (de 0 .. 3)
+void save_error(word tipo) { /* Guarda una posicion de error (de 0 .. 3) */
   switch(tipo) {
     case 0: _le=linea; _ie=ierror; break;
     case 1: _le=old_linea; _ie=old_ierror_end; break;
@@ -386,12 +376,13 @@ void save_error(word tipo) { // Guarda una posicion de error (de 0 .. 3)
   } _t=tipo;
 }
 
-// 0 - Inicio de la pieza actual
-// 1 - Final de la pieza anterior mas un espacio (si se puede)
-// 2 - Inicio de la pieza anterior
-// 3 - Final de la pieza anterior
-// 4 - Error guardado con save_error(0..3)
-
+/*
+ * 0 - Inicio de la pieza actual
+ * 1 - Final de la pieza anterior mas un espacio (si se puede)
+ * 2 - Inicio de la pieza anterior
+ * 3 - Final de la pieza anterior
+ * 4 - Error guardado con save_error(0..3)
+ */
 void error(word tipo, word num, ...)
 {
 	int columna=0;
@@ -440,8 +431,6 @@ void error(word tipo, word num, ...)
 #ifdef MULTI_ERROR
 	}
 #endif
-	
-	//lexico();
 }
 
 void warning(int num, ...)
@@ -455,7 +444,9 @@ void warning(int num, ...)
 	n_warnings++;
 }
 
-//#define DEBUG_HTTP
+/* Descomentar la siguiente linea para activar el debug de las noticias: */
+/* #define DEBUG_HTTP */
+
 #ifdef _WIN32
 void muestra_motd()
 {
@@ -466,14 +457,14 @@ void muestra_motd()
 		motdserver=iniparser_getstr(ini,"general:motd_host");
 		motdpath=iniparser_getstr(ini,"general:motd_path");
 		if(!motdserver) {
-			printf(translate(49)); // el servidor de motd debe estar en ediv.cfg
+			printf(translate(49)); /* el servidor de motd debe estar en ediv.cfg */
 			exit(1);
 		}
 		if(!motdpath) motdpath="/ediv/actual/motd.txt";
 		conecta(motdserver,motdpath);
 		exit(0);
 	} else {
-		printf(translate(49)); // el servidor de motd debe estar en ediv.cfg
+		printf(translate(49)); /* el servidor de motd debe estar en ediv.cfg */
 		exit(1);
 	}
 }
@@ -522,7 +513,6 @@ void conecta(char *servidor, char *archivo)
 		return;
 	}
 
-	//sprintf(buffer,"GET /%s\n",archivo);
 	sprintf(buffer,"GET %s HTTP/1.1\n"
 		"User-Agent: Mozilla/4.76 (Windows 2000; U) Opera 5.12  [es]\n"
 		"Host: %s\n"
diff --git a/ediv/src/ediv/ediv_export.c b/ediv/src/ediv/ediv_export.c
index 411f7ea..b6ab864 100644
--- a/ediv/src/ediv/ediv_export.c
+++ b/ediv/src/ediv/ediv_export.c
@@ -1,7 +1,7 @@
 /*
  * eDiv Compiler
- * Copyleft (C) 2000-2002 Sion Entertainment
- * http://www.sion-e.com
+ * Copyright (C) 2000-2002 Sion Entertainment
+ * http://www.sionhq.com
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -31,7 +31,6 @@
 
 #include "language.h"
 
-//int len,ret,cod;
 int len;
 struct objeto * ob;
 struct objeto * ob2;
@@ -39,12 +38,11 @@ struct objeto * ob2;
 int creaobj;
 int numparams;
 
-byte decl_struct=0;		// 1 si se está declarando un struct
-byte struct_reserved=0;	// 1 si se está declarando la estructura reserved
+byte decl_struct=0;		/* 1 si se está declarando un struct */
+byte struct_reserved=0;	/* 1 si se está declarando la estructura reserved */
 
 
-// Errores específicos en la ejecución de una DLL
-
+/* Errores específicos en la ejecución de una DLL */
 void dll_error(int error, ...)
 {
 	va_list opparam;
@@ -95,21 +93,6 @@ int EDIV_Export(char* cadena, int nparam, void* hfuncion)
     (*ob).fext.codigo=n_externs;
     (*ob).fext.num_par=nparam;
 
-/*    for(i=0;i<numdlls;i++)
-    	for(j=0;j<dlls[i].nfuncs;j++)
-			if(strcmp(cadena,dlls[i].ext_funcs[j].cadena)==0) {
-				dll_error(4,cadena);
-				return 0;
-			}*/
-
-/*#define actfunc dlls[numdlls-1].ext_funcs[dlls[numdlls-1].nfuncs]
-
-	actfunc.cadena=(char*)e_malloc(strlen(cadena)+1);
-	strcpy(actfunc.cadena,cadena);
-	actfunc.nparam = nparam;
-	actfunc.hfuncion = hfuncion;*/
-
-//	dlls[numdlls-1].nfuncs++;
 	n_externs++;
 
 	return 1;
@@ -243,7 +226,7 @@ int EDIV_Export_Global_Tab(char* cadena, int numregs)
 	(*ob).tglo.len3=-1;
 	(*ob).tglo.totalen=len+1;
 
-	// Inicializamos la tabla a 0
+	/* Inicializamos la tabla a 0 */
 	do {
 		mem[imem++]=0;
 	} while (len--);
@@ -325,14 +308,14 @@ int EDIV_Export_Member_Int(char* cadena, int valor)
 		return 0;
 	}
 
-	if((*ob).tipo==tsglo) {			// int miembro de struct global
+	if((*ob).tipo==tsglo) {			/* int miembro de struct global */
 		(*ob2).tipo=tvglo;
 		(*ob2).vglo.offset=len++;
 		mem[imem]=valor;
 		(*ob).sglo.len_item++;
 		return imem++;
 	}
-	else {							// int miembro de struct local
+	else {							/* int miembro de struct local */
 		if(struct_reserved)
 			indexa_variable(v_reserved,cadena,iloc);
         (*ob2).tipo=tvloc;
@@ -372,7 +355,7 @@ int EDIV_Export_Member_Str(char* cadena, int tamano)
 		return 0;
 	}
 
-	if((*ob).tipo==tsglo) {			// string miembro de struct global
+	if((*ob).tipo==tsglo) {			/* string miembro de struct global */
 
 		(*ob2).tipo=tcglo;
 		(*ob2).cglo.offset=len+1;
@@ -394,7 +377,7 @@ int EDIV_Export_Member_Str(char* cadena, int tamano)
 		
 		return (*ob2).cglo.offset;
 	}
-	else {							// string miembro de struct local
+	else {							/* string miembro de struct local */
 
         (*ob2).tipo=tcloc;
         (*ob2).cloc.offset=len+1;
@@ -447,7 +430,7 @@ int EDIV_Export_Member_Tab(char* cadena, int numregs)
 		return 0;
 	}
 
-	if((*ob).tipo==tsglo) {			// array miembro de struct global
+	if((*ob).tipo==tsglo) {			/* array miembro de struct global */
 		(*ob2).tipo=ttglo;
 		(*ob2).tglo.offset=len;
 		(*ob2).tglo.len1=numregs;
@@ -461,7 +444,7 @@ int EDIV_Export_Member_Tab(char* cadena, int numregs)
 		
 		return (*ob2).tglo.offset;
 	}
-	else {							// array miembro de struct local
+	else {							/* array miembro de struct local */
 		if(struct_reserved)
 			indexa_variable(v_reserved,cadena,iloc);
 		(*ob2).tipo=ttloc;
@@ -493,7 +476,7 @@ int EDIV_Export_EndStruct()
 
 	member=NULL;
 
-	if((*ob).tipo==tsglo) {			// cierra estructura global
+	if((*ob).tipo==tsglo) {			/* cierra estructura global */
 		if ((*ob).sglo.len_item==0) {
 			dll_error(10);
 			return 0;
@@ -506,7 +489,7 @@ int EDIV_Export_EndStruct()
 			} while (len--);
 		}
 	}
-	else {							// cierra estructura local
+	else {							/* cierra estructura local */
 		if ((*ob).sloc.len_item==0) {
 			dll_error(10);
 			return 0;
@@ -518,7 +501,6 @@ int EDIV_Export_EndStruct()
 				iloc++;
 			} while (len--);
 		}
-//        iloc+=(*ob).sloc.totalitems*(*ob).sloc.len_item;
 	}
 
 	decl_struct=0;
@@ -603,7 +585,7 @@ int EDIV_Export_Local_Tab(char* cadena, int numregs)
 	(*ob).tloc.len3=-1;
 	(*ob).tloc.totalen=len+1;
 
-	// Inicializamos la tabla a 0
+	/* Inicializamos la tabla a 0 */
 	do {
 		loc[iloc++]=0;
 	} while (len--);