stefan/vimsuite
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

enhancement ftplugin/paf.vim

Browse Source 
git-svn-id: https://vimsuite.svn.sourceforge.net/svnroot/vimsuite/trunk@209 eb2d0018-73a3-4aeb-bfe9-1def61c9ec69
This commit is contained in:
AlterDepp 2011-09-22 13:13:02 +00:00
parent c8d8d9e995
commit bafd496df3
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
vimfiles.stefan/ftplugin/paf.vim
View File

@ -1,3 +1,26 @@
" Paf file specification
" : (RecMark)
" 10 (RecLen)
" 0000 (Offset)
" 00 (RecTyp: 00=Data, 01=EndOfFile, 02=ExtendedSegmentAddress, 04=ExtendedLinearAddress, 10=EndOfDataBlock)
" xxx (Data)
" 00 (Checksum)
" Get number of current byte of data
function! s:GetDataByte()
let Pos = getpos('.')
let Column = Pos[2]
let FirstData = 10
let LastData = len(getline(line('.'))) - 2
if Column < FirstData
let Column = FirstData
endif
if Column > LastData
let Column = LastData
endif
let DataByte = eval('('.Column.'-'.FirstData.') / 2')
return DataByte
endfunction
" Adresse der aktuellen Zeile berechnen und in der Statusline anzeigen
command! PafGetAddress call PafGetAddress()
@ -8,10 +31,11 @@ function! PafGetAddress()
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 RE = ':\x\{2}\(\x\{4}\)[01]0\x\+'
let line = line('.')
let LA = substitute(getline(line), RE, '0x\1', '')
let address = eval(ELAR + ESAR + LA)
let BYTE = s:GetDataByte()
let address = eval(ELAR + ESAR + LA + BYTE)
return printf('0x%08x', address)
endfunction