Closed DecimalTurn closed 1 week ago
@AnywhereSoftware, can you confirm that there is no TextMate compatible syntax highlighting grammar (docs) for B4X? I couldn't find any, but maybe you have one available somewhere.
Hi,
Iām not familiar with such resource.
There is a prism based grammar: https://www.b4x.com/android/forum/threads/%F0%9F%90%A2-%F0%9F%91%A9%E2%80%8D%F0%9F%8F%AB-%F0%9F%91%A8%E2%80%8D%F0%9F%8F%AB-highlighting-b4x-code-in-html-pages-using-prism.117448/#content
Best regards,
Erel Uziel
Anywhere Software
From: Martin Leduc @.> Sent: Thursday, 18 July 2024 21:10 To: github-linguist/linguist @.> Cc: AnywhereSoftware @.>; Mention @.> Subject: Re: [github-linguist/linguist] Add B4X (Issue #6944)
@AnywhereSoftware https://github.com/AnywhereSoftware , can you confirm that there is no TextMate compatible syntax highlighting grammar for B4X? I couldn't find any, but maybe you have one available somewhere.
ā Reply to this email directly, view it on GitHub https://github.com/github-linguist/linguist/issues/6944#issuecomment-2237197206 , or unsubscribe https://github.com/notifications/unsubscribe-auth/AGABUN64FZEXABINNTILSJ3ZNAAJLAVCNFSM6AAAAABLDFOGS2VHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDEMZXGE4TOMRQGY . You are receiving this because you were mentioned. https://github.com/notifications/beacon/AGABUNYNDWSS6PEOGIH2TC3ZNAAJLA5CNFSM6AAAAABLDFOGS2WGG33NNVSW45C7OR4XAZNMJFZXG5LFINXW23LFNZ2KUY3PNVWWK3TUL5UWJTUFLDVZM.gif Message ID: @. @.> >
Thanks @AnywhereSoftware, a prism grammar is a good starting point, but it would need to be converted to the TextMate format and hosted on GitHub to be used as a grammar for syntax highlighting on GitHub.
Another possibility, in the meantime, would be to use VBA or VB.NET's grammar which are similar and already available. If you'd be OK with using one of these, let me know which one you prefer and I can go forward with a PR to add B4X.
Here's a demo of how it would look like (you'll need to view this on GitHub directly and not just on you email client I'm assuming).
Using this file.
Using VBA's syntax highlighting:
B4A=true
Group=MAIN
ModulesStructureVersion=1
Type=Service
Version=11.8
@EndOfDesignText@
#Region Service Attributes
#StartAtBoot: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
'---
Private AutoStartBeenChecked As Boolean = False
Private xui As XUI
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
Log("Service_Start - startAtBoot")
If AutoStartBeenChecked = False Then
AutoStartBeenChecked = True
If ( File.Exists(xui.DefaultFolder,"autostart.bin") ) Then
StartApp
End If
End If
Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)
StopService(Me) '--- above line replaces this
End Sub
Sub Service_Destroy
End Sub
Private Sub StartApp()
Dim Intent1 As Intent
Dim pm As PackageManager
#if klipper
Intent1 = pm.GetApplicationIntent("sadLogic.KlipperTouchController")
#else
Intent1 = pm.GetApplicationIntent("sadLogic.OctoTouchController")
#End If
StartActivity(Intent1)
End Sub
Using VB.NET's syntax highlighthing:
B4A=true
Group=MAIN
ModulesStructureVersion=1
Type=Service
Version=11.8
@EndOfDesignText@
#Region Service Attributes
#StartAtBoot: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
'---
Private AutoStartBeenChecked As Boolean = False
Private xui As XUI
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
Log("Service_Start - startAtBoot")
If AutoStartBeenChecked = False Then
AutoStartBeenChecked = True
If ( File.Exists(xui.DefaultFolder,"autostart.bin") ) Then
StartApp
End If
End If
Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)
StopService(Me) '--- above line replaces this
End Sub
Sub Service_Destroy
End Sub
Private Sub StartApp()
Dim Intent1 As Intent
Dim pm As PackageManager
#if klipper
Intent1 = pm.GetApplicationIntent("sadLogic.KlipperTouchController")
#else
Intent1 = pm.GetApplicationIntent("sadLogic.OctoTouchController")
#End If
StartActivity(Intent1)
End Sub
Hi,
The VBA grammar looks fine. Thank you for pushing this.
Best regards,
Erel Uziel
Anywhere Software
From: Martin Leduc @.> Sent: Monday, 22 July 2024 1:02 To: github-linguist/linguist @.> Cc: AnywhereSoftware @.>; Mention @.> Subject: Re: [github-linguist/linguist] Add B4X (Issue #6944)
Thanks @AnywhereSoftware https://github.com/AnywhereSoftware , a prism grammar is a good starting point, but it would need to be converted to the TextMate format and hosted on GitHub to be used as a grammar for syntax highlighting on GitHub.
Another possibility, in the meantime, would be to use VBA or VB.NET's grammar which are similar and already available. If you'd be OK with using one of these, let me know which one you prefer and I can go forward with a PR to add B4X.
Here's a demo of how it would look like (you'll need to view this on GitHub directly and not just on you email client I'm assuming).
Using this file https://github.com/jakebullet70/OctoTouchController/blob/fcf32317a311cb3abb0dcfad4dd34e5ec23edf1b/src/main/startAtBoot.bas .
Using VBA's syntax highlighting:
B4A=true Group=MAIN ModulesStructureVersion=1 Type=Service Version=11.8 @EndOfDesignText@
#StartAtBoot: True
Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. '--- Private AutoStartBeenChecked As Boolean = False Private xui As XUI End Sub
Sub Service_Create End Sub
Sub Service_Start (StartingIntent As Intent) Log("Service_Start - startAtBoot") If AutoStartBeenChecked = False Then AutoStartBeenChecked = True If ( File.Exists(xui.DefaultFolder,"autostart.bin") ) Then StartApp End If End If Service.StopAutomaticForeground 'Call this when the background task completes (if there is one) StopService(Me) '--- above line replaces this End Sub
Sub Service_Destroy End Sub
Private Sub StartApp() Dim Intent1 As Intent Dim pm As PackageManager
Intent1 = pm.GetApplicationIntent("sadLogic.KlipperTouchController")
#else
Intent1 = pm.GetApplicationIntent("sadLogic.OctoTouchController")
#End If
StartActivity(Intent1)
End Sub
Using VB.NET's syntax highlighthing:
B4A=true Group=MAIN ModulesStructureVersion=1 Type=Service Version=11.8 @EndOfDesignText@
#StartAtBoot: True
Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. '--- Private AutoStartBeenChecked As Boolean = False Private xui As XUI End Sub
Sub Service_Create End Sub
Sub Service_Start (StartingIntent As Intent) Log("Service_Start - startAtBoot") If AutoStartBeenChecked = False Then AutoStartBeenChecked = True If ( File.Exists(xui.DefaultFolder,"autostart.bin") ) Then StartApp End If End If Service.StopAutomaticForeground 'Call this when the background task completes (if there is one) StopService(Me) '--- above line replaces this End Sub
Sub Service_Destroy End Sub
Private Sub StartApp() Dim Intent1 As Intent Dim pm As PackageManager
Intent1 = pm.GetApplicationIntent("sadLogic.KlipperTouchController")
#else
Intent1 = pm.GetApplicationIntent("sadLogic.OctoTouchController")
#End If
StartActivity(Intent1)
End Sub
ā Reply to this email directly, view it on GitHub https://github.com/github-linguist/linguist/issues/6944#issuecomment-2241787324 , or unsubscribe https://github.com/notifications/unsubscribe-auth/AGABUN5HAZHBEN57YOWZ3VTZNQVULAVCNFSM6AAAAABLDFOGS2VHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDENBRG44DOMZSGQ . You are receiving this because you were mentioned. https://github.com/notifications/beacon/AGABUN644VDGVJUG55XXLMTZNQVULA5CNFSM6AAAAABLDFOGS2WGG33NNVSW45C7OR4XAZNMJFZXG5LFINXW23LFNZ2KUY3PNVWWK3TUL5UWJTUFT323Y.gif Message ID: @. @.> >
Language name
B4X
URL of example repository
https://github.com/AnywhereSoftware/B4X-Pleroma
URL of syntax highlighting grammar
NA
Most popular extensions
Detected language
Usually Visual Basic 6.0 or BASIC