[20191101]完善vim的bccalc插件8.txt
--//今天移植bccalc插件到linux,发现一些问题.我自己已经在windows下使用一段时间,从来没有在linux下测试.看来很少人看我的blog.
--//对比以前我的脚本我才发现问题在于windows下echo与linux下不同.
--//windows下echo是内部命令,linux即有外部命令也有内部命令.
# type -a echo
echo is a shell builtin
echo is /bin/echo
--//我的理解优先级应该是内部命令.这样在处理分号上两者是不同的.例子:
--//windows下可以正常执行:
d: mp>echo obase=16;255 | bc -l
FF
--//而linux下这样写会报错,主要分号变成了2个命令.
# echo obase=16;255 | bc -l
obase=16
-bash: 255: command not found
--//必须加入单引号避免分号问题.
# echo 'obase=16;255' | bc -l
FF
# (echo obase=16; echo 255) | bc -l
FF
--//这样在存在分号的地方,linux要修改如下例子:
if a:flag == 10
let str = toupper (str)
let str = substitute (str, "0x", "", "g")
let answer = system ("echo 'ibase=16 ;" . str . "' | bc -l " . preload)
endif
--//这样才能正确执行.另外我还发现一个问题,我喜欢在linux下设置:set paste,这样copy and paste脚本时,不会出现锯齿情况.
--//但是这样的模式在插入模式下执行运算会无效.必须先设置:set nopaste
--//windows下源代码参考链接如下:
--//http://blog.itpub.net/267265/viewspace-2662186/=>[20191031]完善vim的bccalc插件7.txt
--//源代码如下:
"" calculate expression entered on command line and give answer, e.g.:
" :Calculate sin (3) + sin (4) ^ 2
command! -nargs=+ Calculate echo "<args> = " . Calculate ("<args>",0)
"" calculate expression from selection, pick a mapping, or use the Leader form
vnoremap ;bc "ey`>:call CalcLines(0)<CR>
vnoremap ;bb "ey`>:call CalcLines(0)<CR>
vnoremap ;10 "ey`>:call CalcLines(10)<CR>
vnoremap ;16 "ey`>:call CalcLines(16)<CR>
vnoremap ;tx "ey`>:call CalcLines(1616)<CR>
vnoremap ;22 "ey`>:call CalcLines(22)<CR>
vnoremap ;dba "ey`>:call CalcLines(22)<CR>
vnoremap ;32 "ey`>:call CalcLines(32)<CR>
vnoremap ;scn "ey`>:call CalcLines(32)<CR>
vnoremap ;ss "ey`>:call CalcLines(10016)<CR>
vnoremap ;rr "ey`>:call CalcLines(20016)<CR>
vnoremap ;hd "ey`>:call CalcLines(30016)<CR>
vnoremap ;hh "ey`>:call CalcLines(30016)<CR>
vnoremap ;dh "ey`>:call CalcLines(30016)<CR>
"" calculate expression on current line, pick a mapping, or use the Leader
nnoremap <Leader>bx <Esc>A <Esc>"eyy$:call CalcLines(0)<CR>
nnoremap <Leader>bc <Esc>A = <Esc>"eyy:call CalcLines(0)<CR>
nnoremap <Leader>bb <Esc>A = <Esc>"eyy:call CalcLines(0)<CR>
"noremap <Leader>cc Yp!!bc -lq<CR>kA = <ESC>J
noremap <Leader>cc Yp!!bc -lq| tr -d '
\
' | sed -e "s/.([0-9]*[1-9])0+$/.1/" -e "s/.0+$//"<CR>kA = <ESC>J
noremap <Leader>c, Yp!!sed "s/,//g" |bc -lq| tr -d '
\
' | sed -e "s/.([0-9]*[1-9])0+$/.1/" -e "s/.0+$//"<CR>kA = <ESC>J
" convert hexdecimal to decimal
nnoremap <Leader>10 <Esc>A = <Esc>"eyy:call CalcLines(10)<CR>
" convert decimal to hexdecimal
nnoremap <Leader>16 <Esc>A = <Esc>"eyy:call CalcLines(16)<CR>
" split event P1 to TYPE and MODE
nnoremap <Leader>tx <Esc>A = <Esc>"eyy:call CalcLines(1616)<CR>
" split dba(10) or dba(16) to file# and block#
nnoremap <Leader>22 <Esc>A = <Esc>"eyy:call CalcLines(22)<CR>
nnoremap <Leader>dba <Esc>A = <Esc>"eyy:call CalcLines(22)<CR>
" split scn(10) or scn(16) into scn_wrap,scn_base
nnoremap <Leader>32 <Esc>A = <Esc>"eyy:call CalcLines(32)<CR>
nnoremap <Leader>scn <Esc>A = <Esc>"eyy:call CalcLines(32)<CR>
" convert scn_wrap,scn_base(10) or scn_wrap,scn_base(16) to 10 or 16 base
nnoremap <Leader>ss <Esc>A = <Esc>"eyy:call CalcLines(10016)<CR>
" convert file#,block# dba(10) or file#,block# dba(16) to 10 or 16 base
nnoremap <Leader>rr <Esc>A = <Esc>"eyy:call CalcLines(20016)<CR>
" convert hexdecimal to decimal or decimal to hexdecimal
nnoremap <Leader>hd <Esc>A = <Esc>"eyy:call CalcLines(30016)<CR>
nnoremap <Leader>hh <Esc>A = <Esc>"eyy:call CalcLines(30016)<CR>
nnoremap <Leader>dh <Esc>A = <Esc>"eyy:call CalcLines(30016)<CR>
"" calculate from insertmode
inoremap =: = <Esc>"eyy:call CalcLines(0)<CR>a
" ---------------------------------------------------------------------
" Calculate:
" clean up an expression, pass it to bc, return answer
function! Calculate (s,flag)
let has_hex = 0
let str = a:s
" remove newlines and trailing spaces
let str = substitute (str, "
", "", "g")
let str = substitute (str, 's*$', "", "g")
" sub common func names for bc equivalent
let str = substitute (str, 'csins*(', 's (', 'g')
let str = substitute (str, 'ccoss*(', 'c (', 'g')
let str = substitute (str, 'catans*(', 'a (', 'g')
let str = substitute (str, "clns*(", 'l (', 'g')
let str = substitute (str, 'clogs*(', 'l (', 'g')
let str = substitute (str, 'cexps*(', 'e (', 'g')
" alternate exponitiation symbols
let str = substitute (str, '**', '^', "g")
let str = substitute (str, '`', '^', "g")
" let str = substitute (str, '^', '^^^^', "g")
" escape chars for shell
if has("unix")
let str = escape (str, '*();&><|^')
endif
let preload = exists ("g:bccalc_preload") ? g:bccalc_preload : ""
" run bc
" return str
" let answer = system ("echo " . str . " | bc -l " . preload)
if a:flag == 0
let answer = system ("echo " . str . " | bc -l " . preload)
" let answer = answer . " --- ". str
endif
if a:flag == 10
let str = toupper (str)
let str = substitute (str, "0x", "", "g")
let answer = system ("echo 'ibase=16 ;" . str . "' | bc -l " . preload)
endif
if a:flag == 16
let answer = system ("echo 'obase=16 ;" . str . "' | bc -l " . preload)
let answer = "0x" . tolower ( answer )
endif
let has_hex = Check_hex(str)
if a:flag == 1616
if has_hex == 1
let str = toupper (str)
let str = substitute (str, "0x", "", "g")
" 0x10000 hexdecimal = 65536 (10) = 2^16(10)
let answer = system ("echo 'ibase=16 ;" . str . "/10000" . "' | bc " . preload)
let answer1 = system ("echo 'ibase=16 ;" . str . "%10000" . "' | bc " . preload)
let answer2 = system ("echo 'ibase=16 ;" . str . "' | bc -l " . preload)
else
let answer = system ("echo " . str . "/65536" . " | bc " . preload)
let answer1 = system ("echo " . str . "%65536" . " | bc " . preload)
let answer2 = "0x" . system ("echo 'obase=16 ;" . str . "' | bc -l " . preload)
endif
let answer = "/2^16 %2^16 (Type | Mode) = " . answer . "," . answer1 ." = " . tolower(answer2)
endif
if a:flag == 22
if has_hex == 1
let str = toupper (str)
let str = substitute (str, "0x", "", "g")
" 0x400000 hexdecimal = 4194304 (10) = 2^22(10)
let answer = system ("echo 'ibase=16 ;" . str . "/400000" . "' | bc " . preload)
let answer1 = system ("echo 'ibase=16 ;" . str . "%400000" . "' | bc " . preload)
let answer2 = system ("echo 'ibase=16 ;" . str . "' | bc -l " . preload)
else
let answer = system ("echo " . str . "/4194304" . " | bc " . preload)
let answer1 = system ("echo " . str . "%4194304" . " | bc " . preload)
let answer2 = "0x" . system ("echo 'obase=16 ;" . str . "' | bc -l " . preload)
endif
" let answer = "set dba " . answer . "," . answer1
let answer = "set dba " . answer . "," . answer1 ." = alter system dump datefile " . answer . " block " . answer1 ." = " . tolower(answer2)
endif
if a:flag == 32
if has_hex == 1
let str = toupper (str)
let str = substitute (str, "0x", "", "g")
" 0x100000000 hexdecimal = 4294967296(10) = 2^32(10)
let answer = system ("echo 'ibase=16 ;" . str . "/100000000" . "' | bc " . preload)
let answer1 = system ("echo 'ibase=16 ;" . str . "%100000000" . "' | bc " . preload)
let answer2 = system ("echo 'obase=16 ;ibase=16 ;" . str . "/100000000" . "' | bc " . preload)
let answer3 = system ("echo 'obase=16 ;ibase=16 ;" . str . "%100000000" . "' | bc " . preload)
else
let answer = system ("echo " . str . "/4294967296" . " | bc " . preload)
let answer1 = system ("echo " . str . "%4294967296" . " | bc " . preload)
let answer2 = system ("echo 'obase=16 ;" . str . "/4294967296" . "' | bc " . preload)
let answer3 = system ("echo 'obase=16 ;" . str . "%4294967296" . "' | bc " . preload)
endif
let answer = "scn_wrap,scn_base(10): " . answer . "," . answer1 . " = scn_wrap,scn_base(16): " . "0x" . tolower (answer2) . "," . "0x" . tolower(answer3)
endif
if a:flag == 10016
if has_hex == 1
let str = toupper (str)
let str = substitute (str, "0x", "", "g")
" 0x100000000 hexdecimal = 4294967296(10) = 2^32(10)
let str = substitute (str, "[,.]", "*100000000+", "g")
let answer = system ("echo 'obase=10 ;ibase=16 ;" . str . "' | bc -l " . preload)
let answer1 = system ("echo 'obase=16 ;ibase=16 ;" . str . "' | bc -l " . preload)
else
let str = substitute (str, "[,.]", "*4294967296+", "g")
let answer = system ("echo " . str . " | bc -l " . preload)
let answer1 = system ("echo 'obase=16 ;" . str . "' | bc -l " . preload)
endif
let answer = "scn(10): " . answer . " = scn(16): " . "0x" . tolower (answer1)
endif
if a:flag == 20016
if has_hex == 1
let str = toupper ( str )
let str = substitute (str, "0x", "", "g")
" 0x400000 hexdecimal = 4194304 (10) = 2^22(10)
let str = substitute (str, "[,.]", "*400000+", "g")
let answer = system ("echo 'obase=10 ;ibase=16 ;" . str . "' | bc -l " . preload)
let answer1 = system ("echo 'obase=16 ;ibase=16 ;" . str . "' | bc -l " . preload)
else
let str = substitute (str, "[,.]", "*4194304+", "g")
let answer = system ("echo " . str . " | bc -l " . preload)
let answer1 = system ("echo 'obase=16 ;" . str . "' | bc -l " . preload)
endif
let answer = "file#,block# dba(10): " . answer . " = file#,block# dba(16): " . "0x" . tolower (answer1)
endif
if a:flag == 30016
if has_hex == 1
let str = substitute (str, "0x", "", "g")
let str = toupper ( str )
let answer = system ("echo 'ibase=16 ;" . str . "' | bc -l " . preload)
else
let answer = system ("echo 'obase=16 ;" . str . "' | bc -l " . preload)
let answer = "0x" . tolower ( answer )
endif
endif
" strip newline and
let answer = substitute (answer, "[\
]", "", "g")
" strip trailing 0s in decimals
let answer = substitute (answer, '.(d*[1-9])0+$', '.1', "")
let answer = substitute (answer, '.0+$', '', "")
return answer
endfunction
" ---------------------------------------------------------------------
" CalcLines:
"
" take expression from lines, either visually selected or the current line,
" pass to calculate function, echo or past answer after '='
function! CalcLines(flag)
let has_equal = 0
" remove newlines and trailing spaces
let @e = substitute (@e, "
", "", "g")
let @e = substitute (@e, 's*$', "", "g")
" if we end with an equal, strip, and remember for output
if @e =~ "=$"
let @e = substitute (@e, '=$', "", "")
let has_equal = 1
endif
" if there is another equal in the line, assume chained equations, remove
" leading ones
let @e = substitute (@e, '^.+=', '', '')
let answer = Calculate (@e,a:flag)
" append answer or echo
if has_equal == 1
exec "normal a" . answer
else
echo "answer = " . answer
endif
endfunction
" ---------------------------------------------------------------------
" Check_hex:
"
" Check if the string contains 0x, a, b, c, d, e, f return has_hex=1
function! Check_hex(str)
let has_hex = 0
let ss = a:str
let ss = tolower ( ss )
if ss =~ "0x"
let has_hex = 1
return has_hex
endif
if ss =~ "[abcdef]"
let has_hex = 1
return has_hex
endif
endfunction
