Search | Blog | Contact

Using Clojure for Scripting 56

Posted by Uncle Bob Sat, 08 Aug 2009 19:14:07 GMT

Clojure makes a nice language for writing scripts that explore things on the filesystem. For example, here is a cute little program that explores the FitNesse source tree counting the lines of production java code and comparing it to the lines of unit test code.


(use 'clojure.contrib.duck-streams)

(def file-counts
  (map
    #(list (.toString %) (count (read-lines %)))
    (remove #(.isDirectory %)
      (file-seq (file-str "~/projects/FitNesseGit/src/fitnesse")))))

(defn count-lines-that-end-with [file-counts suffix]
  (reduce +
    (map second
      (filter #(.endsWith (first %) suffix) file-counts))))

(def java-count (count-lines-that-end-with file-counts ".java"))
(def test-count (count-lines-that-end-with file-counts "Test.java"))

(printf "Java lines: %d\n" java-count)
(printf "Test lines: %d\n" test-count)
(printf "Test pct: %.1f\n" (double (* 100 (/ test-count java-count))))
Comments

Leave a response

  1. Avatar
    Luis Sergio Oliveira 5 days later:

    I started a while ago exploring this in Common Lisp (with Franz’s Allegro CL implementation). My objective is to automate administrative and information extraction tasks. So far it is powerful enough, having interfaces with the shell, Operating System as with M$ Office (COM), being the main problem the lack of high level structure of the data, mainly if it is document oriented.

  2. Avatar
    han 8 months later:

    http://www.ipadvideoconverters.biz iPad Video Converter iPad Video Converter is a great software for iPad lovers to convert videos to iPad with super fast speed and high quality. Its easy-to-use interface makes iPad to videos conversion routine very simple. And also it can keep the original quality of video files.

  3. Avatar
    taylor lautner 11 months later:

    interesting “cute” little program. I’m a beginner scripter, using a couple languages, Java, Python, Mel Script, and Apple Script, but I haven’t tried out Clojure.

  4. Avatar
    supplynflshop about 1 year later:

    good

  5. Avatar
    Hosting about 1 year later:

    Wide range of web hosting services are accessible, such as cheap vps , email hosting, Unix hosting, forex vps , Windows hosting, Linux web hosting windows vps etc. We hope you will find a cheap hosting company.

  6. Avatar
    Designer Bags about 1 year later:

    Awesome article!Thanks for ur nice sharing!!!!

  7. Avatar
    Dog bark collar about 1 year later:

    Clojure is really a good language in order to write scripts exploring things on the filesystem. Thanks for your example.

  8. Avatar
    Pandora about 1 year later:

    What does this picture suggest to you or what can you draw from it, if anything?

  9. Avatar
    Cazare in Bucuresti about 1 year later:

    Thanks for sharing. Clojure is really a good language for scripts.

  10. Avatar
    Harrishcolin about 1 year later:

    Thank you for this nice post

    my blogs : calories in food | how to put on a condom

  11. Avatar
    Coach Factory Outlet about 1 year later:

    yes, but not very much. So I’m not going to be spending much

  12. Avatar
    ???? ???? about 1 year later:

    Thanks for uniqueness, much appreciate this!

  13. Avatar
    para kazanma yollar? - i? imkan? about 1 year later:

    Good post,I think so! Dear Admin, I thank you for this informative article.

    Risk almadan Sermayesiz Evinizden yönetebilece?iniz Kendi i?inizin sahibi olmak istermisiniz ?

  14. Avatar
    custom writing services about 1 year later:

    Merci pour votre information, j’espere que les prochaines articles seront tellement informatiques que celui-ci!

  15. Avatar
    Silicone Molding about 1 year later:

    Mold making is the core business of Intertech (Taiwan). With world level technology, Intertech enjoys a very good reputation for making Injection Mold and Plastic Moldsfor their worldwide customers.

  16. Avatar
    gearbox about 1 year later:

    We are engaged in gearbox,radial piston motor,axial piston motor,piston motor,slewing transmission,danfoss motor,hydraulic orbital motor,hydraulic steering,hydraulic steering unit,hydraulic winch. All products are strictly tested before delivery by testing bench and comprehensive testing facilities to ensure the quality.

  17. Avatar
    Criminal Check about 1 year later:

    Clojure is really a good language for scripts. Great stuff, worth reading. Thanks for this awesome information.

  18. Avatar
    Solid State Relay about 1 year later:

    Classic exposition, I have also mentioned it in my blog article. But it is a pity that almost no friend discussed it with me. I am very happy to see your article.

  19. Avatar
    Casinoenligne-logiciel about 1 year later:

    I agree with the last comment this is quite a helpful post for once ;)

    Liked the article as well ! ;) Keep it up.

  20. Avatar
    cheap thomas sabo jewellery about 1 year later:

    Forever advice taken to heart. I truly take account the time you’ve taken to share your thoughts. It is a outstanding assistance, thanks so much!

  21. Avatar
    Criminal Records about 1 year later:

    So far it is powerful enough, having interfaces with the shell, Operating System as with M$ Office (COM), being the main problem the lack of high level structure of the data, mainly if it is document oriented.

  22. Avatar
    brazilian fightwear about 1 year later:

    This is such a excellent article to read. Continue the nice work. Expecting to see a lot more excellent articles from you shortly.

  23. Avatar
    Pittsburgh events about 1 year later:

    Forever advice taken to heart. I truly take account the time you’ve taken to share your thoughts. It is a outstanding assistance, thanks so much!

  24. Avatar
    cheap true religion los angeles about 1 year later:

    hni

    Method of washing and maintenance of True Religion Jeans for cheapjeans 1,
  25. Avatar
    viagra sans ordonnance about 1 year later:

    The excellent tutorial and it is definitely going to help me some time. Really good ideas.

  26. Avatar
    best wart remover about 1 year later:

    Thanks for informative and helpful post, obviously in your blog everything is good.If you post informative comments on blogs there is always the chance that actual humans will click through.

  27. Avatar
    Disount Christian Louboutin about 1 year later:

    This is a superb posting, I identified your weblog web page executing study google for any related topic and came to this.I never thought I would agree with this opinion, but I’m starting to view things from a different view. I have to research more on this as it seems very interesting. One thing I don’t understand though is how everything is related together. I couldnt uncover to substantially supplemental info and details on this write-up, so it was pleasant to find this 1. I’ll in all probability finish up currently being again once more to appear at another content articles that you’ve got yet another time. yhm20110408 Disount Christian Louboutin

  28. Avatar
    Nike SB Shoes about 1 year later:

    Hi webmaster, commenters and everybody else !!! The blog was absolutely fantastic! Lots of great information and inspiration, both of which we all need!b Keep ‘em coming… you all do such a great job at such Concepts… yhm20110408 http://www.fashiontrendmall.com/nike-sb.html">Nike SB Shoes

  29. Avatar
    cheap tiffany co jewelry about 1 year later:

    He who makes no mistakes makes nothing. If a man deceives me once, shame on him, if he deceives me twice,shame on me.

    If you make yourself an ass, don’t complain if people rideyou. Courtesy on one side only lasts not long. Knowledge

    makes humble, ignorance makes proud. Life is half spent before we know what it is. Each bird love to hear himself

    sing. cheap tiffany co jewelry

  30. Avatar
    krzyzowki about 1 year later:

    Great read You might want to follow up to this topic

  31. Avatar
    darmowe pozycjonowanie about 1 year later:

    Great blog post, I have been waiting for that

  32. Avatar
    portraits from photos about 1 year later:

    Hi Uncle Bob!

    Using Clojure for Scripting is really a great share. I have been searching for this for a while and found it here. Great Job, keep it up!

    Best, Tina Smith

  33. Avatar
    coach bags about 1 year later:

    good post,i like this

  34. Avatar
    linux about 1 year later:

    I think this is one of the most important information for me. And i’m glad reading your article. But wanna remark on few general things, The website style is great, the articles is really excellent. Good job, cheers

  35. Avatar
    32gb micro sd card about 1 year later:

    Thanks great piece of code exactly what i needed.

  36. Avatar
    okey oyunu oyna about 1 year later:

    nice code.

    internette görüntülü olarak okey oyunu oyna, gerçek kisilerle tanis, turnuva heyecanini yasa.

  37. Avatar
    replica designer handbags sale about 1 year later:

    Many girls like roses

  38. Avatar
    shoes christian louboutin about 1 year later:

    O_O oh mama, looks great :) thank u so much for all your hard work ^.~

  39. Avatar
    Movies 2011 about 1 year later:

    And i’m glad reading your article. But wanna remark on few general things, The website style is great, the articles is really excellent. Good job, cheers

  40. Avatar
    Ed Hardy Outlet about 1 year later:

    Men at some point understands that they will be the master-gardener involving the heart, your representative involving the lifestyle. Men whom dares for you to squander an hour of your energy haven’t found out the significance involving lifestyle. Most lifestyle is surely an research. Greater findings anyone create better. The many art work involving existing is based on a fine interacting involving enabling get along with holding on. Just about any idiot could deal with an emergency – it can be day by day existing that will has on anyone out and about. Feel that lifestyle may be valued at existing plus your notion might help develop simple fact.

  41. Avatar
    christian louboutin shoes on sale about 1 year later:

    Have the christian louboutin patent leather pumps is a happy thing.

  42. Avatar
    www.sunfad.com about 1 year later:

    www.sunfad.com

  43. Avatar
    pandora bracelet charms over 2 years later:

    These articles written too great,they rich contents ma le scarpe non ti donano. meglio dei sandali con stringe più sottili e caviglia libera Perfect! and data accurately.they are help to me.I expect to see your new share.

  44. Avatar
    beats by dre store over 2 years later:

    stringe più sottili e caviglia libera Perfect! and data accurately.they are help to me.I expect to see your new share.high quality headphones new design headphones

  45. Avatar
    bagsupplyer over 2 years later:

    It is nice of you to post this.I will pay more attention on it.New fashion women Hermes purses AAA with high quality for wholesale on line from China free shipping

  46. Avatar
    <a href="http://www.wingsshoess.com/"><strong>Adidas Wing Shoes</strong></a> over 2 years later:

    good

  47. Avatar
    replica Oakley Frogskins Sunglasses over 2 years later:

    It’s wonderful, thank you. replica oakley monster dog sunglassescheap Oakley Necessity SunglassesOakley Necessity Sunglasses wholesalereplica Oakley Necessity Sunglassesoakley oil rig sunglasses wholesalecheap Oakley Pit Boss SunglassesOakley Pit Boss Sunglasses wholesaleReplica Oakley HolbrookReplica Oakley JawboneReplica Oakley JulietReplica Oakley Scalpel SunglassesReplica Oakley Straight Jacket SunglassesReplica Oakley Ten SunglassesReplica Oakley Zero SunglassesFake Oakley Monster Dog sunglassesFake Oakley Pit Boss sunglassesFake Oakley Restless sunglassesFake Oakley Scalpel sunglassesOakley Frogskins SunglassesOakley Fuel Cell SunglassesOakley Gascan SunglassesOakley Hijinx Sunglasses

  48. Avatar
    replica Oakley Frogskins Sunglasses over 2 years later:

    It’s wonderful, thank you. replica oakley monster dog sunglassescheap Oakley Necessity SunglassesOakley Necessity Sunglasses wholesalereplica Oakley Necessity Sunglassesoakley oil rig sunglasses wholesalecheap Oakley Pit Boss SunglassesOakley Pit Boss Sunglasses wholesaleReplica Oakley HolbrookReplica Oakley JawboneReplica Oakley JulietReplica Oakley Scalpel SunglassesReplica Oakley Straight Jacket SunglassesReplica Oakley Ten SunglassesReplica Oakley Zero SunglassesFake Oakley Monster Dog sunglassesFake Oakley Pit Boss sunglassesFake Oakley Restless sunglassesFake Oakley Scalpel sunglassesOakley Frogskins SunglassesOakley Fuel Cell SunglassesOakley Gascan SunglassesOakley Hijinx Sunglasses

  49. Avatar
    Fake Oakley Radar over 2 years later:

    It really a good article.Oakley Sport SunglassesOakley Jawbone SunglassesOakley Radar SunglassesOakley M Frame SunglassesFake Oakleys AAA Specials sunglassesFake Oakley Flak Jacket sunglassesFake Oakley Juliet sunglassesFake Oakley Half Jacket sunglassesReplica Oakleys Promotion SaleReplica Oakley Jawbone SunglassesReplica Oakley Oil Rig SunglassesReplica Oakley Polarized SunglassesFake Oakley BatwolfFake Oakley DangerousFake Oakley Dartcheap Oakley Antix SunglassesOakley Antix Sunglasses wholesalereplica Oakley Antix Sunglassescheap oakley batwolf sunglassesoakley batwolf sunglasses wholesalereplica oakley batwolf sunglasses

  50. Avatar
    Fake Oakley Gascan sunglasses over 2 years later:

    I love this article, it’s very well.Oakley Encounter SunglassesOakley Forsake SunglassesOakley Half Wire SunglassesOakley Half X Sunglasses

  51. Avatar
    scrabble cheat over 2 years later:

    It is the site what I always prefer to share with my friends. Awesome work has been done here to make the post effective.

  52. Avatar
    ysbearing/yisong@1stbearing.com over 2 years later:

    Slewing bearing called slewing ring bearings, is a comprehensive load to bear a large bearing, can bear large axial, radial load and overturning moment. http://www.1stbearing.com

  53. Avatar
    Tips For Bowling over 2 years later:

    Then, after I came home from Europe, I found I was under condemnation; and I was condemned at that time because I did not endorse the financial policy of the General Conference.

  54. Avatar
    christian louboutin over 2 years later:

    The professional design make you foot more comfortable. Even more tantalizing,this pattern make your legs look as long as you can,it will make you looked more attractive.Moveover,it has reasonable price.If you are a popular woman,do not miss it.

    Technical details of Christian Louboutin Velours Scrunch Suede Boots Coffee:

    Color: Coffee
Material: Suede
4(100mm) heel
Signature red sole x

    Fashion, delicate, luxurious Christian louboutins shoes on sale, one of its series is Christian Louboutin Tall Boots, is urbanism collocation. This Christian louboutins shoes design makes people new and refreshing. Red soles shoes is personality, your charm will be wonderful performance.

  55. Avatar
    north face promotion Code over 2 years later:

    the article is impressive,thank you for your share, i like it so much

  56. Avatar
    Discount Louboutin Shoes over 2 years later:

    Every women always has Christian Louboutins Wedding Shoes turn of fame but it also has its own goodbyes.

Comments