Temas

¡Buenas!

Recientemente hemos recivido una nueva persona en nuestra casa con un portatil Toshiba que tiene unos cuatro años, con SO Windows XP (SP2). A la hora de la conexion con internet ha tenido problemas desde el principio.

La contraseña del router es correcta pero la asignacion automatica de IP y DNS parece no funcionar. Lo primero que he intentado para poder conectarme es la asignacion manual de una IP dentro del rango que acepta el router. Al hacer esto la conexion parecia ser correcta y a pleno funcionamiento, pero a la hora de querer utilizar cualquiera de los exploradores, no entra en ninguna pagina.

Lo segundo que he hecho, ha sido mirar que DNS-s figuraban de forma predeterminada en el router, y tambien las he asignado de forma manual, pero sigue sin cargar ninguna pagina.

Despues de ver si esto funcionaba o no, he hecho ping al router, y de los 4 paquetes enviados se ha agotado el tiempo de espera en todos los casos.

No conozco nada sobre redes y queria saber si podias echarme un cable para poder solucionar el problema de conexion...

¡Gracias de antemano y saludos!

PD: Si os hiciese falta algun dato adicional avisadme y os lo voy dando.

¡Saludos de nuevo!

¡Buenas a todos!

Viendo que mi anterior post parece ser demasiado general, empiezo por dudas concretas.

En el libro que estoy siguiendo en este momento no comentan nada sobre la devolucion de valores (de momento) por funciones, pero he visto que la mayor parte (sino, todas) de las funciones que se utilizan, devuelven los valores en registros. Entonces planteo lo siguiente. A mi me parece "demasiado trabajo", estar pusheando o popeando registros en la pila, porque determinada funcion requiera un registro concreto para devolver un valor, o porque otra funcion pueda cambiar de forma inesperada los valores de determinados registros. Me parece mucho mas comodo dejar al usuario de la funcion escoger el registro o posicion de memoria en el que quiere guardar dicho valor. Para ello devuelvo los valores en la pila, y el usuario decide cual es el registro que mas le conviene utilizar segun sus necesidades. Para ello hay que desplazar el punetro de pila antes de pushear los parametros, para poder guardar el valor (los valores) devuelto(s). Establecer un estandar sobre esto a estas alturas en la que existe tanto codigo ensamblador para muy diversas situaciones creo que seria absurdo, asi que supondre que no esxiste una opinion unificada. Pero lo que si querria saber, aun cuando haya poca portabilidad por parte del codigo que escriba, es si actualmente existe algun tipo de "convencion" generalizada sobre la devolucion de valores por parte de las funciones.

Otra cosa que me gustaria saber, es cuales de las palabras reservadas en ensamblador son especificas de MASM32, ya que aunque el codigo de por si sea muy poco portable, me gustaria poder ensamblar el codigo creado en la mayor parte de ensambladores posibles...

Esperando que mis dudas aporten aclaraciones a mas gente a parte de a mi, me despido con...

¡Un saludo!

[Assembly_Language_For_Intel_based_computers]

¡Buenas!

Hace pocos dias empece a leer Assembly_Language_For_Intel_based_computers (solo voy por el capitulo 7). Ya tenia una pequeña base sobre las instrucciones en ensamblador gracias a que he empezado tambien a seguir el curso de ingenieria inversa de Ricardo Narvaja, asi que he ido haciendo algun ejercicio basandome en lo que habia estudiado del libro y en lo que habia visto a traves del debuger. No he tenido ningun problema ni para escribir el codigo ni para depurar los programas, pero antes de seguir avanzando, me gustaria que si podeis, los que mas tiempo llevais utilizando ensamblador, me dieseis algun consejo sobre estilo o alguna otra cosa que se pueda mejorar para obtener claridad. Se por C que es muy importante mantener el codigo ordenado y claro, pero no se si lo que estoy aplicando hasta ahora sirve solo a pequeña escala y luego al meterme en camisas de once varas acabare liado...

Bueno, aqui dejo el codigo y ¡que empieze el chaparron!

Un ultimo aviso, no he llegado a las interrupciones ni conozco la parte del API de Windows que controla la consola, asi que la entrada/salida la hago con funciones de C.

Ah, y el ensamblador que utilizo es MASM32, no se si hay diferencias con respecto al resto... solo llevo 5 dias con esto...

Código (asm) [Seleccionar] Expandir


; PROGRAMA: SWITCH
; Ejecuta un menu, recoge la opcion y despliega un mensaje segun la opcion

.386                       ; compatible con 80386 y  posteriores
.model flat, stdcall       ; modo 32 bits protegido y convencion de llamadas
.stack 4096                ; Tamaño de la pila...

;=============================================================

;stdio.h
include c:\masm32\include\msvcrt.inc
includelib c:\masm32\lib\msvcrt.lib

;ExitProcess
include c:\masm32\include\kernel32.inc
includelib c:\masm32\lib\kernel32.lib

;=============================================================

.data

opciones db "Escoge una opcion:",13,10,"1.",13,10,"2.",13,10,"0.Salir",13,10,">",0
formatoi db "%ld",0
cad1     db 13,10,"Opcion 1 escogida.",13,10,13,10,0
cad2     db 13,10,"Opcion 2 escogida.",13,10,13,10,0
cadsalir db 13,10,"Has escogido salir.",13,10,13,10,0
endl     db 13,10,0

.data?

;    Las dos componentes son el valor del caso y la direccion
; y de la funcion/codigo que ejecuta el codigo asociado
SwitchTonto dd 4 dup(?)  ; dos elementos tipo switch case: [caso,funcion]
opcion      dd ?

.code

main PROC

mov ebx , OFFSET SwitchTonto    ; cargamos la direccion de los pares valor-funcion

xor eax , eax                   ; dejamos eax a cero

mov eax , 1                     ; pasamos a eax el primer caso del switch
mov [ebx] , eax                 ; lo guardamos en el primer par
mov [ebx + 4] , op1             ; y copiamos la direccion de la funcion que maneja el caso

mov eax , 2                     ; lo mismo con el segundo caso del switch
mov [ebx + 8] , eax
mov [ebx + 12] , op2

;do{
MENU_INI:

sub esp , 4                    ;hacemos hueco en la pila para el valor de retorno

call menu                      ; desplegamos la informacion y en la pila vuelve la opcion

pop eax                        ; recogemos la opcion elegida
mov esi , 2                    ; esi sera el subindice para recorrer el array del switch

SWITCH_INI:                    ; principio de la eleccion

dec esi                    ; pasamos al siguiente indice
cmp esi , 0FFFFFFFFh       ; si es -1
jz SWITCH_FIN              ; hemos terminado de leer el array y salimos del switch

cmp eax , [ebx + 8 * esi]  ; comparamos el valor devuelto por menu con el del caso

jnz SWITCH_INI             ; si no son iguales, vamos a comprobar el siguiente caso

;en este punto eax ya no nos sirve, ya que hemos encontrado la opcion elegida
mov eax , 8                ; calculamos el desplazamiento dentro del par valor-funcion
mul esi                    ; en el que se encuentra el offset de la direccion de la funcion:
add eax , 4                ; 8 * indice + 4

call DWORD PTR [ebx + eax] ; y llamamos a la funcion que maneja el caso

SWITCH_FIN:

test eax , eax                 ; si la opcion elegida no es cero (salir)
jnz MENU_INI                   ; volvemos a llamar al menu

MENU_FIN:
;}while(opcion != 0);

call salir                         ; desplegamos el mensaje de salida

call crt_getchar                   ; esperamos a pulsar intro

push 0                             ; y terminamos el programa
call ExitProcess

ret

main ENDP

; long menu(void)
menu PROC

pushad                             ; guardamos los registros para devolverlos como estaban

; do{}while(opcion<0 || opcion>2)
PEDIR_OPCION_INI:

push OFFSET endl               ; imprimimos una nueva linea para separar el menu de lo anterior
call crt_printf
add esp , 4                    ; "sacamos" el paramtro de printf de la pila

push OFFSET opciones           ; mostramos las opciones
call crt_printf
add esp , 4                    ; y dejamos la pila apuntando a los registros pusheados

push OFFSET opcion             ; ponemos la direccion de la variable opcion
push OFFSET formatoi           ; la cadena de formato para scanf
call crt_scanf                 ; llamamos a scanf
add esp , 8                    ; y desplazamos la pila tantas posiciones como bytes tenian los parametros

call limpiarbuf                ; sacamos todos los datos que quedan en la entrada

mov eax , opcion               ; pasamos a eax el valor introducido

cmp eax , 0                    ; si el valor es menor que cero
jl PEDIR_OPCION_INI
cmp eax , 2                    ; o mayor que 2
jg PEDIR_OPCION_INI            ; volvemos a pedir el dato

PEDIR_OPCION_FIN:

mov edi , esp                      ; copiamos en edi el puntero de pila
mov [edi + 36] , eax               ; y guardamos la opcion elegida despues de los 8 registros y la direccion de retorno

popad                              ; dejamos los registros como estaban al entrar en la funcion

ret                                ; y regresamos

menu ENDP

limpiarbuf PROC

pushad                             ; guardamos los registros generales

;while(getchar() != '\n')

LIMPIEZA_INI:

call crt_getchar
cmp eax , 10
jnz LIMPIEZA_INI

LIMPIEZA_FIN:

popad                              ; y dejamos los registros como antes de la llamada

ret                                ; volvemos

limpiarbuf ENDP

; imprime el mensaje de que se ha elegido la opcion 1
op1 PROC

pushad

push OFFSET cad1
call crt_printf
add esp , 4

