(use-modules (ice-9 ftw) (srfi srfi-1))

(define (not-inner-lang? str)
  (not (string-match 
	"glil|glil\\.scm|assembly|assembly\\.scm|bytecode|objcode\\.scm|objcode|tree-il|tree-il\\.scm|value|\\.\\.|\\." 
	str)))
    

(define (get-all-available-languages)
  (let lp((rest (map (lambda (x) (string-append x "/language")) %load-path)) (result '()))
    (cond
     ((null? rest) (apply lset-union string=? result))
     (else 
      (let ((ll (scandir (car rest) not-inner-lang?)))
	(lp (cdr rest) (if ll (cons ll result) result)))))))