paul doe wrote:You're coding a viewer for what? Just the XML structure, or some other data?
Hi Paul,
I tried this in order to be able to separate the xml decoration from the data content. If you read a xml file, even with syntax highlighting it's uggly. With some effort we can still keep the xml strucure visible (hierarchical levels of the data are important and reflected in the xml structure) and, nonetheless, we could have the data well hihglighted in some more appealing fashion than usual.
That's what I was thinking of mainly. It's not really about xml, I prefer geojson for what I really may need in my life, and it's quite different. But I have to start with something and xml looks more widespread than Json too.
Here is the full version of the above snippet, something went wrong last time in coying:
Code: Select all
'(this below is only a preview for setting concept up)
'*******************************************************
'simple attempt for an xml-like file viewer in freebasic
'*******************************************************
'___please set the file location for your local disk____
'_______________________________________________________
#define _logFile _
"D:/TEMP/ERR/err1.txt" ''change this one to try parse something (in general this wont go very far...)
'* program will then:
'- copy the file into a string array
'- define a convenient user defined type
'- parse the file and make it an array of the udt
'- demonstrate the concept of the graphical viewer
'-------------------------------------------------------
#include "fbgfx.bi"
dim as double startTime = TIMER
screenRes 800, 500, 32, 1, fb.GFX_NO_FRAME
color , rgb(100,100,080)
cls
print ">reading file: "; _logFile
' read the text file
'-------------------------------------------------------
dim as integer f => freeFile()
open _logFile for input as #f
'
dim as integer index => -1
dim as string stringLine(any)
while not eof(f)
index += 1
redim preserve stringLine(uBound(stringLine) + 1)
input #f, stringLine(index)
'trim no more useful indentation space
stringLine(index) = trim(stringLine(index))
wend
'
close #f
'--> stringLine() array now holds the text file content
'--> index is the string line total number in the array
print ">..done"
print ">creating infoblock object"
' define a type implementing an xml-like data block
'-------------------------------------------------------
type INFOBLOCK
as string _tagName
as string _textContent(any)
as integer _startLineIndex
as integer _endLineIndex
as integer _hierarchyLevel
as integer _childrenNodeCount
as INFOBLOCK ptr _childrenNodeRefArray(any)
end type 'INFOBLOCK
' parse the stringLine array for INFOBLOCK building
'-------------------------------------------------------
dim as INFOBLOCK infoBlockArray(any)
dim as integer hierarchyLevel
for i as integer = 0 to index
'test if stringLine is a tag and behave accordingly
select case left(stringLine(i), 1)
case "<"
select case mid(stringLine(i), 2, 1)
case "!"
'should be a comment tag
'
case "/"
'should be an ending block tag
hierarchyLevel -= 1
'retrieve the infoBlock item index
dim as integer j = uBound(infoBlockArray)
while j>0 and infoBlockArray(j)._endLineIndex<>-1
j -= 1
wend
'fill other fields about the block
infoBlockArray(j)._endLineIndex = i
infoBlockArray(j)._childrenNodeCount = uBound(infoBlockArray) - j
redim as INFOBLOCK ptr _
(infoBlockArray(j)._childrenNodeRefArray)( _
infoBlockArray(j)._endLineIndex - _
infoBlockArray(j)._startLineIndex + _
1 _
)
for k as integer = j to j + infoBlockArray(j)._childrenNodeCount
infoBlockArray(j)._childrenNodeRefArray(k - j) = @infoBlockArray(k)
next k
'retrieve now what should be the encapsulated text
redim (infoBlockArray(j)._textContent)(0)
infoBlockArray(j)._textContent(0) = "(no text content)"
'
dim as INFOBLOCK ptr hLevelPlus1SubnodeArray(any)
for k as integer = 0 to infoBlockArray(j)._childrenNodeCount
if infoBlockArray(j)._childrenNodeRefArray(k)->_hierarchyLevel<>_
(infoBlockArray(j)._hierarchyLevel + 1) then continue for
redim preserve _
hLevelPlus1SubnodeArray(uBound(hLevelPlus1SubnodeArray) + 1)
hLevelPlus1SubnodeArray(uBound(hLevelPlus1SubnodeArray)) = _
infoBlockArray(j)._childrenNodeRefArray(k)
next k
'
dim as integer textIntervalStartLine => _
infoBlockArray(j)._startLineIndex
dim as integer textIntervalEndLine => _
infoBlockArray(j)._endLineIndex
if uBound(hLevelPlus1SubnodeArray)=-1 then
redim preserve _
(infoBlockArray(j)._textContent)( _
uBound(infoBlockArray(j)._textContent) - _
1 + _
textIntervalEndLine - _
textIntervalStartLine _
)
for n as integer = 1 to textIntervalEndLine - textIntervalStartLine - 1
infoBlockArray(j)._textContent(n - 1) = stringLine(textIntervalStartLine + n)
next n
exit select
end if
'
for k as integer = 0 to uBound(hLevelPlus1SubnodeArray)
textIntervalEndLine = hLevelPlus1SubnodeArray(k)->_startLineIndex
redim preserve _
(infoBlockArray(j)._textContent)( _
uBound(infoBlockArray(j)._textContent) - _
1 + _
textIntervalEndLine - _
textIntervalStartLine _
)
for n as integer = 1 to textIntervalEndLine - textIntervalStartLine - 1
infoBlockArray(j)._textContent(uBound(infoBlockArray(j)._textContent) + n - 2) = _
stringLine(textIntervalStartLine + n)
next n
textIntervalStartLine = hLevelPlus1SubnodeArray(k)->_endLineIndex
next k
textIntervalEndLine = infoBlockArray(j)._endLineIndex
redim preserve _
(infoBlockArray(j)._textContent)( _
uBound(infoBlockArray(j)._textContent) - _
1 + _
textIntervalEndLine - _
textIntervalStartLine _
)
for n as integer = 1 to textIntervalEndLine - textIntervalStartLine - 1
infoBlockArray(j)._textContent(uBound(infoBlockArray(j)._textContent) + n - 2) = _
stringLine(textIntervalStartLine + n)
next n
'
case else
'should be a starting block tag
hierarchyLevel += 1
'retrieve the block tagName
redim preserve infoBlockArray(uBound(infoBlockArray) + 1)
infoBlockArray(uBound(infoBlockArray))._tagName = _
mid(stringLine(i), 2, inStr(stringLine(i),">") - 2)
'fill other fields about the block
with infoBlockArray(uBound(infoBlockArray))
._hierarchyLevel = hierarchyLevel
._startLineIndex = i
._endLineIndex = -1
end with 'infoBlockArray(uBound(infoBlockArray))
'
end select 'mid(stringLine(i), 2, 1)
end select 'left(stringLine(i), 1)
next i
print ">..done"
print ">creating infobox object"
' graphical display initial setting
'-------------------------------------------------------
'note: this is rather in a messy state from here
' (maybe even more than the previous part)
' works enough yet to prove the concept
type INFOBOX
declare constructor()
declare constructor(byval as INFOBLOCK ptr, _
byval as integer, _
byval as integer)
declare function FillHierarchyPlusOneRefArray() as integer
declare static sub AddInfoBoxRefArray(() as INFOBOX ptr)
declare sub MarkChildrenDrawable()
declare sub UnMarkChildrenDrawable()
declare sub TestInfoBox()
declare sub DrawInfoBox()
as integer _hierarchyLevel
as INFOBLOCK ptr _infoBlockPtr
as integer _topLeftCornerX
as integer _topLeftCornerY
as integer _boxWidth
as integer _boxHeigth
as integer _hierarchyLevelPlusOneInfoBlockCount
as INFOBLOCK ptr _levelPlusOneInfoBlockRefArray(any)
as integer _miniBtnX
as integer _miniBtnY
as integer _miniBtnW
as integer _miniBtnH
as double _lastClickedTime
as boolean _mouseOver
as boolean _mouseClick
as boolean _isUnfold
as boolean _isToDraw
static as INFOBOX ptr infoBoxRefArray(any)
end type 'INFOBOX
dim as INFOBOX ptr INFOBOX.infoBoxRefArray(any)
constructor INFOBOX()
' this constructor doesn't really serve us; just here because
' using REDIM with INFOBOX() (asfaik) requires the default
' constructor if a non-default constructor stands aside
with THIS
._infoBlockPtr => 0
._hierarchyLevel => 1
._hierarchyLevelPlusOneInfoBlockCount => -1
'redim (._levelPlusOneInfoBlockRefArray)(0)
._topLeftCornerX => 10
._topLeftCornerY => 10
._boxWidth => 250
._boxHeigth => 25
._miniBtnX => ._topLeftCornerX + ._boxWidth - 15
._miniBtnY => ._topLeftCornerY + ._boxHeigth - 15
._miniBtnW => 10
._miniBtnH => 10
._lastClickedTime => 0
._mouseOver => FALSE
._mouseClick => FALSE
._isUnfold => FALSE
._isToDraw => FALSE
end with 'THIS
end constructor 'INFOBOX default constructor
constructor INFOBOX(byval IB as INFOBLOCK ptr, _
byval TLCX as integer, _
byval TLCY as integer)
with THIS
._infoBlockPtr => IB
._hierarchyLevel => IB->_hierarchyLevel
._hierarchyLevelPlusOneInfoBlockCount => .FillHierarchyPlusOneRefArray()
._topLeftCornerX => TLCX
._topLeftCornerY => TLCY
dim as integer maxTextLength = len(IB->_tagName)
for i as integer = 0 to uBound(IB->_textContent) - 1
if len(IB->_textContent(i))>maxTextLength then maxTextLength = len(IB->_textContent(i))
next i
._boxWidth => maxTextLength*8 + 122
._boxHeigth => iif((uBound(IB->_textContent) + 1)*8>25, _
(uBound(IB->_textContent) + 1)*8, _
25)
._miniBtnX => ._topLeftCornerX + ._boxWidth - 15
._miniBtnY => ._topLeftCornerY + ._boxHeigth - 15
._miniBtnW => 10
._miniBtnH => 10
._lastClickedTime => 0
._mouseOver => FALSE
._mouseClick => FALSE
._isUnfold => FALSE
._isToDraw => FALSE
end with 'THIS
end constructor 'INFOBOX(valINFOBLOCK_PTR,{valINT}*2)
function INFOBOX.FillHierarchyPlusOneRefArray() as integer
dim as integer counter = -1
for i as integer = 1 to THIS._infoBlockPtr->_childrenNodeCount
'note: do not use uBound(_childrenNodeRefArray)
' use _childrenNodeCount as the equivalent
' or, unexpected miscounting is to be expected
if THIS._infoBlockPtr->_childrenNodeRefArray(i)->_hierarchyLevel=_
(THIS._hierarchyLevel + 1) then
counter += 1
redim preserve (THIS._levelPlusOneInfoBlockRefArray)(counter)
THIS._levelPlusOneInfoBlockRefArray(counter) = _
THIS._infoBlockPtr->_childrenNodeRefArray(i)
end if
next i
'---->
return counter
end function 'INT:=INFOBOX.FillHierarchyPlusOneRefArray()
sub INFOBOX.AddInfoBoxRefArray(IBXRef() as INFOBOX ptr)
redim as INFOBOX ptr INFOBOX.infoBoxRefArray(uBound(IBXRef))
for i as integer = 0 to uBound(IBXRef)
INFOBOX.infoBoxRefArray(i) = IBXRef(i)
next i
end sub 'INFOBOX.AddInfoBoxRefArray()
sub INFOBOX.MarkChildrenDrawable()
for i as integer = 0 to THIS._hierarchyLevelPlusOneInfoBlockCount
for j as integer = 0 to uBound(INFOBOX.infoBoxRefArray)
if THIS._levelPlusOneInfoBlockRefArray(i)=_
INFOBOX.infoBoxRefArray(j)->_infoBlockPtr then
*INFOBOX.infoBoxRefArray(j) = _
INFOBOX((THIS._levelPlusOneInfoBlockRefArray(i)), _
THIS._topLeftCornerX + THIS._boxWidth + 10, _
(i+1)*(THIS._topLeftCornerY + THIS._boxHeigth) + 10)
INFOBOX.infoBoxRefArray(j)->_isToDraw = TRUE
end if
next j
next i
end sub 'INFOBOX.MarkChildrenDrawable(refINFOBOX_PTR())
sub INFOBOX.UnMarkChildrenDrawable()
'note: should take care of the in-depth recursion
for i as integer = 0 to THIS._hierarchyLevelPlusOneInfoBlockCount
for j as integer = 0 to uBound(INFOBOX.infoBoxRefArray)
if THIS._levelPlusOneInfoBlockRefArray(i)=_
INFOBOX.infoBoxRefArray(j)->_infoBlockPtr then
INFOBOX.infoBoxRefArray(j)->_isToDraw = FALSE
end if
next j
next i
end sub 'INFOBOX.UnMarkChildrenDrawable()
sub INFOBOX.TestInfoBox()
dim as integer gmX, gmY, gmBtn1
getMouse gmX, gmY, , gmBtn1
if gmX>THIS._miniBtnX and _
gmX<(THIS._miniBtnX + _miniBtnW) and _
gmY>THIS._miniBtnY and _
gmY<(THIS._miniBtnY + _miniBtnH) then
if THIS._mouseOver=FALSE then THIS._mouseOver = TRUE
if gmBtn1=+1 then
if THIS._mouseClick=FALSE then THIS._mouseClick = TRUE
if (TIMER - THIS._lastClickedTime)>.5 then
THIS._lastClickedTime = TIMER
THIS._isUnfold = not THIS._isUnfold
end if
else
if THIS._mouseClick=TRUE then THIS._mouseClick = FALSE
end if
else
if THIS._mouseOver=TRUE then THIS._mouseOver = FALSE
if THIS._mouseClick=TRUE then THIS._mouseClick = FALSE
end if
end sub 'INFOBOX.TestInfoBox()
sub INFOBOX.DrawInfoBox()
THIS.TestInfoBox
line (THIS._topLeftCornerX, THIS._topLeftCornerY)- _
(THIS._topLeftCornerX + THIS._boxWidth, _
THIS._topLeftCornerY + THIS._boxHeigth), _
iif(THIS._mouseOver, rgb(200,180,140), rgb(200,190,120)), _
bf
draw string (THIS._topLeftCornerX, THIS._topLeftCornerY), _
uCase(str(THIS._infoBlockPtr->_tagName)), _
rgb(255,255,200)
for i as integer = 0 to uBound(THIS._infoBlockPtr->_textContent)
draw string (THIS._topLeftCornerX, i*8 + THIS._topLeftCornerY + 10), _
str(THIS._infoBlockPtr->_textContent(i)), _
rgb(255,255,050)
next i
'
line (THIS._miniBtnX, THIS._miniBtnY)- _
(THIS._miniBtnX + _miniBtnW, _
THIS._miniBtnY + _miniBtnH), _
iif(THIS._isUnfold, rgb(200,100,100), rgb(100,000,200)), _
bf
if THIS._isUnfold then
for i as integer = 0 to THIS._hierarchyLevelPlusOneInfoBlockCount
'note: this below for debug purpose
'? : ? : ? : ? : ? : ?
'? i, THIS._levelPlusOneInfoBlockRefArray(i)->_tagName
next i
THIS.MarkChildrenDrawable()
else
THIS.UnMarkChildrenDrawable()
end if
end sub 'INFOBOX.DrawInfoBox()
'-------------------------------------------------------
'make whole INFOBOX array from the global scope
dim as INFOBOX ptr infoBoxRefArray(uBound(infoBlockArray))
for i as integer = 0 to uBound(infoBlockArray)
infoBoxRefArray(i) => cAllocate(1, sizeOf(INFOBOX))
*infoBoxRefArray(i) => INFOBOX(@(infoBlockArray(i)), _
10, _
10)
if infoBlockArray(i)._hierarchyLevel=1 then _
infoBoxRefArray(i)->_isToDraw = TRUE
next i
INFOBOX.AddInfoBoxRefArray(infoBoxRefArray())
'-------------------------------------------------------
print ">..done"
print ">launching the viewer..."
print ">ellaped time = "; TIMER - startTime
print
print "[AWAITING KEY PRESS TO CONTINUE]"
sleep
cls
' graphical display main loop
'-------------------------------------------------------
do
screenLock
cls
for i as integer = 0 to uBound(infoBlockArray)
if infoBoxRefArray(i)->_isToDraw then infoBoxRefArray(i)->DrawInfoBox()
next i
screenUnlock
sleep 15
loop until inkey=chr(27)
'/
sleep
end 0
'[EOF]
