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

(defvar *current-file* nil)
(defvar *found-strings* nil)
(defun parse #[(filename) "D
F1 G 	H G 
u &| \"I ?I uD3D	34	EH .EEGHEI 
E" [filename file read *current-file* form open-file close-file end-of-stream scan] 5])
(defmacro scan-list #[(x) "*++" [x when consp mapc scan] 5])
(defun scan #[(form) "n La q 	L +L +		F HL
aL TDM4 K	H$M CELa  wFLDF2n tMn tMEHM anL
a  FLDF2n Mn MEHM nLa M	La M FLDF6n EHM ILaFLDF6MnMEHM Ia$L	LGDF3q8	HnCELjDF3q[	HnfELDF3q~	HnEnn" [form scan x doc tem output f handler _ macroexpand quote (setq setq-default) let let* function cond condition-case lambda (defun defmacro defsubst) (defvar defconst defcustom) (defgroup)] 4])
(defun output #[(string) "DF0 M] !MKO !*KF!E" [cell *found-strings* *current-file* string] 4])
(defun output-all #[nil "
 sFLD2DLM45 %FLD6EHM D6
I01 U	
 	V!Tf f 9HEEEHM I" [out point x format files string f standard-output substring match-end *found-strings* "#: %s
" newlines print-escape "%S" concat match-start "\\n\"
\"" string-match "\\\\n" "msgid %s
msgstr \"\"

"] 7])
(format standard-output "# 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 nil "%Y-%m-%d %H:%M%z"))
(jade-byte-code " DL1M 	EH " [command-line-args file parse] 2)
(output-all)