aboutsummaryrefslogtreecommitdiff
path: root/scheme/idest/batch/setlyrics.scm
blob: d30e8352a8163a6ef1f1a708bb3328bbe922c81a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
;; This file is part of Idest
;; Copyright (C) 2011, 2017 Sergey Poznyakoff
;; Idest is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;;
;; Idest is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with Idest.  If not, see <http://www.gnu.org/licenses/>.

(define-module (idest batch setlyrics))

(use-modules (ice-9 getopt-long)
	     (ice-9 rdelim))

(define (show-help progname)
  (format #t "usage: idest --batch=~A [OPTIONS] FILE...\n" progname)
  (format #t "sets the USLT (unsynchronised lyric text) frame from a file\n")
  (format #t "OPTIONS are:\n")
  (format #t "  -f, --file FILE    read text from FILE (default: stdin)\n")
  (format #t "  -l, --lang NAME    set language in which the lyrics is writen (default: eng)\n")
  (format #t "  -c, --content TEXT set content description\n")
  (format #t "  -h, --help         show this help summary\n")
  (exit 0))
	  
(define-public description
  "set song lyrics (USLT frame) from a file")

(define-public idest-main #f)

(define-public (idest-init)
  (let* ((cmd (command-line))
	 (progname (car cmd))
	 (file #f)
	 (lang "eng")
	 (condesc "")
	 (grammar `((file (single-char #\f) (value #t))
		    (lang (single-char #\l) (value #t))
		    (content (single-char #\c) (value #t))
		    (help))))
    (catch 'misc-error
	   (lambda ()
	     (for-each
	      (lambda (x)
		(case (car x)
		  ((file)
		   (set! file (cdr x)))
		  ((lang)
		   (set! lang (cdr x)))
		  ((content)
		   (set! condesc (cdr x)))
		  ((help)
		   (show-help progname))
		  (else
		   (set-program-arguments (cons progname (cdr x))))))
	      (getopt-long cmd grammar)))
	   (lambda (key . args)
	     (with-output-to-port
		 (current-error-port)
	       (lambda ()
		 (format #t "~A: " progname)
		 (apply format #t (list-ref args 1) (list-ref args 2))
		 (newline)
		 (exit 1)))))
    
    (cond
     ((< (length (command-line)) 2)
      (format (current-error-port)
	      "usage: idest -S ~A [OPTIONS] FILE...\n\
Try `idest -S ~A --help', for more info.\n"
	      progname progname)
      (exit 1)))
    
    (let ((text
	   (with-input-from-port
	       (if file (open file O_RDONLY) (current-input-port))
	     (lambda ()
	       (do ((line-list '())
		    (line (read-line) (read-line)))
		   ((eof-object? line)
		    (apply string-append (reverse line-list)))
		 (set! line-list (cons line (cons "\n" line-list))))))))
      (letrec ((mainfunc
		(lambda (name frames)
		  (append
		   (filter
		    (lambda (elt)
		      (not (and (string=? (car elt) "USLT")
				(let ((v (assoc-ref (cdr elt) 'lang)))
				  (or (not v) (string=? lang)))
				(let ((v (assoc-ref (cdr elt) 'condesc)))
				  (or (not v) (string=? condesc))))))
		    frames)
		   (list
		    (cons
		     "USLT"
		     (list (cons 'lang lang)
			   (cons 'condesc condesc)
			   (cons 'text text))))))))
	(set! idest-main mainfunc)))))


Return to:

Send suggestions and report system problems to the System administrator.