// tty tapset
// Copyright (C) 2009 IBM Corp.
+// Copyright (C) 2010 Red Hat Inc.
//
// Author: Breno Leitao <leitao@linux.vnet.ibm.com>
//
inode_state = $inode->i_state
inode_flags = $inode->i_flags
-%( kernel_v >= "2.6.20" %?
- file_name = d_name($filp->f_path->dentry)
-%:
- file_name = d_name($filp->f_dentry)
-%)
+ file_name = d_name(@defined($filp->f_path->dentry)
+ ? $filp->f_path->dentry : $filp->f_dentry)
file_mode = $filp->f_mode
file_flags = $filp->f_flags
}
inode_state = $inode->i_state
inode_flags = $inode->i_flags
-%( kernel_v >= "2.6.20" %?
- file_name = d_name($filp->f_path->dentry)
-%:
- file_name = d_name($filp->f_dentry)
-%)
+ file_name = d_name(@defined($filp->f_path->dentry)
+ ? $filp->f_path->dentry : $filp->f_dentry)
file_mode = $filp->f_mode
file_flags = $filp->f_flags
}
* @arg: the ioctl argument
*/
probe tty.ioctl = kernel.function("tty_ioctl"){
-%( kernel_v >= "2.6.20" %?
- name = kernel_string($file->f_path->dentry->d_iname)
-%:
- name = kernel_string($file->f_dentry->d_iname)
-%)
-
+ name = kernel_string(@defined($file->f_path->dentry->d_iname)
+ ? $file->f_path->dentry->d_iname : $file->f_dentry->d_iname)
cmd = $cmd
arg = $arg
}
* @wait_key: the wait queue key
*/
probe tty.poll = kernel.function("tty_poll"){
-%( kernel_v >= "2.6.20" %?
- file_name = d_name($filp->f_path->dentry)
-%:
- file_name = d_name($filp->f_dentry)
-%)
-
-%( kernel_v >= "2.6.31" %?
- if ($wait)
- wait_key = $wait->key
- else
-%)
- wait_key = 0
+ file_name = d_name(@defined($filp->f_path->dentry)
+ ? $filp->f_path->dentry : $filp->f_dentry)
+
+ wait_key = (@defined($wait->key) ? ($wait ? $wait->key : 0) : 0)
}
/**
buffer = kernel_string($buf)
nr = $nr
-%( kernel_v >= "2.6.20" %?
- file_name = d_name($file->f_path->dentry)
-%:
- file_name = d_name($file->f_dentry)
-%)
+ file_name = d_name(@defined($file->f_path->dentry)
+ ? $file->f_path->dentry : $file->f_dentry)
driver_name = kernel_string($tty->driver->driver_name)
}
probe tty.read = kernel.function("n_tty_read") ? {
buffer = kernel_string($buf)
nr = $nr
-%( kernel_v >= "2.6.20" %?
- file_name = d_name($file->f_path->dentry)
-%:
- file_name = d_name($file->f_dentry)
-%)
+ file_name = d_name(@defined($file->f_path->dentry)
+ ? $file->f_path->dentry : $file->f_dentry)
driver_name = kernel_string($tty->driver->driver_name)
}
function __file_filename:string (file:long)
{
-%( kernel_v >= "2.6.20" %?
- dentry = file? @cast(file, "file", "kernel")->f_path->dentry : 0
-%:
- dentry = file? @cast(file, "file", "kernel")->f_dentry : 0
-%)
+ dentry = file
+ ? (@defined(@cast(file, "file", "kernel")->f_path->dentry)
+ ? @cast(file, "file", "kernel")->f_path->dentry
+ : @cast(file, "file", "kernel")->f_dentry)
+ : 0
name = dentry? @cast(dentry, "dentry", "kernel")->d_name->name : 0
if (name == 0)
return "NULL"
devname = __find_bdevname(dev, __file_bdev($iocb->ki_filp))
ino = __file_ino($iocb->ki_filp)
-%( kernel_v >= "2.6.19" %?
- pos = $pos
-%:
- pos = ppos_pos($ppos)
-%)
+ pos = (@defined($pos) ? $pos : ppos_pos($ppos))
buf = $iov->iov_base
count = __iov_length($iov,$nr_segs,1,1) /*FIX ME: should be VERIFY_WRITE instead of 1*/
name = "generic_file_aio_read"
pos = $pos
-%( kernel_v >= "2.6.19" %?
- count = __iov_length($iov,$nr_segs,1,0) /*FIX ME: should be VERIFY_READ instead of 0*/
- buf = $iov->iov_base
-%:
- buf = $buf
- count = $count
-%)
+ count = (@defined($iov)
+ ? __iov_length($iov,$nr_segs,1,0) /*FIX ME: should be VERIFY_READ instead of 0*/
+ : $count)
+ buf = (@defined($iov->iov_base) ? $iov->iov_base : $buf)
name = "generic_file_aio_write"
argstr = sprintf("%d, %d ,%p", count, pos,buf)
}
}
-%( kernel_v < "2.6.19" %?
probe generic.fop.readv = kernel.function ("generic_file_readv") ?
{
dev = __file_dev($filp)
units = "bytes"
}
}
-%:
-%)
/* checks for aops->readpage, if not defined, return -ENOEXEC
else assigns generic_file_vm_ops to vma
retstr = sprintf("%d", $return)
}
-%( kernel_v < "2.6.23" %?
-probe generic.fop.sendfile = kernel.function ("generic_file_sendfile")
+probe generic.fop.sendfile = kernel.function ("generic_file_sendfile") ?
{
dev = __file_dev($in_file)
devname = __find_bdevname(dev, __file_bdev($in_file))
size = count
units = "bytes"
}
-probe generic.fop.sendfile.return = kernel.function ("generic_file_sendfile").return
+probe generic.fop.sendfile.return = kernel.function ("generic_file_sendfile").return ?
{
name = "generic_file_sendfile"
retstr = sprintf("%d", $return)
units = "bytes"
}
}
-%)
probe generic.fop.splice_read = kernel.function ("generic_file_splice_read") ?
{
}
}
-%( kernel_v < "2.6.19" %?
probe generic.fop.read = kernel.function ("generic_file_read") ?
{
dev = __file_dev($filp)
units = "bytes"
}
}
-%)
/* generic_writepages calls mpage_writepages(mapping, wbc, NULL) */
probe generic.aop.writepages = kernel.function ("mpage_writepages")
units = "pages"
}
-%( kernel_v >= "2.6.27" %?
-probe vfs.add_to_page_cache = kernel.function ("add_to_page_cache_locked")
-%:
-probe vfs.add_to_page_cache = kernel.function ("add_to_page_cache")
-%)
+probe vfs.add_to_page_cache = kernel.function ("add_to_page_cache_locked") !,
+ kernel.function ("add_to_page_cache")
{
dev = $mapping->host->i_sb->s_dev
devname = __find_bdevname(dev, $mapping->host->i_sb->s_bdev)
argstr = sprintf("%d, %d", ino, index)
}
-%( kernel_v >= "2.6.27" %?
-probe vfs.add_to_page_cache.return = kernel.function ("add_to_page_cache_locked").return
-%:
-probe vfs.add_to_page_cache.return = kernel.function ("add_to_page_cache").return
-%)
+probe vfs.add_to_page_cache.return = kernel.function ("add_to_page_cache_locked").return !,
+ kernel.function ("add_to_page_cache").return
{
name = "vfs.add_to_page_cache"
retstr = sprintf("%d", $return)
get_block = $get_block
}
-%( kernel_v <= "2.6.25" %?
-probe _vfs.generic_commit_write = kernel.function ("generic_commit_write")
+probe _vfs.generic_commit_write = kernel.function ("generic_commit_write") ?
{
file = $file
page = $page
from = $from
to = $to
}
-%)
probe _vfs.block_prepare_write = kernel.function ("__block_prepare_write")
{
error_str = error ? errno_str(error) : ""
}
-%( kernel_v >= "2.6.24" %?
-probe _vfs.block_write_begin = kernel.function ("block_write_begin")
+probe _vfs.block_write_begin = kernel.function ("block_write_begin") ?
{
file = $file
pos = $pos
_inode = __address_inode($mapping)
}
-probe _vfs.block_write_begin.return = kernel.function ("block_write_begin").return
+probe _vfs.block_write_begin.return = kernel.function ("block_write_begin").return ?
{
file = $file
pos = $pos
error_str = error ? errno_str(error) : ""
}
-probe _vfs.block_write_end = kernel.function ("block_write_end")
+probe _vfs.block_write_end = kernel.function ("block_write_end") ?
{
file = $file
pos = $pos
_inode = __address_inode($mapping)
}
-probe _vfs.block_write_end.return = kernel.function ("block_write_end").return
+probe _vfs.block_write_end.return = kernel.function ("block_write_end").return ?
{
file = $file
pos = $pos
_inode = __address_inode($mapping)
ret = $return
}
-%)