! Syntax highlighting pattern for EmbPerl (http://perl.apache.org/embperl
! Created by Hogni Gylfason of Gaedamidlun (Iceland)
! Please send flames etc to hogni@gm.is :-)
!
! INSTALLATION
!
! Load this pattern by starting nedit with:
!
!       nedit -import <name of this file>
!
! Then, check that the patterns were loaded correctly, and choose Save Defaults
! from the Preferences menu.  The new patterns will now be incorporated into
! your own .nedit file, so the next time you start NEdit, you will no longer
! need to use -import.
!
! These comments will not appear in your ~/.nedit
!
nedit.highlightPatterns: EmbPerl:1:0{\n\
		special chars:"\\&[-.a-zA-Z0-9#]*;?":::Text Escape::\n\
		comment:"\\[#":"#\\]"::Comment::\n\
		perl block:"\\[-":"-\\]"::Subroutine::\n\
		perl block2:"\\[$":"$\\]"::Subroutine::\n\
		perl block3:"\\[\\+":"\\+\\]"::Subroutine::\n\
		element:"(\\<)(/|!)?[-.a-zA-Z0-9]*":"\\>":"[^-.a-zA-Z0-9 \\t\\n=""'%]":Text Key::\n\
		attribute:"[^'""]|\\n":::Text Arg:element:\n\
		single quote string:"'":"'":"[<>]":Text Arg1:element:\n\
		single quote string 2:"'":"'":"[<>]":Text Arg1:perl block:\n\
		single quote string 3:"'":"'":"[<>]":Text Arg1:perl block2:\n\
		single quote string 4:"'":"'":"[<>]":Text Arg1:perl block3:\n\
		double quote string:"""":"""":"[<>]":Text Arg1:element:\n\
		double quote string 2:"""":"""":"[<>]":Text Arg1:perl block:\n\
		double quote string 3:"""":"""":"[<>]":Text Arg1:perl block2:\n\
		double quote string 4:"""":"""":"[<>]":Text Arg1:perl block3:\n\
		perl comment:"#":::Comment:perl block:\n\
		dq string esc chars:"\\\\(.|\\n)":::String1:double quote string:\n\
		dq string esc chars 2:"\\\\(.|\\n)":::String1:double quote string 2:\n\
		dq string esc chars 3:"\\\\(.|\\n)":::String1:double quote string 2:\n\
		sq string esc chars:"\\\\(.|\\n)":::String1:single quote string:\n\
		sq string esc chars 2:"\\\\(.|\\n)":::String1:single quote string 2:\n\
		sq string esc chars 3:"\\\\(.|\\n)":::String1:single quote string 3:\n\
		keywords1:"<(my|local|new|if|until|while|elsif|else|eval|unless|for|foreach|continue|exit|die|last|goto|next|redo|return|local|exec|do|use|require|package|eval|BEGIN|END|eq|ne|not|\\|\\||\\&\\&|and|or)>":::Keyword:perl block:\n\
		keywords2:"<(my|local|new|if|until|while|elsif|else|eval|unless|for|foreach|continue|exit|die|last|goto|next|redo|return|local|exec|do|use|require|package|eval|BEGIN|END|eq|ne|not|\\|\\||\\&\\&|and|or)>":::Keyword:perl block2:\n\
		variables 1:"[$@%]({[^}]*}|[^a-zA-Z0-9_ /\\t\\n\\.,\\\\[\\\\{\\\\(]|[0-9]+|[a-zA-Z_][a-zA-Z0-9_]*)?":::Identifier1:perl block:\n\
		variables 3:"[$@%]({[^}]*}|[^a-zA-Z0-9_ /\\t\\n\\.,\\\\[\\\\{\\\\(]|[0-9]+|[a-zA-Z_][a-zA-Z0-9_]*)?":::Identifier1:perl block3:\n\
		variables 2:"[$@%]({[^}]*}|[^a-zA-Z0-9_ /\\t\\n\\.,\\\\[\\\\{\\\\(]|[0-9]+|[a-zA-Z_][a-zA-Z0-9_]*)?":::Identifier1:perl block2:\n\
		variables in strings 1:"[$@%&]({[^}]*}|[^a-zA-Z0-9_ /\\t\\n\\.,\\\\[\\\\{\\\\(]|[0-9]+|[a-zA-Z_][a-zA-Z0-9_]*)?":::Identifier1:double quote string 2:\n\
		variables in strings 2:"[$@%&]({[^}]*}|[^a-zA-Z0-9_ /\\t\\n\\.,\\\\[\\\\{\\\\(]|[0-9]+|[a-zA-Z_][a-zA-Z0-9_]*)?":::Identifier1:double quote string 3:\n\
	}
nedit.languageModes:	EmbPerl:.ehtm::Smart:None:::

! Created from the default HTML and Perl patterns with some additions of my own