!---------------------------------------------------------------------------------------
!
! HIGHLIGHTING PATTERNS FOR THE INPUTFILE OF THE FINITE-ELEMENT-CODE
! ABAQUS
!
!---------------------------------------------------------------------------------------
!
! File Name:         abaqus-5.1.1.pats
! Version Number:    2.3
! Date:              02/02/2001
!
! Author:            Mr. UMB
!                    um.b@gmx.de
!
! Feature:           - syntax highlighting of the ABAQUS input file
!                    - some marcos to find special keywords in ABAQUS input file
!                    - some marcos to generate comments
!
! Installation Instructions: 
!
! Load this file by starting nedit with:
!
!     nedit -import <the 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.
!
nedit.languageModes: \
	   ABAQUS:.inp .par .pes::::::" ,/\\`'!|@#%^&*()=+{}[]"":;<>?"
!
nedit.highlightPatterns: \
	ABAQUS:1:0{\n\
		Kommentar:"(\\*\\*|#)":"$"::Blue4 + Italic::\n\
		Step-Karte:"\\*(step|Step|STEP|end step|End step|End Step|END STEP|endstep|Endstep|ENDSTEP)":::ForestGreen + Plain::\n\
		SK Stern-Karten:"^\\*([\\l|_| |-]+)":"$"::Blue2 + Plain::\n\
		SK - Kartenname:"&":""::IndianRed + Plain:SK Stern-Karten:C\n\
		SK - Komma:",":::Plain:SK Stern-Karten:\n\
		SK - Parameter:"\\<":"\\>"::Plain:SK Stern-Karten:\n\
		SK - Parameter Sohn:"([\\w |||||.|:|\\\\\\-]*)":::Brombeer + Plain:SK - Parameter:\n\
		SK - Set:"([\\l| ]*)(set|Set|SET)([ |]*)(=)([ |]*)([\\w |||||.|:|\\\\\\-]*)":::ForestGreen + Plain:SK Stern-Karten:\n\
		SK - Name:"([\\l| ]*)(name|Name|NAME)([ |]*)(=)([ |]*)([\\w||| ||.|:|\\\\\\-]*)":::ForestGreen + Plain:SK Stern-Karten:\n\
		SK - Interaction:"([\\l| ]*)(interaction|Interaction|INTERACTION)([ |]*)(=)([ |]*)([\\w||| ||.|:|\\\\\\-]*)":::ForestGreen + Plain:SK Stern-Karten:\n\
		SK - Master Slave:"([\\l| ]*)(master|Master|MASTER|slave|Slave|SLAVE)([ |]*)(=)([ |]*)([\\w||| ||.|:|\\\\\\-]*)":::ForestGreen + Plain:SK Stern-Karten:\n\
		SK - Parameter Teil 2:"\\<":"\\>"::Plain::\n\
		SK - Parameter Teil 2 Sohn:"([\\w |||||.|:|\\\\\\-]*)":::Brombeer + Plain:SK - Parameter Teil 2:\n\
		Boundary Conditions:"<[eE]ncastre|[nN]odeform|[nN]ooval|[nN]owarp|[pP]inned|[xX]asymm|[xX]symm|[yY]asymm|[yY]symm|[zZ]asymm|[zZ]symm|ENCASTRE|NODEFORM|NOOVAL|NOWARP|PINNED|XASYMM|XSYMM|YASYMM|YSYMM|ZASYMM|ZSYMM>\\n":::Plain::\n\
		US User-Subroutine:"(      )(subroutine|Subroutine|SUBROUTINE)":"(      )(end[ ]*$|End[ ]*$|END[ ]*$)"::Plain::\n\
		US - Routine:"\\2\\3\\4":"\\2\\3\\4"::ForestGreen + Plain:US User-Subroutine:C\n\
		US - Titel:"(creep|Creep|CREEP|fric|Fric|FRIC|getcurrvel|Getcurrvel|GETCURRVEL|getvrm|Getvrm|GETVRM|getwave|Getwave|GETWAVE|getwavevel|Getwavevel|GETWAVEVEL|getwindvel|Getwindvel|GETWINDVEL|hetval|Hetval|HETVAL|rotsig|Rotsig|ROTSIG|sinv|Sinv|SINV|sprinc|Sprinc|SPRINC|sprind|Sprind|SPRIND|uel|Uel|UEL|uexpan|Uexpan|UEXPAN|ugens|Ugens|UGENS|umat|Umat|UMAT|umatht|Umatht|UMATHT|usdfld|Usdfld|USDFLD|utrs|Utrs|UTRS|xit|Xit|XIT)":::ForestGreen + Plain:US User-Subroutine:\n\
		US - Keywords:"(character\\*\\d*|Character\\*\\d*|CHARACTER\\*\\d*|dimension|Dimension|DIMENSION|parameter|Parameter|PARAMETER|include|Include|INCLUDE|sign|Sign|SIGN|abs|Abs|ABS)":::Blue2 + Plain:US User-Subroutine:\n\
		US - Commands:"(if|If|IF|then|Then|THEN|return|Return|RETURN|call|Call|CALL|endif|Endif|ENDIF|write|Write|WRITE|read|Read|READ)":::IndianRed + Plain:US User-Subroutine:\n\
		US - Kommentare:"^(c|C)":"$"::Blue4 + Italic:US User-Subroutine:\n\
	}
