mzero / ghc-clang-wrapper

Created October 31, 2013


    
    View ghc-clang-wrapper 
  
  
      ghc-clang-wrapper
    
    
        Raw
      
    
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
            11
            12
            13
            14
            15
            16
            17
            18
            19
            20
            21
            22
            23
            24
            25
            26
            27
            28
            29
            30
            31
            32
            33
            34
            35
            36
            37
            38
            39
            40
            41
            42
            43
            44
            45
            46
            47
            48
            49
            50
            51
            52
            53
            54
            55
            56
            57
            58
            59
            60
            61
            62
            63
            64
            65
            66
            67
            68
            69
            70
            71
            72
            73
            74
            75
            76
            77
            78
            79
            80
            81
            82
            83
            84
            85
            86
            87
            88
            89
            90
            91
            92
            93
            94
            95
            96
            97
            98
            99
            100
            101
            102
            103
            104
            105
            106
            107
            108
            109
            110
            111
            112
          
          
            #!/bin/sh
 
inPreprocessorMode () {
    hasE=0
    hasU=0
    hasT=0
    for arg in "$@"
    do
        if [ 'x-E' = "x$arg" ];             then hasE=1; fi
        if [ 'x-undef' = "x$arg" ];         then hasU=1; fi
        if [ 'x-traditional' = "x$arg" ];   then hasT=1; fi
    done
    [ "$hasE$hasU$hasT" = '111' ]
}
 
gccIsClang () {
    gcc --version 2>/dev/null | grep -q clang
}
 
extraClangArgs="-Wno-invalid-pp-token -Wno-unicode -Wno-trigraphs"
 
adjustPreprocessorLanguage () {
    newArgs=''
    while [ $# -gt 0 ]
    do
        newArgs="$newArgs $1"
        if [ "$1" = '-x' ]
        then
            shift
            if [ $# -gt 0 ]
            then
                if [ "$1" = 'c' ]
                then
                    newArgs="$newArgs assembler-with-cpp"
                else
                    newArgs="$newArgs $1"
                fi
            fi
        fi
        shift
    done
    echo $newArgs
}
 
installThisScript () {
    if [ \! -x /usr/bin/ghc-clang-wrapper ]
    then
        echo "Copy this execute script to /usr/bin/ghc-clang-wrapper, then re-run it."
        echo "You can copy it with these commands:"
        echo
        echo sudo cp $0 /usr/bin/ghc-clang-wrapper
        echo sudo chmod 755 /usr/bin/ghc-clang-wrapper
        echo sudo ghc-clang-wrapper
        exit 1
    fi
 
    settings=`ls -1 /Library/Frameworks/GHC.framework/Versions/7*/usr/lib/ghc-7*/settings 2>/dev/null`
 
    if [ "$settings" = '' ]
    then
        echo "You don't seem to have Haskell Platform installed."
        echo "Visit http://www.haskell.org/platform/ to get and install it."
        echo "Then run this script again."
        echo
        echo "If you have GHC installed in a non-standard place, find the file"
        echo "named 'settings', that is alongside the compiler, and edit the"
        echo "c compiler line to read:"
        echo '     ("C compiler command", "/usr/bin/ghc-clang-wrapper"),'
        exit 1
    fi
 
    anyNeedPatching=0
    for sfile in $settings
    do
        if grep -q ghc-clang-wrapper $sfile
        then
            echo ALREADY PATCHED: $sfile
        else
            if [ `id -u` -eq 0 ]
            then
                sed -e '/C compiler command/s:"[^ ]*gcc":"/usr/bin/ghc-clang-wrapper":' -i '.bak' $sfile
                echo PATCHED: $sfile
            else
                echo WOULD PATCH: $sfile
                anyNeedPatching=1
            fi
        fi
    done
 
    if [ $anyNeedPatching -eq 1 ]
    then
        echo "Please run this script sudo to actually patch GHC:"
        echo sudo $0
    fi
}
 
if [ $# -eq 0 ]
then
    installThisScript
else
    if gccIsClang
    then
        if inPreprocessorMode "$@"
        then
            exec gcc $extraClangArgs `adjustPreprocessorLanguage "$@"`
        else
            exec gcc $extraClangArgs "$@"
        fi
    else
        exec gcc "$@"
    fi
fi