syndicate 0.0.1

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

@@ -0,0 +1,45 @@
+'Library of Shared Functions
+
+'Creates connection and retrieve url over http
+Function initConnection(url As String) As String
+  
+  conn = CreateObject("roAssociativeArray")
+
+  conn.Url   = url
+  print "Initializing connection to" + conn.Url
+  conn.Timer = CreateObject("roTimespan")
+  
+  'print "created feed connection for " + conn.Url
+  http = NewHttp(conn.Url)
+  
+  'print "Getting http response"
+  rsp = http.GetToStringWithRetry()
+  'print rsp
+  
+  return rsp
+End Function
+
+'Creates XML object out of string
+Function to_xml(rsp As String) As Object
+  xml = CreateObject("roXMLElement")
+  if not xml.Parse(rsp) then
+      'print "Invalid XML"
+      return invalid
+  endif
+  
+  return xml
+End Function
+
+Function comma_seperate(string1 As String, string2 As String) As String
+  str = CreateObject("roString")
+
+  if (string1.Len() > 0 AND string2.Len() > 0) then
+    str =  string1 + ", " + string2
+  else if (string1.Len() <= 0 AND string2.Len() > 0) then
+    str = string2    
+  else if (string1.Len() > 0 AND string2.Len() <= 0) then
+    str = string1
+  end if
+  
+  return str
+End Function

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

@@ -0,0 +1,59 @@
+Function getMRSS(url As Object) As Object
+  feed   = initConnection(url)
+  videos = parseVideos( to_xml(feed) )
+  
+  return videos
+End Function
+
+Function parseVideos(xml as Object) As Object
+  videos = CreateObject("roArray", 100, true)
+  
+  if xml = invalid then
+    print "Error Retrieving XML"
+    return videos
+  endif
+  
+  if xml.GetName() <> "channel" then
+      print "No channel tag found."
+      return videos
+  endif
+  
+  'stop
+
+  for each item in xml.GetNamedElements("item")
+    'stop
+    video = initVideoItem()
+    'video.ContentId    = curVideo.id.GetText()
+    title = item.GetNamedElements("media:title")
+    video.Title        = title.GetText()
+    video.Description  = item.description.GetText()
+    'video.StreamFormat = curVideo.format.GetText()
+    video.StreamFormat = "mp4"
+    'video.Length       = curVideo.runtime.GetText() 
+    'video.Quality      = curVideo.quality.GetText() 
+    'video.SDPosterUrl  = curVideo.sd_image.GetText()
+    'video.HDPosterUrl  = curVideo.hd_image.GetText()
+
+    video.StreamUrls[0]      = item.content.GetAttributes().url
+    video.streamQualities[0] = "SD"
+    video.StreamBitrates     = 0
+    'n = 0
+    'streams = item.medias.GetChildElements()
+    'for each curStream in streams
+      'video.StreamQualities[n]  = curStream.quality.GetText()
+      'video.StreamBitrates[n]   = curStream.bitrate.GetText()
+      'video.StreamUrls[n]       = curStream.url.GetText()
+      'video.StreamContentIDs[n] = curStream.id.GetText()
+      'n = n + 1
+    'next
+    
+    video.ShortDescriptionLine2 = video.Description
+    video.ShortDescriptionLine1 = video.Title
+
+    print video
+    
+    videos.Push(video)
+  next
+  
+  return videos
+End Function

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