!
nedit.styles: 	Plain:black:Plain\n\
	Black + Plain:black:Plain\n\
	Black + Bold:black:Bold\n\
	Black + Italic:black:Italic\n\
	Black + Bold + Italic:black:Bold Italic\n\
	IndianRed + Plain:IndianRed:Plain\n\
	IndianRed + Bold:IndianRed:Bold\n\
	IndianRed + Italic:IndianRed:Italic\n\
	IndianRed + Bold + Italic:IndianRed:Bold Italic\n\
	Blue2 + Plain:blue2:Plain\n\
	Blue2 + Bold:blue2:Bold\n\
	Blue4 + Italic:blue4:Italic\n\
	Blue4 + Bold + Italic:blue4:Bold Italic\n\
	ForestGreen + Plain:ForestGreen:Plain\n\
	ForestGreen + Bold:ForestGreen:Bold\n\
	ForestGreen + Italic:ForestGreen:Italic\n\
	ForestGreen + Bold + Italic:ForestGreen:Bold Italic\n\
	Brombeer + Plain:#ff0055:Plain\n\
	Brombeer + Bold:#ff0055:Bold\n\
	Brombeer + Italic:#ff0055:Italic\n\
	Brombeer + Bold + Italic:#ff0055:Bold Italic\n\
	Orange + Plain:#ff4a00:Plain\n\
	Orange + Bold:#ff4a00:Bold\n\
	Orange + Italic:#ff4a00:Italic\n\
	Orange + Bold + Italic:#ff4a00:Bold Italic
