Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBF2CH.ZIP
Filename : DBF2CH.CH

/*
*
* File......: DBF2CH.CH
* Author....: Steve Kolterman
* CIS ID....: 76320,37
* Date......: November 21, 1993
*
* See the README.1ST file in DBF2CH.ZIP for restrictions on redistribution.
*
*/

#include "fileio.ch"
#include "setcurs.ch"
#include "box.ch"
#include "dbstruct.ch"

#define F_NAME 1
#define CRLF CHR(13)+CHR(10)
#define DBF_NAME IF(cDbff==NIL,NIL,IF(".DBF" $UPPER(cDbff),cDbff,UPPER(cDbff)+".DBF"))
#define CH_NAME LEFT(cDbffile,LEN(cDbffile)-4) +".CH"
#define HEADLINE "/* "+ IF(cChname==NIL,(CH_NAME),upper(cChname)+".CH") +" (for "+ cDbffile +") */"+CRLF+CRLF
#define TYPELINE SPACE(40)+"/* Types Lens Decis */"+CRLF
#define BUFFER "#define "+;
PADR(IF(cAlias<>NIL .and. "/" $cAlias,;
SUBS(cAlias,2)+IF(lUscore,"","_")+Field(n),FIELD(n)),;
40-16)+ PADR(STR(n,4),8)+;
"// "+aStruct[n][DBS_TYPE]+" "+ ;
Str( aStruct[n][DBS_LEN],4)+" "+;
Str( aStruct[n][DBS_DEC],3)+CRLF
#define FOOTLINE CRLF+"/* "+CRLF+" End of file: "+ IF(cChname==NIL,(CH_NAME),upper(cChname)+".CH") +CRLF
#define CREDIT " Generated With DBF2CH.EXE" + CRLF
#define COPYRITE " Copyright (c) 1993, Steve Kolterman. All Rights Reserved."+CRLF+"*/"+CRLF
#define WILDCARD (("*" $cDbff .OR. "?" $cDbff) .AND. (RIGHT(UPPER(cDbff),4)==".DBF"))
#define NIL_COND (cDbff==NIL .OR. !FILE(DBF_NAME) .OR. Empty(aFnarray))
#define NTOC(x) LTRIM(STR(x))

/* EOF: DBF2CH.CH */