Source of Nothingness - gtags

* Menu

About | Profile | まとめ | オリジナル | xyzzy | あんてな | ■ | buzz

xyzzy : gtags.l
xyzzy topic : gtags-menu

page 0 - << : 0 : >>

* xyzzy : gtags.l

たかだか3つの関数のためにemacs.lに依存するのはもったいないと思ったので、てきとーに実装してみました。
GPLなんですしemacs.lからもってくるのもありかと。
マイナーモードにする関数はed::toggle-modeを使いましょう。それでelisp::prefix-numeric-valueは不要になります。

elisp::count-lines
elisp::expand-file-name
elisp::prefix-numeric-value

(defun count-line(beg end)
  (if (eql beg end)
      0
    (1+ (- (save-excursion
             (goto-char end)
             (when (eql (preceding-char) #\LFD) (backward-char))
             (current-line-number))
           (save-excursion
             (goto-char beg)
             (current-line-number))))))

(defun expand-file-name (file &optional (dir (default-directory)))
  (merge-pathnames file dir))

* xyzzy topic : gtags-menu

http://xyzzy.g-artistic.net/item_567_catid_32.html

page 0 - << : 0 : >>

time | sum | count | dic

2021-01-20

gtags : 2
breg : 3
c++ : 21
format : 67
http : 434
-1451')/**/OR/**/9590=CAST((CHR(113)||CHR(106)||CHR(98)||CHR(106)||CHR(113))||(SELECT/**/(CASE/**/WHEN/**/(9590=9590)/**/THEN/**/1/**/ELSE/**/0/**/END))::text||(CHR(113)||CHR(118)||CHR(118)||CHR(107)||CHR(113))/**/AS/**/NUMERIC)/**/AND/**/('seBu'='seBu : 573
emacs : 17
hash : 5
free : 24
packages : 7
Prox : 3
-7584')/**/OR/**/2943=2598/**/AND/**/('Uquj'='Uquj : 573
xyzzy) : 7
indent : 6
wget : 6
マウス : 2
起動 : 9
fun.sci : 3
void : 3
Linux : 20
-5691'/**/OR/**/6802=9415/**/AND/**/'XLxH'='XLxH : 573
rein : 2
Wikipedia : 4
EXEC : 8
-2618')/**/OR/**/2400=(SELECT/**/UPPER(XMLType(CHR(60)||CHR(58)||CHR(113)||CHR(106)||CHR(98)||CHR(106)||CHR(113)||(SELECT/**/(CASE/**/WHEN/**/(2400=2400)/**/THEN/**/1/**/ELSE/**/0/**/END)/**/FROM/**/DUAL)||CHR(113)||CHR(118)||CHR(118)||CHR(107)||CHR(113)||CHR(62)))/**/FROM/**/DUAL)/**/AND/**/('kNjf'='kNjf : 573
-Scrapbook99999" : 573
2005 : 16
-3764'/**/OR/**/3073=3073/**/AND/**/'KLfa'='KLfa : 573
-4450/**/OR/**/4425=2457--/**/uxgG : 573
HE-grep.l : 3
拡張 : 5
hex : 3
-Scrapbook999999.1 : 573
-Scrapbook2121121121212.1 : 573
Http://Www.Google.Com : 2
-9664)/**/OR/**/3073=3073/**/AND/**/(3451=3451 : 573
popup : 15
バイナリ : 6
lisp" : 6
THEN : 2
den8view : 5
fortran : 3
patch : 4
mode : 35
-6102')/**/OR/**/3073=3073/**/AND/**/('jsSI'='jsSI : 573
-Scrapbook : 304
-7843/**/OR/**/2596=2596 : 573
decode : 6
raido : 42
xyzzy/ : 52
asdf : 5
google : 5
-4815/**/OR/**/2596=2596--/**/vKyA : 573
union : 2
loop : 12
he-grep : 3
memo : 29
GROUP : 3
-3650'/**/OR/**/2400=(SELECT/**/UPPER(XMLType(CHR(60)||CHR(58)||CHR(113)||CHR(106)||CHR(98)||CHR(106)||CHR(113)||(SELECT/**/(CASE/**/WHEN/**/(2400=2400)/**/THEN/**/1/**/ELSE/**/0/**/END)/**/FROM/**/DUAL)||CHR(113)||CHR(118)||CHR(118)||CHR(107)||CHR(113)||CHR(62)))/**/FROM/**/DUAL)/**/AND/**/'bQzN'='bQzN : 573
defun : 49
shell : 5
popup-list : 8
thread : 2
一覧 : 8
www-search : 3
package : 30
xming : 2
ChangeLog : 4
-5866)/**/OR/**/9590=CAST((CHR(113)||CHR(106)||CHR(98)||CHR(106)||CHR(113))||(SELECT/**/(CASE/**/WHEN/**/(9590=9590)/**/THEN/**/1/**/ELSE/**/0/**/END))::text||(CHR(113)||CHR(118)||CHR(118)||CHR(107)||CHR(113))/**/AS/**/NUMERIC)/**/AND/**/(5830=5830 : 573
sbcl : 9
cldoc : 4
-2348)/**/OR/**/2400=(SELECT/**/UPPER(XMLType(CHR(60)||CHR(58)||CHR(113)||CHR(106)||CHR(98)||CHR(106)||CHR(113)||(SELECT/**/(CASE/**/WHEN/**/(2400=2400)/**/THEN/**/1/**/ELSE/**/0/**/END)/**/FROM/**/DUAL)||CHR(113)||CHR(118)||CHR(118)||CHR(107)||CHR(113)||CHR(62)))/**/FROM/**/DUAL)/**/AND/**/(8810=8810 : 573
cobuol : 2
den8 : 5
bufbar : 4
-2354/**/OR/**/1560=CAST((CHR(113)||CHR(112)||CHR(120)||CHR(107)||CHR(113))||(SELECT/**/(CASE/**/WHEN/**/(1560=1560)/**/THEN/**/1/**/ELSE/**/0/**/END))::text||(CHR(113)||CHR(122)||CHR(107)||CHR(118)||CHR(113))/**/AS/**/NUMERIC)--/**/BRcu : 573
WHEN : 19
Scrapbook : 269
さくら : 6
(CASE : 5
lan : 18
-8597/**/OR/**/7156=5251 : 573
update : 2
note : 15
dsearch : 2
dmc : 3
file : 37
plugin : 2
-5748)/**/OR/**/2596=2596/**/AND/**/(8665=8665 : 573
xyzz : 196
interactive : 23
-6900/**/OR/**/2400=(SELECT/**/UPPER(XMLType(CHR(60)||CHR(58)||CHR(113)||CHR(106)||CHR(98)||CHR(106)||CHR(113)||(SELECT/**/(CASE/**/WHEN/**/(2400=2400)/**/THEN/**/1/**/ELSE/**/0/**/END)/**/FROM/**/DUAL)||CHR(113)||CHR(118)||CHR(118)||CHR(107)||CHR(113)||CHR(62)))/**/FROM/**/DUAL)--/**/HHoe : 573
packaged : 3
TEXT : 16
sakura : 53
reftex : 4
-9947/**/OR/**/8417=(SELECT/**/UPPER(XMLType(CHR(60)||CHR(58)||CHR(113)||CHR(112)||CHR(120)||CHR(107)||CHR(113)||(SELECT/**/(CASE/**/WHEN/**/(8417=8417)/**/THEN/**/1/**/ELSE/**/0/**/END)/**/FROM/**/DUAL)||CHR(113)||CHR(122)||CHR(107)||CHR(118)||CHR(113)||CHR(62)))/**/FROM/**/DUAL)--/**/lmOe : 573
and : 50
-8779'/**/OR/**/4738=5251/**/AND/**/'RWPI'='RWPI : 573
問題 : 14
Wallpaper : 2
off : 11
gcc : 7
intern : 13
cgi : 26
netin : 5
builtin : 5
M-x : 5
-7237')/**/OR/**/8417=(SELECT/**/UPPER(XMLType(CHR(60)||CHR(58)||CHR(113)||CHR(112)||CHR(120)||CHR(107)||CHR(113)||(SELECT/**/(CASE/**/WHEN/**/(8417=8417)/**/THEN/**/1/**/ELSE/**/0/**/END)/**/FROM/**/DUAL)||CHR(113)||CHR(122)||CHR(107)||CHR(118)||CHR(113)||CHR(62)))/**/FROM/**/DUAL)/**/AND/**/('eBuy'='eBuy : 573
topic : 59
-3231)/**/OR/**/1560=CAST((CHR(113)||CHR(112)||CHR(120)||CHR(107)||CHR(113))||(SELECT/**/(CASE/**/WHEN/**/(1560=1560)/**/THEN/**/1/**/ELSE/**/0/**/END))::text||(CHR(113)||CHR(122)||CHR(107)||CHR(118)||CHR(113))/**/AS/**/NUMERIC)/**/AND/**/(8690=8690 : 573
正規表現 : 7
エスケープシーケンス : 4
get-window-handle : 4
USB : 4
pdic.l : 2
color : 8
移植 : 7
フォント : 4
xyzzy : 196
oCi : 5
-2111/**/OR/**/3073=3073--/**/tNXg : 573
バッファ : 11
-7753'/**/OR/**/2596=2596/**/AND/**/'nOOk'='nOOk : 573
フォーム : 4
user : 22
-8604')/**/OR/**/2596=2596/**/AND/**/('FQof'='FQof : 573
../ : 5
junk : 5
-1604'/**/OR/**/9590=CAST((CHR(113)||CHR(106)||CHR(98)||CHR(106)||CHR(113))||(SELECT/**/(CASE/**/WHEN/**/(9590=9590)/**/THEN/**/1/**/ELSE/**/0/**/END))::text||(CHR(113)||CHR(118)||CHR(118)||CHR(107)||CHR(113))/**/AS/**/NUMERIC)/**/AND/**/'JCHh'='JCHh : 573
Selection : 3
lisp : 189
7050 : 2
-8799'/**/OR/**/8417=(SELECT/**/UPPER(XMLType(CHR(60)||CHR(58)||CHR(113)||CHR(112)||CHR(120)||CHR(107)||CHR(113)||(SELECT/**/(CASE/**/WHEN/**/(8417=8417)/**/THEN/**/1/**/ELSE/**/0/**/END)/**/FROM/**/DUAL)||CHR(113)||CHR(122)||CHR(107)||CHR(118)||CHR(113)||CHR(62)))/**/FROM/**/DUAL)/**/AND/**/'bRrn'='bRrn : 573
packaged-xyzzy : 3
kamail : 5
-7619 : 573
-6191'/**/OR/**/1560=CAST((CHR(113)||CHR(112)||CHR(120)||CHR(107)||CHR(113))||(SELECT/**/(CASE/**/WHEN/**/(1560=1560)/**/THEN/**/1/**/ELSE/**/0/**/END))::text||(CHR(113)||CHR(122)||CHR(107)||CHR(118)||CHR(113))/**/AS/**/NUMERIC)/**/AND/**/'gBFc'='gBFc : 573
make : 39
-9034/**/OR/**/6425=2168--/**/aBwG : 573
-Scrapbook" : 573
-6094)/**/OR/**/4064=9603/**/AND/**/(5326=5326 : 573

2021-01-19

-6305 : 573
global-mark : 3
-9994/**/OR/**/2843=7642 : 573
uchardet : 3
へなちょこ補完 : 3
BSD : 22
-6162/**/OR/**/9590=CAST((CHR(113)||CHR(106)||CHR(98)||CHR(106)||CHR(113))||(SELECT/**/(CASE/**/WHEN/**/(9590=9590)/**/THEN/**/1/**/ELSE/**/0/**/END))::text||(CHR(113)||CHR(118)||CHR(118)||CHR(107)||CHR(113))/**/AS/**/NUMERIC)--/**/VdBZ : 573
-Scrapbook' : 573
RandomNote : 10
math : 4
補完 : 4
None : 2
ORDER : 3
mac : 34
libsigsegv : 3
END)) : 5
-1113/**/OR/**/1560=CAST((CHR(113)||CHR(112)||CHR(120)||CHR(107)||CHR(113))||(SELECT/**/(CASE/**/WHEN/**/(1560=1560)/**/THEN/**/1/**/ELSE/**/0/**/END))::text||(CHR(113)||CHR(122)||CHR(107)||CHR(118)||CHR(113))/**/AS/**/NUMERIC) : 573
ALL : 52
random : 12
-7360)/**/OR/**/9916=7273/**/AND/**/(2274=2274 : 573
xyzzy" : 2
egrep : 3
save : 16
junk/http : 2
proxy : 2
scheme : 12

2021-01-18

post : 7
ブックマーク : 4
NANRI : 26
pcre : 2
japanese : 5
-Scrapbook99999' : 573
-6839/**/OR/**/3073=3073 : 573
-5856)/**/OR/**/8417=(SELECT/**/UPPER(XMLType(CHR(60)||CHR(58)||CHR(113)||CHR(112)||CHR(120)||CHR(107)||CHR(113)||(SELECT/**/(CASE/**/WHEN/**/(8417=8417)/**/THEN/**/1/**/ELSE/**/0/**/END)/**/FROM/**/DUAL)||CHR(113)||CHR(122)||CHR(107)||CHR(118)||CHR(113)||CHR(62)))/**/FROM/**/DUAL)/**/AND/**/(2558=2558 : 573
ルール : 2
nat : 5
FreeBSD : 19
gmark : 4
-Scrapbook'[0] : 573

2021-01-17

-6857/**/OR/**/7073=9531--/**/fTZx : 573
gpg : 2
ecl : 11
clisp : 28
bregex : 3
ELSE : 3
-5609/**/OR/**/2400=(SELECT/**/UPPER(XMLType(CHR(60)||CHR(58)||CHR(113)||CHR(106)||CHR(98)||CHR(106)||CHR(113)||(SELECT/**/(CASE/**/WHEN/**/(2400=2400)/**/THEN/**/1/**/ELSE/**/0/**/END)/**/FROM/**/DUAL)||CHR(113)||CHR(118)||CHR(118)||CHR(107)||CHR(113)||CHR(62)))/**/FROM/**/DUAL) : 573
netinstaller : 5
Buffer : 28
slime : 4
session : 4
-7843/**/OR/**/2596=2596'[0] : 573
select : 13
マクロ : 15
hexl : 3
bregex.dll : 3
new : 15
lyrical : 2
unless : 14
oni : 2

2021-01-16

-7774')/**/OR/**/9105=7149/**/AND/**/('VuYU'='VuYU : 573
split : 5
view : 23
diff : 5
make-process : 2
FROM : 14
-Scrapbook'A=0 : 573

2021-01-15

2021-01-14

2021-01-13

2021-01-12

export : 11
Git : 10

2021-01-11

makefile : 4

2021-01-10

-6305'[0] : 573
Proxomitron : 3

2021-01-06

grep : 8