Debug Replacement - Socoder
Dock 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
Pakz
IMG 0298globe
Pakz
pickedMediakingamiga
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
Undock Sidebar
QOTD - May 2024
Jayenkai
(Thu 03:58)
R.I.P. Super Gran
cyangames
(Thu 02:13)
OpenAI Assistant
Pakz
(Wed 23:08)
Making Pebble Content
spinal
(Wed 11:30)
ALChoons : Zinc
Jayenkai
(Wed 08:59)
AGameAWeek 2024
Pakz
(Wed 03:41)
Apple iPad Event - May 2024
Pakz
(Wed 00:08)
Audacity AI
Dan
(Tue 13:52)
Piper TTS
Pakz
(Mon 08:09)
Showcase - EikOS
Eikon
(Mon 07:13)
Floppy Purchase
therevillsgames
(Mon 05:53)
VidGen 2
Jayenkai
(Mon 01:25)
Angry Frogs
steve_ancell
(Sun 06:49)
Mythbusters
Jayenkai
(Sat 15:29)
Scrolling tiles
spinal
(Sat 10:37)
Who Hype - 2024
Jayenkai
(Sat 04:17)
Udio AI Music
Jayenkai
(Fri 12:28)
ElevenLabs AI Music
Pakz
(Fri 09:53)
Blogs - The Old MacMini
Jayenkai
(Thu 11:55)
Suno/Bing Tunes
Jayenkai
(Wed 08:54)
Snippet - Globe particle 'Screensaver' effect
Jayenkai
(Wed 00:48)
Early 2024 Flu
Jayenkai
(Tue 05:40)
Knuckles the Series
Jayenkai
(Sun 15:32)
DallE 3
Jayenkai
(Sat 11:11)
Showcase - Emu's Massive Hunt [Vic 20 +35K]
Jayenkai
(Fri 03:03)
My Threads
|
More
-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987
0|406|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.179
Debug Replacement - Socoder