[20210507]完善vim bccalc_win外掛.txt
[20210507]完善vim bccalc_win外掛.txt
--//就是有時候運算不需要bc -l方式執行.而是使用bc執行.增加<Leader>c0快捷.
--//例子:
Bucket: #=61745 Mutex=0x813ddfa8(0, 37, 0, 6)
LibraryHandle: Address=0x7dcd7c38 Hash=3650f131 LockMode=0 PinMode=0 LoadLockMode=0 Status=VALD
ObjectName: Name=select * from dept where deptno=10
FullHashValue=1431c45dbddbb9e74eaa74d53650f131 Namespace=SQL AREA(00) Type=CURSOR(00) Identifier=911274289 OwnerIdn=83
Statistics: InvalidationCount=0 ExecutionCount=3 LoadCount=5 ActiveLocks=0 TotalLockCount=3 TotalPinCount=2
Counters: BrokenCount=1 RevocablePointer=1 KeepDependency=2 Version=0 BucketInUse=2 HandleInUse=2 HandleReferenceCount=0
Concurrency: DependencyMutex=0x7dcd7ce8(0, 6, 0, 0) Mutex=0x7dcd7d78(30, 115, 0, 6)
Flags=RON/PIN/TIM/PN0/DBN/[10012841]
WaitersLists:
Lock=0x7dcd7cc8[0x7dcd7cc8,0x7dcd7cc8]
Pin=0x7dcd7ca8[0x7dcd7ca8,0x7dcd7ca8]
LoadLock=0x7dcd7d20[0x7dcd7d20,0x7dcd7d20]
Timestamp: Current=05-06-2021 11:10:01
HandleReference: Address=0x7dcd7e08 Handle=(nil) Flags=[00]
ReferenceList:
Reference: Address=0x7db2d5d8 Handle=0x7df18190 Flags=ROD[21]
Reference: Address=0x7fbeb330 Handle=0x7d77b428 Flags=ROD[21]
LibraryObject: Address=0x7c547bb0 HeapMask=0000-0001-0001-0000 Flags=EXS[0000] Flags2=[0000] PublicFlags=[0000]
DataBlocks:
Block: #='0' name=KGLH0^3650f131 pins=0 Change=NONE
Heap=0x7e330bd0 Pointer=0x7c547c50 Extent=0x7c547b30 Flags=I/-/P/A/-/-
FreedLocation=0 Alloc=3.687500 Size=3.976562 LoadTime=11614454020
ChildTable: size='16'
Child: id='0' Table=0x7c548a60 Reference=0x7c5484a0 Handle=0x7d0b2810
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Child: id='1' Table=0x7c548a60 Reference=0x7c548998 Handle=0x7dac38b0
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
--//2個子游標，對應handle就是子游標地址。
NamespaceDump:
Parent Cursor: sql_id=4xamnunv51w9j parent=0x7c547c50 maxchild=2 plk=n ppn=n
CursorDiagnosticsNodes:
ChildNode: ChildNumber=0 ID=3 reason=Optimizer mismatch(12) size=2x228 statistics_level= typical all
--//驗證Bucket: #=61745.
--// Hash=3650f131,輸入\10轉化為10進位制.
3650f131 = 911274289
--//如果輸入\cc,計算結果是0.應為計算使用bc -l,注:backup總數量是131072.
911274289 % 131072 = 0
--//如果輸入\c0,計算結果是61745,計算正確.
911274289 % 131072 = 61745
--//原始碼如下,bc.exe可執行程式自己要另行安裝,一般我選擇unxutils包.
"" 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 '\n\\\r' \| sed -e "s/\.\([0-9]*[1-9]\)0\+$/.\1/" -e "s/\.0\+$//"<CR>kA = <ESC>J
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
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>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, "\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")
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 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
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
來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/267265/viewspace-2771272/，如需轉載，請註明出處，否則將追究法律責任。
相關文章
- [20210810]完善vim bccalc_win外掛.txt
- [20220316]完善vim gdb.vim外掛.txt
- [20190909]完善vim的bccacl外掛.txt
- [20210812]完善vim bccalc_linux外掛.txtLinux
- [20190913]完善vim的bccacl外掛2.txt
- [20191031]完善vim的bccalc外掛7.txt
- [20191101]完善vim的bccalc外掛8.txt
- [20200424]vim visSum.vim合計外掛.txt
- [20231226]vim Align外掛使用例子.txt
- [20220117]呼叫bccalc_win.vim外掛失效.txt
- [20211224]vim外掛格式化sql語句.txtSQL
- [20200225]vim bccalc外掛與utl-8編碼.txt
- Vim 外掛管理
- [20210507]如何實現.txt
- vim外掛之Taglist
- [20210507]dump library_cache.txt
- 如何安裝 Vim 外掛
- [20210507]分析library cache轉儲.txt
- vim外掛 NERDTree安裝使用
- python vim外掛是什麼Python
- Vim-plug：極簡 Vim 外掛管理器
- vim外掛管理器，我選vim-pluginPlugin
- [20210106]vim syntax txt.vim.txt
- [20210507]dump library_cache 2.txt
- 關於vim的實用外掛
- [20220314]利用vim下使用gdb進行各種進位制轉換外掛.txt
- vim實戰：外掛安裝(Vundle，NerdTree)
- VIM 程式碼片段外掛 Ultisnips 使用教程
- Vim常用外掛安裝及配置方法
- 如何安裝最新的Vim8.2與Vim外掛管理器vim-plug
- 5 個好用的開發者 Vim 外掛
- 如何使用 Ansible 配置 Vim並安裝外掛
- 實用！開發者的 Vim 外掛（一）
- 實用！開發者的 Vim 外掛（二）
- vim 的模糊查詢外掛 LeaderF 新功能介紹
- 7款優秀Vim外掛幫你打造完美IDEIDE
- Vim的snipMate外掛 php程式碼自動補全PHP
- ros環境搭建及vim-plug外掛安裝ROS