Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
play /
[ HOME SHELL ]
Name
Size
Permission
Action
5x5.elc
13.7
KB
-rw-r--r--
animate.elc
3.86
KB
-rw-r--r--
blackbox.elc
11.03
KB
-rw-r--r--
bruce.el
6.03
KB
-rw-r--r--
bubbles.elc
45.33
KB
-rw-r--r--
cookie1.elc
3.47
KB
-rw-r--r--
decipher.elc
23.06
KB
-rw-r--r--
dissociate.elc
2.08
KB
-rw-r--r--
doctor.elc
45.54
KB
-rw-r--r--
dunnet.elc
85.74
KB
-rw-r--r--
fortune.elc
8.4
KB
-rw-r--r--
gamegrid.elc
14.69
KB
-rw-r--r--
gametree.elc
18.55
KB
-rw-r--r--
gomoku.elc
27.57
KB
-rw-r--r--
handwrite.elc
59.95
KB
-rw-r--r--
hanoi.elc
9.95
KB
-rw-r--r--
landmark.elc
37.69
KB
-rw-r--r--
life.elc
7.21
KB
-rw-r--r--
meese.elc
1.1
KB
-rw-r--r--
morse.elc
2.4
KB
-rw-r--r--
mpuz.elc
13.52
KB
-rw-r--r--
pong.elc
10.99
KB
-rw-r--r--
snake.elc
10.59
KB
-rw-r--r--
solitaire.elc
12.81
KB
-rw-r--r--
spook.elc
1.59
KB
-rw-r--r--
studly.elc
1.43
KB
-rw-r--r--
yow.elc
3.25
KB
-rw-r--r--
zone.elc
15.12
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : gametree.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:58 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/play/gametree.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gametree.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314& \207" [require derived outline custom-declare-group gametree nil "Manage game analysis trees in Emacs." :prefix "gametree-" :group games :version "20.3"] 10) #@467 *Matches ends of numbers of moves by the "second" player. For instance, it is an almost universal convention in chess to postfix numbers of moves by Black (if considered in isolation) by the ellipsis "...". This is NOT a good choice for this program, though, because it conflicts with the use of ellipsis by Outline mode to denote collapsed subtrees. The author uses ":" because it agrees nicely with a set of LaTeX macros he uses for typesetting annotated games. (custom-declare-variable 'gametree-half-ply-regexp '(regexp-quote ":") '(#$ . -851) :type 'regexp :group 'gametree) #@200 *Matches ends of numbers of moves by the "first" player. For instance, it is an almost universal convention in chess to postfix numbers of moves by White (if considered in isolation) by the dot ".". (custom-declare-variable 'gametree-full-ply-regexp '(regexp-quote ".") '(#$ . -1440) :type 'regexp :group 'gametree) #@115 *Output format for move numbers of moves by the "second" player. Has to contain "%d" to output the actual number. (custom-declare-variable 'gametree-half-ply-format '"%d:" '(#$ . -1763) :type 'string :group 'gametree) #@114 *Output format for move numbers of moves by the "first" player. Has to contain "%d" to output the actual number. (custom-declare-variable 'gametree-full-ply-format '"%d." '(#$ . -1988) :type 'string :group 'gametree) #@129 A function of one numeric argument, LEVEL, to insert a heading at point. You should change this if you change `outline-regexp'. (custom-declare-variable 'gametree-make-heading-function '#'(lambda (level) (insert (make-string level 42))) '(#$ . 2212) :type 'function :group 'gametree) #@401 A list encoding the layout (i.e. the show or hide state) of the file. If Emacs notices a local variable specification of this variable in the first line of the buffer while saving the buffer to the visited file, the local value will be saved there and restored the next time the file is visited (subject to the usual restriction via `enable-local-variables'), and the layout will be set accordingly. (defvar gametree-local-layout nil (#$ . 2503)) #@69 *The string which opens a score tag, and precedes the actual score. (custom-declare-variable 'gametree-score-opener '"{score=" '(#$ . -2956) :type 'string :group 'gametree) #@76 *String marking the line as manually (as opposed to automatically) scored. (custom-declare-variable 'gametree-score-manual-flag '"!" '(#$ . -3135) :type 'string :group 'gametree) #@69 *The string which closes a score tag, and follows the actual score. (custom-declare-variable 'gametree-score-closer '"}" '(#$ . -3320) :type 'string :group 'gametree) #@489 *Regular expression matching lines that guide the program in scoring. Its third parenthetical group should match the actual score. Its first parenthetical group should match the entire score tag. Its second parenthetical group should be an optional flag that marks the line as *manually* (as opposed to automatically) scored, which prevents the program from recursively applying the scoring algorithm on the subtree headed by the marked line, and makes it use the manual score instead. (custom-declare-variable 'gametree-score-regexp '(concat "[^\n ]*\\(" (regexp-quote gametree-score-opener) "[ ]*\\(" (regexp-quote gametree-score-manual-flag) "[ ]*\\)?\\([-+]?[0-9]+\\)" (regexp-quote gametree-score-closer) "[ ]*\\)[\n ]") '(#$ . -3494) :type 'regexp :group 'gametree) #@51 *Score to assume for branches lacking score tags. (custom-declare-variable 'gametree-default-score '0 '(#$ . -4277) :type 'integer :group 'gametree) #@300 Insert/delete space between leading asterisks and heading text. If the current variation is an internal node (i.e. starts with one or more asterisks), ensure there's at least one space between the asterisks and the text. If on the other hand this is a leaf, there should be no leading white space. (defalias 'gametree-prettify-heading #[nil "\212\303\304!\210\305\306P\307\310#\203 \311\312!\204# \313c\210\202# \314\212\315\307w)!\210\305\316 \317\n\320\260\307\310#\205D \311\312!\204< \313c\202D \314\212\315\307w)S!)\207" [outline-regexp gametree-full-ply-regexp gametree-half-ply-regexp beginning-of-line 1 re-search-forward "\\=" nil t looking-at "[ ]+" " " delete-char " " "\\=[ ]*[1-9][0-9]*\\(" "\\|" "\\)"] 6 (#$ . 4433)]) #@52 Read and return the number of the ply under point. (defalias 'gametree-looking-at-ply #[nil "m\203 \304\207\305\306 \307\260\212\310\311!\210`)\312 !\2035 \313\314\311!!\315_\316 \314\315!\"\2030 \311\2021 \304\\\202I \212\317 \n\"\210\320\321x\210\313`\311\225{!\315_T)*\207" [gametree-full-ply-regexp gametree-half-ply-regexp limit boundary 0 "[ ]*\\([1-9][0-9]*\\)\\(" "\\|" "\\)" beginning-of-line 1 looking-at string-to-number match-string 2 string-match re-search-backward "0123456789" nil] 5 (#$ . 5179)]) #@67 Return the ply number of the first move of the current variation. (defalias 'gametree-current-branch-ply #[nil "\212\301\302!\210\303\304P\305\306#\210\307 )\207" [outline-regexp beginning-of-line 1 re-search-forward "\\=" nil t gametree-looking-at-ply] 4 (#$ . 5704)]) (defalias 'gametree-forward-line #[nil "\300\301\302\303#\207" [re-search-forward "[\n ]" nil move] 4]) (put 'gametree-forward-line 'byte-optimizer 'byte-compile-inline-expand) #@133 Return the depth of the current variation in the analysis tree. This value is simply the outline heading level of the current line. (defalias 'gametree-current-branch-depth #[nil "\212\301\302!\210\303!\203 \304 \202 \305)\207" [outline-regexp beginning-of-line 1 looking-at outline-level 0] 2 (#$ . 6159)]) #@70 Move the current leaf variation behind all others on the same level. (defalias 'gametree-transpose-following-leaves #[nil "\212\302\303\304\305#\210`m\204 \306 \307U\203 \302\303\304\305#\210\202 `{`|\210*\212\310\311!\210 c*\207" [p following-leaves re-search-forward "[\n ]" nil move gametree-current-branch-depth 0 beginning-of-line 1] 4 (#$ . 6476)]) (defalias 'gametree-show-children-and-entry #[nil "\300 \210\301 \207" [show-children show-entry] 1]) (put 'gametree-show-children-and-entry 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gametree-entry-shown-p #[nil "\212\301y\210n\205 m?\205 \302!?)\207" [outline-regexp 1 looking-at] 2]) (defalias 'gametree-children-shown-p #[nil "\212\300\301\302\217)\207" [nil (byte-code "\301 \302\303!\210\301 W)\207" [depth gametree-current-branch-depth outline-next-visible-heading 1] 2) ((error))] 3]) (defalias 'gametree-current-layout #[(depth &optional top-level) "\303\304\212\303\305\306\217)\203K \204 \307\310!\210\303\311 \204. \312 \203' \313C\202) \303C\244\202 \312 \2039 \314C\202; \315C\244\316\317 ! \nC\244)\202 *\207" [first-time layout sub-layout nil t (byte-code "\203 \203 n\203 \304\n!\204 \305\211\204 \306\307!\210 \310 W\207" [first-time top-level outline-regexp depth looking-at nil outline-next-visible-heading 1 gametree-current-branch-depth] 2) ((error)) outline-next-visible-heading 1 gametree-children-shown-p gametree-entry-shown-p show-entry gametree-show-children-and-entry show-children gametree-current-layout gametree-current-branch-depth] 3]) (defalias 'gametree-save-layout #[nil "\212eb\210\301\302\303\"\211)\207" [gametree-local-layout gametree-current-layout 0 t] 3]) (defalias 'gametree-apply-layout #[(layout depth &optional top-level) "\302 \205J \212\303\304\305\217)\205J \204 \306\307!\210\303\310 \210 @\203% @ \210 A@\2032 A@<\2049 A\211\202 \311 A@\312 \"\210 AA\211\204 \303)\207" [first-time layout t nil (byte-code "\203 \203 n\203 \304\n!\204 \305\211\204 \306\307!\210 \310 W\207" [first-time top-level outline-regexp depth looking-at nil outline-next-visible-heading 1 gametree-current-branch-depth] 2) ((error)) outline-next-visible-heading 1 hide-subtree gametree-apply-layout gametree-current-branch-depth] 4]) (defalias 'gametree-restore-layout #[nil "\212eb\210\301\302\303#)\207" [gametree-local-layout gametree-apply-layout 0 t] 4]) (defalias 'gametree-hack-file-layout #[nil "\212eb\210\302\303!\205 \304\224b\210`\304\225|\210p\305 !))\207" [standard-output gametree-local-layout looking-at "[^\n]*-*-[^\n]*gametree-local-layout: \\([^;\n]*\\);" 1 princ] 2]) #@136 Return score of current variation according to its score tag. When no score tag is present, use the value of `gametree-default-score'. (defalias 'gametree-current-branch-score #[nil "\302!\203\f \303\304\305!!\207 \207" [gametree-score-regexp gametree-default-score looking-at string-to-number match-string 3] 3 (#$ . 9123)]) #@126 Return current internal node score computed recursively from subnodes. Subnodes which have been manually scored are honored. (defalias 'gametree-compute-reduced-score #[nil "\306 \307U\204 \212\310\311\312\313#\210m)\204 \314!\203\" \315\316!\203\" \317 \207\306 \212\310\311\312\313#\210\n\320\321 \316\"\307U\203; \322\202< \323 m\204X \306 \307U\203X \f\317 \"\310\311\312\313#\210\202> m?\205a \306 W\211 \204u \f\324 \"\312\325\326\217\211\203f )\f,\207" [gametree-score-regexp depth gametree-default-score minmax running done gametree-current-branch-depth 0 re-search-forward "[\n ]" nil move looking-at match-string 2 gametree-current-branch-score mod gametree-current-branch-ply max min gametree-compute-reduced-score (outline-forward-same-level 1) ((error))] 5 (#$ . 9457)]) #@401 Start a new leaf variation under the current branching point. The new variation can later be split to be a branching point itself, with \[gametree-break-line-here]. If the point is currently on a leaf variation, this command won't work; use \[gametree-break-line-here] on the current line first. With a numeric arg AT-DEPTH, first go up the tree until a node of depth AT-DEPTH or smaller is found. (defalias 'gametree-insert-new-leaf #[(&optional at-depth) "\305\306 !\203 \307\310!\210\203 \306 \311!V\203 \307\312!\210\202 \313\312!\210\306 \314 \210\315\316\317\217\210\306 V\203: \320 \202A \212\321y\210\320 )`Sb\210\322c\210\323\324\n\325\"\310U\203W \202X \f\n\325\245\"c*\207" [at-depth parent-depth starting-plys gametree-full-ply-format gametree-half-ply-format zerop gametree-current-branch-depth outline-up-heading 0 prefix-numeric-value 1 beginning-of-line show-entry nil (outline-next-visible-heading 1) ((error (byte-code "db\210n\204\n \300c\210\301\207" ["\n" nil] 1))) gametree-current-branch-ply -1 "\n" format mod 2] 4 (#$ . 10259) "*P"]) #@508 Split the variation node at the point position. This command works whether the current variation node is a leaf, or is already branching at its end. The new node is created at a level that reflects the number of game plys between the beginning of the current variation and the breaking point. With a numerical argument AT-MOVE, split the variation before White's AT-MOVEth move, or Black's if negative. The last option will only work of Black's moves are explicitly numbered, for instance `1. e4 1: e5'. (defalias 'gametree-break-line-here #[(&optional at-move) "\203+ \306\210`\307\306!\210\310\311\312\313\314!!!!\315V\203! \n\202\" P \"\210)\315\224b\210\316 \210\317 `\320\223 \321 \322 \211 ! \"!\315U\203w \212\323\306!\210\320\324\325\217 #\326#!\203] \322 T\202d \322 #Z\\)!)\212\307\306!\210$!!\210\327 \210)\212\330\331\n\332 \333\260!\204\244 \334\335\336 \337\"\315U\203\224 %\202\226 &\336 \337\245\"c\210\327 \210\307\306!\210\fb\210\340c\210\"\315U\204\274 $!\321 Z\\!\210\327 -\207" [at-move limit gametree-full-ply-regexp gametree-half-ply-regexp pt plys 1 beginning-of-line re-search-forward regexp-quote int-to-string abs prefix-numeric-value 0 gametree-transpose-following-leaves make-marker nil gametree-current-branch-ply gametree-current-branch-depth outline-previous-visible-heading (gametree-current-branch-ply) ((error 0)) zerop gametree-prettify-heading looking-at "[ ]*[1-9][0-9]*\\(" "\\|" "\\)" format mod gametree-looking-at-ply 2 "\n" depth old-depth old-branch-ply gametree-make-heading-function gametree-full-ply-format gametree-half-ply-format] 7 (#$ . 11337) "*P"]) #@117 Merges a variation with its only child. Does *not* check if the variation has in fact a unique child; users beware. (defalias 'gametree-merge-line #[nil "\302\303 !\203 \304\305!\210\306!\203 \307\224\307\225|\210\307\210\212\307y\210\303 )\310 T!\210\302 !\205: \212\311\307!\210\310\303 !\210\312 ))\207" [gametree-score-regexp prev-depth zerop gametree-current-branch-depth outline-up-heading 0 looking-at 1 delete-char beginning-of-line gametree-prettify-heading] 2 (#$ . 12971) "*"]) #@274 Insert a score tag with value SCORE at the end of the current line. If this line already has a score tag, just jump to it and alter it. When called from a program, optional AUTO flag tells if the score is being entered automatically (and thus should lack the manual mark). (defalias 'gametree-insert-score #[(score &optional auto) "\306\307!\210\310!\2038 \311\224b\210 \203 \312\313!\203 \313\224\313\225|\210\n\203( \311\224\311\225|\210 \204W \312\313!\204W c\210\202W \307\210\212\314\315x)\316U\203H \317c\210\fc\210 \204R c\210\212 c\210)\n??\205e \212\320\321\n!!c)\207" [gametree-score-regexp auto score gametree-score-manual-flag gametree-score-opener gametree-score-closer beginning-of-line 1 looking-at 3 match-string 2 " " nil 0 " " int-to-string prefix-numeric-value] 3 (#$ . 13472) "*P"]) #@127 Compute current node score, maybe recursively from subnodes. Insert it. Subnodes which have been manually scored are honored. (defalias 'gametree-compute-and-insert-score #[nil "\303!\205 \304\305!???\306 \307 \n\"*\207" [gametree-score-regexp score auto looking-at match-string 2 gametree-compute-reduced-score gametree-insert-score] 3 (#$ . 14289) "*"]) #@164 Store current tree layout in register REGISTER. Use \[gametree-apply-register-layout] to restore that configuration. Argument is a character, naming the register. (defalias 'gametree-layout-to-register #[(register) "\212eb\210\301\302\303\304\"\")\207" [register set-register gametree-current-layout 0 t] 5 (#$ . 14656) "cLayout to register: "]) #@93 Return to a tree layout stored in a register. Argument is a character, naming the register. (defalias 'gametree-apply-register-layout #[(char) "\212eb\210\301\302!\303\304#)\207" [char gametree-apply-layout get-register 0 t] 4 (#$ . 15009) "*cApply layout from register: "]) #@324 Save the current tree layout and hack the file local variable spec. This function saves the current layout in `gametree-local-layout' and, if a local file varible specification for this variable exists in the buffer, it is replaced by the new value. See the documentation for `gametree-local-layout' for more information. (defalias 'gametree-save-and-hack-layout #[nil "\301 \210\302\303 \210)\304\207" [inhibit-read-only gametree-save-layout t gametree-hack-file-layout nil] 1 (#$ . 15292) nil]) (byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\322#\207" [current-load-list gametree-mode-abbrev-table gametree-mode-hook variable-documentation put "Hook run when entering GameTree mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp gametree-mode-map definition-name gametree-mode default-boundp set-default make-sparse-keymap gametree-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent outline-mode] 5) #@372 Major mode for managing game analysis trees. Useful to postal and email chess (and, it is hoped, also checkers, go, shogi, etc.) players, it is a slightly modified version of Outline mode. \{gametree-mode-map} In addition to any hooks its parent mode `outline-mode' might have run, this mode runs the hook `gametree-mode-hook', as the final step during initialization. (defalias 'gametree-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210 \326\327!\210\306\330!\210\331\330\332\"\210)\333\334!\207" [delay-mode-hooks major-mode mode-name gametree-mode-map gametree-mode-syntax-table parent make-local-variable t outline-mode gametree-mode "GameTree" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table auto-fill-mode 0 write-contents-hooks add-hook gametree-save-and-hack-layout run-mode-hooks gametree-mode-hook gametree-mode-abbrev-table local-abbrev-table] 6 (#$ . 16566) nil]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\323\324!\203n \325\326\327\"\210\325\330\331\"\210\325\332\333\"\210\325\334\335\"\210\301\336\326#\203n \301\337\330#\203n \301\340\332#\203n \301\341\334#\210\342\343!\207" [gametree-mode-map define-key "\n" gametree-break-line-here "" gametree-insert-new-leaf " " gametree-merge-line " " gametree-layout-to-register "/" "j" gametree-apply-register-layout "" gametree-save-and-hack-layout ";" gametree-insert-score "^" gametree-compute-and-insert-score fboundp track-mouse defalias gametree-mouse-break-line-here #[(event) "\301!\210\302 \207" [event mouse-set-point gametree-break-line-here] 2 nil "e"] gametree-mouse-show-children-and-entry #[(event) "\301!\210\302 \210\303 \207" [event mouse-set-point show-children show-entry] 2 nil "e"] gametree-mouse-show-subtree #[(event) "\301!\210\302 \207" [event mouse-set-point show-subtree] 2 nil "e"] gametree-mouse-hide-subtree #[(event) "\301!\210\302 \207" [event mouse-set-point hide-subtree] 2 nil "e"] [M-down-mouse-2 M-mouse-2] [S-down-mouse-1 S-mouse-1] [S-down-mouse-2 S-mouse-2] [S-down-mouse-3 S-mouse-3] provide gametree] 4)
Close
