LibreOfficeDev 24.2 Help
vqduy‖Identifying the operating system can be performed with Python or Basic language.
gZrHC‖ComputerName property is solely available for Windows. Basic calls to Python macros help overcome LibreOfficeDev Basic limitations.
""" the_module """
import os, platform
class Platform():
@property
def ComputerName(self): return platform.node()
@property
def DirSeparator(self): return os.sep
@property
def isLinux(self): return (self.OSName=='Linux')
@property
def isMacOSX(self): return (self.OSName=='Darwin')
@property
def isWindows(self): return (self.OSName=='Windows')
@property
def OSName(self): return platform.system()
@property
def PathDelimiter(self): return os.pathsep
7BpCv‖LibreOfficeDev Basic lacks MacOS X native recognition. Platform identification is possible using LibreOfficeDev Application Programming Interface (API).
Option Compatible
Option ClassModule
Option Explicit
Public Property Get ComputerName As String
If isWindows Then ComputerName = Environ("ComputerName")
End Property ' Platform.ComputerName
Public Property Get DirSeparator As String
DirSeparator = GetPathSeparator()
End Property ' Platform.DirSeparator
Public Property Get IsLinux As Boolean
isLinux = ( GetGUIType()=4 ) ' Applies to macOS as well
End Property ' Platform.isLinux
Public Property Get IsMacOSX As Boolean
isMacOSX = ( OSName="MAC" )
End Property ' Platform.isMacOSX
Public Property Get IsWindows As Boolean
isWindows = ( GetGUIType()=1 )
End Property ' Platform.isWindows
Public Property Get OSName As String
AVWis‖ ' Return platform name as "MAC", "UNIX", "WIN"
7QnaM‖ ' Inferred from "Tools.UCB.ShowHelperDialog" function
With GlobalScope.Basiclibraries
If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
End With
Dim keyNode As Object ' com.sun.star.configuration.ConfigurationAccess
keyNode = Tools.Misc.GetRegistryKeyContent("org.openoffice.Office.Common/Help")
OSName = keyNode.GetByName("System")
End Property ' Platform.OSName
Public Property Get PathDelimiter As String
Select Case OSName
Case "MAC", "UNIX" : PathDelimiter = ":"
Case "WIN" : PathDelimiter = ";"
End Select
End Property ' Platform.PathDelimiter
riK2q‖With Python
>>> from < the_module > import Platform
FELjZ‖>>> print(Platform().isMacOSX) # object property
True
dAWDs‖>>> input(Platform().OSName) # object property
Darwin
FRmuS‖ From
menu.
from < the_module > import Platform
import screen_io as ui
p = Platform()
ui.MsgBox(''.join(['isMacOS: ',str(p.isMacOSX)]),0,p.OSName)
Qk6MM‖With LibreOfficeDev Basic
Sub Platform_example()
bFpGE‖ Dim p As New Platform ' instance of Platform class
GC7xa‖ MsgBox p.isLinux ' object property
dAbDE‖ Print p.isWindows, p.OSName ' object properties
End Sub ' Platform_example