#!/usr/bin/csi -script

(require-extension posix easyffi magic)

(define (main args)
  (if (not (null? args))
    (begin
      (define cookie (magic-open (+ MAGIC_MIME MAGIC_SYMLINK)))
      (magic-load cookie #f)

      (for-each (lambda (path)
		  (let ((mime-type (magic-file cookie path)))
		    (print path ": raw mime-type:       " mime-type)
		    (print path ": sanitized mime-type: "
			   (magic-sanitize-mime-type mime-type path))))
		args)

      (magic-close cookie))))

(main (command-line-arguments))
(exit 0)