Tengo varias rutinas escritas en C, pongo un ejemplo:

#ifdef CLIP501
#include "c:\clip501\include\extend.h"
#else
#include "c:\clip52\include\extend.h"
#endif

#define BLOQUEBYTES 512

/*#include <\tc2\include\dos.h>*/

extern int _tcreat(char *fichero,int modo);
extern int _topen(char *Fichero, int modo);
extern int _tunlink(char *fichero);
extern long _tlseek(int nHandle,long nNumero ,int desdedonde);
extern int _tread(int Handle,char *Buffer,int Longitud);
extern int _twrite(int Handle,char *Buffer,int Longitud);
extern int _tclose(int handle);
extern int _at(char *cCaracter , char *cCadena);

CLIPPER Leelinea()
{
char *cBuffer ;
char cLetra[1];
int nPosicion,nLeidos,nHandle,nSeguir;
nHandle = _parni( 1 );
cBuffer = _xgrab( 513 );
cBuffer[0] = NIL;
nSeguir = 0;

/* Bucle Principal */
do
{
/* Leemos cada Bloque de 512 Bytes */
nLeidos = _tread(nHandle,cBuffer,BLOQUEBYTES);
if ((nLeidos != 0 ) && (cBuffer[0] != 26))
{
for(nPosicion=0;nPosicion<511;nPosicion++)
{
if(cBuffer[nPosicion] == 0x0D)
{
_tlseek(nHandle,nPosicion+2-nLeidos,1);
cBuffer[nPosicion] = NIL ;
nSeguir = 1;
break;
}
}
}else nSeguir = 2;
} while (nSeguir == 0);
_xfree( cBuffer );
if (nSeguir ==1) _retc( cBuffer ); else _retni( -1 );
}


como la puedo mezclar con C3? La puedo linkar sin mas?

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006