--//抽一點點時間,重新編寫了bccalc_linux的插件,實際上與windows的不同之處在與echo的處理方式上.
R:\>echo obase=16;254 | bc
FE

$ echo obase=16;254 | bc
obase=16
-bash: 254: command not found

$ echo 'obase=16;254' | bc
FE

--//必須加入分號.

--//源代碼如下,我就不測試了.
"" 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 using bc -l, pick a mapping, or use the Leader form
vnoremap ;bc "ey`>:call CalcLines(0)<CR>
vnoremap ;bb "ey`>:call CalcLines(0)<CR>

"" convert hexdecimal to decimal
vnoremap ;10 "ey`>:call CalcLines(10)<CR>

"" convert hexdecimal to decimal
vnoremap ;16 "ey`>:call CalcLines(16)<CR>

"" computer hexdecimal to hexdecimal
vnoremap ;16x "ey`>:call CalcLines(1016)<CR>

"" split event P1 to TYPE and MODE
vnoremap ;tx "ey`>:call CalcLines(1616)<CR>

"" split dba(10) or dba(16) to file# and block#
vnoremap ;22 "ey`>:call CalcLines(22)<CR>
vnoremap ;dba "ey`>:call CalcLines(22)<CR>

"" split scn(10) or scn(16) into scn_wrap,scn_base
vnoremap ;32 "ey`>:call CalcLines(32)<CR>
vnoremap ;scn "ey`>:call CalcLines(32)<CR>

"" convert scn_wrap,scn_base(10) or scn_wrap,scn_base(16) to 10 or 16 base
vnoremap ;ss "ey`>:call CalcLines(10016)<CR>

"" convert file#,block# dba(10) or file#,block# dba(16) to 10 or 16 base
vnoremap ;rr "ey`>:call CalcLines(20016)<CR>

"" convert hexdecimal to decimal or decimal to hexdecimal
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 using bc -l, pick a mapping, or use the Leader
nnoremap? <Leader>bx <Esc>"eyy$:call CalcLines(0)<CR>
nnoremap? <Leader>bc <Esc>"eyy$:call CalcLines(0)<CR>
nnoremap? <Leader>bb <Esc>"eyy$:call CalcLines(0)<CR>
noremap?? <Leader>cc Yp!!bc -lq\| tr -d '\n\\\r' \| sed -e "s/\.\([0-9]*[1-9]\)0\+$/.\1/" -e "s/\.0\+$//"<CR>kA = <ESC>J

"" calculate expression on current line using bc , pick a mapping, or use the Leader
noremap?? <Leader>c0 Yp!!bc -q\| tr -d '\n\\\r' \| sed -e "s/\.\([0-9]*[1-9]\)0\+$/.\1/" -e "s/\.0\+$//"<CR>kA = <ESC>J

"" calculate expression on current line ( delete ,) using bc -l,? pick a mapping, or use the Leader
noremap?? <Leader>c, Yp!!sed "s/,//g" \|bc -lq\| tr -d '\n\\\r' \| sed -e "s/\.\([0-9]*[1-9]\)0\+$/.\1/" -e "s/\.0\+$//"<CR>kA = <ESC>J

"" convert hexdecimal to decimal
nnoremap? <Leader>10 <Esc>"eyy$:call CalcLines(10)<CR>

"" convert decimal to hexdecimal
nnoremap? <Leader>16 <Esc>"eyy$:call CalcLines(16)<CR>

"" computer hexdecimal to hexdecimal
nnoremap? <Leader>16x <Esc>"eyy$:call CalcLines(1016)<CR>

"" split event P1 to TYPE and MODE
nnoremap? <Leader>tx? <Esc>"eyy$:call CalcLines(1616)<CR>

"" split dba(10) or dba(16) to file# and block#
nnoremap? <Leader>22? <Esc>"eyy$:call CalcLines(22)<CR>
nnoremap? <Leader>dba <Esc>"eyy$:call CalcLines(22)<CR>

"" split scn(10) or scn(16) into scn_wrap,scn_base
nnoremap? <Leader>32? <Esc>"eyy$:call CalcLines(32)<CR>
nnoremap? <Leader>scn <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>"eyy$:call CalcLines(10016)<CR>

"" convert file#,block# dba(10) or file#,block# dba(16) to 10 or 16 base
nnoremap? <Leader>rr <Esc>"eyy$:call CalcLines(20016)<CR>

"" convert hexdecimal to decimal or decimal to hexdecimal
nnoremap? <Leader>hd <Esc>"eyy$:call CalcLines(30016)<CR>
nnoremap? <Leader>hh <Esc>"eyy$:call CalcLines(30016)<CR>
nnoremap? <Leader>dh <Esc>"eyy$:call CalcLines(30016)<CR>

"" --------------------------------------------------------------------
"" calculate from insertmode
inoremap =: =<Esc>"eyy$:call CalcLines(0)<CR>a
inoremap =- =<Esc>"eyy$:call CalcLines(30016)<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, "\n",?? "", "g")
??? let str = substitute (str, '\s*$', "", "g")

??? " sub common func names for bc equivalent
??? let str = substitute (str, '\csin\s*(',? 's (', 'g')
??? let str = substitute (str, '\ccos\s*(',? 'c (', 'g')
??? let str = substitute (str, '\catan\s*(', 'a (', 'g')
??? let str = substitute (str, "\cln\s*(",?? 'l (', 'g')
??? let str = substitute (str, '\clog\s*(',? 'l (', 'g')
??? let str = substitute (str, '\cexp\s*(',? 'e (', 'g')

??? " alternate exponitiation symbols
??? let str = substitute (str, '\*\*', '^', "g")
??? let str = substitute (str, '`', '^',??? "g")

??? if has("windows")
??????? let str = substitute (str, '\^', '^^^^',??? "g")
??? endif

??? " 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

??? if a:flag == 1016
??????? let str = toupper (str)
??????? let str = substitute (str, "0x", "", "g")
??????? let answer = system ("echo obase=16 ;ibase =16;" . str .? " \| bc " . 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 datafile " . 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, "[\\\n]", "", "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, "\n", "",?? "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
??????? exec "normal a " . "= " . answer
??????? "" 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

總結

以上是生活随笔為你收集整理的完善vim bccalc_linux插件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。