syndicate 0.0.1

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in syndicate.gemspec
+gemspec

data/LICENSE

@@ -0,0 +1,22 @@
+Copyright (c) 2012 Brooke McKim
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,8 @@
+Syndicate
+=========
+
+Generate MRSS feeds from any directory on your computer. 
+
+## Applications
+
+Example applications to consume the MRSS feeds are available in the examples directory.

data/Rakefile

@@ -0,0 +1,2 @@
+#!/usr/bin/env rake
+require "bundler/gem_tasks"

data/bin/syndicate

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+require 'syndicate'
+
+Syndicate::App.run!

data/examples/roku/Makefile

@@ -0,0 +1,23 @@
+#########################################################################
+# Simple makefile for packaging Roku Video Player example
+#
+# Makefile Usage:
+# > make
+# > make install
+# > make remove
+#
+# Important Notes: 
+# To use the "install" and "remove" targets to install your
+# application directly from the shell, you must do the following:
+#
+# 1) Make sure that you have the curl command line executable in your path
+# 2) Set the variable ROKU_DEV_TARGET in your environment to the IP 
+#    address of your Roku box. (e.g. export ROKU_DEV_TARGET=192.168.1.1.
+#    Set in your this variable in your shell startup (e.g. .bashrc)
+##########################################################################  
+APPNAME = syndicate
+VERSION = 1.0
+
+ZIP_EXCLUDE= -x *.git/* -x .gitignore -x .DS_Store -x README.md -x zips/* -x zips/
+
+include ./app.mk

data/examples/roku/README.md

@@ -0,0 +1,24 @@
+# Roku Application which can be powered by MRSS feeds. 
+
+## Setup
+
+1. Change url variable in appMain.brs to point to your Syndicate server.
+1. Edit manifest and change Title and Subtitle accordingly.
+1. Edit Makefile and change Appname accordingly. 
+
+## Graphics
+
+All graphics are in /images
+
+*  banner - The banner at the top of the application
+*  banner-logo - The logo overlaid on top of the banner. Position is controlled in theme.brs
+*  logo - The logo used on the channel screen of the Roku. These can be used when submitting application to Roku as well. 
+
+## Install to Roku
+
+Roku must first be set to development mode. 
+
+```bash
+export ROKU_DEV_TARGET=<ip_address_of_roku>
+make install
+```

data/examples/roku/app.mk

@@ -0,0 +1,89 @@
+#########################################################################
+# common include file for application Makefiles
+#
+# Makefile Usage:
+# > make
+# > make install
+# > make remove
+#
+# to exclude certain files from being added to the zipfile during packaging
+# include a line like this:ZIP_EXCLUDE= -x keys\*
+# that will exclude any file who's name begins with 'keys'
+# to exclude using more than one pattern use additional '-x <pattern>' arguments
+# ZIP_EXCLUDE= -x \*.pkg -x storeassets\*
+#
+# Important Notes: 
+# To use the "install" and "remove" targets to install your
+# application directly from the shell, you must do the following:
+#
+# 1) Make sure that you have the curl command line executable in your path
+# 2) Set the variable ROKU_DEV_TARGET in your environment to the IP 
+#    address of your Roku box. (e.g. export ROKU_DEV_TARGET=192.168.1.1.
+#    Set in your this variable in your shell startup (e.g. .bashrc)
+##########################################################################  
+PKGREL = ./packages
+ZIPREL = ./zips
+SOURCEREL = ./source
+
+.PHONY: all $(APPNAME)
+
+$(APPNAME): 
+	@echo "*** Creating $(APPNAME).zip ***"
+
+	@echo "  >> removing old application zip $(ZIPREL)/$(APPNAME).zip"
+	@if [ -e "$(ZIPREL)/$(APPNAME).zip" ]; \
+	then \
+		rm  $(ZIPREL)/$(APPNAME).zip; \
+	fi
+
+	@echo "  >> creating destination directory $(ZIPREL)"	
+	@if [ ! -d $(ZIPREL) ]; \
+	then \
+		mkdir -p $(ZIPREL); \
+	fi
+
+	@echo "  >> setting directory permissions for $(ZIPREL)"
+	@if [ ! -w $(ZIPREL) ]; \
+	then \
+		chmod 755 $(ZIPREL); \
+	fi
+
+# zip .png files without compression
+# do not zip up Makefiles, or any files ending with '~'
+	@echo "  >> creating application zip $(ZIPREL)/$(APPNAME).zip"	
+	@if [ -d $(SOURCEREL)/ ]; \
+	then \
+		(zip -0 -r "$(ZIPREL)/$(APPNAME).zip" . -i \*.png $(ZIP_EXCLUDE)); \
+		(zip -9 -r "$(ZIPREL)/$(APPNAME).zip" . -x \*~ -x \*.png -x Makefile $(ZIP_EXCLUDE)); \
+	else \
+		echo "Source for $(APPNAME) not found at $(SOURCEREL)/"; \
+	fi
+
+	@echo "*** developer zip  $(APPNAME) complete ***"
+
+install: $(APPNAME)
+	@echo "Installing $(APPNAME) to host $(ROKU_DEV_TARGET)"
+	@curl -s -S -F "mysubmit=Install" -F "archive=@$(ZIPREL)/$(APPNAME).zip" -F "passwd=" http://$(ROKU_DEV_TARGET)/plugin_install | grep "<font color" | sed "s/<font color=\"red\">//"
+
+pkg: install
+	@echo "*** Creating Package ***"
+
+	@echo "  >> creating destination directory $(PKGREL)"	
+	@if [ ! -d $(PKGREL) ]; \
+	then \
+		mkdir -p $(PKGREL); \
+	fi
+
+	@echo "  >> setting directory permissions for $(PKGREL)"
+	@if [ ! -w $(PKGREL) ]; \
+	then \
+		chmod 755 $(PKGREL); \
+	fi
+
+	@echo "Packaging  $(APPNAME) on host $(ROKU_DEV_TARGET)"
+	@read -p "Password: " REPLY ; echo $$REPLY | xargs -i curl -s -S -Fmysubmit=Package -Fapp_name=$(APPNAME)/$(VERSION) -Fpasswd={} -Fpkg_time=`expr \`date +%s\` \* 1000` "http://$(ROKU_DEV_TARGET)/plugin_package" | grep '^<font face=' | sed 's/.*href=\"\([^\"]*\)\".*/\1/' | sed 's#pkgs/##' | xargs -i curl -s -S -o $(PKGREL)/$(APPNAME)_{} http://$(ROKU_DEV_TARGET)/pkgs/{}
+
+	@echo "*** Package  $(APPNAME) complete ***" 
+remove:
+	@echo "Removing $(APPNAME) from host $(ROKU_DEV_TARGET)"
+	@curl -s -S -F "mysubmit=Delete" -F "archive=" -F "passwd=" http://$(ROKU_DEV_TARGET)/plugin_install | grep "<font color" | sed "s/<font color=\"red\">//"

