Check gimp version

RobA · **Joined:** Jul 14, 2010 **Posts:** 697

I know there are changes coming up to the gimp API which may break scripts in 2.7+

I'm hoping to modify my 2.6 scripts to work with 2.8, and to help I created a little helper function to check the gimp version so I can then have the code make the appropriate call.

Code: Select all

(define (gimp-version-meets? check)
  (let ((c (map string->number (strbreakup check ".")))
        (v (map string->number (strbreakup (car (gimp-version)) "."))))
  (if (> (car v) (car c)) #t (if (< (car v) (car c)) #f (if (> (cadr v) (cadr c)) #t (if (> (cadr v) (cadr c)) #f (if (>= (caddr v) (caddr c)) #t #f)))))))

There might be more elegant solutions then these nested if statements (Saulgoode?) but this seems to work fine.

So in a script you can use (gimp-version-meets? "2.7.1") and it will return #t if your running version of gimp is version 2.7.1 or later, and then have the appropriate calls made.

-Rob A>

Rod · **Joined:** May 16, 2010 **Posts:** 16018

Thanks Rob!

saulgoode · **Posted:** Wed Jul 27, 2011 10:21 am **(#3)**

Well, to just find out if the version is at least 2.8 (or 2.7+), one could test for:

(defined? 'gimp-image-get-items)

because that function doesn't exist in current versions ("items" are either drawables or groups of drawables, and there are no groups of drawables in GIMP <= 2.6).

paynekj · **Posted:** Wed Jul 27, 2011 11:27 am **(#4)**

I think you have a mistake: the second test of the cadr terms should be a less-than rather than a greater than.

Checking 2.7.1 against a gimp-version of 2.6.7 returns #t

edit:
Oops, you're testing (car v) is less than itself

ofnuts · **Joined:** Oct 25, 2010 **Posts:** 4812

(deleted)

saulgoode · **Posted:** Wed Jul 27, 2011 3:46 pm **(#6)**

I don't know if it's any more elegant, but here is an alternate solution:

Code: Select all

(define (gimp-version-meets? check)
  (let loop ((diffs (map - (map string->number (strbreakup check "."))
                           (map string->number (strbreakup (car (gimp-version)) ".")) ))
             (ok? #t) )
    (if (null? diffs)
      ok?
      (cond 
        ((> (car diffs) 0)
          (loop '() #t) )
        ((zero? (car diffs))
          (loop (cdr diffs) ok?) )
        (else
          (loop (cdr diffs) #f) )))))

A shorter version (though not quite so obvious what is happening):

Code: Select all

(define (gimp-version-meets? check)
  (let loop ((diffs (map - (map string->number (strbreakup check "."))
                           (map string->number (strbreakup (car (gimp-version)) ".")) )))
    (if (null? (cdr diffs))
      (>= (car diffs) 0)
      (if (zero? (car diffs))
        (loop (cdr diffs))
        (> (car diffs) 0) ))))

RobA · **Joined:** Jul 14, 2010 **Posts:** 697

paynekj wrote:

I think you have a mistake: the second test of the cadr terms should be a less-than rather than a greater than.

Checking 2.7.1 against a gimp-version of 2.6.7 returns #t

edit:
Oops, you're testing (car v) is less than itself

oops. thanks, fixed.

-Rob A>

Alonte · **Joined:** Jun 04, 2011 **Posts:** 254

I don't get it

Rod · **Joined:** May 16, 2010 **Posts:** 16018

The script writers are re-writing their scripts so they will not be deprecated in Gimp-2.8 Alonte.