28d94f21ed
git-svn-id: https://vimsuite.svn.sourceforge.net/svnroot/vimsuite/trunk@133 eb2d0018-73a3-4aeb-bfe9-1def61c9ec69
21 lines
696 B
VimL
21 lines
696 B
VimL
|
|
" Adresse der aktuellen Zeile berechnen und in der Statusline anzeigen
|
|
command PafGetAddress! call PafGetAddress()
|
|
function! PafGetAddress()
|
|
let RE = ':\x\{2}\x\{4}02\(\x\{4}\)\x\{2}'
|
|
let line = search(RE, 'bcnW')
|
|
let ELAR = substitute(getline(line), RE, '0x\10', '')
|
|
let RE = ':\x\{2}\x\{4}04\(\x\{4}\)\x\{2}'
|
|
let line = search(RE, 'bcnW')
|
|
let ESAR = substitute(getline(line), RE, '0x\10000', '')
|
|
let RE = ':\x\{2}\(\x\{4}\)00\x\+'
|
|
let line = line('.')
|
|
let LA = substitute(getline(line), RE, '0x\1', '')
|
|
let address = eval(ELAR + ESAR + LA)
|
|
return printf('0x%08x', address)
|
|
endfunction
|
|
|
|
setlocal statusline=%{PafGetAddress()}
|
|
setlocal laststatus=2
|
|
|