#! /bin/sh
exec rep "$0" "$@"
!#;; Source file: rep-xgettext.jl
(validate-byte-code 9 0)

(defvar *current-file* nil)
(defvar *found-strings* nil)
(defvar *write-c-file* nil)
(defvar *included-defns* t)
(defvar *only-commands* nil)
(defun parse #[(filename) "8
DF3 E 8	H E 
u $|  I =I u9D8	9D68	EH ,EGHEI 
v" [read *current-file* open-file file close-file end-of-stream form scan] 5])
(defmacro scan-list #[(x) "8*8++v" [when consp mapc scan] 5])
(defmacro includep #[(type) "8+v" [or (eq *included-defns* t) list* memq (*included-defns*)] 6])
(defmacro include-functionp #[(form) "8++v" [or (not *only-commands*) assq (quote interactive)] 5])
(defun scan #[(form) "8n 8La 8q 8	v8L )8L )8	FH8La8L	 P8MD6
 J8	H88M Bv8La 8 sFLDF4n p8Mn p8MEHM ]8n8v8La 8 FLDF4n 8Mn 8MEHM 8n8v8L
a 8Mw  8La 8M FLDF5n 8EHM Iv8La8M FLDF5Mn 8MEHM Iv8La)8$FLDF6Mn!8MEHMIv8a88Lw  8LqJaM8LqY8q8DF3qe8	H9np9v8LJa8L8DF3q8	H9n9v8LJa8L8DF3q8	H9n9v8n8n8v" [scan *included-defns* output doc x f _ macroexpand quote (setq setq-default) tem let let* function cond case condition-case handler lambda (defun defmacro defsubst) *only-commands* interactive (defvar defconst defcustom) (defgroup)] 4])
(defun output #[(string) "8DF2 8M] 88MKOv9*KF v" [*found-strings* *current-file* cell] 4])
(defun output-all #[nil " FLDF6L8MD669 ;FLD6	
 ) +8 5
 7
EHM DI866 s9 99
V89Tf 98 [H9EEEHM Iv" [format standard-output *write-c-file* substring match-end *found-strings* x files string f "%s %s %s
" "  /*" "#:" "*/" "" newlines print-escape "%S" out point "  _(%s);

" concat match-start "\\n\"
\"" string-match "\\\\n" "msgid %s
msgstr \"\"

"] 9])
(jade-byte-code "	 	 JF#v" [get-command-line-option "-c" "--c" *write-c-file*] 2)
(jade-byte-code "	 	 IF#v" [get-command-line-option "-p" "--pot" *write-c-file*] 2)
(jade-byte-code "ID1 8	K J
F v" [*included-defns* tem intern get-command-line-option "--include"] 3)
(jade-byte-code "	 	JF\"v" [get-command-line-option "--only-commands" *only-commands*] 2)
(jade-byte-code " 	
vI
v" [standard-output *write-c-file* write "/* SOME DESCRIPTIVE TITLE */
/* This file is intended to be parsed by xgettext.
 * It is not intended to be compiled.
 */

#if 0
void some_function_name() {

" format "# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR Free Software Foundation, Inc.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
#, fuzzy
msgid \"\"
msgstr \"\"
\"Project-Id-Version: PACKAGE VERSION\\n\"
\"POT-Creation-Date: %s\\n\"
\"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\\n\"
\"Last-Translator: FULL NAME <EMAIL@ADDRESS>\\n\"
\"Language-Team: LANGUAGE <LL@li.org>\\n\"
\"MIME-Version: 1.0\\n\"
\"Content-Type: text/plain; charset=CHARSET\\n\"
\"Content-Transfer-Encoding: ENCODING\\n\"

" current-time-string "%Y-%m-%d %H:%M%z"] 6)
(jade-byte-code " LD1M 8	EH v" [command-line-args file parse] 2)
(output-all)
(jade-byte-code " 
v" [*write-c-file* write standard-output "}
#endif
"] 3)
