Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add Xojo lexer. #1131

Merged
merged 6 commits into from
May 29, 2019
Merged

Add Xojo lexer. #1131

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
abcc71b
Add Xojo lexer.
jimmckay May 28, 2019
9c57d19
Fixed whitespace in xojo.rb
jimmckay May 28, 2019
dc50b56
add xojo_spec.rb
jimmckay May 28, 2019
ce1e7fe
Simplified sample to eliminate redundant code.
jimmckay May 29, 2019
96f71d2
Fixed some spacing issues.
jimmckay May 29, 2019
d11561f
Fixed Float regex to allow .1 and 1. as valid Floats
jimmckay May 29, 2019
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
13 changes: 13 additions & 0 deletions lib/rouge/demos/xojo
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
Dim f As FolderItem
f = GetOpenFolderItem(FileTypes1.jpeg) // defined in the File Type Set editor
If not f.Exists Then
Beep
MsgBox("The file " + f.NativePath + "doesn't ""exist.""")
Else // document exists
ImageWell1.image=Picture.Open(f)
End If
if f isa folderitem then
msgbox(f.name)
end if
Exception err As NilObjectException
MsgBox("Invalid pathname!")
61 changes: 61 additions & 0 deletions lib/rouge/lexers/xojo.rb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,61 @@
# -*- coding: utf-8 -*- #
# frozen_string_literal: true

module Rouge
module Lexers
class Xojo < RegexLexer
title "Xojo"
desc "Xojo"
tag 'xojo'
aliases 'realbasic'
filenames '*.xojo_code', '*.xojo_window', '*.xojo_toolbar', '*.xojo_menu'

keywords = %w(
addhandler aggregates array asc assigns attributes begin break
byref byval call case catch class const continue char ctype declare
delegate dim do downto each else elseif end enum event exception
exit extends false finally for function global goto if
implements inherits interface lib loop mod module
new next nil object of optional paramarray
private property protected public raise raiseevent rect redim
removehandler return select shared soft static step sub super
then to true try until using uend uhile
)

keywords_type = %w(
boolean cfstringref cgfloat cstring curency date double int8 int16
int32 int64 integer ostype pstring ptr short single
single string structure variant uinteger uint8 uint16 uint32 uint64
ushort windowptr wstring
)

operator_words = %w(
addressof and as in is isa mod not or xor
)

state :root do
rule /\s+/, Text::Whitespace

