# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
# - /home/davila/Creatis/C8/creatools_source/bbtk/packages/gdcmvtk/bbs/boxes/LstDicomSerieInfoDir.bbs
# ----------------------------------

include std
include itkvtk
include gdcmvtk
include std

define LstDicomSerieInfoDir gdcmvtk

author "Author ??"
description "Description ??"

category "<VOID>"

new gdcmvtk:DicomSerieInfoDir Box00
  set Box00.idDir "0"

new std:FilesFromDirectory Box01
  set Box01.In "/home/davila/CreatisWorks/tmpMonica/SegCal/Benoit-Test-Dicom"
  set Box01.Recursive "true"
  set Box01.Type "2"

new std:ConcatStrings Box03
  set Box03.In10 " "
  set Box03.In2 " "
  set Box03.In4 " "
  set Box03.In6 " "
  set Box03.In8 " "

new gdcmvtk:DicomSerieInfoDir Box04
  set Box04.idDir "1"

new std:ConcatStrings Box06
  set Box06.In10 " "
  set Box06.In2 " "
  set Box06.In4 " "
  set Box06.In6 " "
  set Box06.In8 " "

new std:ConcatStrings Box07
  set Box07.In10 " "
  set Box07.In3 " "
  set Box07.In5 " "
  set Box07.In7 " "
  set Box07.In9 " "

new gdcmvtk:DicomSerieInfoDir Box09
  set Box09.idDir "2"

new gdcmvtk:DicomSerieInfoDir Box11
  set Box11.idDir "3"

new gdcmvtk:DicomSerieInfoDir Box12
  set Box12.idDir "4"

new gdcmvtk:DicomSerieInfoDir Box13
  set Box13.idDir "5"

new gdcmvtk:DicomSerieInfoDir Box14
  set Box14.idDir "6"

new gdcmvtk:DicomSerieInfoDir Box15
  set Box15.idDir "7"

new gdcmvtk:DicomSerieInfoDir Box16
  set Box16.idDir "8"

new gdcmvtk:DicomSerieInfoDir Box17
  set Box17.idDir "9"

new gdcmvtk:DicomSerieInfoDir Box18
  set Box18.idDir "10"

new gdcmvtk:DicomSerieInfoDir Box19
  set Box19.idDir "11"

new gdcmvtk:DicomSerieInfoDir Box20
  set Box20.idDir "12"

new gdcmvtk:DicomSerieInfoDir Box21
  set Box21.idDir "14"

new gdcmvtk:DicomSerieInfoDir Box22
  set Box22.idDir "13"

new gdcmvtk:DicomSerieInfoDir Box23
  set Box23.idDir "15"

new gdcmvtk:DicomSerieInfoDir Box24
  set Box24.idDir "16"

new gdcmvtk:DicomSerieInfoDir Box25
  set Box25.idDir "17"

new std:ConcatStrings Box26
  set Box26.In10 " "
  set Box26.In3 " "
  set Box26.In5 " "
  set Box26.In7 " "
  set Box26.In9 " "

new gdcmvtk:DicomSerieInfoDir Box27
  set Box27.idDir "17"

new std:ConcatStrings Box28
  set Box28.In10 " "
  set Box28.In3 " "
  set Box28.In5 " "
  set Box28.In7 " "
  set Box28.In9 " "


connect Box01.OutSimple Box00.LstSimpleDirName
connect Box01.Out Box00.LstPaths
connect Box01.OutSimple Box04.LstSimpleDirName
connect Box01.Out Box04.LstPaths
connect Box04.OutString Box03.In3
connect Box00.OutString Box03.In1
connect Box03.Out Box06.In1
connect Box06.Out Box07.In1
connect Box01.OutSimple Box09.LstSimpleDirName
connect Box09.OutString Box03.In5
connect Box01.Out Box09.LstPaths
connect Box01.Out Box11.LstPaths
connect Box01.OutSimple Box11.LstSimpleDirName
connect Box01.Out Box12.LstPaths
connect Box01.OutSimple Box12.LstSimpleDirName
connect Box01.Out Box13.LstPaths
connect Box01.OutSimple Box13.LstSimpleDirName
connect Box11.OutString Box03.In7
connect Box12.OutString Box03.In9
connect Box13.OutString Box06.In3
connect Box14.OutString Box06.In5
connect Box15.OutString Box06.In7
connect Box16.OutString Box06.In9
connect Box01.Out Box14.LstPaths
connect Box01.OutSimple Box14.LstSimpleDirName
connect Box01.Out Box15.LstPaths
connect Box01.OutSimple Box15.LstSimpleDirName
connect Box01.Out Box16.LstPaths
connect Box01.OutSimple Box16.LstSimpleDirName
connect Box01.Out Box17.LstPaths
connect Box01.OutSimple Box17.LstSimpleDirName
connect Box01.Out Box18.LstPaths
connect Box01.OutSimple Box18.LstSimpleDirName
connect Box01.Out Box19.LstPaths
connect Box01.OutSimple Box19.LstSimpleDirName
connect Box01.Out Box20.LstPaths
connect Box01.OutSimple Box20.LstSimpleDirName
connect Box01.Out Box22.LstPaths
connect Box01.OutSimple Box22.LstSimpleDirName
connect Box01.Out Box21.LstPaths
connect Box01.OutSimple Box21.LstSimpleDirName
connect Box01.Out Box23.LstPaths
connect Box01.OutSimple Box23.LstSimpleDirName
connect Box01.Out Box24.LstPaths
connect Box01.OutSimple Box24.LstSimpleDirName
connect Box01.Out Box25.LstPaths
connect Box01.OutSimple Box25.LstSimpleDirName
connect Box17.OutString Box07.In2
connect Box18.OutString Box07.In4
connect Box19.OutString Box07.In6
connect Box20.OutString Box07.In8
connect Box22.OutString Box07.In10
connect Box07.Out Box26.In1
connect Box21.OutString Box26.In2
connect Box23.OutString Box26.In4
connect Box24.OutString Box26.In6
connect Box25.OutString Box26.In8
connect Box01.Out Box27.LstPaths
connect Box01.OutSimple Box27.LstSimpleDirName
connect Box26.Out Box28.In1
connect Box27.OutString Box28.In2

# Complex input ports
input DirName Box01.In " "

# Complex output ports
output lst Box28.Out " "
output lstPath Box01.Out " "


endefine