34 lines
855 B
Nim
34 lines
855 B
Nim
import cligen, os, streams
|
|
import common
|
|
|
|
proc catFile(file:string) =
|
|
if not existsFile(file):
|
|
err "cat: " & file & ": No such file or directory"
|
|
system.quit 1
|
|
const bufSize = 1024
|
|
var
|
|
f = open(file, fmRead)
|
|
buffer {.noinit.}: array[bufSize, char]
|
|
while true:
|
|
let readBytes = readBuffer(f, addr(buffer[0]), bufSize)
|
|
if readBytes == 0:
|
|
break
|
|
discard writeBuffer(stdout, addr(buffer[0]), readBytes)
|
|
if readBytes < bufSize:
|
|
break
|
|
|
|
proc catStdin() =
|
|
var line = ""
|
|
while stdin.readLine(line):
|
|
echo line
|
|
|
|
proc main(files:seq[string]) =
|
|
if files.len == 0:
|
|
catStdin()
|
|
for file in files:
|
|
if file == "-":
|
|
catStdin()
|
|
else:
|
|
catFile(file)
|
|
|
|
dispatch(main, version=("version", nimbaseVersion))
|