Lines Matching +defs:find +defs:file
13 ;; This file is part of GNU Emacs.
26 ;; along with GNU Emacs; see the file COPYING. If not, write to the
91 ;; ascii-file is shown with font with a different height-width ratio,
104 ;; See the short guide at the end of this file.
873 ARROW-PRED is a function that is called to find out if the shape
914 FILL-PRED is a function that is called to find out if the shape
1796 (defun artist-string-to-file (str file-name)
1797 "Write string STR to file FILE-NAME."
1798 (write-region str 'end-is-ignored file-name nil 'no-message))
1800 (defun artist-file-to-string (file-name)
1801 "Read from file FILE-NAME into a string."
1803 (let ((tmp-buffer (get-buffer-create (concat "*artist-" file-name "*"))))
1806 (insert-file-contents file-name nil nil nil t)
1825 (let* ((tmp-stdin-file-name (if stdin
1826 (make-temp-file
1827 (concat (file-name-as-directory
1833 (tmp-stderr-file-name (make-temp-file
1834 (concat (file-name-as-directory
1841 (if stdin (artist-string-to-file stdin tmp-stdin-file-name))
1851 tmp-stdin-file-name
1853 tmp-stderr-file-name)
1860 tmp-stdin-file-name
1862 tmp-stderr-file-name)
1871 (artist-file-to-string tmp-stderr-file-name)))
1874 (if (and stdin (file-exists-p tmp-stdin-file-name))
1875 (delete-file tmp-stdin-file-name))
1876 (if (file-exists-p tmp-stderr-file-name)
1877 (delete-file tmp-stderr-file-name))
2180 ;; artist-find-direction
2184 (defun artist-find-direction (x1 y1 x2 y2)
2216 (let* ((direction (artist-find-direction x1 y1 x2 y2))
2293 (defun artist-find-octant (x1 y1 x2 y2)
2386 (octant (artist-find-octant x1 y1 x2 y2))
2824 (setq dir0 (artist-find-direction x1 y1 x0 y0))
2825 (setq dirn (artist-find-direction xn-1 yn-1 xn yn))
3015 (defun artist-vap-find-endpoint (x1 y1 step-x step-y accept-set reject-set)
3068 ;; Else: We couldn't find any line on the other side.
3074 (defun artist-vap-find-endpoints-horiz (x y)
3077 (list (artist-vap-find-endpoint x y 1 0 '(?- ?+) '(?\s))
3078 (artist-vap-find-endpoint x y -1 0 '(?- ?+) '(?\s))))
3080 (defun artist-vap-find-endpoints-vert (x y)
3083 (list (artist-vap-find-endpoint x y 0 1 '(?| ?+) '(?\s))
3084 (artist-vap-find-endpoint x y 0 -1 '(?| ?+) '(?\s))))
3086 (defun artist-vap-find-endpoints-swne (x y)
3089 (list (artist-vap-find-endpoint x y 1 -1 '(?/ ?X) '(?\s))
3090 (artist-vap-find-endpoint x y -1 1 '(?/ ?X) '(?\s))))
3092 (defun artist-vap-find-endpoints-nwse (x y)
3095 (list (artist-vap-find-endpoint x y 1 1 '(?\\ ?X) '(?\s))
3096 (artist-vap-find-endpoint x y -1 -1 '(?\\ ?X) '(?\s))))
3099 (defun artist-vap-find-endpoints (x y)
3105 (cond ((eq c ?-) (artist-vap-find-endpoints-horiz x y))
3106 ((eq c ?|) (artist-vap-find-endpoints-vert x y))
3107 ((eq c ?/) (artist-vap-find-endpoints-swne x y))
3108 ((eq c ?\\) (artist-vap-find-endpoints-nwse x y))
3109 ((eq c ?+) (append (artist-vap-find-endpoints-horiz x y)
3110 (artist-vap-find-endpoints-vert x y)))
3111 ((eq c ?X) (append (artist-vap-find-endpoints-swne x y)
3112 (artist-vap-find-endpoints-nwse x y)))
3114 ;; We don't know how to find directions when we are on
3133 (dir (artist-find-direction x1 y1 x2 y2))
3163 (let ((endpoints (artist-vap-find-endpoints x1 y1)))
3202 ;; we wouldn't find any line at (0,0):
3219 (artist-vap-find-endpoints x1 y1))
3755 ;; can find the rightmost positions on the runs.
3854 (dir1 (artist-find-direction x2 y2 x1 y1))
3861 (dirn (artist-find-direction xn-1 yn-1 xn yn)))
3877 (artist-find-direction x2 y2 x1 y1)))
3880 (artist-find-direction x1 y1 x2 y2)))))