# (C) Copyright David Abrahams 2001. Permission to copy, use,
# modify, sell and distribute this software is granted provided this
# copyright notice appears in all copies. This software is provided
# "as is" without express or implied warranty, and with no claim as
# to its suitability for any purpose.

# Borland tool definitions.
#
# Please note that wide-character support is currently disabled for Borland in
# features.jam, pending someone taking the time to figure out how to get the
# appropriate libraries into the link command line.

# compute Borland tool path
# You can either put the borland bin directory in your PATH, or you can set
# BCCROOT to point at the borland installation directory
BCC_TOOL_PATH = $(BCCROOT)$(SLASH)bin$(SLASH) ;
BCC_TOOL_PATH ?= "" ; # Don't clobber adjoining text if BCCROOT isn't set

# specify compilation and link flags
flags borland CFLAGS <debug-symbols>on : -v ;
flags borland LINKFLAGS <debug-symbols>on : -v ;
flags borland CFLAGS <optimization>off : -Od ;
flags borland CFLAGS <optimization>speed : -O2 ;
flags borland CFLAGS <optimization>space : -O1 ;
flags borland CFLAGS <inlining>off : -vi- ;
flags borland CFLAGS <inlining>on : -vi -w-inl ;
flags borland CFLAGS <inlining>full : -vi -w-inl ;

# build the link options
local USER-INTERFACE TARGET-TYPE THREADING RUNTIME-LINK ;

flags borland USER-INTERFACE <user-interface>console : C ;
flags borland TARGET-TYPE <target-type>DLL : D ;
flags borland THREADING <threading>multi : M ;
flags borland RUNTIME-LINK <runtime-link>dynamic : R ;

USER-INTERFACE ?= "" ;
TARGET-TYPE ?= "" ;
THREADING ?= "" ;
RUNTIME-LINK ?= "" ;

flags borland LINKFLAGS :
    -t$(USER-INTERFACE)$(TARGET-TYPE)$(THREADING)$(RUNTIME-LINK) ;
    
flags borland CFLAGS :
    -t$(USER-INTERFACE)$(TARGET-TYPE)$(THREADING)$(RUNTIME-LINK) ;
    
flags borland LINKFLAGS <wide-character-support>on : -WU ;
flags borland CFLAGS <wide-character-support>on : -WU ;

flags borland CFLAGS <cflags> ;
flags borland C++FLAGS <cxxflags> ;
flags borland DEFINES <define> ;
flags borland UNDEFS <undef> ;
flags borland HDRS <include> ;

flags borland STDHDRS : $(BCCROOT)$(SLASH)include ;
flags borland STDLIBPATH : $(BCCROOT)$(SLASH)lib ;

# For detailed information about borland tools and their command-line switches,
# see http://www.objectcentral.com/vide/help/videdoc/bcc32.html

#### Link ####

rule Link-action
{
    borland-Link-action $(<) : $(>) ;
    if $(3) = DLL
    {
        borland-IMPLIB-action $(<) : $(>) ;
    }
}

# bcc32 needs to have ilink32 in the path in order to invoke it, so explicitly
# specifying $(BCC_TOOL_PATH)bcc32 doesn't help. You need to add
# $(BCC_TOOL_PATH) to the path
actions borland-Link-action bind NEEDLIBS
{
    set PATH=$(BCC_TOOL_PATH);%PATH%
    $(BCC_TOOL_PATH)bcc32 -q $(LINKFLAGS) -L"$(BCCROOT)$(SLASH)lib" -e"$(<[1])" "$(>)" "$(NEEDLIBS)" 
}

actions borland-IMPLIB-action bind IMPLIB
{
    $(BCC_TOOL_PATH)implib $(<[2]) $(<[1])
}

#### Cc #####

rule Cc-action
{
    borland-Cc-action $(<) : $(>) ;
}

actions borland-Cc-action
{
    $(BCC_TOOL_PATH)bcc32 -q -c -w -U$(UNDEFS) -D$(DEFINES) $(CFLAGS) -I"$(HDRS)" -I"$(BCCROOT)$(SLASH)include" -o"$(<)" "$(>)"
}

#### C++ ####
rule C++-action
{
    borland-C++-action $(<) : $(>) ;
}

actions borland-C++-action
{
    $(BCC_TOOL_PATH)bcc32 -q -c -P -w -U$(UNDEFS) -D$(DEFINES) $(CFLAGS) $(C++FLAGS) -I"$(HDRS)" -I"$(BCCROOT)$(SLASH)include" -o"$(<)" "$(>)"
}

#### Archive ####
rule Archive-action
{
    borland-Archive-action $(<) : $(>) ;
}

actions updated together piecemeal borland-Archive-action
{
    $(BCC_TOOL_PATH)tlib /P32 /u /a /C "$(<)" +-"$(>)"
}
