# Changeset View

Changeset View

# Standalone View

Standalone View

# utils/debugNCG/Diff_Gcc_Nat.hs

Show All 31 Lines | 18 | = getArgs >>= \args -> | |||
---|---|---|---|---|---|

32 | do | 32 | do | ||

33 | let [f_root] = args | 33 | let [f_root] = args | ||

34 | f_gcc <- readFile (f_root ++ "-gcc") | 34 | f_gcc <- readFile (f_root ++ "-gcc") | ||

35 | f_nat <- readFile (f_root ++ "-nat") | 35 | f_nat <- readFile (f_root ++ "-nat") | ||

36 | 36 | | |||

37 | let split_nat0 = breakOn is_split_line (lines f_nat) | 37 | let split_nat0 = breakOn is_split_line (lines f_nat) | ||

38 | split_nat = filter (not.null.getLabels) split_nat0 | 38 | split_nat = filter (not.null.getLabels) split_nat0 | ||

39 | 39 | | |||

40 | split_markers_present | | |||

41 | = any is_split_line (lines f_nat) | | |||

42 | | ||||

43 | labels_nat = map getLabels split_nat | 40 | labels_nat = map getLabels split_nat | ||

44 | labels_cls = map (map breakLabel) labels_nat | 41 | labels_cls = map (map breakLabel) labels_nat | ||

45 | 42 | | |||

46 | labels_merged :: [(Label, [LabelKind])] | 43 | labels_merged :: [(Label, [LabelKind])] | ||

47 | labels_merged = map mergeBroken labels_cls | 44 | labels_merged = map mergeBroken labels_cls | ||

48 | 45 | | |||

49 | classified :: [(Label, [LabelKind], [String])] | 46 | classified :: [(Label, [LabelKind], [String])] | ||

50 | classified | 47 | classified | ||

▲ Show 20 Lines • Show All 330 Lines • Show Last 20 Lines |