additional samples and fixed extensions list

lib/linguist/languages.yml

@@ -436,9 +436,7 @@ Clarion:
   - .tpl
   - .tpw
   - .equ
-  - .int
   - .txa
-  - .txd
   tm_scope: source.clarion
 
 Clean:

samples/Clarion/Defaults.equ

@@ -0,0 +1,29 @@
+! Severity of error
+Level:Benign        EQUATE(0)
+Level:User          EQUATE(1)
+Level:Program       EQUATE(2)
+Level:Fatal         EQUATE(3)
+Level:Cancel        EQUATE(4)
+Level:Notify        EQUATE(5)
+
+ICON:VCRtop         EQUATE ('<0FFH,02H,81H,7FH>')
+ICON:VCRrewind      EQUATE ('<0FFH,02H,82H,7FH>')
+ICON:VCRback        EQUATE ('<0FFH,02H,83H,7FH>')
+ICON:VCRplay        EQUATE ('<0FFH,02H,84H,7FH>')
+ICON:VCRfastforward EQUATE ('<0FFH,02H,85H,7FH>')
+ICON:VCRbottom      EQUATE ('<0FFH,02H,86H,7FH>')
+ICON:VCRlocate      EQUATE ('<0FFH,02H,87H,7FH>')
+
+
+ff_:queue    QUEUE,PRE(ff_),TYPE
+name           string(13)
+date           long
+time           long
+size           long
+attrib         byte
+             END
+
+UINT64   GROUP,TYPE
+lo         ULONG
+hi         ULONG
+         END

samples/Clarion/Hello.inc

@@ -0,0 +1,9 @@
+HelloClass        Class(),Type,Module('HelloClass.Clw'),LINK('HelloClass.Clw',1)
+! Properties
+
+! Methods
+Construct              PROCEDURE
+Destruct               PROCEDURE () ,VIRTUAL
+SayHello               PROCEDURE
+                     END
+!_EndOfInclude_

samples/Clarion/HelloWorld.clw

@@ -0,0 +1,10 @@
+  PROGRAM
+
+  MAP
+  END
+
+  CODE
+
+  MESSAGE('Hello World!')
+
+  RETURN

samples/Clarion/SampleTemplate.tpl

@@ -0,0 +1,3 @@
+#TEMPLATE(SampleTemplate,'This is a sample Template'),PRIVATE,FAMILY('ABC')
+#INCLUDE('FileTwo.TPW')
+#INCLUDE('FileThree.TPW')

samples/Clarion/School.txa

@@ -0,0 +1,8 @@
+[PROCEDURE]
+NAME SampleProc
+[COMMON]
+FROM ABC Source
+MODIFIED '2014/11/26' '14:48:17'
+[PROMPTS]
+%GenerateOpenClose LONG  (0)
+%GenerateSaveRestore LONG  (0)

samples/Clarion/Utility.tpw

@@ -0,0 +1,16 @@
+#UTILITY(ProcCallTree, 'Output procedure call tree')
+ #CREATE(%Application & '.TRE')
+Procedure Call Tree: for %Application
+#INSERT(%DisplayTree, %FirstProcedure, '', '  ')
+#CLOSE
+#!***********************************************************
+#GROUP(%DisplayTree, %ThisProc, %Level, %NextIndent)
+ #FIX(%Procedure, %ThisProc)
+%Level+-%ThisProc (%ProcedureTemplate)
+ #FOR(%ProcedureCalled)
+   #IF(INSTANCE(%ProcedureCalled) = ITEMS(%ProcedureCalled))
+#INSERT(%DisplayTree, %ProcedureCalled, %Level & %NextIndent, '  ')
+   #ELSE
+#INSERT(%DisplayTree, %ProcedureCalled, %Level & %NextIndent, '| ')
+   #ENDIF
+#ENDFOR

samples/Clarion/hello.clw

@@ -1,10 +1,12 @@
-  PROGRAM
-
+  MEMBER()
+  INCLUDE('HelloClass.inc'),ONCE
   MAP
   END
 
+HelloClass.Construct              PROCEDURE
+  CODE
+HelloClass.Destruct               PROCEDURE() !,VIRTUAL
+  CODE
+HelloClass.SayHello               PROCEDURE
   CODE
-
   MESSAGE('Hello World!')
-
-  RETURN