static/highlight/languages/irpf90.js

   1 /*! `irpf90` grammar compiled for Highlight.js 11.11.1 */
   2   (function(){
   3     var hljsGrammar = (function () {
   4   'use strict';
   5
   6   /*
   7   Language: IRPF90
   8   Author: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
   9   Description: IRPF90 is an open-source Fortran code generator
  10   Website: http://irpf90.ups-tlse.fr
  11   Category: scientific
  12   */
  13
  14   /** @type LanguageFn */
  15   function irpf90(hljs) {
  16     const regex = hljs.regex;
  17     const PARAMS = {
  18       className: 'params',
  19       begin: '\\(',
  20       end: '\\)'
  21     };
  22
  23     // regex in both fortran and irpf90 should match
  24     const OPTIONAL_NUMBER_SUFFIX = /(_[a-z_\d]+)?/;
  25     const OPTIONAL_NUMBER_EXP = /([de][+-]?\d+)?/;
  26     const NUMBER = {
  27       className: 'number',
  28       variants: [
  29         { begin: regex.concat(/\b\d+/, /\.(\d*)/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX) },
  30         { begin: regex.concat(/\b\d+/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX) },
  31         { begin: regex.concat(/\.\d+/, OPTIONAL_NUMBER_EXP, OPTIONAL_NUMBER_SUFFIX) }
  32       ],
  33       relevance: 0
  34     };
  35
  36     const F_KEYWORDS = {
  37       literal: '.False. .True.',
  38       keyword: 'kind do while private call intrinsic where elsewhere '
  39         + 'type endtype endmodule endselect endinterface end enddo endif if forall endforall only contains default return stop then '
  40         + 'public subroutine|10 function program .and. .or. .not. .le. .eq. .ge. .gt. .lt. '
  41         + 'goto save else use module select case '
  42         + 'access blank direct exist file fmt form formatted iostat name named nextrec number opened rec recl sequential status unformatted unit '
  43         + 'continue format pause cycle exit '
  44         + 'c_null_char c_alert c_backspace c_form_feed flush wait decimal round iomsg '
  45         + 'synchronous nopass non_overridable pass protected volatile abstract extends import '
  46         + 'non_intrinsic value deferred generic final enumerator class associate bind enum '
  47         + '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 '
  48         + '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 '
  49         + 'c_long_double c_float_complex c_double_complex c_long_double_complex c_bool c_char c_null_ptr c_null_funptr '
  50         + 'c_new_line c_carriage_return c_horizontal_tab c_vertical_tab iso_c_binding c_loc c_funloc c_associated  c_f_pointer '
  51         + 'c_ptr c_funptr iso_fortran_env character_storage_size error_unit file_storage_size input_unit iostat_end iostat_eor '
  52         + 'numeric_storage_size output_unit c_f_procpointer ieee_arithmetic ieee_support_underflow_control '
  53         + 'ieee_get_underflow_mode ieee_set_underflow_mode newunit contiguous recursive '
  54         + 'pad position action delim readwrite eor advance nml interface procedure namelist include sequence elemental pure '
  55         + 'integer real character complex logical dimension allocatable|10 parameter '
  56         + 'external implicit|10 none double precision assign intent optional pointer '
  57         + 'target in out common equivalence data '
  58         // IRPF90 special keywords
  59         + 'begin_provider &begin_provider end_provider begin_shell end_shell begin_template end_template subst assert touch '
  60         + 'soft_touch provide no_dep free irp_if irp_else irp_endif irp_write irp_read',
  61       built_in: 'alog alog10 amax0 amax1 amin0 amin1 amod cabs ccos cexp clog csin csqrt dabs dacos dasin datan datan2 dcos dcosh ddim dexp dint '
  62         + 'dlog dlog10 dmax1 dmin1 dmod dnint dsign dsin dsinh dsqrt dtan dtanh float iabs idim idint idnint ifix isign max0 max1 min0 min1 sngl '
  63         + 'algama cdabs cdcos cdexp cdlog cdsin cdsqrt cqabs cqcos cqexp cqlog cqsin cqsqrt dcmplx dconjg derf derfc dfloat dgamma dimag dlgama '
  64         + 'iqint qabs qacos qasin qatan qatan2 qcmplx qconjg qcos qcosh qdim qerf qerfc qexp qgamma qimag qlgama qlog qlog10 qmax1 qmin1 qmod '
  65         + '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 '
  66         + 'log10 max min nint sign sin sinh sqrt tan tanh print write dim lge lgt lle llt mod nullify allocate deallocate '
  67         + 'adjustl adjustr all allocated any associated bit_size btest ceiling count cshift date_and_time digits dot_product '
  68         + 'eoshift epsilon exponent floor fraction huge iand ibclr ibits ibset ieor ior ishft ishftc lbound len_trim matmul '
  69         + 'maxexponent maxloc maxval merge minexponent minloc minval modulo mvbits nearest pack present product '
  70         + 'radix random_number random_seed range repeat reshape rrspacing scale scan selected_int_kind selected_real_kind '
  71         + 'set_exponent shape size spacing spread sum system_clock tiny transpose trim ubound unpack verify achar iachar transfer '
  72         + 'dble entry dprod cpu_time command_argument_count get_command get_command_argument get_environment_variable is_iostat_end '
  73         + 'ieee_arithmetic ieee_support_underflow_control ieee_get_underflow_mode ieee_set_underflow_mode '
  74         + 'is_iostat_eor move_alloc new_line selected_char_kind same_type_as extends_type_of '
  75         + 'acosh asinh atanh bessel_j0 bessel_j1 bessel_jn bessel_y0 bessel_y1 bessel_yn erf erfc erfc_scaled gamma log_gamma hypot norm2 '
  76         + 'atomic_define atomic_ref execute_command_line leadz trailz storage_size merge_bits '
  77         + 'bge bgt ble blt dshiftl dshiftr findloc iall iany iparity image_index lcobound ucobound maskl maskr '
  78         + 'num_images parity popcnt poppar shifta shiftl shiftr this_image '
  79         // IRPF90 special built_ins
  80         + 'IRP_ALIGN irp_here'
  81     };
  82     return {
  83       name: 'IRPF90',
  84       case_insensitive: true,
  85       keywords: F_KEYWORDS,
  86       illegal: /\/\*/,
  87       contains: [
  88         hljs.inherit(hljs.APOS_STRING_MODE, {
  89           className: 'string',
  90           relevance: 0
  91         }),
  92         hljs.inherit(hljs.QUOTE_STRING_MODE, {
  93           className: 'string',
  94           relevance: 0
  95         }),
  96         {
  97           className: 'function',
  98           beginKeywords: 'subroutine function program',
  99           illegal: '[${=\\n]',
 100           contains: [
 101             hljs.UNDERSCORE_TITLE_MODE,
 102             PARAMS
 103           ]
 104         },
 105         hljs.COMMENT('!', '$', { relevance: 0 }),
 106         hljs.COMMENT('begin_doc', 'end_doc', { relevance: 10 }),
 107         NUMBER
 108       ]
 109     };
 110   }
 111
 112   return irpf90;
 113
 114 })();
 115
 116     hljs.registerLanguage('irpf90', hljsGrammar);
 117   })();