ChadSmiley Blog Things about family, life, coding, and more

Public   Sub  new  (   )  As  String 
Public   Function  getLineBreakSession (  Session As  NotesSession   )  As  String
Public   Function  getLineBreak (   )  As  String 
Public   Function  getWindows (   )  As  String
Public   Function  getMacintosh (   )  As  String
Public   Function  getUnix (   )  As String
Public   Function  getLinux (   )  As  String

 Option Declare
 
'/**
' *	Determines what line break to use base on the platform.
' *	
' *	@author	Chad Schelfhout ( http:///www.chadsmiley.com)
' * @since		1.0.0
' */
Class LineBreak
	Private pSession As notesSession
'/**
' *	Constructor
' */
	Public Sub new ( )
		Set pSession = New NotesSession
	End Sub
'/**
' *	Get the type of line break based off the current session
' */
	Public Function getLineBreakSession( Session As NotesSession )As String
		Set pSession = Session
		getLineBreakSession = getLineBreak()
	End Function
'/**
' * determines the current line break based off the current platform
' */
	Public Function getLineBreak() As String
		If pSession Is Nothing Then
			Set pSession = New NotesSession()
		End If
		Select Case pSession.Platform()
		Case "Windows/32":
			getLineBreak = getWindows()
		Case "Macintosh":
			getLineBreak = getMacintosh()
		Case "Unix":
			getLineBreak = getUnix()
		Case "Linux":
			getLineBreak = getLinux()
		End Select
	End Function
'/**
' *	Returns the Windows line break
' */
	Public Function getWindows() As String
		getWindows = Chr$(13) & Chr$(10)
	End Function
'/**
' *	Returns the Mac line break
' */
	Public Function getMacintosh() As String
		getMacintosh = Chr$(13)
	End Function
'/**
' *	Returns the Unix line break
' */
	Public Function getUnix() As String
		getUnix = Chr$(10)
	End Function
'/**
' *	Returns the Linx line break
' */
	Public Function getLinux() As String
		getLinux = Chr$(10)
	End Function
End Class

Option Declare
 
'/**
' * Global variable to simulate an abstract class that is why it is named
' * the same as the class.
' */
Dim LineBreak As LineBreak
 
'/**
' *	Determines what line break to use base on the platform.
' *	
' * @author	Chad Schelfhout ( http:///www.chadsmiley.com)
' * @since		1.0.0
' */
Class LineBreak
	Private pSession As notesSession
'/**
' *	Constructor
' */
	Public Sub new ( )
		Set pSession = New NotesSession
	End Sub
'/**
' *	Get the type of line break based off the current session
' */
	Public Function getLineBreakSession( Session As NotesSession )As String
		Set pSession = Session
		getLineBreakSession = getLineBreak()
	End Function
'/**
' * determines the current line break based off the current platform
' */
	Public Function getLineBreak() As String
		If pSession Is Nothing Then
			Set pSession = New NotesSession()
		End If
		Select Case pSession.Platform()
		Case "Windows/32":
			getLineBreak = getWindows()
		Case "Macintosh":
			getLineBreak = getMacintosh()
		Case "Unix":
			getLineBreak = getUnix()
		Case "Linux":
			getLineBreak = getLinux()
		End Select
	End Function
'/**
' *	Returns the Windows line break
' */
	Public Function getWindows() As String
		getWindows = Chr$(13) & Chr$(10)
	End Function
'/**
' *	Returns the Mac line break
' */
	Public Function getMacintosh() As String
		getMacintosh = Chr$(13)
	End Function
'/**
' *	Returns the Unix line break
' */
	Public Function getUnix() As String
		getUnix = Chr$(10)
	End Function
'/**
' *	Returns the Linx line break
' */
	Public Function getLinux() As String
		getLinux = Chr$(10)
	End Function
End Class
'/**
' * Instanciate the global variable that will act like an abstract class
' */
Sub Initialize
	Set LineBreak = New LineBreak()
End Sub