;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\327%\210\310\330\312\313\331DD\332\316\333%\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 funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil means trace conversion." :type boolean r2b-journal-abbrevs #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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" (#$ . 3060))
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable r2b-delimit-with-quote funcall function #[0 "\300\207" [t] 1 ""] "If true, then use \" to delimit fields, otherwise use braces." :type boolean] 6)
#@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\\|for\\|in\\|to\\|on\\|at\\|by\\|with\\|that\\|its" (#$ . 3462))
(defvar r2b-capitalize-title-stop-regexp (concat "\\(" r2b-capitalize-title-stop-words "\\)\\(\\b\\|'\\)"))
#@94 Like `capitalize-region', but don't capitalize stop words, except the first.

(fn BEGIN END)
(defalias 'r2b-capitalize-title-region #[514 "\303\304 
\305\306\"\216\214\307	!\210}\210eb\210\310\311!\203\"\312v\210\202&\313\312!\210\314\315\303\316#\205Q\310\311!\203:\312v\210\202&\316\310\n!)\203J\317\312!\210\202&\313\312!\210\202&+\207" [case-fold-search text-mode-syntax-table r2b-capitalize-title-stop-regexp nil syntax-table make-closure #[0 "\301\300!\207" [V0 set-syntax-table] 2] set-syntax-table looking-at "[A-Z][a-z]*[A-Z]" 1 capitalize-word re-search-forward "\\<" t downcase-word] 8 (#$ . 3775) "r"])
#@79 Like `capitalize', but don't capitalize stop words, except the first.

(fn S)
(defalias 'r2b-capitalize-title #[257 "r\300\301!q\210\302 \210\211c\210\303ed\"\210\304 )\207" [get-buffer-create "$$$Scratch$$$" erase-buffer r2b-capitalize-title-region buffer-string] 4 (#$ . 4409)])
#@32 Unbind defvars, for debugging.
(defalias 'r2b-reset #[0 "\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 (#$ . 4696) nil])
(defvar r2b-stop-regexp (concat "\\`\\(\\(" r2b-additional-stop-words "\\|" r2b-capitalize-title-stop-words "\\)\\('\\w*\\)?\\W+\\)*\\([A-Z0-9]+\\)"))
#@19 

(fn &rest ARGS)
(defalias 'r2b-trace #[128 "\205\f\301\302\"\210\303\304!\207" [r2b-trace-on apply message sit-for 0] 4 (#$ . 5206)])
#@52 Return string matched in current buffer.

(fn EXP)
(defalias 'r2b-match #[257 "\211\224
\225{\207" [] 3 (#$ . 5351)])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\307%\207" [custom-declare-variable r2b-out-buf-name funcall function #[0 "\300\207" ["*Out*"] 1 #1=""] "Name of buffer for output from refer-to-bibtex." :type string r2b-log-name #[0 "\300\207" ["*Log*"] 1 #1#] "Name of buffer for logs errors from refer-to-bibtex."] 6)
(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 #[0 "\211\205\211@\301L\210\211A\262
\202
\207" [r2b-variables nil] 3 (#$ . 6354)])
#@19 

(fn &rest ARGS)
(defalias 'r2b-warning #[128 "\303\304\305\306\"	\"\210\304\307	\"\210\304\307\n\"\210\304\310\n\"\210\304\305\306\"\n\"\207" [r2b-error-found r2b-log r2b-out-buf t princ apply format "\n" "% "] 5 (#$ . 6519)])
#@513 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.

(fn VAR FIELD &optional UNIQUE REQUIRED CAPITALIZE)
(defalias 'r2b-get-field #[1282 "\300\211\301\302\303\"\210eb\210\211\203g\304\305\306Q\300\301#\203g\307\310!\262\310y\311U\211\262\203@\312\313!\204@\312\314!\210\315\307\310!Q\262\202!
\204J\262\202\f\203^\316\317#\210
\315Q\262\202\f
\320Q\262\202\f
\203t\203t\321!\262L\210
?\205\206\205\206\322!\207" [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] 12 (#$ . 6758)])
#@102 Set VAR to the Nth subpattern in REGEXP matched by STRING, or nil if none.

(fn VAR N REGEXP STRING)
(defalias 'r2b-set-match #[1028 "
;\205\300\"\205
\224\225OL\207" [string-match] 8 (#$ . 7882)])
(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 #[0 "\205U	\302\303\"\203,\211\203 \302
@@\"\204 \211A\262
\202\f\211\205S\211@@\211\202S\304!@\262
\211\247\203L\211\305V\203L\211\306W\203L\211	8@\211\202S\307\310!\210\311\211\262
\207" [r2bv-month r2b-month-abbrevs string-match "[^0-9]" read-from-string 0 13 r2b-warning "* Ridiculous month" nil] 4 (#$ . 8221)])
#@37 Parse buffer into global variables.
(defalias 'r2b-snarf-input #[0 "\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 (#$ . 8648)])
#@195 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.

(fn FIELD DATA &optional ABBREVS)
(defalias 'r2b-put-field #[770 "
\205\377\301\211\211\203,\302\"\211\262\203,A\204!@\262\202&A@\262\303\262\202\270\304\232\204@\305\306\"\204@\303\262\202\270\307\262
\305\310#\203m\307\211\224O\311\307\224\307\225O\312\307\225\301O\260\262\307\225\313\\\262
\202C\307\262
\305\314#\203\220\307\211\224O\315\307\224\301OQ\262\307\225T\262
\202p\307\262
\203\270\305\316#\203\270\307\211\224O\317\307\225\301OQ\262\307\225\320\\\262
\202\227\321\322!\210\321!\210\321\323!\210
\204\330\203\324\321\316!\210\202\330\321\324!\210\305\325\"\210\307\225\326V\203\351\321\327!\210\321!\210
?\205\375\203\372\321\316!\207\321\330!\266\203\207" [r2b-delimit-with-quote nil assoc t "" string-match "[^0-9]" 0 "[\\~^]" "\\verb+" "+" 7 "[$&%#_{}]" "\\" "\"" "{\"}" 2 princ ", \n  " " =	" "{" ".*" 59 "\n" "}"] 13 (#$ . 10124)])
#@71 If any of VARS is null, set to empty string and log error.

(fn VARS)
(defalias 'r2b-require #[257 "\211?\206\"\211<\203\300
@!\210\300
A!\207\211J?\205\"\301\302\"\210\211\303L\207" [r2b-require r2b-warning "*Missing value for field %s" ""] 4 (#$ . 11210)])
#@50 Set NEW to OLD and set OLD to nil.

(fn NEW OLD)
(defalias 'r2b-moveq '(macro . #[514 "\300\301E\301\302EE\207" [progn setq nil] 7 (#$ . 11480)]))
#@57 Return t if NAME is the name of proceedings.

(fn NAME)
(defalias 'r2b-isa-proceedings #[257 "\211\205&\302\303\"\204%\304
\"\204%\304
	\"\211\205 \302\303A@\"\262
\205&\305\207" [r2b-proceedings-list r2b-booktitle-abbrevs string-match "proceedings\\|conference" assoc t] 5 (#$ . 11636)])
#@91 Return t if NAME is a university or similar organization,
but not a publisher.

(fn NAME)
(defalias 'r2b-isa-university #[257 "\211\205\300\301\"\205\300\302\"?\207" [string-match "university" "press"] 4 (#$ . 11939)])
#@44 Generate bibtex based on global variables.
(defalias 'r2b-barf-output #[0 "\306\307\310!\210\311\312!\210q\210\f
Q@\313A!\203JAB\314A\315!!\2034!C\314!\202;!\314!DE\314D\316\317!\210\320\202\275
\313B!\203x\315!!\203b!C\314!\202i!\314!DE\314D\316\317!\210\320\202\275
D\203\230\321\322D\"\203\230!\314!\316\323!\210\316\317!\210\324\202\275
D\203\270\321\325D\"\203\270!\314!\316\323!\210\316\317!\210\326\202\275
D\203\324\321\327D\"\203\324!E\314!\316\317!\210\330\202\275
A\203\341\316\317!\210\331\202\275
B\203
!\314!DE\314D\316\332!\210\316\317!\210\333\202\275
\203
F\204
\321\334G\"\203
\335\202\275
\313G!\203@
\315!!\203.
!C\314!\2025
!\314!DE\314D\336\202\275
F\204W
\203v
D\203W
\321\337D\"\203v
!\314!DE\314D\316\332!\210F\204r
\316\317!\210\340\202\275
D\203\254
\316\341!\210\321\342D\"\203\235
D\312\343\225OHD\344\224\314OI\314D\202\244
DI\314D\316\317!\210\345\202\275
!\203\274
!C\314!\346\202\275
\335J\316\347!\210K\203\314
\350\351!\210\350\352!\210\350J!\210\350\353!\210\350@!\210\354\355\"\210\354\356GL#\210\354\357M\"\210\354\360NO#\210\354\361AP#\210\354\362Q\"\210\354\363H\"\210\354\364I\"\210\354\365BL#\210\354\366F\"\210\354\367\"\210\354\370!\"\210\354\371C\"\210\354\372\"\210\354\373R\"\210\354\374S\"\210\354\375E\"\210\354\376T\"\210\354\377U\"\210\354\201XV\"\210\354\201YW\"\210\350\201Z!*\207" [r2b-out-buf case-fold-search standard-output r2bv-primary-author r2bv-decade r2bv-title-first-word t r2b-trace "...barfing" sit-for 0 r2b-isa-proceedings nil 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-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 (#$ . 12170)])
#@103 Transform current bib entry and append to buffer OUTPUT.
Do `\[r2b-help]' for more info.

(fn OUTPUT)
(defalias 'r2b-convert-record #[257 "\305\211\211\306!p	q\210db\210\306!\211q\210db\210\nq\210\307\310\305\311#\262
\211\205Y\312\313\305\314#\210\307\315!\210\316\305!\210`\262\307\313\305\314#\210`\262
}\210\317 \210\320 \210\321 \210\nq\210~\210b\210\311\207" [r2b-out-buf-name r2b-out-buf r2b-in-buf r2b-log-name r2b-log 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] 9 (#$ . 14810) (byte-code "\301\302\"C\207" [r2b-out-buf-name read-string "Output to buffer: "] 3)])
#@100 Transform current buffer and append to buffer OUTPUT.
Do `\[r2b-help]' for more info.

(fn OUTPUT)
(defalias 'r2b-convert-buffer #[257 "r\303!\211q\210\304 \210)~\210eb\210\305\306!\210\307\310!\210\311
!\204\305\312\n#\207" [r2b-log-name r2b-log 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"] 5 (#$ . 15517) (byte-code "\301\302\"C\207" [r2b-out-buf-name read-string "Output to buffer: "] 3)])
(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 #[0 "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 buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only 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 standard-output r2b-help-message] 6 (#$ . 17477) nil])
(byte-code "\300\301!\210\300\302!\207" [provide refbib refer-to-bibtex] 2)