Need a peek for WINDOWS
Posted: Mon Sep 13, 2021 3:26 pm
Hello.
It was big PITA when I found that win-version of newlisp have no peek.
But I found a workaround (viewtopic.php?f=9&t=5139) :
May be it's better place for posting that.
It was big PITA when I found that win-version of newlisp have no peek.
But I found a workaround (viewtopic.php?f=9&t=5139) :
Code: Select all
(define (peek-pipe fd)
(letn (pos (seek fd)
size (seek fd -1))
(seek fd pos)
size
))