lehitoskin

(define (last lst)
  (if (null? lst)
      null
      (if (null? (cdr lst))
          (car lst)
          (last (cdr lst)))))

; nested-lets->combination
; expected result:
; '((λ (a)

lehitoskin

> (define img (build-path "003.gif"))
> (define bmp
    (let ([in (open-input-file img)])
      (define bitmap (make-object bitmap% in 'gif/alpha))
      (close-input-port in)
      bitmap))
; vector-set!: index is out of range
;   index: 4096
;   valid range: [0, 4095]
;   vector: '#(-1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1

lehitoskin

If you have never used ivy before the 1.0 release, this is not for you!

The reason for this script is to migrate from the old json database used prior to v1.0 to an sqlite3 database.

Usage:
Navigate to the tool in a terminal and run `racket migrate-tool.rkt`.

Depending on how many images you had tagged, it may take a long time to complete.
There is a status message that is run at every image being processed, saying how much has been completed and how much is left.

lehitoskin

#lang racket/base
; migrate-tool.rkt
(require db/base
         db/sqlite3
         json
         racket/class
         racket/contract
         racket/dict
         racket/list
         racket/string

lehitoskin

#!/usr/bin/env racket
#lang racket/gui

(define frame
  (new frame%
       [label "foo"]
       [height 30]
       [width 300]))

(define msg

lehitoskin

#!/bin/bash

WORKSPACE=~/build

mkdir -p $WORKSPACE
cd $WORKSPACE

wget http://jenkins.tox.im/job/Tar_Sodium/lastSuccessfulBuild/artifact/sodium.tar
wget http://jenkins.tox.im/job/Tar_Tox/lastSuccessfulBuild/artifact/toxcore.tar
git clone http://github.com/naxuroqa/Venom

lehitoskin

--- functions.rkt.old	2014-04-17 17:41:23.072375074 -0700
+++ functions.rkt	2014-04-17 18:56:25.685927724 -0700
@@ -5,7 +5,17 @@
 (require ffi/unsafe
          ffi/unsafe/define)
 
-(define-ffi-definer define-tox (ffi-lib "libtoxcore"))
+; jenkins junk
+(define exe-path (path->string (find-system-path 'run-file)))
+

lehitoskin

802D30E27746AE299FC2796D014C24700140574BFBFBB9397114D7CB82DC25728BA74CC378EF

lehitoskin

-----BEGIN PGP PUBLIC KEY BLOCK-----

mQENBFJWD/cBCACx1FDbi7A7h11wXrT4uNo4xmRcw3+AYBRPPxTKU4DQw/pGPka5
56kL7iqSArHM3lI0YhP04aTHs0rUh0wJrM7echrjMS5OkHYh7fO3KAg238Ix7LAz
FYvZzhbt4JZ7rlYX4lgE7tViDadYH9VYWwOmFYFIZTm2Wpa0kmeHaG0u+68wx8AA
uTrBiWnWidrj/ZFvrcelE7Ly62Ne00qRjCMC8paV01FwlznX8rEG5y/8gNLtE6z+
9kcN+Rn+u1K4l8XtK6U1wNzv4xFE5GPXD4IKTrDwoUsZeDKaNkyjyW1NDW6YEn4A
5dlj0lF5z4oo2YQzKKcP/+XRX+1ElJPTLbshABEBAAG0GkxlaGkgVG9za2luIDxs
ZWhpQHRvc2suaW4+iQE+BBMBAgAoBQJSVg/3AhsjBQkJZgGABgsJCAcDAgYVCAIJ
CgsEFgIDAQIeAQIXgAAKCRBXSLl2dy7V1JEYB/9zTY9fpG2vgmGRGHuRVD+lLP57