rule /rem\b.*?$/i, Comment::Single
jimmckay marked this conversation as resolved.
Show resolved Hide resolved
rule /\/\/.*$/, Comment::Single
rule /\#tag Note.*\#tag EndNote/m, Comment::Preproc
rule /\s*[#].*$/x, Comment::Preproc

rule /".*?"/, Literal::String::Double
rule /[(){}!#,:]/, Punctuation

rule /\b(?:#{keywords.join('|')})\b/i, Keyword
rule /\b(?:#{keywords_type.join('|')})\b/i, Keyword::Declaration

rule /\b(?:#{operator_words.join('|')})\b/i, Operator
rule /[+-]?(\d+\.\d*|\d*\.\d+)/i, Literal::Number::Float
rule /[+-]?\d+/, Literal::Number::Integer
rule /&[CH][0-9a-f]+/i, Literal::Number::Hex
rule /&O[0-7]+/i, Literal::Number::Oct

rule /\b[\w\.]+\b/i, Text
rule(%r(<=|>=|<>|[=><\+\-\*\/\\]), Operator)
end
end
end
end
18 changes: 18 additions & 0 deletions spec/lexers/xojo_spec.rb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,18 @@
# -*- coding: utf-8 -*- #
# frozen_string_literal: true

describe Rouge::Lexers::Xojo do
let(:subject) { Rouge::Lexers::Xojo.new }

describe 'guessing' do
include Support::Guessing

it 'guesses by filename' do
assert_guess :filename => 'foo.xojo_code'
assert_guess :filename => 'foo.xojo_window'
assert_guess :filename => 'foo.xojo_toolbar'
assert_guess :filename => 'foo.xojo_menu'
end

end
end
251 changes: 251 additions & 0 deletions spec/visual/samples/xojo
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,251 @@
#tag IOSView
Begin iosView DrawView
BackButtonTitle = "Draw"
Compatibility = ""
Left = 0
NavigationBarVisible= True
TabIcon = ""
TabTitle = ""
Title = "Xojo Draw"
Top = 0
Begin iOSCanvas DrawingCanvas
AccessibilityHint= ""
AccessibilityLabel= ""
AutoLayout = DrawingCanvas, 4, BottomLayoutGuide, 3, False, +1.00, 2, 1, 0,
AutoLayout = DrawingCanvas, 1, <Parent>, 1, False, +1.00, 1, 1, 0,
AutoLayout = DrawingCanvas, 2, <Parent>, 2, False, +1.00, 2, 1, 0,
AutoLayout = DrawingCanvas, 3, TopLayoutGuide, 4, False, +1.00, 1, 1, 0,
Height = 503.
Left = 0
LockedInPosition= False
Scope = 0
Top = 65
Visible = True
Width = 320.0
End
End
#tag EndIOSView

#tag WindowCode
#tag Event
Sub Activate()
DrawingCanvas.Invalidate
dim x as double=1. //this is allowed
dim y as double=.1 //also allowed
rem This is an old style comment (throw back to Basic)
dim escaped_quotes as string="this is an ""escaped"" string" //would compile as 'this is an "escaped" string'
End Sub
#tag EndEvent

#tag Event
Sub Open()
// Load image if saved
Dim loadFile As FolderItem = SpecialFolder.Documents.Child("XojoDoodle.png")
If loadFile.Exists Then
Dim pic As iOSImage = iOSImage.FromFile(loadFile)
DrawingImage = New iOSBitmap(pic.Width, pic.Height, 1.0, True)
DrawingImage.Graphics.DrawImage(pic, 0, 0)
End If

// Add a button for the about view
Dim aboutButton As iOSToolButton = iOSToolButton.NewPlain(QuestionMarkImage)
aboutButton.Tag = "AboutButton"
RightNavigationToolbar.Add(aboutButton)
End Sub
#tag EndEvent

#tag Event
Sub Resized()
// Need to adjust drawing area of size of canvas is changed
// due to device orientation change.

LayoutChanged = True

DrawingCanvas.Invalidate
End Sub
#tag EndEvent

#tag Event
Sub ToolbarPressed(button As iOSToolButton)
// Process the button taps
select case button
Case ClearButton
// Clear button was pressed, so erase image
DrawingImage = Nil
DrawingCanvas.Invalidate
Case ShareButton
Dim panel As New iOSSharingPanel
panel.SharePicture(DrawingImage.Image, Self, RemoveMeButton)
Case SaveButton
SaveToCameraRoll
Case PenSizeButton
Dim v As New PenSizeView
PushTo(v)
Else
Select Case button.Tag
Case "AboutButton"
Dim v As New AboutView
PushTo(v)
End Select
End Select
End Sub
#tag EndEvent


#tag Method, Flags = &h21
Private Function MainScreenScale() As Double
Declare function NSClassFromString Lib "Foundation" (aClassName As CFStringRef) As Ptr
Declare Function scale Lib "Foundation" Selector "scale" (classRef As Ptr) As CGFloat
Declare Function mainScreen Lib "Foundation" Selector "mainScreen" (classRef As Ptr) As Ptr

Return scale(mainScreen(NSClassFromString("UIScreen")))
End Function
#tag EndMethod

#tag Method, Flags = &h21
Private Sub SaveImage()
// Save the image so it can be reloaded when
// the user comes back to the app.
Dim saveFile As FolderItem = SpecialFolder.Documents.Child("XojoDraw.png")

if DrawingImage <> nil then
DrawingImage.Image.WriteToFile(saveFile, "public.png")
end if
End Sub
#tag EndMethod

#tag Method, Flags = &h21
Private Sub SaveToCameraRoll()
// Directly call UIKit method to save the picture directly
// to the camera roll.
Declare Sub UIImageWriteToSavedPhotosAlbum Lib "UIKit" _
(img As Ptr, target As Ptr, sel As Ptr, info As Ptr)
UIImageWriteToSavedPhotosAlbum(DrawingImage.Image.Handle, Nil, Nil, Nil)

End Sub
#tag EndMethod


#tag Note, Name = RemoveMeButton
The RemoveMe button is only used so that the sharing panel
on iPad has a parent control it can use to display itself
near the actual toolbar button that displays it.

When this feedback case is resolve, the button can be removed:
<feedback://showreport?report_id=45080>

#tag EndNote


#tag Property, Flags = &h21
Private ColorButton As iOSToolButton
#tag EndProperty

#tag Property, Flags = &h21
Private DrawingImage As iOSBitmap
#tag EndProperty

#tag Property, Flags = &h21
Private LastDragPosition As Point
#tag EndProperty

#tag Property, Flags = &h21
Private LayoutChanged As Boolean
#tag EndProperty


#tag EndWindowCode

#tag Events DrawingCanvas
#tag Event
Sub Paint(g As iOSGraphics)
Dim scale As Double = MainScreenScale
If DrawingImage Is Nil Then
// Create an image if one does not already exist
DrawingImage = New iOSBitmap(g.Width, g.Height, scale, True)
DrawingImage.Graphics.Scale(scale, scale)
DrawingImage.Graphics.FillColor = &cffffff // White
DrawingImage.Graphics.FillRect(0, 0, DrawingImage.Graphics.Width, DrawingImage.Graphics.Height)
ElseIf LayoutChanged Then
// Create image in new screen size and copy old image to it
Dim oldImage As iOSBitmap = DrawingImage
DrawingImage = New iOSBitmap(g.Width, g.Height, scale, True)
DrawingImage.Graphics.Scale(scale, scale)
DrawingImage.Graphics.FillColor = &cffffff // White
DrawingImage.Graphics.FillRect(0, 0, DrawingImage.Graphics.Width, DrawingImage.Graphics.Height)
// Copy the old image to the new image any information that does not fit is lost
DrawingImage.Graphics.DrawImage(oldImage.Image, 0, 0, oldImage.Width, oldImage.Height)
LayoutChanged = False
End If

// Draw the image to the Canvas
g.DrawImage(DrawingImage, 0, 0)

// Draw the "Color" button over the drawing
// so that it is not part of the actual drawing
// and does not get saved.
g.FillColor = App.Colors(App.CurrentColorIndex)
g.FillRect(0, g.Height - App.LineSize, g.Width, App.LineSize)

End Sub
#tag EndEvent
#tag Event
Sub PointerUp(pos As Xojo.Core.Point, eventInfo As iOSEventInfo)
// Clear the drag position so that when the user
// starts drawing again, it does not connect a line
// from where they last drew.
LastDragPosition = Nil

Me.Invalidate

// Save the image whenever they stop drawing
SaveImage
End Sub
#tag EndEvent
#tag Event
Sub PointerDrag(pos As Xojo.Core.Point, eventInfo As iOSEventInfo)
// Draw a line following the touches as they drag on the Canvas
Dim scalePos As New Xojo.Core.Point(pos.X * MainScreenScale, pos.Y * MainScreenScale)

Dim g As iOSGraphics = DrawingImage.Graphics

If LastDragPosition <> Nil Then
// Draw a line from the last position to the current position
g.FillColor = App.Colors(App.CurrentColorIndex)
g.LineColor = App.Colors(App.CurrentColorIndex)
g.LineWidth = App.LineSize
g.FillOval(LastDragPosition.X, LastDragPosition.Y, App.LineSize, App.LineSize)
g.DrawLine(LastDragPosition.X + App.LineSize / 2, _
LastDragPosition.Y + App.LineSize / 2, _
pos.X + App.LineSize / 2, _
pos.Y + App.LineSize / 2)
End If

LastDragPosition = pos

Me.Invalidate
End Sub
#tag EndEvent
#tag EndEvents
#tag ViewBehavior
#tag ViewProperty
Name="BackButtonTitle"
Group="Behavior"
Type="Text"
EditorType="MultiLineEditor"
#tag EndViewProperty
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
#tag EndViewProperty
#tag EndViewBehavior