@@ -0,0 +1,215 @@
+'**********************************************************
+'**  Video Player Example Application - URL Utilities 
+'**  November 2009
+'**  Copyright (c) 2009 Roku Inc. All Rights Reserved.
+'**********************************************************
+
+REM ******************************************************
+REM Constucts a URL Transfer object
+REM ******************************************************
+
+Function CreateURLTransferObject(url As String) as Object
+    obj = CreateObject("roUrlTransfer")
+    obj.SetPort(CreateObject("roMessagePort"))
+    obj.SetUrl(url)
+    obj.AddHeader("Content-Type", "application/x-www-form-urlencoded")
+    obj.EnableEncodings(true)
+    return obj
+End Function
+
+REM ******************************************************
+REM Url Query builder
+REM so this is a quick and dirty name/value encoder/accumulator
+REM ******************************************************
+
+Function NewHttp(url As String) as Object
+    obj = CreateObject("roAssociativeArray")
+    obj.Http                        = CreateURLTransferObject(url)
+    obj.FirstParam                  = true
+    obj.AddParam                    = http_add_param
+    obj.AddRawQuery                 = http_add_raw_query
+    obj.GetToStringWithRetry        = http_get_to_string_with_retry
+    obj.PrepareUrlForQuery          = http_prepare_url_for_query
+    obj.GetToStringWithTimeout      = http_get_to_string_with_timeout
+    obj.PostFromStringWithTimeout   = http_post_from_string_with_timeout
+
+    if Instr(1, url, "?") > 0 then obj.FirstParam = false
+
+    return obj
+End Function
+
+
+REM ******************************************************
+REM Constucts a URL Transfer object 2
+REM ******************************************************
+
+Function CreateURLTransferObject2(url As String, contentHeader As String) as Object
+    obj = CreateObject("roUrlTransfer")
+    obj.SetPort(CreateObject("roMessagePort"))
+    obj.SetUrl(url)
+	obj.AddHeader("Content-Type", contentHeader)
+    obj.EnableEncodings(true)
+    return obj
+End Function
+
+REM ******************************************************
+REM Url Query builder 2
+REM so this is a quick and dirty name/value encoder/accumulator
+REM ******************************************************
+
+Function NewHttp2(url As String, contentHeader As String) as Object
+    obj = CreateObject("roAssociativeArray")
+    obj.Http                        = CreateURLTransferObject2(url, contentHeader)
+    obj.FirstParam                  = true
+    obj.AddParam                    = http_add_param
+    obj.AddRawQuery                 = http_add_raw_query
+    obj.GetToStringWithRetry        = http_get_to_string_with_retry
+    obj.PrepareUrlForQuery          = http_prepare_url_for_query
+    obj.GetToStringWithTimeout      = http_get_to_string_with_timeout
+    obj.PostFromStringWithTimeout   = http_post_from_string_with_timeout
+
+    if Instr(1, url, "?") > 0 then obj.FirstParam = false
+
+    return obj
+End Function
+
+
+REM ******************************************************
+REM HttpEncode - just encode a string
+REM ******************************************************
+
+Function HttpEncode(str As String) As String
+    o = CreateObject("roUrlTransfer")
+    return o.Escape(str)
+End Function
+
+REM ******************************************************
+REM Prepare the current url for adding query parameters
+REM Automatically add a '?' or '&' as necessary
+REM ******************************************************
+
+Function http_prepare_url_for_query() As String
+    url = m.Http.GetUrl()
+    if m.FirstParam then
+        url = url + "?"
+        m.FirstParam = false
+    else
+        url = url + "&"
+    endif
+    m.Http.SetUrl(url)
+    return url
+End Function
+
+REM ******************************************************
+REM Percent encode a name/value parameter pair and add the
+REM the query portion of the current url
+REM Automatically add a '?' or '&' as necessary
+REM Prevent duplicate parameters
+REM ******************************************************
+
+Function http_add_param(name As String, val As String) as Void
+    q = m.Http.Escape(name)
+    q = q + "="
+    url = m.Http.GetUrl()
+    if Instr(1, url, q) > 0 return    'Parameter already present
+    q = q + m.Http.Escape(val)
+    m.AddRawQuery(q)
+End Function
+
+REM ******************************************************
+REM Tack a raw query string onto the end of the current url
+REM Automatically add a '?' or '&' as necessary
+REM ******************************************************
+
+Function http_add_raw_query(query As String) as Void
+    url = m.PrepareUrlForQuery()
+    url = url + query
+    m.Http.SetUrl(url)
+End Function
+
+REM ******************************************************
+REM Performs Http.AsyncGetToString() in a retry loop
+REM with exponential backoff. To the outside
+REM world this appears as a synchronous API.
+REM ******************************************************
+
+Function http_get_to_string_with_retry() as String
+    timeout%         = 1500
+    num_retries%     = 5
+
+    str = ""
+    while num_retries% > 0
+'        print "httpget try " + itostr(num_retries%)
+        if (m.Http.AsyncGetToString())
+            event = wait(timeout%, m.Http.GetPort())
+            if type(event) = "roUrlEvent"
+                str = event.GetString()
+                exit while        
+            elseif event = invalid
+                m.Http.AsyncCancel()
+                REM reset the connection on timeouts
+                m.Http = CreateURLTransferObject(m.Http.GetUrl())
+                timeout% = 2 * timeout%
+            else
+                print "roUrlTransfer::AsyncGetToString(): unknown event"
+            endif
+        endif
+
+        num_retries% = num_retries% - 1
+    end while
+    
+    return str
+End Function
+
+REM ******************************************************
+REM Performs Http.AsyncGetToString() with a single timeout in seconds
+REM To the outside world this appears as a synchronous API.
+REM ******************************************************
+
+Function http_get_to_string_with_timeout(seconds as Integer) as String
+    timeout% = 1000 * seconds
+
+    str = ""
+    m.Http.EnableFreshConnection(true) 'Don't reuse existing connections
+    if (m.Http.AsyncGetToString())
+        event = wait(timeout%, m.Http.GetPort())
+        if type(event) = "roUrlEvent"
+            str = event.GetString()
+        elseif event = invalid
+            Dbg("AsyncGetToString timeout")
+            m.Http.AsyncCancel()
+        else
+            Dbg("AsyncGetToString unknown event", event)
+        endif
+    endif
+
+    return str
+End Function
+
+REM ******************************************************
+REM Performs Http.AsyncPostFromString() with a single timeout in seconds
+REM To the outside world this appears as a synchronous API.
+REM ******************************************************
+
+Function http_post_from_string_with_timeout(val As String, seconds as Integer) as String
+    timeout% = 1000 * seconds
+
+    str = ""
+'    m.Http.EnableFreshConnection(true) 'Don't reuse existing connections
+    if (m.Http.AsyncPostFromString(val))
+        event = wait(timeout%, m.Http.GetPort())
+        if type(event) = "roUrlEvent"
+			print "1"
+			str = event.GetString()
+        elseif event = invalid
+			print "2"
+            Dbg("AsyncPostFromString timeout")
+            m.Http.AsyncCancel()
+        else
+			print "3"
+            Dbg("AsyncPostFromString unknown event", event)
+        endif
+    endif
+
+    return str
+End Function

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

