1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / self / root / usr / share / emacs / 24.3 / lisp / play /
Filename : gamegrid.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:35 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/gamegrid.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


#@42 Non-nil means use glyphs when available.
(defvar gamegrid-use-glyphs t (#$ . 556))
#@41 Non-nil means use color when available.
(defvar gamegrid-use-color t (#$ . 645))
#@34 Name of the font used in X mode.
(defvar gamegrid-font "-*-courier-medium-r-*-*-*-140-100-75-*-*-iso8859-*" (#$ . 732))
#@41 Indicates the face to use as a default.
(defvar gamegrid-face nil (#$ . 858))
(make-variable-buffer-local 'gamegrid-face)
(defvar gamegrid-display-options nil)
(defvar gamegrid-buffer-width 0)
(defvar gamegrid-buffer-height 0)
(defvar gamegrid-blank 0)
(defvar gamegrid-timer nil)
(defvar gamegrid-display-mode nil)
(defvar gamegrid-face-table nil)
(defvar gamegrid-buffer-start 1)
#@32 Number of high scores to keep.
(defvar gamegrid-score-file-length 50 (#$ . 1246))
#@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/") (#$ . 1335))
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\300\315!\207" [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] 2)
(defvar gamegrid-grid-x-face nil)
(defvar gamegrid-mono-x-face nil)
(defvar gamegrid-mono-tty-face nil)
(defconst gamegrid-glyph-height 16)
#@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" (#$ . 2197))
#@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 };" (#$ . 2822))
(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\304!!@\207" [event fboundp event-x posn-col-row event-end] 3])
(put 'gamegrid-event-x 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gamegrid-event-y #[(event) "\301\302!\203\n�\302!\207\303\304!!A\207" [event fboundp event-y posn-col-row event-end] 3])
(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	!\211\307=\203�\310\n!\202W�\311=\203%�\f\204!�\312 \f\202W�\313=\2036�
\2042�\314 
\202W�\315=\203B�\316\n!\202W�\317=\203V�\204Q�\320 \202W�\321*\207" [data-spec-list color-spec-list color data gamegrid-grid-x-face gamegrid-mono-x-face gamegrid-match-spec-list 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 nil gamegrid-mono-tty-face] 4])
(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 --dotimes-limit-- image :type 0 :ascent center] 4 (#$ . 7026)])
(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!\"	\313=\205\230�\314\315\316\fW\203L�
H\211<\203D�@\317=\203D�\320!A\n\203@�\nW\203C�))T\211\202�*\n\205\227�\n\321W\205\227�\322\307\323\"\324 \325 \326\245\245\314\211 !\"\327\"!\n_\330\245 \331! \332\245_!\211!\245\333_ \334\335\323\331 \330_!EC\",)\207" [gamegrid-face gamegrid-display-mode max-height c --dotimes-limit-- gamegrid-display-table copy-face default intern "gamegrid-face-" buffer-name glyph nil 256 0 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\"\311\313\fW\203I�
H\314@\3158\"\316\211A@)\3158\"\nI\210	I\210+T\211\202�*\317 \210\320 \210\312\211\207" [gamegrid-display-mode gamegrid-display-table gamegrid-face-table c --dotimes-limit-- gamegrid-display-options gamegrid-display-type make-display-table make-vector 256 nil 0 gamegrid-make-glyph 2 gamegrid-make-face gamegrid-setup-default-font gamegrid-set-display-table spec glyph x face cursor-type] 5])
(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 --dotimes-limit-- gamegrid-display-mode gamegrid-face] 5])
(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>\203�\304	\n\"\207\305	\n\"\207" [system-type file score (ms-dos windows-nt) gamegrid-add-score-insecure gamegrid-add-score-with-update-game-score] 3 (#$ . 10640)])
(defalias 'gamegrid-add-score-with-update-game-score #[(file score) "\306\307\310\311\312\"!\313\"!?\314\n!\203�\315\n\"\202\207�	\2032�\316\311\n\f\"!\2032�\317\n\311\n\f\"#\202\207�	\203K�\316\320
!!\204C�\321
\322\"\210\315\n
#\202\207�\311
!\323!\203\200�\324!\242\322=\204f�\321!\210\311\n\"\316!\204\200�\325\326\327\327\330\327\331&\210\317\n#))\207" [exec-directory gamegrid-shared-game-dir file score shared-game-score-directory gamegrid-user-score-file-directory 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 "" nil silent excl 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\"\210eb\210y\210`d|\210\323\324 )\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 t save-buffer gamegrid-score-file-length] 7])
(provide 'gamegrid)