Tcl

Prove Stateful Multi-Turn Conversation

See more AI Examples

This example is to prove that the 2nd request in a conversation is part of a stateful multi-turn conversation. The 2nd request asks for information provided in the 1st request. Tcl

load ./chilkat.dll

set success 0

#  This example assumes the Chilkat API to have been previously unlocked.
#  See Global Unlock Sample for sample code.

set ai [new_CkAi]

#  The provider can be "openai", "google", "claude", "deepseek", "xai", or "perplexity".
#  Support for additional providers will be added in future versions of Chilkat.
CkAi_put_Provider $ai "google"

#  Use your provider's API key.
CkAi_put_ApiKey $ai "MY_API_KEY"

#  Choose a model.
CkAi_put_Model $ai "gemini-3.6-flash"

#  Create a new conversation to be maintained locally in memory.
#  If the conversation is the first to be created, it is also automatically selected.
set systemMsg "You are a helpful assistant"
set developerMsg ""
set conversationName "test_conversation"
CkAi_NewConvo $ai $conversationName $systemMsg $developerMsg

#  -------------------------------------------------------------------------------------------
#  Our first request will establish a secret that we'll ask for in the 2nd request.
#  Add a text input.
CkAi_InputAddText $ai "Please remember this: The word I'll ask for later is BlubberFish.  What's the word?"

#  Ask the AI for text output.
set success [CkAi_Ask $ai "text"]
if {$success == 0} then {
    puts [CkAi_lastErrorText $ai]
    delete_CkAi $ai
    exit
}

#  Note: The inputs accumulated through one or more calls to Input* methods are cleared when the Ask method returns with success.

#  Get the text response.
set sbResponse [new_CkStringBuilder]

CkAi_GetOutputTextSb $ai $sbResponse
puts [CkStringBuilder_getAsString $sbResponse]
puts "----"

#  Sample output:

#  The word is **BlubberFish**.

#  -------------------------------------------------------------------------------------------
#  Let's ask for the word. If this is a stateful conversation, the AI should respond correctly.
CkAi_InputAddText $ai "OK, I'm going to ask you again, what's the word?"
set success [CkAi_Ask $ai "text"]
if {$success == 0} then {
    puts [CkAi_lastErrorText $ai]
    delete_CkAi $ai
    delete_CkStringBuilder $sbResponse
    exit
}

#  Get the text response.
CkStringBuilder_Clear $sbResponse
CkAi_GetOutputTextSb $ai $sbResponse
puts [CkStringBuilder_getAsString $sbResponse]

#  Sample output:

#  The word is **BlubberFish**.

#  -------------------------------------------------------------------------------------------
#  Look at the conversation so far...
#  
set json [new_CkJsonObject]

CkAi_ExportConvo $ai $conversationName $json
CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

#  Note: The conversation transcript format exported and imported by Chilkat is always the OpenAI format,
#  regardless of the AI provider.  (Chilkat translates the format from OpenAI to whatever is needed by the actual AI provider being used.)

#  {
#    "input": [
#      {
#        "role": "system",
#        "content": [
#          {
#            "type": "input_text",
#            "text": "You are a helpful assistant"
#          }
#        ]
#      },
#      {
#        "role": "user",
#        "content": [
#          {
#            "type": "input_text",
#            "text": "Please remember this: The word I'll ask for later is BlubberFish.  What's the word?"
#          }
#        ]
#      },
#      {
#        "role": "assistant",
#        "content": [
#          {
#            "type": "output_text",
#            "text": "The word is **BlubberFish**."
#          }
#        ]
#      },
#      {
#        "role": "user",
#        "content": [
#          {
#            "type": "input_text",
#            "text": "OK, I'm going to ask you again, what's the word?"
#          }
#        ]
#      },
#      {
#        "role": "assistant",
#        "content": [
#          {
#            "type": "output_text",
#            "text": "The word is **BlubberFish**."
#          }
#        ]
#      }
#    ]
#  }

#  -------------------------------------------------------------------------------------------
#  If we unselect the conversation, so that no conversation is selected,
#  then the same query results in the AI not knowing the word.

CkAi_put_SelectedConvo $ai ""

CkAi_InputAddText $ai "OK, I'm going to ask you again, what's the word?"
set success [CkAi_Ask $ai "text"]
if {$success == 0} then {
    puts [CkAi_lastErrorText $ai]
    delete_CkAi $ai
    delete_CkStringBuilder $sbResponse
    delete_CkJsonObject $json
    exit
}

#  Get the text response.
CkStringBuilder_Clear $sbResponse
CkAi_GetOutputTextSb $ai $sbResponse
puts [CkStringBuilder_getAsString $sbResponse]

#  Sample output:

#  I apologize, but I don't have the context of our previous interaction or what "the word" you're referring to might be.
#  Could you please remind me or provide the clue again? I'm ready to help you figure it out!

delete_CkAi $ai
delete_CkStringBuilder $sbResponse
delete_CkJsonObject $json