mirror of
https://github.com/samsonjs/sectorlisp.git
synced 2026-03-25 09:05:48 +00:00
14 lines
197 B
C
14 lines
197 B
C
#include <unistd.h>
|
|
|
|
int main()
|
|
{
|
|
int ret;
|
|
char c;
|
|
usleep(350 * 1000);
|
|
while ((ret = read(0, &c, 1)) > 0) {
|
|
usleep(35 * 1000);
|
|
if ((ret = write(1, &c, 1)) <= 0)
|
|
break;
|
|
}
|
|
return ret;
|
|
}
|