data/examples/roku/manifest

@@ -0,0 +1,9 @@
+title=Syndicate
+subtitle=
+mm_icon_focus_hd=pkg:/images/logo-hd.jpg
+mm_icon_side_hd=pkg:/images/logo-hd.jpg
+mm_icon_focus_sd=pkg:/images/logo-sd.jpg
+mm_icon_side_sd=pkg:/images/logo-sd.jpg
+major_version=1
+minor_version=0
+build_version=00001

data/examples/roku/source/appMain.brs

@@ -0,0 +1,13 @@
+Sub Main()
+
+    'initialize theme attributes like titles, logos and overhang color
+    initTheme()
+    
+    'So the app launches right away instead of waiting to parse xml
+    screenFacade = CreateObject("roPosterScreen")
+    screenFacade.show()
+
+    'prepare the screen for display and get ready to begin  
+    url = "http://10.0.1.5:3000/d/Users/bmckim/Desktop/"
+    showPosterScreen(prePosterScreen("", ""), url)
+End Sub

data/examples/roku/source/lib/generalDlgs.brs

@@ -0,0 +1,150 @@
+'**********************************************************
+'**  Video Player Example Application - General Dialogs 
+'**  November 2009
+'**  Copyright (c) 2009 Roku Inc. All Rights Reserved.
+'**********************************************************
+
+'******************************************************
+'Show basic message dialog without buttons
+'Dialog remains up until caller releases the returned object
+'******************************************************
+
+Function ShowPleaseWait(title As dynamic, text As dynamic) As Object
+    if not isstr(title) title = ""
+    if not isstr(text) text = ""
+
+    port = CreateObject("roMessagePort")
+    dialog = invalid
+
+    'the OneLineDialog renders a single line of text better
+    'than the MessageDialog.
+    if text = ""
+        dialog = CreateObject("roOneLineDialog")
+    else
+        dialog = CreateObject("roMessageDialog")
+        dialog.SetText(text)
+    endif
+
+    dialog.SetMessagePort(port)
+
+    dialog.SetTitle(title)
+    dialog.ShowBusyAnimation()
+    dialog.Show()
+    return dialog
+End Function
+
+'******************************************************
+'Retrieve text for connection failed
+'******************************************************
+
+Function GetConnectionFailedText() as String
+    return "We were unable to connect to the service.  Please try again in a few minutes."
+End Function
+
+'******************************************************
+'Show connection error dialog
+'
+'Parameter: retry t/f - offer retry option
+'Return 0 = retry, 1 = back
+'******************************************************
+
+Function ShowConnectionFailedRetry() as dynamic
+    Dbg("Connection Failed Retry")
+    title = "Can't connect to video service"
+    text  = GetConnectionFailedText()
+    return ShowDialog2Buttons(title, text, "try again", "back")
+End Function
+
+'******************************************************
+'Show Amzon connection error dialog with only an OK button
+'******************************************************
+
+Sub ShowConnectionFailed()
+    Dbg("Connection Failed")
+    title = "Can't connect to video service"
+    text  = GetConnectionFailedText()
+    ShowErrorDialog(text, title)
+End Sub
+
+'******************************************************
+'Show error dialog with OK button
+'******************************************************
+
+Sub ShowErrorDialog(text As dynamic, title=invalid as dynamic)
+    if not isstr(text) text = "Unspecified error"
+    if not isstr(title) title = ""
+    ShowDialog1Button(title, text, "Done")
+End Sub
+
+'******************************************************
+'Show 1 button dialog
+'Return: nothing
+'******************************************************
+
+Sub ShowDialog1Button(title As dynamic, text As dynamic, but1 As String)
+    if not isstr(title) title = ""
+    if not isstr(text) text = ""
+
+    Dbg("DIALOG1: ", title + " - " + text)
+
+    port = CreateObject("roMessagePort")
+    dialog = CreateObject("roMessageDialog")
+    dialog.SetMessagePort(port)
+
+    dialog.SetTitle(title)
+    dialog.SetText(text)
+    dialog.AddButton(0, but1)
+    dialog.Show()
+
+    while true
+        dlgMsg = wait(0, dialog.GetMessagePort())
+
+        if type(dlgMsg) = "roMessageDialogEvent"
+            if dlgMsg.isScreenClosed()
+                print "Screen closed"
+                return
+            else if dlgMsg.isButtonPressed()
+                print "Button pressed: "; dlgMsg.GetIndex(); " " dlgMsg.GetData()
+                return
+            endif
+        endif
+    end while
+End Sub
+
+'******************************************************
+'Show 2 button dialog
+'Return: 0=first button or screen closed, 1=second button
+'******************************************************
+
+Function ShowDialog2Buttons(title As dynamic, text As dynamic, but1 As String, but2 As String) As Integer
+    if not isstr(title) title = ""
+    if not isstr(text) text = ""
+
+    Dbg("DIALOG2: ", title + " - " + text)
+
+    port = CreateObject("roMessagePort")
+    dialog = CreateObject("roMessageDialog")
+    dialog.SetMessagePort(port)
+
+    dialog.SetTitle(title)
+    dialog.SetText(text)
+    dialog.AddButton(0, but1)
+    dialog.AddButton(1, but2)
+    dialog.Show()
+
+    while true
+        dlgMsg = wait(0, dialog.GetMessagePort())
+
+        if type(dlgMsg) = "roMessageDialogEvent"
+            if dlgMsg.isScreenClosed()
+                print "Screen closed"
+                dialog = invalid
+                return 0
+            else if dlgMsg.isButtonPressed()
+                print "Button pressed: "; dlgMsg.GetIndex(); " " dlgMsg.GetData()
+                dialog = invalid
+                return dlgMsg.GetIndex()
+            endif
+        endif
+    end while
+End Function

