Author: iratqq Date: Sun Mar 15 22:57:46 2009 New Revision: 5893
Modified: trunk/scm/fileio.scm Log: * scm/fileio.scm (fileio-set-flag, open-flags-number) (open-mode-number, poll-flags-number): - New functions. Modified: trunk/scm/fileio.scm ============================================================================== --- trunk/scm/fileio.scm (original) +++ trunk/scm/fileio.scm Sun Mar 15 22:57:46 2009 @@ -40,6 +40,18 @@ (define open-mode-alist (file-open-mode?)) (define poll-flags-alist (file-poll-flags?)) +(define (fileio-set-flag l alist) + (apply logior + (map (lambda (s) + (assq-cdr s alist)) + l))) +(define (open-flags-number l) + (fileio-set-flag l open-flags-alist)) +(define (open-mode-number l) + (fileio-set-flag l open-mode-alist)) +(define (poll-flags-number l) + (fileio-set-flag l poll-flags-alist)) + (define (string->file-buf str) (map char->integer (string->list str))) (define (file-buf->string buf)
