[ANN] guile-toxcore

[ANN] guile-toxcore

[David Thompson]

Hello guilers,

A couple months ago I started a project to create Guile bindings for
Tox, the free software Skype replacement.  So far, I have wrapped the
core, group chat, and file transfer functions.  Audio/video functions
still need to be wrapped.  Tox is still under heavy development with no
official stable release, so work is also needed to keep this library in
sync with the libtoxcore project.

One of my goals with this project is to write a bot that users can add
as a friend and use to test text/audio/video chat.  Currently, I have a
working text chat echo bot.

I was going to wait to announce this until it was more complete, but
I've been busy with other projects.  Help is welcomed. :)

The source code is hosted on Gitorious:

https://gitorious.org/guile-toxcore/guile-toxcore

-- 
David Thompson
Web Developer - Free Software Foundation - http://fsf.org
GPG Key: 0FF1D807
Support the FSF: https://fsf.org/donate

Re: [ANN] guile-toxcore

[David Thompson]

David Thompson <dthompson2@worcester.edu> writes:

> One of my goals with this project is to write a bot that users can add
> as a friend and use to test text/audio/video chat.  Currently, I have a
> working text chat echo bot.

Here's the config for the example client (examples/client.scm) that
provides the echo bot functionality:

  (use-modules (tox util))
  
  (define tox-bootstrap-nodes
    '(((ip . "192.254.75.98")
       (id . "951C88B7E75C867418ACDB5D273821372BB5BD652740BCDF623A4FA293E75D2F")
       (port . 33445)
       (ipv6? . #t))
      ((ip . "144.76.60.215")
       (id . "04119E835DF3E78BACF0F84235B300546AF8B936F035185E2A8E9E0A67C8924F")
       (port . 33445)
       (ipv6? . #t))
      ((ip . "23.226.230.47")
       (id . "A09162D68618E742FFBCA1C2C70385E6679604B2D80EA6E84AD0996A1AC8A074")
       (port . 33445)
       (ipv6? . #t))
      ((ip . "37.187.20.216")
       (id . "4FD54CFD426A338399767E56FD0F44F5E35FA8C38C8E87C8DC3FEAC0160F8E17")
       (port . 33445)
       (ipv6? . #t))
      ((ip . "54.199.139.199")
       (id . "7F9C31FE850E97CEFD4C4591DF93FC757C7C12549DDD55F8EEAECC34FE76C029")
       (port . 33445)
       (ipv6? . #f))
      ((ip . "37.59.102.176")
       (id . "B98A2CEAA6C6A2FADC2C3632D284318B60FE5375CCB41EFA081AB67F500C1B0B")
       (port . 33445)
       (ipv6? . #t))
      ((ip . "192.210.149.121")
       (id . "F404ABAA1C99A9D37D61AB54898F56793E1DEF8BD46B1038B9D822E8460FAB67")
       (port . 33445)
       (ipv6? . #f))
      ((ip . "37.187.46.132")
       (id . "5EB67C51D3FF5A9D528D242B669036ED2A30F8A60E674C45E7D43010CB2E1331")
       (port . 33445)
       (ipv6? . #t))))
  
  (define (tox-friend-names tox)
    (map (lambda (friend-number)
           (tox-friend-name tox friend-number))
         (tox-friend-list tox)))
  
  (set-tox-name tox "Tox Test Bot")
  (set-tox-status-message tox "Hanging around")
  
  (add-hook! tox-friend-request-hook
             (lambda (tox public-key message)
               (format #t
                       "Friend request:\nClient ID: ~a\nMessage: ~a\n\n"
                       (bytevector->hex-string public-key)
                       message)
  	     (tox-add-friend-no-request tox public-key)))
  
  (add-hook! tox-message-hook
             (lambda (tox friend message)
               (let ((name (tox-friend-name tox friend))
                     (response (format #f "I received the message: \"~a\""
                                       message)))
                 (format #t "~a says: ~a\n" name message)
                 (tox-send-message tox friend response))))

-- 
David Thompson
Web Developer - Free Software Foundation - http://fsf.org
GPG Key: 0FF1D807
Support the FSF: https://fsf.org/donate