(Visual FoxPro) Demonstrates Manual Tool Function Calls

See more AI Examples

Note: This example requires Chilkat v11.4.0 or greater.

For more information, see https://www.chilkatsoft.com/ai_tool_function_caling_briefly_explained.asp

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loJsonTools
LOCAL lnToolIdx
LOCAL loAi
LOCAL lcConversation_name
LOCAL lcSysMessage
LOCAL lcDevMessage
LOCAL loJsonFn
LOCAL lnNumFnCalls
LOCAL lnFn_idx
LOCAL loSbFnName
LOCAL lcCallId
LOCAL lcZodiac_sign
LOCAL lcApplicationFnCallResult
LOCAL loSbResponse

lnSuccess = 0

* Create the following JSON to define tool functions available for the AI to use.
* Note: You'll use the following JSON format regardless of the AI provider, whether
* it be ChatGPT, Gemini, Claude, Grok, etc.  Chilkat automatically converts to the required
* format needed for a given AI provider.

* In this example, the application is providing two functions the AI may choose to call.

* {
*   "tools": [
*     {
*       "name": "get_horoscope",
*       "description": "Get today's horoscope for an astrological sign.",
*       "parameters": {
*         "properties": {
*           "sign": {
*             "type": "string",
*             "description": "An astrological sign like Taurus or Aquarius"
*           }
*         }
*       }
*     },
*     {
*       "name": "get_compatibility",
*       "description": "Returns compatibility analysis between two zodiac signs, including a score and explanation.",
*       "parameters": {
*         "properties": {
*           "sign1": {
*             "type": "string",
*             "description": "The first zodiac sign (e.g., Aries, Taurus, Gemini)."
*           },
*           "sign2": {
*             "type": "string",
*             "description": "The second zodiac sign (e.g., Aries, Taurus, Gemini)."
*           },
*           "relationship_type": {
*             "type": "string",
*             "description": "Type of compatibility to evaluate. (e.g., romantic, friendship, professional, general)"
*           },
*           "detail_level": {
*             "type": "string",
*             "description": "Level of detail in the response. (e.g., short, medium, detailed)"
*           }
*         }
*       }
*     }
*   ]
* }

loJsonTools = CreateObject('Chilkat.JsonObject')

lnToolIdx = 0

loJsonTools.I = lnToolIdx
loJsonTools.UpdateString("tools[i].name","get_horoscope")
loJsonTools.UpdateString("tools[i].description","Get today's horoscope for an astrological sign.")
loJsonTools.UpdateString("tools[i].parameters.properties.sign.type","string")
loJsonTools.UpdateString("tools[i].parameters.properties.sign.description","An astrological sign like Taurus or Aquarius")

lnToolIdx = lnToolIdx + 1
loJsonTools.I = lnToolIdx
loJsonTools.UpdateString("tools[i].name","get_compatibility")
loJsonTools.UpdateString("tools[i].description","Returns compatibility analysis between two zodiac signs, including a score and explanation.")
loJsonTools.UpdateString("tools[i].parameters.properties.sign1.type","string")
loJsonTools.UpdateString("tools[i].parameters.properties.sign1.description","The first zodiac sign (e.g., Aries, Taurus, Gemini).")
loJsonTools.UpdateString("tools[i].parameters.properties.sign2.type","string")
loJsonTools.UpdateString("tools[i].parameters.properties.sign2.description","The second zodiac sign (e.g., Aries, Taurus, Gemini).")
loJsonTools.UpdateString("tools[i].parameters.properties.relationship_type.type","string")
loJsonTools.UpdateString("tools[i].parameters.properties.relationship_type.description","Type of compatibility to evaluate. (e.g., romantic, friendship, professional, general)")
loJsonTools.UpdateString("tools[i].parameters.properties.detail_level.type","string")
loJsonTools.UpdateString("tools[i].parameters.properties.detail_level.description","Level of detail in the response. (e.g., short, medium, detailed)")

