Add language: LPC

.gitmodules

@@ -881,6 +881,9 @@
 [submodule "vendor/grammars/logtalk.tmbundle"]
 	path = vendor/grammars/logtalk.tmbundle
 	url = https://github.com/textmate/logtalk.tmbundle
+[submodule "vendor/grammars/lpc-language-server"]
+	path = vendor/grammars/lpc-language-server
+	url = https://github.com/jlchmura/lpc-language-server.git
 [submodule "vendor/grammars/lua.tmbundle"]
 	path = vendor/grammars/lua.tmbundle
 	url = https://github.com/LuaLS/lua.tmbundle.git

grammars.yml

@@ -837,6 +837,9 @@ vendor/grammars/logos:
 - source.logos
 vendor/grammars/logtalk.tmbundle:
 - source.logtalk
+vendor/grammars/lpc-language-server:
+- documentation.injection.lpc
+- source.lpc.lang-server
 vendor/grammars/lua.tmbundle:
 - source.lua
 vendor/grammars/m3:

lib/linguist/heuristics.yml

@@ -146,6 +146,12 @@ disambiguations:
   rules:
   - language: XML
     pattern: '^(\s*)(?i:<Project|<Import|<Property|<?xml|xmlns)'
+- extensions: ['.c']
+  rules:
+    - language: LPC
+      named_pattern: lpc
+      negative_pattern: '(?i)([ \t]*(unsigned|uint|enum)|^\s*\*[A-Za-z]|([A-Za-z][A-Za-z0-9_]*\[\]))'
+    - language: C
 - extensions: ['.cairo']
   rules:
     - language: Cairo Zero
@@ -347,6 +353,9 @@ disambiguations:
     named_pattern: objectivec
   - language: C++
     named_pattern: cpp
+  - language: LPC
+    named_pattern: lpc
+    negative_pattern: '(?i)([ \t]*(unsigned|uint|enum|extern|pragma mark|__inline__)|\s*\*\(|^\s*\*[A-Za-z]|([A-Za-z][A-Za-z0-9_]*\[\]))'
   - language: C
 - extensions: ['.hh']
   rules:
@@ -947,6 +956,7 @@ named_patterns:
   - '^[ \t]*#[ \t]*(?:precache|using_animtree)[ \t]*\('
   json: '\A\s*[{\[]'
   key_equals_value: '^[^#!;][^=]*='
+  lpc: '(mixed|nosave|clone_object)|(this_player\(\))|(^inherit [\"A-Za-z][A-Za-z0-9_]*)|(((public|private|protected)\s+)?((varargs|nomask|noshadow)+\s+)?((string|int|mixed|object|mapping)\s+)?[A-Za-z][A-Za-z0-9_]*\()'
   m68k:
   - '(?im)\bmoveq(?:\.l)?\s+#(?:\$-?[0-9a-f]{1,3}|%[0-1]{1,8}|-?[0-9]{1,3}),\s*d[0-7]\b'
   - '(?im)^\s*move(?:\.[bwl])?\s+(?:sr|usp),\s*[^\s]+'

lib/linguist/languages.yml

@@ -3780,6 +3780,15 @@ LOLCODE:
   tm_scope: source.lolcode
   ace_mode: text
   language_id: 192
+LPC:
+  type: programming
+  extensions:
+  - ".c"
+  - ".h"
+  tm_scope: source.lpc.lang-server
+  ace_mode: c_cpp
+  language_id: 397797394
+  color: "#ffb100"
 LSL:
   type: programming
   tm_scope: source.lsl

samples/LPC/area_env.h

@@ -0,0 +1,4 @@
+
+public string query_label() {
+  return "Area Label";
+}

samples/LPC/array2.c

@@ -0,0 +1,7 @@
+string* arr = ({ "a", "b", "c" });
+test() {
+    arr += ({ "d" });
+    // should always allow subtracting 0 elements
+    arr -= ({ 0 });
+    arr -= ({ "a" });
+}

samples/LPC/callOther3.c

@@ -0,0 +1,7 @@
+test() {    
+    /** @type {"object.c"*} */
+    object *o = ({});
+
+    // call other on an array is legal in fluffos
+    o->query_number();
+}

samples/LPC/closures.c

@@ -0,0 +1,8 @@
+test() {
+    int *arr = ({1, 2, 3});
+    int *i = filter(arr, (: $1 > 1 :));
+}
+
+private object *apply_custom_filter(object *obs, function f, object tp) {
+    return filter(obs, (: (*$(f))($1, $(tp)) :)) ;
+}