PureBasic

Automatic JS AI Tool Calling with Supporting JS Sources

See more AI Examples

Demonstrates an automatic JavaScript tool function calling where JavaScript code can be loaded from additional scripts that don't include a tool registry. PureBasic

IncludeFile "CkStringBuilder.pb"
IncludeFile "CkAi.pb"

Procedure ChilkatExample()

    success.i = 0

    ; ----------------------------------------------------------------------------------
    ; The Javascript file loaded here is shown at the bottom of this page.
    ; -----------------------------------------------------------------------------------

    ; In this example, we'll load the Javascript tool functions and registry from a file.
    sbJs.i = CkStringBuilder::ckCreate()
    If sbJs.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkStringBuilder::ckLoadFile(sbJs,"qa_data/js_tools/toolset_5.js","utf-8")
    If success = 0
        Debug CkStringBuilder::ckLastErrorText(sbJs)
        CkStringBuilder::ckDispose(sbJs)
        ProcedureReturn
    EndIf

    ai.i = CkAi::ckCreate()
    If ai.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Additional JavaScript code can be loaded into the AI object's internal JS engine
    ; by calling RegisterJsTools with evalOnly = 1.
    sbExtraJs.i = CkStringBuilder::ckCreate()
    If sbExtraJs.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sbExtraJs,"function getOrderTotal({ order_id }) { return 149.95; }")

    ; When evalOnly equals 1, it tells Chilkat that no toolRegistry will be present.
    ; The purpose for doing the eval is to add function definitions to the global namespace.
    ; The value passed for allowAllKeyword is meaningless (not used) when evalOnly = 1.
    evalOnly.i = 1
    allowAllKeyword.i = 1
    CkAi::ckRegisterJsTools(ai,sbExtraJs,evalOnly,allowAllKeyword)

    ; Register the tools that will be made available to the AI.
    evalOnly = 0
    CkAi::ckRegisterJsTools(ai,sbJs,evalOnly,allowAllKeyword)

    ; The provider can be "openai", "google", "claude", "grok", "mistral", "custom", etc.
    CkAi::setCkProvider(ai, "openai")
    ; Use your provider's API key.
    CkAi::setCkApiKey(ai, "MY_API_KEY")
    ; Choose a model.
    CkAi::setCkModel(ai, "gpt-5-mini")

    ; Tool function calling must always occur within a conversation.
    conversation_name.s = "convo_4"
    sysMessage.s = "You are a helpful business assistant"
    devMessage.s = "Respond only with a information generated by a tool."
    CkAi::ckNewConvo(ai,conversation_name,sysMessage,devMessage)

    ; Provide inputs
    CkAi::ckInputAddText(ai,"What is the total for order A123?")

    ; Send inputs, tool functions, etc. and ask for a "text" response.
    ; If the AI responds with tool calls, Chilkat automatically handles them by calling your JavaScript
    ; tool functions as directed by the AI, and sending results back to the AI until the final
    ; response is received.
    success = CkAi::ckAsk(ai,"text")
    If success = 0
        Debug CkAi::ckLastErrorText(ai)
        CkStringBuilder::ckDispose(sbJs)
        CkAi::ckDispose(ai)
        CkStringBuilder::ckDispose(sbExtraJs)
        ProcedureReturn
    EndIf

    ; Get the AI response.
    sbResponse.i = CkStringBuilder::ckCreate()
    If sbResponse.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkAi::ckGetOutputTextSb(ai,sbResponse)
    Debug CkStringBuilder::ckGetAsString(sbResponse)


    CkStringBuilder::ckDispose(sbJs)
    CkAi::ckDispose(ai)
    CkStringBuilder::ckDispose(sbExtraJs)
    CkStringBuilder::ckDispose(sbResponse)


    ProcedureReturn
EndProcedure