ayuda para pasar función a C

[horacio]

yo tambien me anoto

[benjiben143]

hola, yo tambien ,,,,, para que me apunte

saludos

[lucasdebeltran]

Hola,

Evidentemente yo claro que sí .

[xmanuel]

Vamos, vamossss... esto se anima!!!
A ver si llegamos a 15 o 20.

Habría que pensar en crear un foro nuevo... ( quien se apunta a hacerlo? por ejemplo en los grupos de google o yahoo o no sé...)

Y como ejemplo práctico de los ejemplos qué quereis

[Antonio Linares]

Teneis docenas de ejemplos de usar C y Harbour en el código fuente en FWH\source\winapi\*.c

[xmanuel]

...y serán tomados como guía a seguir, entre otras cosas porque están hechos por un maestro y por si fuera poco un gran amigo...

Gracias Antonio...

PD: Tengo muchas ganas de verte. Si vienes por Sevilla me das un toque vale?

[Antonio Linares]

Manu,

Era solo un recordatorio porque a veces obviamos lo que tenemos más a mano

Hace tiempo que no voy por Sevilla, a ver si voy y por supuesto que nos vemos

[mgsoft]

Yo también estoy interesado.

Muchas gracias.

[George]

Manu,
Un pequeño aporte de algunas funciones matematicas que desarrolle para manejar operaciones tipo bitwise de numeros con 64 bits de longitud; las probe en FWH64 y funcionaron perfectamente.

Code: Select all  Expand view

// C functions call from Harbour

//---------------------------------
#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>

// Bitwise NOT (C Function)
HB_FUNC( C_NOT )
{

    long long int nHexadecimal;
    long long int nNot;

    nHexadecimal = hb_parnll(1);

    nNot = ~nHexadecimal;

    hb_retnll( nNot );

}

#pragma ENDDUMP
//---------------------------------

#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>

// Bitwise AND (C Function)
HB_FUNC( C_AND )
{

    long long int nHexadecimal1, nHexadecimal2;
    long long int nAnd;

    nHexadecimal1 = hb_parnll(1);
    nHexadecimal2 = hb_parnll(2);

    nAnd = nHexadecimal1 & nHexadecimal2;

    hb_retnll( nAnd );

}

#pragma ENDDUMP
//---------------------------------

#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>

// Bitwise XOR (C Function)
HB_FUNC( C_XOR )
{

    long long int nHexadecimal1, nHexadecimal2;
    long long int nXor;

    nHexadecimal1 = hb_parnll(1);
    nHexadecimal2 = hb_parnll(2);

    nXor = nHexadecimal1 ^ nHexadecimal2;

    hb_retnll( nXor );

}

#pragma ENDDUMP
//-----------------------------------------

#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>

// Bitwise OR (C Function)
HB_FUNC( C_OR )
{

    long long int nHexadecimal1, nHexadecimal2;
    long long int nOr;

    nHexadecimal1 = hb_parnll(1);
    nHexadecimal2 = hb_parnll(2);

    nOr = nHexadecimal1 | nHexadecimal2;

    hb_retnll( nOr );

}

#pragma ENDDUMP

//---------------------------------
#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>

HB_FUNC( C_SHIFT_R )
{

    long long int nHexadecimal1;
    long long int nToShiftR;
    long long int nShifted;

    nHexadecimal1 = hb_parnll(1);
    nToShiftR = hb_parnll(2);

    nShifted = nHexadecimal1 >> nToShiftR;

    hb_retnll( nShifted );

}

#pragma ENDDUMP
//---------------------------------

#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>

HB_FUNC( C_SHIFT_L )
{

    long long int nHexadecimal1;
    long long int nToShiftL;
    long long int nShifted;

    nHexadecimal1 = hb_parnll(1);
    nToShiftL = hb_parnll(2);

    nShifted = nHexadecimal1 << nToShiftL;

    hb_retnll( nShifted );

}

#pragma ENDDUMP
 

Saludos,

George

[xmanuel]

Muchas gracias George habrá que ternelo en cuenta...

De cualquier modo hechale un vistazo a hbbit.c que hay en harbour\src\rtl

[joseluispalma]

Manuel:

A mi también me interesa por favor.

[xmanuel]

OK, José Luis...

Creo que también iría bien meter la Programación Orientada a Objetos y como ejemplo del sistema extendido y la POO hacer un embrión de acceso a SQLite...

Qué os parece?

[csincuir]

Hola Manu.
Yo también me apunto.

Carlos.

[xmanuel]

Como siempre bienvenido Carlos...
A propósito Carlos, estoy preparando una versión de Eagle1 que te va agustar

[csincuir]

Gracias Manu.
Estaré esperando tus noticias entonces.

Saludos.

Carlos.