!--------------------------------------------------------------------------------------- ! ! Highlighting patterns for the inputfile of the Finite-Element-Code ! ABAQUS ! ! Additional with some macros to find special words in the ABAQUS input ! and dat file. ! !--------------------------------------------------------------------------------------- ! ! File Name: abaqus-v3.1-5.1.1.pats ! Version Number: 3.1 ! Date: 17/10/2001 ! ! Author: Mr. UMB ! um.b@gmx.de ! ! Feature: - syntax highlighting of the ABAQUS inputfile ! - some macros to find special keywords in ABAQUS inputfile ! - some macros to generate comments ! ! Installation Instructions: ! ! Load this file by starting nedit with: ! ! nedit -import ! ! 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::::::" ,/\\`'!|@#%^&*()=+{}[]"":;<>?" ! nedit.highlightPatterns: \ ABAQUS:1:0{\n\ Comments:"^(\\*\\*|#)":"$"::Self Green + Italic::\n\ Special-Star-Keyword:"^\\*(?i(assembly|end assembly|instance|end instance|step|end step|endstep|part|end part))":"$"::Self Red + Bold::\n\ Special-Star-Keyword Comma:",":::Plain:Special-Star-Keyword:\n\ Special-Star-Keyword Parameter:"[\\w|\\s|,|=|""|\\-|.]":::Blue2 + Plain:Special-Star-Keyword:\n\ Star-Keyword:"^\\*[\\l|\\s]*":"$"::Brombeer + Plain::\n\ Star-Keyword Comma:",":::Plain:Star-Keyword:\n\ Star-Keyword Parameter:"[\\w|\\s|,|=|""|\\-|.]":::Blue2 + Plain:Star-Keyword:\n\ } ! nedit.styles: Plain:black:Plain\n\ -: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\ Self Red + Plain:#A00000:Plain\n\ Self Red + Bold:#A00000:Bold\n\ Self Red + Italic:#A00000:Italic\n\ Self Red + Bold + Italic:#A00000: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\ Blue2 + Italic:blue2:Italic\n\ Blue2 + Bold + Italic:blue2:Bold Italic\n\ Blue4 + Plain:blue4:Plain\n\ Blue4 + Bold:blue4:Bold\n\ Blue4 + Italic:blue4:Italic\n\ Blue4 + Bold + Italic:blue4:Bold Italic\n\ Self Green + Plain:#007000:Plain\n\ Self Green + Bold:#007000:Bold\n\ Self Green + Italic:#007000:Italic\n\ Self Green + Bold + Italic:#007000: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: \ -------------------:::: {\n\ beginning-of-line()\n\ }\n\ Comments +/- in ABAQUS input file:F9::: {\n\ mark("a")\n\ \n\ if ($selection_start == -1)\n\ {\n\ beginning_of_line()\n\ process_shift_down()\n\ }\n\ else\n\ {\n\ end=$selection_end\n\ beginning_of_selection()\n\ beginning_of_line()\n\ start=$cursor\n\ select(start, end)\n\ }\n\ \n\ begin=substring(get_selection(), 0, 2)\n\ \n\ if (begin != "**")\n\ {\n\ \n\ replace-in-selection("^.*$", "\\\\*\\\\* &", "regex")\n\ beginning-of-selection()\n\ beginning_of_line()\n\ \n\ }\n\ else\n\ {\n\ \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\ FIND in ABAQUS inp or dat file > 'ERROR in dat file' (forward):F1::: {\n\ find("error", "forward", "lateral")\n\ \n\ }\n\ FIND in ABAQUS inp or dat file > 'ERROR in dat file' (backward):Shift+F1::: {\n\ find("error", "backward", "lateral")\n\ \n\ }\n\ FIND in ABAQUS inp or dat file > 'ERROR summary in dat file' (forward):Ctrl+F1::: {\n\ process_down()\n\ process_down()\n\ \n\ find(" \\\\*\\\\*\\\\*ERROR: ([0-9]+|([A-Z][a-z]+))", "forward", "regex")\n\ \n\ start_position = $cursor - $column\n\ \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\ select(start_position, end_position)\n\ \n\ set_cursor_pos(end_position)\n\ }\n\ FIND in ABAQUS inp or dat file > 'ERROR summary in dat file' (backward):Shift+Ctrl+F1::: {\n\ process_up()\n\ process_up()\n\ \n\ find(" \\\\*\\\\*\\\\*ERROR: ([0-9]+|([A-Z][a-z]+))", "backward", "regex")\n\ \n\ start_position = $cursor - $column\n\ \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\ select(start_position, end_position)\n\ \n\ set_cursor_pos(start_position)\n\ }\n\ FIND in ABAQUS inp or dat file > 'WARNING in dat file' (forward):F2::: {\n\ find("WARNING", "forward", "regex")\n\ \n\ }\n\ FIND in ABAQUS inp or dat file > 'WARNING in dat file' (backward):Shift+F2::: {\n\ find("WARNING", "backward", "regex")\n\ \n\ }\n\ FIND in ABAQUS inp or dat file > 'WARNING summary in dat file' (forward):Ctrl+F2::: {\n\ process_down()\n\ process_down()\n\ \n\ find(" \\\\*\\\\*\\\\*WARNING: ([0-9]+|([A-Z][a-z]+))", "forward", "regex")\n\ \n\ start_position = $cursor - $column\n\ \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\ select(start_position, end_position)\n\ \n\ set_cursor_pos(end_position)\n\ }\n\ FIND in ABAQUS inp or dat file > 'WARNING summary in dat file' (backward):Shift+Ctrl+F2::: {\n\ process_up()\n\ process_up()\n\ \n\ find(" \\\\*\\\\*\\\\*WARNING: ([0-9]+|([A-Z][a-z]+))", "backward", "regex")\n\ \n\ start_position = $cursor - $column\n\ \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\ select(start_position, end_position)\n\ \n\ set_cursor_pos(start_position)\n\ }\n\ FIND in ABAQUS inp or dat file > '***NOTE in dat file' (forward):Alt+F2::: {\n\ find("\\\\*\\\\*\\\\*NOTE", "forward", "regex")\n\ \n\ }\n\ FIND in ABAQUS inp or dat file > '***NOTE in dat file' (backward):Shift+Alt+F2::: {\n\ find("\\\\*\\\\*\\\\*NOTE", "backward", "regex")\n\ \n\ }\n\ FIND in ABAQUS inp or dat file > 'X X X in dat file' (forward):F3::: {\n\ find("^[ ]*[A-Z][ ][A-Z][ ]([A-Z|0-9| |:|\\(|\\)])*\\n", "forward", "regex")\n\ \n\ }\n\ FIND in ABAQUS inp or dat file > 'X X X in dat file' (backward):Shift+F3::: {\n\ find("^[ ]*[A-Z][ ][A-Z][ ]([A-Z|0-9| |:|\\(|\\)])*\\n", "backward", "regex")\n\ \n\ }\n\ FIND in ABAQUS inp or dat file > 'Keyword in input file^*' (forward):F4::: {\n\ find("^\\\\*[A-Z|a-z]+[ ]*[A-Z|a-z]+[ ]*[A-Z|a-z]+", "forward", "regex")\n\ }\n\ FIND in ABAQUS inp or dat file > 'Keyword in input file' (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\ }\n\ Duplicate a line:Ctrl+Alt+D:d:: {\n\ beginning-of-line()\n\ process-shift-down()\n\ copy-clipboard()\n\ beginning-of-line()\n\ paste-clipboard()\n\ process-up()\n\ } ! nedit.highlightSyntax: True nedit.statisticsLine: True