vroman/edivc
SHA256
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Cambios de free/malloc por e_free/e_malloc, comentarizacion, sigue la compilacion aunque no haya librerias.

Browse source
This commit is contained in:
Víctor Román Archidona 2002-10-20 15:39:58 +00:00
parent 21f8a2c6d8
commit ed64cc6c89
26 changed files with 290 additions and 458 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ediv/CHANGE_LOG.txt
View file

@ -1,3 +1,12 @@
20/10/2002
----------
* Ahora si no hay archivos .dll o .so solo muestra el mensaje de error, pero NO
sale de la compilacion (Daijo)
* Cambio todos los free/malloc de dll_load.c por e_free y e_malloc (Daijo)
* Cambio todos los free de los archivos que quedaban por e_free (Daijo)
* Mas comentarizacion (Daijo)
19/10/2002
----------
* Añado la rutina e_free() en ediv.c. Se encarga de comprobar si hay un puntero

2
ediv/src/ediv/compiler.c
View file

@ -1,6 +1,6 @@
/*
* eDiv Compiler
* Copyright (C) 2000-2002 Sion Entertainment
* Copyright (C) 2000-2002 Sion, Ltd.
* http://www.sionhq.com
*
* This program is free software; you can redistribute it and/or modify

8
ediv/src/ediv/compiler.h
View file

@ -1,18 +1,18 @@
/*
/*
* eDiv Compiler
* Copyright (C) 2000-2002 Sion Entertainment
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

8
ediv/src/ediv/dll_load.c
View file

@ -93,7 +93,7 @@ void KillDLLLoad(void)
cur=g_pImageParamHead;
while(cur!=NULL) {
next=cur->next;
free(cur);
e_free(cur);
cur=next;
}
@ -124,7 +124,7 @@ static int AddDLLReference(void *pImageBase, char *svName, DWORD dwFlags)
}
// Add new dll to list
cur=(IMAGE_PARAMETERS *)malloc(sizeof(IMAGE_PARAMETERS));
cur=(IMAGE_PARAMETERS *)e_malloc(sizeof(IMAGE_PARAMETERS));
if(cur==NULL) {
LeaveCriticalSection(&g_DLLCrit);
return -1;
@ -171,10 +171,10 @@ static int RemoveDLLReference(void *pImageBase, char *svName, DWORD *pdwFlags)
if(cur->nLockCount==0) {
if(prev==NULL) {
g_pImageParamHead=g_pImageParamHead->next;
free(cur);
e_free(cur);
} else {
prev->next=cur->next;
free(cur);
e_free(cur);
}
LeaveCriticalSection(&g_DLLCrit);

3
ediv/src/ediv/dll_load.h
View file

@ -15,7 +15,8 @@
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
The author of this program may be contacted at dildog@l0pht.com. */
The author of this program may be contacted at dildog@l0pht.com.
*/
#include <windows.h>

2
ediv/src/ediv/ediv.c
View file

@ -1,6 +1,6 @@
/*
* eDiv Compiler
* Copyright (C) 2000-2002 Sion Entertainment
* Copyright (C) 2000-2002 Sion, Ltd.
* http://www.sionhq.com
*
* This program is free software; you can redistribute it and/or modify

2
ediv/src/ediv/ediv_export.c
View file

@ -1,6 +1,6 @@
/*
* eDiv Compiler
* Copyright (C) 2000-2002 Sion Entertainment
* Copyright (C) 2000-2002 Sion, Ltd.
* http://www.sionhq.com
*
* This program is free software; you can redistribute it and/or modify

50
ediv/src/ediv/encrypt.c
View file

@ -1,18 +1,18 @@
/*
/*
* eDiv Compiler
* Copyright (C) 2000-2002 Sion Entertainment
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
@ -115,7 +115,7 @@ void _encriptar(int encode, char * fichero, char * clave)
fclose(f);
} else {
fclose(f);
free(ptr);
e_free(ptr);
return;
}
} else {
@ -147,7 +147,7 @@ void _encriptar(int encode, char * fichero, char * clave)
if ((f=fopen("temp.dj!","wb"))==NULL) {
free(ptr);
e_free(ptr);
return;
}
@ -155,18 +155,18 @@ void _encriptar(int encode, char * fichero, char * clave)
if(fwrite(magic,1,14,f)!=14) {
fclose(f);
remove(fichero);
rename("temp.dj!",fichero); free(ptr); return;
rename("temp.dj!",fichero); e_free(ptr); return;
}
}
if(fwrite(p,1,size,f)!=(unsigned int)size) {
fclose(f);
free(ptr); return;
e_free(ptr); return;
}
/* Si todo ha ido bien ... */
fclose(f);
free(ptr);
e_free(ptr);
}
@ -187,7 +187,7 @@ void _comprimir(int encode, char *fichero) {
fclose(f);
} else {
fclose(f);
free(ptr);
e_free(ptr);
return;
}
} else {
@ -203,20 +203,20 @@ void _comprimir(int encode, char *fichero) {
size2=size+size/100+256;
if ((ptr_dest=(byte *)malloc(size2))==NULL) {
free(ptr);
e_free(ptr);
return;
}
if (compress(ptr_dest, &size2, ptr, size)) {
free(ptr_dest);
free(ptr);
e_free(ptr_dest);
e_free(ptr);
return;
}
/* Si no se gana espacio, se deja el fichero sin comprimir */
if (size2>=size-12) {
free(ptr_dest);
free(ptr);
e_free(ptr_dest);
e_free(ptr);
return;
}
} else {
@ -226,29 +226,29 @@ void _comprimir(int encode, char *fichero) {
size2=*(int*)(ptr+8);
if ((ptr_dest=(byte *)malloc(size2))==NULL) {
free(ptr);
e_free(ptr);
return;
}
if (uncompress(ptr_dest, &size2, ptr+12, size-12)) {
free(ptr_dest);
free(ptr);
e_free(ptr_dest);
e_free(ptr);
return;
}
size2=*(int*)(ptr+8);
}
free(ptr);
e_free(ptr);
if (rename(fichero,"temp.ZX!")) {
free(ptr_dest);
e_free(ptr_dest);
return;
}
if ((f=fopen(fichero,"wb"))==NULL) {
rename("temp.ZX!",fichero);
free(ptr_dest);
e_free(ptr_dest);
return;
}
@ -258,7 +258,7 @@ void _comprimir(int encode, char *fichero) {
fclose(f);
remove(fichero);
rename("temp.ZX!",fichero);
free(ptr_dest);
e_free(ptr_dest);
return;
}
@ -266,7 +266,7 @@ void _comprimir(int encode, char *fichero) {
fclose(f);
remove(fichero);
rename("temp.ZX!",fichero);
free(ptr_dest);
e_free(ptr_dest);
return;
}
}
@ -275,12 +275,12 @@ void _comprimir(int encode, char *fichero) {
fclose(f);
remove(fichero);
rename("temp.ZX!",fichero);
free(ptr_dest);
e_free(ptr_dest);
return;
}
/* Si todo ha ido bien ... */
fclose(f);
free(ptr_dest);
e_free(ptr_dest);
remove("temp.ZX!");
}

