Attribute VB_Name = "ModOutput"
' -------------------------------------
' VB2Cpp - Visual Basic to C++ translator.
' Copyright (C) 2002-2003 Franck Charlet.
'
' VB2Cpp 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.
'
' VB2Cpp 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 VB2Cpp; see the file Copying.txt.  If not, write to
' the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
' Boston, MA 02111-1307, USA.
' -------------------------------------
' Functions output and project file generation
' -------------------------------------

Option Explicit

' --- Write the header of the project in main file --- '
Public Sub WriteHeaders()
    WriteInHead "// ---------------------------" & vbNewLine & "// Code generated with VB2Cpp" & vbNewLine & "// Copyright (C) 2002-2003 Franck Charlet." & vbNewLine & "// ---------------------------" & vbNewLine & vbNewLine
    WriteInHead "// ---------------------------" & vbNewLine & "// System includes" & vbNewLine & "// ---------------------------" & vbNewLine
    WriteInHead "#include <MiniWin.h>" & vbNewLine
    WriteInHead "#pragma warning(disable:4018)" & vbNewLine
    WriteInHead "#pragma warning(disable:4146)" & vbNewLine
    WriteInHead "#pragma warning(disable:4244)" & vbNewLine
    WriteInHead "#pragma warning(disable:4805)" & vbNewLine
    WriteInHead "#pragma warning(disable:4700)" & vbNewLine
    WriteInHead "#pragma warning(disable:4102)" & vbNewLine
    WriteInHead "#pragma warning(disable:4305)" & vbNewLine
    WriteInHead "#pragma warning(disable:4554)" & vbNewLine
    WriteInHead vbNewLine & "// ---------------------------" & vbNewLine & "// Global parameters" & vbNewLine & "// ---------------------------" & vbNewLine
    WriteInHead "#include " & Chr(34) & Mid(ProjectName, 1, Len(ProjectName) - 4) & "const.h" & Chr(34) & vbNewLine
    WriteInHead "#include " & Chr(34) & Mid(ProjectName, 1, Len(ProjectName) - 4) & "type.h" & Chr(34) & vbNewLine
    WriteInHead "#include " & Chr(34) & Mid(ProjectName, 1, Len(ProjectName) - 4) & "var.h" & Chr(34) & vbNewLine
End Sub

' --- MallocZero() function --- '
Public Sub Func_MallocZeroCore()
    WriteInHead vbNewLine & "// --------------------------- MallocZero() function" & vbNewLine
    WriteInHead "__inline void AsmPointerFill(DWORD,DWORD,DWORD);" & vbNewLine
    WriteInHead "__inline void *MallocZero(size_t);" & vbNewLine
    WriteInHead "__inline void *MallocZero(size_t SizeToAlloc)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "DWORD AllocatedMem;" & vbNewLine
    WriteInHead vbTab & "AllocatedMem=(DWORD)malloc(SizeToAlloc);" & vbNewLine
    WriteInHead vbTab & "AsmPointerFill(AllocatedMem,0,SizeToAlloc);" & vbNewLine
    WriteInHead vbTab & "return((void *)AllocatedMem);" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Left() function --- '
Public Sub Func_LeftCore()
    WriteInHead vbNewLine & "// --------------------------- Left() function" & vbNewLine
    WriteInHead "char *Left(char *,int);" & vbNewLine
    WriteInHead "char *Left(char *LeftString,int length)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *StrLeftTmp;" & vbNewLine
    WriteInHead vbTab & "DWORD StrLeftLen;" & vbNewLine
    WriteInHead vbTab & "StrLeftLen=strlen(LeftString);" & vbNewLine
    WriteInHead vbTab & "StrLeftTmp=garbagestring(StrLeftLen+1);" & vbNewLine
    WriteInHead vbTab & "if(length>StrLeftLen) length=StrLeftLen;" & vbNewLine
    WriteInHead vbTab & "strncpy(StrLeftTmp,&LeftString[0],length);" & vbNewLine
    WriteInHead vbTab & "StrLeftTmp[length]=0;" & vbNewLine
    WriteInHead vbTab & "return StrLeftTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Right() function --- '
