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

2020-10-22

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
Linux : 20
rein : 2
Wikipedia : 4
-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
Scrapbook : 269
fortran : 3
patch : 4
mode : 35
-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
さくら : 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
void : 3
移植 : 7
lisp : 189
xyzzy : 196
-6305 : 573
None : 2
cmd : 4
make : 39
oni : 2
view : 23
save : 16
slime : 4
-2111/**/OR/**/3073=3073--/**/tNXg : 573
junk/http : 2
-9994/**/OR/**/2843=7642 : 573
Buffer : 28
-6094)/**/OR/**/4064=9603/**/AND/**/(5326=5326 : 573
clisp : 28
ecl : 11
NANRI : 26
mac : 34
Proxomitron : 3
outline : 7
netinstaller : 5
-9034/**/OR/**/6425=2168--/**/aBwG : 573
BSD : 22
oCi : 5
select : 13
packaged-xyzzy : 3
gnu : 12

2020-10-21

post : 7
diff : 5
math : 4
ELSE : 3
bregex : 3
bregex.dll : 3
w3m : 4
Subversion : 14
FreeBSD : 19
make-process : 2
ビルド : 9
export : 11
session : 4
タブバー : 2
user : 22

2020-10-20

ALL : 52
apache : 6
cons : 14
proxy : 2
ブックマーク : 4
nat : 5
junk : 5
バッファ : 11
-Scrapbook" : 573
gmark : 4

2020-10-19

unix : 15
makefile : 4
END)) : 5
basic : 3
grep : 8
global-mark : 3
egrep : 3
FROM : 14
-5691'/**/OR/**/6802=9415/**/AND/**/'XLxH'='XLxH : 573
ルール : 2
(SELECT : 9

2020-10-18

補完 : 4
-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
new : 15
xyzzy" : 2
split : 5
-7360)/**/OR/**/9916=7273/**/AND/**/(2274=2274 : 573
random : 12
pcre : 2
gpg : 2
フォント : 4
lyrical : 2
へなちょこ補完 : 3

2020-10-16

kamail : 5
hexl : 3
RandomNote : 10
libsigsegv : 3
../ : 5
japanese : 5
Git : 10
Selection : 3
unless : 14

2020-10-15

2020-10-14

xtags : 4

2020-10-12

-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

2020-10-10

-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

2020-10-08

uchardet : 3
-6102')/**/OR/**/3073=3073/**/AND/**/('jsSI'='jsSI : 573
wsh : 4

2020-10-07

フォーム : 4
-8604')/**/OR/**/2596=2596/**/AND/**/('FQof'='FQof : 573

2020-10-06

-Scrapbook'[0] : 573

2020-10-05

-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

2020-10-04

2020-10-03

2020-10-02

7050 : 2
-Scrapbook99999' : 573

2020-10-01

-9241/**/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) : 573

2020-09-29

2020-09-26

-7753'/**/OR/**/2596=2596/**/AND/**/'nOOk'='nOOk : 573

2020-09-20

scheme : 12