module Text.PCLT.MakeMessage2 where
import Data.Int
import Data.MyHelpers
import Text.ConstraintedLBS
import Text.PCLT.Catalog
import Text.PCLT.CommonTypes
import Text.PCLT.Config
import Text.PCLT.MakeMessage
import Text.PCLT.MakeMessage__
import Text.PCLT.PCSI
import Text.PCLT.SDL
import Text.PCLT.ShowAsPCSI
pcsi2new_text_plus_errs_1 :: PCSI -> (ShowDetalizationLevel, LanguageName) -> PCLT_Catalog -> StdOutAndErr_CLBS
pcsi2new_text_plus_errs_1 pcsi (sdl, lng) msg_tpls_ctlg =
pcsi2text_plus_errs_1 (newCLBS $ catInstMaxLen msg_tpls_ctlg) pcsi (sdl, lng) msg_tpls_ctlg
pcsi2text_plus_errs_1 :: StdOutAndErr_CLBS -> PCSI -> (ShowDetalizationLevel, LanguageName) -> PCLT_Catalog -> StdOutAndErr_CLBS
pcsi2text_plus_errs_1 _init_clbs pcsi (sdl, lng) msg_tpls_ctlg =
let init_clbs = freeSpaceCLBS _init_clbs
(result_clbs, errs_list1) = pcsi2text
init_clbs
pcsi
(sdl, lng)
msg_tpls_ctlg
(errs_clbs, errs_list2) =
case null errs_list1 of
True -> (init_clbs, [])
False -> pcsi2text
init_clbs
(thePCSI "E_PCLT_P2TE_LIST" [("errors_list", Indented_PV 4 $ PCSIList_PV (map showAsPCSI errs_list1) usualSeparatorInPCSIList)])
(sdl, lng)
msg_tpls_ctlg
(errs_errs_clbs, _) =
case null errs_list2 of
True -> (init_clbs, [])
False -> pcsi2text
init_clbs
(thePCSI "E_PCLT_P2TE_LIST" [("errors_list", Indented_PV 4 $ PCSIList_PV (map showAsPCSI errs_list2) usualSeparatorInPCSIList)])
(sdl, lng)
msg_tpls_ctlg
in (result_clbs `addToCLBS_2` (errs_clbs `addToCLBS_2` (errs_errs_clbs `addToCLBS_2` _init_clbs)))
pcsi2new_text_plus_errs_2 :: Int64 -> PCSI -> (ShowDetalizationLevel, LanguageName) -> PCLT_Catalog -> (StdOut_CLBS, StdErr_CLBS)
pcsi2new_text_plus_errs_2 inst_max_len pcsi (sdl, lng) msg_tpls_ctlg =
pcsi2text_plus_errs_2 (newCLBS $ catInstMaxLen msg_tpls_ctlg, newCLBS inst_max_len) pcsi (sdl, lng) msg_tpls_ctlg
pcsi2text_plus_errs_2 :: (StdOut_CLBS, StdErr_CLBS) -> PCSI -> (ShowDetalizationLevel, LanguageName) -> PCLT_Catalog -> (StdOut_CLBS, StdErr_CLBS)
pcsi2text_plus_errs_2 (init_clbs, _errs_init_clbs) pcsi (sdl, lng) msg_tpls_ctlg =
let errs_init_clbs = freeSpaceCLBS _errs_init_clbs
(result_clbs, errs_list1) = pcsi2text
init_clbs
pcsi
(sdl, lng)
msg_tpls_ctlg
(errs_clbs, errs_list2) =
case null errs_list1 of
True -> (errs_init_clbs, [])
False -> pcsi2text
init_clbs
(thePCSI "E_PCLT_P2TE_LIST" [("errors_list", Indented_PV 4 $ PCSIList_PV (map showAsPCSI errs_list1) usualSeparatorInPCSIList)])
(sdl, lng)
msg_tpls_ctlg
(errs_errs_clbs, _) =
case null errs_list2 of
True -> (errs_init_clbs, [])
False -> pcsi2text
init_clbs
(thePCSI "E_PCLT_P2TE_LIST" [("errors_list", Indented_PV 4 $ PCSIList_PV (map showAsPCSI errs_list2) usualSeparatorInPCSIList)])
(sdl, lng)
msg_tpls_ctlg
in (result_clbs, errs_clbs `addToCLBS_2` (errs_errs_clbs `addToCLBS_2` errs_init_clbs))