l0bsterssg

node.js static responsive blog post generator
Log | Files | Refs | README

irpf90.js (5679B)


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