sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added filebase and filepath values

Browse source 
'filename' returns the complete path/filename of the file containg the current xact.
This is inconvenient for some displays.  filebase returns only the base name. For
completeness added filepath as well.
This commit is contained in:
Craig Earls 2012-10-23 14:10:19 -07:00
parent 14dcb27777
commit 41cc9a7f3c
1 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/item.cc
View file

@ -330,6 +330,21 @@ namespace {
return NULL_VALUE;
}
value_t get_filebase(item_t& item) {
if (item.pos)
return string_value(item.pos->pathname.filename().string());
else
return NULL_VALUE;
}
value_t get_filepath(item_t& item) {
if (item.pos)
return string_value(item.pos->pathname.parent_path().string());
else
return NULL_VALUE;
}
value_t get_beg_pos(item_t& item) {
return item.pos ? long(item.pos->beg_pos) : 0L;
}
@ -456,7 +471,12 @@ expr_t::ptr_op_t item_t::lookup(const symbol_t::kind_t kind,
case 'f':
if (name == "filename")
return WRAP_FUNCTOR(get_wrapper<&get_pathname>);
break;
else if (name == "filebase")
return WRAP_FUNCTOR(get_wrapper<&get_filebase>);
else if (name == "filepath")
return WRAP_FUNCTOR(get_wrapper<&get_filepath>);
break;
break;
case 'h':
if (name == "has_tag")