Lines Matching +defs:table +defs:string
70 ;; controls what happens: if the value of this variable is a string,
805 If non-nil but not a string, you are prompted for the name.
816 string
826 string))
832 string))
838 string))
844 string))
850 string))
855 If a string, then use that string as the password.
859 string
866 string))
882 string))
908 string))
915 initial prompt. The above string will fail under most SUN-3's since it
940 :type 'string)
971 :type 'string)
978 :type 'string)
983 :type '(repeat string))
986 "*If non-nil, this is a string naming the nslookup program."
989 string))
1030 ;;;; Hash table support.
1039 (defun ange-ftp-hash-table-keys (tbl)
1043 ;; (sort keys 'string-lessp))
1044 (sort (all-completions "" tbl) 'string-lessp))
1057 (defvar ange-ftp-user-hashtable (make-hash-table :test 'equal)
1058 "Hash table holding associations between HOST, USER pairs.")
1060 (defvar ange-ftp-passwd-hashtable (make-hash-table :test 'equal)
1064 (defvar ange-ftp-account-hashtable (make-hash-table :test 'equal)
1067 (defvar ange-ftp-files-hashtable (make-hash-table :test 'equal :size 97)
1068 "Hash table for storing directories and their respective files.")
1070 (defvar ange-ftp-inodes-hashtable (make-hash-table :test 'equal :size 97)
1071 "Hash table for storing file names and their \"inode numbers\".")
1085 (defconst ange-ftp-expand-dir-hashtable (make-hash-table :test 'equal))
1093 (defvar ange-ftp-process-string nil)
1125 Args are as in `message': a format string, plus arguments to be formatted."
1131 ;; Take just the last MAX - 3 chars of the string.
1141 (string-match (concat "\\`"
1146 (string-equal (file-name-nondirectory file)
1174 (read-string (format "User for %s: " host)
1196 (interactive (list (read-string "Host: ")
1197 (read-string "User: ")
1213 (if (string-match "\\`[^/]*\\(/\\).*\\'" key)
1215 (if (and (string-equal user (substring key (match-end 1)))
1225 ;; look up password in the hash table first; user might have overridden the
1232 (string-equal user ange-ftp-default-user))
1238 (string-equal user ange-ftp-netrc-default-user))
1243 ((and (or (string-equal user "anonymous")
1244 (string-equal user "ftp"))
1282 (interactive (list (read-string "Host: ")
1283 (read-string "User: ")
1294 (string-equal user ange-ftp-default-user)
1297 (string-equal user ange-ftp-netrc-default-user)
1400 (string-match ".r..------" (nth 8 attr))))
1432 (if (string-match "\\`[^/]*\\(/\\).*\\'" key)
1450 (match-string elt ,name)))
1458 (if (string-equal name ange-ftp-ftp-name-arg)
1463 (if (posix-string-match (car ange-ftp-name-format) name)
1477 (if (posix-string-match (car ange-ftp-name-format) fullname)
1537 (defun ange-ftp-quote-string (string)
1551 string)))
1571 (cond ((string-match ange-ftp-xfer-size-msgs line)
1573 (/ (string-to-number (match-string 1 line))
1575 ((string-match ange-ftp-skip-msgs line)
1577 ((string-match ange-ftp-good-msgs line)
1587 ((string-match ange-ftp-multi-msgs line)
1589 ((string-match ange-ftp-potential-error-msgs line)
1595 ((string-match ange-ftp-fatal-msgs line)
1660 (while (string-match "\000+" str)
1669 (string-match "^#+$" str)
1677 (setq ange-ftp-process-string (concat ange-ftp-process-string
1682 (if (string-match "Password: *$" ange-ftp-process-string)
1683 (process-send-string proc "\n"))))
1685 (string-match "\n" ange-ftp-process-string))
1686 (let ((line (substring ange-ftp-process-string
1690 (setq ange-ftp-process-string (substring ange-ftp-process-string
1692 (while (string-match "\\`ftp> *" line)
1732 (if (string-match "\\*ftp \\([^@]+\\)@\\([^*]+\\)\\*" name)
1733 (let ((user (match-string 1 name))
1734 (host (match-string 2 name)))
1749 (not (string-match ange-ftp-local-host-regexp host)))))
1755 (not (string-match ange-ftp-local-host-regexp host)))))
1787 (cond ((string-match "login: *$" str)
1788 (process-send-string proc
1793 ((string-match "Password: *$" str)
1794 (process-send-string proc
1800 ((string-match ange-ftp-gateway-fatal-msgs str)
1803 ((string-match ange-ftp-gateway-prompt-pattern str)
1833 (process-send-string proc ange-ftp-gateway-setup-term-command)
1840 (process-send-string proc (concat "exec " ftp "\n")) ;spawn ftp process
1862 (setq ange-ftp-process-string ""
1877 (if (string-match "\\`user \"[^\"]*\"" cmd)
1881 (process-send-string proc cmd)
1932 (setq res (match-string 1)))
1996 (process-send-string proc "help foo\n"))
2010 (make-local-variable 'ange-ftp-process-string)
2011 (setq ange-ftp-process-string "")
2080 (string-match "\\`\\([^#]+\\)\\(#\\([0-9]+\\)\\)?\\'" host)
2081 (let* ((nshost (ange-ftp-nslookup-host (match-string 1 host)))
2082 (port (match-string 3 host))
2093 (if (not (and ange-ftp-raw-login (string< "" account)))
2106 (if (string-match (regexp-quote "\\|^331 ") ange-ftp-skip-msgs)
2109 (if (string-match (regexp-quote "\\|^332 ") ange-ftp-skip-msgs)
2148 (if (string-match ange-ftp-hash-mark-msgs line)
2149 (let ((size (string-to-number (match-string 1 line))))
2168 (let ((pass (ange-ftp-quote-string
2170 (account (ange-ftp-quote-string
2192 'string-match)
2205 (if (string-match (concat "Passive mode " on-or-off)
2320 (string-match "/\\'" cmd1)
2321 (not (string-match "R" cmd3))
2335 (when (string-match " " cmd1)
2372 (and (eq cmd0 'quote) (string= cmd1 "mdtm")))
2379 ;; Turn the command into one long string
2460 (if (string-match
2472 ((string-match ange-ftp-vms-name-template dir)
2480 ((string-match ange-ftp-mts-name-template dir)
2486 ((string-match ange-ftp-cms-name-template dir)
2497 ((and (string-match ange-ftp-bs2000-name-template dir)
2540 (string-match ange-ftp-dumb-unix-host-regexp host))))
2545 (list (read-string "Host: "
2564 ;; the listing (a string), if everything works.
2592 (when (string-match "^--dired\\s-+" lsargs)
2601 (name (ange-ftp-quote-string (nth 2 parsed)))
2608 (if (string-equal name "")
2613 (string-equal key ange-ftp-ls-cache-file)
2615 (or dumb (string-equal lsargs ange-ftp-ls-cache-lsargs)))
2668 ange-ftp-ls-cache-res (buffer-string))
2732 (let ((tbl (make-hash-table :test 'equal))
2734 (string-match "F" switches)))
2742 (let ((end (string-match " -> " file)))
2746 (string-match "@\\'" file))
2753 (not (string-equal file ""))
2759 (string-match
2761 (concat (match-string 1)
2762 (match-string 2)
2763 (match-string 3))))))
2767 (if (or (and symlink (string-match "@\\'" file))
2768 (and directory (string-match "/\\'" file))
2769 (and executable (string-match "*\\'" file))
2770 (and socket (string-match "=\\'" file)))
2788 (list (read-string "Directory: "
2793 (string-match ange-ftp-dl-dir-regexp dir)))
2802 `(let ((tbl (make-hash-table :test 'equal)))
2872 ;; in the hash table.
2873 (string-match
2875 (string-match
2877 (not (string-match
2882 (string-match
2884 (string-match
2886 (not (string-match
2897 (if (string-equal file "")
2921 (string-equal dired-local-variables-file efile))
2924 (string-match "\\." efile))
2927 (not (string-equal "/" (nth 2 parsed))))
2930 (string-match "\\." efile))))))
2958 or a string for a symlink. If the file isn't in the hashtable,
2994 (let ((new-tbl (make-hash-table :test 'equal
2995 :size (hash-table-size
3049 (and (or (string-match "\"\\([^\"]*\\)\"" line)
3050 (string-match " \\([^ ]+\\) " line)) ; stone-age VMS servers!
3051 (setq dir (match-string 1 line)))))
3074 (string-equal user "anonymous")
3075 (string-equal user "ftp")
3085 (if (string-match ange-ftp-expand-dir-regexp line)
3086 (match-string 1 line)))))
3088 (if (string-equal dir "~")
3104 "Take a string and short-circuit //, /. and /.."
3105 (if (string-match "[^:]+//" n) ;don't upset Apollo users
3115 (cond ((string-match "\\`/" name)
3120 ((string-match "\\`~[^/]*" name)
3121 (let* ((tilda (match-string 0 name))
3130 (setq name (cond ((string-equal rest "") dir)
3131 ((string-equal dir "/") rest)
3146 (unless (string-match "\\`//" name)
3150 (setq name (if (string-match "\\`//" default-directory)
3154 (if (string-match "\\`[a-zA-Z]:" name)
3156 (if (string-match "\\`//" name)
3163 (if (eq (string-to-char n) ?/)
3173 (cond ((eq (string-to-char name) ?~)
3175 ((eq (string-to-char name) ?/)
3178 (eq (string-to-char name) ?\\))
3181 (or (string-match "\\`[a-zA-Z]:" name)
3182 (string-match "\\`[a-zA-Z]:" default)))
3201 (if (string-equal (nth 2 parsed) "")
3216 (string-match "\\`~[^/]*\\'" filename))
3229 (string-match "\\`~[^/]*\\'" filename))
3250 (string-match ange-ftp-binary-file-name-regexp file)))
3258 (name (ange-ftp-quote-string (nth 2 parsed)))
3337 (name (ange-ftp-quote-string (nth 2 parsed)))
3461 (let ((tail (ange-ftp-hash-table-keys
3469 (if (or (not match) (string-match match f))
3552 (name (ange-ftp-quote-string (nth 2 parsed)))
3583 (when (save-match-data (string-match "^213 [0-9]\\{14\\}$" line))
3586 (string-to-number (substring line 16 18))
3587 (string-to-number (substring line 14 16))
3588 (string-to-number (substring line 12 14))
3589 (string-to-number (substring line 10 12))
3590 (string-to-number (substring line 8 10))
3591 (string-to-number (substring line 4 8))
3643 ;; (result (buffer-string)))
3645 ;; (if (and (string-equal status "finished\n")
3679 (f-name (and f-parsed (ange-ftp-quote-string (nth 2 f-parsed))))
3683 (t-name (and t-parsed (ange-ftp-quote-string (nth 2 t-parsed))))
3717 (list 'get f-name (or temp1 (ange-ftp-quote-string newname)))
3777 (if (string-equal temp1 temp2)
3889 (if (and (string-equal f-host t-host)
3890 (string-equal f-user t-user))
3891 (let* ((f-name (ange-ftp-quote-string (nth 2 f-parsed)))
3892 (t-name (ange-ftp-quote-string (nth 2 t-parsed)))
3967 (not (string-match ange-ftp-completion-ignored-pattern
3970 (not (string-match ange-ftp-completion-ignored-pattern symname)))))
3976 (string-match "\\`[a-zA-Z]:[/\\]\\'" dir))
3977 (string-equal "/" dir)))
4077 (setq dir (file-name-directory (expand-file-name (buffer-string)))))
4103 (name (ange-ftp-quote-string
4133 (name (ange-ftp-quote-string
4508 (when (string-match "d\\'" switches)
4517 (if (string-match (concat "^.+[^ ] " (regexp-quote filename)
4519 (match-string 0 dirlist)
4548 (when (string-match "\\(.*\\)#" host)
4549 (setq host (match-string 1 host)))
4599 (name (ange-ftp-quote-string (nth 2 parsed)))
4915 ; (string-match ange-ftp-vos-host-regexp host))))
4960 (if (string-match "\\`\\([^:]+:\\)?\\(\\[.*\\]\\)?\\([^][]*\\)\\'" name)
4962 (setq drive (match-string 1 name))
4963 (setq dir (match-string 2 name))
4964 (setq file (match-string 3 name))
4966 (setq dir (subst-char-in-string
4974 (if (string-match "\\`/[^:]+:/" name)
4980 (setq dir (subst-char-in-string ?/ ?. (substring tmp 0 -1) t)))
5010 (cond ((string-equal dir-name "/")
5012 ((string-match "\\`/[-A-Z0-9_$]+:/\\'" dir-name)
5027 (string-match ange-ftp-vms-host-regexp host))))
5052 (match-string 0)))
5057 (let ((tbl (make-hash-table :test 'equal))
5062 (if (string-match "\\.\\(DIR\\|dir\\);[0-9]+" file)
5066 (if (string-match ";[0-9]+\\'" file) ; deal with extension
5092 (if (string-match ";[0-9]+\\'" file)
5111 (and (string-match regexp key)
5130 (if (string-match ";[0-9]+\\'" file)
5140 (and (string-match regexp name)
5143 (string-to-number (match-string 1 name))))))
5147 (concat file ";" (int-to-string version))
5160 (list (read-string "Host: "
5173 (if (string-match "\\.\\(DIR\\|dir\\)\\(;[0-9]+\\)?\\'" name)
5294 ((string-match "-Z;[0-9]+\\'" name)
5296 ((string-match ";[0-9]+\\'" name)
5298 ((string-match "-Z\\'" name)
5302 (if (string-match ";[0-9]+\\'" name)
5335 (if (string-match ";[0-9]+\\'" name)
5404 ;; (if (string-match ";[0-9]+$" name)
5416 ;; (if (and (string-match
5419 ;; (string-to-int (substring arg bv-length))
5429 ;; (let* ((start-vn (string-match ";[0-9]+$" fn))
5435 ;; (not (memq (string-to-int (substring fn (1+ start-vn)))
5458 ;; (if (and (string-match ";[0-9]+$" file)
5462 ;; (string-to-int (substring file (1+ (match-beginning 0)))))
5466 ;; (setq bak (concat root ";" (int-to-string ver)))
5492 (if (string-match "\\`\\([^:]+:\\)?\\(.*\\)\\'" name)
5494 (setq acct (match-string 1 name))
5495 (setq file (match-string 2 name))
5499 (if (string-match "\\`/\\([^:]+:\\)/\\(.*\\)\\'" name)
5500 (concat (match-string 1 name) (match-string 2 name))
5512 (if (string-equal dir-name "/")
5516 ((string-equal dir-name "")
5518 ((string-match ":\\'" dir-name)
5537 (string-match ange-ftp-mts-host-regexp host))))
5541 (let ((tbl (make-hash-table :test 'equal)))
5561 (list (read-string "Host: "
5656 (if (string-match "\\`/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?\\'"
5658 (let ((minidisk (match-string 1 name)))
5660 (let ((file (match-string 2 name))
5699 ((string-equal "/" dir-name)
5701 ((string-match "\\`/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?\\'" dir-name)
5702 (let* ((minidisk (match-string 1 dir-name))
5708 (match-string 2 dir-name)
5737 (string-match ange-ftp-cms-host-regexp host))))
5742 (list (read-string "Host: "
5771 (let ((tbl (make-hash-table :test 'equal)))
5777 (puthash (concat (match-string 1) "." (match-string 2)) nil tbl)
5859 (if (string-match "-Z\\'" name)
5871 ;; (if (string-match "^\\([^ ]+\\) +\\([^ ]+\\)$" name)
5911 :type 'string)
5918 (if (string-match
5939 (if (string-match (concat "^/_/") name)
5941 (if (string-match
5956 (string-match "[#@].+" filename))
5965 (subst-char-in-string ?/ ?. filename)))))
5977 (if (string-equal dir-name "/")
5978 "*" ;; Don't use an empty string here!
5997 (string-match ange-ftp-bs2000-host-regexp host))))
6002 (string-match ange-ftp-bs2000-posix-host-regexp host))))
6007 (list (read-string "Host: "
6020 (list (read-string "Host: "
6043 :type '(repeat string))
6052 (match-string 2)))
6057 (let ((tbl (make-hash-table :test 'equal))
6063 (setq pubset (match-string 0)))