data/examples/roku/source/lib/generalUtils.brs

@@ -0,0 +1,681 @@
+'**********************************************************
+'**  Video Player Example Application - General Utilities 
+'**  November 2009
+'**  Copyright (c) 2009 Roku Inc. All Rights Reserved.
+'**********************************************************
+
+'******************************************************
+'Registry Helper Functions
+'******************************************************
+Function RegRead(key, section=invalid)
+    if section = invalid then section = "Default"
+    sec = CreateObject("roRegistrySection", section)
+    if sec.Exists(key) then return sec.Read(key)
+    return invalid
+End Function
+
+Function RegWrite(key, val, section=invalid)
+    if section = invalid then section = "Default"
+    sec = CreateObject("roRegistrySection", section)
+    sec.Write(key, val)
+    sec.Flush() 'commit it
+End Function
+
+Function RegDelete(key, section=invalid)
+    if section = invalid then section = "Default"
+    sec = CreateObject("roRegistrySection", section)
+    sec.Delete(key)
+    sec.Flush()
+End Function
+
+
+'******************************************************
+'Insertion Sort
+'Will sort an array directly, or use a key function
+'******************************************************
+Sub Sort(A as Object, key=invalid as dynamic)
+
+    if type(A)<>"roArray" then return
+
+    if (key=invalid) then
+        for i = 1 to A.Count()-1
+            value = A[i]
+            j = i-1
+            while j>= 0 and A[j] > value
+                A[j + 1] = A[j]
+                j = j-1
+            end while
+            A[j+1] = value
+        next
+
+    else
+        if type(key)<>"Function" then return
+        for i = 1 to A.Count()-1
+            valuekey = key(A[i])
+            value = A[i]
+            j = i-1
+            while j>= 0 and key(A[j]) > valuekey
+                A[j + 1] = A[j]
+                j = j-1
+            end while
+            A[j+1] = value
+        next
+
+    end if
+
+End Sub
+
+
+'******************************************************
+'Convert anything to a string
+'
+'Always returns a string
+'******************************************************
+Function tostr(any)
+    ret = AnyToString(any)
+    if ret = invalid ret = type(any)
+    if ret = invalid ret = "unknown" 'failsafe
+    return ret
+End Function
+
+
+'******************************************************
+'Get a " char as a string
+'******************************************************
+Function Quote()
+    q$ = Chr(34)
+    return q$
+End Function
+
+
+'******************************************************
+'isxmlelement
+'
+'Determine if the given object supports the ifXMLElement interface
+'******************************************************
+Function isxmlelement(obj as dynamic) As Boolean
+    if obj = invalid return false
+    if GetInterface(obj, "ifXMLElement") = invalid return false
+    return true
+End Function
+
+
+'******************************************************
+'islist
+'
+'Determine if the given object supports the ifList interface
+'******************************************************
+Function islist(obj as dynamic) As Boolean
+    if obj = invalid return false
+    if GetInterface(obj, "ifArray") = invalid return false
+    return true
+End Function
+
+
+'******************************************************
+'isint
+'
+'Determine if the given object supports the ifInt interface
+'******************************************************
+Function isint(obj as dynamic) As Boolean
+    if obj = invalid return false
+    if GetInterface(obj, "ifInt") = invalid return false
+    return true
+End Function
+
+'******************************************************
+' validstr
+'
+' always return a valid string. if the argument is
+' invalid or not a string, return an empty string
+'******************************************************
+Function validstr(obj As Dynamic) As String
+    if isnonemptystr(obj) return obj
+    return ""
+End Function
+
+
+'******************************************************
+'isstr
+'
+'Determine if the given object supports the ifString interface
+'******************************************************
+Function isstr(obj as dynamic) As Boolean
+    if obj = invalid return false
+    if GetInterface(obj, "ifString") = invalid return false
+    return true
+End Function
+
+
+'******************************************************
+'isnonemptystr
+'
+'Determine if the given object supports the ifString interface
+'and returns a string of non zero length
+'******************************************************
+Function isnonemptystr(obj)
+    if isnullorempty(obj) return false
+    return true
+End Function
+
+
+'******************************************************
+'isnullorempty
+'
+'Determine if the given object is invalid or supports
+'the ifString interface and returns a string of non zero length
+'******************************************************
+Function isnullorempty(obj)
+    if obj = invalid return true
+    if not isstr(obj) return true
+    if Len(obj) = 0 return true
+    return false
+End Function
+
+
+'******************************************************
+'isbool
+'
+'Determine if the given object supports the ifBoolean interface
+'******************************************************
+Function isbool(obj as dynamic) As Boolean
+    if obj = invalid return false
+    if GetInterface(obj, "ifBoolean") = invalid return false
+    return true
+End Function
+
+
+'******************************************************
+'isfloat
+'
+'Determine if the given object supports the ifFloat interface
+'******************************************************
+Function isfloat(obj as dynamic) As Boolean
+    if obj = invalid return false
+    if GetInterface(obj, "ifFloat") = invalid return false
+    return true
+End Function
+
+
+'******************************************************
+'strtobool
+'
+'Convert string to boolean safely. Don't crash
+'Looks for certain string values
+'******************************************************
+Function strtobool(obj As dynamic) As Boolean
+    if obj = invalid return false
+    if type(obj) <> "roString" return false
+    o = strTrim(obj)
+    o = Lcase(o)
+    if o = "true" return true
+    if o = "t" return true
+    if o = "y" return true
+    if o = "1" return true
+    return false
+End Function
+
+
+'******************************************************
+'itostr
+'
+'Convert int to string. This is necessary because
+'the builtin Stri(x) prepends whitespace
+'******************************************************
+Function itostr(i As Integer) As String
+    str = Stri(i)
+    return strTrim(str)
+End Function
+
+
+'******************************************************
+'Get remaining hours from a total seconds
+'******************************************************
+Function hoursLeft(seconds As Integer) As Integer
+    hours% = seconds / 3600
+    return hours%
+End Function
+
+
+'******************************************************
+'Get remaining minutes from a total seconds
+'******************************************************
+Function minutesLeft(seconds As Integer) As Integer
+    hours% = seconds / 3600
+    mins% = seconds - (hours% * 3600)
+    mins% = mins% / 60
+    return mins%
+End Function
+
+
+'******************************************************
+'Pluralize simple strings like "1 minute" or "2 minutes"
+'******************************************************
+Function Pluralize(val As Integer, str As String) As String
+    ret = itostr(val) + " " + str
+    if val <> 1 ret = ret + "s"
+    return ret
+End Function
+
+
+'******************************************************
+'Trim a string
+'******************************************************
+Function strTrim(str As String) As String
+    st=CreateObject("roString")
+    st.SetString(str)
+    return st.Trim()
+End Function
+
+
+'******************************************************
+'Tokenize a string. Return roList of strings
+'******************************************************
+Function strTokenize(str As String, delim As String) As Object
+    st=CreateObject("roString")
+    st.SetString(str)
+    return st.Tokenize(delim)
+End Function
+
+
+'******************************************************
+'Replace substrings in a string. Return new string
+'******************************************************
+Function strReplace(basestr As String, oldsub As String, newsub As String) As String
+    newstr = ""
+
+    i = 1
+    while i <= Len(basestr)
+        x = Instr(i, basestr, oldsub)
+        if x = 0 then
+            newstr = newstr + Mid(basestr, i)
+            exit while
+        endif
+
+        if x > i then
+            newstr = newstr + Mid(basestr, i, x-i)
+            i = x
+        endif
+
+        newstr = newstr + newsub
+        i = i + Len(oldsub)
+    end while
+
+    return newstr
+End Function
+
+
+'******************************************************
+'Get all XML subelements by name
+'
+'return list of 0 or more elements
+'******************************************************
+Function GetXMLElementsByName(xml As Object, name As String) As Object
+    list = CreateObject("roArray", 100, true)
+    if islist(xml.GetBody()) = false return list
+
+    for each e in xml.GetBody()
+        if e.GetName() = name then
+            list.Push(e)
+        endif
+    next
+
+    return list
+End Function
+
+
+'******************************************************
+'Get all XML subelement's string bodies by name
+'
+'return list of 0 or more strings
+'******************************************************
+Function GetXMLElementBodiesByName(xml As Object, name As String) As Object
+    list = CreateObject("roArray", 100, true)
+    if islist(xml.GetBody()) = false return list
+
+    for each e in xml.GetBody()
+        if e.GetName() = name then
+            b = e.GetBody()
+            if type(b) = "roString" list.Push(b)
+        endif
+    next
+
+    return list
+End Function
+
+
+'******************************************************
+'Get first XML subelement by name
+'
+'return invalid if not found, else the element
+'******************************************************
+Function GetFirstXMLElementByName(xml As Object, name As String) As dynamic
+    if islist(xml.GetBody()) = false return invalid
+
+    for each e in xml.GetBody()
+        if e.GetName() = name return e
+    next
+
+    return invalid
+End Function
+
+
+'******************************************************
+'Get first XML subelement's string body by name
+'
+'return invalid if not found, else the subelement's body string
+'******************************************************
+Function GetFirstXMLElementBodyStringByName(xml As Object, name As String) As dynamic
+    e = GetFirstXMLElementByName(xml, name)
+    if e = invalid return invalid
+    if type(e.GetBody()) <> "roString" return invalid
+    return e.GetBody()
+End Function
+
+
+'******************************************************
+'Get the xml element as an integer
+'
+'return invalid if body not a string, else the integer as converted by strtoi
+'******************************************************
+Function GetXMLBodyAsInteger(xml As Object) As dynamic
+    if type(xml.GetBody()) <> "roString" return invalid
+    return strtoi(xml.GetBody())
+End Function
+
+
+'******************************************************
+'Parse a string into a roXMLElement
+'
+'return invalid on error, else the xml object
+'******************************************************
+Function ParseXML(str As String) As dynamic
+    if str = invalid return invalid
+    xml=CreateObject("roXMLElement")
+    if not xml.Parse(str) return invalid
+    return xml
+End Function
+
+
+'******************************************************
+'Get XML sub elements whose bodies are strings into an associative array.
+'subelements that are themselves parents are skipped
+'namespace :'s are replaced with _'s
+'
+'So an XML element like...
+'
+'<blah>
+'    <This>abcdefg</This>
+'    <Sucks>xyz</Sucks>
+'    <sub>
+'        <sub2>
+'        ....
+'        </sub2>
+'    </sub>
+'    <ns:doh>homer</ns:doh>
+'</blah>
+'
+'returns an AA with:
+'
+'aa.This = "abcdefg"
+'aa.Sucks = "xyz"
+'aa.ns_doh = "homer"
+'
+'return an empty AA if nothing found
+'******************************************************
+Sub GetXMLintoAA(xml As Object, aa As Object)
+    for each e in xml.GetBody()
+        body = e.GetBody()
+        if type(body) = "roString" then
+            name = e.GetName()
+            name = strReplace(name, ":", "_")
+            aa.AddReplace(name, body)
+        endif
+    next
+End Sub
+
+
+'******************************************************
+'Walk an AA and print it
+'******************************************************
+Sub PrintAA(aa as Object)
+    print "---- AA ----"
+    if aa = invalid
+        print "invalid"
+        return
+    else
+        cnt = 0
+        for each e in aa
+            x = aa[e]
+            PrintAny(0, e + ": ", aa[e])
+            cnt = cnt + 1
+        next
+        if cnt = 0
+            PrintAny(0, "Nothing from for each. Looks like :", aa)
+        endif
+    endif
+    print "------------"
+End Sub
+
+
+'******************************************************
+'Walk a list and print it
+'******************************************************
+Sub PrintList(list as Object)
+    print "---- list ----"
+    PrintAnyList(0, list)
+    print "--------------"
+End Sub
+
+
+'******************************************************
+'Print an associativearray
+'******************************************************
+Sub PrintAnyAA(depth As Integer, aa as Object)
+    for each e in aa
+        x = aa[e]
+        PrintAny(depth, e + ": ", aa[e])
+    next
+End Sub
+
+
+'******************************************************
+'Print a list with indent depth
+'******************************************************
+Sub PrintAnyList(depth As Integer, list as Object)
+    i = 0
+    for each e in list
+        PrintAny(depth, "List(" + itostr(i) + ")= ", e)
+        i = i + 1
+    next
+End Sub
+
+
+'******************************************************
+'Print anything
+'******************************************************
+Sub PrintAny(depth As Integer, prefix As String, any As Dynamic)
+    if depth >= 10
+        print "**** TOO DEEP " + itostr(5)
+        return
+    endif
+    prefix = string(depth*2," ") + prefix
+    depth = depth + 1
+    str = AnyToString(any)
+    if str <> invalid
+        print prefix + str
+        return
+    endif
+    if type(any) = "roAssociativeArray"
+        print prefix + "(assocarr)..."
+        PrintAnyAA(depth, any)
+        return
+    endif
+    if islist(any) = true
+        print prefix + "(list of " + itostr(any.Count()) + ")..."
+        PrintAnyList(depth, any)
+        return
+    endif
+
+    print prefix + "?" + type(any) + "?"
+End Sub
+
+
+'******************************************************
+'Print an object as a string for debugging. If it is
+'very long print the first 500 chars.
+'******************************************************
+Sub Dbg(pre As Dynamic, o=invalid As Dynamic)
+    p = AnyToString(pre)
+    if p = invalid p = ""
+    if o = invalid o = ""
+    s = AnyToString(o)
+    if s = invalid s = "???: " + type(o)
+    if Len(s) > 4000
+        s = Left(s, 4000)
+    endif
+    print p + s
+End Sub
+
+
+'******************************************************
+'Try to convert anything to a string. Only works on simple items.
+'
+'Test with this script...
+'
+'    s$ = "yo1"
+'    ss = "yo2"
+'    i% = 111
+'    ii = 222
+'    f! = 333.333
+'    ff = 444.444
+'    d# = 555.555
+'    dd = 555.555
+'    bb = true
+'
+'    so = CreateObject("roString")
+'    so.SetString("strobj")
+'    io = CreateObject("roInt")
+'    io.SetInt(666)
+'    tm = CreateObject("roTimespan")
+'
+'    Dbg("", s$ ) 'call the Dbg() function which calls AnyToString()
+'    Dbg("", ss )
+'    Dbg("", "yo3")
+'    Dbg("", i% )
+'    Dbg("", ii )
+'    Dbg("", 2222 )
+'    Dbg("", f! )
+'    Dbg("", ff )
+'    Dbg("", 3333.3333 )
+'    Dbg("", d# )
+'    Dbg("", dd )
+'    Dbg("", so )
+'    Dbg("", io )
+'    Dbg("", bb )
+'    Dbg("", true )
+'    Dbg("", tm )
+'
+'try to convert an object to a string. return invalid if can't
+'******************************************************
+Function AnyToString(any As Dynamic) As dynamic
+    if any = invalid return "invalid"
+    if isstr(any) return any
+    if isint(any) return itostr(any)
+    if isbool(any)
+        if any = true return "true"
+        return "false"
+    endif
+    if isfloat(any) return Str(any)
+    if type(any) = "roTimespan" return itostr(any.TotalMilliseconds()) + "ms"
+    return invalid
+End Function
+
+
+'******************************************************
+'Walk an XML tree and print it
+'******************************************************
+Sub PrintXML(element As Object, depth As Integer)
+    print tab(depth*3);"Name: [" + element.GetName() + "]"
+    if invalid <> element.GetAttributes() then
+        print tab(depth*3);"Attributes: ";
+        for each a in element.GetAttributes()
+            print a;"=";left(element.GetAttributes()[a], 4000);
+            if element.GetAttributes().IsNext() then print ", ";
+        next
+        print
+    endif
+
+    if element.GetBody()=invalid then
+        ' print tab(depth*3);"No Body"
+    else if type(element.GetBody())="roString" then
+        print tab(depth*3);"Contains string: [" + left(element.GetBody(), 4000) + "]"
+    else
+        print tab(depth*3);"Contains list:"
+        for each e in element.GetBody()
+            PrintXML(e, depth+1)
+        next
+    endif
+    print
+end sub
+
+
+'******************************************************
+'Dump the bytes of a string
+'******************************************************
+Sub DumpString(str As String)
+    print "DUMP STRING"
+    print "---------------------------"
+    print str
+    print "---------------------------"
+    l = Len(str)-1
+    i = 0
+    for i = 0 to l
+        c = Mid(str, i)
+        val = Asc(c)
+        print itostr(val)
+    next
+    print "---------------------------"
+End Sub
+
+
+'******************************************************
+'Validate parameter is the correct type
+'******************************************************
+Function validateParam(param As Object, paramType As String,functionName As String, allowInvalid = false) As Boolean
+    if type(param) = paramType then
+        return true
+    endif
+
+    if allowInvalid = true then
+        if type(param) = invalid then
+            return true
+        endif
+    endif
+
+    print "invalid parameter of type "; type(param); " for "; paramType; " in function "; functionName
+    return false
+End Function
+
+'**********************************************************
+'**  Video Player Example Application - DeviceInfo 
+'**  November 2009
+'**  Copyright (c) 2009 Roku Inc. All Rights Reserved.
+'**********************************************************
+
+'******************************************************
+'Get our device version
+'******************************************************
+
+Function GetDeviceVersion()
+    return CreateObject("roDeviceInfo").GetVersion()
+End Function
+
+'******************************************************
+'Get our serial number
+'******************************************************
+
+Function GetDeviceESN()
+    return CreateObject("roDeviceInfo").GetDeviceUniqueId()
+End Function
+