equal
deleted
inserted
replaced
1 {-# LANGUAGE ScopedTypeVariables #-} |
1 {-# LANGUAGE ScopedTypeVariables #-} |
2 module Main where |
2 module Pas2C where |
3 |
3 |
4 import Text.PrettyPrint.HughesPJ |
4 import Text.PrettyPrint.HughesPJ |
5 import Data.Maybe |
5 import Data.Maybe |
6 import Data.Char |
6 import Data.Char |
7 import Text.Parsec.Prim hiding (State) |
7 import Text.Parsec.Prim hiding (State) |
1081 op2C "<>" = "!=" |
1081 op2C "<>" = "!=" |
1082 op2C "=" = "==" |
1082 op2C "=" = "==" |
1083 op2C "/" = "/(float)" |
1083 op2C "/" = "/(float)" |
1084 op2C a = a |
1084 op2C a = a |
1085 |
1085 |
1086 main = do |
|
1087 let programName = "hwengine" |
|
1088 let inputPath = "../hedgewars/" |
|
1089 let outputPath = "./" |
|
1090 let alternateInputPath = "./" |
|
1091 pas2C programName inputPath alternateInputPath outputPath |
|