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-04-13

2021-04-12

-9664)/**/OR/**/3073=3073/**/AND/**/(3451=3451 : 573
view : 23
-9034/**/OR/**/6425=2168--/**/aBwG : 573
-6094)/**/OR/**/4064=9603/**/AND/**/(5326=5326 : 573
user : 22
EXEC : 8
マクロ : 15
uchardet : 3
-Scrapbook'[0] : 573
RandomNote : 10
cmd : 4
END) : 9
session : 4
unless : 14
grep : 8
フォント : 4
FROM : 14
-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
HE-grep.l : 3
junk/http : 2
補完 : 4
正規表現 : 7
FreeBSD : 19
xtags : 4
kamail : 5
gmark : 4
None : 2
split : 5
-6857/**/OR/**/7073=9531--/**/fTZx : 573
ecl : 11
-Scrapbook99999' : 573
basic : 3
へなちょこ補完 : 3
apache : 6
make-process : 2
-6787/**/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) : 573
random : 12

2021-04-11

2021-04-10

ORDER : 3
save : 16
egrep : 3
-3764'/**/OR/**/3073=3073/**/AND/**/'KLfa'='KLfa : 573
nat : 5
oCi : 5
xyzzy" : 2
タブバー : 2

2021-04-09

netinstaller : 5
gnu : 12
(SELECT : 9
math : 4
hex : 3
unix : 15
rein : 2
NULL : 3

2021-04-08

libsigsegv : 3
../ : 5
END)) : 5
proxy : 2

2021-04-07

Buffer : 28
7050 : 2
移植 : 7

2021-04-06

select : 13
wsh : 4
Selection : 3
cldoc : 4
slime : 4

2021-04-05

-6305'[0] : 573
directory : 11
post : 7

2021-04-04

... : 15

2021-04-03

global-mark : 3

2021-04-02

cons : 14
lyrical : 2

2021-04-01

oni : 2

2021-03-31

ルール : 2
-6102')/**/OR/**/3073=3073/**/AND/**/('jsSI'='jsSI'[0] : 573

2021-03-30

DUAL : 3
6789 : 2
1325 : 2
LIKE : 3

2021-03-28

export : 11