From 197b5d20eeba2f6d8495952d65f67e50c21d53b4 Mon Sep 17 00:00:00 2001 From: gered Date: Sat, 29 Mar 2014 13:44:24 -0400 Subject: [PATCH] add file header validation --- src/clj_figlet/core.clj | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/clj_figlet/core.clj b/src/clj_figlet/core.clj index 753923b..7b504b5 100644 --- a/src/clj_figlet/core.clj +++ b/src/clj_figlet/core.clj @@ -9,8 +9,10 @@ :num-comments (Integer/parseInt (nth parts 5))})) (defn load-flf [file] - (let [lines (str/split (slurp file) #"\n") - header (parse-flf-header (first lines)) - char-lines (drop (inc (:num-comments header)) lines)] - )) - + (let [flf-file (slurp file)] + (if-not (= "flf2a" (subs flf-file 0 5)) + (throw (new Exception (str "Not a valid flf font file: " file)))) + (let [lines (str/split (slurp file) #"\n") + header (parse-flf-header (first lines)) + char-lines (drop (inc (:num-comments header)) lines)] + )))