From a740ef91e6689f86011b70c7bbe2589abf78ae6b Mon Sep 17 00:00:00 2001
From: patdenice <patdenice@piwigo.org>
Date: Tue, 12 Apr 2011 11:12:51 +0000
Subject: feature:2262 Replace editarea by Codemirror: http://codemirror.net

git-svn-id: http://piwigo.org/svn/trunk@10307 68402e56-0260-453c-a942-63ccdbb3a9ee
---
 .../LocalFilesEditor/editarea/reg_syntax/perl.js   | 88 ----------------------
 1 file changed, 88 deletions(-)
 delete mode 100644 plugins/LocalFilesEditor/editarea/reg_syntax/perl.js

(limited to 'plugins/LocalFilesEditor/editarea/reg_syntax/perl.js')

diff --git a/plugins/LocalFilesEditor/editarea/reg_syntax/perl.js b/plugins/LocalFilesEditor/editarea/reg_syntax/perl.js
deleted file mode 100644
index d9cc0b621..000000000
--- a/plugins/LocalFilesEditor/editarea/reg_syntax/perl.js
+++ /dev/null
@@ -1,88 +0,0 @@
-/***************************************************************************
- * (c) 2008 - file created by Christoph Pinkel, MTC Infomedia OHG.
- *
- * You may choose any license of the current release or any future release
- * of editarea to use, modify and/or redistribute this file.
- *
- * This language specification file supports for syntax checking on
- * a large subset of Perl 5.x.
- * The basic common syntax of Perl is fully supported, but as for
- * the highlighting of built-in operations, it's mainly designed
- * to support for hightlighting Perl code in a Safe environment (compartment)
- * as used by CoMaNet for evaluation of administrative scripts. This Safe
- * compartment basically allows for all of Opcode's :default operations,
- * but little others. See http://perldoc.perl.org/Opcode.html to learn
- * more.
- ***************************************************************************/
-
-editAreaLoader.load_syntax["perl"] = {
-	'DISPLAY_NAME' : 'Perl',
-	'COMMENT_SINGLE' : {1 : '#'},
-	'QUOTEMARKS' : {1: "'", 2: '"'},
-	'KEYWORD_CASE_SENSITIVE' : true,
-	'KEYWORDS' :
-	{
-		'core' :
-			[ "if", "else", "elsif", "while", "for", "each", "foreach",
-				"next", "last", "goto", "exists", "delete", "undef",
-				"my", "our", "local", "use", "require", "package", "keys", "values",
-				"sub", "bless", "ref", "return" ],
-		'functions' :
-			[
-				//from :base_core
-				"int", "hex", "oct", "abs", "substr", "vec", "study", "pos",
-				"length", "index", "rindex", "ord", "chr", "ucfirst", "lcfirst",
-				"uc", "lc", "quotemeta", "chop", "chomp", "split", "list", "splice",
-				"push", "pop", "shift", "unshift", "reverse", "and", "or", "dor",
-				"xor", "warn", "die", "prototype",
-				//from :base_mem
-				"concat", "repeat", "join", "range",
-				//none from :base_loop, as we'll see them as basic statements...
-				//from :base_orig
-				"sprintf", "crypt", "tie", "untie", "select", "localtime", "gmtime",
-				//others
-				"print", "open", "close"
-			]
-	},
-	'OPERATORS' :
-		[ '+', '-', '/', '*', '=', '<', '>', '!', '||', '.', '&&',
-			' eq ', ' ne ', '=~' ],
-	'DELIMITERS' :
-		[ '(', ')', '[', ']', '{', '}' ],
-	'REGEXPS' :
-	{
-		'packagedecl' : { 'search': '(package )([^ \r\n\t#;]*)()',
-			'class' : 'scopingnames',
-			'modifiers' : 'g', 'execute' : 'before' },
-		'subdecl' : { 'search': '(sub )([^ \r\n\t#]*)()',
-			'class' : 'scopingnames',
-			'modifiers' : 'g', 'execute' : 'before' },
-		'scalars' : { 'search': '()(\\\$[a-zA-Z0-9_:]*)()',
-			'class' : 'vars',
-			'modifiers' : 'g', 'execute' : 'after' },
-		'arrays' : { 'search': '()(@[a-zA-Z0-9_:]*)()',
-			'class' : 'vars',
-			'modifiers' : 'g', 'execute' : 'after' },
-		'hashs' : { 'search': '()(%[a-zA-Z0-9_:]*)()',
-			'class' : 'vars',
-			'modifiers' : 'g', 'execute' : 'after' },
-	},
-
-	'STYLES' :
-	{
-		'COMMENTS': 'color: #AAAAAA;',
-		'QUOTESMARKS': 'color: #DC0000;',
-		'KEYWORDS' :
-		{
-			'core' : 'color: #8aca00;',
-			'functions' : 'color: #2B60FF;'
-		},
-		'OPERATORS' : 'color: #8aca00;',
-		'DELIMITERS' : 'color: #0038E1;',
-		'REGEXPS':
-		{
-			'scopingnames' : 'color: #ff0000;',
-			'vars' : 'color: #00aaaa;',
-		}
-	} //'STYLES'
-};
-- 
cgit v1.2.3