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