Public Sub Func_RightCore()
    WriteInHead vbNewLine & "// --------------------------- Right() function" & vbNewLine
    WriteInHead "char *Right(char *,int);" & vbNewLine
    WriteInHead "char *Right(char *RightString,int length)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "int start;" & vbNewLine
    WriteInHead vbTab & "char *StrRightTmp;" & vbNewLine
    WriteInHead vbTab & "DWORD StrRightLen;" & vbNewLine
    WriteInHead vbTab & "StrRightLen=strlen(RightString);" & vbNewLine
    WriteInHead vbTab & "StrRightTmp=garbagestring(StrRightLen+1);" & vbNewLine
    WriteInHead vbTab & "start=StrRightLen-length;" & vbNewLine
    WriteInHead vbTab & "if(start<0) start=0;" & vbNewLine
    WriteInHead vbTab & "strncpy(StrRightTmp,&RightString[start],length);" & vbNewLine
    WriteInHead vbTab & "StrRightTmp[length]=0;" & vbNewLine
    WriteInHead vbTab & "return StrRightTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Trim() function --- '
Public Sub Func_TrimCore()
    WriteInHead vbNewLine & "// --------------------------- Trim() function" & vbNewLine
    WriteInHead "char *Trim(char *);" & vbNewLine
    WriteInHead "char *Trim(char *TrimString)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "int i;" & vbNewLine
    WriteInHead vbTab & "char *OutTrimBuffer;" & vbNewLine
    WriteInHead vbTab & "char *StrTrimTmp;" & vbNewLine
    WriteInHead vbTab & "StrTrimTmp=garbagestring(strlen(TrimString));" & vbNewLine
    WriteInHead vbTab & "strcpy(StrTrimTmp,TrimString);" & vbNewLine
    WriteInHead vbTab & "i=strlen(TrimString);" & vbNewLine
    WriteInHead vbTab & "while(i--)" & vbNewLine
    WriteInHead vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & "if(TrimString[i]!=32) break;" & vbNewLine
    WriteInHead vbTab & "}" & vbNewLine
    WriteInHead vbTab & "StrTrimTmp[++i]=0;" & vbNewLine
    WriteInHead vbTab & "if (StrTrimTmp)" & vbNewLine
    WriteInHead vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & "for (OutTrimBuffer=StrTrimTmp;*OutTrimBuffer && (OutTrimBuffer[0]==32); ++OutTrimBuffer);" & vbNewLine
    WriteInHead vbTab & vbTab & "if (StrTrimTmp!=OutTrimBuffer)" & vbNewLine
    WriteInHead vbTab & vbTab & vbTab & "memcpy(StrTrimTmp,OutTrimBuffer,strlen(OutTrimBuffer)+1);" & vbNewLine
    WriteInHead vbTab & "}" & vbNewLine
    WriteInHead vbTab & "return StrTrimTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- RTrim() function --- '
Public Sub Func_RTrimCore()
    WriteInHead vbNewLine & "// --------------------------- RTrim() function" & vbNewLine
    WriteInHead "char *RTrim(char *);" & vbNewLine
    WriteInHead "char *RTrim(char *TrimString)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "int i;" & vbNewLine
    WriteInHead vbTab & "char *StrTrimTmp;" & vbNewLine
    WriteInHead vbTab & "StrTrimTmp=garbagestring(strlen(TrimString));" & vbNewLine
    WriteInHead vbTab & "strcpy(StrTrimTmp,TrimString);" & vbNewLine
    WriteInHead vbTab & "i=strlen(TrimString);" & vbNewLine
    WriteInHead vbTab & "while(i--)" & vbNewLine
    WriteInHead vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & "if(TrimString[i]!=32) break;" & vbNewLine
    WriteInHead vbTab & "}" & vbNewLine
    WriteInHead vbTab & "StrTrimTmp[++i]=0;" & vbNewLine
    WriteInHead vbTab & "return StrTrimTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- LTrim() function --- '
Public Sub Func_LTrimCore()
    WriteInHead vbNewLine & "// --------------------------- LTrim() function" & vbNewLine
    WriteInHead "char *LTrim(char *);" & vbNewLine
    WriteInHead "char *LTrim(char *TrimString)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *OutTrimBuffer;" & vbNewLine
    WriteInHead vbTab & "char *StrTrimTmp;" & vbNewLine
    WriteInHead vbTab & "StrTrimTmp=garbagestring(strlen(TrimString));" & vbNewLine
    WriteInHead vbTab & "strcpy(StrTrimTmp,TrimString);" & vbNewLine
    WriteInHead vbTab & "if (StrTrimTmp)" & vbNewLine
    WriteInHead vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & "for(OutTrimBuffer=StrTrimTmp;*OutTrimBuffer && (OutTrimBuffer[0]==32); ++OutTrimBuffer);" & vbNewLine
    WriteInHead vbTab & vbTab & "if (StrTrimTmp!=OutTrimBuffer)" & vbNewLine
    WriteInHead vbTab & vbTab & vbTab & "memcpy(StrTrimTmp,OutTrimBuffer,strlen(OutTrimBuffer)+1);" & vbNewLine
    WriteInHead vbTab & "}" & vbNewLine
    WriteInHead vbTab & "return StrTrimTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Mid() function --- '
