scriptcomp: don't print encoding debug text for each thread

nwn_script_comp.nim

@@ -154,7 +154,7 @@ var demandResRefThread: Thread[void]
 createThread(demandResRefThread) do ():
   # TODO: Make shared init less sucky. We need to call this here to set up args (again)
   #       so newBasicResMan can refer to it.
-  discard DOC(ArgsHelp)
+  discard DOC(ArgsHelp, false)
 
   let rm = newBasicResMan()
 
@@ -185,7 +185,7 @@ proc getThreadState(): ThreadState {.gcsafe.} =
     new(state)
     # TODO: make shared init less sucky. We need to init this here because workers
     #       will depend on logging and related to be set up.
-    discard DOC(ArgsHelp)
+    discard DOC(ArgsHelp, false)
     state.chDemandResRefResponse.open(maxItems=1)
     state.cNSS = newCompiler(params.langSpec, params.debugSymbols, resolveFile, params.maxIncludeDepth)
     state.cNSS.setOptimizations(params.optFlags)

private/shared.nim

@@ -69,7 +69,7 @@ type OptArgs* = Table[string, docopt_internal.Value]
 
 var Args {.threadvar.}: OptArgs
 
-proc DOC*(body: string): OptArgs =
+proc DOC*(body: string, mainThread = true): OptArgs =
   let body2 = body.replace("$USAGE", GlobalUsage).
                    replace("$0", getAppFilename().extractFilename()).
                    replace("$OPTRESMAN", getResmanOpts()).
@@ -93,8 +93,9 @@ proc DOC*(body: string): OptArgs =
   setNwnEncoding($Args["--nwn-encoding"])
   setNativeEncoding($Args["--other-encoding"])
 
-  debug("NWN file encoding: " & getNwnEncoding())
-  debug("Other file encoding: " & getNativeEncoding())
+  if mainThread:
+    debug("NWN file encoding: " & getNwnEncoding())
+    debug("Other file encoding: " & getNativeEncoding())
 
   if Args.hasKey("--add-restypes") and Args["--add-restypes"]:
     let types = ($Args["--add-restypes"]).split(",").mapIt(it.split(":"))