Okay, I have it done finally. I've successfully built a "bot" that talks the "Azure Bot" protocol - Please take a look at http://ckkvm.westus2.cloudapp.azure.com:8080/ which presents a chat UI. It's a glorified REPL at this point :) I've attache the bot code. The protocol is really simple. Messages are posted to the bot via an HTTP POST with the message in the body as a JSON. The header contains a token but my implementation ignores the token. Responses are posted back and a token needs to be generated for that using an APP_ID and PASSWORD. I had to give up on json.l because it looks like printJson does not handle array too well. I cooked up a manual parsing logic and it does not look pretty :)
I am reading McCarthy's history of Lisp currently and hopefully will be able to figure out some neat trick to do some AI stuff that Lisp lends itself to more easily that other languages!!!! [image: Capture.PNG] On Sun, May 19, 2019 at 1:07 AM Alexander Burger <a...@software-lab.de> wrote: > Hi Mansur, > > > finally I've found it > > Cool, thanks! :) > > > Minor note: > > > (push '*Mimes '(`(chop "json") "application/json; charset=utf-8")) > > There is a utility 'mime' for that, also in @lib/http.l > > (mime "json" "application/json; charset=utf-8" 1) > > It not only pushes new entries, but also modifies existing > entries in '*Mimes'. '1' is the (optional) max-age. > > ☺/ A!ex > > -- > UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe >
bot.tgz
Description: application/compressed
