Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Browse files
Browse the repository at this point in the history
fix #997: Pascal Language Support
- Loading branch information
Showing
6 changed files
with
240 additions
and
1 deletion.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,48 @@ | ||
(***************************************************************************** | ||
* A simple bubble sort program. Reads integers, one per line, and prints * | ||
* them out in sorted order. Blows up if there are more than 49. * | ||
*****************************************************************************) | ||
PROGRAM Sort(input, output); | ||
CONST | ||
(* Max array size. *) | ||
MaxElts = 50; | ||
TYPE | ||
(* Type of the element array. *) | ||
IntArrType = ARRAY [1..MaxElts] OF Integer; | ||
|
||
VAR | ||
(* Indexes, exchange temp, array size. *) | ||
i, j, tmp, size: integer; | ||
|
||
(* Array of ints *) | ||
arr: IntArrType; | ||
|
||
(* Read in the integers. *) | ||
PROCEDURE ReadArr(VAR size: Integer; VAR a: IntArrType); | ||
BEGIN | ||
size := 1; | ||
WHILE NOT eof DO BEGIN | ||
readln(a[size]); | ||
IF NOT eof THEN | ||
size := size + 1 | ||
END | ||
END; | ||
|
||
BEGIN | ||
(* Read *) | ||
ReadArr(size, arr); | ||
|
||
(* Sort using bubble sort. *) | ||
FOR i := size - 1 DOWNTO 1 DO | ||
FOR j := 1 TO i DO | ||
IF arr[j] > arr[j + 1] THEN BEGIN | ||
tmp := arr[j]; | ||
arr[j] := arr[j + 1]; | ||
arr[j + 1] := tmp; | ||
END; | ||
|
||
(* Print. *) | ||
FOR i := 1 TO size DO | ||
writeln(arr[i]) | ||
END. | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,62 @@ | ||
/* ***** BEGIN LICENSE BLOCK ***** | ||
* Distributed under the BSD license: | ||
* | ||
* Copyright (c) 2012, Ajax.org B.V. | ||
* All rights reserved. | ||
* | ||
* Redistribution and use in source and binary forms, with or without | ||
* modification, are permitted provided that the following conditions are met: | ||
* * Redistributions of source code must retain the above copyright | ||
* notice, this list of conditions and the following disclaimer. | ||
* * Redistributions in binary form must reproduce the above copyright | ||
* notice, this list of conditions and the following disclaimer in the | ||
* documentation and/or other materials provided with the distribution. | ||
* * Neither the name of Ajax.org B.V. nor the | ||
* names of its contributors may be used to endorse or promote products | ||
* derived from this software without specific prior written permission. | ||
* | ||
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND | ||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED | ||
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE | ||
* DISCLAIMED. IN NO EVENT SHALL AJAX.ORG B.V. BE LIABLE FOR ANY | ||
* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES | ||
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND | ||
* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT | ||
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS | ||
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | ||
* | ||
* | ||
* Contributor(s): | ||
* | ||
* | ||
* | ||
* ***** END LICENSE BLOCK ***** */ | ||
|
||
/* | ||
THIS FILE WAS AUTOGENERATED BY mode.tmpl.js | ||
*/ | ||
|
||
define(function(require, exports, module) { | ||
"use strict"; | ||
|
||
var oop = require("../lib/oop"); | ||
var TextMode = require("./text").Mode; | ||
var Tokenizer = require("../tokenizer").Tokenizer; | ||
var PascalHighlightRules = require("./pascal_highlight_rules").PascalHighlightRules; | ||
// TODO: pick appropriate fold mode | ||
var FoldMode = require("./folding/coffee").FoldMode; | ||
|
||
var Mode = function() { | ||
var highlighter = new PascalHighlightRules(); | ||
this.foldingRules = new FoldMode(); | ||
this.$tokenizer = new Tokenizer(highlighter.getRules()); | ||
}; | ||
oop.inherits(Mode, TextMode); | ||
|
||
(function() { | ||
// Extra logic goes here. | ||
}).call(Mode.prototype); | ||
|
||
exports.Mode = Mode; | ||
}); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,127 @@ | ||
/* ***** BEGIN LICENSE BLOCK ***** | ||
* Distributed under the BSD license: | ||
* | ||
* Copyright (c) 2012, Ajax.org B.V. | ||
* All rights reserved. | ||
* | ||
* Redistribution and use in source and binary forms, with or without | ||
* modification, are permitted provided that the following conditions are met: | ||
* * Redistributions of source code must retain the above copyright | ||
* notice, this list of conditions and the following disclaimer. | ||
* * Redistributions in binary form must reproduce the above copyright | ||
* notice, this list of conditions and the following disclaimer in the | ||
* documentation and/or other materials provided with the distribution. | ||
* * Neither the name of Ajax.org B.V. nor the | ||
* names of its contributors may be used to endorse or promote products | ||
* derived from this software without specific prior written permission. | ||
* | ||
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND | ||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED | ||
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE | ||
* DISCLAIMED. IN NO EVENT SHALL AJAX.ORG B.V. BE LIABLE FOR ANY | ||
* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES | ||
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND | ||
* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT | ||
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS | ||
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | ||
* | ||
* ***** END LICENSE BLOCK ***** */ | ||
|
||
/* THIS FILE WAS AUTOGENERATED FROM tool\tm bundles\pascal.tmbundle\Syntaxes\Pascal.plist (UUID: F42FA544-6B1C-11D9-9517-000D93589AF6) */ | ||
/**************************************************************** | ||
* IT MIGHT NOT BE PERFECT, PARTICULARLY: * | ||
* IN DECIDING STATES TO TRANSITION TO, * | ||
* IGNORING WHITESPACE, * | ||
* IGNORING GROUPS WITH ?:, * | ||
* EXTENDING EXISTING MODES, * | ||
* GATHERING KEYWORDS, OR * | ||
* DECIDING WHEN TO USE PUSH. * | ||
* ...But it's a good start from an existing *.tmlanguage file. * | ||
****************************************************************/ | ||
|
||
define(function(require, exports, module) { | ||
"use strict"; | ||
|
||
var oop = require("../lib/oop"); | ||
var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules; | ||
|
||
var PascalHighlightRules = function() { | ||
// regexp must not have capturing parentheses. Use (?:) instead. | ||
// regexps are ordered -> the first match is used | ||
|
||
this.$rules = { start: | ||
[ { caseInsensitive: true, | ||
token: 'keyword.control.pascal', | ||
regex: '\\b(?:(absolute|abstract|all|and|and_then|array|as|asm|attribute|begin|bindable|case|class|const|constructor|destructor|div|do|do|else|end|except|export|exports|external|far|file|finalization|finally|for|forward|goto|if|implementation|import|in|inherited|initialization|interface|interrupt|is|label|library|mod|module|name|near|nil|not|object|of|only|operator|or|or_else|otherwise|packed|pow|private|program|property|protected|public|published|qualified|record|repeat|resident|restricted|segment|set|shl|shr|then|to|try|type|unit|until|uses|value|var|view|virtual|while|with|xor))\\b' }, | ||
{ caseInsensitive: true, | ||
token: | ||
[ 'variable.pascal', "text", | ||
'storage.type.prototype.pascal', | ||
'entity.name.function.prototype.pascal' ], | ||
regex: '\\b(function|procedure)(\\s+)(\\w+)(\\.\\w+)?(?=(?:\\(.*?\\))?;\\s*(?:attribute|forward|external))' }, | ||
{ token: 'keyword.operator', | ||
regex: '[+\\-;,/*%]|:=|=' }, | ||
{ caseInsensitive: true, | ||
token: | ||
[ 'variable.pascal', "text", | ||
'storage.type.function.pascal', | ||
'entity.name.function.pascal' ], | ||
regex: '\\b(function|procedure)(\\s+)(\\w+)(\\.\\w+)?' }, | ||
{ token: 'constant.numeric.pascal', | ||
regex: '\\b((0(x|X)[0-9a-fA-F]*)|(([0-9]+\\.?[0-9]*)|(\\.[0-9]+))((e|E)(\\+|-)?[0-9]+)?)(L|l|UL|ul|u|U|F|f|ll|LL|ull|ULL)?\\b' }, | ||
{ token: 'punctuation.definition.comment.pascal', | ||
regex: '--', | ||
push: | ||
[ { token: 'comment.line.double-dash.pascal.one', | ||
regex: '$', | ||
next: 'pop' }, | ||
{ defaultToken: 'comment.line.double-dash.pascal.one' } ] }, | ||
{ token: 'punctuation.definition.comment.pascal', | ||
regex: '//', | ||
push: | ||
[ { token: 'comment.line.double-slash.pascal.two', | ||
regex: '$', | ||
next: 'pop' }, | ||
{ defaultToken: 'comment.line.double-slash.pascal.two' } ] }, | ||
{ token: 'punctuation.definition.comment.pascal', | ||
regex: '\\(\\*', | ||
push: | ||
[ { token: 'punctuation.definition.comment.pascal', | ||
regex: '\\*\\)', | ||
next: 'pop' }, | ||
{ defaultToken: 'comment.block.pascal.one' } ] }, | ||
{ token: 'punctuation.definition.comment.pascal', | ||
regex: '\\{', | ||
push: | ||
[ { token: 'punctuation.definition.comment.pascal', | ||
regex: '\\}', | ||
next: 'pop' }, | ||
{ defaultToken: 'comment.block.pascal.two' } ] }, | ||
{ token: 'punctuation.definition.string.begin.pascal', | ||
regex: '"', | ||
push: | ||
[ { token: 'constant.character.escape.pascal', regex: '\\\\.' }, | ||
{ token: 'punctuation.definition.string.end.pascal', | ||
regex: '"', | ||
next: 'pop' }, | ||
{ defaultToken: 'string.quoted.double.pascal' } ], | ||
//Double quoted strings are an extension and (generally) support C-style escape sequences. | ||
}, | ||
{ token: 'punctuation.definition.string.begin.pascal', | ||
regex: '\'', | ||
push: | ||
[ { token: 'constant.character.escape.apostrophe.pascal', | ||
regex: '\'\'' }, | ||
{ token: 'punctuation.definition.string.end.pascal', | ||
regex: '\'', | ||
next: 'pop' }, | ||
{ defaultToken: 'string.quoted.single.pascal' } ] } ] } | ||
|
||
this.normalizeRules(); | ||
}; | ||
|
||
oop.inherits(PascalHighlightRules, TextHighlightRules); | ||
|
||
exports.PascalHighlightRules = PascalHighlightRules; | ||
}); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters