mirror of
https://github.com/LibreOffice/help.git
synced 2026-01-13 05:38:56 +00:00
- Partial refactoring using API calls
- New bookmarks - Link from Basic Adv libraries to Platform page Caution: Please fix GlobalScope miss in </bascode> parser in the first place! Change-Id: Ifeaa98d5491b659a1dddbdbe3dddc417779374cf Reviewed-on: https://gerrit.libreoffice.org/72583 Tested-by: Jenkins Reviewed-by: Olivier Hallot <olivier.hallot@libreoffice.org>
This commit is contained in:
LibreOfficiant
committed by
Olivier Hallot
Olivier Hallot
parent
9e082dd83b
commit
4f954243e7
@ -21,10 +21,12 @@
|
||||
<bookmark_value>Platform;isWindows</bookmark_value>
|
||||
<bookmark_value>Platform;ComputerName</bookmark_value>
|
||||
<bookmark_value>Platform;OSName</bookmark_value>
|
||||
<bookmark_value>API;ConfigurationAccess</bookmark_value>
|
||||
<bookmark_value>Tools;GetRegistryContent</bookmark_value>
|
||||
</bookmark>
|
||||
<h1 id="N0509"><variable id="pythonplatform"><link href="text/sbasic/python/python_platform.xhp" name="platform01">Identifying the operating system</link></variable></h1>
|
||||
<paragraph role="paragraph" id="N0510">Identifying the operating system can be performed with Python or Basic language.</paragraph>
|
||||
<tip id="N0511">%PRODUCTNAME Basic lacks Mac OS X native recognition while ComputerName property is solely available for Windows. Basic calls to Python macros help overcome such limitations.</tip>
|
||||
<note id="N0511">ComputerName property is solely available for Windows. Basic calls to Python macros help overcome %PRODUCTNAME Basic limitations.</note>
|
||||
<h2 id="N0512">Using a Python class:</h2>
|
||||
<pycode>
|
||||
<paragraph role="pycode" localize="false" id="N0513">import os, platform</paragraph>
|
||||
@ -45,7 +47,8 @@
|
||||
<paragraph role="pycode" localize="false" id="N0528"> def PathDelimiter(self): return os.pathsep</paragraph>
|
||||
</pycode>
|
||||
<h2 id="N0529">Using a Basic classmodule:</h2>
|
||||
<bascode>
|
||||
<tip id="NO529b">%PRODUCTNAME Basic lacks MacOS X native recognition. Platform identification is possible using %PRODUCTNAME Application Programming Interface (API).</tip>
|
||||
<bascode>
|
||||
<paragraph role="bascode" localize="false" id="N0530">Option Compatible</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0531">Option ClassModule</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0532">Option Explicit</paragraph>
|
||||
@ -59,24 +62,33 @@
|
||||
<paragraph role="bascode" localize="false" id="N0540">End Property ' Platform.DirSeparator</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0541"></paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0542">Public Property Get IsLinux As Boolean</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0543"> isLinux = ( GetGUIType()=4 ) ' Applies to Mac OS X as well </paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0543"> isLinux = ( GetGUIType()=4 ) ' Applies to MacOS X as well </paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0544">End Property ' Platform.isLinux</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0545"></paragraph>
|
||||
<paragraph role="bascode" localize="false" id="M0542">Public Property Get IsMacOSX As Boolean</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="M0543"> isMacOSX = ( OSName="MAC" )</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="M0544">End Property ' Platform.isMacOSX</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="M0545"></paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0546">Public Property Get IsWindows As Boolean</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0547"> isWindows = ( GetGUIType()=1 )</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0548">End Property ' Platform.isWindows</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0549"></paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0550">Public Property Get OSName As String</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0551"> Select Case GetGUIType()</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0552"> Case 1 : OSName = "Windows"</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0553"> Case 4 : OSName = "Linux"</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0554"> End Select</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0551"> ' Return platform name as "MAC", "UNIX", "WIN"</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0551"> ' Inferred from "Tools.UCB.ShowHelperDialog" function</paragraph>
|
||||
<!-- <paragraph role="bascode" localize="false" id="N0552"> With GlobalScope.Basiclibraries</paragraph>-->
|
||||
<paragraph role="bascode" localize="false" id="N0552"> With Basiclibraries</paragraph> <!-- to replace with line above -->
|
||||
<paragraph role="bascode" localize="false" id="M0552"> If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="O0552"> End With</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0553"> Dim keyNode As Object 'com.sun.star.configuration.ConfigurationAccess</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="M0553"> keyNode = Tools.Misc.GetRegistryKeyContent("org.openoffice.Office.Common/Help")</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0554"> OSName = keyNode.GetByName("System")</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0555">End Property ' Platform.OSName</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0556"></paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0557">Public Property Get PathDelimiter As String</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0559"> Select Case OSName</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0560"> Case "Linux" : PathDelimiter = ":"</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0561"> Case "Windows" : PathDelimiter = ";"</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0560"> Case "MAC", "UNIX" : PathDelimiter = ":"</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0561"> Case "WIN" : PathDelimiter = ";"</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0562"> End Select</paragraph>
|
||||
<paragraph role="bascode" localize="false" id="N0563">End Property ' Platform.PathDelimiter</paragraph>
|
||||
</bascode>
|
||||
@ -107,7 +119,7 @@
|
||||
<embed href="text/sbasic/python/python_screen.xhp#ioscreen"/>
|
||||
<embed href="text/sbasic/shared/03132100.xhp#getguitype2"/>
|
||||
<embed href="text/sbasic/shared/GetPathSeparator.xhp#getpathseparator01"/>
|
||||
<!--
|
||||
<!--WIP
|
||||
<paragraph role="paragraph" id="N0585">
|
||||
<link href="text/sbasic/python/python_from_basic.xhp">Basic to Python function calls</link>
|
||||
</paragraph>-->
|
||||
@ -115,4 +127,4 @@
|
||||
<embed href="text/sbasic/python/main0000.xhp#pythonscriptshelp"/>
|
||||
</section>
|
||||
</body>
|
||||
</helpdocument>
|
||||
</helpdocument>
|
||||
Reference in New Issue
Block a user