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@167 eb2d0018-73a3-4aeb-bfe9-1def61c9ec69
This commit is contained in:
stefan 2008-09-16 11:28:59 +00:00
parent 7679b05988
commit ff4c5292a5
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -204,7 +204,7 @@ endfunction
function s:GetPolynom(umrechnung)
let umr = {}
let p = [0]
let p = [0] " dummy
let OspLine = s:GetOspLine(a:umrechnung)
if match(OspLine, 'Poly') >= 0
let p += [s:GetOspPoly('1', OspLine)]
@ -305,13 +305,10 @@ function s:GetKgsTestWertp()
let umrechnung = @0
echo 'umrechnung:' umrechnung
let OspLine = s:GetOspLine(umrechnung)
call cursor(startLineNr, 0)
if match(OspLine, 'Poly') >= 0
let p1Val = s:GetOspPoly('1', OspLine)
let p2Val = s:GetOspPoly('2', OspLine)
let p3Val = s:GetOspPoly('3', OspLine)
let p4Val = s:GetOspPoly('4', OspLine)
let p5Val = s:GetOspPoly('5', OspLine)
let umr = s:GetPolynom(umrechnung)
if umr != {}
let Mas = umr['Mas']
let p = umr['p']
" test_wert lesen
call cursor(startLineNr, 0)
call search('test_wert', 'W')
@ -320,9 +317,7 @@ function s:GetKgsTestWertp()
execute 'normal yiw'
let test_wert = @0
" Poynom
echo 'P1:' p1Val 'P2:' p2Val 'P3:' p3Val 'P4:' p4Val 'P5:' p5Val
let phys = s:GetOspPolyPhysValue(
\test_wert, p)
let phys = s:GetOspPolyPhysValue(test_wert, p)
echo 'test_wert:' test_wert 'umrechnung:' umrechnung 'Phys:' phys
endif
endwhile