Gecko [ 122.154.134.11 ]

Name	Size	Permission
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--

Code Editor : gamegrid.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/gamegrid.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 "`gamegrid.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#@42 Non-nil means use glyphs when available.
(defvar gamegrid-use-glyphs t (#$ . 612))
#@41 Non-nil means use color when available.
(defvar gamegrid-use-color t (#$ . 701))
#@34 Name of the font used in X mode.
(defvar gamegrid-font "-*-courier-medium-r-*-*-*-140-100-75-*-*-iso8859-*" (#$ . 788))
#@41 Indicates the face to use as a default.
(defvar gamegrid-face nil (#$ . 914))
(byte-code "\301\302!\210\303B\304\303!\204�\305\303\306\"\210\307B\304\307!\204\"�\305\307\310\"\210\311B\304\311!\2041�\305\311\310\"\210\312B\304\312!\204@�\305\312\310\"\210\313B\304\313!\204O�\305\313\306\"\210\314B\304\314!\204^�\305\314\306\"\210\315B\304\315!\204m�\305\315\306\"\210\316B\304\316!\204|�\305\316\317\"\210\306\207" [current-load-list make-variable-buffer-local gamegrid-face gamegrid-display-options default-boundp set-default nil gamegrid-buffer-width 0 gamegrid-buffer-height gamegrid-blank gamegrid-timer gamegrid-display-mode gamegrid-face-table gamegrid-buffer-start 1] 3)
#@32 Number of high scores to keep.
(defvar gamegrid-score-file-length 50 (#$ . 1617))
#@145 A directory for game scores which can't be shared.
If Emacs was built without support for shared game scores, then this
directory will be used.
(defvar gamegrid-user-score-file-directory (locate-user-emacs-file "games/") (#$ . 1706))
(byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\301\310!\210\301\311!\210\301\312!\210\301\313!\210\301\314!\210\301\315!\210\301\316!\210\317B\320\317!\204C�\321\317\322\"\210\323B\320\323!\204R�\321\323\322\"\210\324B\320\324!\204a�\321\324\322\"\210\325B\326\327!\207" [current-load-list make-variable-buffer-local gamegrid-use-glyphs gamegrid-use-color gamegrid-font gamegrid-display-options gamegrid-buffer-width gamegrid-buffer-height gamegrid-blank gamegrid-timer gamegrid-display-mode gamegrid-display-table gamegrid-face-table gamegrid-buffer-start gamegrid-score-file-length gamegrid-grid-x-face default-boundp set-default nil gamegrid-mono-x-face gamegrid-mono-tty-face gamegrid-glyph-height (lambda (#1=#:defconst-tmp-var) (defconst gamegrid-glyph-height #1#)) 16] 3)
#@39 XPM format image used for each square
(defconst gamegrid-xpm "/* XPM */\nstatic char *noname[] = {\n/* width height ncolors chars_per_pixel */\n\"16 16 3 1\",\n/* colors */\n\"+ s col1\",\n\". s col2\",\n\"- s col3\",\n/* pixels */\n\"---------------+\",\n\"--------------++\",\n\"--............++\",\n\"--............++\",\n\"--............++\",\n\"--............++\",\n\"--............++\",\n\"--............++\",\n\"--............++\",\n\"--............++\",\n\"--............++\",\n\"--............++\",\n\"--............++\",\n\"--............++\",\n\"-+++++++++++++++\",\n\"++++++++++++++++\"\n};\n" (#$ . 2777))
#@40 XBM format image used for each square.
(defvar gamegrid-xbm "/* gamegrid XBM */\n#define gamegrid_width 16\n#define gamegrid_height 16\nstatic unsigned char gamegrid_bits[] = {\n   0xff, 0xff, 0xff, 0x7f, 0xff, 0x3f, 0xaf, 0x0a, 0x57, 0x15, 0xaf, 0x0a,\n   0x57, 0x15, 0xaf, 0x0a, 0x57, 0x15, 0xaf, 0x0a, 0x57, 0x15, 0xaf, 0x0a,\n   0x57, 0x15, 0x07, 0x00, 0x03, 0x00, 0x01, 0x00 };" (#$ . 3402))
(defalias 'gamegrid-characterp #[(arg) "\301\302!\203\n�\302!\207\250\207" [arg fboundp characterp] 2])
(put 'gamegrid-characterp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gamegrid-event-x #[(event) "\301\302!\203\n�\302!\207\303\211:\203#�\3048:\203�\304\202�\3058\202)�\306 `\307\310F)!@\207" [event fboundp event-x posn-col-row 2 1 selected-window (0 . 0) 0] 6])
(put 'gamegrid-event-x 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gamegrid-event-y #[(event) "\301\302!\203\n�\302!\207\303\211:\203#�\3048:\203�\304\202�\3058\202)�\306 `\307\310F)!A\207" [event fboundp event-y posn-col-row 2 1 selected-window (0 . 0) 0] 6])
(put 'gamegrid-event-y 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gamegrid-color #[(color shade) "\306\307_!\211\n\310H_	\n\311H_	\n\312H_\313\314\f
$,\207" [shade v color r g b floor 255 0 1 2 format "#%02x%02x%02x"] 6])
(defalias 'gamegrid-set-font #[(face) "\205�\301\302\303\217\207" [gamegrid-font nil (set-face-font face gamegrid-font) ((error))] 3])
(defalias 'gamegrid-setup-face #[(face color) "\302	\"\210\303	\"\210\304!\210\305\306\307\217\210\305\310\311\217\207" [face color set-face-foreground set-face-background gamegrid-set-font nil (set-face-background-pixmap face [nothing]) ((error)) (set-face-background-pixmap face nil) ((error))] 3])
(defalias 'gamegrid-make-mono-tty-face #[nil "\301\302!\303\304\"\210)\207" [face make-face gamegrid-mono-tty-face set-face-inverse-video-p t] 3])
(defalias 'gamegrid-make-color-tty-face #[(color) "9\203\n�J\202�\304\305\306	\"!\307\n!\310	\"\210+\207" [color color-str name face intern format "gamegrid-color-tty-face-%s" make-face gamegrid-setup-face] 4])
(defalias 'gamegrid-make-grid-x-face #[nil "\301\302!\303!\210)\207" [face make-face gamegrid-x-border-face gamegrid-set-font] 2])
(defalias 'gamegrid-make-mono-x-face #[nil "\302\303!\304\305!\204�\306\307 \236\243\310	\"\210	*\207" [color face make-face gamegrid-mono-x-face face-foreground default foreground-color frame-parameters gamegrid-setup-face] 3])
(defalias 'gamegrid-make-color-x-face #[(color) "\304\305\"\306\307\310	\"!\311\n!\312	\"\210+\207" [color hex name face gamegrid-color 1.0 intern format "gamegrid-color-x-face-%s" make-face gamegrid-setup-face] 4])
(defalias 'gamegrid-make-face #[(data-spec-list color-spec-list) "\306!\306	!\307\310\"\203�\311\n!\202X�\307\312\"\203'�\f\204#�\313 \f\202X�\307\314\"\2039�
\2045�\315 
\202X�\307\316\"\203F�\317\n!\202X�\307\320\"\205X�\204V�\321 *\207" [data-spec-list color-spec-list color data gamegrid-grid-x-face gamegrid-mono-x-face gamegrid-match-spec-list memql 'color-x gamegrid-make-color-x-face 'grid-x gamegrid-make-grid-x-face 'mono-x gamegrid-make-mono-x-face 'color-tty gamegrid-make-color-tty-face 'mono-tty gamegrid-make-mono-tty-face gamegrid-mono-tty-face] 3])
(defalias 'gamegrid-colorize-glyph #[(color) "\303\304\305\306\307\310\311\312\313	\314\"B\315\313	\316\"B\317\313	\320\"BE\257\304\321\306\n\307\310\322\313	\323\"\324\313	\325\"\257\nD!\207" [gamegrid-xpm color gamegrid-xbm find-image :type xpm :data :ascent center :color-symbols "col1" gamegrid-color 0.6 "col2" 0.8 "col3" 1.0 xbm :foreground 1.0 :background 0.5] 14])
(defalias 'gamegrid-match-spec #[(spec) "@\211A@)\211\305=\204&�<\203�\f>\204&�9\205'�\f=\205'�\n*\207" [spec x value locale gamegrid-display-mode t] 3])
(defalias 'gamegrid-match-spec-list #[(spec-list) "\205�\301@!\206�\302A!\207" [spec-list gamegrid-match-spec gamegrid-match-spec-list] 2])
(defalias 'gamegrid-make-glyph #[(data-spec-list color-spec-list) "\305!\305	!\211\306\307!\203�\307\f!\202�\f\250)\203\"�\310!\202B�\311=\203.�\312\n!\202B�<\2039�\313!\202B�\314!\205B�\315!*\207" [data-spec-list color-spec-list color data arg gamegrid-match-spec-list fboundp characterp vector colorize gamegrid-colorize-glyph find-image vectorp gamegrid-make-image-from-vector] 4])
#@51 Convert an XEmacs style "glyph" to an image-spec.
(defalias 'gamegrid-make-image-from-vector #[(vect) "\304\305D	G\306\nW\203�	\nHC\244\nT\211\202\n�*\307\310D\244)\207" [l vect n #1=#:--cl-dotimes-temp-- image :type 0 :ascent center] 4 (#$ . 7781)])
(defalias 'gamegrid-display-type #[nil "\203�\302 \203�\303\207	\203�\304 \203�\305 \203�\306\207\304 \203\"�\307\207	\203-�\305 \203-�\310\207\311 \2034�\312\207\313\207" [gamegrid-use-glyphs gamegrid-use-color display-images-p glyph display-graphic-p display-color-p color-x mono-x color-tty display-multi-font-p mono-tty emacs-tty] 1])
(defalias 'gamegrid-set-display-table #[nil "\211\207" [gamegrid-display-table buffer-display-table] 2])
(defalias 'gamegrid-setup-default-font #[nil "\306\307\310\311\312 P!\"	\305=\205\223�\313\314\211\315X\203G�\fH\211<\203?�
@\316=\203?�\317
!A\n\203;�\nW\203>�))T\211\202�)\n\205\222�\n\320W\205\222�\321\307\322\"\323 \324 \325\245\245\313\211 !\326!!\n_\327\245\330 \331\245_!\211 \245\332_\333\334\322\330\327_!EC\",)\207" [gamegrid-face gamegrid-display-mode max-height c gamegrid-display-table glyph copy-face default intern "gamegrid-face-" buffer-name nil 0 255 image image-size 1 face-attribute :height display-pixel-height display-mm-height 25.4 float 10 floor 72.27 72.27 face-spec-set t height pixel-size point-size resy default-font-height] 8])
(defalias 'gamegrid-initialize-display #[nil "\306 \307 \310\311\312\"\313\211\314X\203L�\fH\315
@
\211AA)@\"\316
\211A@)
\211AA)@\"\nI\210	I\210+T\211\202�)\317 \210\320 \210\312\211\207" [gamegrid-display-mode gamegrid-display-table gamegrid-face-table c gamegrid-display-options spec gamegrid-display-type make-display-table make-vector 256 nil 0 255 gamegrid-make-glyph gamegrid-make-face gamegrid-setup-default-font gamegrid-set-display-table x glyph face cursor-type] 4])
(defalias 'gamegrid-set-face #[(c) "\304=\203�\305`S`\306	\nHCD#\207\307`S`\310\nH$\207" [gamegrid-display-mode gamegrid-display-table c gamegrid-face-table glyph add-text-properties display put-text-property face] 6])
(defalias 'gamegrid-cell-offset #[(x y) "\304	T\n_#\207" [gamegrid-buffer-start gamegrid-buffer-width y x +] 4])
(defalias 'gamegrid-get-cell #[(x y) "\302	\"f\207" [x y gamegrid-cell-offset] 3])
(defalias 'gamegrid-set-cell #[(x y c) "\212\304\305	\n\"b\210\306\307!\210\310\307\"\210\311!*\207" [buffer-read-only x y c nil gamegrid-cell-offset delete-char 1 insert-char gamegrid-set-face] 3])
(defalias 'gamegrid-init-buffer #[(width height blank) "\n\306\f\"\307P\310\311 \210`\n\312W\203/�c\210T\211\202�*\313=\203A�\314\315ed\"\316#\210eb*\207" [width gamegrid-buffer-width height gamegrid-buffer-height blank buffer-read-only make-string "\n" nil erase-buffer 0 glyph overlay-put make-overlay face line gamegrid-buffer-start i #1=#:--cl-dotimes-temp-- gamegrid-display-mode gamegrid-face] 4])
(defalias 'gamegrid-init #[(options) "\305\211\306\307p!\210\310 \207" [buffer-read-only truncate-lines line-spacing options gamegrid-display-options t 0 buffer-disable-undo gamegrid-initialize-display] 3])
(defalias 'gamegrid-start-timer #[(period func) "\303\211	p$\211\207" [period func gamegrid-timer run-with-timer] 5])
(defalias 'gamegrid-set-timer #[(delay) "\205�\302\303!\203�\303	\"\207\304\211\305H\306H\307HE	#\207" [gamegrid-timer delay fboundp set-itimer-restart timer-set-time 1 2 3] 6])
(defalias 'gamegrid-kill-timer #[nil "\203�\301!\210\302\211\207" [gamegrid-timer cancel-timer nil] 2])
#@809 Add the current score to the high score file.

On POSIX systems there may be a shared game directory for all users in
which the scorefiles are kept.  On such systems Emacs doesn't create
the score file FILE in this directory, if it doesn't already exist.
In this case Emacs searches for FILE in the directory specified by
`gamegrid-user-score-file-directory' and creates it there, if
necessary.

To add the score file for a game to the system wide shared game
directory, create the file with the shell command "touch" in this
directory and make sure that it is owned by the correct user and
group.  You probably need special user privileges to do this.

On non-POSIX systems Emacs searches for FILE in the directory
specified by the variable `temporary-file-directory'.  If necessary,
FILE is created there.
(defalias 'gamegrid-add-score #[(file score) "\303\304\"\203\f�\305	\n\"\207\306	\n\"\207" [system-type file score memql (ms-dos windows-nt) gamegrid-add-score-insecure gamegrid-add-score-with-update-game-score] 3 (#$ . 11377)])
(defalias 'gamegrid-add-score-with-update-game-score #[(file score) "\306\307\310\311\312\313	\"!\314\"!?\315!\203�\316\f\"\202\215�\n\2034�\317\312
\"!\2034�\320\312
\"\f#\202\215�\n\203P�\317\321!!\204G�\322\323\"\210\316\f#\202\215�\312!\324!\203\206�\325!\242\323=\204l�\322!\210\312\"\317!\204\206�\326\327\306\306\330\306\331&\210\320\f#)*\207" [result exec-directory gamegrid-shared-game-dir file score shared-game-score-directory nil zerop logand file-modes expand-file-name "update-game-score" 2048 file-name-absolute-p gamegrid-add-score-insecure file-exists-p gamegrid-add-score-with-update-game-score-1 directory-file-name make-directory t file-writable-p file-attributes write-region "" silent excl gamegrid-user-score-file-directory f] 8])
(defalias 'gamegrid-add-score-with-update-game-score-1 #[(file target score) "\306\307\310!\311 \312\313\300!\203�\300 \202�\314\300!\203�\202�\315\316\317 \260\320\321\322\217\210\323\n!\203;�\324\n!\210\325\326!\210\202?�\327\n!\210\330\f!\212
\203Y�\331
!\210\332\320\333\320#\210\324
!\210\202]�\334\f!\210eb\210\335\336\"!\337\340 \337	\260!\210\341 -\207" [user-mail-address marker-string errbuf default-directory target buf "/" generate-new-buffer " *update-game-score loss*" user-full-name " <" fboundp boundp "" ">  " current-time-string nil (byte-code "\306\307\310\311\312\313	\"\306\n\306\314\315!\316\f\203�\312
!\202�\317!\315!\257!\"\210)\306\207" [inhibit-quit exec-directory errbuf gamegrid-score-file-length gamegrid-shared-game-dir shared-game-score-directory nil apply call-process append expand-file-name "update-game-score" "-m" int-to-string "-d" file-name-directory target file score marker-string] 14) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval (ignore nil)] 2))) buffer-modified-p display-buffer error "Failed to update game score file" kill-buffer find-buffer-visiting switch-to-buffer revert-buffer t find-file-read-only search-forward int-to-string " " user-login-name beginning-of-line score] 7])
(defalias 'gamegrid-add-score-insecure #[(file score &optional directory) "\212\306	\206�\n\"\307!\210\310db\210\311\312\f\313 \314 \315\305!\203%�\305 \2020�\316\305!\203/�
\2020�\317%c\210\320\321ed#\210\322ed\"\210\323T!\210`d|\210\324\325 )\207" [file directory temporary-file-directory buffer-read-only score user-mail-address expand-file-name find-file-other-window nil format "%05d	%s	%s <%s>\n" current-time-string user-full-name fboundp boundp "" sort-fields 1 reverse-region goto-line t save-buffer gamegrid-score-file-length] 7])
(provide 'gamegrid)

${this.title}

Code Editor : gamegrid.elc