Javav (empty) → 0.0.1

raw patch · 5 files changed

+166/−0 lines, 5 filesdep +basesetup-changed

Dependencies added: base

Files

• Javav.cabal +26/−0
• LICENSE +27/−0
• Language/Java/Javav.hs +87/−0
• Main.hs +23/−0
• Setup.hs +3/−0

@@ -0,0 +1,26 @@+Name:               Javav+Version:            0.0.1+Author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>+Maintainer:         Tony Morris+Copyright:          Tony Morris+License:            BSD3+License-File:       LICENSE+Synopsis:           A utility to print the target version of Java class files.+Category:           Language+Description:        A utility to print the target version of Java class files.+Cabal-version:      >= 1.2+Build-Type:         Simple++Flag small_base+  Description:      Choose the new, split-up base package.++Executable javav+  Main-Is:          Main.hs+  Build-Depends:+                    base < 5 && >= 3++  GHC-Options:+                    -Wall++  Other-Modules:+                    Language.Java.Javav

@@ -0,0 +1,27 @@+Copyright 2009 Tony Morris++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions+are met:+1. Redistributions of source code must retain the above copyright+   notice, this list of conditions and the following disclaimer.+2. Redistributions in binary form must reproduce the above copyright+   notice, this list of conditions and the following disclaimer in the+   documentation and/or other materials provided with the distribution.+3. Neither the name of the author nor the names of his contributors+   may be used to endorse or promote products derived from this software+   without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE+ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS+OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)+HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT+LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY+OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF+SUCH DAMAGE.

@@ -0,0 +1,87 @@+module Language.Java.Javav where+++import System.IO+import System.IO.Error+import Data.Maybe+import Control.Arrow++type Version =+  String++versions ::+  [((Char, Char), Version)]+versions =+  [ (('\NUL', '2'), "1.6 (50.0 0x32)")+  , (('\NUL', '1'), "1.5 (49.0 0x31)")+  , (('\NUL', '0'), "1.4 (48.0 0x30)")+  , (('\NUL', '/'), "1.3 (47.0 0x29)")+  , (('\NUL', '.'), "1.2 (46.0 0x28)")+  , (('\NUL', '-'), "1.1 (45.0 0x28)")+  ]++type Error =+  String++alreadyInUseError ::+  Error+alreadyInUseError =+  "-u-"++doesNotExistError ::+  Error+doesNotExistError =+  "-e-"++permissionError ::+  Error+permissionError =+  "-p-"++unknownError ::+  Error+unknownError =+  "-?-"++handleError ::+  IOError+  -> Error+handleError e =+  let err = first ($e) `fmap`+              [ (isAlreadyInUseError, alreadyInUseError)+              , (isDoesNotExistError, doesNotExistError)+              , (isPermissionError  , permissionError)+              ]+  in unknownError `fromMaybe` lookup True err++versionOutput ::+  Char+  -> Char+  -> Version+versionOutput c1 c2 =+  "-?-" `fromMaybe` lookup (c1, c2) versions++version ::+  FilePath+  -> IO Version+version n =+  (withBinaryFile n ReadMode (\h ->+    do hSeek h AbsoluteSeek 6+       c1 <- hGetChar h+       hSeek h AbsoluteSeek 7+       c2 <- hGetChar h+       return (versionOutput c1 c2))) `catch`+  (return . handleError)++version' ::+  [FilePath]+  -> IO [Version]+version' =+  mapM version++printv ::+  [FilePath]+  -> IO ()+printv n =+  do s <- version' n+     mapM_ (\(t, o) -> putStrLn (t ++ ' ' : o)) (zip s n)

@@ -0,0 +1,23 @@+module Main where++import Language.Java.Javav+import System.Environment++main ::+  IO ()+main =+  do a <- getArgs+     if null a+        then mapM_ putStrLn $+                     [ "Prints the Java version of one or more class files"+                     , "Usage: javav <filename(s)>"+                     ] +++                     ("  " ++) `fmap`+                       [ "Error conditions"+                       , alreadyInUseError ++ " File is in use"+                       , doesNotExistError ++ " File does not exist"+                       , permissionError ++ " File does not have read permission"+                       , unknownError ++ " An unknown error occurred"+                       ]+        else printv a+

@@ -0,0 +1,3 @@+import Distribution.Simple+main = defaultMain+