Arc Forumnew | comments | leaders | submitlogin
4 points by conanite 5571 days ago | link | parent

app.arc generates sha1 hashes using a system call to openssl:

  (def shash (str)
    (let fname (+ "/tmp/shash" (rand-string 10))
      (w/outfile f fname (disp str f))
      (let res (tostring (system (+ "openssl dgst -sha1 <" fname)))
        (do1 (cut res 0 (- (len res) 1))
             (rmfile fname)))))