HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/textmodes/
Current File : //usr/share/emacs/26.1/lisp/textmodes/refbib.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

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


(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\302\312\313\314\306\301&\210\310\315\316\317\313\320\306\301&\210\310\321\322\323\313\324\306\301&\210\310\325\326\327\313\330\306\301&\207" [custom-declare-group refbib nil "Convert refer-style references to ones usable by Latex bib." :prefix "r2b-" :group text custom-declare-variable r2b-trace-on "Non-nil means trace conversion." :type boolean r2b-journal-abbrevs 'nil "Abbreviation list for journal names.\nIf the car of an element matches a journal name exactly, it is replaced by\nthe cadr when output.  Braces must be included if replacement is a\n{string}, but not if replacement is a bibtex abbreviation.  The cadr\nmay be eliminated if is exactly the same as the car.\n  Because titles are capitalized before matching, the abbreviation\nfor the journal name should be listed as beginning with a capital\nletter, even if it really doesn't.\n  For example, a value of ((\"Aij\" \"{Artificial Intelligence}\")\n(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string\n\"Artificial Intelligence\", but would replace Ijcai81 with the\nBibTeX macro \"ijcai7\"." (repeat (list string string)) r2b-booktitle-abbrevs 'nil "Abbreviation list for book and proceedings names.\nIf the car of an element matches a title or booktitle exactly, it is\nreplaced by the cadr when output.  Braces must be included if\nreplacement is a {string}, but not if replacement is a bibtex\nabbreviation.  The cadr may be eliminated if is exactly the same as\nthe car.\n  Because titles are capitalized before matching, the abbreviated title\nshould be listed as beginning with a capital letter, even if it doesn't.\n  For example, a value of ((\"Aij\" \"{Artificial Intelligence}\")\n(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string\n\"Artificial Intelligence\", but would replace Ijcai81 with the\nBibTeX macro \"ijcai7\"." (repeat (list string string)) r2b-proceedings-list 'nil "Assoc list of books or journals which are really conference proceedings,\nbut whose name and whose abbrev expansion (as defined in `r2b-journal-abbrevs'\nand `r2b-booktitle-abbrevs') does not contain the words \"conference\" or\n\"proceedings\".  (Those cases are handled automatically.)\nThe entry must match the given data exactly.\n  Because titles are capitalized before matching, the items in this list\nshould begin with a capital letter.\n  For example, suppose the title \"Ijcai81\" is used for the proceedings of\na conference, and its expansion is the BibTeX macro \"ijcai7\".  Then\n`r2b-proceedings-list' should be ((\"Ijcai81\") ...).  If instead its\nexpansion were \"Proceedings of the Seventh International Conference\non Artificial Intelligence\", then you would NOT need to include Ijcai81\nin `r2b-proceedings-list' (although it wouldn't cause an error)." (repeat (list string string))] 8)
#@111 Words not to be used to build the citation key.
This is in addition to the `r2b-capitalize-title-stop-words'.
(defvar r2b-additional-stop-words "Some\\|What" (#$ . 3264))
#@62 If true, then use " to delimit fields, otherwise use braces.
(custom-declare-variable 'r2b-delimit-with-quote t '(#$ . 3441) :type 'boolean :group 'refbib)
#@65 Words not to be capitalized in a title (unless the first word).
(defvar r2b-capitalize-title-stop-words "the\\|and\\|of\\|is\\|a\\|an\\|of\\|for\\|in\\|to\\|in\\|on\\|at\\|by\\|with\\|that\\|its" (#$ . 3603))
(defvar r2b-capitalize-title-stop-regexp (concat "\\(" r2b-capitalize-title-stop-words "\\)\\(\\b\\|'\\)"))
#@78 Like `capitalize-region', but don't capitalize stop words, except the first.
(defalias 'r2b-capitalize-title-region #[(begin end) "\306\307 \310\216\214\311\n!\210\f}\210eb\210\312\313!\203\314v\210\202#\315\314!\210\316\317\306\320#\205N\312\313!\2037\314v\210\202#\320\312
!)\203G\321\314!\210\202#\315\314!\210\202#,\207" [orig-syntax-table case-fold-search text-mode-syntax-table begin end r2b-capitalize-title-stop-regexp nil syntax-table #[nil "\301!\207" [orig-syntax-table set-syntax-table] 2] set-syntax-table looking-at "[A-Z][a-z]*[A-Z]" 1 capitalize-word re-search-forward "\\<" t downcase-word] 4 (#$ . 3926) "r"])
#@71 Like `capitalize', but don't capitalize stop words, except the first.
(defalias 'r2b-capitalize-title #[(s) "r\301\302!q\210\303 \210c\210\304ed\"\210\305 )\207" [s get-buffer-create "$$$Scratch$$$" erase-buffer r2b-capitalize-title-region buffer-string] 3 (#$ . 4574)])
#@32 Unbind defvars, for debugging.
(defalias 'r2b-reset #[nil "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\207" [makunbound r2b-journal-abbrevs r2b-booktitle-abbrevs r2b-proceedings-list r2b-capitalize-title-stop-words r2b-capitalize-title-stop-regexp r2b-additional-stop-words r2b-stop-regexp] 2 (#$ . 4852) nil])
(defvar r2b-stop-regexp (concat "\\`\\(\\(" r2b-additional-stop-words "\\|" r2b-capitalize-title-stop-words "\\)\\('\\w*\\)?\\W+\\)*\\([A-Z0-9]+\\)"))
(defalias 'r2b-trace #[(&rest args) "\205\f\302\303	\"\210\304\305!\207" [r2b-trace-on args apply message sit-for 0] 3])
#@43 Returns string matched in current buffer.
(defalias 'r2b-match #[(exp) "\224\225{\207" [exp] 2 (#$ . 5487)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\207" [custom-declare-variable r2b-out-buf-name "*Out*" "Name of buffer for output from refer-to-bibtex." :type string :group refbib r2b-log-name "*Log*" "Name of buffer for logs errors from refer-to-bibtex."] 8)
(defvar r2b-in-buf nil)
(defvar r2b-out-buf nil)
(defvar r2b-log nil)
(defvar r2b-error-found nil)
(byte-code "\301\302\207" [r2b-variables (r2b-error-found r2bv-author r2bv-primary-author r2bv-date r2bv-year r2bv-decade r2bv-month r2bv-title r2bv-title-first-word r2bv-editor r2bv-annote r2bv-tr r2bv-address r2bv-institution r2bv-keywords r2bv-booktitle r2bv-journal r2bv-volume r2bv-number r2bv-pages r2bv-booktitle r2bv-kn r2bv-publisher r2bv-organization r2bv-school r2bv-type r2bv-where r2bv-note r2bv-ordering) nil] 1)
#@41 Set all global vars used by r2b to nil.
(defalias 'r2b-clear-variables #[nil "\211\205	@\302L\210	A\211\204\302)\207" [r2b-variables vars nil] 3 (#$ . 6428)])
(defalias 'r2b-warning #[(&rest args) "\304\305\306\307	\"\n\"\210\305\310\n\"\210\305\310\"\210\305\311\"\210\305\306\307	\"\"\207" [r2b-error-found args r2b-log r2b-out-buf t princ apply format "\n" "% "] 4])
#@460 Set VAR to string value of FIELD, if any.  If none, VAR is set to
nil.  If multiple fields appear, then separate values with the
'\nand\t\t', unless UNIQUE is non-nil, in which case log a warning
and just concatenate the values.  Trim off leading blanks and tabs on
first line, and trailing blanks and tabs of every line.  Log a warning
and set VAR to the empty string if REQUIRED is true.  Capitalize as a
title if CAPITALIZE is true.  Returns value of VAR.
(defalias 'r2b-get-field #[(var field &optional unique required capitalize) "\306\211\307\310\311\"\210eb\210\203a\312\313\314Q\306\307#\203a\315\316!\316y\317U\211\203>\320\321!\204>\320\322!\210\n\323\315\316!Q\202!	\204G\n\202\f\203Y\324\325\n#\210	\323\nQ\202	\326\nQ\202	\203m
\203m\327	!	L\210	?\205\200\205\200\330!+\207" [not-past-end val item field unique capitalize nil t r2b-trace "snarfing %s" re-search-forward "^" "\\b[ 	]*\\(.*[^ 	\n]\\)[ 	]*" r2b-match 1 0 looking-at "[ 	]*$\\|%" "\\(.*[^ 	\n]\\)[ 	]*$" "\n" r2b-warning "*Invalid multiple field %s %s" "\n		and " r2b-capitalize-title r2b-require var required] 4 (#$ . 6816)])
#@76 Set VAR to the Nth subpattern in REGEXP matched by STRING, or nil if none.
(defalias 'r2b-set-match #[(var n regexp string) "	;\205\304\n	\"\205	\224\225OL\207" [var string regexp n string-match] 4 (#$ . 7962)])
(defvar r2b-month-abbrevs '(("jan") ("feb") ("mar") ("apr") ("may") ("jun") ("jul") ("aug") ("sep") ("oct") ("nov") ("dec")))
#@58 Try to convert `r2bv-month' to a standard 3 letter name.
(defalias 'r2b-convert-month #[nil "\205T	\303\304\"\203-\n\203!\303\n@@\"\204!\nA\211\204\n\205S\n@@\211\202S\305!@\211\247\203L\n\306V\203L\n\307W\203L\n	8@\211\202S\310\311!\210\312\211)\207" [r2bv-month r2b-month-abbrevs months string-match "[^0-9]" read-from-string 0 13 r2b-warning "* Ridiculous month" nil] 4 (#$ . 8313)])
#@37 Parse buffer into global variables.
(defalias 'r2b-snarf-input #[nil "\306\307\310!\210\311\312!\210	q\210eb\210\313\314\n\"\210\313`\315\210`{\n\"\210\316\n!\210\317\303\320\"\210\317\304\321\"\210\203;\322\305\323\324$\210\202K\f\203I\322\305\323\324\f$\210\202K\325\317\326\327\306\211$\210\322\330\312\331$\210\204o\322\330\323\332$\203o\333P\322\334\323\335$\210\322\336\312\337$\210;\203\225\340\341\"\203\225\312\323\225O\342 \210\317\343\344\306\211\211%\210\322\345\346?#$\210\317\347\350\306#\210\317\351\352\306#\210\317\353\354\306#\210\317\355\356\306#\210\317\357\360\"\210\317\361\362\306\315\306%\210\317\363\364\306\315\306%\210\317\365\366\306#\210\317\367\370\306#\210\317\371\372\306#\210\317\373\374\306#\210\317\375\376\306#)\207" [case-fold-search r2b-in-buf r2b-log r2bv-author r2bv-editor r2bv-primary-author t r2b-trace "snarfing..." sit-for 0 princ "    " nil terpri r2b-get-field "%A" "%E" r2b-set-match 1 "\\b\\(\\w+\\)[ 	]*\\($\\|,\\)" "" r2bv-date "%D" r2bv-year "[12][0-9][0-9][0-9]" "[^0-9]\\([0-9][0-9]\\)$" "19" r2bv-decade "..\\(..\\)" r2bv-month "[0-9]+/\\|[a-zA-Z]+" string-match "\\(.*\\)/$" r2b-convert-month r2bv-title "%T" r2bv-title-first-word 4 r2bv-annote "%X" r2bv-tr "%R" r2bv-address "%C" r2bv-institution "%I" r2bv-keywords "%K" r2bv-booktitle "%B" r2bv-journal "%J" r2bv-volume "%V" r2bv-number "%N" r2bv-pages "%P" r2bv-where "%W" r2bv-ordering "%O" r2b-stop-regexp] 6 (#$ . 8728)])
#@160 Print bibtex FIELD = {DATA} if DATA not null; precede
with a comma and newline; if ABBREVS list is given, then
try to replace the {DATA} with an abbreviation.
(defalias 'r2b-put-field #[(field data &optional abbrevs) "\205\361\306\211\211\211
\203-\307
\"\211\203-\fA\204$\f@\202(\fA@\310\202\250\311\232\204?\312\313\"\204?\310\202\250\314\312\315	#\203f\314\211\224O\316\314\224\314\225O\317\314\225\306O\260\314\225\320\\\202A\314\312\321	#\203\204\314\211\224O\322\314\224\306OQ\314\225T\202h\314\203\250\312\323	#\203\250\314\211\224O\324\314\225\306OQ\314\225\325\\\202\213\326\327!\210\326!\210\326\330!\210\204\311\203\305\326\323!\210\202\311\326\331!\210\312\332\"\210\314\225\333V\203\331\326\334!\210\326!\210?\205\360\203\355\326\323!\202\360\326\335!,\207" [data index multi-line nodelim match abbrevs nil assoc t "" string-match "[^0-9]" 0 "[\\~^]" "\\verb+" "+" 7 "[$&%#_{}]" "\\" "\"" "{\"}" 2 princ ", \n  " " =	" "{" ".*" 59 "\n" "}" r2b-delimit-with-quote field] 7 (#$ . 10206)])
#@60 If any of VARS is null, set to empty string and log error.
(defalias 'r2b-require #[(vars) "?\206\"<\203\301@!\210\301A!\207J?\205\"\302\303\"\210\304L\207" [vars r2b-require r2b-warning "*Missing value for field %s" ""] 3 (#$ . 11280)])
#@36 Set NEW to OLD and set OLD to nil.
(defalias 'r2b-moveq '(macro . #[(new old) "\302\303	E\303	\304EE\207" [new old progn setq nil] 5 (#$ . 11535)]))
#@46 Return t if NAME is the name of proceedings.
(defalias 'r2b-isa-proceedings #[(name) "\205\"\304\305\"\206\"\306	\"\206\"\306\n\"\211\205!\304\305A@\")\207" [name r2b-proceedings-list r2b-booktitle-abbrevs match string-match "proceedings\\|conference" assoc] 4 (#$ . 11691)])
#@80 Return t if NAME is a university or similar organization,
but not a publisher.
(defalias 'r2b-isa-university #[(name) "\205\301\302\"\205\301\303\"?\207" [name string-match "university" "press"] 3 (#$ . 11983)])
#@44 Generate bibtex based on global variables.
(defalias 'r2b-barf-output #[nil "\306\307\310\311!\210\312\313!\210q\210\f
@QA\314B!\203MBC\307B\315!!\2037!D\307!\202>!\307!EF\307E\316\317!\210\320\202\300\314C!\203{\315!!\203e!D\307!\202l!\307!EF\307E\316\317!\210\320\202\300E\203\233\321\322E\"\203\233!\307!\316\323!\210\316\317!\210\324\202\300E\203\273\321\325E\"\203\273!\307!\316\323!\210\316\317!\210\326\202\300E\203\327\321\327E\"\203\327!F\307!\316\317!\210\330\202\300B\203\344\316\317!\210\331\202\300C\203!\307!EF\307E\316\332!\210\316\317!\210\333\202\300\203G\204\321\334H\"\203\335\202\300\314H!\203C\315!!\2031!D\307!\2028!\307!EF\307E\336\202\300G\204Z\203yE\203Z\321\337E\"\203y!\307!EF\307E\316\332!\210G\204u\316\317!\210\340\202\300E\203\257\316\341!\210\321\342E\"\203\240E\313\343\225OIE\344\224\307OJ\307E\202\247EJ\307E\316\317!\210\345\202\300!\203\277!D\307!\346\202\300\335K\316\347!\210L\203\317\350\351!\210\350\352!\210\350K!\210\350\353!\210\350A!\210\354\355\"\210\354\356HM#\210\354\357N\"\210\354\360OP#\210\354\361BQ#\210\354\362R\"\210\354\363I\"\210\354\364J\"\210\354\365CM#\210\354\366G\"\210\354\367\"\210\354\370!\"\210\354\371D\"\210\354\372\"\210\354\373S\"\210\354\374T\"\210\354\375F\"\210\354\376U\"\210\354\377V\"\210\354\201YW\"\210\354\201ZX\"\210\350\201[!+\207" [r2b-out-buf match case-fold-search standard-output r2bv-primary-author r2bv-decade t nil r2b-trace "...barfing" sit-for 0 r2b-isa-proceedings r2b-isa-university r2b-require r2bv-author inproceedings string-match "phd" r2bv-school phdthesis "master" mastersthesis "draft\\|unpublish" unpublished article r2bv-publisher incollection "\\`personal communication\\'" misc proceedings "\\bisbn\\b" book r2bv-institution "\\`\\(\\(.\\|\n\\)+\\)[ 	\n]+\\([^ 	\n]\\)+\\'" 1 3 techreport manual (r2bv-year) princ "\n% Warning -- Errors During Conversion Next Entry\n" "\n@" "( " r2b-put-field "author" "title" "year" "month" "journal" "volume" "type" "number" "booktitle" "editor" "publisher" "institution" "organization" "school" "pages" "address" "note" "keywords" "where" r2bv-title-first-word r2bv-kn r2bv-journal r2bv-booktitle r2bv-organization r2bv-tr r2bv-note r2bv-editor r2bv-title r2bv-type r2bv-number r2bv-entry-kind r2b-error-found r2b-booktitle-abbrevs r2bv-year r2bv-month r2b-month-abbrevs r2b-journal-abbrevs r2bv-volume r2bv-pages r2bv-address r2bv-keywords r2bv-where r2bv-ordering r2bv-annote "ordering" "annote" " )\n"] 4 (#$ . 12208)])
#@90 Transform current bib entry and append to buffer OUTPUT.
Do `\[r2b-help]' for more info.
(defalias 'r2b-convert-record #[(output) "\306\211\211\307!p
q\210db\210\307!\211q\210db\210q\210\310\311\306\312#\211\205^\313\314\306\315#\210\310\316!\210\317\306!\210`\310\314\306\315#\210`	\n}\210\320 \210\321 \210\322 \210q\210~\210\nb\210\312+\207" [not-done rec-begin rec-end output r2b-out-buf-name r2b-out-buf nil get-buffer-create re-search-forward "[^ 	\n]" t re-search-backward "^[ 	]*$" 2 "^%" beginning-of-line r2b-clear-variables r2b-snarf-input r2b-barf-output r2b-in-buf r2b-log-name r2b-log] 5 (#$ . 14861) (list (read-string "Output to buffer: " r2b-out-buf-name))])
#@87 Transform current buffer and append to buffer OUTPUT.
Do `\[r2b-help]' for more info.
(defalias 'r2b-convert-buffer #[(output) "r\304!\211q\210\305 \210)~\210eb\210\306\307!\210\310\311!\210\312\n!\204\306\313#\207" [r2b-log-name r2b-log output r2b-out-buf-name get-buffer-create erase-buffer message "Working, please be patient..." sit-for 0 r2b-convert-record "Done, results in %s, errors in %s"] 4 (#$ . 15564) (list (read-string "Output to buffer: " r2b-out-buf-name))])
(defvar r2b-help-message "                   Refer to Bibtex Bibliography Conversion\n\nA refer-style database is of the form:\n\n%A Joe Blow\n%T Great Thoughts I've Thought\n%D 1977\netc.\n\nThis utility converts these kind of databases to bibtex form, for\nusers of TeX and LaTex.  Instructions:\n1.  Visit the file containing the refer-style database.\n2.  The command\n	M-x r2b-convert-buffer\n    converts the entire buffer, appending its output by default in a\n    buffer named *Out*, and logging progress and errors in a buffer\n    named *Log*.  The original file is never modified.\n	Note that results are appended to *Out*, so if that buffer\n	buffer already exists and contains material you don't want to\n 	save, you should kill it first.\n3.  Switch to the buffer *Out* and save it as a named file.\n4.  To convert a single refer-style entry, simply position the cursor\n    at the entry and enter\n	M-x r2b-convert-record\n    Again output is appended to *Out* and errors are logged in *Log*.\n\nThis utility is very robust and pretty smart about determining the\ntype of the entry.  It includes facilities for expanding refer macros\nto text, or substituting bibtex macros.  Do M-x describe-variable on\n     r2b-journal-abbrevs\n     r2b-booktitle-abbrevs\n     r2b-proceedings-list\nfor information on these features.\n\nPlease send bug reports and suggestions to\n	Henry Kautz\n        kautz@research.att.com\n	allegra!kautz")
#@45 Print help describing the `refbib' package.
(defalias 'r2b-help #[nil "r\306\307!q\210p\310 \210	\311\211\312\211\312\313 \210\314\315!\210+\211\316!\210rq\210\317 )\320!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ help-mode internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output r2b-help-message] 4 (#$ . 17497) nil])
(byte-code "\300\301!\210\300\302!\207" [provide refbib refer-to-bibtex] 2)