KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-28 17:20:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Removing .inc from Clarion

Browse Source
This commit is contained in:
Arfon Smith
2015-04-10 15:09:00 -05:00
parent 80148ae4e4
commit 76b84decfe
4 changed files with 1 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/linguist/languages.yml
View File

@@ -504,11 +504,10 @@ Cirru:
Clarion:
type: programming
color: #f29200
color: "#f29200"
ace_mode: text
extensions:
- .clw
- .inc
tm_scope: source.clarion
Clean:

36
samples/Clarion/CStringClass.inc
View File

@@ -1,36 +0,0 @@
_CStringClass_ EQUATE(1)
NOT_CASE_SENSITIVE EQUATE(FALSE)
DEFAULT_CS_BUFFER_SIZE EQUATE(1024)
!--------------------------------------------------------------------------------
!Class CStringClass
!
!--------------------------------------------------------------------------------
CStringClass Class(),Type,Module('CStringClass.Clw'),LINK('CStringClass.Clw',1)
! Properties
cs &CSTRING, PROTECTED
bufferSize LONG
newStrSize LONG ,PROTECTED
strLength LONG ,PROTECTED
nextPointer LONG
! Methods
Cat PROCEDURE (STRING pStr) ,*CSTRING,PROC ,VIRTUAL
Construct PROCEDURE
Contains PROCEDURE (STRING pFind, BYTE pCaseSensitive=TRUE) ,BYTE ,VIRTUAL
Destruct PROCEDURE () ,VIRTUAL
Len PROCEDURE ,LONG ,VIRTUAL
Lower PROCEDURE () ,STRING ,VIRTUAL
Replace PROCEDURE (STRING pFind, STRING pReplace) ,*CSTRING,PROC ,VIRTUAL
Str PROCEDURE (STRING pStr) ,*CSTRING, PROC ,VIRTUAL
Str PROCEDURE () ,*CSTRING ,VIRTUAL
SubString PROCEDURE (LONG pPosition, LONG pLength) ,STRING,PROC ,VIRTUAL
ToLower PROCEDURE () ,*CSTRING,PROC ,VIRTUAL
ToUpper PROCEDURE () ,*CSTRING,PROC ,VIRTUAL
Trim PROCEDURE () ,*CSTRING,PROC ,VIRTUAL
Upper PROCEDURE () ,STRING ,VIRTUAL
IndexOf PROCEDURE (STRING pLookIn, BYTE pCaseSensitive=TRUE) ,LONG ,VIRTUAL
FoundIn PROCEDURE (STRING pLookIn, BYTE pCaseSensitive=TRUE) ,BYTE ,VIRTUAL
SetBuffer PROCEDURE (LONG pNewBuffer) ,VIRTUAL
EscapeXml PROCEDURE (<STRING pStr>) ,STRING ,VIRTUAL
END
!_EndOfInclude_

48
samples/Clarion/ConsoleSupport.inc
View File

@@ -1,48 +0,0 @@
_ConsoleSupport_ EQUATE(1)
HANDLE EQUATE(UNSIGNED)
DWORD EQUATE(ULONG)
INVALID_HANDLE_VALUE EQUATE(-1)
INVALID_OTHER EQUATE(-2)
NULL EQUATE(0)
!************************************************************************************************************
! Console-specific EQUATEs
!************************************************************************************************************
ENABLE_PROCESSED_INPUT EQUATE(1) ! Input Mode flags
ENABLE_LINE_INPUT EQUATE(2)
ENABLE_ECHO_INPUT EQUATE(4)
ENABLE_WINDOW_INPUT EQUATE(8)
ENABLE_MOUSE_INPUT EQUATE(16)
ENABLE_PROCESSED_OUTPUT EQUATE(1) ! Output Mode flags
ENABLE_WRAP_AT_EOL_OUTPUT EQUATE(2)
STD_INPUT_HANDLE EQUATE(-10) ! Standard input and output handles
STD_OUTPUT_HANDLE EQUATE(-11)
STD_ERROR_HANDLE EQUATE(-12)
CONSOLE_TEXTMODE_BUFFER EQUATE(1) ! The type of console screen buffer to create
ATTACH_PARENT_PROCESS EQUATE(-1)
ConsoleSupport Class(),Type,Module('ConsoleSupport.Clw'),LINK('ConsoleSupport.Clw',1)
! Properties
InputHandle Handle
OutputHandle Handle
TextBuffer CString(2048)
OutBuffer CString(2048)
InBuffer CString(2048)
BytesWritten Long
BytesRead Long
Prefix CSTRING(21)
! Methods
Construct PROCEDURE
Destruct PROCEDURE () ,VIRTUAL
Init PROCEDURE () ,BYTE,PROC,VIRTUAL
WriteLine PROCEDURE (STRING pText) ,BYTE,PROC,VIRTUAL
ReadKey PROCEDURE () ,STRING,PROC,VIRTUAL
END
!_EndOfInclude_

9
samples/Clarion/Hello.inc
View File

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