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

Vorbereitung für GetOspTestValues für xmo

Browse Source 
git-svn-id: https://vimsuite.svn.sourceforge.net/svnroot/vimsuite/trunk@168 eb2d0018-73a3-4aeb-bfe9-1def61c9ec69
This commit is contained in:
stefan 2008-09-16 11:43:36 +00:00
parent ff4c5292a5
commit 645680c307
1 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
vimfiles.damos/ftplugin/kgs.vim
View File

@ -105,13 +105,6 @@ endfunction
" Physikalischen Wert zu Testwert eines Kennwerts ermitteln " Physikalischen Wert zu Testwert eines Kennwerts ermitteln
" Cursor muss sich im .kgs-File auf dem Kennwert befinden " Cursor muss sich im .kgs-File auf dem Kennwert befinden
" --------------------------------------------------------- " ---------------------------------------------------------
function s:GetOspLine(umrechnungsformel)
execute 'tag ' a:umrechnungsformel
let OspLine = getline('.')
execute 'pop'
return OspLine
endfunction
function s:GetOspPoly(Nr, OspLine) function s:GetOspPoly(Nr, OspLine)
if match(a:OspLine, 'Poly') >= 0 if match(a:OspLine, 'Poly') >= 0
let valRegEx = '[^:;]\+' let valRegEx = '[^:;]\+'
@ -205,18 +198,27 @@ endfunction
function s:GetPolynom(umrechnung) function s:GetPolynom(umrechnung)
let umr = {} let umr = {}
let p = [0] " dummy let p = [0] " dummy
let OspLine = s:GetOspLine(a:umrechnung) " jump to tag
if match(OspLine, 'Poly') >= 0 execute 'tag ' a:umrechnung
let p += [s:GetOspPoly('1', OspLine)] let ext = fnamemodify(expand('%'), ':e')
let p += [s:GetOspPoly('2', OspLine)] if ext == 'osp'
let p += [s:GetOspPoly('3', OspLine)] let OspLine = getline('.')
let p += [s:GetOspPoly('4', OspLine)] if match(OspLine, 'Poly') >= 0
let p += [s:GetOspPoly('5', OspLine)] let p += [s:GetOspPoly('1', OspLine)]
let umr['Mas'] = s:GetOspMas(OspLine) let p += [s:GetOspPoly('2', OspLine)]
" Poynom let p += [s:GetOspPoly('3', OspLine)]
echo 'umrechnung:' a:umrechnung let p += [s:GetOspPoly('4', OspLine)]
echo 'P1:' p[1] 'P2:' p[2] 'P3:' p[3] 'P4:' p[4] 'P5:' p[5] let p += [s:GetOspPoly('5', OspLine)]
let umr['Mas'] = s:GetOspMas(OspLine)
endif
else
echoerr 'no OSP file: ' . ext
endif endif
" return from tag
execute 'pop'
" Poynom
echo 'umrechnung:' a:umrechnung
echo 'P1:' p[1] 'P2:' p[2] 'P3:' p[3] 'P4:' p[4] 'P5:' p[5]
let umr['p'] = p let umr['p'] = p
return umr return umr
endfunction endfunction
@ -304,7 +306,6 @@ function s:GetKgsTestWertp()
execute 'normal wyiw' execute 'normal wyiw'
let umrechnung = @0 let umrechnung = @0
echo 'umrechnung:' umrechnung echo 'umrechnung:' umrechnung
let OspLine = s:GetOspLine(umrechnung)
let umr = s:GetPolynom(umrechnung) let umr = s:GetPolynom(umrechnung)
if umr != {} if umr != {}
let Mas = umr['Mas'] let Mas = umr['Mas']