Problems with Functionlog

Freeform discussion about anything related to modding Transcendence.
Post Reply
RPC
Fleet Admiral
Fleet Admiral
Posts: 2876
Joined: Thu Feb 03, 2011 5:21 am
Location: Hmm... I'm confused. Anybody have a starmap to the Core?

Hi, I have a version of Taben's/Betel's funclog here:

Code: Select all

(setq TabenfunctionLog (lambda nil
            (block nil
               (enum (sysGlobals) i
                  (block (symbol)
                     (setq symbol (eval (link i)))
                     (if (isfunction symbol)
                        (block (helpText)
                           (setq helpText (fncHelp symbol))
                           (if helpText
                              (printTo 'log helpText)
                              (printTo 'log "(" i " ...)")
                              )
                           )
                        )
                     )
                  )
				(PrintTo 'console "Success")
               ;(dbgOutput "Success")
               ""
            )
         ))
However, I keep getting this error:

no binding for symbol [gData] ### (eval (link i)) ###

Does anybody else get this error when they try to run it?
Tutorial List on the Wiki and Installing Mods
Get on Discord for mod help and general chat
Image
Image
Der Tod ist der zeitlose Frieden und das leben ist der Krieg
Wir müssen wissen — wir werden wissen!
I don't want any sort of copyright on my Transcendence mods. Feel free to take/modify whatever you want.
User avatar
digdug
Fleet Admiral
Fleet Admiral
Posts: 2620
Joined: Mon Oct 29, 2007 9:23 pm
Location: Decoding hieroglyphics on Tan-Ru-Dorem

sysGlobals now returns a line with [gData] and that is not parsed properly by Taben's function.
I have a fixed one that works, I used it to dump the last functionlog I did. :)

I'll post it later when I'm back from work.
User avatar
digdug
Fleet Admiral
Fleet Admiral
Posts: 2620
Joined: Mon Oct 29, 2007 9:23 pm
Location: Decoding hieroglyphics on Tan-Ru-Dorem

Code: Select all

(setq functionLog (lambda nil
         
            (block nil
               (enum (sysGlobals) i
                  (block (symbol)
                     (if (not (eq i 'gData))
                     	     (block Nil
                     (setq symbol (eval (link i)))
                     (if (isfunction symbol)
                        (block (helpText)
                           (setq helpText (fncHelp symbol))
                           (if helpText
                              (dbgLog helpText)
                              (dbgLog "(" i " ...)")
                              )
                           )
                        )))
                     )
                  )
            
               (dbgOutput "Success")
               ""
                                 
            )
         ))
there you go, this is the same as Betel's function, I just had it to not parse the line with [gData]
:)
RPC
Fleet Admiral
Fleet Admiral
Posts: 2876
Joined: Thu Feb 03, 2011 5:21 am
Location: Hmm... I'm confused. Anybody have a starmap to the Core?

Woo, thanks :3
Tutorial List on the Wiki and Installing Mods
Get on Discord for mod help and general chat
Image
Image
Der Tod ist der zeitlose Frieden und das leben ist der Krieg
Wir müssen wissen — wir werden wissen!
I don't want any sort of copyright on my Transcendence mods. Feel free to take/modify whatever you want.
Post Reply