1#@!#!123s

: / usr / local / ssl / share / systemtap / tapset /

Filename : input.stp

back

@__private30 global _line = ""

probe input.char = procfs("__stdin").write {
        char = $value
}


probe input.line = procfs("__stdin").write {
        _line .= $value
        if ($value != "\n")
                next
        line = _line
        _line = ""
}