@@ -0,0 +1,17 @@
+Function initVideoItem() As Object
+    o = CreateObject("roAssociativeArray")
+    
+    o.ContentId        = ""
+    o.Title            = ""
+    o.Description      = ""
+    o.StreamFormat     = ""
+    o.Live             = false
+    o.Length           = ""
+    o.SDImageUrl       = ""
+    o.HDImageUrl       = ""
+    o.StreamQualities  = CreateObject("roArray", 5, true) 
+    o.StreamBitrates   = CreateObject("roArray", 5, true)
+    o.StreamUrls       = CreateObject("roArray", 5, true)
+    o.StreamContentIDs = CreateObject("roArray", 5, true)
+    return o
+End Function

data/examples/roku/source/screens/mediaplayer.brs

@@ -0,0 +1,36 @@
+Function showMediaPlayer(video As Object)
+    port   = CreateObject("roMessagePort")
+    screen = CreateObject("roVideoScreen")
+    screen.SetMessagePort(port)
+
+    screen.SetPositionNotificationPeriod(30)
+    screen.SetContent(video)
+    screen.Show()
+
+    'Uncomment his line to dump the contents of the video to be played
+    PrintAA(video)
+
+    while true
+        msg = wait(0, port)
+
+        if type(msg) = "roVideoScreenEvent" then
+            if msg.isScreenClosed()
+                print "Screen closed"
+                exit while
+            elseif msg.isRequestFailed()
+                print "Video request failure: "; msg.GetIndex(); " " msg.GetData() 
+            elseif msg.isStatusMessage()
+                print "Video status: "; msg.GetIndex(); " " msg.GetData() 
+            elseif msg.isButtonPressed()
+                print "Button pressed: "; msg.GetIndex(); " " msg.GetData()
+            elseif msg.isPlaybackPosition() then
+                nowpos = msg.GetIndex()
+                'RegWrite(video.ContentId, nowpos.toStr())
+            else
+                print "Unexpected event type: "; msg.GetType()
+            end if
+        else
+            print "Unexpected message class: "; type(msg)
+        end if
+    end while
+End Function

