Attempt TEST ServerUtil Source Dump (Core Script Source)

 log = 
 out = 
 flagname = 
 flagok = 

()

 setfflag 
     ok = (setfflag, flagname, )
     ok  .GetFastFlag 
         ok2, v = (()  :(flagname) )
        flagok = ok2  v == 
    


 restore
  flagok     
     mok, mt = (, )
     mok  mt 
         old = .DefineFastFlag
         old 
             new = (n, d)
                 n == flagname   (n, ) 
                 (n, d)
            
            (() .DefineFastFlag = new )
            restore = () (() .DefineFastFlag = old ) 
        
    


 modules = :():().Modules
 util = modules.Server.ServerUtil

 package  package.loaded 
     k, v  (package.loaded) 
         v == util  ((k) ==   k:()) 
            package.loaded[k] = 
        
    


 rok, S = (, util)
  rok   S 
    ( .. (S))
     restore  () 
    


 live = 
 S.getFFlagServerCoreScriptSourceCode 
     ok, v = (()  S.() )
    live = ok  v == 


  live 
    ()
     restore  () 
    


 S.initSourceCodeFolder 
     ok, err = (S.initSourceCodeFolder)
      ok  ( .. (err)) 


.()

 folder = modules:()
  folder 
    ()
     restore  () 
    


 count = 
 bytes = 
 buf = {}

  (inst, depth)
     _, c  (inst:()) 
         c:() 
             src = c.Source
             src  #src >  
                count += 
                bytes += #src
                 pad = .(, depth)
                .(buf, pad ..  .. c.Name ..  .. c.ClassName ..  .. #src .. )
                .(buf, src)
                .(buf, )
            
        
         c:()  c:() 
            (c, depth + )
        
    


(folder, )

(.(, ))
( .. count ..  .. bytes .. )
(.(, ))
(.(buf, ))

 writefile 
     ok = (writefile, , .(buf, ))
     ok  () 


(() folder:() )
 restore  () 

  (inst)
     S.getSourceForServerScript 
         ok, src = (S.getSourceForServerScript, inst)
         ok   src 
    
     


   ().readServerSource = readsrc 

( .. count ..  .. bytes .. )