<commit_before>{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE DataKinds         #-}
{-# LANGUAGE DeriveGeneric     #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeOperators     #-}


module Main where

import Data.Functor ((<$>))
import qualified Data.List as L
import Network.IPTables.Ruleset
import Network.IPTables.Parser
import Network.IPTables.IpassmtParser
import qualified System.IO
import Options.Generic
import Common.Util (isParseErrorWindowsNewline)
import Network.IPTables.Analysis as Analysis
import qualified Network.IPTables.Generated as Isabelle

putErrStrLn = System.IO.hPutStrLn System.IO.stderr

--labeled (and optional) command line arguments. For example: ./fffuu --table "filter"
data CommandLineArgsLabeled = CommandLineArgsLabeled
        { ipassmt :: Maybe FilePath  <?> "Optional path to an IP assignment file. If not specified, it only loads `lo = [127.0.0.0/8]`."
        , table :: Maybe String <?> "The table to load for analysis. Default: `filter`. Note: This tool does not support pcket modification, so loading tables such as `nat` will most likeley fail."<commit_msg>fixed import (strangely, on ghc 7.10 it worked)<commit_after>{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE DataKinds         #-}
{-# LANGUAGE DeriveGeneric     #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeOperators     #-}


module Main where

import Data.Functor ((<$>))
import Control.Applicative ((<*>))
import qualified Data.List as L
import Network.IPTables.Ruleset
import Network.IPTables.Parser
import Network.IPTables.IpassmtParser
import qualified System.IO
import Options.Generic
import Common.Util (isParseErrorWindowsNewline)
import Network.IPTables.Analysis as Analysis
import qualified Network.IPTables.Generated as Isabelle

putErrStrLn = System.IO.hPutStrLn System.IO.stderr

--labeled (and optional) command line arguments. For example: ./fffuu --table "filter"
data CommandLineArgsLabeled = CommandLineArgsLabeled
        { ipassmt :: Maybe FilePath  <?> "Optional path to an IP assignment file. If not specified, it only loads `lo = [127.0.0.0/8]`."
        , table :: Maybe String <?> "The table to load for analysis. Default: `filter`. Note: This tool does not support pcket modification, so loading tables such as `nat` will most likeley fail."
{'fraction_non_alphanumeric': 0.1069747539580659, 'fraction_numerical': 0.007274283269148481, 'mean_word_length': 4.27765237020316, 'pattern_counts': {'":': 0, '<': 10, '<?xml version=': 0, '>': 10, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 2, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4298840', 'n_tokens_mistral': 717, 'n_tokens_neox': 701, 'n_words': 228}