В Clojure: Ошибка выполнения вызова Java с помощью let внутри функции, но не в REPL - PullRequest
Новая
       30

В Clojure: Ошибка выполнения вызова Java с помощью let внутри функции, но не в REPL

4 голосов
/ 12 июля 2010

У меня есть следующий код: 

(defn post
  [title content timestamp]
    (let [[innholdet tajm]
       [(str "<html>
              <head>
              <title>" title " :: " blog_title "</title></head>
              <body><h1>" title "</h1>
              <br/>" content "<br/><i>posted " (Date. timestamp) "</i>
              <br/><a href=\"" (str blog_url) "\">[main]</a> | 
              <a href=\"" (str blog_url) "/" timestamp ".html\">[permalink]</a>
              </body></html>") (str timestamp".html")]]
                 (spit tajm innholdet)
   )
 )

У меня есть другая функция, которая передает заголовок, содержимое и метку времени UNIX функции "post" выше. blog_title и blog_url - это переменная, определенная в верхней части кода. Я отсортировал HTML для эстетики, в «реальном коде» это не так. Я также делаю 

(import 'java.util.Date)
(use 'clojure.string)

Если я пытаюсь выполнить код, я получаю сообщение об ошибке 

java.lang.IllegalArgumentException

Если я удаляю (Date. Timestamp), код выполняется отлично, но мне нужна эта функция (Date.).

Теперь, если в REPL я делаю 

(import 'java.util.Date)

Затем определите переменную с отметкой времени 

(def timestamp 1278854531000) ;; Just for pushing a var into (Date.) than just the number

А затем я просто копирую (let) в REPL и настраиваю переменные в исходном коде, чтобы они просто представляли разные имена функций вместо значений (поскольку это REPL и переменные, функции и значения, которые находятся в исходный код не существует), чтобы быть таким: 

(let [[innholdet tajm] 
  [(str "<html>
         <head>
         <title>" (str "title") " :: " (str "blog_title") "</title>
         </head>
         <body><h1>" (str "title") "</h1><br/>" (str "content") "<br/>
         <i>posted " (Date. timestamp) "</i><br/>
         <a href=\"" (str "blog_url") "\">[main]</a> | 
         <a href=\"" (str "blog_url") "/" (str "1278854531000") ".html\">[permalink]</a></body></html>") 
         (str "1278854531000.html")]] 
           (println innholdet tajm))

Теперь REPL дает мне: 

<html>
<head>
<title>title :: blog_title</title>
</head>
<body>
<h1>title</h1><br/>content<br/>
<i>posted Sun Jul 11 15:22:11 CEST 2010</i><br/>
<a href="blog_url">[main]</a> | 
<a href="blog_url/1278854531000.html">[permalink]</a>
</body></html> 
1278854531000.html
nil

Опять же, все было смещено, чтобы было удобнее читать, в REPL все выходит в одну большую строку.

Проблема в том, что я могу выполнить код в REPL и получить значение (Date. Timestamp), и все работает, но когда я выполняю его внутри функции в моей программе, я получаю вышеупомянутую ошибку. Буду признателен, если кто-нибудь скажет мне, что мне здесь не хватает.

1 Ответ

2 голосов
/ 13 июля 2010

Требуется небольшое изменение: 

(defn post
  [title content timestamp]
    (let [[innholdet tajm]
       [(str "<html>
              <head>
              <title>" title " :: " blog_title "</title></head>
              <body><h1>" title "</h1>
              <br/>" content "<br/><i>posted " (Date. **(Long/parseLong timestamp)**) "</i>
              <br/><a href=\"" (str blog_url) "\">[main]</a> | 
              <a href=\"" (str blog_url) "/" timestamp ".html\">[permalink]</a>
              </body></html>") (str timestamp".html")]]
                 (spit tajm innholdet)
   )
 )

Тем не менее, я все равно рекомендую вам найти способ передать метку времени как длинную, а не как строку.

...