data/examples/roku/source/screens/poster.brs

@@ -0,0 +1,65 @@
+'******************************************************
+'**  Video Player Example Application -- Poster Screen
+'**  November 2009
+'**  Copyright (c) 2009 Roku Inc. All Rights Reserved.
+'******************************************************
+
+'******************************************************
+'** Perform any startup/initialization stuff prior to 
+'** initially showing the screen.  
+'******************************************************
+Function prePosterScreen(breadA=invalid, breadB=invalid) As Object
+    port=CreateObject("roMessagePort")
+    screen = CreateObject("roPosterScreen")
+    screen.SetMessagePort(port)
+    if breadA<>invalid and breadB<>invalid then
+        screen.SetBreadcrumbText(breadA, breadB)
+    end if
+
+    screen.SetListStyle("flat-category")
+    screen.SetListDisplayMode("photo-fit")
+
+    return screen
+End Function
+
+
+'******************************************************
+'** Display the home screen and wait for events from 
+'** the screen. The screen will show retreiving while
+'** we fetch and parse the feeds for the game posters
+'******************************************************
+Function showPosterScreen(screen As Object, feedURL As String) As Integer
+    curVideo  = 0
+    
+    videos = getMRSS(feedURL)
+
+    if videos.Count() > 0 then
+      screen.SetContentList(videos)
+    else
+      screen.ShowMessage("No videos found for this channel")
+    end if
+      
+    screen.Show()
+
+    while true
+      print "POSTER SCREEN!"
+  
+      msg = wait(0, screen.GetMessagePort())
+      if type(msg) = "roPosterScreenEvent" then
+        print "showPosterScreen | msg = "; msg.GetMessage() " | index = "; msg.GetIndex()
+        print msg.GetMessage()
+        print "POSTER SCREEN! MSG"
+    
+        if msg.isListFocused() then
+          curVideo    = 0
+          screen.SetFocusedListItem(curVideo)
+        else if msg.isListItemSelected() then
+          curVideo = msg.GetIndex()    
+          showMediaPlayer(videos[curVideo])
+        else if msg.isScreenClosed() then
+          print "Screen Closed!"
+          return -1
+        end if
+      end If
+    end while
+End Function

data/examples/roku/source/theme.brs

@@ -0,0 +1,30 @@
+'*************************************************************
+'** 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 = "45"
+    theme.OverhangOffsetSD_Y = "30"
+    theme.OverhangSliceSD = "pkg:/images/banner-sd.png"
+    theme.OverhangLogoSD  = "pkg:/images/banner-logo-sd.png"
+
+    theme.OverhangOffsetHD_X = "75"
+    theme.OverhangOffsetHD_Y = "40"
+    theme.OverhangSliceHD = "pkg:/images/banner-hd.png"
+    theme.OverhangLogoHD  = "pkg:/images/banner-logo-hd.png"
+    
+    theme.FilterBannerActiveColor   = "#FFFFFF"
+    theme.FilterBannerInactiveColor = "#0055a0"
+    theme.FilterBannerSideColor     = "#0055a0"
+
+    app.SetTheme(theme)
+
+End Sub