GitLab

at 2023-11-29T22:39:39+00:00

Add support for Gray stream implementation of file-length

Merge branch 'gray-file-length' into 'master'

Add support for Gray stream implementation of file-length

See merge request cmucl/cmucl!179
 	   "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT" 

 	   "STREAM-CLEAR-OUTPUT"

 	   "STREAM-FILE-POSITION"

+	   "STREAM-FILE-LENGTH"

 	   "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"

 	   "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"

 	   "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"

     ;; simple-stream

     (stream::%file-length stream)

     ;; lisp-stream

-    (funcall (lisp-stream-misc stream) stream :file-length)))

+    (funcall (lisp-stream-misc stream) stream :file-length)

+    ;; fundamental-stream

+    (stream-file-length stream)))

 

 

 ;;; Input functions:

 ## New in this release:

   * Known issues:

   * Feature enhancements:

+    * Add support for Gray streams implementation of file-length via

+      `ext:stream-file-length` generic function.

   * Changes:

   * ANSI compliance fixes:

   * Bug fixes:

       (file-position stream position)

       (file-position stream)))

 

+(define-gray-stream-method ext:stream-file-length ((stream simple-stream))

+  (file-length stream))

+

 (define-gray-stream-method ext:stream-clear-output ((stream simple-stream))

   (clear-output stream))

 

 (defmethod (setf stream-file-position) (position (stream character-output-stream))

   (file-position (character-output-stream-lisp-stream stream) position))

 

+(defgeneric stream-file-length (stream)

+  (:documentation

+   _N"Implements FILE-LENGTH for the stream."))

+

+(defmethod stream-file-length (stream)

+  (error 'type-error :datum stream :expected-type 'file-stream))

+

 

 ;;; Binary streams.

 ;;;

Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

5 changed files:

Changes: