| 1 |
- {"ast":null,"code":"/*\nLanguage: Fortran\nAuthor: Anthony Scemama <scemama@irsamc.ups-tlse.fr>\nWebsite: https://en.wikipedia.org/wiki/Fortran\nCategory: scientific\n*/\n\n/** @type LanguageFn */\nfunction fortran(hljs) {\n const regex = hljs.regex;\n const PARAMS = {\n className: 'params',\n begin: '\\\\(',\n end: '\\\\)'\n };\n const COMMENT = {\n variants: [hljs.COMMENT('!', '$', {\n relevance: 0\n }),\n // allow FORTRAN 77 style comments\n hljs.COMMENT('^C[ ]', '$', {\n relevance: 0\n }), hljs.COMMENT('^C$', '$', {\n relevance: 0\n })]\n };\n\n // regex in both fortran and irpf90 should match\n const OPTIONAL_NUMBER_SUFFIX = /(_[a-z_\\d]+)?/;\n const OPTIONAL_NUMBER_EXP = /([de][+-]?\\d+)?/;\n const NUMBER = {\n className: 'number',\n variants: [{\n begin: regex.concat(/\\b\\d+/, /\\.(\\d*)/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX)\n }, {\n begin: regex.concat(/\\b\\d+/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX)\n }, {\n begin: regex.concat(/\\.\\d+/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX)\n }],\n relevance: 0\n };\n const FUNCTION_DEF = {\n className: 'function',\n beginKeywords: 'subroutine function program',\n illegal: '[${=\\\\n]',\n contains: [hljs.UNDERSCORE_TITLE_MODE, PARAMS]\n };\n const STRING = {\n className: 'string',\n relevance: 0,\n variants: [hljs.APOS_STRING_MODE, hljs.QUOTE_STRING_MODE]\n };\n const KEYWORDS = [\"kind\", \"do\", \"concurrent\", \"local\", \"shared\", \"while\", \"private\", \"call\", \"intrinsic\", \"where\", \"elsewhere\", \"type\", \"endtype\", \"endmodule\", \"endselect\", \"endinterface\", \"end\", \"enddo\", \"endif\", \"if\", \"forall\", \"endforall\", \"only\", \"contains\", \"default\", \"return\", \"stop\", \"then\", \"block\", \"endblock\", \"endassociate\", \"public\", \"subroutine|10\", \"function\", \"program\", \".and.\", \".or.\", \".not.\", \".le.\", \".eq.\", \".ge.\", \".gt.\", \".lt.\", \"goto\", \"save\", \"else\", \"use\", \"module\", \"select\", \"case\", \"access\", \"blank\", \"direct\", \"exist\", \"file\", \"fmt\", \"form\", \"formatted\", \"iostat\", \"name\", \"named\", \"nextrec\", \"number\", \"opened\", \"rec\", \"recl\", \"sequential\", \"status\", \"unformatted\", \"unit\", \"continue\", \"format\", \"pause\", \"cycle\", \"exit\", \"c_null_char\", \"c_alert\", \"c_backspace\", \"c_form_feed\", \"flush\", \"wait\", \"decimal\", \"round\", \"iomsg\", \"synchronous\", \"nopass\", \"non_overridable\", \"pass\", \"protected\", \"volatile\", \"abstract\", \"extends\", \"import\", \"non_intrinsic\", \"value\", \"deferred\", \"generic\", \"final\", \"enumerator\", \"class\", \"associate\", \"bind\", \"enum\", \"c_int\", \"c_short\", \"c_long\", \"c_long_long\", \"c_signed_char\", \"c_size_t\", \"c_int8_t\", \"c_int16_t\", \"c_int32_t\", \"c_int64_t\", \"c_int_least8_t\", \"c_int_least16_t\", \"c_int_least32_t\", \"c_int_least64_t\", \"c_int_fast8_t\", \"c_int_fast16_t\", \"c_int_fast32_t\", \"c_int_fast64_t\", \"c_intmax_t\", \"C_intptr_t\", \"c_float\", \"c_double\", \"c_long_double\", \"c_float_complex\", \"c_double_complex\", \"c_long_double_complex\", \"c_bool\", \"c_char\", \"c_null_ptr\", \"c_null_funptr\", \"c_new_line\", \"c_carriage_return\", \"c_horizontal_tab\", \"c_vertical_tab\", \"iso_c_binding\", \"c_loc\", \"c_funloc\", \"c_associated\", \"c_f_pointer\", \"c_ptr\", \"c_funptr\", \"iso_fortran_env\", \"character_storage_size\", \"error_unit\", \"file_storage_size\", \"input_unit\", \"iostat_end\", \"iostat_eor\", \"numeric_storage_size\", \"output_unit\", \"c_f_procpointer\", \"ieee_arithmetic\", \"ieee_support_underflow_control\", \"ieee_get_underflow_mode\", \"ieee_set_underflow_mode\", \"newunit\", \"contiguous\", \"recursive\", \"pad\", \"position\", \"action\", \"delim\", \"readwrite\", \"eor\", \"advance\", \"nml\", \"interface\", \"procedure\", \"namelist\", \"include\", \"sequence\", \"elemental\", \"pure\", \"impure\", \"integer\", \"real\", \"character\", \"complex\", \"logical\", \"codimension\", \"dimension\", \"allocatable|10\", \"parameter\", \"external\", \"implicit|10\", \"none\", \"double\", \"precision\", \"assign\", \"intent\", \"optional\", \"pointer\", \"target\", \"in\", \"out\", \"common\", \"equivalence\", \"data\"];\n const LITERALS = [\".False.\", \".True.\"];\n const BUILT_INS = [\"alog\", \"alog10\", \"amax0\", \"amax1\", \"amin0\", \"amin1\", \"amod\", \"cabs\", \"ccos\", \"cexp\", \"clog\", \"csin\", \"csqrt\", \"dabs\", \"dacos\", \"dasin\", \"datan\", \"datan2\", \"dcos\", \"dcosh\", \"ddim\", \"dexp\", \"dint\", \"dlog\", \"dlog10\", \"dmax1\", \"dmin1\", \"dmod\", \"dnint\", \"dsign\", \"dsin\", \"dsinh\", \"dsqrt\", \"dtan\", \"dtanh\", \"float\", \"iabs\", \"idim\", \"idint\", \"idnint\", \"ifix\", \"isign\", \"max0\", \"max1\", \"min0\", \"min1\", \"sngl\", \"algama\", \"cdabs\", \"cdcos\", \"cdexp\", \"cdlog\", \"cdsin\", \"cdsqrt\", \"cqabs\", \"cqcos\", \"cqexp\", \"cqlog\", \"cqsin\", \"cqsqrt\", \"dcmplx\", \"dconjg\", \"derf\", \"derfc\", \"dfloat\", \"dgamma\", \"dimag\", \"dlgama\", \"iqint\", \"qabs\", \"qacos\", \"qasin\", \"qatan\", \"qatan2\", \"qcmplx\", \"qconjg\", \"qcos\", \"qcosh\", \"qdim\", \"qerf\", \"qerfc\", \"qexp\", \"qgamma\", \"qimag\", \"qlgama\", \"qlog\", \"qlog10\", \"qmax1\", \"qmin1\", \"qmod\", \"qnint\", \"qsign\", \"qsin\", \"qsinh\", \"qsqrt\", \"qtan\", \"qtanh\", \"abs\", \"acos\", \"aimag\", \"aint\", \"anint\", \"asin\", \"atan\", \"atan2\", \"char\", \"cmplx\", \"conjg\", \"cos\", \"cosh\", \"exp\", \"ichar\", \"index\", \"int\", \"log\", \"log10\", \"max\", \"min\", \"nint\", \"sign\", \"sin\", \"sinh\", \"sqrt\", \"tan\", \"tanh\", \"print\", \"write\", \"dim\", \"lge\", \"lgt\", \"lle\", \"llt\", \"mod\", \"nullify\", \"allocate\", \"deallocate\", \"adjustl\", \"adjustr\", \"all\", \"allocated\", \"any\", \"associated\", \"bit_size\", \"btest\", \"ceiling\", \"count\", \"cshift\", \"date_and_time\", \"digits\", \"dot_product\", \"eoshift\", \"epsilon\", \"exponent\", \"floor\", \"fraction\", \"huge\", \"iand\", \"ibclr\", \"ibits\", \"ibset\", \"ieor\", \"ior\", \"ishft\", \"ishftc\", \"lbound\", \"len_trim\", \"matmul\", \"maxexponent\", \"maxloc\", \"maxval\", \"merge\", \"minexponent\", \"minloc\", \"minval\", \"modulo\", \"mvbits\", \"nearest\", \"pack\", \"present\", \"product\", \"radix\", \"random_number\", \"random_seed\", \"range\", \"repeat\", \"reshape\", \"rrspacing\", \"scale\", \"scan\", \"selected_int_kind\", \"selected_real_kind\", \"set_exponent\", \"shape\", \"size\", \"spacing\", \"spread\", \"sum\", \"system_clock\", \"tiny\", \"transpose\", \"trim\", \"ubound\", \"unpack\", \"verify\", \"achar\", \"iachar\", \"transfer\", \"dble\", \"entry\", \"dprod\", \"cpu_time\", \"command_argument_count\", \"get_command\", \"get_command_argument\", \"get_environment_variable\", \"is_iostat_end\", \"ieee_arithmetic\", \"ieee_support_underflow_control\", \"ieee_get_underflow_mode\", \"ieee_set_underflow_mode\", \"is_iostat_eor\", \"move_alloc\", \"new_line\", \"selected_char_kind\", \"same_type_as\", \"extends_type_of\", \"acosh\", \"asinh\", \"atanh\", \"bessel_j0\", \"bessel_j1\", \"bessel_jn\", \"bessel_y0\", \"bessel_y1\", \"bessel_yn\", \"erf\", \"erfc\", \"erfc_scaled\", \"gamma\", \"log_gamma\", \"hypot\", \"norm2\", \"atomic_define\", \"atomic_ref\", \"execute_command_line\", \"leadz\", \"trailz\", \"storage_size\", \"merge_bits\", \"bge\", \"bgt\", \"ble\", \"blt\", \"dshiftl\", \"dshiftr\", \"findloc\", \"iall\", \"iany\", \"iparity\", \"image_index\", \"lcobound\", \"ucobound\", \"maskl\", \"maskr\", \"num_images\", \"parity\", \"popcnt\", \"poppar\", \"shifta\", \"shiftl\", \"shiftr\", \"this_image\", \"sync\", \"change\", \"team\", \"co_broadcast\", \"co_max\", \"co_min\", \"co_sum\", \"co_reduce\"];\n return {\n name: 'Fortran',\n case_insensitive: true,\n aliases: ['f90', 'f95'],\n keywords: {\n $pattern: /\\b[a-z][a-z0-9_]+\\b|\\.[a-z][a-z0-9_]+\\./,\n keyword: KEYWORDS,\n literal: LITERALS,\n built_in: BUILT_INS\n },\n illegal: /\\/\\*/,\n contains: [STRING, FUNCTION_DEF,\n // allow `C = value` for assignments so they aren't misdetected\n // as Fortran 77 style comments\n {\n begin: /^C\\s*=(?!=)/,\n relevance: 0\n }, COMMENT, NUMBER]\n };\n}\nmodule.exports = fortran;","map":{"version":3,"names":["fortran","hljs","regex","PARAMS","className","begin","end","COMMENT","variants","relevance","OPTIONAL_NUMBER_SUFFIX","OPTIONAL_NUMBER_EXP","NUMBER","concat","FUNCTION_DEF","beginKeywords","illegal","contains","UNDERSCORE_TITLE_MODE","STRING","APOS_STRING_MODE","QUOTE_STRING_MODE","KEYWORDS","LITERALS","BUILT_INS","name","case_insensitive","aliases","keywords","$pattern","keyword","literal","built_in","module","exports"],"sources":["F:/workspace/202226701027/huinongbao-app/node_modules/highlight.js/lib/languages/fortran.js"],"sourcesContent":["/*\nLanguage: Fortran\nAuthor: Anthony Scemama <scemama@irsamc.ups-tlse.fr>\nWebsite: https://en.wikipedia.org/wiki/Fortran\nCategory: scientific\n*/\n\n/** @type LanguageFn */\nfunction fortran(hljs) {\n const regex = hljs.regex;\n const PARAMS = {\n className: 'params',\n begin: '\\\\(',\n end: '\\\\)'\n };\n\n const COMMENT = { variants: [\n hljs.COMMENT('!', '$', { relevance: 0 }),\n // allow FORTRAN 77 style comments\n hljs.COMMENT('^C[ ]', '$', { relevance: 0 }),\n hljs.COMMENT('^C$', '$', { relevance: 0 })\n ] };\n\n // regex in both fortran and irpf90 should match\n const OPTIONAL_NUMBER_SUFFIX = /(_[a-z_\\d]+)?/;\n const OPTIONAL_NUMBER_EXP = /([de][+-]?\\d+)?/;\n const NUMBER = {\n className: 'number',\n variants: [\n { begin: regex.concat(/\\b\\d+/, /\\.(\\d*)/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX) },\n { begin: regex.concat(/\\b\\d+/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX) },\n { begin: regex.concat(/\\.\\d+/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX) }\n ],\n relevance: 0\n };\n\n const FUNCTION_DEF = {\n className: 'function',\n beginKeywords: 'subroutine function program',\n illegal: '[${=\\\\n]',\n contains: [\n hljs.UNDERSCORE_TITLE_MODE,\n PARAMS\n ]\n };\n\n const STRING = {\n className: 'string',\n relevance: 0,\n variants: [\n hljs.APOS_STRING_MODE,\n hljs.QUOTE_STRING_MODE\n ]\n };\n\n const KEYWORDS = [\n \"kind\",\n \"do\",\n \"concurrent\",\n \"local\",\n \"shared\",\n \"while\",\n \"private\",\n \"call\",\n \"intrinsic\",\n \"where\",\n \"elsewhere\",\n \"type\",\n \"endtype\",\n \"endmodule\",\n \"endselect\",\n \"endinterface\",\n \"end\",\n \"enddo\",\n \"endif\",\n \"if\",\n \"forall\",\n \"endforall\",\n \"only\",\n \"contains\",\n \"default\",\n \"return\",\n \"stop\",\n \"then\",\n \"block\",\n \"endblock\",\n \"endassociate\",\n \"public\",\n \"subroutine|10\",\n \"function\",\n \"program\",\n \".and.\",\n \".or.\",\n \".not.\",\n \".le.\",\n \".eq.\",\n \".ge.\",\n \".gt.\",\n \".lt.\",\n \"goto\",\n \"save\",\n \"else\",\n \"use\",\n \"module\",\n \"select\",\n \"case\",\n \"access\",\n \"blank\",\n \"direct\",\n \"exist\",\n \"file\",\n \"fmt\",\n \"form\",\n \"formatted\",\n \"iostat\",\n \"name\",\n \"named\",\n \"nextrec\",\n \"number\",\n \"opened\",\n \"rec\",\n \"recl\",\n \"sequential\",\n \"status\",\n \"unformatted\",\n \"unit\",\n \"continue\",\n \"format\",\n \"pause\",\n \"cycle\",\n \"exit\",\n \"c_null_char\",\n \"c_alert\",\n \"c_backspace\",\n \"c_form_feed\",\n \"flush\",\n \"wait\",\n \"decimal\",\n \"round\",\n \"iomsg\",\n \"synchronous\",\n \"nopass\",\n \"non_overridable\",\n \"pass\",\n \"protected\",\n \"volatile\",\n \"abstract\",\n \"extends\",\n \"import\",\n \"non_intrinsic\",\n \"value\",\n \"deferred\",\n \"generic\",\n \"final\",\n \"enumerator\",\n \"class\",\n \"associate\",\n \"bind\",\n \"enum\",\n \"c_int\",\n \"c_short\",\n \"c_long\",\n \"c_long_long\",\n \"c_signed_char\",\n \"c_size_t\",\n \"c_int8_t\",\n \"c_int16_t\",\n \"c_int32_t\",\n \"c_int64_t\",\n \"c_int_least8_t\",\n \"c_int_least16_t\",\n \"c_int_least32_t\",\n \"c_int_least64_t\",\n \"c_int_fast8_t\",\n \"c_int_fast16_t\",\n \"c_int_fast32_t\",\n \"c_int_fast64_t\",\n \"c_intmax_t\",\n \"C_intptr_t\",\n \"c_float\",\n \"c_double\",\n \"c_long_double\",\n \"c_float_complex\",\n \"c_double_complex\",\n \"c_long_double_complex\",\n \"c_bool\",\n \"c_char\",\n \"c_null_ptr\",\n \"c_null_funptr\",\n \"c_new_line\",\n \"c_carriage_return\",\n \"c_horizontal_tab\",\n \"c_vertical_tab\",\n \"iso_c_binding\",\n \"c_loc\",\n \"c_funloc\",\n \"c_associated\",\n \"c_f_pointer\",\n \"c_ptr\",\n \"c_funptr\",\n \"iso_fortran_env\",\n \"character_storage_size\",\n \"error_unit\",\n \"file_storage_size\",\n \"input_unit\",\n \"iostat_end\",\n \"iostat_eor\",\n \"numeric_storage_size\",\n \"output_unit\",\n \"c_f_procpointer\",\n \"ieee_arithmetic\",\n \"ieee_support_underflow_control\",\n \"ieee_get_underflow_mode\",\n \"ieee_set_underflow_mode\",\n \"newunit\",\n \"contiguous\",\n \"recursive\",\n \"pad\",\n \"position\",\n \"action\",\n \"delim\",\n \"readwrite\",\n \"eor\",\n \"advance\",\n \"nml\",\n \"interface\",\n \"procedure\",\n \"namelist\",\n \"include\",\n \"sequence\",\n \"elemental\",\n \"pure\",\n \"impure\",\n \"integer\",\n \"real\",\n \"character\",\n \"complex\",\n \"logical\",\n \"codimension\",\n \"dimension\",\n \"allocatable|10\",\n \"parameter\",\n \"external\",\n \"implicit|10\",\n \"none\",\n \"double\",\n \"precision\",\n \"assign\",\n \"intent\",\n \"optional\",\n \"pointer\",\n \"target\",\n \"in\",\n \"out\",\n \"common\",\n \"equivalence\",\n \"data\"\n ];\n const LITERALS = [\n \".False.\",\n \".True.\"\n ];\n const BUILT_INS = [\n \"alog\",\n \"alog10\",\n \"amax0\",\n \"amax1\",\n \"amin0\",\n \"amin1\",\n \"amod\",\n \"cabs\",\n \"ccos\",\n \"cexp\",\n \"clog\",\n \"csin\",\n \"csqrt\",\n \"dabs\",\n \"dacos\",\n \"dasin\",\n \"datan\",\n \"datan2\",\n \"dcos\",\n \"dcosh\",\n \"ddim\",\n \"dexp\",\n \"dint\",\n \"dlog\",\n \"dlog10\",\n \"dmax1\",\n \"dmin1\",\n \"dmod\",\n \"dnint\",\n \"dsign\",\n \"dsin\",\n \"dsinh\",\n \"dsqrt\",\n \"dtan\",\n \"dtanh\",\n \"float\",\n \"iabs\",\n \"idim\",\n \"idint\",\n \"idnint\",\n \"ifix\",\n \"isign\",\n \"max0\",\n \"max1\",\n \"min0\",\n \"min1\",\n \"sngl\",\n \"algama\",\n \"cdabs\",\n \"cdcos\",\n \"cdexp\",\n \"cdlog\",\n \"cdsin\",\n \"cdsqrt\",\n \"cqabs\",\n \"cqcos\",\n \"cqexp\",\n \"cqlog\",\n \"cqsin\",\n \"cqsqrt\",\n \"dcmplx\",\n \"dconjg\",\n \"derf\",\n \"derfc\",\n \"dfloat\",\n \"dgamma\",\n \"dimag\",\n \"dlgama\",\n \"iqint\",\n \"qabs\",\n \"qacos\",\n \"qasin\",\n \"qatan\",\n \"qatan2\",\n \"qcmplx\",\n \"qconjg\",\n \"qcos\",\n \"qcosh\",\n \"qdim\",\n \"qerf\",\n \"qerfc\",\n \"qexp\",\n \"qgamma\",\n \"qimag\",\n \"qlgama\",\n \"qlog\",\n \"qlog10\",\n \"qmax1\",\n \"qmin1\",\n \"qmod\",\n \"qnint\",\n \"qsign\",\n \"qsin\",\n \"qsinh\",\n \"qsqrt\",\n \"qtan\",\n \"qtanh\",\n \"abs\",\n \"acos\",\n \"aimag\",\n \"aint\",\n \"anint\",\n \"asin\",\n \"atan\",\n \"atan2\",\n \"char\",\n \"cmplx\",\n \"conjg\",\n \"cos\",\n \"cosh\",\n \"exp\",\n \"ichar\",\n \"index\",\n \"int\",\n \"log\",\n \"log10\",\n \"max\",\n \"min\",\n \"nint\",\n \"sign\",\n \"sin\",\n \"sinh\",\n \"sqrt\",\n \"tan\",\n \"tanh\",\n \"print\",\n \"write\",\n \"dim\",\n \"lge\",\n \"lgt\",\n \"lle\",\n \"llt\",\n \"mod\",\n \"nullify\",\n \"allocate\",\n \"deallocate\",\n \"adjustl\",\n \"adjustr\",\n \"all\",\n \"allocated\",\n \"any\",\n \"associated\",\n \"bit_size\",\n \"btest\",\n \"ceiling\",\n \"count\",\n \"cshift\",\n \"date_and_time\",\n \"digits\",\n \"dot_product\",\n \"eoshift\",\n \"epsilon\",\n \"exponent\",\n \"floor\",\n \"fraction\",\n \"huge\",\n \"iand\",\n \"ibclr\",\n \"ibits\",\n \"ibset\",\n \"ieor\",\n \"ior\",\n \"ishft\",\n \"ishftc\",\n \"lbound\",\n \"len_trim\",\n \"matmul\",\n \"maxexponent\",\n \"maxloc\",\n \"maxval\",\n \"merge\",\n \"minexponent\",\n \"minloc\",\n \"minval\",\n \"modulo\",\n \"mvbits\",\n \"nearest\",\n \"pack\",\n \"present\",\n \"product\",\n \"radix\",\n \"random_number\",\n \"random_seed\",\n \"range\",\n \"repeat\",\n \"reshape\",\n \"rrspacing\",\n \"scale\",\n \"scan\",\n \"selected_int_kind\",\n \"selected_real_kind\",\n \"set_exponent\",\n \"shape\",\n \"size\",\n \"spacing\",\n \"spread\",\n \"sum\",\n \"system_clock\",\n \"tiny\",\n \"transpose\",\n \"trim\",\n \"ubound\",\n \"unpack\",\n \"verify\",\n \"achar\",\n \"iachar\",\n \"transfer\",\n \"dble\",\n \"entry\",\n \"dprod\",\n \"cpu_time\",\n \"command_argument_count\",\n \"get_command\",\n \"get_command_argument\",\n \"get_environment_variable\",\n \"is_iostat_end\",\n \"ieee_arithmetic\",\n \"ieee_support_underflow_control\",\n \"ieee_get_underflow_mode\",\n \"ieee_set_underflow_mode\",\n \"is_iostat_eor\",\n \"move_alloc\",\n \"new_line\",\n \"selected_char_kind\",\n \"same_type_as\",\n \"extends_type_of\",\n \"acosh\",\n \"asinh\",\n \"atanh\",\n \"bessel_j0\",\n \"bessel_j1\",\n \"bessel_jn\",\n \"bessel_y0\",\n \"bessel_y1\",\n \"bessel_yn\",\n \"erf\",\n \"erfc\",\n \"erfc_scaled\",\n \"gamma\",\n \"log_gamma\",\n \"hypot\",\n \"norm2\",\n \"atomic_define\",\n \"atomic_ref\",\n \"execute_command_line\",\n \"leadz\",\n \"trailz\",\n \"storage_size\",\n \"merge_bits\",\n \"bge\",\n \"bgt\",\n \"ble\",\n \"blt\",\n \"dshiftl\",\n \"dshiftr\",\n \"findloc\",\n \"iall\",\n \"iany\",\n \"iparity\",\n \"image_index\",\n \"lcobound\",\n \"ucobound\",\n \"maskl\",\n \"maskr\",\n \"num_images\",\n \"parity\",\n \"popcnt\",\n \"poppar\",\n \"shifta\",\n \"shiftl\",\n \"shiftr\",\n \"this_image\",\n \"sync\",\n \"change\",\n \"team\",\n \"co_broadcast\",\n \"co_max\",\n \"co_min\",\n \"co_sum\",\n \"co_reduce\"\n ];\n return {\n name: 'Fortran',\n case_insensitive: true,\n aliases: [\n 'f90',\n 'f95'\n ],\n keywords: {\n $pattern: /\\b[a-z][a-z0-9_]+\\b|\\.[a-z][a-z0-9_]+\\./,\n keyword: KEYWORDS,\n literal: LITERALS,\n built_in: BUILT_INS\n },\n illegal: /\\/\\*/,\n contains: [\n STRING,\n FUNCTION_DEF,\n // allow `C = value` for assignments so they aren't misdetected\n // as Fortran 77 style comments\n {\n begin: /^C\\s*=(?!=)/,\n relevance: 0\n },\n COMMENT,\n NUMBER\n ]\n };\n}\n\nmodule.exports = fortran;\n"],"mappings":"AAAA;AACA;AACA;AACA;AACA;AACA;;AAEA;AACA,SAASA,OAAOA,CAACC,IAAI,EAAE;EACrB,MAAMC,KAAK,GAAGD,IAAI,CAACC,KAAK;EACxB,MAAMC,MAAM,GAAG;IACbC,SAAS,EAAE,QAAQ;IACnBC,KAAK,EAAE,KAAK;IACZC,GAAG,EAAE;EACP,CAAC;EAED,MAAMC,OAAO,GAAG;IAAEC,QAAQ,EAAE,CAC1BP,IAAI,CAACM,OAAO,CAAC,GAAG,EAAE,GAAG,EAAE;MAAEE,SAAS,EAAE;IAAE,CAAC,CAAC;IACxC;IACAR,IAAI,CAACM,OAAO,CAAC,OAAO,EAAE,GAAG,EAAE;MAAEE,SAAS,EAAE;IAAE,CAAC,CAAC,EAC5CR,IAAI,CAACM,OAAO,CAAC,KAAK,EAAE,GAAG,EAAE;MAAEE,SAAS,EAAE;IAAE,CAAC,CAAC;EAC1C,CAAC;;EAEH;EACA,MAAMC,sBAAsB,GAAG,eAAe;EAC9C,MAAMC,mBAAmB,GAAG,iBAAiB;EAC7C,MAAMC,MAAM,GAAG;IACbR,SAAS,EAAE,QAAQ;IACnBI,QAAQ,EAAE,CACR;MAAEH,KAAK,EAAEH,KAAK,CAACW,MAAM,CAAC,OAAO,EAAE,SAAS,EAAEF,mBAAmB,EAAED,sBAAsB;IAAE,CAAC,EACxF;MAAEL,KAAK,EAAEH,KAAK,CAACW,MAAM,CAAC,OAAO,EAAEF,mBAAmB,EAAED,sBAAsB;IAAE,CAAC,EAC7E;MAAEL,KAAK,EAAEH,KAAK,CAACW,MAAM,CAAC,OAAO,EAAEF,mBAAmB,EAAED,sBAAsB;IAAE,CAAC,CAC9E;IACDD,SAAS,EAAE;EACb,CAAC;EAED,MAAMK,YAAY,GAAG;IACnBV,SAAS,EAAE,UAAU;IACrBW,aAAa,EAAE,6BAA6B;IAC5CC,OAAO,EAAE,UAAU;IACnBC,QAAQ,EAAE,CACRhB,IAAI,CAACiB,qBAAqB,EAC1Bf,MAAM;EAEV,CAAC;EAED,MAAMgB,MAAM,GAAG;IACbf,SAAS,EAAE,QAAQ;IACnBK,SAAS,EAAE,CAAC;IACZD,QAAQ,EAAE,CACRP,IAAI,CAACmB,gBAAgB,EACrBnB,IAAI,CAACoB,iBAAiB;EAE1B,CAAC;EAED,MAAMC,QAAQ,GAAG,CACf,MAAM,EACN,IAAI,EACJ,YAAY,EACZ,OAAO,EACP,QAAQ,EACR,OAAO,EACP,SAAS,EACT,MAAM,EACN,WAAW,EACX,OAAO,EACP,WAAW,EACX,MAAM,EACN,SAAS,EACT,WAAW,EACX,WAAW,EACX,cAAc,EACd,KAAK,EACL,OAAO,EACP,OAAO,EACP,IAAI,EACJ,QAAQ,EACR,WAAW,EACX,MAAM,EACN,UAAU,EACV,SAAS,EACT,QAAQ,EACR,MAAM,EACN,MAAM,EACN,OAAO,EACP,UAAU,EACV,cAAc,EACd,QAAQ,EACR,eAAe,EACf,UAAU,EACV,SAAS,EACT,OAAO,EACP,MAAM,EACN,OAAO,EACP,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,KAAK,EACL,QAAQ,EACR,QAAQ,EACR,MAAM,EACN,QAAQ,EACR,OAAO,EACP,QAAQ,EACR,OAAO,EACP,MAAM,EACN,KAAK,EACL,MAAM,EACN,WAAW,EACX,QAAQ,EACR,MAAM,EACN,OAAO,EACP,SAAS,EACT,QAAQ,EACR,QAAQ,EACR,KAAK,EACL,MAAM,EACN,YAAY,EACZ,QAAQ,EACR,aAAa,EACb,MAAM,EACN,UAAU,EACV,QAAQ,EACR,OAAO,EACP,OAAO,EACP,MAAM,EACN,aAAa,EACb,SAAS,EACT,aAAa,EACb,aAAa,EACb,OAAO,EACP,MAAM,EACN,SAAS,EACT,OAAO,EACP,OAAO,EACP,aAAa,EACb,QAAQ,EACR,iBAAiB,EACjB,MAAM,EACN,WAAW,EACX,UAAU,EACV,UAAU,EACV,SAAS,EACT,QAAQ,EACR,eAAe,EACf,OAAO,EACP,UAAU,EACV,SAAS,EACT,OAAO,EACP,YAAY,EACZ,OAAO,EACP,WAAW,EACX,MAAM,EACN,MAAM,EACN,OAAO,EACP,SAAS,EACT,QAAQ,EACR,aAAa,EACb,eAAe,EACf,UAAU,EACV,UAAU,EACV,WAAW,EACX,WAAW,EACX,WAAW,EACX,gBAAgB,EAChB,iBAAiB,EACjB,iBAAiB,EACjB,iBAAiB,EACjB,eAAe,EACf,gBAAgB,EAChB,gBAAgB,EAChB,gBAAgB,EAChB,YAAY,EACZ,YAAY,EACZ,SAAS,EACT,UAAU,EACV,eAAe,EACf,iBAAiB,EACjB,kBAAkB,EAClB,uBAAuB,EACvB,QAAQ,EACR,QAAQ,EACR,YAAY,EACZ,eAAe,EACf,YAAY,EACZ,mBAAmB,EACnB,kBAAkB,EAClB,gBAAgB,EAChB,eAAe,EACf,OAAO,EACP,UAAU,EACV,cAAc,EACd,aAAa,EACb,OAAO,EACP,UAAU,EACV,iBAAiB,EACjB,wBAAwB,EACxB,YAAY,EACZ,mBAAmB,EACnB,YAAY,EACZ,YAAY,EACZ,YAAY,EACZ,sBAAsB,EACtB,aAAa,EACb,iBAAiB,EACjB,iBAAiB,EACjB,gCAAgC,EAChC,yBAAyB,EACzB,yBAAyB,EACzB,SAAS,EACT,YAAY,EACZ,WAAW,EACX,KAAK,EACL,UAAU,EACV,QAAQ,EACR,OAAO,EACP,WAAW,EACX,KAAK,EACL,SAAS,EACT,KAAK,EACL,WAAW,EACX,WAAW,EACX,UAAU,EACV,SAAS,EACT,UAAU,EACV,WAAW,EACX,MAAM,EACN,QAAQ,EACR,SAAS,EACT,MAAM,EACN,WAAW,EACX,SAAS,EACT,SAAS,EACT,aAAa,EACb,WAAW,EACX,gBAAgB,EAChB,WAAW,EACX,UAAU,EACV,aAAa,EACb,MAAM,EACN,QAAQ,EACR,WAAW,EACX,QAAQ,EACR,QAAQ,EACR,UAAU,EACV,SAAS,EACT,QAAQ,EACR,IAAI,EACJ,KAAK,EACL,QAAQ,EACR,aAAa,EACb,MAAM,CACP;EACD,MAAMC,QAAQ,GAAG,CACf,SAAS,EACT,QAAQ,CACT;EACD,MAAMC,SAAS,GAAG,CAChB,MAAM,EACN,QAAQ,EACR,OAAO,EACP,OAAO,EACP,OAAO,EACP,OAAO,EACP,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,OAAO,EACP,MAAM,EACN,OAAO,EACP,OAAO,EACP,OAAO,EACP,QAAQ,EACR,MAAM,EACN,OAAO,EACP,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,QAAQ,EACR,OAAO,EACP,OAAO,EACP,MAAM,EACN,OAAO,EACP,OAAO,EACP,MAAM,EACN,OAAO,EACP,OAAO,EACP,MAAM,EACN,OAAO,EACP,OAAO,EACP,MAAM,EACN,MAAM,EACN,OAAO,EACP,QAAQ,EACR,MAAM,EACN,OAAO,EACP,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,MAAM,EACN,QAAQ,EACR,OAAO,EACP,OAAO,EACP,OAAO,EACP,OAAO,EACP,OAAO,EACP,QAAQ,EACR,OAAO,EACP,OAAO,EACP,OAAO,EACP,OAAO,EACP,OAAO,EACP,QAAQ,EACR,QAAQ,EACR,QAAQ,EACR,MAAM,EACN,OAAO,EACP,QAAQ,EACR,QAAQ,EACR,OAAO,EACP,QAAQ,EACR,OAAO,EACP,MAAM,EACN,OAAO,EACP,OAAO,EACP,OAAO,EACP,QAAQ,EACR,QAAQ,EACR,QAAQ,EACR,MAAM,EACN,OAAO,EACP,MAAM,EACN,MAAM,EACN,OAAO,EACP,MAAM,EACN,QAAQ,EACR,OAAO,EACP,QAAQ,EACR,MAAM,EACN,QAAQ,EACR,OAAO,EACP,OAAO,EACP,MAAM,EACN,OAAO,EACP,OAAO,EACP,MAAM,EACN,OAAO,EACP,OAAO,EACP,MAAM,EACN,OAAO,EACP,KAAK,EACL,MAAM,EACN,OAAO,EACP,MAAM,EACN,OAAO,EACP,MAAM,EACN,MAAM,EACN,OAAO,EACP,MAAM,EACN,OAAO,EACP,OAAO,EACP,KAAK,EACL,MAAM,EACN,KAAK,EACL,OAAO,EACP,OAAO,EACP,KAAK,EACL,KAAK,EACL,OAAO,EACP,KAAK,EACL,KAAK,EACL,MAAM,EACN,MAAM,EACN,KAAK,EACL,MAAM,EACN,MAAM,EACN,KAAK,EACL,MAAM,EACN,OAAO,EACP,OAAO,EACP,KAAK,EACL,KAAK,EACL,KAAK,EACL,KAAK,EACL,KAAK,EACL,KAAK,EACL,SAAS,EACT,UAAU,EACV,YAAY,EACZ,SAAS,EACT,SAAS,EACT,KAAK,EACL,WAAW,EACX,KAAK,EACL,YAAY,EACZ,UAAU,EACV,OAAO,EACP,SAAS,EACT,OAAO,EACP,QAAQ,EACR,eAAe,EACf,QAAQ,EACR,aAAa,EACb,SAAS,EACT,SAAS,EACT,UAAU,EACV,OAAO,EACP,UAAU,EACV,MAAM,EACN,MAAM,EACN,OAAO,EACP,OAAO,EACP,OAAO,EACP,MAAM,EACN,KAAK,EACL,OAAO,EACP,QAAQ,EACR,QAAQ,EACR,UAAU,EACV,QAAQ,EACR,aAAa,EACb,QAAQ,EACR,QAAQ,EACR,OAAO,EACP,aAAa,EACb,QAAQ,EACR,QAAQ,EACR,QAAQ,EACR,QAAQ,EACR,SAAS,EACT,MAAM,EACN,SAAS,EACT,SAAS,EACT,OAAO,EACP,eAAe,EACf,aAAa,EACb,OAAO,EACP,QAAQ,EACR,SAAS,EACT,WAAW,EACX,OAAO,EACP,MAAM,EACN,mBAAmB,EACnB,oBAAoB,EACpB,cAAc,EACd,OAAO,EACP,MAAM,EACN,SAAS,EACT,QAAQ,EACR,KAAK,EACL,cAAc,EACd,MAAM,EACN,WAAW,EACX,MAAM,EACN,QAAQ,EACR,QAAQ,EACR,QAAQ,EACR,OAAO,EACP,QAAQ,EACR,UAAU,EACV,MAAM,EACN,OAAO,EACP,OAAO,EACP,UAAU,EACV,wBAAwB,EACxB,aAAa,EACb,sBAAsB,EACtB,0BAA0B,EAC1B,eAAe,EACf,iBAAiB,EACjB,gCAAgC,EAChC,yBAAyB,EACzB,yBAAyB,EACzB,eAAe,EACf,YAAY,EACZ,UAAU,EACV,oBAAoB,EACpB,cAAc,EACd,iBAAiB,EACjB,OAAO,EACP,OAAO,EACP,OAAO,EACP,WAAW,EACX,WAAW,EACX,WAAW,EACX,WAAW,EACX,WAAW,EACX,WAAW,EACX,KAAK,EACL,MAAM,EACN,aAAa,EACb,OAAO,EACP,WAAW,EACX,OAAO,EACP,OAAO,EACP,eAAe,EACf,YAAY,EACZ,sBAAsB,EACtB,OAAO,EACP,QAAQ,EACR,cAAc,EACd,YAAY,EACZ,KAAK,EACL,KAAK,EACL,KAAK,EACL,KAAK,EACL,SAAS,EACT,SAAS,EACT,SAAS,EACT,MAAM,EACN,MAAM,EACN,SAAS,EACT,aAAa,EACb,UAAU,EACV,UAAU,EACV,OAAO,EACP,OAAO,EACP,YAAY,EACZ,QAAQ,EACR,QAAQ,EACR,QAAQ,EACR,QAAQ,EACR,QAAQ,EACR,QAAQ,EACR,YAAY,EACZ,MAAM,EACN,QAAQ,EACR,MAAM,EACN,cAAc,EACd,QAAQ,EACR,QAAQ,EACR,QAAQ,EACR,WAAW,CACZ;EACD,OAAO;IACLC,IAAI,EAAE,SAAS;IACfC,gBAAgB,EAAE,IAAI;IACtBC,OAAO,EAAE,CACP,KAAK,EACL,KAAK,CACN;IACDC,QAAQ,EAAE;MACRC,QAAQ,EAAE,yCAAyC;MACnDC,OAAO,EAAER,QAAQ;MACjBS,OAAO,EAAER,QAAQ;MACjBS,QAAQ,EAAER;IACZ,CAAC;IACDR,OAAO,EAAE,MAAM;IACfC,QAAQ,EAAE,CACRE,MAAM,EACNL,YAAY;IACZ;IACA;IACA;MACET,KAAK,EAAE,aAAa;MACpBI,SAAS,EAAE;IACb,CAAC,EACDF,OAAO,EACPK,MAAM;EAEV,CAAC;AACH;AAEAqB,MAAM,CAACC,OAAO,GAAGlC,OAAO","ignoreList":[]},"metadata":{},"sourceType":"script","externalDependencies":[]}
|
