GPQAPP

1
// CodeMirror, copyright (c) by Marijn Haverbeke and others
2
// Distributed under an MIT license: https://codemirror.net/LICENSE
3

4
(function(mod) {
5
  if (typeof exports == "object" && typeof module == "object") // CommonJS
6
    mod(require("../../lib/codemirror"));
7
  else if (typeof define == "function" && define.amd) // AMD
8
    define(["../../lib/codemirror"], mod);
9
  else // Plain browser env
10
    mod(CodeMirror);
11
})(function(CodeMirror) {
12
  "use strict";
13

14
  function wordRegexp(words) {
15
    return new RegExp('^((' + words.join(')|(') + '))\\b', 'i');
16
  };
17

18
  var builtinArray = [
19
    'a_correlate', 'abs', 'acos', 'adapt_hist_equal', 'alog',
20
    'alog2', 'alog10', 'amoeba', 'annotate', 'app_user_dir',
21
    'app_user_dir_query', 'arg_present', 'array_equal', 'array_indices',
22
    'arrow', 'ascii_template', 'asin', 'assoc', 'atan',
23
    'axis', 'axis', 'bandpass_filter', 'bandreject_filter', 'barplot',
24
    'bar_plot', 'beseli', 'beselj', 'beselk', 'besely',
25
    'beta', 'biginteger', 'bilinear', 'bin_date', 'binary_template',
26
    'bindgen', 'binomial', 'bit_ffs', 'bit_population', 'blas_axpy',
27
    'blk_con', 'boolarr', 'boolean', 'boxplot', 'box_cursor',
28
    'breakpoint', 'broyden', 'bubbleplot', 'butterworth', 'bytarr',
29
    'byte', 'byteorder', 'bytscl', 'c_correlate', 'calendar',
30
    'caldat', 'call_external', 'call_function', 'call_method',
31
    'call_procedure', 'canny', 'catch', 'cd', 'cdf', 'ceil',
32
    'chebyshev', 'check_math', 'chisqr_cvf', 'chisqr_pdf', 'choldc',
33
    'cholsol', 'cindgen', 'cir_3pnt', 'clipboard', 'close',
34
    'clust_wts', 'cluster', 'cluster_tree', 'cmyk_convert', 'code_coverage',
35
    'color_convert', 'color_exchange', 'color_quan', 'color_range_map',
36
    'colorbar', 'colorize_sample', 'colormap_applicable',
37
    'colormap_gradient', 'colormap_rotation', 'colortable',
38
    'comfit', 'command_line_args', 'common', 'compile_opt', 'complex',
39
    'complexarr', 'complexround', 'compute_mesh_normals', 'cond', 'congrid',
40
    'conj', 'constrained_min', 'contour', 'contour', 'convert_coord',
41
    'convol', 'convol_fft', 'coord2to3', 'copy_lun', 'correlate',
42
    'cos', 'cosh', 'cpu', 'cramer', 'createboxplotdata',
43
    'create_cursor', 'create_struct', 'create_view', 'crossp', 'crvlength',
44
    'ct_luminance', 'cti_test', 'cursor', 'curvefit', 'cv_coord',
45
    'cvttobm', 'cw_animate', 'cw_animate_getp', 'cw_animate_load',
46
    'cw_animate_run', 'cw_arcball', 'cw_bgroup', 'cw_clr_index',
47
    'cw_colorsel', 'cw_defroi', 'cw_field', 'cw_filesel', 'cw_form',
48
    'cw_fslider', 'cw_light_editor', 'cw_light_editor_get',
49
    'cw_light_editor_set', 'cw_orient', 'cw_palette_editor',
50
    'cw_palette_editor_get', 'cw_palette_editor_set', 'cw_pdmenu',
51
    'cw_rgbslider', 'cw_tmpl', 'cw_zoom', 'db_exists',
52
    'dblarr', 'dcindgen', 'dcomplex', 'dcomplexarr', 'define_key',
53
    'define_msgblk', 'define_msgblk_from_file', 'defroi', 'defsysv',
54
    'delvar', 'dendro_plot', 'dendrogram', 'deriv', 'derivsig',
55
    'determ', 'device', 'dfpmin', 'diag_matrix', 'dialog_dbconnect',
56
    'dialog_message', 'dialog_pickfile', 'dialog_printersetup',
57
    'dialog_printjob', 'dialog_read_image',
58
    'dialog_write_image', 'dictionary', 'digital_filter', 'dilate', 'dindgen',
59
    'dissolve', 'dist', 'distance_measure', 'dlm_load', 'dlm_register',
60
    'doc_library', 'double', 'draw_roi', 'edge_dog', 'efont',
61
    'eigenql', 'eigenvec', 'ellipse', 'elmhes', 'emboss',
62
    'empty', 'enable_sysrtn', 'eof', 'eos', 'erase',
63
    'erf', 'erfc', 'erfcx', 'erode', 'errorplot',
64
    'errplot', 'estimator_filter', 'execute', 'exit', 'exp',
65
    'expand', 'expand_path', 'expint', 'extract', 'extract_slice',
66
    'f_cvf', 'f_pdf', 'factorial', 'fft', 'file_basename',
67
    'file_chmod', 'file_copy', 'file_delete', 'file_dirname',
68
    'file_expand_path', 'file_gunzip', 'file_gzip', 'file_info',
69
    'file_lines', 'file_link', 'file_mkdir', 'file_move',
70
    'file_poll_input', 'file_readlink', 'file_same',
71
    'file_search', 'file_tar', 'file_test', 'file_untar', 'file_unzip',
72
    'file_which', 'file_zip', 'filepath', 'findgen', 'finite',
73
    'fix', 'flick', 'float', 'floor', 'flow3',
74
    'fltarr', 'flush', 'format_axis_values', 'forward_function', 'free_lun',
75
    'fstat', 'fulstr', 'funct', 'function', 'fv_test',
76
    'fx_root', 'fz_roots', 'gamma', 'gamma_ct', 'gauss_cvf',
77
    'gauss_pdf', 'gauss_smooth', 'gauss2dfit', 'gaussfit',
78
    'gaussian_function', 'gaussint', 'get_drive_list', 'get_dxf_objects',
79
    'get_kbrd', 'get_login_info',
80
    'get_lun', 'get_screen_size', 'getenv', 'getwindows', 'greg2jul',
81
    'grib', 'grid_input', 'grid_tps', 'grid3', 'griddata',
82
    'gs_iter', 'h_eq_ct', 'h_eq_int', 'hanning', 'hash',
83
    'hdf', 'hdf5', 'heap_free', 'heap_gc', 'heap_nosave',
84
    'heap_refcount', 'heap_save', 'help', 'hilbert', 'hist_2d',
85
    'hist_equal', 'histogram', 'hls', 'hough', 'hqr',
86
    'hsv', 'i18n_multibytetoutf8',
87
    'i18n_multibytetowidechar', 'i18n_utf8tomultibyte',
88
    'i18n_widechartomultibyte',
89
    'ibeta', 'icontour', 'iconvertcoord', 'idelete', 'identity',
90
    'idl_base64', 'idl_container', 'idl_validname',
91
    'idlexbr_assistant', 'idlitsys_createtool',
92
    'idlunit', 'iellipse', 'igamma', 'igetcurrent', 'igetdata',
93
    'igetid', 'igetproperty', 'iimage', 'image', 'image_cont',
94
    'image_statistics', 'image_threshold', 'imaginary', 'imap', 'indgen',
95
    'int_2d', 'int_3d', 'int_tabulated', 'intarr', 'interpol',
96
    'interpolate', 'interval_volume', 'invert', 'ioctl', 'iopen',
97
    'ir_filter', 'iplot', 'ipolygon', 'ipolyline', 'iputdata',
98
    'iregister', 'ireset', 'iresolve', 'irotate', 'isa',
99
    'isave', 'iscale', 'isetcurrent', 'isetproperty', 'ishft',
100
    'isocontour', 'isosurface', 'isurface', 'itext', 'itranslate',
101
    'ivector', 'ivolume', 'izoom', 'journal', 'json_parse',
102
    'json_serialize', 'jul2greg', 'julday', 'keyword_set', 'krig2d',
103
    'kurtosis', 'kw_test', 'l64indgen', 'la_choldc', 'la_cholmprove',
104
    'la_cholsol', 'la_determ', 'la_eigenproblem', 'la_eigenql', 'la_eigenvec',
105
    'la_elmhes', 'la_gm_linear_model', 'la_hqr', 'la_invert',
106
    'la_least_square_equality', 'la_least_squares', 'la_linear_equation',
107
    'la_ludc', 'la_lumprove', 'la_lusol',
108
    'la_svd', 'la_tridc', 'la_trimprove', 'la_triql', 'la_trired',
109
    'la_trisol', 'label_date', 'label_region', 'ladfit', 'laguerre',
110
    'lambda', 'lambdap', 'lambertw', 'laplacian', 'least_squares_filter',
111
    'leefilt', 'legend', 'legendre', 'linbcg', 'lindgen',
112
    'linfit', 'linkimage', 'list', 'll_arc_distance', 'lmfit',
113
    'lmgr', 'lngamma', 'lnp_test', 'loadct', 'locale_get',
114
    'logical_and', 'logical_or', 'logical_true', 'lon64arr', 'lonarr',
115
    'long', 'long64', 'lsode', 'lu_complex', 'ludc',
116
    'lumprove', 'lusol', 'm_correlate', 'machar', 'make_array',
117
    'make_dll', 'make_rt', 'map', 'mapcontinents', 'mapgrid',
118
    'map_2points', 'map_continents', 'map_grid', 'map_image', 'map_patch',
119
    'map_proj_forward', 'map_proj_image', 'map_proj_info',
120
    'map_proj_init', 'map_proj_inverse',
121
    'map_set', 'matrix_multiply', 'matrix_power', 'max', 'md_test',
122
    'mean', 'meanabsdev', 'mean_filter', 'median', 'memory',
123
    'mesh_clip', 'mesh_decimate', 'mesh_issolid',
124
    'mesh_merge', 'mesh_numtriangles',
125
    'mesh_obj', 'mesh_smooth', 'mesh_surfacearea',
126
    'mesh_validate', 'mesh_volume',
127
    'message', 'min', 'min_curve_surf', 'mk_html_help', 'modifyct',
128
    'moment', 'morph_close', 'morph_distance',
129
    'morph_gradient', 'morph_hitormiss',
130
    'morph_open', 'morph_thin', 'morph_tophat', 'multi', 'n_elements',
131
    'n_params', 'n_tags', 'ncdf', 'newton', 'noise_hurl',
132
    'noise_pick', 'noise_scatter', 'noise_slur', 'norm', 'obj_class',
133
    'obj_destroy', 'obj_hasmethod', 'obj_isa', 'obj_new', 'obj_valid',
134
    'objarr', 'on_error', 'on_ioerror', 'online_help', 'openr',
135
    'openu', 'openw', 'oplot', 'oploterr', 'orderedhash',
136
    'p_correlate', 'parse_url', 'particle_trace', 'path_cache', 'path_sep',
137
    'pcomp', 'plot', 'plot3d', 'plot', 'plot_3dbox',
138
    'plot_field', 'ploterr', 'plots', 'polar_contour', 'polar_surface',
139
    'polyfill', 'polyshade', 'pnt_line', 'point_lun', 'polarplot',
140
    'poly', 'poly_2d', 'poly_area', 'poly_fit', 'polyfillv',
141
    'polygon', 'polyline', 'polywarp', 'popd', 'powell',
142
    'pref_commit', 'pref_get', 'pref_set', 'prewitt', 'primes',
143
    'print', 'printf', 'printd', 'pro', 'product',
144
    'profile', 'profiler', 'profiles', 'project_vol', 'ps_show_fonts',
145
    'psafm', 'pseudo', 'ptr_free', 'ptr_new', 'ptr_valid',
146
    'ptrarr', 'pushd', 'qgrid3', 'qhull', 'qromb',
147
    'qromo', 'qsimp', 'query_*', 'query_ascii', 'query_bmp',
148
    'query_csv', 'query_dicom', 'query_gif', 'query_image', 'query_jpeg',
149
    'query_jpeg2000', 'query_mrsid', 'query_pict', 'query_png', 'query_ppm',
150
    'query_srf', 'query_tiff', 'query_video', 'query_wav', 'r_correlate',
151
    'r_test', 'radon', 'randomn', 'randomu', 'ranks',
152
    'rdpix', 'read', 'readf', 'read_ascii', 'read_binary',
153
    'read_bmp', 'read_csv', 'read_dicom', 'read_gif', 'read_image',
154
    'read_interfile', 'read_jpeg', 'read_jpeg2000', 'read_mrsid', 'read_pict',
155
    'read_png', 'read_ppm', 'read_spr', 'read_srf', 'read_sylk',
156
    'read_tiff', 'read_video', 'read_wav', 'read_wave', 'read_x11_bitmap',
157
    'read_xwd', 'reads', 'readu', 'real_part', 'rebin',
158
    'recall_commands', 'recon3', 'reduce_colors', 'reform', 'region_grow',
159
    'register_cursor', 'regress', 'replicate',
160
    'replicate_inplace', 'resolve_all',
161
    'resolve_routine', 'restore', 'retall', 'return', 'reverse',
162
    'rk4', 'roberts', 'rot', 'rotate', 'round',
163
    'routine_filepath', 'routine_info', 'rs_test', 's_test', 'save',
164
    'savgol', 'scale3', 'scale3d', 'scatterplot', 'scatterplot3d',
165
    'scope_level', 'scope_traceback', 'scope_varfetch',
166
    'scope_varname', 'search2d',
167
    'search3d', 'sem_create', 'sem_delete', 'sem_lock', 'sem_release',
168
    'set_plot', 'set_shading', 'setenv', 'sfit', 'shade_surf',
169
    'shade_surf_irr', 'shade_volume', 'shift', 'shift_diff', 'shmdebug',
170
    'shmmap', 'shmunmap', 'shmvar', 'show3', 'showfont',
171
    'signum', 'simplex', 'sin', 'sindgen', 'sinh',
172
    'size', 'skewness', 'skip_lun', 'slicer3', 'slide_image',
173
    'smooth', 'sobel', 'socket', 'sort', 'spawn',
174
    'sph_4pnt', 'sph_scat', 'spher_harm', 'spl_init', 'spl_interp',
175
    'spline', 'spline_p', 'sprsab', 'sprsax', 'sprsin',
176
    'sprstp', 'sqrt', 'standardize', 'stddev', 'stop',
177
    'strarr', 'strcmp', 'strcompress', 'streamline', 'streamline',
178
    'stregex', 'stretch', 'string', 'strjoin', 'strlen',
179
    'strlowcase', 'strmatch', 'strmessage', 'strmid', 'strpos',
180
    'strput', 'strsplit', 'strtrim', 'struct_assign', 'struct_hide',
181
    'strupcase', 'surface', 'surface', 'surfr', 'svdc',
182
    'svdfit', 'svsol', 'swap_endian', 'swap_endian_inplace', 'symbol',
183
    'systime', 't_cvf', 't_pdf', 't3d', 'tag_names',
184
    'tan', 'tanh', 'tek_color', 'temporary', 'terminal_size',
185
    'tetra_clip', 'tetra_surface', 'tetra_volume', 'text', 'thin',
186
    'thread', 'threed', 'tic', 'time_test2', 'timegen',
187
    'timer', 'timestamp', 'timestamptovalues', 'tm_test', 'toc',
188
    'total', 'trace', 'transpose', 'tri_surf', 'triangulate',
189
    'trigrid', 'triql', 'trired', 'trisol', 'truncate_lun',
190
    'ts_coef', 'ts_diff', 'ts_fcast', 'ts_smooth', 'tv',
191
    'tvcrs', 'tvlct', 'tvrd', 'tvscl', 'typename',
192
    'uindgen', 'uint', 'uintarr', 'ul64indgen', 'ulindgen',
193
    'ulon64arr', 'ulonarr', 'ulong', 'ulong64', 'uniq',
194
    'unsharp_mask', 'usersym', 'value_locate', 'variance', 'vector',
195
    'vector_field', 'vel', 'velovect', 'vert_t3d', 'voigt',
196
    'volume', 'voronoi', 'voxel_proj', 'wait', 'warp_tri',
197
    'watershed', 'wdelete', 'wf_draw', 'where', 'widget_base',
198
    'widget_button', 'widget_combobox', 'widget_control',
199
    'widget_displaycontextmenu', 'widget_draw',
200
    'widget_droplist', 'widget_event', 'widget_info',
201
    'widget_label', 'widget_list',
202
    'widget_propertysheet', 'widget_slider', 'widget_tab',
203
    'widget_table', 'widget_text',
204
    'widget_tree', 'widget_tree_move', 'widget_window',
205
    'wiener_filter', 'window',
206
    'window', 'write_bmp', 'write_csv', 'write_gif', 'write_image',
207
    'write_jpeg', 'write_jpeg2000', 'write_nrif', 'write_pict', 'write_png',
208
    'write_ppm', 'write_spr', 'write_srf', 'write_sylk', 'write_tiff',
209
    'write_video', 'write_wav', 'write_wave', 'writeu', 'wset',
210
    'wshow', 'wtn', 'wv_applet', 'wv_cwt', 'wv_cw_wavelet',
211
    'wv_denoise', 'wv_dwt', 'wv_fn_coiflet',
212
    'wv_fn_daubechies', 'wv_fn_gaussian',
213
    'wv_fn_haar', 'wv_fn_morlet', 'wv_fn_paul',
214
    'wv_fn_symlet', 'wv_import_data',
215
    'wv_import_wavelet', 'wv_plot3d_wps', 'wv_plot_multires',
216
    'wv_pwt', 'wv_tool_denoise',
217
    'xbm_edit', 'xdisplayfile', 'xdxf', 'xfont', 'xinteranimate',
218
    'xloadct', 'xmanager', 'xmng_tmpl', 'xmtool', 'xobjview',
219
    'xobjview_rotate', 'xobjview_write_image',
220
    'xpalette', 'xpcolor', 'xplot3d',
221
    'xregistered', 'xroi', 'xsq_test', 'xsurface', 'xvaredit',
222
    'xvolume', 'xvolume_rotate', 'xvolume_write_image',
223
    'xyouts', 'zlib_compress', 'zlib_uncompress', 'zoom', 'zoom_24'
224
  ];
225
  var builtins = wordRegexp(builtinArray);
226

227
  var keywordArray = [
228
    'begin', 'end', 'endcase', 'endfor',
229
    'endwhile', 'endif', 'endrep', 'endforeach',
230
    'break', 'case', 'continue', 'for',
231
    'foreach', 'goto', 'if', 'then', 'else',
232
    'repeat', 'until', 'switch', 'while',
233
    'do', 'pro', 'function'
234
  ];
235
  var keywords = wordRegexp(keywordArray);
236

237
  CodeMirror.registerHelper("hintWords", "idl", builtinArray.concat(keywordArray));
238

239
  var identifiers = new RegExp('^[_a-z\xa1-\uffff][_a-z0-9\xa1-\uffff]*', 'i');
240

241
  var singleOperators = /[+\-*&=<>\/@#~$]/;
242
  var boolOperators = new RegExp('(and|or|eq|lt|le|gt|ge|ne|not)', 'i');
243

244
  function tokenBase(stream) {
245
    // whitespaces
246
    if (stream.eatSpace()) return null;
247

248
    // Handle one line Comments
249
    if (stream.match(';')) {
250
      stream.skipToEnd();
251
      return 'comment';
252
    }
253

254
    // Handle Number Literals
255
    if (stream.match(/^[0-9\.+-]/, false)) {
256
      if (stream.match(/^[+-]?0x[0-9a-fA-F]+/))
257
        return 'number';
258
      if (stream.match(/^[+-]?\d*\.\d+([EeDd][+-]?\d+)?/))
259
        return 'number';
260
      if (stream.match(/^[+-]?\d+([EeDd][+-]?\d+)?/))
261
        return 'number';
262
    }
263

264
    // Handle Strings
265
    if (stream.match(/^"([^"]|(""))*"/)) { return 'string'; }
266
    if (stream.match(/^'([^']|(''))*'/)) { return 'string'; }
267

268
    // Handle words
269
    if (stream.match(keywords)) { return 'keyword'; }
270
    if (stream.match(builtins)) { return 'builtin'; }
271
    if (stream.match(identifiers)) { return 'variable'; }
272

273
    if (stream.match(singleOperators) || stream.match(boolOperators)) {
274
      return 'operator'; }
275

276
    // Handle non-detected items
277
    stream.next();
278
    return null;
279
  };
280

281
  CodeMirror.defineMode('idl', function() {
282
    return {
283
      token: function(stream) {
284
        return tokenBase(stream);
285
      }
286
    };
287
  });
288

289
  CodeMirror.defineMIME('text/x-idl', 'idl');
290
});
291