;ELC ;;; compiled by ocschwar@mint-square.mit.edu on Fri Jun 16 17:21:26 2000 ;;; from file /var/tmp/bbdb-2.00.06/lisp/bbdb-ftp.el ;;; emacs version 21.1 (patch 4) "Arches" XEmacs Lucid. ;;; bytecomp version 2.25 XEmacs; 22-Mar-96. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`bbdb-ftp.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (byte-code "!!!!" [require bbdb featurep efs-cu efs ange-ftp] 2) (custom-declare-variable 'bbdb-default-ftp-user '"anonymous" "*The default login to use when ftp-ing." :group 'bbdb-utilities-ftp :type 'string) (custom-declare-variable 'bbdb-default-ftp-dir '"/" "*The default directory to open when ftp-ing." :group 'bbdb-utilities-ftp :type 'string) (custom-declare-variable 'bbdb-ftp-site-name-designator-prefix '"Ftp Site: " "*The prefix that all ftp sites in the bbdb will have in their name field." :group 'bbdb-utilities-ftp :type 'string) #@65 Expands into an accessor function for slots in the notes alist. (defalias 'defun-bbdb-raw-notes-accessor '(macro . #[(slot) " !P! C DDEDF)" [intern "bbdb-record-" symbol-name slot fn-name defun record cdr assoc quote bbdb-record-raw-notes] 8 (#$ . 1135)])) (defalias 'bbdb-record-ftp-dir #[(record) "\nH\"A" [assoc ftp-dir record 7] 4]) (defalias 'bbdb-record-ftp-user #[(record) "\nH\"A" [assoc ftp-user record 7] 4]) #@73 Acessor Function. Returns the ftp-site field of the BBDB record or nil. (defalias 'bbdb-record-ftp-site #[(record) " ! P \n\"\nǕO*" [bbdb-record-name record name bbdb-ftp-site-name-designator-prefix " *" ftp-pfx-regexp string-match 0 nil] 4 (#$ . 1580)]) #@62 Remove any spaces or tabs from only the start of the string. (defalias 'remove-leading-whitespace #[(string) "! \" \" Th O+" [string-to-char " " ?\t 0 index tab-char-code space-char-code string char-equal nil] 3 (#$ . 1851)]) #@210 Use ange-ftp to open an ftp-connection to a BBDB record's name. If this command is executed from the *BBDB* buffer, ftp the site of the record at point; otherwise, it prompts for an ftp-site. \ (defalias 'bbdb-ftp #[(bbdb-record) ":C@!Au‡" [bbdb-record bbdb-ftp-internal nil] 3 (#$ . 2117) (list (if (string= bbdb-buffer-name (buffer-name)) (bbdb-current-record) (let (r (p "BBDB Ftp: ")) (while (not r) (setq r (bbdb-completing-read-record p)) (if (not r) (ding)) (setq p "Not in the BBDB! Ftp: ")) r)))]) (defalias 'bbdb-ftp-internal #[(bbdb-record) " ! !  !    D!  !!," [bbdb-record-ftp-site bbdb-record "" site bbdb-record-ftp-dir bbdb-default-ftp-dir dir bbdb-record-ftp-user bbdb-default-ftp-user user "/" "@" ":" file-string bbdb-inside-electric-display bbdb-electric-throw-to-execute bbdb-ftp-internal find-file-other-window error "Not an ftp site. Check bbdb-ftp-site-name-designator-prefix"] 6]) #@212 Prompt for and return a completely new bbdb-record that is specifically an ftp site entry. Doesn't insert it in to the database or update the hashtables, but does insure that there will not be name collisions. (defalias 'bbdb-read-new-ftp-site-record #[nil " !Ǎ\n\"  \"!! !@A@ ט \n ט טĉBC  BCBC#\"& ." [bbdb-records bbdb-readonly-p error "The Insidious Big Brother Database is read-only." nil site --bbdb-error-retry-- (byte-code "y" [--c-- (byte-code "! P pȎ  !  \" q !!!ҋ-\"J \"\"" [throw --bbdb-error-retry-- bbdb-read-string "Ftp Site: " site bbdb-ftp-site-name-designator-prefix intern-soft --bbdb-obuf-- ((set-buffer --bbdb-obuf--)) bbdb-buffer buffer-name find-file-noselect bbdb-file nowarn bbdb-debug get-buffer-window get-buffer w ((byte-code "!\" " [w select-window bbdb-records nil t bbdb-hashtable] 3)) error "%s is already in the database"] 8) ((error (byte-code " ! \" A@\"!)Ƈ" [ding t cursor-in-echo-area fboundp display-error --c-- nil message "Error: %s" sit-for 2] 3)))] 3) bbdb-read-string "Ftp Directory: " bbdb-default-ftp-dir dir "Ftp Username: " bbdb-default-ftp-user user "Company: " company "Additional Comments: " notes bbdb-divide-name names firstname lastname "" vector append ftp-dir ftp-user make-vector bbdb-cache-length] 14 (#$ . 3105)]) #@156 Add a new ftp-site entry to the bbdb database; prompts for all relevant info using the echo area, inserts the new record in the db, sorted alphabetically. (defalias 'bbdb-create-ftp-site #[(record) "\n\"\n\"\nC!" [bbdb-invoke-hook bbdb-create-hook record bbdb-change-record t bbdb-display-records] 3 (#$ . 4579) (list (bbdb-read-new-ftp-site-record))]) (provide 'bbdb-ftp)