2004-01-22 07:26:47 -05:00
|
|
|
(define-interface file-modes-interface
|
|
|
|
|
(export file-mode?
|
|
|
|
|
(file-mode :syntax)
|
|
|
|
|
file-mode+ file-mode-
|
|
|
|
|
file-mode=? file-mode<=? file-mode>=?
|
|
|
|
|
file-mode->integer integer->file-mode))
|
2004-03-10 13:41:29 -05:00
|
|
|
|
|
|
|
|
(define-structure file-modes file-modes-interface
|
|
|
|
|
(open scheme
|
|
|
|
|
define-record-types
|
|
|
|
|
signals
|
|
|
|
|
bitwise)
|
|
|
|
|
(for-syntax (open scheme bitwise))
|
|
|
|
|
(files file-mode))
|
