commit d7b59e23a16e4589be64be632c4b479366ce0eab
parent f0fc1dc3199cda16b5173b4eb7a84dd3191e7644
Author: Brian C. Lane <bcl@brianlane.com>
Date: Sat, 19 Nov 2022 10:47:31 -0800
Remove old non-SceneGraph code
Diffstat:
5 files changed, 0 insertions(+), 737 deletions(-)
diff --git a/HMS/source/appMain.brs b/HMS/source/appMain.brs
@@ -1,55 +0,0 @@
-'********************************************************************
-'** Home Media Server Application - Main
-'** Copyright (c) 2010-2013 Brian C. Lane All Rights Reserved.
-'********************************************************************
-Sub OldMain()
- 'initialize theme attributes like titles, logos and overhang color
- initTheme()
-
- ' Get server url and make sure it is valid
- valid_dir = false
- force_edit = false
- while not valid_dir
- valid_dir = checkServerUrl(force_edit)
- dir = getDirectoryListing( "http://"+RegRead("ServerURL") )
- if dir = invalid then
- force_edit = true
- valid_dir = false
- end if
- end while
-
- ' Check to see if the server supports keystore
- has_keystore = isUrlValid("http://"+RegRead("ServerURL")+"/keystore/version")
-
- roGridMediaServer("http://"+RegRead("ServerURL"), has_keystore)
-' TODO NEED TO FIX SETUP
-' roPosterMediaServer("http://"+RegRead("ServerURL"), has_keystore)
-End Sub
-
-
-'*************************************************************
-'** Set the configurable theme attributes for the application
-'**
-'** Configure the custom overhang and Logo attributes
-'** Theme attributes affect the branding of the application
-'** and are artwork, colors and offsets specific to the app
-'*************************************************************
-Sub initTheme()
-
- app = CreateObject("roAppManager")
- theme = CreateObject("roAssociativeArray")
-
- theme.OverhangOffsetSD_X = "72"
- theme.OverhangOffsetSD_Y = "31"
- theme.OverhangSliceSD = "pkg:/images/Overhang_Background_SD.png"
- theme.OverhangLogoSD = "pkg:/images/Overhang_Logo_SD.png"
-
- theme.OverhangOffsetHD_X = "125"
- theme.OverhangOffsetHD_Y = "35"
- theme.OverhangSliceHD = "pkg:/images/Overhang_Background_HD.png"
- theme.OverhangLogoHD = "pkg:/images/Overhang_Logo_HD.png"
-
- app.SetTheme(theme)
-
-End Sub
-
diff --git a/HMS/source/appMediaServer.brs b/HMS/source/appMediaServer.brs
@@ -1,439 +0,0 @@
-'********************************************************************
-'** Home Media Server Application - Main
-'** Copyright (c) 2010-2013 Brian C. Lane All Rights Reserved.
-'********************************************************************
-
-'******************************************************
-'** Display a roGridScreen of the available media
-'******************************************************
-Function roGridMediaServer( url As String, has_keystore As Boolean ) As Object
- print "url: ";url
- print "has_keystore: "; has_keystore
-
- port=CreateObject("roMessagePort")
- grid = CreateObject("roGridScreen")
- grid.SetMessagePort(port)
- grid.SetDisplayMode("scale-to-fit")
- grid.SetGridStyle("flat-movie")
-
- categories = getSortedCategoryTitles(url)
- print categories
- grid.SetupLists(categories.Count())
- grid.SetListNames(categories)
- ' Keep track of which rows have been populated
- populated_rows = CreateObject("roArray", categories.Count(), false)
- for i = 0 to categories.Count()-1
- populated_rows[i] = false
- end for
-
- ' Add a utility row (just setup for now)
- utilityRow = getSetupRow(url)
- grid.SetContentList(0, utilityRow)
-
- showTimeBreadcrumb(grid, true)
- grid.Show()
-
- grid.SetFocusedListItem(1, 0)
-
- ' Hold all the movie objects
- screen = CreateObject("roArray", categories.Count(), false)
- screen[0] = "unused"
-
- populated_row = 1
- play_focused = -1
- focus_row = -1
- focus_col = 0
- last_row = -1
- idle_timeout = 30000
- while true
- msg = wait(idle_timeout, port)
- if type(msg) = "roGridScreenEvent" then
- idle_timeout = 30000
-
- ' Only Play to start a video works, none of the others return true
- wasPlayPressed = false
- backPressed = false
- downPressed = false
- if msg.isRemoteKeyPressed() then
- print "key = "; msg.GetIndex()
- if msg.getIndex() = 13 then
- wasPlayPressed = true
- elseif msg.getIndex() = 0 then
- backPressed = true
- elseif msg.getIndex() = 3 then
- downPressed = true
- end if
- end if
-
- if msg.isScreenClosed() then
- return -1
- elseif msg.isListItemFocused() then
- focus_row = msg.getIndex()
- focus_col = msg.getData()
-
- print "row, col = "; focus_row, focus_col
- if focus_row <> last_row then
- last_row = focus_row
-
- ' Here is where we start fetching things for the next/previous rows and columns
- ' focus can skip intermediate rows, need to fill them all in.
- for each i in [focus_row, focus_row+1, focus_row+2, focus_row-1]
- if i > 0 and i < populated_rows.Count() and populated_rows[i] = false then
- grid.SetBreadcrumbText("Loading " + categories[i], "")
- metadata = getCategoryMetadata(url, categories[i])
- screen[i] = metadata
- grid.setContentList(i, metadata)
- populated_rows[i] = true
- last_col = getFocusedItem(url, has_keystore, categories[i], metadata.Count())
- grid.SetListOffset(i, last_col)
- end if
- end for
- showTimeBreadcrumb(grid, true)
- end if
- elseif msg.isListItemSelected() or wasPlayPressed then
- if focus_row = 0 and focus_col = 0 then
- checkServerUrl(true)
- elseif focus_row = 0 then
- ' Select row to jump to A-Z (1-26)
- print "col = "; focus_col
- search_chr = Chr(64+focus_col)
- ' Find the first category that starts with this letter (case-insensitive)
- for i = 1 to categories.Count()-1
- first = UCase(Left(categories[i], 1))
- if first >= search_chr then
- last_col = getFocusedItem(url, has_keystore, categories[i], metadata.Count())
- grid.SetFocusedListitem(i, focus_col)
- exit for
- end if
- end for
- else
- print "row, col = "; focus_row, focus_col
- if has_keystore = true then
- setKeyValue(url, categories[focus_row], tostr(focus_col))
- end if
- result = playMovie(screen[focus_row][focus_col], url, has_keystore)
- if result = true and focus_col < screen[focus_row].Count() then
- ' Advance to the next video and save it
- grid.SetFocusedListitem(focus_row, focus_col+1)
- if has_keystore = true then
- setKeyValue(url, categories[focus_row], tostr(focus_col+1))
- end if
- end if
- end if
- elseif wasDownPressed then
- print "down row = "; focus_row
- print "last row = "; categories.Count()
- if focus_row = categories.Count() then
- print "need to wrap back to top"
- end if
- else
- print msg
- endif
- else if msg = invalid then
- showTimeBreadcrumb(grid, true)
-
- ' If the screen has been idle for 30 seconds go and load an un-populated row
- for i = 1 to populated_rows.Count()
- if populated_rows[i] = false then
- print "Idle, populating "; categories[i]
- grid.SetBreadcrumbText("Loading " + categories[i], "")
- metadata = getCategoryMetadata(url, categories[i])
- screen[i] = metadata
- grid.setContentList(i, metadata)
- populated_rows[i] = true
- showTimeBreadcrumb(grid, true)
- last_col = getFocusedItem(url, has_keystore, categories[i], metadata.Count())
- grid.SetListOffset(i, last_col)
-
- ' Speed up loading while it remains idle
- if idle_timeout > 5000 then
- idle_timeout = idle_timeout - 5000
- end if
- exit for
- end if
- end for
- end if
- end while
-End Function
-
-'******************************************************
-'** Display a scrolling grid of everything on the server
-'******************************************************
-Function roPosterMediaServer( url As String, has_keystore As Boolean ) As Object
- print "url: ";url
- print "has_keystore: "; has_keystore
-
- port = CreateObject("roMessagePort")
- screen = CreateObject("roPosterScreen")
- screen.SetMessagePort(port)
- screen.SetListStyle("arced-portrait")
- screen.setListDisplayMode("scale-to-fit")
-
- ' Build list of Category Names from the top level directories
- listing = getDirectoryListing(url)
- if listing = invalid then
- print "Failed to get directory listing for ";url
- return invalid
- end if
- categories = displayFiles(listing, {}, true)
- Sort(categories, function(k)
- return LCase(k[0])
- end function)
- titles = catTitles(categories)
- screen.SetListNames(titles)
- max_titles = titles.Count()-1
-
- screen.SetFocusToFilterBanner(true)
- last_title = getFocusedItem(url, has_keystore, "filter_pos", max_titles)
- screen.SetFocusedList(last_title)
- showTimeBreadcrumb(screen, true)
- screen.Show()
-
- cache = CreateObject("roAssociativeArray")
-
- ' Load the selected title
- metadata = getCategoryMetadata(url, categories[last_title][0])
- if metadata.Count() > 0 then
- cache.AddReplace(tostr(last_title), metadata)
- screen.SetContentList(metadata)
- screen.SetFocusedListItem(getFocusedItem(url, has_keystore, titles[last_title], metadata.Count()))
- end if
-
- play_focus = -1
- setup_selected = false
- while true
- msg = wait(30000, port)
- if type(msg) = "roPosterScreenEvent" then
- if msg.isRemoteKeyPressed() and msg.getIndex() = 13 then
- wasPlayPressed = true
- else
- wasPlayPressed = false
- end if
- if msg.isScreenClosed() then
- return -1
- elseif msg.isListSelected() then
- if msg.GetIndex() = max_titles then
- screen.SetContentList(getSetupRow(url))
- setup_selected = true
- else
- setup_selected = false
- last_title = msg.GetIndex()
- print "selected "; titles[last_title]
-
- ' Save this as the last selected filter position
- if has_keystore = true then
- setKeyValue(url, "filter_pos", tostr(msg.GetIndex()))
- end if
- screen.SetContentList([])
-
- ' Is this cached? If not, clear it and look it up
- if not cache.DoesExist(tostr(last_title)) then
- metadata = getCategoryMetadata(url, categories[last_title][0])
- cache.AddReplace(tostr(last_title), metadata)
- else
- metadata = cache.Lookup(tostr(last_title))
- end if
- screen.SetContentList(metadata)
- screen.SetFocusedListItem(getFocusedItem(url, has_keystore, titles[last_title], metadata.Count()))
- end if
- elseif msg.isListItemSelected() and setup_selected = true then
- checkServerUrl(true)
- screen.SetFocusToFilterBanner(true)
- elseif msg.isListItemFocused() then
- play_focus = msg.getIndex()
- elseif msg.isListItemSelected() or wasPlayPressed then
- print "Focus is on"; play_focus
- if has_keystore = true then
- setKeyValue(url, titles[last_title], tostr(play_focus))
- end if
- movies = screen.GetContentList()
- print movies[play_focus]
- result = playMovie(movies[play_focus], url, has_keystore)
- if result = true and play_focus < movies.Count() then
- ' Advance to the next video and save it
- screen.SetFocusedListItem(play_focus+1)
- if has_keystore = true then
- if play_focus < movies.Count() then
- setKeyValue(url, titles[last_title], tostr(play_focus+1))
- end if
- end if
- end if
- showTimeBreadcrumb(screen, true)
- end if
- else if msg = invalid then
- showTimeBreadcrumb(screen, true)
- endif
- end while
-End Function
-
-'*************************************
-'** Get the utility row (Setup, Search)
-'*************************************
-Function getUtilRow(url As String) As Object
- ' Setup the Search/Setup entries for first row
- search = CreateObject("roArray", 2, true)
- o = CreateObject("roAssociativeArray")
- o.ContentType = "episode"
- o.Title = "Setup"
- o.SDPosterUrl = url+"/Setup-SD.png"
- o.HDPosterUrl = url+"/Setup-HD.png"
- search.Push(o)
-
- o = CreateObject("roAssociativeArray")
- o.ContentType = "episode"
- o.Title = "Search"
- o.SDPosterUrl = url+"/Search-SD.png"
- o.HDPosterUrl = url+"/Search-HD.png"
- search.Push(o)
-
- return search
-End Function
-
-
-'*************************************
-'** Get the Setup row
-'*************************************
-Function getSetupRow(url As String) As Object
- ' Setup the Search
- setup = CreateObject("roArray", 27, true)
- o = CreateObject("roAssociativeArray")
- o.ContentType = "episode"
- o.Title = "Setup"
- o.SDPosterUrl = url+"/Setup-SD.png"
- o.HDPosterUrl = url+"/Setup-HD.png"
- setup.Push(o)
-
- ' Add the A-Z posters
- for i = 0 to 25
- o = CreateObject("roAssociativeArray")
- o.ContentType = "episode"
- o.Title = Chr(Asc("A") + i)
- o.SDPosterUrl = url+"/.icons/" + Chr(Asc("a") + i) + ".jpg"
- o.HDPosterUrl = url+"/.icons/" + Chr(Asc("a") + i) + ".jpg"
- setup.Push(o)
- end for
- return setup
-End Function
-
-
-'********************************
-'** Set breadcrumb to current time
-'********************************
-Function showTimeBreadcrumb(screen As Object, use_ampm As Boolean)
- now = CreateObject("roDateTime")
- now.ToLocalTime()
- hour = now.GetHours()
- if use_ampm then
- if hour < 12 then
- ampm = " AM"
- else
- ampm = " PM"
- if hour > 12 then
- hour = hour - 12
- end if
- end if
- end if
- hour = tostr(hour)
- minutes = now.GetMinutes()
- if minutes < 10 then
- minutes = "0"+tostr(minutes)
- else
- minutes = tostr(minutes)
- end if
- bc = now.AsDateString("short-month-short-weekday")+" "+hour+":"+minutes+ampm
- screen.SetBreadcrumbText(bc, "")
-End Function
-
-'*************************************
-'** Get the last position for the movie
-'*************************************
-Function getLastPosition(title As String, url As String, has_keystore As Boolean) As Integer
- ' use movie.Title as the filename
- last_pos = ReadAsciiFile("tmp:/"+title)
- if last_pos <> "" then
- return last_pos.toint()
- end if
- ' No position stored on local filesystem, query keystore
- if has_keystore = true then
- last_pos = getKeyValue(url, title)
- if last_pos <> "" then
- return last_pos.toint()
- end if
- end if
- return 0
-End Function
-
-'******************************************************
-'** Play the video using the data from the movie
-'** metadata object passed to it
-'******************************************************
-Sub playMovie(movie As Object, url As String, has_keystore As Boolean) As Boolean
- p = CreateObject("roMessagePort")
- video = CreateObject("roVideoScreen")
- video.setMessagePort(p)
- video.SetPositionNotificationPeriod(15)
-
- movie.PlayStart = getLastPosition(movie.Title, url, has_keystore)
- video.SetContent(movie)
- video.show()
-
- last_pos = 0
- while true
- msg = wait(0, video.GetMessagePort())
- if type(msg) = "roVideoScreenEvent"
- if msg.isScreenClosed() then 'ScreenClosed event
- exit while
- else if msg.isPlaybackPosition() then
- last_pos = msg.GetIndex()
- WriteAsciiFile("tmp:/"+movie.Title, tostr(last_pos))
- if has_keystore = true then
- setKeyValue(url, movie.Title, tostr(last_pos))
- end if
- else if msg.isfullresult() then
- DeleteFile("tmp:/"+movie.Title)
- if has_keystore = true then
- setKeyValue(url, movie.Title, "")
- end if
- return true
- else if msg.isRequestFailed() then
- print "play failed: "; msg.GetMessage()
- else
- print "Unknown event: "; msg.GetType(); " msg: "; msg.GetMessage()
- end if
- end if
- end while
-
- return false
-End Sub
-
-'******************************************************
-'** Check to see if a description file (.txt) exists
-'** and read it into a string.
-'** And if it is missing return ""
-'******************************************************
-Function getDescription(url As String)
- http = CreateObject("roUrlTransfer")
- http.SetUrl(url)
- resp = http.GetToString()
-
- if resp <> invalid then
- return resp
- end if
- return ""
-End Function
-
-'******************************************************
-' Get the last focused item for a category
-' or return 0 if there is no keystore or an error
-'******************************************************
-Function getFocusedItem(url As String, has_keystore As Boolean, category As String, max_items As Integer) As Integer
- if has_keystore = true then
- focus_pos = getKeyValue(url, category)
- if focus_pos <> "" and focus_pos.toint() < max_items then
- print "category ";category;" focus is ";focus_pos.toint()
- return focus_pos.toint()
- end if
- end if
- print "category ";category;" focus is 0"
- return 0
-End Function
diff --git a/HMS/source/deviceInfo.brs b/HMS/source/deviceInfo.brs
@@ -1,21 +0,0 @@
-'**********************************************************
-'** 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
diff --git a/HMS/source/generalDlgs.brs b/HMS/source/generalDlgs.brs
@@ -1,150 +0,0 @@
-'**********************************************************
-'** 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
diff --git a/HMS/source/searchScreen.brs b/HMS/source/searchScreen.brs
@@ -1,72 +0,0 @@
-'********************************************************************
-'** Home Media Server Application - Main
-'** Copyright (c) 2013 Brian C. Lane All Rights Reserved.
-'********************************************************************
-
-'********************************************************************
-'** Display search string
-'********************************************************************
-Function searchScreen(screenItems As Object) As Object
-' screenItems is the double roArray of the screen objects. First row is the
-' search row, so ignore it.
-
- port = CreateObject("roMessagePort")
- screen = CreateObject("roSearchScreen")
- screen.SetMessagePort(port)
- screen.SetSearchTermHeaderText("Suggestions:")
- screen.SetSearchButtonText("search")
- screen.SetClearButtonEnabled(false)
-
- screen.Show()
-
- suggestions = invalid
- while true
- msg = wait(0, screen.GetMessagePort())
- if type(msg) = "roSearchScreenEvent" then
- if msg.isScreenClosed()
- return invalid
- else if msg.isPartialResult() then
- print "partial search: "; msg.GetMessage()
- suggestions = getSuggestions(screenItems, msg.GetMessage())
- terms = getTitles(suggestions)
- screen.SetSearchTerms(terms)
- else if msg.isFullResult()
- print "full search: "; msg.GetMessage()
- return suggestions
- else
- print "Unknown event: "; msg.GetType(); " msg: ";sg.GetMessage()
- end if
- end if
- end while
-End Function
-
-'********************************************************************
-'** Return an array of suggested movies objects
-'********************************************************************
-Function getSuggestions(items As Object, needle As String) As Object
- suggestions = CreateObject("roArray", 10, true)
- ' iterate the whole list, gathering matches on Title
- For i = 1 to items.Count()-1
- For Each movie In items[i]
- if Instr(1, LCase(movie.Title), needle) <> 0 then
- suggestions.Push(movie)
- end if
- End For
- End For
- Sort(suggestions, function(k)
- return LCase(k.Title)
- end function)
- return suggestions
-End Function
-
-'********************************************************************
-'** Return an array of titles
-'********************************************************************
-Function getTitles(movies As Object) As Object
- titles = CreateObject("roArray", 10, true)
- For Each movie In movies
- titles.Push(movie.Title)
- End For
- return titles
-End Function
-