!
nedit.macroCommands: \
	ABAQUS COMMENT > +/-   %  .........:F9::: {\n\
		mark("a")\n\
		\n\
		if ($selection_start == -1)\n\
		{\n\
		# NICHTS ist selectiert, daher markiere ganze Zeile\n\
		beginning_of_line()\n\
		process_shift_down()\n\
		}\n\
		else\n\
		{\n\
		# markiere bis Anfang der Zeile alles\n\
		end=$selection_end\n\
		beginning_of_selection()\n\
		beginning_of_line()\n\
		start=$cursor\n\
		select(start, end)\n\
		}\n\
		\n\
		# Zeichen in der ersten markierten Zeile sind entscheidend\n\
		anfang=substring(get_selection(), 0, 2)\n\
		\n\
		#t_print("a ="anfang"=\\n")\n\
		#t_print("start="start"=\\n")\n\
		#if (replace_in_string(get_selection(), "^\\\\*\\\\* ", "\\\\*\\\\* ", "regex") == "" )\n\
		\n\
		if (anfang != "**")\n\
		{\n\
		\n\
		# Kommantar an Anfangszeile setzen\n\
		replace-in-selection("^.*$", "\\\\*\\\\* &", "regex")\n\
		beginning-of-selection()\n\
		beginning_of_line()\n\
		\n\
		}\n\
		else\n\
		{\n\
		\n\
		# Kommentar loeschen\n\
		beginning-of-selection()\n\
		replace-in-selection("^\\\\*\\\\* ", "", "regex")\n\
		beginning-of-selection()\n\
		beginning_of_line()\n\
		}\n\
		\n\
		goto_mark("a")\n\
	}\n\
	ABAQUS COMMENT > Text *********:Ctrl+Alt+C::: {\n\
		# Ist etwas makiert/selektiert, oder nicht ?\n\
		if ($selection_start != -1)\n\
		{\n\
		# JA, etwas ist selektiert\n\
		fill_paragraph()\n\
		replace_selection("**********************************************************************\\n")\n\
		}\n\
		else\n\
		{\n\
		# NEIN, nichts ist selektiert\n\
		beginning-of-line()\n\
		insert-string("**********************************************************************\\n")\n\
		beginning-of-line()\n\
		}\n\
	}\n\
	ABAQUS COMMENT > Text-Block *********:Shift+Ctrl+Alt+C::: {\n\
		# Ist etwas makiert/selektiert, oder nicht ?\n\
		if ($selection_start != -1)\n\
		{\n\
		# JA, etwas ist selektiert\n\
		fill_paragraph()\n\
		replace_selection("**\\n**********************************************************************\\n**\\n")\n\
		}\n\
		else\n\
		{\n\
		# NEIN, nichts ist selektiert\n\
		beginning-of-line()\n\
		insert-string("**\\n**********************************************************************\\n**\\n")\n\
		beginning-of-line()\n\
		}\n\
	}\n\
	FIND > 'ERROR' (forward):F1::: {\n\
		find("error", "forward", "lateral")\n\
		\n\
	}\n\
	FIND > 'ERROR' (backward):Shift+F1::: {\n\
		find("error", "backward", "lateral")\n\
		\n\
	}\n\
	FIND > 'ERROR [0-9] at end' (forward):Ctrl+F1::: {\n\
		# Anfangsposition verlegen\n\
		process_down()\n\
		process_down()\n\
		\n\
		# Anfangszeichen finden\n\
		find(" \\\\*\\\\*\\\\*ERROR: ([0-9]+|([A-Z][a-z]+))", "forward", "regex")\n\
		\n\
		# aktuelle Cursorposition\n\
		start_position = $cursor - $column\n\
		\n\
		# Suche nach Ende des Abschnittes\n\
		end_position_1 = search("^$", start_position, "forward", "regex")\n\
		end_position_2 = search("^[ ]*\\\\*", start_position+10, "forward", "regex")\n\
		if (end_position_2 == -1)  \n\
		   end_position_2 = 9999999\n\
		if (end_position_1 < end_position_2) \n\
		   end_position = end_position_1\n\
		else\n\
		  end_position = end_position_2\n\
		\n\
		# Selektieren\n\
		select(start_position, end_position)\n\
		\n\
		# Cursorposition setzen\n\
		set_cursor_pos(end_position)\n\
	}\n\
	FIND > 'ERROR [0-9] at end' (backward):Shift+Ctrl+F1::: {\n\
		# Anfangsposition verlegen\n\
		process_up()\n\
		process_up()\n\
		\n\
		# Anfangszeichen finden\n\
		find(" \\\\*\\\\*\\\\*ERROR: ([0-9]+|([A-Z][a-z]+))", "backward", "regex")\n\
		\n\
		# aktuelle Cursorposition\n\
		start_position = $cursor - $column\n\
		\n\
		# Suche nach Ende des Abschnittes\n\
		end_position_1 = search("^$", start_position, "forward", "regex")\n\
		end_position_2 = search("^[ ]*\\\\*", start_position+10, "forward", "regex")\n\
		if (end_position_2 == -1)  \n\
		   end_position_2 = 9999999\n\
		if (end_position_1 < end_position_2) \n\
		   end_position = end_position_1\n\
		else\n\
		  end_position = end_position_2\n\
		\n\
		# Selektieren\n\
		select(start_position, end_position)\n\
		\n\
		# Cursorposition setzen\n\
		set_cursor_pos(start_position)\n\
	}\n\
	FIND > 'WARNING' (forward):F2::: {\n\
		find("WARNING", "forward", "regex")\n\
		\n\
	}\n\
	FIND > 'WARNING' (backward):Shift+F2::: {\n\
		find("WARNING", "backward", "regex")\n\
		\n\
	}\n\
	FIND > 'WARNING [0-9] at end' (forward):Ctrl+F2::: {\n\
		# Anfangsposition verlegen\n\
		process_down()\n\
		process_down()\n\
		\n\
		# Anfangszeichen finden\n\
		find(" \\\\*\\\\*\\\\*WARNING: ([0-9]+|([A-Z][a-z]+))", "forward", "regex")\n\
		\n\
		# aktuelle Cursorposition\n\
		start_position = $cursor - $column\n\
		\n\
		# Suche nach Ende des Abschnittes\n\
		end_position_1 = search("^$", start_position, "forward", "regex")\n\
		end_position_2 = search("^[ ]*\\\\*", start_position+10, "forward", "regex")\n\
		if (end_position_2 == -1)  \n\
		   end_position_2 = 9999999\n\
		if (end_position_1 < end_position_2) \n\
		   end_position = end_position_1\n\
		else\n\
		  end_position = end_position_2\n\
		\n\
		# Selektieren\n\
		select(start_position, end_position)\n\
		\n\
		# Cursorposition setzen\n\
		set_cursor_pos(end_position)\n\
	}\n\
	FIND > 'WARNING [0-9] at end' (backward):Shift+Ctrl+F2::: {\n\
		# Anfangsposition verlegen\n\
		process_up()\n\
		process_up()\n\
		\n\
		# Anfangszeichen finden\n\
		find(" \\\\*\\\\*\\\\*WARNING: ([0-9]+|([A-Z][a-z]+))", "backward", "regex")\n\
		\n\
		# aktuelle Cursorposition\n\
		start_position = $cursor - $column\n\
		\n\
		# Suche nach Ende des Abschnittes\n\
		end_position_1 = search("^$", start_position, "forward", "regex")\n\
		end_position_2 = search("^[ ]*\\\\*", start_position+10, "forward", "regex")\n\
		if (end_position_2 == -1)  \n\
		   end_position_2 = 9999999\n\
		if (end_position_1 < end_position_2) \n\
		   end_position = end_position_1\n\
		else\n\
		  end_position = end_position_2\n\
		\n\
		# Selektieren\n\
		select(start_position, end_position)\n\
		\n\
		# Cursorposition setzen\n\
		set_cursor_pos(start_position)\n\
	}\n\
	FIND > '***NOTE' (forward):Alt+F2::: {\n\
		find("\\\\*\\\\*\\\\*NOTE", "forward", "regex")\n\
		\n\
	}\n\
	FIND > '***NOTE' (backward):Shift+Alt+F2::: {\n\
		find("\\\\*\\\\*\\\\*NOTE", "backward", "regex")\n\
		\n\
	}\n\
	FIND > 'Title in dat file X Y Z' (forward):F3::: {\n\
		find("^[ ]*[A-Z][ ][A-Z][ ]([A-Z|0-9| |:|\\(|\\)])*\\n", "forward", "regex")\n\
		\n\
	}\n\
	FIND > 'Title in dat file X Y Z' (backward):Shift+F3::: {\n\
		find("^[ ]*[A-Z][ ][A-Z][ ]([A-Z|0-9| |:|\\(|\\)])*\\n", "backward", "regex")\n\
		\n\
	}\n\
	FIND > 'Keyword' (forward):F4::: {\n\
		find("^\\\\*[A-Z|a-z]+[ ]*[A-Z|a-z]+[ ]*[A-Z|a-z]+", "forward", "regex")\n\
	}\n\
	FIND > 'Keyword' (backward):Shift+F4::: {\n\
		find("^\\\\*[A-Z|a-z]+[ ]*[A-Z|a-z]+[ ]*[A-Z|a-z]+", "backward", "regex")\n\
	}\n\
	Re-Load-To-End:F5::: {\n\
		revert_to_saved()\n\
		end_of_file()\n\
	}
!
nedit.highlightSyntax: True