klaus_harrer
17.03.2008, 15:28
Hallo
Es ist zur Zeit schwierig ein Batch Script zu starten da gerade auf Tiny-Fu umgestellt wird.
Hat jemand kurz Zeit ein Script zu testen das überprüft ob "file-glob" ein vector b.z.w eine Liste zurückgibt.
Dieses Script funktioniert von Gimp-2.4.0 bis Gimp-2.4.2.
Ich suche also Leute die Gimp-2.4.3 oder höher nutzen und das unten folgende Script in den Scriptordner von Gimp kopieren und in der Shell folgenden Befehl eingeben.
gimp -i -b '(batch-test "/path/*.jpg")' -b '(gimp-quit 0)'
Das Script gibt die Dateinamen wieder.
Wenn das Script nicht funktioniert .Bitte in der Script-Console
(Extras->Script-Fu->Script-Fu-Konsole) folgenden Befehl eingeben.
(batch-test "/path/*.jpg")
Und die Fehlerausgabe posten.
(define (batch-test pattern)
;; gimp -i -b '(batch-test "/path/*.jpg")' -b '(gimp-quit 0)'
;;(if(not(equal? (substring path (-(string-length path) 1) (string-length path)) "/"))
;;(set! path(string-append path "/")))
(define (main-function-test filename)
(let* (
(image (car (gimp-file-load RUN-NONINTERACTIVE
filename filename)))
(drawable (car (gimp-image-get-active-layer image)))
(image_name(car(gimp-image-get-name image)))
)
(gimp-message image_name)
(gimp-image-delete image))
)
;;end mainfunction
(let* ((filelist (cadr (file-glob pattern 1)))
(image_count(- (car (file-glob pattern 1)) 1))
)
;;if not vector
(if(vector? filelist)
(begin
(while (not (< image_count 0))
(let*((file_name (vector-ref filelist image_count)))
(main-function-test file_name)
(gimp-message "Bin ein vector")
(set! image_count (- image_count 1))))
)
(while (not (null? filelist))
(let*((file_name (car filelist)))
(main-function-test file_name)
(gimp-message "Bin eine liste")
(set! filelist (cdr filelist))))
)
)
)
Unter .gimp-2.4/scripts/batch_test.scm speichern.
Dank im voraus.
MfG
Klaus
Es ist zur Zeit schwierig ein Batch Script zu starten da gerade auf Tiny-Fu umgestellt wird.
Hat jemand kurz Zeit ein Script zu testen das überprüft ob "file-glob" ein vector b.z.w eine Liste zurückgibt.
Dieses Script funktioniert von Gimp-2.4.0 bis Gimp-2.4.2.
Ich suche also Leute die Gimp-2.4.3 oder höher nutzen und das unten folgende Script in den Scriptordner von Gimp kopieren und in der Shell folgenden Befehl eingeben.
gimp -i -b '(batch-test "/path/*.jpg")' -b '(gimp-quit 0)'
Das Script gibt die Dateinamen wieder.
Wenn das Script nicht funktioniert .Bitte in der Script-Console
(Extras->Script-Fu->Script-Fu-Konsole) folgenden Befehl eingeben.
(batch-test "/path/*.jpg")
Und die Fehlerausgabe posten.
(define (batch-test pattern)
;; gimp -i -b '(batch-test "/path/*.jpg")' -b '(gimp-quit 0)'
;;(if(not(equal? (substring path (-(string-length path) 1) (string-length path)) "/"))
;;(set! path(string-append path "/")))
(define (main-function-test filename)
(let* (
(image (car (gimp-file-load RUN-NONINTERACTIVE
filename filename)))
(drawable (car (gimp-image-get-active-layer image)))
(image_name(car(gimp-image-get-name image)))
)
(gimp-message image_name)
(gimp-image-delete image))
)
;;end mainfunction
(let* ((filelist (cadr (file-glob pattern 1)))
(image_count(- (car (file-glob pattern 1)) 1))
)
;;if not vector
(if(vector? filelist)
(begin
(while (not (< image_count 0))
(let*((file_name (vector-ref filelist image_count)))
(main-function-test file_name)
(gimp-message "Bin ein vector")
(set! image_count (- image_count 1))))
)
(while (not (null? filelist))
(let*((file_name (car filelist)))
(main-function-test file_name)
(gimp-message "Bin eine liste")
(set! filelist (cdr filelist))))
)
)
)
Unter .gimp-2.4/scripts/batch_test.scm speichern.
Dank im voraus.
MfG
Klaus