Public Sub Func_MidCore()
    WriteInHead vbNewLine & "// --------------------------- Mid() function" & vbNewLine
    WriteInHead "char *Mid(char *,int,int=-1);" & vbNewLine
    WriteInHead "char *Mid(char *MidString,int start,int length)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "int tmplen;" & vbNewLine
    WriteInHead vbTab & "char *StrMidTmp;" & vbNewLine
    WriteInHead vbTab & "tmplen=strlen(MidString);" & vbNewLine
    WriteInHead vbTab & "if(length==-1) length=tmplen-start+1;" & vbNewLine
    WriteInHead vbTab & "StrMidTmp=garbagestring(length);" & vbNewLine
    WriteInHead vbTab & "if(start>tmplen)" & vbNewLine
    WriteInHead vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & "StrMidTmp[0]=0;" & vbNewLine
    WriteInHead vbTab & "}" & vbNewLine
    WriteInHead vbTab & "else" & vbNewLine
    WriteInHead vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & "strncpy(StrMidTmp,&MidString[start-1],length);" & vbNewLine
    WriteInHead vbTab & "}" & vbNewLine
    WriteInHead vbTab & "StrMidTmp[length]=0;" & vbNewLine
    WriteInHead vbTab & "return StrMidTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Chr() function --- '
Public Sub Func_ChrCore()
    WriteInHead vbNewLine & "// --------------------------- Chr() function" & vbNewLine
    WriteInHead "char *Chr(int);" & vbNewLine
    WriteInHead "char *Chr(int intchar)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *StrChrTmp;" & vbNewLine
    WriteInHead vbTab & "StrChrTmp=garbagestring(1);" & vbNewLine
    WriteInHead vbTab & "StrChrTmp[0]=intchar;" & vbNewLine
    WriteInHead vbTab & "return StrChrTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Ucase() function --- '
Public Sub Func_UCaseCore()
    WriteInHead vbNewLine & "// --------------------------- UCase() function" & vbNewLine
    WriteInHead "char *UCase(char *);" & vbNewLine
    WriteInHead "char *UCase(char *UCaseString)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *StrUCaseTmp;" & vbNewLine
    WriteInHead vbTab & "int StrUCaseLen;" & vbNewLine
    WriteInHead vbTab & "StrUCaseLen=strlen(UCaseString);" & vbNewLine
    WriteInHead vbTab & "StrUCaseTmp=garbagestring(StrUCaseLen);" & vbNewLine
    WriteInHead vbTab & "strncpy(StrUCaseTmp,UCaseString,StrUCaseLen);" & vbNewLine
    WriteInHead vbTab & "StrUCaseTmp=strupr(StrUCaseTmp);" & vbNewLine
    WriteInHead vbTab & "return StrUCaseTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Lcase() function --- '
Public Sub Func_LCaseCore()
    WriteInHead vbNewLine & "// --------------------------- LCase() function" & vbNewLine
    WriteInHead "char *LCase(char *);" & vbNewLine
    WriteInHead "char *LCase(char *LCaseString)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *StrLCaseTmp;" & vbNewLine
    WriteInHead vbTab & "int StrLCaseLen;" & vbNewLine
    WriteInHead vbTab & "StrLCaseLen=strlen(LCaseString);" & vbNewLine
    WriteInHead vbTab & "StrLCaseTmp=garbagestring(StrLCaseLen);" & vbNewLine
    WriteInHead vbTab & "strncpy(StrLCaseTmp,LCaseString,StrLCaseLen);" & vbNewLine
    WriteInHead vbTab & "StrLCaseTmp=strlwr(StrLCaseTmp);" & vbNewLine
    WriteInHead vbTab & "return StrLCaseTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Asc() function --- '
Public Sub Func_AscCore()