* More tools can be added as desired..

loJsonTools.EmitCompact = 0
? loJsonTools.Emit()

loAi = CreateObject('Chilkat.Ai')

* Register the tools that will be made available to the AI.
loAi.RegisterManualTools(loJsonTools)

* The provider can be "openai", "google", "claude", "grok", "mistral", "custom", etc.
loAi.Provider = "openai"
* Use your provider's API key.
loAi.ApiKey = "MY_API_KEY"
* Choose a model.
loAi.Model = "gpt-5-mini"

* Tool function calling must always occur within a conversation.
lcConversation_name = "convo_astrology"
lcSysMessage = "You are a helpful astrologer"
lcDevMessage = "Respond only with a horoscope generated by a tool. Use the tool output as the final answer."
loAi.NewConvo(lcConversation_name,lcSysMessage,lcDevMessage)

* Provide inputs
loAi.InputAddText("What is my horoscope? I am an Aquarius.")

* Send inputs, tool functions, etc. and ask for a "text" response.
lnSuccess = loAi.Ask("text")
IF (lnSuccess = 0) THEN
    ? loAi.LastErrorText
    RELEASE loJsonTools
    RELEASE loAi
    CANCEL
ENDIF

* Did the AI respond with requests for tool function calls?
IF (loAi.HasFunctionCalls = 1) THEN

    loJsonFn = CreateObject('Chilkat.JsonObject')
    loJsonFn.EmitCompact = 0

    loAi.GetFunctionCalls(loJsonFn)
    ? loJsonFn.Emit()

    * Note: Chilkat will convert responses from all AI providers to this format:

    * {
    *   "function_call": [
    *     {
    *       "name": "get_horoscope",
    *       "call_id": "call_RYmeysYQFocFc7Z2ofkv61dW",
    *       "arguments": "{\"sign\":\"Aquarius\"}",
    *       "args": {
    *         "sign": "Aquarius"
    *       }
    *     }
    *   ]
    * }

    lnNumFnCalls = loJsonFn.SizeOfArray("function_call")
    lnFn_idx = 0
    DO WHILE (lnFn_idx < lnNumFnCalls)
        loJsonFn.I = lnFn_idx

        loSbFnName = CreateObject('Chilkat.StringBuilder')
        loJsonFn.StringOfSb("function_call[i].name",loSbFnName)
        lcCallId = loJsonFn.StringOf("function_call[i].call_id")

        IF (loSbFnName.ContentsEqual("get_horoscope",1) = 1) THEN

            * The get_horoscope function (as defined above) has one argument named "sign".
            lcZodiac_sign = loJsonFn.StringOf("function_call[i].args.sign")
            ? "zodiac_sign = " + lcZodiac_sign

            * Insert application code here to call your app's get_horoscope function, passing the zodiac_sign to it..

            * For this example, we'll pretend the app's get_horoscope function returned the following:
            lcApplicationFnCallResult = "Aquarius: Next Tuesday you will befriend a baby otter."

            * Provide the tool call result as an input for the followup Ask.
            loAi.InputAddFnResult(lcCallId,lcApplicationFnCallResult)
        ENDIF

        * Your application would add code to check for and handle each possible function call.

        lnFn_idx = lnFn_idx + 1
    ENDDO

    * After making the requested tool function calls, send the results back to the AI.
    lnSuccess = loAi.Ask("text")
    IF (lnSuccess = 0) THEN
        ? loAi.LastErrorText
        RELEASE loJsonTools
        RELEASE loAi
        RELEASE loJsonFn
        RELEASE loSbFnName
        CANCEL
    ENDIF

ENDIF

* Get the final AI response.
loSbResponse = CreateObject('Chilkat.StringBuilder')
loAi.GetOutputTextSb(loSbResponse)
? loSbResponse.GetAsString()

RELEASE loJsonTools
RELEASE loAi
RELEASE loJsonFn
RELEASE loSbFnName
RELEASE loSbResponse