[Solved] Detect Operating System

[Heertsch]

Is there a way to detect, on which Operating System OOo Basic runs?

[RPG]

Hello

Code: Select all

GetGuiType Function [Runtime]
Returns a numerical value that specifies the graphical user interface.
This runtime function is only provided for downward compatibility to previous versions. The return value is not defined in client-server environments.
Syntax:
GetGUIType()
Return value:
Integer
Return values:
1: Windows
3: Mac OS
4: UNIX

From the macro help file

Romke

[Heertsch]

Thanks, works fine!
Andreas

[Heertsch]

the GetGUIType() function sends 4 (Unix) on MAC OSX
Is there a way to distinguish Mac OSX and other Unix?

[Heertsch]

Ok,here my (quick and dirty) solution:

Code: Select all

'==========================================
'determine Operating System
'==========================================
function OS()as string  	
  select case getGUIType
  case 1: OS="WINDOWS"
  case 3: OS="MAC"
  case 4: OS=iif(instr(environ("PATH"),"openoffice")=0,"OSX","UNIX")
  end select
end function

I hope someone has a better approach. (to interpret the PATH enviroment variable may be dangerous... )
Andreas

[MrProgrammer]

Of course, under the covers a modern Mac system is UNIX (with a really nice front end), so 4 (UNIX) might be a reasonable answer on that platform -- it depends on what you're going to do with this information. But one idea might be to look at the OSTYPE or MACHTYPE environment variables, which on my machine are:
OSTYPE=darwin10.0
MACHTYPE=x86_64-apple-darwin10.0

[james_h]

The function fails on a fork of OpenOffice.org because the function looks for "openoffice", not "libreoffice" or other program directory name.

I adapted the function as follows. It should work for forks:

Code: Select all

Function SpeechEngine()as string     
  select case getGUIType
  case 1: SpeechEngine=iif(fileExists (fsProgramDirectory & "eSpeak\command_line\espeak.exe"),"ESPEAK","SAPI") 'Win
  case 3: SpeechEngine=iif((fileExists("/usr/bin/espeak") or ifileExists("/usr/local/bin/espeak")),"ESPEAK","SAY") 'Old Mac
  case else: SpeechEngine=iif((fileExists("/usr/bin/espeak") or fileExists("/usr/local/bin/espeak")),"ESPEAK","SAY") 'Posix
  end select
end Function

Function fsProgramDirectory
Dim c as string
c = environ("ProgramFiles")
if instr(c, "\") <> 0 then
	fsProgramDirectory= c & "\"
else
	fsProgramDirectory="/usr/bin/"
end if
End Function

[RPG]

Hello

I have test the code given by Heertsch and it works also with LibreOffice. Maybe the problem you get is by the IIF.

http://www.openoffice.org/issues/show_bug.cgi?id=63614

There is a known bug with this code. When you store and close the file and then load again then it is working. I'm not sure if I have to close OOo complete. For this reason I donot use IIF.

http://www.openoffice.org/issues/show_bug.cgi?id=63614

You can use maybe: switch

Romke

[james_h]

This script should avoid a false identification as OSX for UNIX or LINUX systems using an alternate directory name like libreoffice instead of openoffice.

Code: Select all

Function getOS()as String     
  Select Case getGUIType
  Case 1: 
    getOS="WINDOWS"
  Case 3: 
    getOS="MAC"
  Case 4: 
    If Instr(Environ("PATH"),"openoffice")=0 And Instr(Environ("PATH"),Lcase(fsGetSetting("ooname")))=0 Then
	  getOS="OSX"
    Else
	  getOS="UNIX"
    Endif
  End Select
End Function

Function fsGetSetting(sA)
	GlobalScope.BasicLibraries.LoadLibrary("Tools")
	Dim oProdNameAccess As Object
	oProdNameAccess=GetRegistryKeyContent("org.openoffice.Setup/Product")
    Select Case Lcase(sA)
    Case "language"
		fsGetSetting=GetStarOfficeLocale().language
	Case "country"
		fsGetSetting=GetStarOfficeLocale().country
	Case "ooname"
		fsGetSetting=oProdNameAccess.getByName("ooName")
	Case "ooversion"
		fsGetSetting=oProdNameAccess.getByName("ooSetupVersion")
	Case Else
		fsGetSetting="???"
	End Select
End Function