SCrawler/SCrawler/API/Reddit/IRedditView.vb

' Copyright (C) 2023  Andy https://github.com/AAndyProgram
' This program is free software: you can redistribute it and/or modify
' it under the terms of the GNU General Public License as published by
' the Free Software Foundation, either version 3 of the License, or
' (at your option) any later version.
'
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY
Namespace API.Reddit
    Friend Interface IRedditView
        Enum View As Integer
            [New] = 0
            Hot = 1
            Top = 2
            Best = 3
            Rising = 4
        End Enum
        Enum Period As Integer
            All = 0
            Hour = 1
            Day = 2
            Week = 3
            Month = 4
            Year = 5
        End Enum
        Property ViewMode As View
        Property ViewPeriod As Period
        Property DownloadText As Boolean
        Property DownloadTextPosts As Boolean
        Property DownloadTextSpecialFolder As Boolean
        Property UserExists As Boolean
        Property UserSuspended As Boolean
        Property RedGifsAccount As String
        Property RedditAccount As String
        Sub SetView(ByVal Options As IRedditView)
    End Interface
    Friend Class RedditViewExchange : Inherits Base.EditorExchangeOptionsBase : Implements IRedditView
        Friend Const Name_ViewMode As String = "ViewMode"
        Friend Const Name_ViewPeriod As String = "ViewPeriod"
        Friend Const Name_RedGifsAccount As String = "RedGifsAccount"
        Friend Const Name_RedditAccount As String = "RedditAccount"
        Friend Property ViewMode As IRedditView.View Implements IRedditView.ViewMode
        Friend Property ViewPeriod As IRedditView.Period Implements IRedditView.ViewPeriod
        Friend Overrides Property DownloadText As Boolean Implements IRedditView.DownloadText
        Friend Overrides Property DownloadTextPosts As Boolean Implements IRedditView.DownloadTextPosts
        Friend Overrides Property DownloadTextSpecialFolder As Boolean Implements IRedditView.DownloadTextSpecialFolder
        Friend Overrides Property UserExists As Boolean Implements IRedditView.UserExists
        Friend Overrides Property UserSuspended As Boolean Implements IRedditView.UserSuspended
        Friend Property RedGifsAccount As String Implements IRedditView.RedGifsAccount
        Friend Property RedditAccount As String Implements IRedditView.RedditAccount
        Friend Sub New(ByVal Options As IRedditView)
            MyBase.New(DirectCast(Options, UserData))
            SetView(Options)
            _ApplyBase_Name = False
        End Sub
        Friend Sub New(ByVal s As SiteSettings)
            MyBase.New(s)
            _ApplyBase_Name = False
        End Sub
        Friend Sub SetView(ByVal Options As IRedditView) Implements IRedditView.SetView
            SetView(Me, Options)
        End Sub
        Friend Shared Sub SetView(ByVal Dest As IRedditView, ByVal Source As IRedditView)
            If Not Dest Is Nothing And Not Source Is Nothing Then
                Dest.ViewMode = Source.ViewMode
                Dest.ViewPeriod = Source.ViewPeriod
                Dest.DownloadText = Source.DownloadText
                Dest.DownloadTextPosts = Source.DownloadTextPosts
                Dest.DownloadTextSpecialFolder = Source.DownloadTextSpecialFolder
                Dest.UserExists = Source.UserExists
                Dest.UserSuspended = Source.UserSuspended
                Dest.RedGifsAccount = Source.RedGifsAccount
                Dest.RedditAccount = Source.RedditAccount
            End If
        End Sub
    End Class
End Namespace