10
ediv/src/ediv/encrypt.h
View file

@ -1,18 +1,18 @@
/*
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

20
ediv/src/ediv/expresion.h
View file

@ -1,3 +1,23 @@
/*
* eDiv Compiler
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#ifndef __EXPRESION_H
#define __EXPRESION_H

66
ediv/src/ediv/language.c
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
@ -38,12 +38,12 @@ int detecta_idioma_iso(char* lang)
{
int i;
static char getid[NUM_LANGUAGES][3] = {
"es", // español
"it", // italiano
"pt", // portugués
"en", // inglés
"ca", // catalán
"eu" // euskera
"es", /* español */
"it", /* italiano */
"pt", /* portugués */
"en", /* inglés */
"ca", /* catalán */
"eu" /* euskera */
};
if(lang==NULL) return DEFAULT_LANGUAGE;
if(strlen(lang)>2) lang[2]=0;
@ -65,12 +65,12 @@ int detecta_idioma()
#ifdef _WIN32
int i;
static int getid[NUM_LANGUAGES] = {
0x0a, // español
0x10, // italiano
0x16, // portugués
0x09, // inglés
0x03, // catalán
0x2d // euskera
0x0a, /* español */
0x10, /* italiano */
0x16, /* portugués */
0x09, /* inglés */
0x03, /* catalán */
0x2d /* euskera */
};
LANGID lang;
@ -155,9 +155,9 @@ char* translate_error(int num)
/* 56 */ "Esperando BEGIN",
/* 57 */ "Esperando END",
/* 58 */ "Esperando UNTIL",
/* 59 */ "Esperando una variable", // (para el FROM)
/* 59 */ "Esperando una variable", /* (para el FROM) */
/* 60 */ "Esperando TO",
/* 61 */ "Sentencia FROM incorrecta", // (from==to)
/* 61 */ "Sentencia FROM incorrecta", /* (from==to) */
/* 62 */ "El valor STEP no es válido",
/* 63 */ "Esperando CASE, DEFAULT o END",
/* 64 */ "Esperando ':'",
@ -232,9 +232,9 @@ char* translate_error(int num)
/* 56 */ "Aspettando BEGIN",
/* 57 */ "Aspettando END",
/* 58 */ "Aspettando UNTIL",
/* 59 */ "Aspettando una variabile", // (para el FROM)
/* 59 */ "Aspettando una variabile",
/* 60 */ "Aspettando TO",
/* 61 */ "Sentenza FROM incorretta", // (from==to)
/* 61 */ "Sentenza FROM incorretta",
/* 62 */ "Il valore STEP non è valido",
/* 63 */ "Aspettando CASE, DEFAULT o END",
/* 64 */ "Aspettando ':'",
@ -309,9 +309,9 @@ char* translate_error(int num)
/* 56 */ "Esperando BEGIN",
/* 57 */ "Esperando END",
/* 58 */ "Esperando UNTIL",
/* 59 */ "Esperando uma variable", // (para el FROM)
/* 59 */ "Esperando uma variable",
/* 60 */ "Esperando TO",
/* 61 */ "Sentença FROM incorrecta", // (from==to)
/* 61 */ "Sentença FROM incorrecta",
/* 62 */ "O valor STEP não é válido",
/* 63 */ "Esperando CASE, DEFAULT ou END",
/* 64 */ "Esperando ':'",
@ -386,9 +386,9 @@ char* translate_error(int num)
/* 56 */ "Expecting BEGIN",
/* 57 */ "Expecting END",
/* 58 */ "Expecting UNTIL",
/* 59 */ "Expecting variable", // (para el FROM)
/* 59 */ "Expecting variable",
/* 60 */ "Expecting TO",
/* 61 */ "Incorrect FROM statement", // (from==to)
/* 61 */ "Incorrect FROM statement",
/* 62 */ "Incorrect STEP value",
/* 63 */ "Expecting CASE, DEFAULT or END",
/* 64 */ "Expecting ':'",
@ -463,9 +463,9 @@ char* translate_error(int num)
/* 56 */ "Esperant BEGIN",
/* 57 */ "Esperant END",
/* 58 */ "Esperant UNTIL",
/* 59 */ "Esperant una variable", // (per al FROM)
/* 59 */ "Esperant una variable",
/* 60 */ "Esperant TO",
/* 61 */ "Sentència FROM incorrecta", // (from==to)
/* 61 */ "Sentència FROM incorrecta",
/* 62 */ "El valor STEP no es vàlid",
/* 63 */ "Esperant CASE, DEFAULT o END",
/* 64 */ "Esperant ':'",
@ -540,9 +540,9 @@ char* translate_error(int num)
/* 56 */ "BEGIN-en zai...",
/* 57 */ "END-en zai...",
/* 58 */ "UNTIL-en zai..",
/* 59 */ "Aldagai baten zai...", // (para el FROM)
/* 59 */ "Aldagai baten zai...",
/* 60 */ "TO-ren zai...",
/* 61 */ "Okerreko FROM Sententzia", // (from==to)
/* 61 */ "Okerreko FROM Sententzia",
/* 62 */ "Okerreko STEP balioa",
/* 63 */ "CASE, DEFAULT edo END-en zai...",
/* 64 */ "':'-ren zai...",
@ -754,7 +754,7 @@ char* translate(int id_cadena)
{
switch(idioma) {
case 0: // español
case 0: /* español */
{
static char* msg[] = {
/* 0 */ " **** Compilador eDIV " VERSION " ****\nCopyleft (c) 2000-2002 Sion, Ltd.\nhttp://www.edivcentral.com\n",
@ -822,7 +822,7 @@ char* translate(int id_cadena)
return msg[id_cadena];
}
case 1: // italiano
case 1: /* italiano */
{
static char* msg[] = {
/* 0 */ " **** Compilatore eDIV " VERSION " ****\nCopyleft (c) 2000-2002 Sion, Ltd.\nhttp://www.edivcentral.com\n",
@ -890,7 +890,7 @@ char* translate(int id_cadena)
return msg[id_cadena];
}
case 2: // portugués
case 2: /* portugués */
{
static char* msg[] = {
/* 0 */ " **** Compilador eDIV " VERSION " ****\nCopyleft (c) 2000-2002 Sion, Ltd.\nhttp://www.edivcentral.com\n",
@ -952,7 +952,7 @@ char* translate(int id_cadena)
/* 47 */ "Não se encontra ExportaFuncs em %s - Biblioteca invalida (%s)\n",
#endif
// FIXME: revisar/traducir esto
/* FIXME: revisar/traducir esto */
/* 48 */ " -n, --news Mostra a última notícia de eDivCentral.com e sai\n",
/* 49 */ "Error: no se ha configurado un servidor de noticias en ediv.cfg\n",
/* 50 */ "Error: el fichero recibido no es del tipo esperado\n"
@ -960,7 +960,7 @@ char* translate(int id_cadena)
return msg[id_cadena];
}
case 3: // inglés
case 3: /* inglés */
{
static char* msg[] = {
/* 0 */ " **** eDIV Compiler " VERSION " ****\nCopyleft (c) 2000-2002Sion, Ltd.\nhttp://www.edivcentral.com\n",
@ -1028,7 +1028,7 @@ char* translate(int id_cadena)
return msg[id_cadena];
}
case 4: // catalán
case 4: /* catalán */
{
static char* msg[] = {
/* 0 */ " **** Compilador eDIV " VERSION " ****\nCopyleft (c) 2000-2002 Sion, Ltd.\nhttp://www.edivcentral.com\n",
@ -1095,7 +1095,7 @@ char* translate(int id_cadena)
};
return msg[id_cadena];
}
case 5: // euskera
case 5: /* euskera */
{
static char* msg[] = {
/* 0 */ " **** eDIV konpiladorea " VERSION " ****\nCopyleft (c) 2000-2002 Sion, Ltd.\nhttp://www.edivcentral.com\n",

22
ediv/src/ediv/listados.c
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
@ -27,9 +27,9 @@
#include "language.h"
//-----------------------------------------------------------------------------
// Graba el fichero de la tabla de objetos
//-----------------------------------------------------------------------------
/*
* Graba el fichero de la tabla de objetos
*/
void listado_objetos (void)
{
@ -154,11 +154,6 @@ void listado_objetos (void)
fprintf(sta,"\toffset=%u\n",obj[n].proc.offset);
fprintf(sta,"\tnum_par=%u\n",obj[n].proc.num_par);
break;
/* case tfunc: fprintf(sta,"%5u\ttfunc: %s",n,obj[n].name);
if (obj[n].usado) fprintf(sta," (*) usado\n"); else fprintf(sta,"\n");
fprintf(sta,"\tcodigo=%u\n",obj[n].func.codigo);
fprintf(sta,"\tnum_par=%u\n",obj[n].func.num_par);
break;*/
case tfext: fprintf(sta,"%5u\ttfext: %s",n,obj[n].name);
if (obj[n].usado) fprintf(sta," (*) usado\n"); else fprintf(sta,"\n");
fprintf(sta,"\tcodigo=%u\n",obj[n].fext.codigo);
@ -209,10 +204,9 @@ void listado_objetos (void)
}
//-----------------------------------------------------------------------------
// Graba el fichero ensamblador
//-----------------------------------------------------------------------------
/*
* Graba el fichero ensamblador
*/
void listado_ensamblador (void)
{
FILE * sta;

4
ediv/src/ediv/listados.h
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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

13
ediv/src/ediv/lower.c
View file

@ -1,7 +1,5 @@
/* Fenix - Compilador/intérprete de videojuegos
* Copyright (C) 1999 José Luis Cebrián Pagüe
*
* Adaptado a eDiv por Sion Entertainment
/* Copyright (C) 1999 José Luis Cebrián Pagüe
* Copyright (C) 2000-2002 Sion, Ltd
*
* 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
@ -86,12 +84,7 @@ void set_c_lower (const byte * from, const byte * to)
void inicializa_lower()
{
/* ¡Esto hay que revisarlo bastante!
*/
memset (lower, 0, 256); // es necesario
memset (lower, 0, 256);
set_c_lower ("ABCDEFGHIJKLMNOPQRSTUVWXYZ",
"abcdefghijklmnopqrstuvwxyz");
set_c_lower ("abcdefghijklmnopqrstuvwxyz",

4
ediv/src/ediv/lower.h
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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

174
ediv/src/ediv/ltlex.c
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
@ -18,9 +18,9 @@
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
//-----------------------------------------------------------------------------
// Precarga de las estructuras léxicas, analiza el fichero ltlex.def
//-----------------------------------------------------------------------------
/*
* Precarga de las estructuras léxicas, analiza el fichero ltlex.def
*/
#include <stdio.h>
#include <stdlib.h>
@ -43,30 +43,30 @@ void ltlex_error(int error)
void analiza_ltlex(void){
byte *_buf, * buf; // Buffer del texto y puntero al carácter actual
byte cont=1; // 0 indica final del archivo
int len; // Tamaño del archivo
struct lex_ele * e; // Puntero al lex_case correspondiente
FILE * def; // Stream del fichero
byte *_buf, * buf; /* Buffer del texto y puntero al carácter actual */
byte cont=1; /* 0 indica final del archivo */
int len; /* Tamaño del archivo */
struct lex_ele * e; /* Puntero al lex_case correspondiente */
FILE * def; /* Stream del fichero */
int t; //token (pieza)
byte h; //hash (para id)
int t; /* token (pieza) */
byte h; /* hash (para id) */
byte * _ivnom;
byte * * ptr;
// Busca el archivo ltlex.def
/* Busca el archivo ltlex.def */
if ((def=fopen("system/ltlex.def","rb"))==NULL)
ltlex_error(1);
// Lo lee
/* Lo lee */
fseek(def,0,SEEK_END);
len=ftell(def);
_buf=buf=(byte *) e_malloc(len+1);
fseek(def,0,SEEK_SET);
len=fread(buf,1,len,def);
// El carácter ASCII 0 indica final del fichero
*(buf+len)=0;// *(buf+len+1)=cr;
/* El carácter ASCII 0 indica final del fichero */
*(buf+len)=0;
#ifdef _DEBUG
printf("dbg: tamano ltlex: %d\n",len);
@ -75,82 +75,72 @@ void analiza_ltlex(void){
linea=1;
do {
/* printf("- %d\n",linea);
if(linea==45)
printf("heyp\n");*/
switch (*buf++) {
// Fin de fichero
case 0:
cont=0; break;
// Ignoramos los espacios
case ' ': case tab:
break;
// Salta de linea
case cr:
if(*buf==lf) buf++;
case lf:
linea++;
break;
// Los ; indican línea de comentario
case ';':
while (*buf!=cr && *buf!=lf) buf++; break;
// El símbolo & indica definición de token
case '&':
*buf=lower[*buf];
if (*buf>='0' && *buf<='9')
t=(*buf++-'0')<<4;
else
if (*buf>='a' && *buf<='f')
t=(*buf++-'a'+10)<<4;
else
ltlex_error(2);
*buf=lower[*buf];
if (*buf>='0' && *buf<='9')
t+=(*buf++-'0');
else
if (*buf>='a' && *buf<='f')
t+=(*buf++-'a'+10);
else
ltlex_error(2);
if (*buf==cr || *buf==lf || *buf==' ' || *buf==tab) break;
else if (lower[*buf]) { //Analiza una palabra reservada
_ivnom=ivnom.b; *ivnom.p++=0; *ivnom.p++=(unsigned char*)t; h=0;
while ((*ivnom.b=lower[*buf++])) h=((byte)(h<<1)+(h>>7))^(*ivnom.b++);
ptr=&vhash[h]; while (*ptr) ptr=(unsigned char * *)*ptr; *ptr=_ivnom;
buf--; ivnom.b++;
} else if (t>=0x78 && t<=0x7b) { //Analiza un delimitador de literal
lex_case[*buf]=(struct lex_ele*)l_lit;
} else { //Analiza un nuevo símbolo
if ((e=lex_case[*buf])==0) {
if (num_nodos++==max_nodos) ltlex_error(3);
e=lex_case[*buf]=ilex_simb++; (*e).caracter=*buf++;
} else buf++;
while (*buf!=' ' && *buf!=tab && *buf!=cr) {
if (lower[*buf]) ltlex_error(4);
if ((*e).siguiente==0)
if (num_nodos++==max_nodos) ltlex_error(3);
else e=(*e).siguiente=ilex_simb++;
else {
e=(*e).siguiente;
while ((*e).caracter!=*buf && (*e).alternativa)
e=(*e).alternativa;
if ((*e).caracter!=*buf) {
switch (*buf++) {
/* Fin de fichero */
case 0:
cont=0; break;
/* Ignoramos los espacios */
case ' ':
case tab:
break;
/* Salta de linea */
case cr:
if(*buf==lf) buf++;
case lf:
linea++;
break;
/* Los ; indican línea de comentario */
case ';':
while (*buf!=cr && *buf!=lf) buf++; break;
/* El símbolo & indica definición de token */
case '&':
*buf=lower[*buf];
if (*buf>='0' && *buf<='9')
t=(*buf++-'0')<<4;
else
if (*buf>='a' && *buf<='f')
t=(*buf++-'a'+10)<<4;
else
ltlex_error(2);
*buf=lower[*buf];
if (*buf>='0' && *buf<='9')
t+=(*buf++-'0');
else
if (*buf>='a' && *buf<='f')
t+=(*buf++-'a'+10);
else
ltlex_error(2);
if (*buf==cr || *buf==lf || *buf==' ' || *buf==tab) break;
else if (lower[*buf]) { /* Analiza una palabra reservada */
_ivnom=ivnom.b; *ivnom.p++=0; *ivnom.p++=(unsigned char*)t; h=0;
while ((*ivnom.b=lower[*buf++])) h=((byte)(h<<1)+(h>>7))^(*ivnom.b++);
ptr=&vhash[h]; while (*ptr) ptr=(unsigned char * *)*ptr; *ptr=_ivnom;
buf--; ivnom.b++;
} else if (t>=0x78 && t<=0x7b) { /* Analiza un delimitador de literal */
lex_case[*buf]=(struct lex_ele*)l_lit;
} else { /* Analiza un nuevo símbolo */
if ((e=lex_case[*buf])==0) {
if (num_nodos++==max_nodos) ltlex_error(3);
e=lex_case[*buf]=ilex_simb++; (*e).caracter=*buf++;
} else buf++;
while (*buf!=' ' && *buf!=tab && *buf!=cr) {
if (lower[*buf]) ltlex_error(4);
if ((*e).siguiente==0)
if (num_nodos++==max_nodos) ltlex_error(3);
else e=(*e).alternativa=ilex_simb++;
}
} (*e).caracter=*buf++;
} (*e).token=t;
} break;
}} while (cont);
free(_buf); _buf=NULL;
fclose(def); def=NULL;
else e=(*e).siguiente=ilex_simb++;
else {
e=(*e).siguiente;
while ((*e).caracter!=*buf && (*e).alternativa)
e=(*e).alternativa;
if ((*e).caracter!=*buf) {
if (num_nodos++==max_nodos) ltlex_error(3);
else e=(*e).alternativa=ilex_simb++;
}
} (*e).caracter=*buf++;
} (*e).token=t;
} break;
}} while (cont);
e_free(_buf); _buf=NULL;
fclose(def); def=NULL;
}

8
ediv/src/ediv/main.h
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
@ -59,11 +59,11 @@ word error_25; // Para emitir "se esperaba una sentencia"
// Prototipos
void * e_malloc(size_t size); // un malloc con mensaje de error
void *e_malloc(size_t size); // un malloc con mensaje de error
void *e_free(void *puntero);
void errormem(); // mensaje "memoria insuficiente"
void save_error(word tipo); // guarda una posición de error
void error(word tipo,word num, ...);// error de compilación
void warning(int num, ...); // warning en el proceso
//void c_error(int num);
#endif // __MAIN_H

193
ediv/src/ediv/modulos.c
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
@ -38,103 +38,7 @@
int imem_temp;
int iloc_temp;
#ifdef MODULOS2
_listamodulos *Buscar (char *nombre)
{
if (ListaModulos) {
_listamodulos *tmp = ListaModulos;
while (tmp->anterior)
tmp = tmp->anterior;
while (tmp) {
if (tmp->modulo)
if (!_strcmpi(tmp->modulo->NombreModulo, nombre))
return tmp;
if (tmp->siguiente)
tmp = tmp->siguiente;
else
return NULL;
}
}
return NULL;
}
/*
int Cargar (char *NombreArchivo)
{
dlHandler Manejador;
char *NombreModulo;
Log.Log ("Cargando %s:", NombreArchivo);
Manejador = dlopen (NombreArchivo, RTLD_GLOBAL | RTLD_NOW);
if (!Manejador)
{
Log.Log ("%s", UltimoErrorDL = dlerror ());
return CMOD_ERROR_DLOPEN;
}
else if (!(NombreModulo = (char *) dlsym (Manejador, "NombreModulo")))
{
Log.Log ("No se pudo encontrar el símbolo \"NombreModulo\"");
UltimoErrorDL = dlerror ();
dlclose (Manejador);
return CMOD_NO_NOMBRE_MODULO;
}
else
Log.Log ("NombreModulo para %s es [%s]", NombreArchivo, NombreModulo);
if (Buscar (NombreModulo))
{
Log.Log ("El módulo %s[%s] ya está cargado", NombreArchivo,
NombreModulo);
dlclose (Manejador);
return CMOD_YA_CARGADO;
}
if (ListaModulos)
{
while (ListaModulos->Siguiente)
ListaModulos = ListaModulos->Siguiente;
ListaModulos->Siguiente =
(_ListaModulos *) gnew (sizeof (_ListaModulos));
bzero (ListaModulos->Siguiente, sizeof (_ListaModulos));
ListaModulos->Siguiente->Anterior = ListaModulos;
ListaModulos = ListaModulos->Siguiente;
}
else
{
ListaModulos = (_ListaModulos *) gnew (sizeof (_ListaModulos));
bzero (ListaModulos, sizeof (_ListaModulos));
}
ListaModulos->Modulo = (c_Modulo *) gnew (sizeof (c_Modulo));
bzero (ListaModulos->Modulo, sizeof (c_Modulo));
ListaModulos->Modulo->Manejador = Manejador;
ListaModulos->Modulo->NombreArchivo =
(char *) gnew (strlen (NombreArchivo) + 1);
strcpy (ListaModulos->Modulo->NombreArchivo, NombreArchivo);
ListaModulos->Modulo->NombreModulo = NombreModulo;
ListaModulos->Modulo->Autor = (char *) dlsym (Manejador, "Autor");
ListaModulos->Modulo->Version = (char *) dlsym (Manejador, "Version");
ListaModulos->Modulo->Descripcion =
(char *) dlsym (Manejador, "Descripcion");
if (!(dlCast_1 ListaModulos->Modulo->Iniciar =
dlCast_2 dlsym (Manejador, "Iniciar")))
Log.Log ("No se puede resolver el símbolo Iniciar");
if (!(dlCast_1 ListaModulos->Modulo->Detener =
dlCast_2 dlsym (Manejador, "Detener")))
Log.Log ("No se puede resolver el símbolo Detener");
if (ListaModulos->Modulo->Iniciar)
if (ListaModulos->Modulo->Iniciar () == INICIAR_FALLADO)
{
Descargar (NombreModulo, DMOD_DESCARGAR_DEP, DMOD_IGNORAR_DETENER);
return CMOD_ERROR_INICIAR;
}
return CMOD_OK;
}
*/
#endif /* MODULOS2 */
// obtiene el nombre esencial de la libreria (sin extension ni path)
/* obtiene el nombre esencial de la libreria (sin extension ni path) */
void get_rawname(char* completo, char* rawname)
{
char* p=completo;
@ -165,8 +69,7 @@ void get_rawname(char* completo, char* rawname)
}
// compara prioridades de dos dlls, para el qsort descendente
/* compara prioridades de dos dlls, para el qsort descendente */
int compara(const void* _a, const void* _b)
{
struct _dlls a=*(struct _dlls*)_a;
@ -182,7 +85,7 @@ int compara2(const void* _a, const void* _b)
}
void dll_func() // ke original, no? XD
void dll_func()
{
char dllkey[256]="dll_priority:";
char rawname[256];
@ -192,7 +95,7 @@ void dll_func() // ke original, no? XD
#ifdef _WIN32
int buscafich;
struct _finddata_t fichero_dll; // busqueda de DLLs
struct _finddata_t fichero_dll; /* busqueda de DLLs */
char mask[256];
#else
DIR *directorio;
@ -203,7 +106,7 @@ void dll_func() // ke original, no? XD
n_externs=0;
#ifdef _WIN32
// Inicializa la carga de DLLs
/* Inicializa la carga de DLLs */
CheckWindowsVersion();
InitializeDLLLoad();
#endif
@ -218,12 +121,11 @@ void dll_func() // ke original, no? XD
strcpy(mask,dir);
strcat(mask,"\\*.dll");
// Busca las DLLs que hay en el directorio
/* Busca las DLLs que hay en el directorio */
buscafich = _findfirst(mask, &fichero_dll);
if (buscafich==-1) {
printf(translate(43)); // no hay dlls
exit(1);
}
if (buscafich==-1)
printf(translate(43)); /* no hay dlls */
#ifdef _DEBUG
printf("dbg: DLL encontrada: %s\n",fichero_dll.name);
@ -241,18 +143,18 @@ void dll_func() // ke original, no? XD
if (carga)
if(!leedll()) {
dlls[numdlls].prioridad=0;
// guarda el nombre de fichero en la tabla de DLLs
/* guarda el nombre de fichero en la tabla de DLLs */
dlls[0].nombre=(char*)e_malloc(strlen(rawname)+1);
strcpy(dlls[0].nombre,rawname);
// importa las funciones de la DLL
/* importa las funciones de la DLL */
if (ini)
dlls[numdlls].prioridad=iniparser_getint(ini,dllkey,dlls[numdlls].prioridad);
numdlls=1;
}
// hace lo mismo con el resto
/* hace lo mismo con el resto */
while(1) {
if(_findnext(buscafich,&fichero_dll)==0) {
#ifdef _DEBUG
@ -260,7 +162,6 @@ void dll_func() // ke original, no? XD
#endif
carga=1;
sprintf(fichdll,"%s\\%s",dir,fichero_dll.name);
// dlls[numdlls].nfuncs=0;
dlls[numdlls].prioridad=0;
get_rawname(fichero_dll.name,rawname);
strcpy(dllkey,"dll_priority:");
@ -278,25 +179,23 @@ void dll_func() // ke original, no? XD
break;
}
#else // si estamos en Linux
#else /* si estamos en Linux */
if(ini) dir=iniparser_getstr(ini,"dll:nixdll"));
if(!dir) dir="so";
directorio=opendir(dir);
if(!directorio) {
printf(translate(44),dir); // no hay directorio so/
printf(translate(44),dir); /* no hay directorio so/ */
exit(1);
}
// Nos saltamos las dos primeras entradas "./" y "../"
/* Nos saltamos las dos primeras entradas "./" y "../" */
for(i=0;i<2;i++) {
fichero_dll=readdir(directorio);
if(fichero_dll==0) {
printf(translate(43)); // no hay so's
exit(1);
}
if(fichero_dll==0)
printf(translate(43)); /* no hay so's */
}
// Busca las .so
/* Busca las .so */
while (1) {
fichero_dll=readdir(directorio);
if(fichero_dll==0)
@ -308,7 +207,6 @@ void dll_func() // ke original, no? XD
#endif
carga=1;
sprintf(fichdll,"%s/%s",dir,fichero_dll->d_name);
// dlls[numdlls].nfuncs=0;
dlls[numdlls].prioridad=0;
get_rawname(fichero_dll->d_name,rawname);
strcpy(dllkey,"dll_priority:");
@ -326,10 +224,8 @@ void dll_func() // ke original, no? XD
#endif
if(numdlls==0) {
printf(translate(43)); // no hay librerias
exit(1);
}
if(numdlls==0)
printf(translate(43)); /* no hay librerias */
nuevo_orden=e_malloc(numdlls*4);
for(i=0;i<numdlls;i++)
@ -357,7 +253,6 @@ void dll_func2()
nuevo_orden[i]=i;
for(numdlls=0;numdlls<i;numdlls++) {
//printf("#### (%d) %s - prioridad: %d\n",i,dlls[i].nombre,dlls[i].prioridad);
if((dlls[numdlls].prioridad>P_NUNCA) && (dlls[numdlls].usado || dlls[numdlls].prioridad>=P_SIEMPRE)) {
#ifdef _DEBUG
printf("dbg: Se requiere %s (id=%d)\n",dlls[numdlls].nombre,numdlls);
@ -371,7 +266,7 @@ void dll_func2()
#endif
sprintf(fichdll,"%s\\%s.dll",dir,dlls[numdlls].nombre);
if(leedll()) {
printf(translate(45),dlls[numdlls].nombre); // error al cargar libreria
printf(translate(45),dlls[numdlls].nombre); /* error al cargar libreria */
exit(1);
}
}
@ -384,24 +279,21 @@ int leedll()
#ifdef _WIN32
TYPEOF_ExportaFuncs *ExportaFuncs;
HINSTANCE hDLL;
// TYPEOF_extfunc *extfunc; // *** PRUEBA ***
// Carga la DLL
/* Carga la DLL */
hDLL=LoadDLL(fichdll);
if(hDLL==NULL) {
printf(translate(46),fichdll); // no puedo cargar libreria
printf(translate(46),fichdll); /* no puedo cargar libreria */
return 1;
}
// Inicializa y ejecuta la funcion ExportaFuncs de la DLL
/* Inicializa y ejecuta la funcion ExportaFuncs de la DLL */
ExportaFuncs=NULL;
ExportaFuncs=(TYPEOF_ExportaFuncs *)GetDLLProcAddress(hDLL,"ExportaFuncs");
if(ExportaFuncs==NULL) {
printf(translate(47),fichdll); // exportafuncs no encontrado
printf(translate(47),fichdll); /* exportafuncs no encontrado */
FreeDLL(hDLL);
return 1;
}
@ -412,39 +304,30 @@ int leedll()
ExportaFuncs(EXPORTAFUNCS_PARAMS);
/***** PRUEBA ****** PRUEBA ***** PRUEBA ***** PRUEBA *****
if(n_externs==5) {
extfunc=ext_funcs[4].hfuncion;
putparm("hola");
extfunc(params,sp);
}
***** PRUEBA ****** PRUEBA ***** PRUEBA ***** PRUEBA *****/
FreeDLL(hDLL);
#else // linux
#else /* Linux */
TYPEOF_ExportaFuncs *ExportaFuncs;
void *hDLL;
char *errordll;
// TYPEOF_extfunc *extfunc; // *** PRUEBA ***
// Carga la DLL
/* Carga la DLL */
hDLL=dlopen(fichdll,RTLD_NOW);
if(!hDLL) {
printf(translate(46),fichdll,dlerror()); // no puedo cargar libreria
printf(translate(46),fichdll,dlerror()); /* no puedo cargar libreria */
return 1;
}
// Inicializa y ejecuta la funcion ExportaFuncs de la DLL
/* Inicializa y ejecuta la funcion ExportaFuncs de la DLL */
ExportaFuncs=NULL;
ExportaFuncs=(TYPEOF_ExportaFuncs *) dlsym(hDLL,"ExportaFuncs");
if((errordll=dlerror())!=NULL) {
printf(translate(47),fichdll,errordll); // exportafuncs no encontrado
printf(translate(47),fichdll,errordll); /* exportafuncs no encontrado */
dlclose(hDLL);
return 1;
}
@ -454,18 +337,6 @@ int leedll()
#endif
ExportaFuncs(EXPORTAFUNCS_PARAMS);
/***** PRUEBA ****** PRUEBA ***** PRUEBA ***** PRUEBA *****
//if(n_externs==3) {
extfunc=ext_funcs[1].hfuncion;
putparm(63);
putparm(30);
putparm(24);
putparm(6);
extfunc(params,sp);
//}
***** PRUEBA ****** PRUEBA ***** PRUEBA ***** PRUEBA *****/
dlclose(hDLL);
#endif

104
ediv/src/ediv/modulos.h
View file

@ -1,94 +1,28 @@
/***************************************************************************
modulos.h - description
-------------------
begin : Sat Jun 23 2001
copyright : (C) 2001 by Sion Entertainment
email : bugs@edivcentral.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 *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
/*
* eDiv Compiler
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#ifndef __MODULOS_H
#define __MODULOS_H
#include <time.h>
#define MODULOS2
#ifdef MODULOS2
#define dlHandler void*
#define dlCast_1 (void*)
#define dlCast_2
struct Modulo {
dlHandler Manejador; /* Manejador del módulo */
char *NombreArchivo; /* Nombre del Archivo */
char *NombreModulo; /* Nombre del Módulo */
char *Descripcion; /* Descripcion del Módulo */
char *Version; /* Versión del Módulo */
char *Autor; /* Autor del Módulo */
time_t FechaCarga; /* Fecha de Carga del Módulo */
time_t UltimoUso; /* Fecha del último uso del Módulo */
int (*Iniciar) (void); /* Función llamada al inicio del Módulo */
int (*Detener) (void); /* Función llamada en la descarga del Módulo */
};
typedef struct _listamodulos
{
/* Puntero al siguiente elemento de la lista.
* Si no hay siguiente elemento, este es NULL.
*/
struct _listamodulos *siguiente;
/*! \brief Puntero al elemento anterior de la
* lista.
* \note Si no hay elemento anterior, este es NULL.
*/
struct _listamodulos *anterior;
/*! \brief Puntero a la información del Módulo */
struct Modulo *modulo;
/*! \brief Lista de Dependencias del módulo
* \note Si no hay ninguna dependencia, este es NULL
*/
struct _listadependencias
{
/*! \brief Puntero al siguiente elemento de la
* lista.
* \note Si no hay siguiente elemento, este es NULL.
*/
struct _listadependencias *siguiente;
/*! \brief Puntero al elemento anterior de la
* lista.
* \note Si no hay elemento anterior, este es NULL.
*/
struct _listadependencias *anterior;
/*! \brief Puntero a la dependencia */
struct _listamodulos *dependencia;
} *listadependencias;
} _listamodulos;
char *UltimoErrorDL;
struct _listamodulos *ListaModulos;
int Cargar (char *);
int Descargar (char *, unsigned short, unsigned short);
int NuevaDependencia (char *, char *);
int BorrarDependencia (char *, char *);
struct _listamodulos *Buscar (char *);
char *ObtenerUltimoErrorDL (void);
#endif /* MODULOS2 */
int* nuevo_orden;
int leedll();

4
ediv/src/ediv/parser.c
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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

4
ediv/src/ediv/parser.h
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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

4
ediv/src/ediv/varindex.c
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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

6
ediv/src/shared/extern.h
View file

@ -1,18 +1,18 @@
/*
* eDiv Compiler
* Copyright (C) 2000-2002 Sion Entertainment
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

24
ediv/src/shared/shared.h
View file

@ -1,6 +1,26 @@
/*
Definiciones compartidas de eDiv - Usar en eDiv, encrypt y stub :)
*/
* eDiv Compiler
* Copyright (C) 2000-2002 Sion, Ltd.
* 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
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
/*
* Definiciones compartidas de eDiv - Usar en eDiv, encrypt y stub :)
*/
#ifndef __SHARED_H
#define __SHARED_H

4
ediv/src/shared/varindex.h
View file

@ -1,7 +1,7 @@
/*
* eDiv Compiler
* Copyleft (C) 2000-2002 Sion Entertainment
* http://www.sion-e.com
* Copyright (C) 2000-2002 Sion, Ltd.
* 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

BIN
ediv/src/visual c/ediv_ws.suo
View file

Binary file not shown.