miniwin.h

一个把VB原代码转换为VC原代码的软件代码。

// -------------------------------------
// VB6ToVC6 - Visual Basic 6 to visual C++ 6 translator.
// Copyright (C) 2002-2003 Franck Charlet.
//
// VB6ToVC6 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, or (at your option)
// any later version.
//
// VB6ToVC6 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 VB6ToVC6; see the file Copying.txt.  If not, write to
// the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
// Boston, MA 02111-1307, USA.
// -------------------------------------
// Standard types and functions declarations replacement
// -------------------------------------

#ifndef __MINIWIN_H__
#define __MINIWIN_H__

// ---------------------------
// Visual Basic types
// ---------------------------
#define DWORD signed long
#define WORD signed short
#define BYTE unsigned char
#define BOOL signed long

// ---------------------------
// Internal constants
// ---------------------------
#define VARARRAY_ERASE -1
#define VARARRAY_REDIM -2
#define VARARRAY_REDIMPRESERVE -3
#define VARARRAY_STOREELEMENT -4
#define VARARRAY_SPLIT -5
#define NULL ((void *)0)

// ---------------------------
// Visual Basic constants
// ---------------------------
#define FALSE 0
#define TRUE -1
#define Win16 FALSE
#define Win32 TRUE
#define Constants_vbCr Chr(13)
#define Constants_vbLf Chr(10)
#define Constants_vbNewLine (Chr(13)>>(VBStr)Chr(10))
#define Constants_vbCrLf (Chr(13)>>(VBStr)Chr(10))
#define Constants_vbBack Chr(8)
#define Constants_vbFormFeed Chr(12)
#define Constants_vbNullChar Chr(0)
#define Constants_vbTab Chr(9)
#define Constants_vbVerticalTab Chr(11)
#define Constants_vbNullString 0
#define Constants_vbObjectError -2147221504

#define vbCr Chr(13)
#define vbLf Chr(10)
#define vbNewLine (Chr(13)>>(VBStr)Chr(10))
#define vbCrLf (Chr(13)>>(VBStr)Chr(10))
#define vbBack Chr(8)
#define vbFormFeed Chr(12)
#define vbNullChar Chr(0)
#define vbTab Chr(9)
#define vbVerticalTab Chr(11)
#define vbNullString 0
#define vbObjectError -2147221504

typedef long time_t;

DWORD vbQBColorTable[16] = { 
	0x000000,0x800000,0x008000,0x808000,
	0x000080,0x800080,0x008080,0xc0c0c0,
	0x808080,0xff0000,0x00ff00,0xffff00,
	0x0000ff,0xff00ff,0x00ffff,0xffffff
	};

extern "C" {

void * __cdecl malloc(size_t);
void __cdecl free(void *);
void * __cdecl realloc(void *, size_t);
void * __cdecl memset(void *, int, size_t);
char * __cdecl strncpy(char *, const char *, size_t);
char * __cdecl strcpy(char *, const char *);
char * __cdecl strlwr(char *);
char * __cdecl strupr(char *);
char * __cdecl strcat(char *, const char *);
char * __cdecl strdup(const char *);
size_t __cdecl strlen(const char *);
void * __cdecl memcpy(void *, const void *, size_t);
double __cdecl pow(double, double);
double __cdecl fmod(double, double);
double __cdecl atof(const char *);
double __cdecl ceil(double);
double __cdecl floor(double);
int __cdecl strcmp(const char *, const char *);
int __cdecl stricmp(const char *, const char *);
int __cdecl strncmp(const char *, const char *, size_t);
int __cdecl strnicmp(const char *, const char *, size_t);
int __cdecl isspace(int);
int __cdecl sprintf(char *, const char *, ...);
int __cdecl sscanf(const char *, const char *, ...);
int __cdecl isdigit(int);
long __cdecl atol(const char *);
char * __cdecl itoa(int, char *, int);
char * __cdecl ltoa(long, char *, int);
void __cdecl exit(int);
long __cdecl clock(void);
double __cdecl fabs(double);
int __cdecl abs(int);
double __cdecl frexp(double, int *);
time_t __cdecl time(time_t *);
double __cdecl modf(double, double *);

}

#endif