Debug Replacement - Socoder
Undock Sidebar
Home
Forum
Showcases
Articles / Tutorials
Code Snippets
Links
Blogs
Newsletter
Wed. Workshop
Search
FAQs
About
Member List
Dev Tools
Log in
Username
Password
Log In
Forgot your Password?
Register
Username
Email
Register
Recent Uploads
spinal
angry dialog 01 test
spinal
angry dialog 01 test
spinal
glasses test
steve_ancell
IMG 202404 ... 104348 349
cyangames
snaphappy
Pakz
IMG 3178Spritegen
Pakz
IMG 0460Userint
spinal
nerdly error 1
spinal
blitz3d error array
Pakz
pixelArtPoster26x6
Undock Sidebar
Meta Quest 3
Jayenkai
(Thu 14:40)
JSE Transpiler?
Pakz
(Thu 08:23)
QOTD - April 2024
Jayenkai
(Thu 03:28)
Suno/Bing Tunes
Jayenkai
(Thu 01:33)
Flap Happy and Fancy Free!
cyangames
(Wed 16:09)
ALChoons : Zinc
Jayenkai
(Wed 13:00)
Poll Chat
Dan
(Wed 12:47)
Scrolling tiles
spinal
(Wed 11:54)
AGameAWeek 2024
Jayenkai
(Wed 06:51)
Blitz3D v1.111
Jayenkai
(Wed 05:23)
Udio Tunes
Jayenkai
(Tue 07:36)
VidGen 2
Jayenkai
(Mon 03:44)
Showcase - Bubble Bobble RPG
Eikon
(Sun 20:44)
Blue Man Group
Jayenkai
(Sun 15:03)
Blogs - JayWalking
Jayenkai
(Sat 06:53)
Steve's Car
steve_ancell
(Sat 03:19)
Stuck in a Rut
triptych
(Fri 13:49)
Space Discoveries
therevillsgames
(Thu 01:24)
Happy Birthday, jprofitt
steve_ancell
(Wed 14:28)
Happy Birthday, steve_ancell and blanko1324
steve_ancell
(Mon 23:44)
Top 10 Air Purifiers
Pakz
(Mon 09:21)
Apple's New Oddball Rules
spinal
(Sat 14:14)
SoundCloud Storm
Jayenkai
(Sat 08:55)
ST Discovery - Season Four
Pakz
(Sat 05:34)
Link - Who remembers Barry Scott?
cyangames
(Mon 23:13)
My Threads
|
More
-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987
0|451|0
-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder
->
Snippet Home
->
Misc
LostUser
Created : 19 May 2008
System : Windows
Language : Blitz
Debug Replacement
DebugLog() Replacement
; Debug Replacement Notes ; ----------------------- ; One of the things that annoys me about Blitz Basic 2D is ; that the in-built DebugLog() function outputs to a tabbed ; window, and its not very usable. ; ; So, I coded this solution based upon Rob Farley's "Debug Onscreen Text thingy" (url given below). ; ; It will display the debug entries in your viewing/output ; screen in the top-left hand side, output to the ; DebugLog(), and allow you to seperate phrases using "|" ; and allow you to write directly to a "log.txt" file. ; ; Note: Ideally this would append messages to any existing ; 'log.txt' file, at the moment it just overwrites any ; existing 'log.txt' file. ; ; See examples for more info.
--v
;#################################################################### ;# ;# Debug Replacement for Blitz Basic 2D ;# v0.1b ;# @updated: 19 May 2008 ;# @author: zardon ;# ;# Based upon: ;# "Debug Onscreen Text thingy" by Rob Farley ;# URL: https://blitzbasic.com/codearcs/codearcs.php?code=1337 ;# ;#################################################################### Const debugfile$ = "log.txt" ;-------------------------------------------------------------------- Type t_debug Field txt$ End Type ;-------------------------------------------------------------------- ;random variable assignment animal$ = "fox" ; just a normal debug entry debug("Animal:" + animal$ ) ; this uses the '|' seperator (must have no whitespace post seperator) debug( "Graphcis Width: " + GraphicsWidth() +"|Graphics Height:"+ GraphicsHeight() + "|Graphics Depth: " + GraphicsDepth() + "|GraphicsBuffer: " + GraphicsBuffer() ) ; output all debug debug( "", True ) ; write my debug log file debug( "", False, True ) ; cleanup debug debug_cleanup() ;-------------------------------------------------------------------- ; ; debug() function ; creates a new debug item, ; creates a visual output, ; creates a logfile ; @parameters; ; txt$ (string) = the text to add to the debug ; output$ (boolean) = whether to output to the screen ; mkfile (boolean) = whether to write a log file to the current directory ; @return; ; (boolean) Function debug(txt$="", output=False, mkfile=False) If (txt$<>"") Then ; Handle Seperators If Right(txt,1) <> "|" Then txt$ = txt$ + "|" ty=0 Repeat tx=Instr(txt$,"|") If tx>0 Then outputLeft$ = Left(txt$,tx-1) outputRight$ = Right(txt$,Len(txt$)-tx) ; create a new debug object debug_new( outputLeft$ ) txt$ = outputRight$ EndIf Until tx = 0 End If If (output = True) Then debug_echo() End If If (mkfile = True) Then debug_writelog() End If Return True End Function ;-------------------------------------------------------------------- ; ; debug new() function ; adds a new debug item ; @parameters; ; txt$ (string) = the text to add to the debug ; @return; ; (boolean) ; Function debug_new(txt$) p.t_debug = New t_debug p\txt$ = txt$ DebugLog( txt$ ) Return True End Function ;-------------------------------------------------------------------- ; ; debug output() function ; outputs the debug to the screen ; ; @parameters; ; none ; @return; ; (boolean) ; Function debug_echo() Local y=1 For p.t_debug = Each t_debug Text 1, y, p\txt$ y=y+FontHeight() Next Return True End Function ;-------------------------------------------------------------------- ; ; debug writelog() function ; dumps the contents of the debug type to a .txt file ; ; NOTE: This will OVERWRITE any entries in a 'log.txt' file!!! ; ; @parameters; ; none ; @return; ; (boolean) true ; ; Ideally a log file should search for an existing log file ; and append to it. ; Function debug_writelog() Local path$ = CurrentDir$() fileout = WriteFile(path$ + debugfile$) For p.t_debug = Each t_debug WriteLine(fileout, p\txt$) Next CloseFile(fileout) Return True End Function ;-------------------------------------------------------------------- ; ; debug cleanup() function ; deletes all debug object types ; ; @parameters; ; none ; @return; ; (boolean) true ; Function debug_cleanup() For p.t_debug = Each t_debug: Delete p: Next: Return True End Function
--v
Comments
Copyright
Jayenkai
- 2017+ | Thanks to
Shroom_Monk
for CSS/Dev Tips | Uses a Jay-Tweaked version of
CBParser
.
Page Took : 0.109
Debug Replacement - Socoder