popad

ret

op1 ENDP

; imprime el mensaje de que se ha elegido la opcion 2
op2 PROC

pushad

push OFFSET cad2
call crt_printf
add esp , 4

popad

ret

op2 ENDP

; imprime el mensaje de que se ha elegido salir
salir PROC

pushad

push OFFSET cadsalir
call crt_printf
add esp , 4

popad

ret

salir ENDP

END main


¡Saludos!

Extraido del libro How Not to Program in C++ 111 Broken Programs and 3 Working Ones, or Why Does 2+2=5986. (Puede obtenerse aqui)


Pie de pagina del problema 28:

From a FORTRAN manual for Xerox computers:

    The primary purpose of the DATA statement is to give names to constants; instead
    of referring to π as 3.141592653589793 at every appearance, the variable PI can
    be given that value with a DATA statement and used instead of the longer form of
    the constant. This also simplifies modifying the program, should the value of π
    change.

¡Saludos!

PD: Para el que se lo tome demasiado en serio, es obvio que el titulo del tema es amistoso.

¡Buenas!

Ultimamente, al realizar descargas de ficheros medianamente grandes (entre 200Mb y 300Mb), hay veces que Firefox se me queda "colgado". Es decir, mantiene una tasa de transferencia de datos, pero no avanza nada. Hay veces que pausando la descarga y reanudandola consigo descargar correctamente el fichero, pero alguna otra vez me ha salido un mensaje diciendo que la conexion se ha perdido, aunque no he podido observar ninguna perdida de conexion a la hora de navegar o utilizar algun sistema de mensajeria.

¿Sabeis cual puede ser el problema? ¿Puede ser de mi equipo/red? o ¿una perdida de conexion por muy pequeña que sea afecta tanto a las descargas?

¡Gracias y saludos!

[size_t]

¡Buenas!

Hay que ver lo que malo es no tener nada que hacer.  

Ahora que he terminado con los examenes (si ningun exito por cierto, pero admito que la culpa es solo mia), me he decidido a llevar a cabo un proyecto que me rondaba la cabeza desde hacia ya un tiempo, y como no me gusta perder el tiempo solo, aqui os lo dejo.

Se trata de codigo en C para manipular las estructuras de datos pila, cola, lista simplemente enlazada y arbol binario, planteadas de forma abstracta, de tal forma que en ellas se puede almacenar cualquier tipo de dato, sin necesidad de construir las estructuras para cada tipo de dato especifico, por lo que en principio creo que supone un ahorro con respecto al tiempo de trabajo a la hora de desarrollar alguna aplicacion que necesite utilizar estas estructuras de datos.

Aqui os dejo un lista con los tipos de datos y las operaciones que se pueden llevar a cabo sobre ellos:

PILA:
=====
+ Inicializar un nodo.
+ Saber si esta vacia.
+ Insertar un valor (push).
+ Extraer un valor (pop).

COLA:
=====
+ Inicializar un nodo.
+ Saber si esta vacia.
+ Insertar un valor (enqueue).
+ Extraer un valor (dequeue).

LISTA:
======
+ Inicializar un nodo.
+ Saber si esta vacia.
+ Insertar un valor.
+ Eliminar un valor. (y extraerlo a la vez por si hiciese falta liberar memoria)
+ Destruir la lista. (Pasa la informacion a una cola, porque esta es mas facil de liberar).
+ Buscar un valor. (retorna un puntero al valor hallado o NULL si no se encuentra)

ARBOL:
======
+ Inicializar un nodo.
+ Saber si esta vacio.
+ Insertar un valor.
+ Eliminar un valor. (y extraerlo a la vez por si hiciese falta liberar memoria)
+ Destruir el arbol. (Pasa la informacion a una cola, porque esta es mas facil de liberar).
+ Buscar un valor. (retorna un puntero al valor hallado o NULL si no se encuentra)
+ Recorrido en orden. (se almacena en una cola que se pasa como parametro)
+ Recorrido pre orden.  (se almacena en una cola que se pasa como parametro)
+ Recorrido post orden.  (se almacena en una cola que se pasa como parametro)
+ Recorrido por niveles.  (se almacena en una cola que se pasa como parametro)


Para todas las estructuras, es posible liberar la memoria dinamicamente asignada por las funciones, pero de eso se ha de encargar el que utilice el codigo, ya que el codigo esta pensado para almacenar cualquier tipo de dato, y si existiese asignacion dinamica de memoria en los datos introducidos, cualquier referencia a ella se perderia si fuese borrado el nodo que la contiene sin antes haber recuperado la informacion que contenia. Para poder liberar la memoria se procedera recuperando los datos, eliminando por medio de las funciones facilitadas de la estructura correspondiente los datos recuperados y liberando si hiciese falta cualquier asignacion dinamica de memoria en los datos recuperados.

Todas las estructuras y funciones han sido testadas y parece que funcionan correctamente. Cualquier modificacion, critica, consejo, opinion, fallo que veais... constructivos, como siempre, seran bienvenidos.

Un ultimo apunte. Algunas de las funciones tienen declarado como parametro una funcion

Código (c) [Seleccionar] Expandir

int (*cmp)(void*,void*) Esta funcion la ha de aportar el usuario del codigo. Es un funcion para poder comparar los valores clave. He aqui algunos ejemplos:

Código (c) [Seleccionar] Expandir


