Skip to content

Commit 617969b

Browse files
committed
Follow CALL changes
1 parent b8e45a4 commit 617969b

File tree

2 files changed

+103
-119
lines changed

2 files changed

+103
-119
lines changed

AutoLISP.YAML-tmLanguage

Lines changed: 55 additions & 59 deletions
Original file line numberDiff line numberDiff line change
@@ -87,10 +87,10 @@ repository:
8787
patterns:
8888
- include: '#vanilla'
8989
- include: '#vl'
90-
- include: '#vle'
9190
- include: '#vlr'
9291
- include: '#vlax'
9392
- include: '#vla'
93+
- include: '#vle'
9494
- include: '#call'
9595

9696
vanilla:
@@ -101,26 +101,24 @@ repository:
101101
match: (?i)(?<=^|['\s()])(?:nil|t)(?=$|[\s()])
102102
- name: support.function.base.vanilla.autolisp
103103
match: (?<=^|['\s()])(?i:eval|quote|setq|lambda|function|apply|defun|defun-q|cond|if|and|or|not|progn|exit|quit|repeat|while|foreach|equal|eq|=|/=|<|>|<=|>=|type|trace|untrace)(?=$|[\s()])
104-
- name: support.function.symbol.vanilla.autolisp
104+
- name: support.function.symbols.vanilla.autolisp
105105
match: (?i)(?<=^|['\s()])(?:set|boundp|atoms-family)(?=$|[\s()])
106-
- name: support.function.string.vanilla.autolisp
106+
- name: support.function.strings.vanilla.autolisp
107107
match: (?i)(?<=^|['\s()])(?:strlen|substr|strcat|ascii|chr|strcase|wcmatch|acad_strlsort)(?=$|[\s()])
108-
- name: support.function.number.vanilla.autolisp
109-
match: (?<=^|['\s()])(?i:numberp|zerop|minusp|\+|-|\*|/|1\+|1-|rem|float|fix)(?=$|[\s()])
110-
- name: support.constant.math.vanilla.autolisp
108+
- name: support.function.numbers.vanilla.autolisp
109+
match: (?<=^|['\s()])(?i:numberp|zerop|minusp|float|fix|itoa|atoi|atof|\+|-|\*|/|1\+|1-|abs|min|max|rem|gcd|expt|exp|log|sqrt|sin|cos|atan)(?=$|[\s()])
110+
- name: support.constant.numbers.vanilla.autolisp
111111
match: (?i)(?<=^|['\s()])(?:pi)(?=$|[\s()])
112-
- name: support.function.math.vanilla.autolisp
113-
match: (?<=^|['\s()])(?i:min|max|abs|gcd|sqrt|expt|exp|log|sin|cos|atan)(?=$|[\s()])
114112
- name: support.function.bitwise.vanilla.autolisp
115113
match: (?<=^|['\s()])(?i:~|lsh|logand|logior|boole)(?=$|[\s()])
116-
- name: support.function.list.vanilla.autolisp
114+
- name: support.function.lists.vanilla.autolisp
117115
match: (?i)(?<=^|['\s()])(?:atom|null|listp|cons|list|c[ad]{1,4}r|last|nth|length|reverse|append|mapcar|member|subst|assoc)(?=$|[\s()])
118116
- name: support.function.io.vanilla.autolisp
119117
match: (?i)(?<=^|['\s()])(?:open|close|(?:read|write)-(?:char|line)|findfile|findtrustedfile|fnsplitl|prin[tc1]|read|load)(?=$|[\s()])
120118
- name: support.function.display.vanilla.autolisp
121119
match: (?i)(?<=^|['\s()])(?:prompt|terpri|textpage|textscr|graphscr|redraw|grtext|grdraw|grvecs|vports|menucmd|menugroup)(?=$|[\s()])
122120
- name: support.function.acad.vanilla.autolisp
123-
match: (?i)(?<=^|['\s()])(?:setvar|getvar|acad-(?:push|pop)-dbmod|alert|acad_(?:helpdlg|colordlg|truecolordlg|truecolorcli)|getfiled)(?=$|[\s()])
121+
match: (?i)(?<=^|['\s()])(?:[gs]etvar|acad-(?:push|pop)-dbmod|alert|acad_(?:helpdlg|colordlg|truecolordlg|truecolorcli)|getfiled)(?=$|[\s()])
124122
- name: support.function.input.vanilla.autolisp
125123
match: (?i)(?<=^|['\s()])(?:initget|get(?:kword|string|int|real|dist|angle|orient|point|corner)|entsel|nentsel|nentselp)(?=$|[\s()])
126124
- name: support.function.entity.vanilla.autolisp
@@ -130,17 +128,17 @@ repository:
130128
- name: support.function.acadmac.vanilla.autolisp
131129
match: (?i)(?<=^|['\s()])(?:dumpallproperties|ispropertyreadonly|[gs]etpropertyvalue)(?=$|[\s()])
132130
- name: support.function.dcl.vanilla.autolisp
133-
match: (?i)(?<=^|['\s()])(?:(?:load|unload|new|start|term|done)_dialog|(?:add|start|end)_list|(?:start|end|slide|fill|vector)_image|(?:set|get|action|mode|dimx|dimy|client_data)_tile|get_attr)(?=$|[\s()])
131+
match: (?i)(?<=^|['\s()])(?:(?:load|unload|new|start|term|done)_dialog|(?:add|start|end)_list|(?:start|end|slide|fill|vector)_image|(?:[gs]et|action|mode|dimx|dimy|client_data)_tile|get_attr)(?=$|[\s()])
134132

135133
vl:
136134
patterns:
137135
- name: support.function.misc.vl.autolisp
138136
match: (?i)(?<=^|['\s()])vl-load-com(?=$|[\s()])
139-
- name: support.function.symbol.vl.autolisp
137+
- name: support.function.symbols.vl.autolisp
140138
match: (?i)(?<=^|['\s()])vl-symbol(?:p|-value|-name)(?=$|[\s()])
141-
- name: support.function.string.vl.autolisp
139+
- name: support.function.strings.vl.autolisp
142140
match: (?i)(?<=^|['\s()])vl-(?:string-(?:elt|(?:left-|right-)?trim|position|search|translate|mismatch|>list)|list->string)(?=$|[\s()])
143-
- name: support.function.list.vl.autolisp
141+
- name: support.function.lists.vl.autolisp
144142
match: (?i)(?<=^|['\s()])vl-(?:consp|list\*|list-length|some|every|member-if(?:-not)?|position|remove(?:-if(?:-not)?)?|sort(?:-i)?)(?=$|[\s()])
145143
- name: support.function.io.vl.autolisp
146144
match: (?i)(?<=^|['\s()])vl-(?:prin[c1]-to-string|file-(?:directory-p|size|systime|rename|copy|delete)|filename-(?:directory|base|extension|mktemp)|directory-files|mkdir)(?=$|[\s()])
@@ -149,27 +147,6 @@ repository:
149147
- name: support.function.namespace.vl.autolisp
150148
match: (?i)(?<=^|['\s()])vl-(?:arx-import|doc-(?:import|export|ref|set)|exit-with-(?:error|value)|list-loaded-vlx|unload-vlx|vlx-loaded-p|bb-(?:ref|set)|load-all|propogate)(?=$|[\s()])
151149

152-
vle:
153-
patterns:
154-
- name: support.constant.vle.autolisp
155-
match: (?i)(?<=^|['\s()])vle-extensions-active(?=$|[\s()])
156-
- name: keyword.control.vle.autolisp
157-
match: (?i)(?<=^|['\s()])until(?=$|[\s()])
158-
- name: support.function.symbol.vle.autolisp
159-
match: (?i)(?<=^|['\s()])vle-symbolp(?=$|[\s()])
160-
- name: support.function.string.vle.autolisp
161-
match: (?i)(?<=^|['\s()])vle-string(?:p|-split)(?=$|[\s()])
162-
- name: support.function.math.vle.autolisp
163-
match: (?i)(?<=^|['\s()])vle-(?:numberp|integerp|realp|ceiling|floor|round|roundto|tan)(?=$|[\s()])
164-
- name: support.function.list.vle.autolisp
165-
match: (?i)(?<=^|['\s()])vle-(?:nth\d|sublist|append|(?:get-|set-)?(?:cdrassoc|cassoc)|list-(?:split|union|intersect|diff|subtract)|put-nth|remove-(?:all|first|last|nth)|search|find|member|subst-nth)(?=$|[\s()])
166-
- name: support.function.activex.vle.autolisp
167-
match: (?i)(?<=^|['\s()])(?:vle-(?:vlaobjectp|variantp|safearrayp)|vlax-2d-point)(?=$|[\s()])
168-
- name: support.function.io.vle.autolisp
169-
match: (?i)(?<=^|['\s()])vle-(?:filep|file->list)(?=$|[\s()])
170-
- name: support.function.display.vle.autolisp
171-
match: (?i)(?<=^|['\s()])vle-displaypause(?=$|[\s()])
172-
173150
vlr:
174151
patterns:
175152
- name: support.function.vlr.autolisp
@@ -211,7 +188,7 @@ repository:
211188
vla:
212189
patterns:
213190
- name: support.function.method.common.vla.autolisp
214-
match: (?i)(?<=^|['\s()])vla-(?:Delete|Move|Copy|(?:Rotate|Mirror)(?:3D)?|ScaleEntity|TransformBy|Array(?:Polar|Rectangular)|Update|Highlight|GetBoundingBox|(?:Get|Set)XData|GetExtensionDictionary|IntersectWith|Offset)(?=$|[\s()])
191+
match: (?i)(?<=^|['\s()])vla-(?:Delete|Move|Copy|(?:Rotate|Mirror)(?:3D)?|ScaleEntity|TransformBy|Array(?:Polar|Rectangular)|Update|Highlight|GetBoundingBox|[GS]etXData|GetExtensionDictionary|IntersectWith|Offset)(?=$|[\s()])
215192
- name: support.function.property.common.vla.autolisp
216193
match: (?i)(?<=^|['\s()])vla-(?:get|put)-(?:Layer|Linetype|LinetypeScale|Lineweight|TrueColor|Material|Visible|EntityTransparency|Rotation|Thickness|Coordinate[s]?|Normal|PlotStyleName|Position|Closed|Area)(?=$|[\s()])
217194
- name: support.function.property.common.vla.autolisp
@@ -233,7 +210,7 @@ repository:
233210
- name: support.function.property.database.vla.autolisp
234211
match: (?i)(?<=^|['\s()])vla-get-(?:Blocks|Dictionaries|DimStyles|FileDependencies|Groups|Layers|Layouts|Linetypes|Materials|(?:Model|Paper)Space|PlotConfigurations|Preferences|RegisteredApplications|SectionManager|SummaryInfo|TextStyles|UserCoordinateSystems|Viewports|Views)(?=$|[\s()])
235212
- name: support.function.method.document.vla.autolisp
236-
match: (?i)(?<=^|['\s()])vla-(?:New|Open|Close|Save|SaveAs|Import|Export|WBlock|LoadShapeFile|PurgeAll|Regen|Activate|AuditInfo|(?:Start|End)UndoMark|(?:Get|Set)Variable|SendCommand)(?=$|[\s()])
213+
match: (?i)(?<=^|['\s()])vla-(?:New|Open|Close|Save|SaveAs|Import|Export|WBlock|LoadShapeFile|PurgeAll|Regen|Activate|AuditInfo|(?:Start|End)UndoMark|[GS]etVariable|SendCommand)(?=$|[\s()])
237214
- name: support.function.property.document.vla.autolisp
238215
match: (?i)(?<=^|['\s()])vla-(?:get|put)-(?:Active(?:DimStyle|Layer|Layout|LineType|Material|PViewport|Space|TextStyle|UCS|Viewport)|Limits|MSpace)(?=$|[\s()])
239216
- name: support.function.property.document.vla.autolisp
@@ -245,7 +222,7 @@ repository:
245222
- name: support.constant.lineweight.vla.autolisp
246223
match: (?i)(?<=^|['\s()])acLnWt(?:ByLayer|ByBlock|ByLwDefault|000|005|009|013|015|018|020|025|030|035|040|050|053|060|070|080|090|100|106|120|140|158|200|211)(?=$|[\s()])
247224
- name: support.function.method.spline.vla.autolisp
248-
match: (?i)(?<=^|['\s()])vla-(?:(?:Add|Delete)FitPoint|ElevateOrder|(?:Get|Set)(?:Control|Fit)Point|GetWeight|PurgeFitData)(?=$|[\s()])
225+
match: (?i)(?<=^|['\s()])vla-(?:(?:Add|Delete)FitPoint|ElevateOrder|[GS]et(?:Control|Fit)Point|GetWeight|PurgeFitData)(?=$|[\s()])
249226
- name: support.function.property.spline.vla.autolisp
250227
match: (?i)(?<=^|['\s()])vla-(?:get|put)-(?:Closed2|Degree2|EndTangent|FitPoints|FitTolerance|KnotParameterization|Knots|SplineFrame|SplineMethod|StartTangent|Weights)(?=$|[\s()])
251228
- name: support.function.property.spline.vla.autolisp
@@ -273,26 +250,45 @@ repository:
273250
- name: support.function.table.vla.autolisp
274251
match: (?i)(?<=^|['\s()])vla-(?:ClearSubSelection|ClearTableStyleOverrides|CreateContent|Delete(?:Cell)?Content|Delete(?:Columns|Rows)|EnableMergeAll|FormatValue|GenerateLayout)(?=$|[\s()])
275252
- name: support.function.method.summaryinfo.vla.autolisp
276-
match: (?i)(?<=^|['\s()])vla-(?:(?:Add|Num)CustomInfo|(?:Get|Set|Remove)CustomBy(?:Index|Key))(?=$|[\s()])
253+
match: (?i)(?<=^|['\s()])vla-(?:(?:Add|Num)CustomInfo|(?:[GS]et|Remove)CustomBy(?:Index|Key))(?=$|[\s()])
277254
- name: support.function.property.summaryinfo.vla.autolisp
278255
match: (?i)(?<=^|['\s()])vla-(?:get|put)-(?:Author|Coments|HyperlinkBase|Keywords|LastSavedBy|RevisionNumber|Subject|Title)(?=$|[\s()])
279256
- name: support.function.method.menu-toolbar.vla.autolisp
280-
match: (?i)(?<=^|['\s()])vla-(?:Save|SaveAs|Unload|Delete|(?:Add(?:MenuItem|Separator|Submenu|ToolbarButton)|(?:Insert(?:Menu)?In|Remove(?:Menu)?From)MenuBar)|Dock|Float|AttachToolbarToFlyout|(?:Get|Set)Bitmaps)(?=$|[\s()])
257+
match: (?i)(?<=^|['\s()])vla-(?:Save|SaveAs|Unload|Delete|(?:Add(?:MenuItem|Separator|Submenu|ToolbarButton)|(?:Insert(?:Menu)?In|Remove(?:Menu)?From)MenuBar)|Dock|Float|AttachToolbarToFlyout|[GS]etBitmaps)(?=$|[\s()])
281258
- name: support.function.property.menu-toolbar.vla.autolisp
282259
match: (?i)(?<=^|['\s()])vla-(?:get|put)-(?:FloatingRows|LargeButtons|Left|Top|Check|Enable|EndSubMenuLevel|HelpString|CommandDisplayName)(?=$|[\s()])
283260
- name: support.function.property.menu-toolbar.vla.autolisp
284261
match: (?i)(?<=^|['\s()])vla-get-(?:MenuFileName|Menus|Submenu|Toolbars|Index|Caption|Label|Macro|NameNoMnemonic|OnMenuBar|ShortcutMenu|Parent|DockStatus|Height|Width|Type|TagString|Flyout)(?=$|[\s()])
285262

263+
vle:
264+
patterns:
265+
- name: support.constant.vle.autolisp
266+
match: (?i)(?<=^|['\s()])vle-extensions-active(?=$|[\s()])
267+
- name: keyword.control.vle.autolisp
268+
match: (?i)(?<=^|['\s()])until(?=$|[\s()])
269+
- name: support.function.symbols.vle.autolisp
270+
match: (?i)(?<=^|['\s()])vle-symbolp(?=$|[\s()])
271+
- name: support.function.strings.vle.autolisp
272+
match: (?i)(?<=^|['\s()])vle-(?:strig-p|string-split)(?=$|[\s()])
273+
- name: support.function.numbers.vle.autolisp
274+
match: (?i)(?<=^|['\s()])vle-(?:numberp|integerp|realp|floor|ceiling|round|roundto|tan)(?=$|[\s()])
275+
- name: support.function.lists.vle.autolisp
276+
match: (?i)(?<=^|['\s()])vle-(?:nth\d|sublist|append|(?:[gs]et-)?(?:cdrassoc|cassoc)|list-(?:split|union|intersect|diff|subtract)|put-nth|remove-(?:all|first|last|nth)|search|find|member|subst-nth)(?=$|[\s()])
277+
- name: support.function.activex.vle.autolisp
278+
match: (?i)(?<=^|['\s()])(?:vle-(?:vlaobjectp|variantp|safearrayp)|vlax-2d-point)(?=$|[\s()])
279+
- name: support.function.io.vle.autolisp
280+
match: (?i)(?<=^|['\s()])vle-(?:filep|file->list)(?=$|[\s()])
281+
- name: support.function.display.vle.autolisp
282+
match: (?i)(?<=^|['\s()])vle-displaypause(?=$|[\s()])
283+
286284
call:
287285
patterns:
288286
- name: support.variable.require.call.autolisp
289287
match: (?i)(?<=^|['\s()])ll-(?:features)(?=$|[\s()])
290288
- name: support.function.require.call.autolisp
291289
match: (?i)(?<=^|['\s()])ll-(?:featurep|provide|require)(?=$|[\s()])
292-
- name: support.function.logic.call.autolisp
293-
match: (?i)(?<=^|['\s()])ll-(?:nand|nor|xor)(?=$|[\s()])
294-
- name: support.function.type.call.autolisp
295-
match: (?i)(?<=^|['\s()])ll-(?:typep|anyp|functionp)(?=$|[\s()])
290+
- name: support.function.lang.call.autolisp
291+
match: (?i)(?<=^|['\s()])ll-(?:nand|nor|xor|functionp|typep|anyp)(?=$|[\s()])
296292
- name: support.constant.boolean.call.autolisp
297293
match: (?i)(?<=^|['\s()])ll-(?:true|false)(?=$|[\s()])
298294
- name: support.function.boolean.call.autolisp
@@ -301,29 +297,29 @@ repository:
301297
match: (?i)(?<=^|['\s()])ll-(?:void)(?=$|[\s()])
302298
- name: support.function.void.call.autolisp
303299
match: (?i)(?<=^|['\s()])ll-(?:voidp)(?=$|[\s()])
304-
- name: support.function.symbol.call.autolisp
300+
- name: support.function.symbols.call.autolisp
305301
match: (?i)(?<=^|['\s()])ll-(?:symbolp|symbol-value|symbol-name)(?=$|[\s()])
306-
- name: support.function.string.call.autolisp
302+
- name: support.function.strings.call.autolisp
307303
match: (?i)(?<=^|['\s()])ll-(?:substring|list->string|string-(?:>list|elt|position)|string-(?:left-|right-)?trim)(?=$|[\s()])
308304
# - name: support.function.stringx.call.autolisp
309305
# match: (?i)(?<=^|['\s()])ll-(?:string(?:=|/=|<|>|<=|>=)|string-(?:not-)?(?:equal|lessp|greaterp))(?=$|[\s()])
306+
- name: support.function.numbers.call.autolisp
307+
match: (?i)(?<=^|['\s()])ll-(?:integerp|realp|natnump|plusp|oddp|evenp|clamp|lerp|mod|quot|frac|signum|copysign|lcm|truncate|floor|ceiling|round[*]?|log10|log2|cbrt|tan|asin|acos|hypot|rtd|dtr|sinh|cosh|tanh|asinh|acosh|atanh)(?=$|[\s()])
308+
- name: support.constant.numbers.call.autolisp
309+
match: (?i)(?<=^|['\s()])ll-(?:e|ln10|ln2|log10e|log2e|pi/2|pi/4|pi/180|180/pi|1/pi|2pi|sqrt2|sqrt1/2)(?=$|[\s()])
310+
- name: support.function.raretrig.call.autolisp
311+
match: (?i)(?<=^|['\s()])ll-(?:cot|sec|csc|acot|asec|acsc|versin|vercos|coversin|covercos|haversin|havercos|hacoversin|hacovercos|exsec|excsc|coth|sech|csch|asech|acsch)(?=$|[\s()])
310312
- name: support.function.random.call.autolisp
311313
match: (?i)(?<=^|['\s()])ll-(?:rand|srand|random|random-seed)(?=$|[\s()])
312-
- name: support.function.number.call.autolisp
313-
match: (?i)(?<=^|['\s()])ll-(?:integerp|realp|natnump|plusp|oddp|evenp|mod|quot)(?=$|[\s()])
314-
- name: support.constant.numlim.call.autolisp
315-
match: (?i)(?<=^|['\s()])ll-(?:most-(?:positive|negative)-fixnum|float-(?:negative-)?epsilon|(?:negative-)?inf|nan)(?=$|[\s()])
316-
- name: support.function.numlim.call.autolisp
317-
match: (?i)(?<=^|['\s()])ll-(?:infp|nanp)(?=$|[\s()])
318-
- name: support.function.math.call.autolisp
319-
match: (?i)(?<=^|['\s()])ll-(?:signum|round|floor|ceiling|truncate|fract|lcm|tan|asin|acos|radians->degrees|degrees->radians)(?=$|[\s()])
320-
- name: support.function.mathx.call.autolisp
321-
match: (?i)(?<=^|['\s()])ll-(?:1/|sqr|exp10|exp2|log10|log2|cot|sec|csc|acot|asec|acsc|versin|vercos|coversin|covercos|haversin|havercos|hacoversin|hacovercos|exsec|excsc|sinh|cosh|tanh|coth|sech|csch|asinh|acosh|atanh|acoth|asech|acsch|gons->radians|radians->gons|gons->degrees|degrees->gons|dms->degrees|degrees->dms)(?=$|[\s()])
322314
- name: support.constant.bitwise.call.autolisp
323315
match: (?i)(?<=^|['\s()])ll-(?:boole-(?:1|2|and|andc1|andc2|c1|c2|clr|eqv|ior|nand|nor|orc1|orc2|set|xor))(?=$|[\s()])
324-
- name: support.function.list.call.autolisp
316+
- name: support.constant.numlims.call.autolisp
317+
match: (?i)(?<=^|['\s()])ll-(?:most-(?:positive|negative)-fixnum|float-(?:negative-)?epsilon|(?:negative-)?inf|nan)(?=$|[\s()])
318+
- name: support.function.numlims.call.autolisp
319+
match: (?i)(?<=^|['\s()])ll-(?:infp|nanp)(?=$|[\s()])
320+
- name: support.function.lists.call.autolisp
325321
match: (?i)(?<=^|['\s()])ll-(?:consp|endp|make-list|first|second|third|fourth|fifth|sixth|seventh|eighth|ninth|tenth|rest|nthcdr|firstn|butlast|butlastn|last-cons|lastn|sublist|subseq|split(?:-if(?:-not)?|-at(?:-first|-last)?|-all)?|partition(?:-all)?|separate|list-length|revappend|copy-(?:list|tree)|count(?:-if(?:-not)?)?|maplist|maptree|some|every|foldr|foldl|reduce(?:-from-end|-with-init)?|member-if(?:-not)?|position(?:-if(?:-not)?)?|inlistp|mismatch|subst(?:-if(?:-not)?|-nth|-first|-last)|substree|sublis|flatten|insert|remove(?:-if(?:-not)?|-nth|-first|-last)?|remove(?:-adjacent)?-duplicates|tailp|ldiff)(?=$|[\s()])
326-
- name: support.function.listset.call.autolisp
322+
- name: support.function.lsets.call.autolisp
327323
match: (?i)(?<=^|['\s()])ll-(?:subsetp|adjoin|union|intersection|set-difference|set-exclusive-or)(?=$|[\s()])
328324
- name: support.function.activex.call.autolisp
329-
match: (?i)(?<=^|['\s()])ll-(?:vla-object-p|variantp|safearrayp)(?=$|[\s()])
325+
match: (?i)(?<=^|['\s()])ll-(?:vlaobjectp|variantp|safearrayp)(?=$|[\s()])

0 commit comments

Comments
 (0)