1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
-- Copyright 2006-2016 Mitchell mitchell.att.foicica.com. See LICENSE.
-- APDL LPeg lexer.
local l = require('lexer')
local token, word_match = l.token, l.word_match
local P, R, S = lpeg.P, lpeg.R, lpeg.S
local M = {_NAME = 'apdl'}
-- Whitespace.
local ws = token(l.WHITESPACE, l.space^1)
-- Comments.
local comment = token(l.COMMENT, '!' * l.nonnewline^0)
-- Strings.
local string = token(l.STRING, l.delimited_range("'", true, true))
-- Numbers.
local number = token(l.NUMBER, l.float + l.integer)
-- Keywords.
local keyword = token(l.KEYWORD, word_match({
'*abbr', '*abb', '*afun', '*afu', '*ask', '*cfclos', '*cfc', '*cfopen',
'*cfo', '*cfwrite', '*cfw', '*create', '*cre', '*cycle', '*cyc', '*del',
'*dim', '*do', '*elseif', '*else', '*enddo', '*endif', '*end', '*eval',
'*eva', '*exit', '*exi', '*get', '*go', '*if', '*list', '*lis', '*mfouri',
'*mfo', '*mfun', '*mfu', '*mooney', '*moo', '*moper', '*mop', '*msg',
'*repeat', '*rep', '*set', '*status', '*sta', '*tread', '*tre', '*ulib',
'*uli', '*use', '*vabs', '*vab', '*vcol', '*vco', '*vcum', '*vcu', '*vedit',
'*ved', '*vfact', '*vfa', '*vfill', '*vfi', '*vfun', '*vfu', '*vget', '*vge',
'*vitrp', '*vit', '*vlen', '*vle', '*vmask', '*vma', '*voper', '*vop',
'*vplot', '*vpl', '*vput', '*vpu', '*vread', '*vre', '*vscfun', '*vsc',
'*vstat', '*vst', '*vwrite', '*vwr', '/anfile', '/anf', '/angle', '/ang',
'/annot', '/ann', '/anum', '/anu', '/assign', '/ass', '/auto', '/aut',
'/aux15', '/aux2', '/aux', '/axlab', '/axl', '/batch', '/bat', '/clabel',
'/cla', '/clear', '/cle', '/clog', '/clo', '/cmap', '/cma', '/color', '/col',
'/com', '/config', '/contour', '/con', '/copy', '/cop', '/cplane', '/cpl',
'/ctype', '/cty', '/cval', '/cva', '/delete', '/del', '/devdisp', '/device',
'/dev', '/dist', '/dis', '/dscale', '/dsc', '/dv3d', '/dv3', '/edge', '/edg',
'/efacet', '/efa', '/eof', '/erase', '/era', '/eshape', '/esh', '/exit',
'/exi', '/expand', '/exp', '/facet', '/fac', '/fdele', '/fde', '/filname',
'/fil', '/focus', '/foc', '/format', '/for', '/ftype', '/fty', '/gcmd',
'/gcm', '/gcolumn', '/gco', '/gfile', '/gfi', '/gformat', '/gfo', '/gline',
'/gli', '/gmarker', '/gma', '/golist', '/gol', '/gopr', '/gop', '/go',
'/graphics', '/gra', '/gresume', '/gre', '/grid', '/gri', '/gropt', '/gro',
'/grtyp', '/grt', '/gsave', '/gsa', '/gst', '/gthk', '/gth', '/gtype', '/gty',
'/header', '/hea', '/input', '/inp', '/larc', '/lar', '/light', '/lig',
'/line', '/lin', '/lspec', '/lsp', '/lsymbol', '/lsy', '/menu', '/men',
'/mplib', '/mpl', '/mrep', '/mre', '/mstart', '/mst', '/nerr', '/ner',
'/noerase', '/noe', '/nolist', '/nol', '/nopr', '/nop', '/normal', '/nor',
'/number', '/num', '/opt', '/output', '/out', '/page', '/pag', '/pbc', '/pbf',
'/pcircle', '/pci', '/pcopy', '/pco', '/plopts', '/plo', '/pmacro', '/pma',
'/pmeth', '/pme', '/pmore', '/pmo', '/pnum', '/pnu', '/polygon', '/pol',
'/post26', '/post1', '/pos', '/prep7', '/pre', '/psearch', '/pse', '/psf',
'/pspec', '/psp', '/pstatus', '/pst', '/psymb', '/psy', '/pwedge', '/pwe',
'/quit', '/qui', '/ratio', '/rat', '/rename', '/ren', '/replot', '/rep',
'/reset', '/res', '/rgb', '/runst', '/run', '/seclib', '/sec', '/seg',
'/shade', '/sha', '/showdisp', '/show', '/sho', '/shrink', '/shr', '/solu',
'/sol', '/sscale', '/ssc', '/status', '/sta', '/stitle', '/sti', '/syp',
'/sys', '/title', '/tit', '/tlabel', '/tla', '/triad', '/tri', '/trlcy',
'/trl', '/tspec', '/tsp', '/type', '/typ', '/ucmd', '/ucm', '/uis', '/ui',
'/units', '/uni', '/user', '/use', '/vcone', '/vco', '/view', '/vie',
'/vscale', '/vsc', '/vup', '/wait', '/wai', '/window', '/win', '/xrange',
'/xra', '/yrange', '/yra', '/zoom', '/zoo'
}, '*/', true))
-- Identifiers.
local identifier = token(l.IDENTIFIER, l.word)
-- Functions.
local func = token(l.FUNCTION, l.delimited_range('%', true, true))
-- Operators.
local operator = token(l.OPERATOR, S('+-*/$=,;()'))
-- Labels.
local label = token(l.LABEL, l.starts_line(':') * l.word)
M._rules = {
{'whitespace', ws},
{'keyword', keyword},
{'identifier', identifier},
{'string', string},
{'number', number},
{'function', func},
{'label', label},
{'comment', comment},
{'operator', operator},
}
M._foldsymbols = {
_patterns = {'%*[A-Za-z]+', '!'},
[l.KEYWORD] = {
['*if'] = 1, ['*IF'] = 1, ['*do'] = 1, ['*DO'] = 1, ['*dowhile'] = 1,
['*DOWHILE'] = 1,
['*endif'] = -1, ['*ENDIF'] = -1, ['*enddo'] = -1, ['*ENDDO'] = -1
},
[l.COMMENT] = {['!'] = l.fold_line_comments('!')}
}
return M
|