int incmp(void* a,void* b)
{
   return *((int*)a) - *((int*)b;
}

int stringcmp(void* s1, void* s2)
{
   return strcmp((char*)s1,(char*)s2);
}

int fechacmp(void* f1,void* f2)
{
   if(((Fecha*)f1)->año > ((Fecha*)f2)->año)
       return 1; /* la primera fecha es mayor*/
   if(((Fecha*)f1)->año < ((Fecha*)f1)->año)
       return -1; /* la primera fecha es menor*/

   /* ... */
}


Muchas de las funciones reciven dos punteros a void. Esto se ha echo, para poder especificar un posible struct y el campo clave que sera utilizado por la funcion cmp.

Es decir si tenemos el siguiente struct

Código (c) [Seleccionar] Expandir


struct Tonteria
{
   int x;
   float y;
   char a;
};

y el campo clave es x, se dever de poner primero el puntero al struct y luego el campo clave.

El siguiente campo, size_t size, indica a las funciones cual es el tamaño total de la estructura.

En caso de que no se utilicen estructuras, es decir, cuando se utilicen datos elementales, ambos puntero deberan ser punteros al mismo dato.

Ejemplos:

Código (c) [Seleccionar] Expandir


#include "ADTlist.h"
#include "ADTlist.c" /* solo si no se va crear un proyecto */

struct Tonteria
{
   int x;
   float y;
   char a;
};
typedef struct Tonteria Tonteria;

int tonteriacmp(void* t1,void* t2);
int intcmp(void* a,void* b);

int main(int argc, char* argv[])
{
   Tonteria unaTonteria;
   ADTList *listaTonta=NULL, *listaInt=NULL;
   int entero=5;

   Tonteria.x = 7;

   ADTListInsert(&listaTonta, &unaTonteria, &unaTonteria.x, sizeof(Tonteria), tonteriacmp);

   ADTListInsert(&listaInt, &entero, &entero, sizeof(int), intcmp);

   return 0;
}

int tonteriacmp(void* t1,void* t2)
{
   return ((Tonteria*)t1)->x - ((Tonteria*)t2)->x;
}

int intcmp(void* a,void* b)
{
   return *((int*)a) - *((int*)b);
}



En el ejemplo se puede ver que todos los punteros a las estructuras que manejan las estructuras de datos han sido inicializados a NULL. No hacerlo conllevara la mayor parte de las veces un error en tiempo de ejecucion.

¡Saludos!

Para los interesados que hayan conseguido llegar hasta este punto, aqui dejo un enlace al codigo fuente. Las actualizaciones tanto en el post como en el enlace de descarga seran simultaneas.
TADEstructurasDatos.rar


TDA PILA
ADTstack.h

Código (c) [Seleccionar] Expandir


#ifndef ADT_STACK_H
#define ADT_STACK_H

#include <stdlib.h>
#include <string.h>

#ifndef ADT_STACK_FLAGS
#define ADT_STACK_FLAGS

   #define ADT_STACK_OK                0L
   #define ADT_STACK_NOT_ENOUGH_MEMORY 1L
   #define ADT_STACK_EMPTY_STACK       2L

#endif /* ADT_STACK_FLAGS */

struct ADTStackNode
{
   void *Data; /* guarda la informacion de los datos que maneja la pila */

   struct ADTStackNode *Next; /* apunta al siguiente elemento de la pila */
};
typedef struct ADTStackNode ADTStackNode;
typedef ADTStackNode* pADTStackNode;
typedef pADTStackNode ADTStack;

/* funcion para inicializar un nodo completamente a cero*/
void ADTStackNodeIni(pADTStackNode pNode);

/* Comprueba si top == NULL, equivalentemente, si la pila esta vacia */
int ADTStackIsEmpty(pADTStackNode top);

/* Guarda un valor en la pila. size == sizeof el tipo de dato al que apunta data. */
unsigned long ADTStackPush(pADTStackNode* top,void* data,size_t size);

/* Saca un valor de la pila y lo pone en data. size==sizeof el tipo de dato al que apunta data */
unsigned long ADTStackPop(pADTStackNode* top,void* data,size_t size);

#endif /* ADT_STACK_H */



ADTstack.c

Código (c) [Seleccionar] Expandir


#include "ADTstack.h"

void ADTStackNodeIni(pADTStackNode pNode)
{
   /* inicializamos a cero la variable */
   memset(pNode,0,sizeof(ADTStackNode));
}

int ADTStackIsEmpty(pADTStackNode top)
{
   return top==NULL;
}

unsigned long ADTStackPush(pADTStackNode* top,void* data,size_t size)
{
   pADTStackNode newNode=NULL; /* puntero al nodo que guardara la nueva informacion */

   /* intentamos asignar un nuevo nodo */
   if(!(newNode = (ADTStackNode *)malloc(sizeof(ADTStackNode))))
       return ADT_STACK_NOT_ENOUGH_MEMORY; /* si no se puede enviamos un aviso */

   /* inicalizamos el nuevo nodo */
   ADTStackNodeIni(newNode);

   /* intentamos asignar memoria para almacenar los datos que haya que introducir en la pila */
   if(!(newNode->Data = malloc(size)))
   {
       /* si no se puede asignar la memoria */
       free(newNode); /* liberamos la memoria anteriormente asignada */
       return ADT_STACK_NOT_ENOUGH_MEMORY; /* y devolvemos un aviso */
   }

   /* copiamos la informacion en el nuevo nodo */
   memcpy(newNode->Data , data , size);

   /* y hacemos que el nuevo nodo sea el superior de la pila */
   newNode->Next = (*top); /* pasando el nodo superior a ser el segundo */

   (*top) = newNode; /* y asignando el puntero superior al nuevo nodo*/

   return ADT_STACK_OK; /* todo correcto */
}

unsigned long ADTStackPop(pADTStackNode* top,void* data,size_t size)
{
   ADTStackNode *aux; /* para saber donde esta el segundo nodo una vez borrado el primero */

   /* no se podra sacar nada de una pila vacia */
   if((*top) == NULL)
       return ADT_STACK_EMPTY_STACK;

   /* apuntamos donde esta el segundo nodo */
   aux = (*top)->Next;

   /* copiamos el valor que sera borrado en data */
   memcpy(data , (*top)->Data , size);

   /* eliminamos la informacion contenida en el primer nodo */
   free((*top)->Data);

   /* liberamos el primer nodo */
   free(*top);

   /* y hacemos que el segundo nodo pase a ser el primero */
   (*top) = aux;

   return ADT_STACK_OK; /* todo correcto */
}

Ejemplo:

Código (c) [Seleccionar] Expandir


#include <stdio.h>

#include "ADTstack.h"

struct Tonteria
{
   char c;
   int x;
   float y;
};
typedef struct Tonteria Tonteria;

void mostrarTonteria(Tonteria *t);

int main()
{
   ADTStackNode *pilaTonta=NULL;
   Tonteria tontada;
   int i;

   printf("PUSH\n");
   printf("====\n");
   for(i=0 ; i < 10 ; i++)
   {
       tontada.c = rand() % (255 - 32) + 32; /* generamos un caracter imprimible */
       tontada.x = rand() % 100; /* 0 - 99 */
       tontada.y = tontada.x / 10.; /* 0 - 9'9 */

       /* mostramos la informacion */
       mostrarTonteria(&tontada);

       /* y la guardamos en la pila */
       ADTStackPush(&pilaTonta , &tontada , sizeof(Tonteria));
   }

   printf("\n");

   printf("Pulsar intro...");
   getchar();
   printf("\n");

   printf("POP\n");
   printf("===\n");

   while(!ADTStackIsEmpty(pilaTonta))
   {
       /* extraemos el valor superior, que sera almacenado en tontada */
       ADTStackPop(&pilaTonta , &tontada , sizeof(Tonteria));

       /* y lo mostramos para comprobar que los valores se invierten y que la pila funciona */
       mostrarTonteria(&tontada);
   }

   printf("\n");
   printf("Pulsar intro...");
   getchar();
   printf("\n");

   return 0;
}

void mostrarTonteria(Tonteria *t)
{
   printf("[%c , %02d , %3.1f]\n", t->c , t->x , t->y);
}



TDA COLA
ADTqueue.h

Código (c) [Seleccionar] Expandir


#ifndef ADT_QUEUE_H
#define ADT_QUEUE_H

#include <stdlib.h>
#include <string.h>

#ifndef ADT_QUEUE_FLAGS
#define ADT_QUEUE_FLAGS

   #define ADT_QUEUE_OK                0L
   #define ADT_QUEUE_NOT_ENOUGH_MEMORY 1L
   #define ADT_QUEUE_EMPTY_QUEUE       2L

#endif /* ADT_QUEUE_FLAGS */

struct ADTQueueNode
{
   void *Data;

   struct ADTQueueNode *First;
   struct ADTQueueNode *Last;
   struct ADTQueueNode *Next;
};
typedef struct ADTQueueNode ADTQueueNode;
typedef ADTQueueNode ADTQueue;
typedef ADTQueueNode* pADTQueueNode;

/* funcion para inicializar un nodo completamente a cero*/
void ADTQueueNodeIni(pADTQueueNode pNode);

/* Comprueba si la cola esta vacia */
int ADTQueueIsEmpty(pADTQueueNode queue);

/* Guarda un valor en la cabeza de la cola. size == sizeof el tipo de dato al que apunta data. */
unsigned long ADTQueueEnqueue(pADTQueueNode *first,pADTQueueNode *last,void* data,size_t size);

/* Saca un valor de la cola de la cola :P y lo pone en data. */
unsigned long ADTQueueDequeue(pADTQueueNode *first,pADTQueueNode *last,void* data,size_t size);

#endif /* ADT_QUEUE_H */



ADTqueue.c

Código (c) [Seleccionar] Expandir


#include "ADTqueue.h"

void ADTQueueNodeIni(pADTQueueNode pNode)
{
   /* ponemos la variable a cero */
   memset(pNode,0,sizeof(ADTQueueNode));
}

int ADTQueueIsEmpty(pADTQueueNode queue)
{
   /* comprobamos si hay datos o no en la cabeza de la cola */
   return queue->First == NULL;
}

unsigned long ADTQueueEnqueue(pADTQueueNode *first,pADTQueueNode *last,void* data,size_t size)
{
   ADTQueueNode *newNode; /* puntero a un nuevo nodo de la cola */

   /* si no podemos asignar memoria para el nuevo nodo */
   if(!(newNode = (ADTQueueNode *) malloc(sizeof(ADTQueueNode))))
       return ADT_QUEUE_NOT_ENOUGH_MEMORY; /* damos el aviso */

   /* inicializamos el nuevo nodo */
   ADTQueueNodeIni(newNode);

   /* si no podemos asignar espacio para que el nuevo nodo contenga datos */
   if(!(newNode->Data = malloc(size)))
   {
       free(newNode); /* eliminamos el espacio que ocupa el nodo */
       return ADT_QUEUE_NOT_ENOUGH_MEMORY; /* y damos el aviso */
   }

   /* copiamos la informacion en el nuevo nodo */
   memcpy(newNode->Data , data , size);

   /* si la lista esta vacia */
   if(!(*first))
       (*first) = newNode; /* la cabeza de la cola apunta al nuevo elemento */
   else /* sino */
       (*last)->Next = newNode; /* añadimos el nuevo elemento al final de la cola */

   (*last) = newNode; /* y el nuevo nodo pasa a ser el ultimo de la cola */

   return ADT_QUEUE_OK;
}

unsigned long ADTQueueDequeue(pADTQueueNode *first,pADTQueueNode *last,void* data,size_t size)
{
   ADTQueueNode* aux; /* puntero para no perder de vista el segundo elemento de la cola */

   /* si la cola esta vacia */
   if(!(*first))
       return ADT_QUEUE_EMPTY_QUEUE; /* avisamos de ello */

   /* guardamos la posicion del segundo elemento */
   aux = (*first)->Next;

   /* recuperamos los datos del primer elemento */
   memcpy(data , (*first)->Data , size);

   /* liberamos la informacion y el espacio del primer elemento */
   free((*first)->Data);
   free(*first);

   /* y hacemos que el segundo elemento pase a la cabeza de la cola */
   (*first) = aux;

   /* si no hay mas elementos */
   if(!(*first))
       (*last) = NULL; /* marcamos el ultimo tambien a NUlL */

   return ADT_QUEUE_OK; /* todo correcto */
}

Ejemplo:

Código (c) [Seleccionar] Expandir


#include <stdio.h>

#include "ADTqueue.h"

struct Tonteria
{
   char c;
   int x;
   float y;
};
typedef struct Tonteria Tonteria;

void mostrarTonteria(Tonteria *t);

int main()
{
   ADTQueueNode colaTonta;
   Tonteria tontada;
   int i;

   /* inicializamos de forma correcta el nodo inicial */
   ADTQueueNodeIni(&colaTonta);

   printf("ENQUEUE\n");
   printf("=======\n");

   for(i=0 ; i < 10 ; i++)
   {
       tontada.c = rand() % (255 - 32) + 32; /* generamos un caracter imprimible */
       tontada.x = rand() % 100; /* 0 - 99 */
       tontada.y = tontada.x / 10.; /* 0 - 9'9 */

       /* mostramos la informacion */
       mostrarTonteria(&tontada);

       /* y la guardamos en la cola */
       ADTQueueEnqueue(&colaTonta.First , &colaTonta.Last, &tontada , sizeof(Tonteria));
   }

   printf("\n");

   printf("Pulsar intro...");
   getchar();
   printf("\n");

   printf("\n");

   printf("DEQUEUE\n");
   printf("=======\n");

   /* mientras queden elementos en la cola */
   while(!ADTQueueIsEmpty(&colaTonta))
   {
       /* extraemos el valor superior, que sera almacenado en tontada */
       ADTQueueDequeue(&colaTonta.First , &colaTonta.Last, &tontada , sizeof(Tonteria));

       /* y lo mostramos para comprobar que los valores salen en orden y que la cola funciona */
       mostrarTonteria(&tontada);
   }

   printf("\n");
   printf("Pulsar intro...");
   getchar();
   printf("\n");

   return 0;
}

void mostrarTonteria(Tonteria *t)
{
   printf("[%c , %02d , %3.1f]\n", t->c , t->x , t->y);
}


TDA LISTA
ADTlist.h

Código (c) [Seleccionar] Expandir


#ifndef ADT_LIST_H
#define ADT_LIST_H

#include <stdlib.h>
#include <string.h>

#include "ADTqueue.h"

#ifndef ADT_LIST_FLAGS
#define ADT_LIST_FLAGS

   #define ADT_LIST_OK                0L
   #define ADT_LIST_NOT_ENOUGH_MEMORY 1L
   #define ADT_LIST_EMPTY_LIST        2L
   #define ADT_LIST_ITEM_NOT_FOUND    4L

#endif /* ADT_LIST_FLAGS */

struct ADTListNode
{
   void *Data;

   struct ADTListNode *Next;
};
typedef struct ADTListNode ADTListNode;
typedef struct ADTListNode ADTList;
typedef struct ADTListNode* pADTListNode;

/* inicializamos la estructura para futuros usos */
void ADTListNodeIni(pADTListNode pNode);

/* comprueba si la lista esta vacia */
int ADTListIsEmpty(pADTListNode List);

/* inserta un nuevo item en la lista */
unsigned long
ADTListInsert(pADTListNode *List, void *data, void *key, size_t size, int (*cmp)(void*,void*));

/* elimina un item de la lista */
unsigned long
ADTListDelete(pADTListNode *List, void *data, void *key, size_t size, int (*cmp)(void*,void*));

/* busqueda de items en la lista */
void* ADTListSearch(pADTListNode *List, void *data, void *key, int (*cmp)(void*,void*));

/* libera la memoria ocupada por la lista y la pasa a una cola, que es mas facil de liberar */
unsigned long ADTListDestroy(pADTListNode *List, size_t dataSize , ADTQueueNode *pQueue);

/* retorna el primer elemento de la lista (facilita la liberacion de la memoria) */
unsigned long
ADTListFirst(pADTListNode *List, void *data, size_t size);

#endif /* ADT_LIST_H */


ADTlist.c

Código (c) [Seleccionar] Expandir


#include "ADTlist.h"

void ADTListNodeIni(pADTListNode pNode)
{
   /* inicializamos los datos a cero */
   memset(pNode,0,sizeof(ADTListNode));
}

int ADTListIsEmpty(pADTListNode List)
{
   /* ¬¬ */
   return List==NULL;
}

unsigned long
ADTListInsert(pADTListNode *List, void *data, void *key, size_t size, int (*cmp)(void*,void*))
{
   /* punteros para no perdes la pista al nodo anterior y siguiente de la busqueda de la posicion
   del nuevo elemento, y el ultimo puntero sirve para asignar la memoria del nuevo dato */
   ADTListNode *previous,*current,*newNode;

   /* intentamos asignar memoria para el nuevo nodo */
   if(!(newNode = (ADTListNode*) malloc(sizeof(ADTListNode))))
       return ADT_LIST_NOT_ENOUGH_MEMORY; /* si no se puede damos el aviso */

   /* inicializamos el nuevo nodo */
   ADTListNodeIni(newNode);

   /* si no se puede asignar memoria para el nuevo dato */
   if(!(newNode->Data = malloc(size)))
   {
       free(newNode); /* liberamos la memoria del nodo */
       return ADT_LIST_NOT_ENOUGH_MEMORY; /* y avisamos de lo sucedido */
   }

   /* copiamos al nuevo nodo los datos que se quieren guardar */
   memcpy(newNode->Data , data , size);

   /* inicalizamos los punteros auxiliares */
   previous = NULL;
   current = (*List);

   /* mientras no se haya alcalzado el final de la lista y la comparacion del nuevo elemento con
   el actual sea mayor (se insertaran por orden creciente de valores de comparacion) */
   while(current && cmp(key , (char*)(current->Data) + ((char*)key - (char*)data))>0)
   {
       previous = current; /* el puntero actual pasa a ser el anterior */
       current = current->Next; /* el puntero siguiente al actual pasa a ser el actual */
   }

   /* si no hay elemento anterior, no se ha realizado ninguna iteracio, por lo que el nuevo
   elemento debe ser el primero de la lista*/
   if(!previous)
   {
       newNode->Next = (*List);
       (*List) = newNode;
   }
   else /* si existe un nodo anterior */
   {
       /* el nuevo valor tiene que intercalarse entre el anterior y el actual */
       previous->Next = newNode;
       newNode->Next = current;
   }

   return ADT_LIST_OK; /* todo correcto */
}

unsigned long
ADTListDelete(pADTListNode *List, void *data, void *key, size_t size, int (*cmp)(void*,void*))
{
   /* punteros auxiliares para controlar la posicion del nodo que debe ser borrado */
   ADTListNode *previous,*current;

   /* no se puede eliminar nada de una lista vacia */
   if(!(*List))
       return ADT_LIST_EMPTY_LIST;

   /* iniciazliamos los punteros auxiliares */
   previous = NULL;
   current = (*List);

   /* mientras no se haya alcalzado el final de la lista y la comparacion del nuevo elemento con
   el actual sea mayor (los elementos estan insertados por orden creciente) */
   while(current && cmp(key ,(char*)(current->Data) + ((char*)key - (char*)data))>0)
   {
       previous = current; /* anterior = actual */
       current = current->Next; /* el siguiente al actual pasa a ser el nuevo actual */
   }

   /* si se ha alcanzado el final de la lista */
   if(!current)
       return ADT_LIST_ITEM_NOT_FOUND; /* significa que el elemento no existe */

   /* si la comparacion no es igual */
   if(cmp(key ,(char*)(current->Data) + ((char*)key - (char*)data)))
       return ADT_LIST_ITEM_NOT_FOUND; /* el elemento no existe */

   /* copiamos la informacion contenida antes de borrar el nodo */
   memcpy(data , current->Data , size);

   /* si no hay anterior*/
   if(!previous)
       (*List) = (*List)->Next; /* hay que eliminar el primer nodo */
   else /* sino */
       previous->Next = current->Next /* el anterior salta al actual */;

   /* liberamos los datos del nodo y el propio nodo */
   free(current->Data);
   free(current);

   return ADT_LIST_OK; /* todo correcto */
}

void* ADTListSearch(pADTListNode *List, void *data, void *key, int (*cmp)(void*,void*))
{
   /* puntero auxiliar para recorrer la lista */
   ADTListNode *current;

   current = (*List);

   /* mientras no se haya alcalzado el final de la lista y la comparacion del nuevo elemento con
   el actual sea mayor (se insertaran por orden creciente de valores de comparacion) */
   while(current && cmp(key ,(char*)(current->Data) + ((char*)key - (char*)data))>0)
       current = current->Next;

   /* si se ha alcanzado el final de la lista */
   if(!current)
       return NULL; /* no se ha encontrado el elemento y se devuelve NULL */

   /* si el elemento actual es mayor que el buscado, el elemento buscado no existe */
   if(cmp(key ,(char*)(current->Data) + ((char*)key - (char*)data)))
       return NULL;

   /* retornamos un puntero al valor encontrado */
   return current->Data;
}

unsigned long ADTListDestroy(pADTListNode *List, size_t dataSize , ADTQueueNode *pQueue)
{
   unsigned long ret;

   /* lista vacia o final de la lista */
   if(!(*List))
       return ADT_LIST_EMPTY_LIST; /* avisamos */

   /* almacenamos el valor de retorno para ver que ha sucedido al eliminar el resto de nodos */
   ret = ADTListDestroy(&((*List)->Next) , dataSize , pQueue);

   /* los unicos valores que retorna la funcion de forma directa son ADT_LIST_EMMPTY_LIST, que
      indica que se ha llegado al final de la lista, o ADT_LIST_OK, que indica que de momento no
      ha ocurrido ningun error. Ambos valores son indicativos de que no hay errores.

      Si ADTQueueEnqueue retorna ADT_QUEUE_OK, este valor es igual a ADT_LIST_OK por definicion

      El resto de los valores que puede retornar provienen de algun posible error a la hora de
      manipular la cola que almacenara los datos de la lista
   */
   if(ret == ADT_LIST_EMPTY_LIST || ret == ADT_LIST_OK)
   {
       /* en este punto no ha habido ningun error */

       /* intentamos almacenar el siguiente valor en la cola */
       if(!(ret = ADTQueueEnqueue(&(pQueue->First), &(pQueue->Last), (*List)->Data, dataSize)))
       {
           /* se ha podido insertar el valor en la cola */

           /* liberamos la informacion contenida en el nodo actual y el propio nodo */
           free((*List)->Data);
           free((*List));

           return ADT_LIST_OK; /* y avisamos de que todo va bien */
       }
   }

   /* si se llega a este punto, ha habido algun error */
   return ret; /* avisamos del error ocurrido */
}

unsigned long
ADTListFirst(pADTListNode *List, void *data, size_t size)
{
   /* no hay primer elemento en una lista vacia */
   if(!(*List))
       return ADT_LIST_EMPTY_LIST;

   /* copiamos la informacion del primer elemento */
   memcpy(data , (*List)->Data , size);

   return ADT_LIST_OK; /* todo correcto */
}

Ejemplo:

Código (c) [Seleccionar] Expandir


#include <stdio.h>

#include "ADTlist.h"

struct Tonteria
{
   char c;
   int x;
   float y;
};
typedef struct Tonteria Tonteria;

int intcmp(void *a,void *b);
void mostrarTonteria(Tonteria *t);

int main()
{
   ADTListNode *listaTonta=NULL;
   Tonteria tontada , *pTonto;
   int i;

   printf("INSERCION\n");
   printf("=========\n");

   for(i=0 ; i < 10 ; i++)
   {
       tontada.c = rand() % (255 - 32) + 32; /* generamos un caracter imprimible */
       tontada.x = rand() % 100; /* 0 - 99 */
       tontada.y = tontada.x / 10.; /* 0 - 9'9 */


       /* mostramos la informacion */
       mostrarTonteria(&tontada);

       /* y la guardamos en la lista ordenando los elementos por el valor x */
       ADTListInsert(&listaTonta , &tontada , &tontada.x , sizeof(Tonteria) , intcmp);
   }

   printf("\n");

   getchar();

   printf("BUSQUEDA\n");
   printf("========\n");

   /* aunque no se retorne ningun valor en tontada, es necesario pasar el puntero para que la
   funcion puede calcular el desplazamiento que tiene el campo clave dentro del struct */
   if((pTonto = (Tonteria*) ADTListSearch(&listaTonta , &tontada , &tontada.x , intcmp)))
   {
       printf("%d se encuentra en la lista.\n",pTonto->x);
   }
   else
   {
       printf("%d no se encuentra en la lista.\n",tontada.x);
   }

   tontada.x = 5;

   if((pTonto = (Tonteria*) ADTListSearch(&listaTonta , &tontada , &tontada.x , intcmp)))
   {
       printf("%d se encuentra en la lista.\n",pTonto->x);
   }
   else
   {
       printf("%d no se encuentra en la lista.\n",tontada.x);
   }

   tontada.x = 27;

   if((pTonto = (Tonteria*) ADTListSearch(&listaTonta , &tontada , &tontada.x , intcmp)))
   {
       printf("%d se encuentra en la lista.\n",pTonto->x);
   }
   else
   {
       printf("%d no se encuentra en la lista.\n",tontada.x);
   }

   printf("\n");

   getchar();

   printf("ELIMINAR DATO\n");
   printf("=============\n");

   tontada.x = 27;

   ADTListDelete(&listaTonta , &tontada , &tontada.x , sizeof(Tonteria) , intcmp);

   if((pTonto = (Tonteria*) ADTListSearch(&listaTonta , &tontada , &tontada.x , intcmp)))
   {
       printf("%d se encuentra en la lista.\n",pTonto->x);
   }
   else
   {
       printf("%d no se encuentra en la lista.\n",tontada.x);
   }

   printf("\n");

   getchar();

   printf("VACIADO\n");
   printf("=======\n");

   while(!ADTListIsEmpty(listaTonta))
   {
       ADTListFirst(&listaTonta , &tontada , sizeof(Tonteria));

       ADTListDelete(&listaTonta , &tontada , &tontada.x ,sizeof(Tonteria) , intcmp);

       printf("Eliminado: ");

       mostrarTonteria(&tontada);
   }

   getchar();

   return 0;
}

int intcmp(void *a,void *b)
{
   return *((int*)a) - *((int*)b);
}

void mostrarTonteria(Tonteria *t)
{
   printf("[%c , %02d , %3.1f]\n", t->c , t->x , t->y);
}



TDA ARBOL BINARIO
ADTbintree.h

Código (c) [Seleccionar] Expandir


#ifndef ADT_BINTREE_H
#define ADT_BINTREE_H

#include <stdlib.h>
#include <string.h>

#include "ADTqueue.h"

#ifndef ADT_BINTREE_FLAGS
#define ADT_BINTREE_FLAGS

   #define ADT_BINTREE_OK                0L
   #define ADT_BINTREE_NOT_ENOUGH_MEMORY 1L
   #define ADT_BINTREE_EMPTY_BINTREE     2L
   #define ADT_BINTREE_ITEM_NOT_FOUND    4L
   #define ADT_BINTREE_DUPLICATED_ITEM   8L

#endif /* ADT_BINTREE_FLAGS */

struct ADTBinTreeNode
{
   void *Data;

   struct ADTBinTreeNode* Left;
   struct ADTBinTreeNode* Right;
};
typedef struct ADTBinTreeNode ADTBinTreeNode;
typedef ADTBinTreeNode ADTBinTree;
typedef ADTBinTreeNode* pADTBinTreeNode;

/* inicializa a cero la estructura para que funcine correctamente cuando sea utilizada */
void ADTBinTreeNodeIni(pADTBinTreeNode pNode);

/* determina si el arbol esta vacio */
int ADTBinTreeIsEmpty(pADTBinTreeNode Root);

/* insterta un nuevo dato en el arbol, eliminando duplicados de forma automatica */
unsigned long
ADTBinTreeInsert(pADTBinTreeNode *Root, void *data, void *key, size_t size, int (*cmp)(void*,void*));

/* elimina un dato del arbol */
unsigned long
ADTBinTreeDelete(pADTBinTreeNode *Root, void *data, void *key, size_t size, int (*cmp)(void*,void*));

/* busca a traves del campo clave key un elemento del arbol, guarda la info en data y devuelve un
puntero al dato encontrado si existe, en caso contrario devuelve NULL */
void* ADTBinTreeSearch(pADTBinTreeNode *Root, void *data, void *key, int (*cmp)(void*,void*));

/* libera la memoria ocupada por el arbol y la pasa a una cola, que es mas facil de liberar */
unsigned long ADTBinTreeDestroy(pADTBinTreeNode *Root, size_t dataSize , ADTQueueNode *pQueue);

/* recorrido en orden del arbol. Los datos se almacenan en la cola *pQueue */
unsigned long ADTBinTreeInOrder(ADTBinTreeNode* Root,size_t dataSize,ADTQueueNode* pQueue);

/* recorrido preorden del arbol. Los datos se almacenan en la cola *pQueue */
unsigned long ADTBinTreePreOrder(ADTBinTreeNode* Root,size_t dataSize,ADTQueueNode* pQueue);

/* recorrido post orden del arbol. Los datos se almacenan en la cola *pQueue */
unsigned long ADTBinTreePostOrder(ADTBinTreeNode* Root,size_t dataSize,ADTQueueNode* pQueue);

/* recorrido por niveles del arbol. Los datos se almacenan en la cola *pQueue */
unsigned long ADTBinTreeLevelOrder(ADTBinTreeNode* Root,size_t dataSize,ADTQueueNode* pQueue);

#endif /* ADT_BINTREE_H */


ADTbintree.c
[code=c]
#include "ADTbintree.h"

void ADTBinTreeNodeIni(pADTBinTreeNode pNode)
{
    /* ponemos a cero la estructura al completo */
    memset(pNode , 0 , sizeof(ADTBinTreeNode));
}

int ADTBinTreeIsEmpty(pADTBinTreeNode Root)
{
    /* evidente. */
    return Root == NULL;
}

unsigned long
ADTBinTreeInsert(pADTBinTreeNode *Root, void *data, void *key, size_t size, int (*cmp)(void*,void*))
{
    /* si hemos llegado a un nodo vacio, se guardara en el la nueva informacion */
    if(!(*Root))
    {
        /* si no conseguimos reservar memoria para el nuevo nodo */
        if(!((*Root) = (ADTBinTreeNode*) malloc(sizeof(ADTBinTreeNode))))
            return ADT_BINTREE_NOT_ENOUGH_MEMORY; /* avisamos de lo sucedido */

        /* inicializamos el nuevo nodo para evitar errores */
        ADTBinTreeNodeIni(*Root);

        /* si no podemos asignar memoria para el nuevo dato */
        if(!((*Root)->Data = malloc(size)))
        {
            /* eliminamos la memoria asignada para el nuevo nodo */
            free(*Root);
            /* dejamos el puntero a NULL para identificarlo como libre en llamadas sucesivas */
            (*Root) = NULL;

            return ADT_BINTREE_NOT_ENOUGH_MEMORY; /* y avisamos de lo sucedido */
        }

        /* llegados a este punto se ha podido asignar toda la memoria necesaria */

        /* copiamos el nuevo valor en el nodo */
        memcpy((*Root)->Data , data , size);

        return ADT_BINTREE_OK; /* y avisamos de que se ha podido guardar el dato */
    }

    /* si el campo clave da una comparacion menor */
    if(cmp(key , (char*)((*Root)->Data) + ((char*)key - (char*)data)) < 0)
    {
        /* el valor se guardara en el nodo izquierdo */
        return ADTBinTreeInsert(&((*Root)->Left) , data , key , size , cmp);
    }
    else if(cmp(key , (char*)((*Root)->Data) + ((char*)key - (char*)data)) > 0)
    {
        /* si la comparacion da mayor, entonces se guardara en el derecho */
        return ADTBinTreeInsert(&((*Root)->Right) , data , key , size , cmp);
    }

    /* si se llega aqui significa que la comparacion da cero como resultado, por lo que el nodo
    ya esixte en el arbol */
    return ADT_BINTREE_DUPLICATED_ITEM; /* avisamos de que el valor ya existia */
}

unsigned long
ADTBinTreeDelete(pADTBinTreeNode *Root, void *data, void *key, size_t size, int (*cmp)(void*,void*))
{
    /* punteros auxiliars para recorrer el arbol, apuntar al nodo de reemplazo y al nodo borrado*/
    pADTBinTreeNode *reader,replacement,aux;

    /* Si la raiz esta vacia, o el arbol esta vacio o no se ha encontrado el elemento */
    if(!(*Root))
        return ADT_BINTREE_ITEM_NOT_FOUND; /* siempre avisaremos de que no existe el elemento */

    /* si encontramos una coincidencia*/
    if(cmp(key , (char*)((*Root)->Data) + ((char*)key - (char*)data)) == 0)
    {
        /* recuperamos la informacion del nodo para liberar, si procede, memoria dinamica */
        memcpy(data , (*Root)->Data , size);

        /* *Root es el puntero del nodo padre que apunta al nodo que hay que eliminar */
        aux = (*Root); /* recordamos donde esta el nodo que hay que eliminar */

        /* si el nodo que hay que eliminar es un nodo sin hijos */
        if(!aux->Left && !aux->Right)
        {
            /* liberamos la informacion contenida en el nodo y tambien el nodo */
            free(aux->Data);
            free(aux);

            /* e identificamos el puntero del nodo padre como un puntero libre */
            (*Root) = NULL;

            return ADT_BINTREE_OK; /* avisamos de que todo ha ido bien */
        }

        /*
         * Si el nodo que ha de ser borrado es un nodo con un solo hijo, dicho hijo sera el nodo
         * de reemplazo, por lo que pasara a acupar el lugar del nodo borrado.
         */
        if(!aux->Left && aux->Right)
        {
            (*Root) = aux->Right;

            free(aux->Data);
            free(aux);

            return ADT_BINTREE_OK;
        }

        if(aux->Left && !aux->Right)
        {
            (*Root) = aux->Left;

            free(aux->Data);
            free(aux);

            return ADT_BINTREE_OK;
        }

        /* llegados a este punto, sabemos que el nodo que ha de ser borrado tiene dos hijos */

        /* utilizaremos como nodo de reemplazo el mayor de los nodos menores */

        reader = &((*Root)->Left);

        /* buscar el mayor de los nodos menores*/
        while((*reader)->Right)
            reader = &((*reader)->Right);

        /* apuntamos al nodo de reemplazo*/
        replacement = (*reader);

        /* Asignamos al puntero del nodo padre que apunta al nodo de reemplazo la rama izda, ya
        que cualquier nodo de esta rama es mayor que el nodo padre (recordar que hemos ido hacia
        derecha, lo que implica que siempre hemos buscado valores cada vez mayores, y por lo tento
        (*reader) apunta al nodo derecho del padre del nodo de reemplazo */
        (*reader) = (*reader)->Left;

        /* como el nodo de reemplazo es el menor de todos los nodos mayores que el que hay que
        eliminar, en particular sera mayor que todo el subarbol izquierdo del nodo a eliminar y
        como hemos buscado el mayor de los valores menores, en particular sera menor que cualquier
        nodo mayor que el que queremos eliminar. Es decir, el subarbol izquierdo del nodo de
        eliminado sera el subarbol izquierdo del nodo de reemplazo y el subarbol derecho del nodo
        eliminado el derecho del nodo de reemplazo */
        replacement->Left = (*Root)->Left;
        replacement->Right = (*Root)->Right;

        /* En este punto ya tenemos la estructura final del arbol tras eliminar el nodo */

        /* pasamos a eliminar la informacion contenida en el nodo que hay que eliminar y el mismo
        nodo */
        free(aux->Data);
        free(aux);

        /* y hacemos que el puntero del nodo padre apunte al nodo de reemplazo */
        (*Root) = replacement;

        return ADT_BINTREE_OK; /* todo correcto */
    }


    /* si el valor clave es menor que el valor del nodo*/
    if(cmp(key , (char*)((*Root)->Data) + ((char*)key - (char*)data)) < 0)
    {
        /* buscamos el nodo que hay que eliminar en el subarbol izquierdo */
        return ADTBinTreeDelete(&((*Root)->Left) , data , key , size , cmp);
    }
    else if(cmp(key , (char*)((*Root)->Data) + ((char*)key - (char*)data)) > 0)
    {
        /* sino lo buscamos en el derecho */
        return ADTBinTreeDelete(&((*Root)->Right) , data , key , size , cmp);
    }

    return ADT_BINTREE_ITEM_NOT_FOUND; /* para evitar warnings del compilador */
}

void* ADTBinTreeSearch(pADTBinTreeNode *Root, void *data, void *key, int (*cmp)(void*,void*))
{
    /* si se ha llegado a un nodo vacio */
    if(!(*Root))
        return NULL; /* no existe el elemento buscado */

    /* si el elemento buscado coincide con el del nodo */
    if(cmp(key , (char*)((*Root)->Data) + ((char*)key - (char*)data)) == 0)
        return (*Root)->Data; /* devolvemos un puntero al dato que contiene el nodo */


    /* si el campo clave es menor */
    if(cmp(key , (char*)((*Root)->Data) + ((char*)key - (char*)data)) < 0)
    {
        /* buscamos en el subarbol izquierdo */
        return ADTBinTreeSearch(&((*Root)->Left) , data , key , cmp);
    }
    else if(cmp(key , (char*)((*Root)->Data) + ((char*)key - (char*)data)) > 0)
    {
        /* si es mayor, buscamos en el derecho */
        return ADTBinTreeSearch(&((*Root)->Right) , data , key , cmp);
    }

    return NULL; /* para evitar warnings del compilador */
}

unsigned long ADTBinTreeDestroy(pADTBinTreeNode *Root, size_t dataSize , ADTQueueNode *pQueue)
{
    unsigned long ret;

    /* arbol vacio o nodo libre */
    if(!(*Root))
        return ADT_BINTREE_EMPTY_BINTREE; /* avisamos */

    /* almacenamos el valor de retorno para ver que ha sucedido al eliminar el resto de nodos */

    ret = ADTBinTreeDestroy(&((*Root)->Left) , dataSize , pQueue);

    /* los unicos valores que retorna la funcion de forma directa son
       ADT_BINTREE_EMPTY_BINTREE, que indica que se ha llegado a un nodo libre, o ADT_BINTREE_OK,
       que indica que de momento no ha ocurrido ningun error. Ambos valores son indicativos de
       que no hay errores.

       Si ADTQueueEnqueue retorna ADT_QUEUE_OK este valor es igual a ADT_BINTREE_OK por definicion

       El resto de los valores que puede retornar provienen de algun posible error a la hora de
       manipular la cola que almacenara los datos de la lista
    */

    if(ret != ADT_BINTREE_OK && ret != ADT_BINTREE_EMPTY_BINTREE)
        return ret; /* avisamos de que ha ocurrido algun error */

    /* almacenamos el valor de retorno para ver que ha sucedido al eliminar el resto de nodos */
    ret = ADTBinTreeDestroy(&((*Root)->Right) , dataSize , pQueue);

    if(ret == ADT_BINTREE_EMPTY_BINTREE || ret == ADT_BINTREE_OK)
    {
        /* en este punto no ha habido ningun error */

        /* intentamos almacenar el siguiente valor en la cola */
        if(!(ret = ADTQueueEnqueue(&(pQueue->First), &(pQueue->Last), (*Root)->Data, dataSize)))
        {
            /* se ha podido insertar el valor en la cola */

            /* Tanto el subarbol izquierdo como el derecho han sido eliminados asi que ahora
               liberamos la informacion contenida en el nodo actual y el propio nodo */
            free((*Root)->Data);
            free(*Root);

            return ADT_BINTREE_OK; /* y avisamos de que todo va bien */
        }
    }

    /* si se llega a este punto, ha habido algun error */
    return ret; /* avisamos del error ocurrido */
}

unsigned long ADTBinTreeInOrder(ADTBinTreeNode* Root,size_t dataSize,ADTQueueNode* pQueue)
{
    if(Root)
    {
        void *data;
        unsigned long ret;

        /* si no se puede asignar memoria suficiente para almacenar los datos manejados */
        if(!(data = malloc(dataSize)))
        {
            return ADT_BINTREE_NOT_ENOUGH_MEMORY; /* avisamos de lo ocurrido */
        }

        /* buscamos siempre el elemento mas pequeño */
        ADTBinTreeInOrder(Root->Left,dataSize,pQueue);

        /* lo almacenamos */
        /* si ocurre algun error al almacenar el valor en la cola */
        if((ret = ADTQueueEnqueue(&(pQueue->First),&(pQueue->Last),Root->Data,dataSize)))
        {
            /* vaciamos la cola */
            while(!ADTQueueEnqueue(&(pQueue->First),&(pQueue->Last),data,dataSize));

            /* liberamos la memoria auxiliar */
            free(data);

            return ret; /* y avisamos de lo ocurrido */
        }

        /* y seguimos obteniendo los que son mayores */
        ADTBinTreeInOrder(Root->Right,dataSize,pQueue);

        free(data);

        return ADT_BINTREE_OK;
    }

    return ADT_BINTREE_EMPTY_BINTREE;
}

unsigned long ADTBinTreePreOrder(ADTBinTreeNode* Root,size_t dataSize,ADTQueueNode* pQueue)
{
    if(Root)
    {
        void *data; /* si ocurriese algun error la utilizaremos para vaciar la pila */
        unsigned long ret; /* si hay errores almacenara el valor que hay que retornar */

        /* si no se puede asignar memoria suficiente para almacenar los datos manejados */
        if(!(data = malloc(dataSize)))
        {
            return ADT_BINTREE_NOT_ENOUGH_MEMORY; /* avisamos de lo ocurrido */
        }

        /* primero se extrae el valor del nodo actual */

        /* si ocurre algun error al almacenar el valor en la cola */
        if((ret = ADTQueueEnqueue(&(pQueue->First),&(pQueue->Last),Root->Data,dataSize)))
        {
            /* vaciamos la cola */
            while(!ADTQueueEnqueue(&(pQueue->First),&(pQueue->Last),data,dataSize));

            /* liberamos la memoria signada para almacenar los datos */
            free(data);

            /* y damos aviso de lo ocurrido */
            return ret;
        }

        /* y luego los de los hijos */
        ADTBinTreePreOrder(Root->Left,dataSize,pQueue);

        ADTBinTreePreOrder(Root->Right,dataSize,pQueue);

        free(data);

        return ADT_BINTREE_OK;
    }

    return ADT_BINTREE_EMPTY_BINTREE;
}

unsigned long ADTBinTreePostOrder(ADTBinTreeNode* Root,size_t dataSize,ADTQueueNode* pQueue)
{
    if(Root)
    {
        void *data;
        unsigned long ret;

        /* si no se puede asignar memoria suficiente para almacenar los datos manejados */
        if(!(data = malloc(dataSize)))
        {
            return ADT_BINTREE_NOT_ENOUGH_MEMORY; /* avisamos de lo ocurrido */
        }

        /* primero se extraen los hijos */
        ADTBinTreeInOrder(Root->Left,dataSize,pQueue);

        ADTBinTreeInOrder(Root->Right,dataSize,pQueue);

        /* y luego el padre */
        /* si ocurre algun error al almacenar el valor en la cola */
        if((ret = ADTQueueEnqueue(&(pQueue->First),&(pQueue->Last),Root->Data,dataSize)))
        {
            /* vaciamos la cola */
            while(!ADTQueueEnqueue(&(pQueue->First),&(pQueue->Last),data,dataSize));

            /* liberamos la memoria auxiliar */
            free(data);

            return ret; /* y avisamos de lo ocurrido */
        }

        free(data);

        return ADT_BINTREE_OK;
    }

    return ADT_BINTREE_EMPTY_BINTREE;
}

unsigned long ADTBinTreeLevelOrder(ADTBinTreeNode* Root,size_t dataSize,ADTQueueNode* pQueue)
{
    if(Root)
    {
        /*
         * variable auxiliares para:
         *
         * - Almacenar los nodos del arbol.
         *
         * - Crear una lista para almacenar los nodos del arbol y vaciar la cola auxiliar si
         *   hubiese un error
         *
         * - Reservar memoria para vaciar la cola si ocurriese un error
         *
         * - Recivir el valor de retorno tras la insercion de un dato en la cola.
         */

        ADTBinTreeNode auxTreeNode;
        ADTQueueNode auxQueue;
        void *data;
        unsigned long ret=0;

        /* si no se puede asignar memoria suficiente para almacenar los datos manejados */
        if(!(data = malloc(dataSize)))
            return ADT_BINTREE_NOT_ENOUGH_MEMORY; /* avisamos de lo ocurrido */

        /* inicializamos la cola */
        ADTQueueNodeIni(&auxQueue);

        /* introducimos el nodo raiz del arbol en la cola auxiliar */
        /* si ocurre algun error al almacenar el valor en la cola auxiliar */
        if((ret=ADTQueueEnqueue(&auxQueue.First , &auxQueue.Last , Root , sizeof(ADTBinTreeNode))))
        {
            /* liberamos la memoria */
            free(data);

            return ret; /* y avisamos de lo sucedido */
        }

        /* mientras haya valores en la cola auxiliar */
        while(!ADTQueueIsEmpty(&auxQueue))
        {
            /* sacamos el nodo actual */
            ADTQueueDequeue(&auxQueue.First,&auxQueue.Last,&auxTreeNode,sizeof(ADTBinTreeNode));

            /* intentamos guardar el dato que contiene en la cola */
            /* si ocurre algun error al almacenar el valor en la cola */
            if((ret=ADTQueueEnqueue(&(pQueue->First), &(pQueue->Last), auxTreeNode.Data, dataSize)))
            {
                /* vaciamos la cola auxiliar*/
                while(!
                    ADTQueueDequeue(&auxQueue.First,&auxQueue.Last,&auxTreeNode,
                                    sizeof(ADTBinTreeNode))
                     );

                /* vaciamos la cola */
                while(!ADTQueueDequeue(&(pQueue->First) , &(pQueue->Last) , data , dataSize));

                /* liberamos la memoria */
                free(data);

                /* y avidamos del error */
                return ret;
            }

            /* si el nodo extraido tiene un hijo de menor valor */
            if(auxTreeNode.Left)
            {
                /* lo almacenamos en la cola auxiliar */
                /* si ocurre algun error al almacenar el valor en la cola auxiliar */
                if(
                    (ret = ADTQueueEnqueue(&auxQueue.First,&auxQueue.Last,auxTreeNode.Left,
                                &nbs

¡Buenas a todos!

No se si este es el subforo correspondiente a la pregunta. Si no es asi que sea trasladado donde corresponda.

Bueno, pues el asunto deja clara mi duda. Tengo una seria de codigos (headers e implementaciones de ellos) que me gustaria que estuviesen bajo licencia GPL, pero no tengo ni la mas remota idea del proceso que hay que seguir para que esten bajo esta licencia.

He ojeado algo lo que es la pagina de la FSF, pero mi ingles es bastante escueto, asi que no he sabido ni por donde empezar.

Agradeceria cualquier orientacion o explicacion.

Un saludo y gracias de ante mano.

¡Muy buenas!

Acabo de hacer un programa que tiene que manipular los valores del fichero preferences.ini del eMule. En mi ordenador, con winXP no hay ningun problema, el fichero esta dentro de la carpeta config en el directorio del eMule.

El problema esta en Windows Vista, que me estoy volviendo loco buscando el dichoso fichero y no lo encuentro por ningun lado. Incluso el buscador me dice que no hay ningun fichero con ese nombre, pero creo que por algun lado tiene que estar, ya que de una ejecucion a otra, eMule mantiene las modificaciones de configuracion que aplico.

¿Sabeis donde puede estar el fichero?

¡Gracias!

PD: Jugando con Mr. Google ya lo he encontrado. Para el que le haga falta...

C:\ProgramData\eMule\config

¡Saludos!

¡Buenas!

Por si la pregunta genera dudas me explico. Por ejemplo, para manejar imagenes, a la hora de hacer un programa que cree un fichero de imagen y/o lo manipule, lo mas facil es el formato BMP, ya que la imagen se guarda (por regla general) a lo bestia, describiendo los pixeles en RGB, y en el encabezado del fichero, en unos pocos bytes, esta toda la informacion necesaria para describir el fichero.

En el caso del video, ¿existe algun formato parecido?, por ejemplo, un encabezado en el que en unos pocos bytes se diga el numero y dimensiones de los fotogramas, y luego venga cada uno de los fotogramas... o algo sencillo... No me hace falta utilizar audio.

¡Gracias y hasta luego!

[seguridad/criptografia]

¡Muy buenas a todos!

Estoy trabajndo en un programa que estganografia un determinado texto en un archivo bmp, y me estoy encontrando que (al parecer) hay muy poca informacion sobre la estructura interna de los ficheros bmp. Hasta ahora he conseguido informacion util sobre este formato, siempre y cuando trate con ficheros sin compresion con 24 bits por color, y algo mas detallado sobre las cabeceras de Bitmap de las versiones 2, 3 y 4. Tambien he encontrado informacion sobre compresion RLE4 y RLE8.

Lo que no he conseguido encontrar es infomracion sobre la compresion con campos de bits (tipo de compresion 3 para la version 3 en winNT), o la estructura de la informacion de los pixeles en si para pixeles codificados con 1, 4, 8 o 32 bits.

Si alguien sabe donde podria encontrar esta informacion, o pudiese dejarme algun enlace a algun manual o descripcion sobre la estructura interna y tipos de compresion en el formato bmp, se lo agradecria mucho.

¡Muchas gracias de antemano y un saludo!

PD: Se me ha ocurrido que si despues de un tiempo, no hubiese respuesta, igual se podria trasladar el post al subforo seguridad/criptografia.  El moderador decide.

¡Saludos!

Muy buenas a todos.

En el warzone una de las pruebas de programacion (mas de una), habla de crear un programa en ‭‬javascript que lleve a cabo una determinada tarea. Como nunca habia programado en ‭‬javascript, he estado buscando nformacion a cerca del lenguaje. Yo pensaba que solo se podia utilizar incrustado en paginas web, para hacerlas dinamicas y añadir funcionalidades, pero tal y como esta planteado el ejercicio, da la impresion de que tambien se pueden crear aplicaciones en JS. ¿Es asi?

¿De todas formas, sabeis de algun buen manual o tutorial sobre el tema?

¡Un saludo y muchas gracias!

Solucionado: No se trataba de generar un ejecutable, ni de crear una funcion ni nada por el estilo. Solo habia que poner el codigo que solucionaba el problema. Asi, sin mas, suelto, sin incluirlo en el esqueleto de una web ni nada.

¡Muchas gracias!

Hola a todos!

La respuesta a criptografia-basico es el mensaje descifrado, o algo que tiene que ver con numero o palabra descrito en el mensaje descifrado?

¿O lo he descifrado mal?

Estoy desorientado, no pido la resolucion, solo saber si voy por buen camino...

Saludos!

Buenas, tengo un pseudocodigo que traducido al codigo ensamblador de la maquina virtual me da resultado que se quiere, pero como no tenia ni idea de ASM, usando el sentido comun me sale un codigo de mas de 25 lineas de codigo.

No pongo aqqui el code, porque seria ponoer "la solucion" para todo el mundo. Solo queria preguntar si hay algunas pautas basicas que se puedan seguir para compactar el codigo.

Si hace falta enviaros el codigo a algun sitio oficial para tratar estos temas, me lo decis y lo envio, (se que he visto por ahi alguna direccion de correo electronico...)

¡¡¡¡Saludos!!!!

MODIFICADO

Añadido:
----------
- portabilidad
- texto centrado


Ya se que todo el codigo que viene a continuacion es una morcilla de las de Burgos, pero si mirais el ejemplo que hay al final, vereis como se simplifica todo a la hora de utilizar los menus.

Menu.h

Código (c) [Seleccionar] Expandir



/*

IMPORTANTE: Cuando el menu ya no sea util, ultilizar siempre la funcion finalizarMenu

*/

#ifndef MENU_H
#define MENU_H

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/*
* Para compilar en UNIX desactivar la definicion de WINDOWS y activar la de UNIX
* Para otros SO desactivar ambas.
*/

#ifndef WINDOWS
   #define WINDOWS
#endif
/*
#ifndef UNIX
   #define UNIX
#endif
*/

#define MENU_OK                   0L
#define MENU_ERROR                1L
#define MENU_MEMORIA_INSUFICIENTE 2L

#define MENU_MODO_NORMAL      0L
#define MENU_MODO_ULTIMA_CERO 1L

struct Menu
{
   char*         titulo;
   char*         texto;
   char**        opciones;
   int           numOpciones; /* numero de opciones */
   int           maxlen;
   unsigned long lFlags;
};
typedef struct Menu Menu;

void inicializarMenu(Menu* menu,char* titulo, char* texto, char* opciones[]);
int mostrarMenu(Menu* menu,int modo);
void finalizarMenu(Menu* menu);

#endif /* MENU_H */


menu.c

Código (c) [Seleccionar] Expandir


#include "menu.h"

void inicializarMenu(Menu* menu, char* titulo, char* texto, char* opciones[])
{
  menu->lFlags = MENU_OK;

  if(titulo == NULL)
     menu->titulo = NULL;
  else
  {
      if((menu->titulo = (char*) malloc(strlen(titulo) * sizeof(char) + 1)))
          strcpy(menu->titulo,titulo);
     else
     {
        menu->lFlags |= MENU_ERROR | MENU_MEMORIA_INSUFICIENTE;
        menu->texto = NULL;
     }
  }

  if(texto == NULL)
     menu->texto = NULL;
  else
  {
     if((menu->texto = (char*) malloc(strlen(texto) * sizeof(char) + 1)))
        strcpy(menu->texto,texto);
     else
     {
        menu->lFlags |= MENU_ERROR | MENU_MEMORIA_INSUFICIENTE;
        menu->texto = NULL;

         if(menu->titulo)
         {
            free(menu->titulo);
            menu->titulo = NULL;
         }
     }
  }

  if(opciones == NULL)
     menu->opciones = NULL;
  else
  {
     menu->numOpciones = -1;

     while(opciones[ ++(menu->numOpciones) ][0]);

     if((menu->opciones = (char**) malloc(menu->numOpciones * sizeof(char*))))
     {
        int i=0;

        menu->maxlen = 0;

        for(i=0 ; i < menu->numOpciones ; i++)
        {
           if
           (
              (menu->opciones[i] =
              (char*) malloc(strlen(opciones[i]) * sizeof(char) + 1))
           )
           {
              strcpy(menu->opciones[i],opciones[i]);

              if(strlen(menu->opciones[i]) > menu->maxlen)
                 menu->maxlen = strlen(menu->opciones[i]);
           }
           else
           {
              int j;

              for(j=0 ; j<i ; j++)
                 free(menu->opciones[j]);

              free(menu->opciones);

              menu->opciones = NULL;
              menu->numOpciones = 0;

              if(menu->texto)
              {
                 free(menu->texto);
                 menu->texto = NULL;
              }

              if(menu->titulo)
              {
                 free(menu->titulo);
                 menu->titulo = NULL;
              }

              menu->lFlags |= MENU_ERROR | MENU_MEMORIA_INSUFICIENTE;
           }
        }
     }
     else
     {
        menu->lFlags |= MENU_ERROR | MENU_MEMORIA_INSUFICIENTE;
        menu->opciones = NULL;

        if(menu->texto)
        {
           free(menu->texto);
           menu->texto = NULL;
        }

        if(menu->titulo)
        {
           free(menu->titulo);
           menu->titulo = NULL;
        }
     }
  }
}

int mostrarMenu(Menu* menu,int modo)
{
  int i=0, opcion=0;

  if(menu->numOpciones)
  {
      do{

         #ifdef WINDOWS
            system("CLS");
         #elif defined UNIX
            system("clear");
         #endif

         if(menu->titulo)
         {
            for(i=0 ; i<80 ; i++)
                printf("=");

            printf("%*s\n", 40 + strlen(menu->titulo) / 2, , menu->titulo);

            for(i=0 ; i<80 ; i++)
                printf("=");
         }

         if(menu->texto)
             printf("%-*s%s\n\n",40 - menu->maxlen / 2 - 8, " ", menu->texto);
             
         for(i=0 ; i < menu->numOpciones ; i++)
         {
            if(modo == MENU_MODO_ULTIMA_CERO && i == menu->numOpciones - 1)
            {
               if(menu->numOpciones > 10)
                  printf("%*s 0. %-*s\n", 40 - menu->maxlen / 2 - 4, " ", 40 + menu->maxlen / 2,
                                           menu->opciones[i]);
               else
                  printf("%*s0. %-*s\n", 40 - menu->maxlen / 2 - 4, " ", 40 + menu->maxlen / 2,
                                          menu->opciones[i]);
            }
            else
            {
               if(modo != MENU_MODO_ULTIMA_CERO)
               {
                  if(menu->numOpciones >= 10)
                  {
                     printf("%*s%2d. %-*s\n", 40 - menu->maxlen / 2 - 4, " ", i+1,
                                               40 + menu->maxlen / 2, menu->opciones[i]);
                  }
                  else
                  {
                     printf("%*s%d. %-*s\n", 40 - menu->maxlen / 2 - 4, " ", i+1,
                                              40 + menu->maxlen / 2, menu->opciones[i]);
                  }
               }
               else
               {
                  if(menu->numOpciones > 10)
                  {
                     printf("%*s%2d. %-*s\n", 40 - menu->maxlen / 2 - 4, " ", i+1,
                                               40 + menu->maxlen / 2, menu->opciones[i]);
                  }
                  else
                  {
                     printf("%*s%d. %-*s\n", 40 - menu->maxlen / 2 - 4, " ", i+1,
                                              40 + menu->maxlen / 2, menu->opciones[i]);
                  }
               }
            }
         }
         printf("%-*s>", 40 - menu->maxlen / 2 - 8, " ");

        if(!scanf("%d", &opcion))
        {
           while(getchar() != '\n');
           scanf("%d", &opcion);
        }        

      }while
      (
         (
            (modo != MENU_MODO_ULTIMA_CERO) ? (opcion < 1) : (opcion < 0)
         )
         ||
         (
            (modo != MENU_MODO_ULTIMA_CERO) ?
               (opcion >  menu->numOpciones)
               :
               (opcion >= menu->numOpciones)
         )
      );

      return opcion;
  }
 
  return -1;
}

void finalizarMenu(Menu* menu)
{
  if(menu->texto)
  {
     free(menu->texto);
     menu->texto = NULL;
  }

  if(menu->opciones)
  {
      int i=0;

      for(i=0 ; i < menu->numOpciones ; i++)
      {
          if(menu->opciones[i])
          {
              free(menu->opciones[i]);
              menu->opciones[i] = NULL;
          }
      }
      free(menu->opciones);
      menu->opciones = NULL;
  }

  menu->numOpciones = 0;
}


ejemplo: (tener en cuenta que menu.h y menu.c tienen que estar en el mismo directorio donde este el fichero con la funcion principal)

Código (c) [Seleccionar] Expandir


#include <stdio.h>
#include <stdlib.h>

#include "menu.h"
#include "menu.c" /* solo si no se va crear un proyecto*/

int main(int argc, char *argv[])
{
   Menu menu;
   char *opciones[] = {"Continuar","Salir",""}; /* la ultima opcion siempre es una cadena vacia*/
   int opcion;

   inicializarMenu(&menu,"MENU DE PRUEBA","Escoger una opcion:",opciones);

   do{
       opcion=mostrarMenu(&menu,MENU_MODO_ULTIMA_CERO);
       
       switch(opcion)
       {
           case 1:
               printf("Has escogido continuar.\n");
               break;
           case 0:
               printf("Has escogido salir.\n");
               break;
       }
   }while(opcion!=0);

   /* ¡¡¡¡¡IMPORTANTE!!!!! */
   finalizarMenu(&menu);

   return 0;
}


En lo que es el menu, me gustaria completar alguna opcion mas, pero el codigo ya es funcional.

Si el codigo no funciona, avisad, ya que es una adaptacion del codigo que realmente tengo guardado. Lo he puesto asi para evitar incluir mas headers y mas codigo.

El codigo de ejemplo lo he imprivosado sobre la marcha. Si hubiese algun error revisad el codigo, que no creo que haya darle muchas vueltas.