├── .gitignore ├── AUTHORS ├── COPYING ├── ChangeLog ├── LICENSE.PDF ├── Makefile.am ├── NEWS ├── README ├── README.git ├── README.jbm_notes ├── README.md ├── README.packages ├── ar-lib ├── configure.ac ├── cuda_comp_cap.c ├── def_config.csh ├── doc ├── .gitignore ├── COPYING ├── Makefile.am └── quip.texi ├── docs ├── Makefile.am ├── README ├── index.html ├── quip-1.0.02.tar.gz └── quip_web_manual │ ├── Advanced-Graphics.html │ ├── Advanced-variable-usage.html │ ├── Analog-I_002fO.html │ ├── Builtin-commands.html │ ├── Command-Language.html │ ├── Control-Panels.html │ ├── Creating-Data-Objects.html │ ├── Creating-a-viewer.html │ ├── Data-Objects.html │ ├── Dimensions.html │ ├── Displaying-Images.html │ ├── Displaying-the-menu.html │ ├── Exiting-the-menu.html │ ├── Expression-Language.html │ ├── First-steps.html │ ├── Frame-grabbers.html │ ├── Generating-output.html │ ├── History.html │ ├── Image-Files.html │ ├── Input-redirection.html │ ├── Installing-QuIP.html │ ├── Interacting-with-the-system.html │ ├── Interactive-Features.html │ ├── Interfacing-Hardware.html │ ├── LML-BT848.html │ ├── Loading-a-viewer.html │ ├── Loop-control.html │ ├── Macros.html │ ├── Manipulating-viewers.html │ ├── Matrox-meteor-RGB.html │ ├── Menus.html │ ├── Numeric-variables.html │ ├── Overview.html │ ├── Parallel-port.html │ ├── Plotting-Data.html │ ├── Predefined-macros.html │ ├── Prompts.html │ ├── QuIPindex.html │ ├── Response-completion.html │ ├── Sensoray-811.html │ ├── Serial-devices.html │ ├── Setting-variables.html │ ├── Special-variables.html │ ├── Startup.html │ ├── Subscripting.html │ ├── The-variables-submenu.html │ ├── Transcripts.html │ ├── Using-variables.html │ ├── V4L2-devices.html │ ├── Variables.html │ ├── Video-cameras.html │ ├── Writing-new-macros.html │ └── index.html ├── fast_config.csh ├── homebrew_pkgs ├── include ├── .gitignore ├── Makefile.am ├── Xhs.h ├── ascii_fmts.h ├── camera.h ├── camera_api.h ├── cmaps.h ├── command.h ├── container.h ├── container_fwd.h ├── ctx_pair.h ├── cuda_api.h ├── cuda_helper.h ├── cuda_supp.h ├── data_obj.h ├── dct8.h ├── debug.h ├── debug_module.h ├── dict.h ├── display.h ├── dispobj.h ├── dobj_basic.h ├── dobj_prot.h ├── fileck.h ├── fio_api.h ├── freel.h ├── func_helper.h ├── function.h ├── function_basic.h ├── gen_win.h ├── genwin_flags.h ├── getbuf.h ├── gl_info.h ├── gl_viewer.h ├── gmovie.h ├── hash.h ├── hips │ ├── .gitignore │ ├── Makefile.am │ ├── hip1hdr.h │ ├── hip2hdr.h │ ├── hipbasic.h │ ├── hiperror.h │ ├── hipl_fmt.h │ ├── hips1.h │ ├── hips2.h │ ├── hips_pf.h │ ├── perr.h │ ├── rdoldhdr.h │ ├── readhdr.h │ └── xparam.h ├── history.h ├── identifier.h ├── img_file.h ├── img_file │ ├── .gitignore │ ├── Makefile.am │ ├── avcodec_hdr.h │ ├── bdf_hdr.h │ ├── bmp_hdr.h │ ├── fio_png.h │ ├── fiotiff.h │ ├── get_hdr.h │ ├── glimage.h │ ├── img_file_hdr.h │ ├── jbm_ppm.h │ ├── jpeg_hdr.h │ ├── lshdr.h │ ├── matio_api.h │ ├── matio_hdr.h │ ├── my_avi.h │ ├── png_hdr.h │ ├── ppmhdr.h │ ├── rasterf.h │ ├── raw.h │ ├── rv.h │ ├── sir_disk.h │ ├── sunras.h │ ├── tiff_hdr.h │ ├── vistahdr.h │ ├── wav.h │ └── wav_hdr.h ├── ios_config.h ├── ios_gui.h ├── ios_item.h ├── ios_list.h ├── ios_node.h ├── ios_prot.h ├── ios_stack.h ├── item_obj.h ├── item_prot.h ├── item_type.h ├── linear.h ├── list.h ├── llen.h ├── llseek.h ├── mac_config.h ├── macro.h ├── map_ios_item.h ├── my_cu2.h ├── my_cuda.h ├── my_curl.h ├── my_encryption.h ├── my_ocl.h ├── my_parport.h ├── my_vl2.h ├── nav_panel.h ├── nexpr.h ├── node.h ├── nports_api.h ├── nrm_api.h ├── ocl_api.h ├── ocl_platform.h ├── off64_t.h ├── opengl_utils.h ├── optimize.h ├── panel_obj.h ├── param_api.h ├── pf_viewer.h ├── pipe_support.h ├── platform.h ├── pointer.h ├── polh_menu.h ├── query_api.h ├── query_bits.h ├── query_stack.h ├── quipAlarm.h ├── quipAppDelegate.h ├── quipCanvas.h ├── quipController.h ├── quipImage.h ├── quipImages.h ├── quipNavController.h ├── quipTableViewController.h ├── quipView.h ├── quipViewController.h ├── quipWindowController.h ├── quip_config.h ├── quip_fwd.h ├── quip_menu.h ├── quip_prot.h ├── quip_start_menu.c ├── rbtree.h ├── reference.h ├── rn.h ├── rt_sched.h ├── rv_api.h ├── scalar_value.h ├── screen_obj.h ├── seq.h ├── seq_api.h ├── serbuf.h ├── serial.h ├── server.h ├── shape_bits.h ├── shape_info.h ├── sigpush.h ├── sizable.h ├── stack.h ├── string_ref.h ├── tensor.h ├── thread_safe_defs.h ├── treecode.h ├── ttyctl.h ├── typed_scalar.h ├── typedefs.h ├── undef_sym.h ├── update_quip_version.sh ├── variable.h ├── vec_expr_node.h ├── vec_util.h ├── veclib │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── all_bit_kernels.m4 │ ├── all_float_kernels.m4 │ ├── all_int_kernels.m4 │ ├── all_mixed_float_kernels.m4 │ ├── all_mixed_int_kernels.m4 │ ├── all_mixed_uint_kernels.m4 │ ├── all_same_prec_vec.m4 │ ├── all_uint_kernels.m4 │ ├── all_vec.m4 │ ├── asc_classes.c │ ├── bit_defs.m4 │ ├── bitmap_ops.c │ ├── by_defs.m4 │ ├── conv_vec.c │ ├── cpu_host_call_defs.m4 │ ├── cpx_args.m4 │ ├── cpx_vec.m4 │ ├── cu2_func_prot.m4 │ ├── cu2_port.m4 │ ├── cu2_veclib_prot.m4 │ ├── di_defs.m4 │ ├── dim3.h │ ├── dim5.h │ ├── dispatch_tbl.c │ ├── dp_defs.m4 │ ├── dp_func_defs.m4 │ ├── eqsp_defs.m4 │ ├── eqsp_incs.m4 │ ├── fast_defs.m4 │ ├── fast_eqsp_defs.m4 │ ├── fast_test.m4 │ ├── fft_funcs.m4 │ ├── fftsupp.h │ ├── flen_defs.m4 │ ├── flush_output.m4 │ ├── gen_bit_calls.m4 │ ├── gen_float_calls.m4 │ ├── gen_func_array.m4 │ ├── gen_gpu_calls.m4 │ ├── gen_host_calls.m4 │ ├── gen_int_calls.m4 │ ├── gen_kern_args.m4 │ ├── gen_kernel_calls.m4 │ ├── gen_mixed_float_calls.m4 │ ├── gen_mixed_int_calls.m4 │ ├── gen_mixed_uint_calls.m4 │ ├── gen_port.m4 │ ├── gen_typtbl.m4 │ ├── gen_uint_calls.m4 │ ├── gpu_args.m4 │ ├── gpu_call_utils.m4 │ ├── gpu_host_call_defs.m4 │ ├── gpu_special_defs.m4 │ ├── host_calls_special.m4 │ ├── host_fft_funcs.m4 │ ├── host_typed_call_defs.m4 │ ├── in_defs.m4 │ ├── inby_defs.m4 │ ├── int_bit_vec.m4 │ ├── intvec.m4 │ ├── li_defs.m4 │ ├── math_funcs.m4 │ ├── new_conv.m4 │ ├── obj_args.h │ ├── ocl_func_prot.m4 │ ├── ocl_port.m4 │ ├── ocl_veclib_prot.m4 │ ├── platform_funcs.m4 │ ├── quat_args.m4 │ ├── real_args.m4 │ ├── report_args.m4 │ ├── signed_vec.m4 │ ├── slow_defs.m4 │ ├── slow_incs.m4 │ ├── slow_len.h │ ├── slow_len.m4 │ ├── slow_vars.m4 │ ├── sp_defs.m4 │ ├── sp_func_defs.m4 │ ├── spdp_defs.m4 │ ├── uby_defs.m4 │ ├── ubyin_defs.m4 │ ├── udi_defs.m4 │ ├── uin_defs.m4 │ ├── uindi_defs.m4 │ ├── uli_defs.m4 │ ├── unsigned_vec.m4 │ ├── vec_func.h │ ├── vecgen.h │ ├── vecgen.m4 │ ├── vl2_func_prot.m4 │ ├── vl2_port.m4 │ ├── vl2_veclib_prot.m4 │ └── xfer_args.m4 ├── veclib_api.h ├── vectree.h ├── view_cmds.h ├── viewer.h ├── vt_api.h ├── warn.h ├── win_config.h ├── win_gcrypt.h ├── xsupp.h └── yacc_hack.h ├── libs └── Makefile.am ├── libsrc ├── .gitignore ├── Makefile.am ├── aravis │ └── ex1.c ├── cstepit │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── am_supp.c │ ├── cs_supp.c │ ├── cstepit.h │ ├── fitsine.c │ ├── new_cs_supp.c │ ├── new_stepit.c │ ├── pkg.c │ ├── pr_supp.c │ ├── sparse.c │ ├── sparse.h │ ├── stepit.c │ ├── stepmenu.c │ └── stepsupp.c ├── cu2 │ ├── .gitignore │ ├── Makefile.am │ ├── cu2.c │ ├── cu2_centroid.cu │ ├── cu2_centroid.m4 │ ├── cu2_centroid_defs.m4 │ ├── cu2_curand.c │ ├── cu2_fft.cu │ ├── cu2_fft_funcs.m4 │ ├── cu2_fft_supp.c │ ├── cu2_fill.cu │ ├── cu2_fill.m4 │ ├── cu2_func_tbl.c │ ├── cu2_func_tbl.h │ ├── cu2_funcs.cu │ ├── cu2_host_call_defs.m4 │ ├── cu2_host_funcs.m4 │ ├── cu2_kern_call_defs.m4 │ ├── cu2_kernels.m4 │ ├── cu2_menu.c │ ├── cu2_streams.c │ ├── cu2_typed_fft_funcs.m4 │ ├── cu2_typtbl.m4 │ ├── cu2_utils.c │ ├── cu2_utils.m4 │ ├── cu2_veclib.m4 │ ├── cu2_viewer.c │ ├── cu2_viewer.h │ ├── cu2_yuv2rgb.cu │ ├── cu2_yuv2rgb.m4 │ ├── m4_cu2_veclib.c │ ├── make_debug.csh │ ├── test.csh │ └── tests │ │ ├── basic_test.scr │ │ ├── bitmap.scr │ │ ├── fft.scr │ │ ├── map.scr │ │ ├── ramp1d.scr │ │ └── ramp2d.scr ├── cuda │ ├── .gitignore │ ├── BUGS │ ├── Makefile.am │ ├── README │ ├── cuda.cpp │ ├── cuda_curand.cpp │ ├── cuda_error.c │ ├── cuda_menu.cpp │ ├── cuda_npp.cpp │ ├── cuda_streams.c │ ├── cuda_viewer.cpp │ ├── cuda_viewer.h │ ├── deviceQuery.cpp │ ├── glx_hack.h │ ├── make_debug.csh │ ├── root_cmds.sh │ ├── simpleCUBLAS.cpp │ └── simpleGL_kernel.cu ├── das1602 │ ├── .gitignore │ ├── Makefile.am │ ├── dastst.c │ ├── ioctl_das1602.h │ ├── pacer.c │ └── pacer.h ├── dither │ ├── .gitignore │ ├── Makefile.am │ ├── cdiff.c │ ├── cie.h │ ├── cspread.c │ ├── ctone.c │ ├── ctone.h │ ├── dspread.c │ ├── getbest.c │ ├── getwhite.c │ ├── gspread.c │ ├── phosmax.h │ ├── qlevel.h │ ├── rb2rgb.c │ ├── requant.c │ ├── requant.h │ ├── spread.c │ └── tspread.c ├── dobj │ ├── .gitignore │ ├── Makefile.am │ ├── areas.c │ ├── arrays.c │ ├── ascii.c │ ├── ascmenu.c │ ├── contig.c │ ├── data_fns.c │ ├── data_obj.c │ ├── dfuncs.c │ ├── dobj_expr.c │ ├── dobj_menu.c │ ├── dobj_private.h │ ├── dobj_util.c │ ├── dplist.c │ ├── equivalence.c │ ├── get_obj.c │ ├── index.c │ ├── makedobj.c │ ├── memops.c │ ├── ops_menu.c │ ├── shape_info.c │ ├── sub_obj.c │ └── tests │ │ ├── align.scr │ │ ├── asc.scr │ │ ├── ascii_errors.scr │ │ ├── ascii_gpu.scr │ │ ├── bit_index.scr │ │ ├── biteq.scr │ │ ├── bitflag.scr │ │ ├── bitmap.scr │ │ ├── bm2.scr │ │ ├── complex.scr │ │ ├── comps.scr │ │ ├── contig.scr │ │ ├── disp2.scr │ │ ├── display_format.scr │ │ ├── equiv.scr │ │ ├── explode.scr │ │ ├── file_with_3_elts.txt │ │ ├── file_with_4_elts.txt │ │ ├── file_with_5_elts.txt │ │ ├── info.scr │ │ ├── input_fmt.scr │ │ ├── obj_exists.scr │ │ ├── output2 │ │ ├── pipe_data.scr │ │ ├── pipe_data.txt │ │ ├── relocate.scr │ │ ├── run_all_tests.csh │ │ ├── sort.scr │ │ ├── sub.scr │ │ ├── test_input1.asc │ │ ├── test_input2.asc │ │ ├── test_input3.asc │ │ └── value_gpu.scr ├── fann │ ├── Makefile.am │ ├── fann_menu.c │ ├── fann_util.c │ ├── my_fann.h │ └── tests │ │ ├── t.scr │ │ ├── xor_in.asc │ │ └── xor_out.asc ├── fileio │ ├── .gitignore │ ├── Makefile.am │ ├── avi.c │ ├── avi_info_file.c │ ├── avio_reading.c │ ├── bmp.c │ ├── bmp.h │ ├── bmp_hdr.h │ ├── cderror.h │ ├── cdjpeg.h │ ├── copts.c │ ├── fileport.c │ ├── fio_menu.c │ ├── fio_prot.h │ ├── fioasc.c │ ├── fiojpeg.h │ ├── get_hdr.c │ ├── hips1.c │ ├── hips2.c │ ├── img_file.c │ ├── jinclude.h │ ├── jp_opts.c │ ├── jpeg.c │ ├── jpeg_private.h │ ├── jpegint.h │ ├── markers.h │ ├── matio.c │ ├── matio_private.h │ ├── mpeg.c │ ├── my_avi.h │ ├── png.c │ ├── png.m │ ├── png_menu.c │ ├── ppm.c │ ├── raw.c │ ├── rdcolmap.c │ ├── read_raw.c │ ├── rv.c │ ├── sunras.c │ ├── tests │ │ ├── h1seek.scr │ │ ├── png_read_test.scr │ │ ├── png_seek_test.scr │ │ ├── png_test.scr │ │ └── tst.hips1 │ ├── tiff.c │ ├── vl.c │ └── wav.c ├── find_bugs.csh ├── flycap │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── cam_ctl.c │ ├── fly.c │ ├── fly.h │ ├── fly_menu.c │ ├── stream_fly.c │ ├── tests │ │ ├── format7.scr │ │ ├── record_pvt.scr │ │ ├── strobe.scr │ │ └── test_flea3.scr │ └── usb_reset.c ├── gsl │ ├── .gitignore │ ├── Makefile.am │ ├── gsl.c │ ├── gslmenu.c │ └── gslprot.h ├── gui │ ├── .gitignore │ ├── Makefile.am │ ├── crt_cal.c │ ├── gui_cmds.h │ ├── gui_prot.h │ ├── ios.m │ ├── macos.m │ ├── menu_bar.h │ ├── menu_bar.m │ ├── motif.c │ ├── my_motif.h │ ├── panel.m │ ├── protomenu.c │ ├── protomenu.m │ ├── screen_objs.c │ ├── screen_objs.m │ └── tests │ │ ├── ctx.scr │ │ ├── gui_test.scr │ │ └── nav_test.scr ├── hips │ ├── .gitignore │ ├── Makefile.am │ ├── herrs.c │ ├── hsizepix.c │ ├── perr.c │ ├── rdoldhdr.c │ ├── readhdr.c │ ├── writehdr.c │ └── xparam.c ├── ieee1394 │ ├── .gitignore │ ├── Makefile.am │ ├── dv1394.h │ ├── dv_globals.h │ ├── dvmenu.c │ ├── frame.c │ ├── frame.h │ ├── ieee1394-ioctl.h │ └── ieee1394io.c ├── interpreter │ ├── .gitignore │ ├── BUGS │ ├── Makefile.am │ ├── NOTES │ ├── bi_menu.c │ ├── callback.c │ ├── class.c │ ├── command.c │ ├── complete.c │ ├── container.c │ ├── debug.c │ ├── encrypt_funcs.c │ ├── error.c │ ├── expect.c │ ├── expr_node.c │ ├── fake_cam.c │ ├── fake_cam.m │ ├── features.c │ ├── fileck.c │ ├── freel.c │ ├── function.c │ ├── function.m │ ├── gcrypt.c │ ├── getbuf.c │ ├── hash.c │ ├── history.c │ ├── item_type.c │ ├── list.c │ ├── list_private.h │ ├── macro.c │ ├── menu.c │ ├── nexpr.y │ ├── node.c │ ├── param.c │ ├── pathnm.c │ ├── pipe_support.c │ ├── ptoz.c │ ├── query.c │ ├── query_funcs.c │ ├── query_private.h │ ├── query_prot.h │ ├── query_stack.c │ ├── questions.c │ ├── quip_exec.c │ ├── rbtree.c │ ├── rcfile.c │ ├── rn.c │ ├── secret_key.c │ ├── stack.c │ ├── start_quip.c │ ├── strbuf.c │ ├── strbuf.h │ ├── substr.c │ ├── termio.c │ ├── tests │ │ ├── all_tests.csh │ │ ├── argv0.scr │ │ ├── ascii_funcs.scr │ │ ├── bad_conditional.scr │ │ ├── big_var.scr │ │ ├── contexts.scr │ │ ├── define_test.scr │ │ ├── del_mac.scr │ │ ├── encrypt.scr │ │ ├── erfinv.scr │ │ ├── funcs.scr │ │ ├── gamma.scr │ │ ├── int_expr.scr │ │ ├── int_var_fmt.scr │ │ ├── is_digit.scr │ │ ├── line_numbers.scr │ │ ├── line_numbers2.scr │ │ ├── line_numbers_loops.scr │ │ ├── list_test.scr │ │ ├── location.scr │ │ ├── log_msg.scr │ │ ├── loop_test.scr │ │ ├── macro.scr │ │ ├── macro_args.scr │ │ ├── master.scr │ │ ├── mdef.scr │ │ ├── obj_expr.scr │ │ ├── permute.scr │ │ ├── quotes.scr │ │ ├── rb_tree_test.scr │ │ ├── replace.scr │ │ ├── size_funcs.scr │ │ ├── special_chars.scr │ │ ├── string_expr.scr │ │ ├── typed_scalars.scr │ │ ├── unix_time.scr │ │ └── var_indir.scr │ ├── tryhard.c │ ├── typed_scalars.c │ ├── variable.c │ ├── which1.c │ └── win_nexpr.c.bak ├── ios │ ├── .gitignore │ ├── BUGS │ ├── CameraViewController.h │ ├── CameraViewController.m │ ├── OpenUDID.h │ ├── OpenUDID.m │ ├── README │ ├── TODO │ ├── accel.m │ ├── avCap.h │ ├── avCap.m │ ├── bldall.csh │ ├── camera.m │ ├── coq_unix_test.scr │ ├── decrypt_file.scr │ ├── encrypt.m │ ├── encrypt_startup_file.csh │ ├── ios_class.m │ ├── ios_item.m │ ├── ios_list.m │ ├── ios_node.m │ ├── ios_sizable.m │ ├── ios_stack.m │ ├── mac_startup.scr.old │ ├── macos_main.m │ ├── main.m │ ├── my_csf.scr │ ├── nav_panel.m │ ├── oldcam.m │ ├── quipAlarm.m │ ├── quipAppDelegate.m │ ├── quipCanvas.m │ ├── quipConsole.m │ ├── quipImage.m │ ├── quipImages.m │ ├── quipNavController.m │ ├── quipTable.h │ ├── quipTableViewController.m │ ├── quipView.m │ ├── quipViewController.m │ ├── quipWindowController.m │ ├── screen_obj.m │ ├── testViewController.h │ └── testViewController.m ├── knox │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── knox.c │ ├── knox.h │ ├── knox_tbl.c │ ├── root_cmds.csh │ └── tests │ │ └── client.scr ├── metal │ └── mtl.c ├── meteor │ ├── .gitignore │ ├── Makefile.am │ ├── curv_setup1.h │ ├── curv_setup2.h │ ├── curv_setup3.h │ ├── fg_routines.c │ ├── fg_routines.h │ ├── ioctl_meteor.h │ ├── mcapt.c │ ├── mcont.c │ ├── meteor.h │ ├── meteor_flow.c │ ├── mgeo.c │ ├── mhw.c │ ├── mmenu.c │ ├── mmenu.h │ ├── mmodule.c │ ├── mmvi.h │ ├── mviewer.c │ ├── pupfind.c │ ├── pupfind.h │ └── stream.c ├── mvimenu │ ├── .gitignore │ ├── Makefile.am │ ├── mvimenu.c │ ├── mvimenu.m │ ├── xmvi.c │ └── xmvi.h ├── nrmenu │ ├── .gitignore │ ├── Makefile.am │ ├── nrmenu.c │ └── numrec.c ├── opencl │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── README.proj │ ├── README.vmaxg │ ├── Random123 │ │ ├── Makefile.am │ │ ├── array.h │ │ ├── features │ │ │ ├── Makefile.am │ │ │ ├── compilerfeatures.h │ │ │ ├── openclfeatures.h │ │ │ └── sse.h │ │ └── threefry.h │ ├── bitmap_bug.scr │ ├── bug.c │ ├── check_hist.scr │ ├── checkit.csh │ ├── fractionate.c │ ├── gencl.sh │ ├── kern_src.c │ ├── make_debug.csh │ ├── makefile.bug │ ├── ocl.c │ ├── ocl_blas.c │ ├── ocl_dev_query.c │ ├── ocl_fakit.c │ ├── ocl_fft.c │ ├── ocl_fft_funcs.m4 │ ├── ocl_host_call_defs.m4 │ ├── ocl_host_funcs.m4 │ ├── ocl_host_untyped_call_defs.m4 │ ├── ocl_kern_args.m4 │ ├── ocl_kern_call_defs.m4 │ ├── ocl_kernel_src.m4 │ ├── ocl_kernels.c │ ├── ocl_kernels.m4 │ ├── ocl_menu.c │ ├── ocl_rand.c │ ├── ocl_rand.m4 │ ├── ocl_streams.c │ ├── ocl_typed_fft_funcs.m4 │ ├── ocl_typtbl.m4 │ ├── ocl_untyped_fft_funcs.m4 │ ├── ocl_untyped_host_calls.m4 │ ├── ocl_utils.c │ ├── ocl_veclib.c │ ├── ocl_veclib.m4 │ ├── strip_it.sh │ ├── strip_it2.sh │ ├── strip_it3.sh │ ├── t2.m4 │ ├── test.c │ ├── test_m4.csh │ ├── test_philox.csh │ ├── tests │ │ ├── apple.scr │ │ ├── basic_test.scr │ │ ├── bitmaps.scr │ │ ├── cpx_fft.scr │ │ ├── fft.scr │ │ ├── fft2d.scr │ │ ├── g2.scr │ │ ├── gfx_test.scr │ │ ├── map.scr │ │ ├── ramp2d.scr │ │ ├── real_fft.scr │ │ ├── subi.scr │ │ ├── vdot.scr │ │ ├── vmaxg.scr │ │ ├── vmaxv.scr │ │ ├── vsm.scr │ │ ├── vsum.scr │ │ └── vvm.scr │ ├── touch_test.csh │ ├── vuni.c │ └── vuni.ocl ├── opencv │ ├── .gitignore │ ├── Makefile.am │ ├── opencv_glue.c │ ├── opencv_glue.h │ └── opencv_menu.c ├── opengl │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── debug_gl.csh │ ├── dl.c │ ├── dl.h │ ├── dl.m │ ├── gl_util.c │ ├── gl_util.h │ ├── glfb.c │ ├── glfb.h │ ├── glmenu.c │ ├── glmenu.m │ ├── glut_supp.h │ ├── glx_supp.c │ ├── glx_supp.h │ ├── glx_supp.m │ ├── make_debug.csh │ ├── nvstusb.c │ ├── nvstusb.h │ ├── stereo.c │ ├── stereo.h │ ├── stereo.m │ ├── stereo_test.scr │ ├── tests │ │ ├── dump_capabilities.scr │ │ ├── icos.mac │ │ ├── icos.scr │ │ ├── lines.scr │ │ ├── simple_draw.mac │ │ ├── simple_draw.scr │ │ ├── vblank.scr │ │ └── wait.scr │ ├── tile.c │ ├── tile.h │ ├── tilemenu.c │ ├── usb.h │ └── usb_libusb.c ├── parport │ ├── .gitignore │ ├── Makefile.am │ ├── parport.c │ ├── pp_menu.c │ └── root_cmds.csh ├── pic │ ├── Makefile.am │ ├── pic.c │ ├── pic.h │ ├── pic_tbl.c │ └── tests │ │ ├── led8.scr │ │ ├── meteor_record.scr │ │ ├── stream_2_channels.scr │ │ └── sync_test.scr ├── polhemus │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── acquire.c │ ├── polh_dev.c │ ├── polh_dev.h │ ├── polh_err.c │ ├── polh_func.c │ ├── polh_menu.c │ ├── polh_tbl.c │ └── root_cmds.csh ├── ports │ ├── .gitignore │ ├── Makefile.am │ ├── client.c │ ├── dataport.c │ ├── malloc_debug.csh │ ├── packets.c │ ├── portmenu.c │ ├── ports.c │ ├── ports.h │ ├── reachability.m │ ├── server.c │ ├── sockopts.c │ ├── tests │ │ ├── client.scr │ │ ├── test_params.scr │ │ └── test_server.scr │ └── xmitrecv.c ├── psych │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── asc_data.c │ ├── chngp_menu.c │ ├── class_menu.c │ ├── errbars.c │ ├── exp.c │ ├── exp_menu.c │ ├── lookmenu.c │ ├── lump.c │ ├── mlfit.c │ ├── stair.c │ ├── stc.h │ ├── stc_edit.c │ ├── stc_menu.c │ ├── stc_util.c │ ├── tests │ │ ├── clean.scr │ │ ├── fit.scr │ │ ├── foo_dribble1 │ │ ├── foo_summ1 │ │ ├── staircase_test.mac │ │ ├── test_fit.scr │ │ ├── test_run.scr │ │ ├── test_stair.scr │ │ └── xv.scr │ └── weibull.c ├── ptgrey │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── cam_ctl.c │ ├── pgr.c │ ├── pgr.h │ └── pgr_menu.c ├── rawvol │ ├── .gitignore │ ├── 99-rawvol.rules │ ├── Makefile.am │ ├── README │ ├── expand_macros.csh │ ├── getsize.c │ ├── llseek.c │ ├── rawvol.c │ ├── rawvol.h │ ├── rawvol_player.c │ ├── rvmenu.c │ ├── scripts │ │ ├── ardent.scr │ │ ├── craik.scr │ │ ├── euler.scr │ │ ├── patrolboat.scr │ │ └── poisson.scr │ ├── test_disk.csh │ └── tests │ │ ├── .gitignore │ │ ├── build_sio.csh │ │ ├── sio.c │ │ └── test_disks.csh ├── seq │ ├── .gitignore │ ├── Makefile.am │ ├── seqmenu.c │ ├── seqparse.y │ └── seqprint.c ├── sound │ ├── .gitignore │ ├── AudioController.h │ ├── AudioController.mm │ ├── BufferManager.cpp │ ├── BufferManager.h │ ├── CADebugMacros.cpp │ ├── CADebugMacros.h │ ├── CADebugPrintf.cpp │ ├── CADebugPrintf.h │ ├── CAStreamBasicDescription.cpp │ ├── CAStreamBasicDescription.h │ ├── CAXException.cpp │ ├── CAXException.h │ ├── DCRejectionFilter.cpp │ ├── DCRejectionFilter.h │ ├── Makefile.am │ ├── README │ ├── alert.c │ ├── alsa.c │ ├── alsa_input.c │ ├── ios_sound.mm │ ├── mac_sound.c │ ├── no_sound.c │ ├── oss_sound.c │ ├── pa_input.c │ ├── pa_play.c │ ├── pa_sound.c │ ├── sound.h │ ├── soundmenu.c │ └── tests │ │ ├── button-09.wav │ │ ├── chubb.scr │ │ ├── chubb2.scr │ │ └── play_test.scr ├── spinnaker │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── README.docker │ ├── build.csh │ ├── cam_expr.c │ ├── capt.scr │ ├── cut_it.sed │ ├── event.scr │ ├── example.c │ ├── find_funcs.csh │ ├── function_index.c │ ├── grab.scr │ ├── index_from_wrappers.csh │ ├── mon.scr │ ├── nodes.scr │ ├── rec.scr │ ├── spink.h │ ├── spink_acq.c │ ├── spink_cam_ctl.c │ ├── spink_enum.c │ ├── spink_funcs.c │ ├── spink_funcs.h │ ├── spink_menu.c │ ├── spink_node_map.c │ ├── spink_test.c │ ├── spink_util.c │ ├── spink_wrappers.c │ ├── stream_spink.c │ └── tests │ │ ├── blackfly.mac │ │ ├── capt.scr │ │ ├── event.scr │ │ ├── flea3.mac │ │ ├── grab.scr │ │ ├── maps.scr │ │ ├── mon.scr │ │ ├── node_settings.scr │ │ ├── nodes.scr │ │ ├── rec.scr │ │ ├── rec_bfs.scr │ │ ├── rec_flea3.scr │ │ ├── test_flea3.scr │ │ └── utils.mac ├── unix │ ├── .gitignore │ ├── Makefile.am │ ├── alarm.c │ ├── fork.c │ ├── mouse.c │ ├── my_stty.c │ ├── my_stty.h │ ├── pipe_menu.c │ ├── sched.c │ ├── serial.c │ ├── sigpush.c │ ├── stamps.c │ ├── stamps.h │ ├── tests │ │ └── thread.scr │ ├── threads.c │ ├── timex.c │ ├── unix_menu.c │ └── unix_prot.h ├── usb2000 │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── tty_funcs.c │ ├── usb2000.c │ ├── usb2000.h │ ├── usb_funcs.c │ └── usb_menu.c ├── v4l2 │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── ezstream.c │ ├── fastdown.c │ ├── flow.c │ ├── my_v4l2.h │ ├── my_video_dev.h │ ├── root_cmds.csh │ ├── tests │ │ ├── buf.scr │ │ ├── close.scr │ │ ├── field_mode.scr │ │ ├── flow_test.scr │ │ ├── mon1.scr │ │ ├── mon2.scr │ │ ├── mon_gray.scr │ │ ├── record_test1.scr │ │ ├── record_test2.scr │ │ ├── review.scr │ │ ├── review4.scr │ │ ├── view4.scr │ │ └── xscr │ ├── thread_util.h │ ├── vmenu.c │ ├── vmodule.c │ └── vmvi.h ├── vec_util │ ├── .gitignore │ ├── Makefile.am │ ├── SeedFill.c │ ├── conv3d.c │ ├── convolve.c │ ├── cumsum.c │ ├── dct8.c │ ├── dither.c │ ├── dpinvert.c │ ├── dptone.c │ ├── ggem.h │ ├── gj.c │ ├── graph_path.c │ ├── histo.c │ ├── hough.c │ ├── integral.c │ ├── krast.c │ ├── local_max.c │ ├── lutmap.c │ ├── median.c │ ├── morph.c │ ├── resample.c │ ├── sample.c │ ├── scale.c │ ├── scramble.c │ ├── size.c │ ├── tests │ │ └── enlarge.scr │ ├── thinz.c │ ├── vinterp.c │ ├── wrap.c │ └── yuv2rgb.c ├── veclib │ ├── .gitignore │ ├── Makefile.am │ ├── README │ ├── chn_menu.c │ ├── cksiz.c │ ├── cpu_flags.c │ ├── dispatch.c │ ├── expand_macros.csh │ ├── lin_util.c │ ├── make_debug.csh │ ├── my_cpuid.h │ ├── nvf.h │ ├── nvproto.h │ ├── obj_args.c │ ├── os_check.h │ ├── platform.c │ ├── platform.m │ ├── platform_menu.c │ ├── platform_menu.m │ ├── run_all_tests.csh │ ├── sampmenu.c │ ├── tests │ │ ├── bad_arg.scr │ │ ├── four_srcs.scr │ │ ├── mismatch.scr │ │ └── test_all_funcs.scr │ ├── vec_args.c │ ├── vec_call.c │ ├── vec_chain.h │ ├── vec_chn.c │ ├── vec_func.c │ ├── veclib_prot.h │ ├── vectbl.c │ ├── vl_menu.c │ └── warmenu.c ├── veclib2 │ ├── .gitignore │ ├── Makefile.am │ ├── _vl2_utils.c │ ├── cpu_call_defs.m4 │ ├── fast_sp.h │ ├── fftsupp.c │ ├── h1.c │ ├── h1b.c │ ├── h2.c │ ├── k1.cl.h │ ├── kern_src.c │ ├── linear.m4 │ ├── make_debug.csh │ ├── simd_funcs.c │ ├── simd_prot.h │ ├── slow_len.c │ ├── test.c │ ├── tests │ │ ├── bitmaps.scr │ │ ├── cpx_fft.scr │ │ ├── cvsadd.scr │ │ ├── fft.scr │ │ ├── fft2d.scr │ │ ├── fft_len.scr │ │ ├── inner.scr │ │ ├── lxform.scr │ │ ├── map.scr │ │ ├── mismatch.scr │ │ ├── real_fft.scr │ │ ├── simd_test.scr │ │ ├── spdp.scr │ │ ├── vdot.scr │ │ ├── vmagsq.scr │ │ └── vsm.scr │ ├── vl2.c │ ├── vl2_fft.c │ ├── vl2_fft_funcs.m4 │ ├── vl2_func_tbl.c │ ├── vl2_host_call_defs.m4 │ ├── vl2_host_funcs.c │ ├── vl2_host_funcs.m4 │ ├── vl2_host_untyped_call_defs.m4 │ ├── vl2_kernels.c │ ├── vl2_kernels.m4 │ ├── vl2_platform.c │ ├── vl2_typed_fft_funcs.m4 │ ├── vl2_typtbl.m4 │ ├── vl2_utils.c │ ├── vl2_utils.m4 │ ├── vl2_veclib.c │ └── vl2_veclib.m4 ├── vectree │ ├── .gitignore │ ├── Makefile.am │ ├── comptree.c │ ├── costtree.c │ ├── ctx_pair.c │ ├── dumptree.c │ ├── evaltree.c │ ├── expand_macros.csh │ ├── fusion.c │ ├── identifier.c │ ├── mseq.c │ ├── no_debug_malloc.csh │ ├── nodetbl.c │ ├── opt_tree.c │ ├── pointer.c │ ├── reference.c │ ├── resolve.c │ ├── string_ref.c │ ├── subrt.c │ ├── subrt.h │ ├── subrt_funcs.c │ ├── tests │ │ ├── condass.scr │ │ ├── condass_resolve.scr │ │ ├── fshape.scr │ │ ├── funcs.scr │ │ ├── fuse.scr │ │ ├── get_args.scr │ │ ├── local_obj.scr │ │ ├── ptr_decl.scr │ │ ├── ptr_eq.scr │ │ ├── rls_bool.scr │ │ ├── script_func.scr │ │ ├── subst_var.scr │ │ └── typecast.scr │ ├── undef_sym.c │ ├── vec_expr_node.c │ ├── vecnodes.c │ ├── vector_parser_data.c │ ├── vector_parser_data.h │ ├── vectree.y │ ├── vt_menu.c │ ├── vt_native.c │ ├── vt_native.h │ └── vt_private.h ├── view │ ├── .gitignore │ ├── Makefile.am │ ├── README.fb │ ├── alpha.c │ ├── bitmenu.c │ ├── bplanes.c │ ├── bullseye.cursor │ ├── busy.cursor │ ├── canmenu.c │ ├── canmenu.m │ ├── canvas.c │ ├── canvas.m │ ├── cdisp.c │ ├── check_dpy.h │ ├── cmfuncs.c │ ├── cmfuncs.m │ ├── cmmenu.c │ ├── cmmenu.m │ ├── curmenu.c │ ├── cursors.c │ ├── do_loop.c │ ├── dpymenu.c │ ├── drag.c │ ├── drag.m │ ├── dragmenu.c │ ├── dragmenu.m │ ├── drawmenu.c │ ├── drawmenu.m │ ├── expand_macros.sh │ ├── fbmenu.c │ ├── fbmenu.m │ ├── funcvec.c │ ├── gen_win.c │ ├── gen_win.m │ ├── genlock.c │ ├── get_viewer.h │ ├── glass.cursor │ ├── hglass.cursor │ ├── ios_supp.m │ ├── linear.c │ ├── linmenu.c │ ├── lut_cmds.h │ ├── lutmenu.c │ ├── machdep.c │ ├── my_fb.h │ ├── pf_viewer.c │ ├── pf_viewer.m │ ├── plotmenu.c │ ├── plotmenu.m │ ├── rdplot.c │ ├── rdplot.m │ ├── root_cmds │ ├── shm_viewer.c │ ├── tests │ │ ├── README │ │ ├── fb2.scr │ │ ├── fb_test.scr │ │ ├── font_test.scr │ │ ├── graph.scr │ │ ├── restore_cmap.scr │ │ └── rm_matrox.csh │ ├── view_prot.h │ ├── view_util.h │ ├── viewer.c │ ├── viewer.m │ ├── viewmenu.c │ ├── viewmenu.m │ ├── xplot.c │ └── xplot.m ├── visca │ ├── .gitignore │ ├── Makefile.am │ ├── cam_params.h │ ├── glue.c │ ├── root_cmds.csh │ ├── tests │ │ └── async_test.scr │ ├── visca.c │ ├── visca.h │ └── zoom_coeffs.asc ├── www │ ├── .gitignore │ ├── Makefile.am │ ├── curl.c │ ├── http_menu.c │ ├── quipHttpDelegate.h │ ├── quipHttpDelegate.m │ ├── server.c │ └── tests │ │ ├── download_test.scr │ │ └── exec_test.scr └── xsupp │ ├── .gitignore │ ├── Makefile.am │ ├── check_display.c │ ├── dpy.c │ ├── event.c │ ├── glxhelper.c │ ├── lut_xlib.c │ ├── vbl.c │ ├── vgat_ioctl.h │ ├── vgt.c │ ├── view_xlib.c │ ├── which_display.c │ ├── xsupp_prot.h │ └── xsync.c ├── macros ├── Makefile.am ├── analysis │ ├── Makefile.am │ ├── axes.mac │ ├── blink.mac │ ├── common.mac │ ├── eyeplot.mac │ ├── get_rec.mac │ ├── head_data.mac │ └── procrec.mac ├── cocoa │ └── menu_bar.mac ├── colors │ ├── Makefile.am │ ├── colortrans.mac │ └── matrices.mac ├── compute │ ├── 3d.mac │ ├── Makefile.am │ ├── beta.mac │ ├── beta.scr │ ├── centroid.mac │ ├── chains.mac │ ├── chisq.mac │ ├── chisq_setup.scr │ ├── components.mac │ ├── corr.mac │ ├── corr2.mac │ ├── curv.mac │ ├── fastcurv.mac │ ├── funcs.mac │ ├── gaussian.mac │ ├── gnoise.mac │ ├── grating.mac │ ├── histeq.mac │ ├── homog.mac │ ├── init_tcrit.scr │ ├── invert_erf.scr │ ├── kalman.mac │ ├── linear_algebra.mac │ ├── nfilter.mac │ ├── nsubsamp.mac │ ├── nxlate.mac │ ├── permute.mac │ ├── rdp.mac │ ├── rotimg.mac │ ├── sph.mac │ ├── tdist.mac │ ├── test_t.scr │ ├── threshold.mac │ ├── trough.mac │ └── xfcoords.mac ├── ctrack │ ├── Makefile.am │ ├── calib.mac │ ├── cmon.mac │ ├── deinterlace.mac │ ├── et_display.mac │ ├── et_gui.mac │ ├── et_plot.mac │ ├── find_face.mac │ ├── fstim.mac │ └── illum.scr ├── data │ ├── Makefile.am │ ├── ascii.mac │ ├── decl.mac │ ├── hips.mac │ ├── set_sizes.mac │ ├── size.scr │ └── string_edit.mac ├── em_exp │ ├── Makefile.am │ ├── collect.mac │ ├── gen_tune.scr │ ├── getprm.scr │ └── scalib.mac ├── eyemov │ ├── Makefile.am │ ├── calib.mac │ ├── correlogram.mac │ ├── corrplot.mac │ ├── expon.mac │ ├── hmc_record.mac │ ├── lpsigma.mac │ ├── newfit.mac │ ├── regression.mac │ └── uhco.mac ├── flycap │ ├── Makefile.am │ └── fly.mac ├── gsl │ ├── .gitignore │ ├── Makefile.am │ └── svd.mac ├── gui │ ├── Makefile.am │ └── ui.mac ├── ios │ ├── cache.mac │ ├── console.mac │ ├── server_config.mac │ ├── sw_update.mac │ ├── udids.scr │ └── utilz.mac ├── iquip │ ├── .gitignore │ ├── README │ ├── clean.mac │ ├── files.scr │ ├── iquip.mac │ ├── iquip.scr │ ├── iquip_admin.mac │ ├── script_client.scr │ ├── script_server.mac │ ├── script_server.scr │ ├── setup_iquip.mac │ ├── slave_driver.mac │ ├── slave_driver.scr │ └── ss_output ├── knox │ ├── Makefile.am │ ├── README │ ├── knox.mac │ ├── knox_common.mac │ ├── knox_connections.scr │ ├── knox_gui.mac │ ├── knox_gui_test.scr │ ├── knox_missing.mac │ └── knoxc.mac ├── led │ ├── Makefile.am │ └── illum.mac ├── movie │ ├── Makefile.am │ ├── flow.mac │ └── mmvi.mac ├── numrec │ ├── Makefile.am │ ├── bqi.mac │ ├── fit_conic.mac │ ├── fit_ellipse.mac │ ├── fit_polynomial.mac │ ├── homography.mac │ ├── la_util.mac │ ├── mapping.mac │ ├── norm_coords.mac │ ├── quartic.mac │ └── svd.mac ├── opengl │ ├── Makefile.am │ ├── icos.mac │ ├── poly.mac │ └── viewpoint.mac ├── ports │ ├── comm.mac │ └── test.scr ├── postproc │ ├── Makefile.am │ ├── datafile.mac │ ├── get_rec.mac │ ├── ilace.mac │ ├── procfile.mac │ ├── pupdat.mac │ └── vis.mac ├── sound │ └── sound.mac ├── startup │ ├── .gitignore │ ├── Makefile.am │ ├── Xgraph.scr │ ├── add_file.csh │ ├── add_files.csh │ ├── airway.scr │ ├── build_startup_file.csh │ ├── coq.scr │ ├── ctrack.scr │ ├── encrypt_file.scr │ ├── evid.scr │ ├── flyd.scr │ ├── genclient.scr │ ├── gencomp.scr │ ├── gendata.scr │ ├── generic.scr │ ├── genplot.scr │ ├── genview.scr │ ├── gpsee.scr │ ├── jpinfo.scr │ ├── jpsee.scr │ ├── jpshow.scr │ ├── jpshr.scr │ ├── jpz.scr │ ├── kdrw.scr │ ├── knoxd.scr │ ├── mac_build_startup.csh │ ├── mon_cam.scr │ ├── mon_cam_meteor.scr │ ├── mon_ptz.scr │ ├── qsh.scr │ ├── quip.scr │ ├── quip_no_startup.scr │ ├── show_image_from_browser.scr │ ├── woq.scr │ └── woq.txt ├── system │ ├── Makefile.am │ ├── builtin.mac │ ├── daemons.mac │ ├── delay.mac │ ├── files.mac │ ├── ios_helper.mac │ ├── mark_time.mac │ ├── mouse.mac │ ├── msgs.mac │ ├── portids.scr │ ├── ports.mac │ ├── server_utilz.mac │ ├── setup_env.scr │ ├── unix_helper.mac │ └── vars.mac ├── v4l2 │ ├── Makefile.am │ ├── mon_ptz.mac │ ├── v4l2.mac │ └── v4l2_gui.mac ├── view │ ├── Makefile.am │ ├── adjuster.mac │ ├── anstis_demo.mac │ ├── common.mac │ ├── def8.scr │ ├── def_viewers.scr │ ├── dither.mac │ ├── dpysize.scr │ ├── fb.mac │ ├── fb0_defns.mac │ ├── fb1_defns.mac │ ├── fbc.mac │ ├── gamma_demo.mac │ ├── ios_plot.mac │ ├── labels.mac │ ├── luts.mac │ ├── opt_ht.mac │ ├── oscope.mac │ ├── plot_gui.mac │ ├── plot_utils.mac │ ├── plotsupp.mac │ ├── range.mac │ ├── scopit.mac │ ├── unix_plot.mac │ ├── vcr.mac │ ├── view.mac │ ├── waitbar.mac │ └── xgraph.mac └── visca │ ├── Makefile.am │ ├── evi_params.scr │ ├── evic.mac │ ├── ptz_gui.mac │ ├── visca.mac │ └── visca_common.mac ├── make_macro_index.csh ├── src ├── .gitignore ├── Makefile.am ├── README ├── pass_thru.c ├── quip_main.c ├── quip_main.m └── quip_test.sh ├── xcode ├── iquip │ ├── .gitignore │ ├── AFalert-Info.plist │ ├── CSF copy-Info.plist │ ├── CSF-Info.plist │ ├── Default-568h@2x.png │ ├── Default.png │ ├── Default@2x.png │ ├── iQuIP │ │ ├── en.lproj │ │ │ └── InfoPlist.strings │ │ ├── iQuIP-Info.plist │ │ └── iQuIP-Prefix.pch │ ├── images │ │ ├── Icon-72.png │ │ ├── Icon-72@2x.png │ │ ├── Icon-Small-50.png │ │ ├── Icon-Small.png │ │ ├── Icon-Small@2x.png │ │ ├── Icon.png │ │ └── Icon@2x.png │ └── iquip.xcodeproj │ │ ├── project.pbxproj │ │ ├── project.xcworkspace │ │ ├── .gitignore │ │ └── contents.xcworkspacedata │ │ └── xcuserdata │ │ └── jmulliga.xcuserdatad │ │ └── xcschemes │ │ ├── AFalert.xcscheme │ │ ├── CSF.xcscheme │ │ ├── EZJet.xcscheme │ │ ├── Symmetry.xcscheme │ │ ├── iQuIP.xcscheme │ │ └── xcschememanagement.plist ├── macq │ ├── .gitignore │ ├── MacQuIP │ │ ├── MacQuIP-Info.plist │ │ ├── MacQuIP-Prefix.pch │ │ ├── en.lproj │ │ │ ├── Credits.rtf │ │ │ ├── InfoPlist.strings │ │ │ └── MainMenu.xib │ │ ├── main.m │ │ ├── mqAppDelegate.h │ │ └── mqAppDelegate.m │ └── macq.xcodeproj │ │ ├── project.pbxproj │ │ ├── project.xcworkspace │ │ ├── .gitignore │ │ ├── contents.xcworkspacedata │ │ └── xcshareddata │ │ │ └── MacQuIP.xccheckout │ │ └── xcuserdata │ │ ├── jmulliga.xcuserdatad │ │ └── xcschemes │ │ │ ├── MacQuIP.xcscheme │ │ │ ├── qsh.xcscheme │ │ │ └── xcschememanagement.plist │ │ └── jmulligan.xcuserdatad │ │ └── xcschemes │ │ ├── MacQuIP.xcscheme │ │ └── xcschememanagement.plist └── prepare_files.sh └── yum_install.csh /.gitignore: -------------------------------------------------------------------------------- 1 | Makefile.in 2 | aclocal.m4 3 | autom4te.cache 4 | config.h.in* 5 | configure 6 | Makefile 7 | config.h 8 | config.log 9 | config.status 10 | stamp-h1 11 | configure.scan 12 | autoscan.log 13 | confout 14 | option_list 15 | quip-1.0 16 | dcout 17 | dcerrs 18 | conferrs 19 | scanout 20 | output 21 | *.o 22 | *.a 23 | errors 24 | a.out 25 | .deps 26 | .DS_Store 27 | ylwrap 28 | missing 29 | install-sh 30 | doc/mdate-sh 31 | depcomp 32 | config.sub 33 | config.guess 34 | compile 35 | INSTALL 36 | test-driver 37 | 38 | -------------------------------------------------------------------------------- /AUTHORS: -------------------------------------------------------------------------------- 1 | 2 | Jeff Mulligan jeffrey.b.mulligan@nasa.gov 3 | 4 | -------------------------------------------------------------------------------- /ChangeLog: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/ChangeLog -------------------------------------------------------------------------------- /LICENSE.PDF: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/LICENSE.PDF -------------------------------------------------------------------------------- /Makefile.am: -------------------------------------------------------------------------------- 1 | SUBDIRS = include libsrc src libs macros doc docs 2 | 3 | -------------------------------------------------------------------------------- /NEWS: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/NEWS -------------------------------------------------------------------------------- /README: -------------------------------------------------------------------------------- 1 | 2 | QuIP - Quick Image Processing 3 | 4 | 2/9/2012 converting to git repositories 5 | 3/25/2016 installed on guthub 6 | 7 | How to compile without optimization? 8 | 9 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # QuIP -------------------------------------------------------------------------------- /doc/.gitignore: -------------------------------------------------------------------------------- 1 | quip.html 2 | quip.info 3 | stamp-vti 4 | version.texi 5 | quip.log 6 | quip.pdf 7 | quip.toc 8 | quip.aux 9 | quip.cp 10 | quip.cps 11 | quip.fn 12 | quip.ky 13 | quip.pg 14 | quip.tp 15 | quip.vr 16 | missfont.log 17 | texinfo.tex 18 | quip 19 | -------------------------------------------------------------------------------- /docs/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | # There is nothing to make here, but we put README in 3 | # the tarball so that this directory is sure to be there, 4 | # because it is where the pdf manual is put... 5 | # 6 | MAINTAINERCLEANFILES = Makefile.in 7 | TARGETS = 8 | 9 | # what is the correct way to list an included file 10 | # that should be part of the distribution? 11 | 12 | noinst_HEADERS = README 13 | 14 | -------------------------------------------------------------------------------- /docs/README: -------------------------------------------------------------------------------- 1 | The docs subdirectory support github pages. 2 | 3 | -------------------------------------------------------------------------------- /docs/quip-1.0.02.tar.gz: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/docs/quip-1.0.02.tar.gz -------------------------------------------------------------------------------- /fast_config.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | # "fast" refers to script interpretation... 4 | # because we don't have the overhead to support multi-threading 5 | 6 | #./configure --enable-sse-extensions 7 | ./configure 8 | 9 | -------------------------------------------------------------------------------- /homebrew_pkgs: -------------------------------------------------------------------------------- 1 | mactex * 2 | gnupg 3 | cmake 4 | cvs 5 | 6 | clfft 7 | fann 8 | ffmpeg 9 | gsl 10 | jpeg 11 | libdc1394 12 | libgcrypt 13 | libgpg-error 14 | libpng 15 | libtiff 16 | opencv 17 | openmotif 18 | portaudio 19 | 20 | -------------------------------------------------------------------------------- /include/.gitignore: -------------------------------------------------------------------------------- 1 | quip_version.h 2 | current_quip_version.h 3 | Makefile 4 | Makefile.in 5 | junk 6 | 7 | -------------------------------------------------------------------------------- /include/Xhs.h: -------------------------------------------------------------------------------- 1 | 2 | /* this should work if /usr/include is set up right... */ 3 | /* 4 | #include 5 | #include 6 | #include 7 | */ 8 | 9 | #ifdef HAVE_X11_XLIB_H 10 | #include "X11/Xlib.h" 11 | #endif 12 | 13 | #ifdef HAVE_X11_XUTIL_H 14 | #include "X11/Xutil.h" 15 | #endif 16 | 17 | #ifdef HAVE_X11_XMD_H 18 | #include "X11/Xmd.h" 19 | #endif 20 | 21 | 22 | -------------------------------------------------------------------------------- /include/camera_api.h: -------------------------------------------------------------------------------- 1 | 2 | extern COMMAND_FUNC( do_cam_menu ); 3 | 4 | -------------------------------------------------------------------------------- /include/command.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef _COMMAND_H_ 3 | #define _COMMAND_H_ 4 | 5 | #include "quip_fwd.h" 6 | 7 | struct command { 8 | const char * cmd_selector; 9 | const char * cmd_help; 10 | int cmd_serial; 11 | void (*cmd_action)(SINGLE_QSP_ARG_DECL); 12 | } ; 13 | 14 | #define CMD_SELECTOR(cp) cp->cmd_selector 15 | 16 | extern void list_command(QSP_ARG_DECL Command *cp); 17 | 18 | #endif /* ! _COMMAND_H_ */ 19 | 20 | -------------------------------------------------------------------------------- /include/ctx_pair.h: -------------------------------------------------------------------------------- 1 | #include "item_type.h" 2 | 3 | typedef struct context_pair { 4 | Item_Context * id_icp; 5 | Item_Context * dobj_icp; 6 | } Context_Pair; 7 | 8 | 9 | /* ContextPair */ 10 | #define CP_ID_CTX(cpp) (cpp)->id_icp 11 | #define SET_CP_ID_CTX(cpp,icp) (cpp)->id_icp = icp 12 | #define CP_OBJ_CTX(cpp) (cpp)->dobj_icp 13 | #define SET_CP_OBJ_CTX(cpp,icp) (cpp)->dobj_icp = icp 14 | 15 | #define INIT_CPAIR_PTR(cpp) cpp=((Context_Pair *)getbuf(sizeof(Context_Pair))); 16 | 17 | -------------------------------------------------------------------------------- /include/cuda_api.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | #ifdef __cplusplus 4 | extern "C" { 5 | #endif 6 | 7 | extern COMMAND_FUNC( do_cuda_menu ); 8 | extern void gpu_obj_dnload(QSP_ARG_DECL Data_Obj *host_dp, Data_Obj *gpu_dp); 9 | extern void gpu_obj_upload(QSP_ARG_DECL Data_Obj *gpu_dp, Data_Obj *host_dp); 10 | 11 | extern void gpu_mem_upload(QSP_ARG_DECL void *dst, void *src, size_t siz); 12 | extern void gpu_mem_dnload(QSP_ARG_DECL void *dst, void *src, size_t siz); 13 | 14 | 15 | #ifdef __cplusplus 16 | } 17 | #endif 18 | 19 | -------------------------------------------------------------------------------- /include/cuda_helper.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef _CUDA_HELPER_H_ 3 | #define _CUDA_HELPER_H_ 4 | 5 | #ifdef __cplusplus 6 | extern "C" { 7 | #endif 8 | 9 | #include "data_obj.h" 10 | 11 | extern void xfer_cuda_flag(Data_Obj *dpto, Data_Obj *dpfr, uint32_t flagbit); 12 | 13 | #ifdef __cplusplus 14 | } 15 | #endif 16 | 17 | #endif /* _CUDA_HELPER_H_ */ 18 | 19 | -------------------------------------------------------------------------------- /include/dct8.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | #define dct_type double 4 | #define DCT_SIZE 8 5 | 6 | #define PI (3.14159267) 7 | 8 | #define FWD_DCT 1 9 | #define INV_DCT 2 10 | #define OLD_DCT 3 11 | 12 | -------------------------------------------------------------------------------- /include/dobj_basic.h: -------------------------------------------------------------------------------- 1 | #ifndef _DOBJ_BASIC_H_ 2 | #define _DOBJ_BASIC_H_ 3 | 4 | struct data_obj; 5 | typedef struct data_obj Data_Obj; 6 | 7 | #endif /* ! _DOBJ_BASIC_H_ */ 8 | 9 | -------------------------------------------------------------------------------- /include/function_basic.h: -------------------------------------------------------------------------------- 1 | #ifndef _FUNCTION_BASIC_H_ 2 | #define _FUNCTION_BASIC_H_ 3 | 4 | struct function; 5 | typedef struct function Function; 6 | 7 | #endif /* ! _FUNCTION_BASIC_H_ */ 8 | 9 | -------------------------------------------------------------------------------- /include/gl_viewer.h: -------------------------------------------------------------------------------- 1 | #ifndef _GL_VIEWER_H_ 2 | #define _GL_VIEWER_H_ 3 | 4 | #include "viewer.h" 5 | 6 | #ifdef __cplusplus 7 | extern "C" { 8 | #endif 9 | 10 | 11 | /* glx_supp.c */ 12 | extern void _swap_buffers(SINGLE_QSP_ARG_DECL); 13 | #define swap_buffers() _swap_buffers(SINGLE_QSP_ARG) 14 | 15 | extern void select_gl_viewer(QSP_ARG_DECL Viewer *vp); 16 | 17 | 18 | #ifdef __cplusplus 19 | } 20 | #endif 21 | 22 | #endif /* ! _GL_VIEWER_H_ */ 23 | 24 | -------------------------------------------------------------------------------- /include/hips/.gitignore: -------------------------------------------------------------------------------- 1 | Makefile 2 | Makefile.in 3 | 4 | -------------------------------------------------------------------------------- /include/hips/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | noinst_HEADERS = \ 3 | \ 4 | hip1hdr.h \ 5 | hip2hdr.h \ 6 | hipbasic.h \ 7 | hiperror.h \ 8 | hipl_fmt.h \ 9 | hips1.h \ 10 | hips2.h \ 11 | hips_pf.h \ 12 | perr.h \ 13 | rdoldhdr.h \ 14 | readhdr.h \ 15 | xparam.h 16 | -------------------------------------------------------------------------------- /include/hips/perr.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef NO_PERR 3 | #define NO_PERR 4 | 5 | #include "data_obj.h" 6 | 7 | extern int perr(int first, ...); 8 | 9 | #endif /* NO_PERR */ 10 | 11 | -------------------------------------------------------------------------------- /include/hips/rdoldhdr.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef NO_RDOLDHDR 3 | #define NO_RDOLDHDR 4 | 5 | #include 6 | #include "hip2hdr.h" 7 | 8 | extern int fread_oldhdr(FILE *fp,Hips2_Header *hd,char *firsts,const char *fname); 9 | extern Bool swallownl(FILE *); 10 | extern Bool hfgets(char *s,int n,FILE *fp); 11 | 12 | #endif /* NO_RDOLDHDR */ 13 | 14 | -------------------------------------------------------------------------------- /include/hips/readhdr.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef NO_READHDR 3 | #define NO_READHDR 4 | 5 | #include 6 | #include "hipbasic.h" 7 | #include "img_file.h" 8 | #include "hip2hdr.h" 9 | 10 | extern int rd_hips2_hdr(FILE *fp,Hips2_Header *hd,const Filename fname); 11 | extern void rls_hips2_hd(Hips2_Header *hd); 12 | extern void null_hips2_hd(Hips2_Header *hd); 13 | 14 | #endif /* NO_READHDR */ 15 | -------------------------------------------------------------------------------- /include/img_file/.gitignore: -------------------------------------------------------------------------------- 1 | Makefile 2 | Makefile.in 3 | 4 | -------------------------------------------------------------------------------- /include/img_file/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | noinst_HEADERS = \ 3 | \ 4 | avcodec_hdr.h \ 5 | bdf_hdr.h \ 6 | bmp_hdr.h \ 7 | fiotiff.h \ 8 | fio_png.h \ 9 | get_hdr.h \ 10 | glimage.h \ 11 | img_file_hdr.h \ 12 | jbm_ppm.h \ 13 | jpeg_hdr.h \ 14 | lshdr.h \ 15 | matio_api.h \ 16 | matio_hdr.h \ 17 | my_avi.h \ 18 | png_hdr.h \ 19 | ppmhdr.h \ 20 | rasterf.h \ 21 | raw.h \ 22 | rv.h \ 23 | sir_disk.h \ 24 | sunras.h \ 25 | tiff_hdr.h \ 26 | vistahdr.h \ 27 | wav.h \ 28 | wav_hdr.h 29 | -------------------------------------------------------------------------------- /include/img_file/bmp_hdr.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef BMP_HEADER 3 | 4 | typedef struct bmp_header { 5 | int bmp_compression; 6 | int bmp_bytes_read; 7 | int bmp_byte_offset; 8 | int bmp_bit_count; 9 | int bmp_rows; 10 | int bmp_cols; 11 | u_char * bmp_palette_p; 12 | int bmp_info_size; 13 | } BMP_Header; 14 | 15 | #define NO_BMP_HEADER ((BMP_Header *)NULL) 16 | 17 | #endif /* BMP_HEADER */ 18 | 19 | -------------------------------------------------------------------------------- /include/img_file/get_hdr.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef NO_GET_HDR 3 | 4 | #include "data_obj.h" 5 | #include "hipl_fmt.h" 6 | 7 | extern int fh_err(Header *hd,const char *s); 8 | extern int read_chr(int fd); 9 | extern char *gtline(int fd); 10 | extern int dfscanf(int fd,Header *hd); 11 | extern char *catlines(const char *s1,const char *s2); 12 | extern int ftch_header(int fd,Header *hd); 13 | 14 | #define NO_GET_HDR 15 | #endif /* NO_GET_HDR */ 16 | 17 | -------------------------------------------------------------------------------- /include/img_file/jpeg_hdr.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef _JPEG_HDR_H_ 3 | #define _JPEG_HDR_H_ 4 | 5 | #ifdef INC_VERSION 6 | char VersionId_inc_jpeg_hdr[] = QUIP_VERSION_STRING; 7 | #endif /* INC_VERSION */ 8 | 9 | #ifdef HAVE_INTTYPES_H 10 | #include 11 | #else 12 | #error "inttypes.h not present, need to define print/scan formats for seek_tbl_type!?" 13 | #endif 14 | 15 | //typedef uint64_t seek_tbl_type; 16 | #define seek_tbl_type uint64_t 17 | #define SEEK_TBL_PRI_FMT PRId64 18 | #define SEEK_TBL_SCN_FMT SCNd64 19 | 20 | struct jpeg_hdr; 21 | typedef struct jpeg_hdr Jpeg_Hdr; 22 | 23 | 24 | #endif /* _JPEG_HDR_H_ */ 25 | 26 | -------------------------------------------------------------------------------- /include/img_file/matio_api.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef MATIO_API_H 3 | #define MATIO_API_H 4 | 5 | #ifdef HAVE_MATIO 6 | 7 | #ifdef FOOBAR 8 | #include 9 | #endif // FOOBAR 10 | 11 | #include "img_file.h" 12 | 13 | //FIO_INTERFACE_PROTOTYPES( mat , matvar_t ) 14 | FIO_INTERFACE_PROTOTYPES( mat , Matio_Hdr ) 15 | 16 | #define set_mat_hdr(ifp) _set_mat_hdr(QSP_ARG ifp) 17 | 18 | #endif /* HAVE_MATIO */ 19 | #endif /* MATIO_API_H */ 20 | 21 | -------------------------------------------------------------------------------- /include/img_file/matio_hdr.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef MATIO_HDR_H 3 | #define MATIO_HDR_H 4 | 5 | #ifdef HAVE_MATIO 6 | 7 | #ifdef FOOBAR 8 | #include 9 | #endif // FOOBAR 10 | 11 | struct matio_hdr; 12 | typedef struct matio_hdr Matio_Hdr; 13 | 14 | #endif /* HAVE_MATIO */ 15 | #endif /* MATIO_HDR_H */ 16 | 17 | -------------------------------------------------------------------------------- /include/img_file/my_avi.h: -------------------------------------------------------------------------------- 1 | 2 | #include "img_file.h" 3 | 4 | /* prototypes */ 5 | 6 | FIO_INTERFACE_PROTOTYPES( avi , AVCodec_Hdr ) 7 | 8 | #define avi_conv(a,b) _avi_conv(QSP_ARG a,b) 9 | #define avi_unconv(a,b) _avi_unconv(QSP_ARG a,b) 10 | #define avi_to_dp(a,b) _avi_to_dp(QSP_ARG a,b) 11 | #define dp_to_avi(a,b) _dp_to_avi(QSP_ARG a,b) 12 | 13 | -------------------------------------------------------------------------------- /include/img_file/ppmhdr.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | #ifndef PPM_HDR 4 | 5 | #ifdef INC_VERSION 6 | char VersionId_inc_ppmhdr[] = QUIP_VERSION_STRING; 7 | #endif /* INC_VERSION */ 8 | 9 | typedef struct ppm_hdr { 10 | int format; /* 5 = 1 component, 6 = 3 components */ 11 | int rows,cols; 12 | int somex; /* 255??? what is this??? */ 13 | void *img_data; 14 | } Ppm_Header; 15 | 16 | #define PPM_HDR 17 | 18 | typedef struct dis_hdr { 19 | int format; 20 | int rows,cols; 21 | int frames; 22 | int somex; 23 | void *img_data; 24 | } Dis_Header; 25 | 26 | #endif /* ! PPM_HDR */ 27 | 28 | -------------------------------------------------------------------------------- /include/img_file/rv.h: -------------------------------------------------------------------------------- 1 | 2 | #ifdef INC_VERSION 3 | char VersionId_inc_rv[] = QUIP_VERSION_STRING; 4 | #endif /* INC_VERSION */ 5 | 6 | #include "img_file.h" 7 | 8 | FIO_INTERFACE_PROTOTYPES( rvfio, RV_Inode ) 9 | 10 | #define set_rvfio_hdr(ifp) _set_rvfio_hdr(QSP_ARG ifp) 11 | 12 | -------------------------------------------------------------------------------- /include/img_file/sunras.h: -------------------------------------------------------------------------------- 1 | 2 | #ifdef HAVE_RASTERFILE_H 3 | #include 4 | #else 5 | #include "rasterf.h" 6 | #endif 7 | 8 | #include "data_obj.h" 9 | #include "img_file.h" 10 | 11 | extern void sunras_close(QSP_ARG_DECL Image_File *ifp); 12 | extern void sunras_rd(QSP_ARG_DECL Data_Obj *dp,Image_File *ifp, 13 | index_t x_offset, index_t y_offset, index_t t_offset); 14 | extern Image_File *sunras_open(QSP_ARG_DECL const char *name,int rw); 15 | extern int sunras_unconv(void *hd_pp,Data_Obj *dp); 16 | extern int sunras_conv(Data_Obj *dp,void *hd_pp); 17 | 18 | -------------------------------------------------------------------------------- /include/img_file/tiff_hdr.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef _TIFF_HDR_H_ 3 | #define _TIFF_HDR_H_ 4 | 5 | struct tiff_hdr; 6 | typedef struct tiff_hdr Tiff_Hdr; 7 | 8 | #endif /* _TIFF_HDR_H_ */ 9 | 10 | -------------------------------------------------------------------------------- /include/img_file/wav.h: -------------------------------------------------------------------------------- 1 | 2 | /* we need something here... */ 3 | 4 | #ifndef NO_WAV 5 | #define NO_WAV 6 | 7 | #include 8 | #include "wav_hdr.h" 9 | #include "data_obj.h" 10 | #include "img_file.h" 11 | 12 | /* wav.c */ 13 | FIO_INTERFACE_PROTOTYPES( wav, Wav_Header ) 14 | 15 | #define set_wav_hdr(ifp) _set_wav_hdr(QSP_ARG ifp) 16 | 17 | #define wav_to_dp(a,b) _wav_to_dp(QSP_ARG a,b) 18 | #define dp_to_wav(a,b) _dp_to_wav(QSP_ARG a,b) 19 | 20 | /* writehdr.c */ 21 | extern int wt_wav_hdr(FILE *fp,Wav_Header *hd,Filename fname); 22 | 23 | #endif /* NO_WAV */ 24 | 25 | -------------------------------------------------------------------------------- /include/ios_prot.h: -------------------------------------------------------------------------------- 1 | #ifndef _IOS_PROT_H_ 2 | #define _IOS_PROT_H_ 3 | 4 | extern COMMAND_FUNC( do_accel_menu ); 5 | extern COMMAND_FUNC( do_cam_menu ); 6 | extern COMMAND_FUNC( do_test_table ); 7 | extern COMMAND_FUNC( do_check_device ); 8 | 9 | #endif /* ! _IOS_PROT_H_ */ 10 | 11 | 12 | -------------------------------------------------------------------------------- /include/ios_stack.h: -------------------------------------------------------------------------------- 1 | 2 | #include "ios_list.h" 3 | 4 | @interface IOS_Stack: NSObject 5 | 6 | @property (retain) IOS_List *list; 7 | 8 | -(void) push : (id) obj; 9 | -(id) pop ; 10 | -(id) bottom; 11 | -(id) top ; 12 | -(int) depth; 13 | 14 | @end 15 | 16 | -------------------------------------------------------------------------------- /include/llen.h: -------------------------------------------------------------------------------- 1 | #ifndef _LLEN_H_ 2 | #define _LLEN_H_ 3 | 4 | #define LLEN 512 5 | 6 | #endif // ! _LLEN_H_ 7 | 8 | -------------------------------------------------------------------------------- /include/my_vl2.h: -------------------------------------------------------------------------------- 1 | 2 | //#ifndef BUILD_FOR_IOS 3 | // 4 | //// Why is this stuff here? 5 | //#ifdef __APPLE__ //Mac OSX has a different name for the header file 6 | //#include 7 | //#else 8 | //#include 9 | //#endif 10 | // 11 | //#endif // BUILD_FOR_IOS 12 | 13 | 14 | #include "item_type.h" 15 | #include "veclib/vec_func.h" 16 | #include "veclib/obj_args.h" 17 | 18 | ////#define BUILD_FOR_OPENCL 19 | //#undef BUILD_FOR_OPENCL 20 | 21 | #define index_type int32_t // for vmaxi etc 22 | #define INDEX_PREC PREC_DI // for vmaxi etc 23 | 24 | -------------------------------------------------------------------------------- /include/ocl_api.h: -------------------------------------------------------------------------------- 1 | 2 | extern COMMAND_FUNC( do_ocl_menu ); 3 | 4 | // This doesn't belong here, but for now it's simpler to do so 5 | // rather than create a new file for one line... 6 | extern COMMAND_FUNC( do_vl2_menu ); 7 | 8 | -------------------------------------------------------------------------------- /include/off64_t.h: -------------------------------------------------------------------------------- 1 | #ifndef _OFF64_T_H_ 2 | #define _OFF64_T_H_ 3 | 4 | #include "typedefs.h" 5 | 6 | #ifndef HAVE_OFF64_T 7 | #ifndef off64_t 8 | 9 | #if __WORDSIZE == 8 10 | 11 | #define off64_t off_t 12 | 13 | #else /* __WORDSIZE != 8 */ 14 | 15 | #define off64_t uint64_t 16 | 17 | #endif /* __WORDSIZE != 8 */ 18 | 19 | #endif /* ! off64_t */ 20 | #endif /* ! HAVE_OFF64_t */ 21 | 22 | #endif /* _OFF64_T_H_ */ 23 | -------------------------------------------------------------------------------- /include/opengl_utils.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef HAVE_OPENGL_UTILS_H 3 | #define HAVE_OPENGL_UTILS_H 4 | 5 | #include "data_obj.h" 6 | 7 | #ifdef HAVE_OPENGL 8 | extern int _gl_pixel_type(QSP_ARG_DECL Data_Obj *dp); 9 | #define gl_pixel_type(dp) _gl_pixel_type(QSP_ARG dp) 10 | 11 | extern void glew_check(SINGLE_QSP_ARG_DECL); 12 | #endif // HAVE_OPENGL 13 | 14 | #endif // ! HAVE_OPENGL_UTILS_H 15 | 16 | -------------------------------------------------------------------------------- /include/pipe_support.h: -------------------------------------------------------------------------------- 1 | #ifndef _PIPE_SUPPORT_H_ 2 | #define _PIPE_SUPPORT_H_ 3 | #define PIPE_PREFIX_STRING "Pipe" 4 | extern void creat_pipe(QSP_ARG_DECL const char *name, const char* command, const char* rw); 5 | extern void close_pipe(QSP_ARG_DECL Pipe *pp); 6 | extern void sendto_pipe(QSP_ARG_DECL Pipe *pp,const char* text); 7 | extern void readfr_pipe(QSP_ARG_DECL Pipe *pp,const char* varname); 8 | #endif // ! _PIPE_SUPPORT_H_ 9 | 10 | -------------------------------------------------------------------------------- /include/polh_menu.h: -------------------------------------------------------------------------------- 1 | 2 | COMMAND_FUNC( do_polh ); 3 | -------------------------------------------------------------------------------- /include/query_api.h: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_config.h" 3 | 4 | 5 | -------------------------------------------------------------------------------- /include/quipAlarm.h: -------------------------------------------------------------------------------- 1 | 2 | @interface quipAlarm : NSObject 3 | 4 | @property dispatch_source_t timer; 5 | @property const char * script; 6 | @property BOOL ticking;; 7 | 8 | - (id)initWithTimeout:(NSTimeInterval)timeout; 9 | -(void) setDelay: (float) delay; 10 | 11 | @end 12 | 13 | -------------------------------------------------------------------------------- /include/quipController.h: -------------------------------------------------------------------------------- 1 | #ifdef BUILD_FOR_IOS 2 | #include "quipViewController.h" 3 | #endif // BUILD_FOR_IOS 4 | 5 | #ifdef BUILD_FOR_MACOS 6 | #include "quipWindowController.h" 7 | #endif // BUILD_FOR_MACOS 8 | 9 | -------------------------------------------------------------------------------- /include/rt_sched.h: -------------------------------------------------------------------------------- 1 | 2 | /* stuff from sched.c in jbm lib */ 3 | 4 | #include "query_stack.h" 5 | 6 | #ifdef ALLOW_RT_SCHED 7 | extern int try_rt_sched; 8 | extern int rt_is_on; 9 | #endif 10 | 11 | extern void rt_sched(QSP_ARG_DECL int flag); 12 | 13 | -------------------------------------------------------------------------------- /include/sigpush.h: -------------------------------------------------------------------------------- 1 | #ifndef _SIGPUSH_H_ 2 | #define _SIGPUSH_H_ 3 | 4 | #include "quip_prot.h" 5 | 6 | void inhibit_sigs(void); 7 | 8 | void _sigpush(QSP_ARG_DECL int sig,void (*action)(int)); 9 | void _sigpop(QSP_ARG_DECL int sig); 10 | 11 | #define sigpush(sig,action) _sigpush(QSP_ARG sig,action) 12 | #define sigpop(sig) _sigpop(QSP_ARG sig) 13 | 14 | #endif // _SIGPUSH_H_ 15 | 16 | -------------------------------------------------------------------------------- /include/tensor.h: -------------------------------------------------------------------------------- 1 | #ifndef _TENSOR_H_ 2 | #define _TENSOR_H_ 3 | 4 | #include "data_obj.h" 5 | 6 | struct tensor { 7 | Item tns_item; 8 | int tns_n_dimensions; 9 | dimension_t * tns_dim_tbl; 10 | increment_t * tns_inc_tbl; 11 | struct data_info tns_info; 12 | }; 13 | 14 | 15 | #endif // ! _TENSOR_H_ 16 | 17 | -------------------------------------------------------------------------------- /include/undef_sym.h: -------------------------------------------------------------------------------- 1 | 2 | #include "item_type.h" 3 | 4 | typedef struct undef_sym { 5 | Item us_item; 6 | } Undef_Sym; 7 | 8 | 9 | ITEM_NEW_PROT(Undef_Sym,undef) 10 | ITEM_INIT_PROT(Undef_Sym,undef) 11 | ITEM_CHECK_PROT(Undef_Sym,undef) 12 | 13 | #define new_undef(s) _new_undef(QSP_ARG s) 14 | #define undef_of(s) _undef_of(QSP_ARG s) 15 | 16 | -------------------------------------------------------------------------------- /include/veclib/.gitignore: -------------------------------------------------------------------------------- 1 | Makefile 2 | Makefile.in 3 | old*.h 4 | junk 5 | ???_veclib_prot.h 6 | 7 | -------------------------------------------------------------------------------- /include/veclib/README: -------------------------------------------------------------------------------- 1 | 2 | 04-06-2017 3 | Converted the macro mess from c-preprocessor to m4 4 | to make it easier to debug the C code. 5 | 6 | -------------------------------------------------------------------------------- /include/veclib/all_int_kernels.m4: -------------------------------------------------------------------------------- 1 | 2 | my_include(`veclib/fast_defs.m4') 3 | my_include(`veclib/gen_int_calls.m4') 4 | 5 | ifdef(`BUILD_FOR_CUDA',` 6 | my_include(`veclib/flen_defs.m4') 7 | my_include(`veclib/gen_int_calls.m4') 8 | ',`') 9 | 10 | my_include(`veclib/eqsp_defs.m4') 11 | my_include(`veclib/gen_int_calls.m4') 12 | 13 | my_include(`veclib/slow_defs.m4') 14 | my_include(`veclib/gen_int_calls.m4') 15 | 16 | -------------------------------------------------------------------------------- /include/veclib/all_mixed_float_kernels.m4: -------------------------------------------------------------------------------- 1 | // all_mixed_float_kernels.m4 BEGIN - can be same precision or mixed precision 2 | 3 | my_include(`veclib/fast_defs.m4') 4 | my_include(`veclib/gen_mixed_float_calls.m4') 5 | 6 | ifdef(`BUILD_FOR_CUDA',` 7 | my_include(`veclib/flen_defs.m4') 8 | my_include(`veclib/gen_mixed_float_calls.m4') 9 | ') 10 | dnl what about elen and slen??? 11 | 12 | my_include(`veclib/eqsp_defs.m4') 13 | my_include(`veclib/gen_mixed_float_calls.m4') 14 | 15 | my_include(`veclib/slow_defs.m4') 16 | my_include(`veclib/gen_mixed_float_calls.m4') 17 | 18 | // all_mixed_float_kernels.m4 DONE 19 | 20 | -------------------------------------------------------------------------------- /include/veclib/all_mixed_int_kernels.m4: -------------------------------------------------------------------------------- 1 | 2 | my_include(`veclib/fast_defs.m4') 3 | my_include(`veclib/gen_mixed_int_calls.m4') 4 | 5 | ifdef(`BUILD_FOR_CUDA',` 6 | my_include(`veclib/flen_defs.m4') 7 | my_include(`veclib/gen_mixed_int_calls.m4') 8 | ') 9 | 10 | my_include(`veclib/eqsp_defs.m4') 11 | my_include(`veclib/gen_mixed_int_calls.m4') 12 | 13 | my_include(`veclib/slow_defs.m4') 14 | my_include(`veclib/gen_mixed_int_calls.m4') 15 | 16 | -------------------------------------------------------------------------------- /include/veclib/all_mixed_uint_kernels.m4: -------------------------------------------------------------------------------- 1 | 2 | 3 | my_include(`veclib/fast_defs.m4') 4 | my_include(`veclib/gen_mixed_uint_calls.m4') 5 | 6 | ifdef(`BUILD_FOR_CUDA',` 7 | my_include(`veclib/flen_defs.m4') 8 | my_include(`veclib/gen_mixed_uint_calls.m4') 9 | ') 10 | 11 | my_include(`veclib/eqsp_defs.m4') 12 | my_include(`veclib/gen_mixed_uint_calls.m4') 13 | 14 | my_include(`veclib/slow_defs.m4') 15 | my_include(`veclib/gen_mixed_uint_calls.m4') 16 | 17 | -------------------------------------------------------------------------------- /include/veclib/all_same_prec_vec.m4: -------------------------------------------------------------------------------- 1 | dnl Functions for which mixed precision makes no sense - rvset and rvmov 2 | 3 | dnl // bit precision handled in int_bit_vec.m4 4 | ifdef(`BIT_PRECISION',`',` 5 | _VEC_FUNC_1V_SCAL( rvset, dst = scalar1_val ) 6 | _VEC_FUNC_2V( rvmov, dst = src1 ) 7 | ') 8 | 9 | -------------------------------------------------------------------------------- /include/veclib/all_uint_kernels.m4: -------------------------------------------------------------------------------- 1 | 2 | my_include(`veclib/fast_defs.m4') 3 | my_include(`veclib/gen_uint_calls.m4') 4 | 5 | ifdef(`BUILD_FOR_CUDA',` 6 | my_include(`veclib/flen_defs.m4') 7 | my_include(`veclib/gen_uint_calls.m4') 8 | ') 9 | 10 | my_include(`veclib/eqsp_defs.m4') 11 | my_include(`veclib/gen_uint_calls.m4') 12 | 13 | my_include(`veclib/slow_defs.m4') 14 | my_include(`veclib/gen_uint_calls.m4') 15 | 16 | -------------------------------------------------------------------------------- /include/veclib/asc_classes.c: -------------------------------------------------------------------------------- 1 | /* 2 | * The short program dumps the flags in the ctype array, 3 | * so we know how to program the GPU versions of fucntions 4 | * like iscntrl etc 5 | */ 6 | 7 | #include 8 | #include 9 | 10 | int main(int ac, char **av) 11 | { 12 | int c; 13 | 14 | printf("CHAR CNTRL SPACE BLANK\n"); 15 | for(c=0;c<128;c++){ 16 | printf("0x%x\t%d\t%d\t%d\n",c,iscntrl(c),isspace(c),isblank(c)); 17 | } 18 | } 19 | 20 | -------------------------------------------------------------------------------- /include/veclib/bit_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | 3 | define(`std_type',`bitmap_word') 4 | define(`dest_type',`bitmap_word') 5 | define(`std_scalar',`u_ull') 6 | define(`ALL_ONES',`1') 7 | define(`type_code',`bit') 8 | 9 | -------------------------------------------------------------------------------- /include/veclib/by_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | define(`type_code',`by') 3 | define(`std_type',`char') 4 | define(`std_scalar',`u_b') 5 | define(`dest_type',`char') 6 | define(`ALL_ONES',`0xff') 7 | 8 | dnl // Broken on CUDA 6? 9 | dnl // Not broken, but needs cast to avoid using host function (C++) 10 | define(`absfunc',`abs((int)$1)') 11 | 12 | 13 | -------------------------------------------------------------------------------- /include/veclib/cpu_host_call_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | define(`H_CALL_PROJ_2V', SLOW_HOST_CALL($1,,,,2) ) 3 | define(`H_CALL_PROJ_2V_IDX', SLOW_HOST_CALL($1,,,,2) ) 4 | define(`H_CALL_PROJ_3V', SLOW_HOST_CALL($1,,,,3) ) 5 | 6 | define(`H_CALL_MM_NOCC',` 7 | 8 | GENERIC_HOST_FAST_CALL($1,/*bitmap*/,/*typ*/,/*scalars*/,/*vectors*/) 9 | GENERIC_HOST_EQSP_CALL($1,,,,) 10 | GENERIC_HOST_SLOW_CALL($1,,,,) 11 | 12 | /* h_call_mm_nocc calling generic_host_fast_switch... */ 13 | GENERIC_HOST_FAST_SWITCH($1,,,,NOCC) 14 | ') 15 | 16 | -------------------------------------------------------------------------------- /include/veclib/cpx_args.m4: -------------------------------------------------------------------------------- 1 | define(`src_type',`std_cpx') 2 | define(`dst_type',`dest_cpx') 3 | -------------------------------------------------------------------------------- /include/veclib/cu2_veclib_prot.m4: -------------------------------------------------------------------------------- 1 | /* cu2_veclib_prot.m4 BEGIN */ 2 | include(`veclib/cu2_port.m4') 3 | my_include(`veclib/vecgen.m4') 4 | my_include(`veclib/cu2_func_prot.m4') 5 | my_include(`veclib/platform_funcs.m4') 6 | /* cu2_veclib_prot.m4 DONE */ 7 | 8 | 9 | -------------------------------------------------------------------------------- /include/veclib/di_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | define(`std_type',`int32_t') 3 | define(`std_scalar',`u_l') 4 | define(`dest_type',`int32_t') 5 | define(`ALL_ONES',`0xffffffff') 6 | define(`absfunc',`abs($1)') 7 | define(`type_code',`di') 8 | 9 | -------------------------------------------------------------------------------- /include/veclib/dim5.h: -------------------------------------------------------------------------------- 1 | #ifndef _DIM5_H_ 2 | #define _DIM5_H_ 3 | 4 | typedef struct { 5 | unsigned int d5_dim[5]; 6 | } dim5; 7 | 8 | #define DIM5 dim5 9 | 10 | #endif // ! _DIM5_H_ 11 | 12 | -------------------------------------------------------------------------------- /include/veclib/fft_funcs.m4: -------------------------------------------------------------------------------- 1 | /* fft_funcs.m4 what should we put here??? */ 2 | 3 | dnl call platform-specific file... 4 | 5 | /* fft_funcs.m4 `pf_str' = pf_str */ 6 | define(`include_platform_typed_fft_funcs',`my_include(pf_str`'_typed_fft_funcs.m4)') 7 | 8 | /* BEGIN including platform fft funcs */ 9 | include_platform_typed_fft_funcs 10 | /* DONE including platform fft funcs */ 11 | 12 | 13 | -------------------------------------------------------------------------------- /include/veclib/gen_bit_calls.m4: -------------------------------------------------------------------------------- 1 | 2 | suppress_no 3 | dnl see int_bit_vec.m4 4 | dnl _VEC_FUNC_DBM_1S(rvset, SET_DBM_BIT(scalar1_val) ) 5 | dnl _VEC_FUNC_DBM_SBM(rvmov, SET_DBM_BIT(srcbit) ) 6 | 7 | /* gen_bit_calls.m4 including int_bit_vec.m4, bit_precision = BIT_PRECISION */ 8 | my_include(`veclib/int_bit_vec.m4') 9 | 10 | -------------------------------------------------------------------------------- /include/veclib/gen_int_calls.m4: -------------------------------------------------------------------------------- 1 | 2 | suppress_no 3 | /* gen_int_calls.m4 BEGIN */ 4 | /* gen_int_calls `std_type =' std_type */ 5 | my_include(`veclib/all_vec.m4') 6 | my_include(`veclib/all_same_prec_vec.m4') 7 | /* gen_int_calls including int_vec `std_type =' std_type */ 8 | my_include(`veclib/intvec.m4') 9 | /* gen_int_calls including signed_vec `std_type =' std_type */ 10 | my_include(`veclib/signed_vec.m4') 11 | /* gen_int_calls including new_conv `std_type =' std_type */ 12 | my_include(`veclib/new_conv.m4') 13 | /* gen_int_calls.m4 END */ 14 | 15 | -------------------------------------------------------------------------------- /include/veclib/gen_mixed_float_calls.m4: -------------------------------------------------------------------------------- 1 | 2 | dnl why is this call called "mixed"? 3 | dnl Because all of these functions can be implemented for mixed sp/dp precisions 4 | 5 | suppress_no 6 | 7 | my_include(`veclib/all_vec.m4') 8 | my_include(`veclib/math_funcs.m4') 9 | my_include(`veclib/cpx_vec.m4') 10 | my_include(`veclib/signed_vec.m4') 11 | 12 | -------------------------------------------------------------------------------- /include/veclib/gen_mixed_int_calls.m4: -------------------------------------------------------------------------------- 1 | suppress_no 2 | my_include(`veclib/all_vec.m4') 3 | my_include(`veclib/intvec.m4') 4 | my_include(`veclib/signed_vec.m4') 5 | 6 | -------------------------------------------------------------------------------- /include/veclib/gen_mixed_uint_calls.m4: -------------------------------------------------------------------------------- 1 | 2 | suppress_no 3 | my_include(`veclib/all_vec.m4') 4 | my_include(`veclib/intvec.m4') 5 | my_include(`veclib/unsigned_vec.m4') 6 | 7 | -------------------------------------------------------------------------------- /include/veclib/gen_uint_calls.m4: -------------------------------------------------------------------------------- 1 | 2 | my_include(`veclib/all_vec.m4') 3 | my_include(`veclib/all_same_prec_vec.m4') 4 | my_include(`veclib/intvec.m4') 5 | my_include(`veclib/unsigned_vec.m4') 6 | my_include(`veclib/new_conv.m4') 7 | 8 | -------------------------------------------------------------------------------- /include/veclib/in_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | define(`std_type',`short') 3 | define(`std_scalar',`u_s') 4 | define(`dest_type',`short') 5 | define(`ALL_ONES',`0xffff') 6 | dnl // abs Broken on CUDA 6? 7 | dnl define(`absfunc',`($1<0?(-$1):$1)') 8 | define(`absfunc',`abs((int)$1)') 9 | define(`type_code',`in') 10 | 11 | -------------------------------------------------------------------------------- /include/veclib/inby_defs.m4: -------------------------------------------------------------------------------- 1 | define(`std_type',`short') 2 | define(`std_scalar',`u_s') 3 | define(`dest_type',`char') 4 | define(`ALL_ONES',`0xffff') 5 | // abs Broken on CUDA 6? 6 | define(`absfunc',`($1<0?(-$1):$1)') 7 | define(`type_code',`inby') 8 | 9 | -------------------------------------------------------------------------------- /include/veclib/li_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | define(`std_type',`int64_t') 3 | define(`std_scalar',`u_ll') 4 | define(`dest_type',`int64_t') 5 | define(`ALL_ONES',`0xffffffffffffffff') 6 | define(`absfunc',`llabs($1)') 7 | define(`type_code',`li') 8 | 9 | -------------------------------------------------------------------------------- /include/veclib/new_conv.m4: -------------------------------------------------------------------------------- 1 | dnl add ifdef's to inhibit type-to-type "conversions"? 2 | 3 | _VEC_FUNC_2V_CONV( vconv2by, char ) 4 | _VEC_FUNC_2V_CONV( vconv2in, short ) 5 | _VEC_FUNC_2V_CONV( vconv2di, int32_t ) 6 | _VEC_FUNC_2V_CONV( vconv2li, int64_t ) 7 | _VEC_FUNC_2V_CONV( vconv2uby, u_char ) 8 | _VEC_FUNC_2V_CONV( vconv2uin, u_short ) 9 | _VEC_FUNC_2V_CONV( vconv2udi, uint32_t ) 10 | _VEC_FUNC_2V_CONV( vconv2uli, uint64_t ) 11 | _VEC_FUNC_2V_CONV( vconv2sp, float ) 12 | _VEC_FUNC_2V_CONV( vconv2dp, double ) 13 | 14 | -------------------------------------------------------------------------------- /include/veclib/ocl_veclib_prot.m4: -------------------------------------------------------------------------------- 1 | /* ocl_veclib_prot.m4 BEGIN */ 2 | include(`veclib/ocl_port.m4') 3 | my_include(`veclib/vecgen.m4') 4 | my_include(`veclib/ocl_func_prot.m4') 5 | my_include(`veclib/platform_funcs.m4') 6 | /* ocl_veclib_prot.m4 DONE */ 7 | 8 | 9 | -------------------------------------------------------------------------------- /include/veclib/quat_args.m4: -------------------------------------------------------------------------------- 1 | define(`src_type',`std_quat') 2 | define(`dst_type',`dest_quat') 3 | -------------------------------------------------------------------------------- /include/veclib/real_args.m4: -------------------------------------------------------------------------------- 1 | define(`src_type',std_type) 2 | define(`dst_type',dest_type) 3 | -------------------------------------------------------------------------------- /include/veclib/uby_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | define(`std_type',`u_char') 3 | define(`std_scalar',`u_ub') 4 | define(`std_signed',`char') 5 | define(`dest_type',`u_char') 6 | define(`ALL_ONES',`0xff') 7 | define(`absfunc',`$1') 8 | define(`type_code',`uby') 9 | 10 | -------------------------------------------------------------------------------- /include/veclib/ubyin_defs.m4: -------------------------------------------------------------------------------- 1 | /* ubyin_defs.m4 BEGIN */ 2 | define(`std_type',`u_char') 3 | define(`std_scalar',`u_ub') 4 | define(`std_signed',`char') 5 | define(`dest_type',`short') 6 | define(`ALL_ONES',`0xffff') 7 | // abs Broken on CUDA 6? 8 | dnl is the input uby? if so, then abs is no-op BUG? 9 | define(`absfunc',`($1<0?(-$1):$1)') 10 | define(`type_code',`ubyin') 11 | /* ubyin_defs.m4 END */ 12 | -------------------------------------------------------------------------------- /include/veclib/udi_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | define(`std_type',`uint32_t') 3 | define(`std_scalar',`u_ul') 4 | define(`std_signed',`int32_t') 5 | define(`dest_type',`uint32_t') 6 | define(`ALL_ONES',`0xffffffff') 7 | define(`absfunc',`$1') 8 | define(`type_code',`udi') 9 | 10 | -------------------------------------------------------------------------------- /include/veclib/uin_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | define(`std_type',`u_short') 3 | define(`std_scalar',`u_us') 4 | define(`std_signed',`short') 5 | define(`dest_type',`u_short') 6 | define(`ALL_ONES',`0xffff') 7 | define(`absfunc',`$1') 8 | define(`type_code',`uin') 9 | 10 | -------------------------------------------------------------------------------- /include/veclib/uindi_defs.m4: -------------------------------------------------------------------------------- 1 | define(`std_type',`u_short') 2 | define(`std_scalar',`u_us') 3 | define(`std_signed',`short') 4 | define(`dest_type',`int32_t') 5 | define(`ALL_ONES',`0xffffffff') 6 | define(`absfunc',`$1') 7 | define(`type_code',`uindi') 8 | -------------------------------------------------------------------------------- /include/veclib/uli_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | define(`std_type',`uint64_t') 3 | define(`std_scalar',`u_ull') 4 | define(`std_signed',`int64_t') 5 | define(`dest_type',`uint64_t') 6 | define(`ALL_ONES',`0xffffffffffffffff') 7 | define(`absfunc',`$1') 8 | define(`type_code',`uli') 9 | 10 | -------------------------------------------------------------------------------- /include/veclib/vl2_veclib_prot.m4: -------------------------------------------------------------------------------- 1 | /* vl2_veclib_prot.m4 BEGIN */ 2 | include(`veclib/vl2_port.m4') 3 | my_include(`veclib/vecgen.m4') 4 | #include "platform.h" 5 | my_include(`veclib/vl2_func_prot.m4') 6 | my_include(`veclib/platform_funcs.m4') 7 | /* vl2_veclib_prot.m4 DONE */ 8 | 9 | 10 | -------------------------------------------------------------------------------- /include/vt_api.h: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_menu.h" 3 | 4 | extern COMMAND_FUNC( do_exprs ); 5 | 6 | -------------------------------------------------------------------------------- /libs/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | CLEANFILES= *.a 3 | 4 | -------------------------------------------------------------------------------- /libsrc/.gitignore: -------------------------------------------------------------------------------- 1 | .DS_Store 2 | 3 | -------------------------------------------------------------------------------- /libsrc/cstepit/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/cstepit/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libcstepit.a 2 | cp libcstepit.a ../../libs 3 | 4 | noinst_LIBRARIES = libcstepit.a 5 | 6 | libcstepit_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | # fitsine not used now? 9 | # fitsine.c \ 10 | # 11 | 12 | libcstepit_a_SOURCES = \ 13 | stepit.c \ 14 | stepmenu.c \ 15 | stepsupp.c \ 16 | pkg.c \ 17 | cs_supp.c \ 18 | am_supp.c \ 19 | pr_supp.c \ 20 | sparse.c 21 | 22 | noinst_HEADERS = cstepit.h sparse.h 23 | 24 | -------------------------------------------------------------------------------- /libsrc/cstepit/sparse.h: -------------------------------------------------------------------------------- 1 | 2 | extern COMMAND_FUNC( do_sparse_menu ); 3 | 4 | -------------------------------------------------------------------------------- /libsrc/cu2/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | .deps 3 | *.a 4 | *.debug* 5 | *.noindent 6 | cu2_*_expanded.c 7 | junk 8 | 9 | -------------------------------------------------------------------------------- /libsrc/cu2/cu2_centroid.cu: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | 3 | #ifdef HAVE_CUDA 4 | 5 | //#include "quip_version.h" 6 | #define BUILD_FOR_CUDA 7 | 8 | #include 9 | #include 10 | #if CUDA_VERSION >= 5000 11 | 12 | // but gone on 7.5... 13 | #if CUDA_VERSION < 7050 14 | #include 15 | #endif // CUDA_VERSION < 7050 16 | 17 | #else // CUDA_VERSION < 5000 18 | #include 19 | #include 20 | #endif 21 | 22 | #include "quip_prot.h" 23 | #include "my_cu2.h" 24 | #include "cuda_supp.h" 25 | 26 | #include "cu2_centroid_expanded.c" 27 | 28 | #endif /* HAVE_CUDA */ 29 | 30 | -------------------------------------------------------------------------------- /libsrc/cu2/cu2_fft.cu: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | 3 | #ifdef HAVE_CUDA 4 | 5 | #include 6 | #include 7 | #include 8 | #include // drand48 9 | #include "quip_prot.h" 10 | #include "function.h" 11 | #include "rn.h" 12 | #include "veclib_api.h" 13 | #include "my_cu2.h" 14 | 15 | #include "veclib/cu2_veclib_prot.h" 16 | #include "cu2_fft_expanded.c" 17 | 18 | #endif // HAVE_CUDA 19 | 20 | -------------------------------------------------------------------------------- /libsrc/cu2/cu2_func_tbl.h: -------------------------------------------------------------------------------- 1 | #ifndef _CU2_FUNC_TBL_H_ 2 | #define _CU2_FUNC_TBL_H_ 3 | 4 | #include "quip_config.h" 5 | 6 | #include "platform.h" 7 | 8 | #ifdef HAVE_CUDA 9 | extern Dispatch_Function cu2_func_tbl[]; 10 | extern Vec_Func_Array cu2_vfa_tbl[]; 11 | #endif // HAVE_CUDA 12 | 13 | 14 | #endif // ! _CU2_FUNC_TBL_H_ 15 | 16 | -------------------------------------------------------------------------------- /libsrc/cu2/cu2_funcs.cu: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | #include 3 | #include 4 | //#include 5 | #include 6 | 7 | extern "C" { 8 | 9 | #ifdef _PLATFORM_H_ 10 | foobar1 11 | #endif // _PLATFORM_H_ 12 | #include "my_cu2.h" 13 | #ifdef HAVE_CUDA 14 | //foobar 15 | #endif // HAVE_CUDA 16 | #ifdef BUILD_FOR_CUDA 17 | //foobar2 18 | #endif // BUILD_FOR_CUDA 19 | #include "platform.h" 20 | #include "m4_cu2_veclib.c" 21 | 22 | } 23 | 24 | -------------------------------------------------------------------------------- /libsrc/cu2/cu2_host_funcs.m4: -------------------------------------------------------------------------------- 1 | 2 | /* cu2_host_call_defs.m4 BEGIN */ 3 | include(`cu2_host_call_defs.m4') 4 | 5 | // First the typed functions... 6 | 7 | dnl dumpdef 8 | dnl traceon 9 | 10 | include(`../../include/veclib/host_typed_call_defs.m4') 11 | include(`../../include/veclib/gen_host_calls.m4') 12 | 13 | -------------------------------------------------------------------------------- /libsrc/cu2/cu2_kernels.m4: -------------------------------------------------------------------------------- 1 | /* cu2_kernels.m4 BEGIN */ 2 | include(`../../include/veclib/cu2_veclib_prot.m4') 3 | include(`../../include/veclib/gpu_args.m4') 4 | 5 | dnl include(`../../include/veclib/gen_gpu_calls.m4') 6 | include(`cu2_kern_call_defs.m4') 7 | 8 | dnl /* DUMPING */ 9 | dnl dumpdef 10 | 11 | include(`../../include/veclib/gen_kernel_calls.m4') 12 | 13 | /* cu2_kernels.m4 DONE */ 14 | 15 | -------------------------------------------------------------------------------- /libsrc/cu2/test.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | # compile a test file by hand 4 | 5 | /Developer/NVIDIA/CUDA-7.5/bin/nvcc -o test.o -c test.cu -arch sm_30 -I/sw/include -I/Developer/NVIDIA/CUDA-7.5/include -I/Developer/NVIDIA/CUDA-7.5/samples/common/inc -I/usr/local/include --machine 64 -I/usr/local/cuda/include -I. -I../.. -I../../include -DHAVE_CONFIG_H -DBUILD_FOR_CUDA 6 | 7 | -------------------------------------------------------------------------------- /libsrc/cu2/tests/ramp1d.scr: -------------------------------------------------------------------------------- 1 | 2 | Set n 8 3 | 4 | Define Test_Ramp 1 stem 5 | Vector ${1}_rvec $n 1 float 6 | Vector ${1}_cvec $n 1 complex 7 | Image ${1}_img 4 4 1 float 8 | Subimage ${1}_s ${1}_img 1 4 1 0 9 | VSetComplex ${1}_cvec 0 0 10 | 11 | Ramp1D ${1}_rvec 0 1 12 | Ramp1D ${1}_cvec{0} 0 1 13 | Display ${1}_rvec 14 | Display ${1}_cvec 15 | 16 | VSet ${1}_img 0 17 | Ramp1D ${1}_s 10 1 18 | Display ${1}_img 19 | Pause 20 | . 21 | 22 | Test_Ramp h 23 | 24 | platforms 25 | select $DEFAULT_PLATFORM $DEFAULT_GPU 26 | show 27 | quit 28 | 29 | Test_Ramp g 30 | 31 | exit 32 | 33 | -------------------------------------------------------------------------------- /libsrc/cu2/tests/ramp2d.scr: -------------------------------------------------------------------------------- 1 | 2 | Set n 8 3 | 4 | Define Test_Ramp 1 stem 5 | Image ${1}_big 8 8 1 float 6 | Subimage ${1}_inset ${1}_big 4 4 2 1 7 | Image ${1}_rimg 4 4 1 float 8 | Image ${1}_cimg 4 4 1 complex 9 | VSetComplex ${1}_cimg 0 0 10 | VSet ${1}_big 99 11 | 12 | Ramp2D ${1}_rimg 0 1 10 13 | Ramp2D ${1}_cimg{0} 0 1 10 14 | Display ${1}_rimg 15 | Display ${1}_cimg 16 | 17 | Ramp2D ${1}_inset 0 1 10 18 | Display ${1}_big 19 | Pause 20 | . 21 | 22 | Test_Ramp h 23 | 24 | platforms 25 | select $DEFAULT_PLATFORM $DEFAULT_GPU 26 | show 27 | quit 28 | 29 | Test_Ramp g 30 | 31 | exit 32 | 33 | -------------------------------------------------------------------------------- /libsrc/cuda/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | *.debug 5 | Makefile 6 | Makefile.in 7 | cuda_veclib_expanded.c* 8 | cuda_veclib_stripped.c* 9 | 10 | 11 | -------------------------------------------------------------------------------- /libsrc/cuda/BUGS: -------------------------------------------------------------------------------- 1 | Some enumeration values not handled when building on iMac mach. 2 | 3 | -------------------------------------------------------------------------------- /libsrc/cuda/glx_hack.h: -------------------------------------------------------------------------------- 1 | 2 | #if !defined(__STDC_VERSION__) 3 | // jbm: a total hack, to make the nvidia glx.h compile 4 | // This didn't used to throw an error, what happened??? 5 | #define __STDC_VERSION__ 199901L 6 | #endif 7 | 8 | #ifdef HAVE_GL_GLX_H 9 | #include // jbm added for glXSwapBuffers() 10 | #endif 11 | 12 | -------------------------------------------------------------------------------- /libsrc/cuda/root_cmds.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | # The devices didn't exist on macbook pro, not sure why not? 4 | 5 | # create nvidia device nodes 6 | sudo mknod /dev/nvidia0 c 195 0 7 | sudo mknod /dev/nvidiactl c 195 255 8 | 9 | #chown root.video /dev/nvidia0 10 | #chown root.video /dev/nvidiactl 11 | 12 | sudo chmod 666 /dev/nvidia0 13 | sudo chmod 666 /dev/nvidiactl 14 | 15 | -------------------------------------------------------------------------------- /libsrc/cuda/simpleGL_kernel.cu: -------------------------------------------------------------------------------- 1 | /* 2 | */ 3 | 4 | #ifndef _SIMPLEGL_KERNEL_H_ 5 | #define _SIMPLEGL_KERNEL_H_ 6 | 7 | static cudaArray *array = NULL; 8 | texture tex; 9 | #endif // #ifndef _SIMPLEGL_KERNEL_H_ 10 | -------------------------------------------------------------------------------- /libsrc/das1602/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/das1602/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libdas1602.a 2 | cp libdas1602.a ../../libs 3 | 4 | noinst_LIBRARIES = libdas1602.a 5 | 6 | libdas1602_a_CPPFLAGS = -I$(top_srcdir)/include -D_GNU_SOURCE -Wall -Wmissing-prototypes 7 | 8 | libdas1602_a_SOURCES = \ 9 | dastst.c \ 10 | pacer.c 11 | 12 | noinst_HEADERS = ioctl_das1602.h \ 13 | pacer.h 14 | 15 | -------------------------------------------------------------------------------- /libsrc/das1602/pacer.h: -------------------------------------------------------------------------------- 1 | 2 | extern double SetPacerFreq( double desired_freq, unsigned short *c1p, unsigned short *c2p ); 3 | 4 | -------------------------------------------------------------------------------- /libsrc/dither/.gitignore: -------------------------------------------------------------------------------- 1 | .deps 2 | Makefile 3 | Makefile.in 4 | *.o 5 | *.a 6 | -------------------------------------------------------------------------------- /libsrc/dither/cie.h: -------------------------------------------------------------------------------- 1 | 2 | extern float _white[]; 3 | extern float lumscal[]; 4 | 5 | -------------------------------------------------------------------------------- /libsrc/dither/phosmax.h: -------------------------------------------------------------------------------- 1 | #define PHOSMAX 255 2 | 3 | -------------------------------------------------------------------------------- /libsrc/dither/requant.h: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_prot.h" 3 | 4 | // this looks like the external api??? 5 | extern COMMAND_FUNC( do_requant ); 6 | 7 | -------------------------------------------------------------------------------- /libsrc/dobj/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | testout 4 | .deps 5 | Makefile 6 | Makefile.in 7 | 8 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/align.scr: -------------------------------------------------------------------------------- 1 | 2 | debug data 3 | data 4 | alignment 16 5 | vector v 4096 1 float 6 | info v 7 | quit 8 | exit 9 | 10 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/ascii_errors.scr: -------------------------------------------------------------------------------- 1 | 2 | Vector v 4 1 float 3 | VSet v -1 4 | 5 | advise "\nReading file with too few elements..." 6 | expect_warning 'premature end of data' 7 | expect_warning 'expected 4 elements' 8 | Get_Ascii v tests/file_with_3_elts.txt 9 | Display v 10 | 11 | advise "\nReading file with too many elements..." 12 | expect_warning 'Needed 4 values' 13 | Get_Ascii v tests/file_with_5_elts.txt 14 | Display v 15 | 16 | advise "\nReading file with correct number of elements..." 17 | Get_Ascii v tests/file_with_4_elts.txt 18 | Display v 19 | 20 | exit 21 | 22 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/ascii_gpu.scr: -------------------------------------------------------------------------------- 1 | # Make sure this is done correctly... 2 | 3 | platforms 4 | select $DEFAULT_PLATFORM $DEFAULT_GPU 5 | show 6 | quit 7 | 8 | Vector v 4 1 float 9 | 10 | advise "Initializing data with ramp (0,10,20,30)" 11 | Ramp1D v 0 10 12 | advise "Displaying..." 13 | Display v 14 | Pause 15 | 16 | advise "Initializing data with ascii input (1,2,3,4)" 17 | data 18 | ascii 19 | read v - 20 | 1 2 3 4 21 | quit 22 | quit 23 | advise "Displaying..." 24 | Display v 25 | Pause 26 | 27 | exit 28 | 29 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/bit_index.scr: -------------------------------------------------------------------------------- 1 | 2 | Image b 3 8 1 bit 3 | #Info b 4 | VSet b 0 5 | Display b 6 | #Info b[1] 7 | VSet b[0][2] 1 8 | Display b 9 | VSet b[1][4] 1 10 | Display b 11 | Display b[1] 12 | 13 | exit 14 | 15 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/bitflag.scr: -------------------------------------------------------------------------------- 1 | # Check setting of contiguous_bitmap_data flag... 2 | 3 | Sequence m1 4 6 10 1 float 4 | Info m1 5 | 6 | data 7 | subsample m2 m1 8 | ncols(m1) 0 1 9 | nrows(m1) 0 1 10 | 2 0 2 11 | quit 12 | Info m2 13 | 14 | Pause_If 15 | 16 | Image b1 6 10 1 bit 17 | Info b1 18 | 19 | exit 20 | 21 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/complex.scr: -------------------------------------------------------------------------------- 1 | # test of complex numbers 2 | 3 | Set w 3 4 | Set h 2 5 | 6 | Image c1 $h $w 1 complex 7 | 8 | #debug data 9 | Info c1{1} 10 | 11 | VSet c1{0} 1 12 | VSet c1{1} 0 13 | 14 | Display c1 15 | 16 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/comps.scr: -------------------------------------------------------------------------------- 1 | 2 | Set h 4 3 | Set w 3 4 | 5 | debug data 6 | 7 | Image rgb $h $w 3 float 8 | advise "Displaying info about RGB image" 9 | Info rgb 10 | advise "Displaying info about one color plane from an RGB image" 11 | Info rgb{0} 12 | 13 | exit 14 | 15 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/contig.scr: -------------------------------------------------------------------------------- 1 | # test of contiguity 2 | 3 | Image c1 3 2 1 complex 4 | Info c1 5 | 6 | 7 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/explode.scr: -------------------------------------------------------------------------------- 1 | Vector strtbl 5 32 string 2 | Explode 'this is a test' ' ' strtbl 3 | Print n_string_components 4 | Display strtbl 5 | 6 | Explode 'this is a test' '_' strtbl 7 | Print n_string_components 8 | Display strtbl 9 | 10 | Explode 'this is a test' 't' strtbl 11 | Print n_string_components 12 | Display strtbl 13 | 14 | Explode 'this is a test' 's' strtbl 15 | Print n_string_components 16 | Display strtbl 17 | exit 18 | 19 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/file_with_3_elts.txt: -------------------------------------------------------------------------------- 1 | 1 2 | 2 3 | 3 4 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/file_with_4_elts.txt: -------------------------------------------------------------------------------- 1 | 11 2 | 12 3 | 13 4 | 14 5 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/file_with_5_elts.txt: -------------------------------------------------------------------------------- 1 | 21 2 | 22 3 | 23 4 | 24 5 | 25 6 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/info.scr: -------------------------------------------------------------------------------- 1 | debug veclib 2 | Image w 4 4 1 float 3 | Info w 4 | Info w 5 | exit 6 | 7 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/obj_exists.scr: -------------------------------------------------------------------------------- 1 | 2 | If obj_exists(foo) 3 | Then 'advise "foo exists"' 4 | Else 'advise "foo does not exist"' 5 | 6 | Image foo 22 22 1 u_byte 7 | 8 | If obj_exists(foo) 9 | Then 'advise "Now, foo exists"' 10 | Else 'advise "foo still does not exist"' 11 | 12 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/pipe_data.scr: -------------------------------------------------------------------------------- 1 | 2 | Set infile tests/pipe_data.txt 3 | 4 | Set n_header_lines 2 5 | 6 | Define Read_It 1 filename 7 | Count_Lines nl $1 8 | If obj_exists(data_tbl) "Delete_Image data_tbl" 9 | Vector data_tbl $nl-$n_header_lines 1 float 10 | os 11 | pipes 12 | open data_pipe read "tail -n +3 $infile" 13 | quit 14 | quit 15 | data 16 | ascii 17 | pipe_read data_tbl data_pipe 18 | quit 19 | quit 20 | Display data_tbl 21 | . 22 | 23 | Read_It $infile 24 | Pause 25 | Read_It $infile 26 | Pause 27 | Read_It $infile 28 | Pause 29 | exit 30 | 31 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/pipe_data.txt: -------------------------------------------------------------------------------- 1 | This is the first header line 2 | This is the second header line 3 | 1 4 | 2 5 | 3 6 | 4 7 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/relocate.scr: -------------------------------------------------------------------------------- 1 | Vector v 100 1 float 2 | Ramp1D v 0 1 3 | Subvector s v 6 0 4 | #Info v 5 | #Display s[3] 6 | #Info s 7 | #Info s[3] 8 | Display s 9 | Info s 10 | Display s[3] 11 | Info s[3] 12 | 13 | Pause_If 14 | 15 | advise "Relocating s to offset 3" 16 | Relocate s 3 0 0 17 | #Info s 18 | #Info s[3] 19 | Display s 20 | Info s 21 | Display s[3] 22 | Info s[3] 23 | 24 | Pause_If 25 | exit 26 | 27 | 28 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/run_all_tests.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | if( $#argv != 1 ) then 4 | echo usage: ./run_all_tests.csh program_name 5 | exit 6 | endif 7 | 8 | set prog=$1 9 | 10 | foreach file ( *.scr ) 11 | echo RUNNING TEST $file with program $prog 12 | $prog < $file 13 | end 14 | 15 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/sort.scr: -------------------------------------------------------------------------------- 1 | Vector v 5 1 short 2 | data ascii read v - 4 3 2 5 1 quit quit 3 | Display v 4 | compute misc sort v quit quit 5 | Display v 6 | exit 7 | 8 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/sub.scr: -------------------------------------------------------------------------------- 1 | 2 | Set w 5 3 | Set h 7 4 | Set sw 2 5 | Set sh 3 6 | Set x 1 7 | Set y 1 8 | 9 | Image b $h $w 3 u_byte 10 | Subimage s b $sw $sh $x $y 11 | 12 | advise 'Setting b...' 13 | VSet b 7 14 | advise 'Setting s...' 15 | VSet s 3 16 | 17 | Display b{0} 18 | 19 | Info b 20 | Info s 21 | 22 | exit 23 | 24 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/test_input1.asc: -------------------------------------------------------------------------------- 1 | 1.1 2.1 "foo bar1" FOO 2 | 3.1 4.1 "foo bar2" FOO 3 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/test_input2.asc: -------------------------------------------------------------------------------- 1 | 1.1 2.1 "foo bar1" FOO 2 | 3.1 4.1 "foo bar2" 3 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/test_input3.asc: -------------------------------------------------------------------------------- 1 | 1.1 2.1 "foo bar1" FOO 2 | 3.1 4.1 "foo bar2" FOO FOO2 3 | -------------------------------------------------------------------------------- /libsrc/dobj/tests/value_gpu.scr: -------------------------------------------------------------------------------- 1 | 2 | platforms 3 | select $DEFAULT_PLATFORM $DEFAULT_GPU 4 | quit 5 | 6 | Vector v 4 1 float 7 | Ramp1D v 10 1 8 | Display v 9 | 10 | Assign x value(v[3]) 11 | advise "x (v[3]) should be 13..." 12 | Print x 13 | 14 | exit 15 | 16 | -------------------------------------------------------------------------------- /libsrc/fann/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | all: libmyfann.a 3 | cp libmyfann.a ../../libs 4 | 5 | noinst_LIBRARIES = libmyfann.a 6 | 7 | libmyfann_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 8 | 9 | libmyfann_a_SOURCES = \ 10 | \ 11 | fann_util.c \ 12 | fann_menu.c 13 | 14 | 15 | noinst_HEADERS = \ 16 | my_fann.h 17 | 18 | -------------------------------------------------------------------------------- /libsrc/fann/fann_util.c: -------------------------------------------------------------------------------- 1 | // provide an interface to the FANN neural network library 2 | #include "quip_config.h" 3 | #include "quip_prot.h" 4 | #include "quip_menu.h" 5 | #include "my_fann.h" 6 | 7 | ITEM_INTERFACE_DECLARATIONS(My_FANN, fann, 0 ) 8 | 9 | -------------------------------------------------------------------------------- /libsrc/fann/tests/xor_in.asc: -------------------------------------------------------------------------------- 1 | -1 -1 2 | -1 1 3 | 1 -1 4 | 1 1 5 | -------------------------------------------------------------------------------- /libsrc/fann/tests/xor_out.asc: -------------------------------------------------------------------------------- 1 | -1 2 | 1 3 | 1 4 | -1 5 | -------------------------------------------------------------------------------- /libsrc/fileio/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | *.asc 4 | x.png 5 | .deps 6 | Makefile 7 | Makefile.in 8 | events_sara.hdf5 9 | 10 | -------------------------------------------------------------------------------- /libsrc/fileio/bmp.h: -------------------------------------------------------------------------------- 1 | #ifndef NO_BMP 2 | #define NO_BMP 3 | 4 | #include 5 | //#include "hip2hdr.h" 6 | #include "hips/hips2.h" 7 | #include "data_obj.h" 8 | #include "img_file.h" 9 | 10 | /* bmp.c */ 11 | extern int bmp_to_dp(Data_Obj *dp,BMP_Header *hd_p); 12 | extern int dp_to_bmp(Hips2_Header *hd_p,Data_Obj *dp); 13 | extern int set_bmp_hdr(Image_File *ifp); 14 | extern void bmp_info(QSP_ARG_DECL Image_File *ifp); 15 | 16 | 17 | #endif /* NO_HIPS2 */ 18 | 19 | -------------------------------------------------------------------------------- /libsrc/fileio/matio_private.h: -------------------------------------------------------------------------------- 1 | #ifndef _MATIO_PRIVATE_H_ 2 | #define _MATIO_PRIVATE_H_ 3 | 4 | #include 5 | 6 | #endif /* _MATIO_PRIVATE_H_ */ 7 | 8 | -------------------------------------------------------------------------------- /libsrc/fileio/my_avi.h: -------------------------------------------------------------------------------- 1 | 2 | #include "img_file.h" 3 | 4 | /* prototypes */ 5 | 6 | FIO_INTERFACE_PROTOTYPES( avi , AVCodec_Hdr ) 7 | 8 | 9 | -------------------------------------------------------------------------------- /libsrc/fileio/png.m: -------------------------------------------------------------------------------- 1 | 2 | #include "png.c" 3 | 4 | -------------------------------------------------------------------------------- /libsrc/fileio/tests/h1seek.scr: -------------------------------------------------------------------------------- 1 | 2 | Set t tst.hips1 3 | 4 | Clobber yes 5 | Write_File_Header $t 3 6 | 7 | Image x 10 10 1 u_byte 8 | VSet x 3 9 | 10 | Put_Next x $t 11 | Put_Next x $t 12 | Put_Next x $t 13 | 14 | 15 | Read_File_Header $t 16 | fileio autoclose $t no quit 17 | fileio info $t quit 18 | 19 | Get_Next x $t 20 | Get_Next x $t 21 | Get_Next x $t 22 | #Get_Next x $t 23 | 24 | File_Seek $t 0 25 | Get_Next x $t 26 | 27 | Pause 28 | 29 | -------------------------------------------------------------------------------- /libsrc/fileio/tests/png_read_test.scr: -------------------------------------------------------------------------------- 1 | 2 | Set f x.png 3 | Read_File_Header $f 4 | advise 'File header read, ready to read data.' 5 | Pause 6 | Assign h nrows('$f') 7 | Assign w ncols('$f') 8 | Assign d depth('$f') 9 | Assign p precision('$f') 10 | Image x $h $w $d $p 11 | Get_Next x $f 12 | Pause 13 | 14 | -------------------------------------------------------------------------------- /libsrc/fileio/tests/png_seek_test.scr: -------------------------------------------------------------------------------- 1 | 2 | Filetype pngfio 3 | Set f t.png 4 | Read_File_Header $f 5 | 6 | Assign w ncols('$f') 7 | Assign h nrows('$f') 8 | Assign d depth('$f') 9 | Assign n nframes('$f') 10 | 11 | advise "File $f has $n $w x $h frames, with depth $d" 12 | 13 | Image b $h $w $d u_byte 14 | Viewer_For v b 15 | 16 | Set i 0 17 | repeat $n 18 | advise "Seeking frame $i" 19 | File_Seek $f $i 20 | advise "Reading frame $i" 21 | Get_Next b $f 22 | Show_Bytes b v 23 | Increment i 24 | end 25 | exit 26 | 27 | -------------------------------------------------------------------------------- /libsrc/fileio/tests/tst.hips1: -------------------------------------------------------------------------------- 1 | 2 | 3 | 3 4 | 5 | 10 6 | 10 7 | 8 8 | 0 9 | 0 10 | 11 | 12 | 13 | . 14 |  -------------------------------------------------------------------------------- /libsrc/flycap/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | junk 7 | 8 | -------------------------------------------------------------------------------- /libsrc/flycap/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libfly.a 2 | cp libfly.a ../../libs 3 | noinst_LIBRARIES = libfly.a 4 | 5 | libfly_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 6 | 7 | libfly_a_SOURCES = fly_menu.c stream_fly.c fly.c cam_ctl.c 8 | 9 | noinst_HEADERS = fly.h 10 | 11 | -------------------------------------------------------------------------------- /libsrc/flycap/tests/format7.scr: -------------------------------------------------------------------------------- 1 | 2 | fly 3 | init 4 | list 5 | select Flea3_FL3-U3-13Y3M_1 6 | # If there is a pause here, then the info displays correctly below 7 | # But if we charge on through, then the info for mode 1 appears for mode 0??? 8 | # Pause 9 | camera 10 | # We don't always get the correct settings for mode 0??? 11 | # set_video_mode format7 1 12 | set_video_mode format7 0 13 | quit 14 | format7 15 | info 16 | advise 'Type ^D to exit program' 17 | Pause 18 | exit 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /libsrc/flycap/tests/strobe.scr: -------------------------------------------------------------------------------- 1 | fly 2 | init 3 | list 4 | select Flea3_FL3-U3-13Y3M_1 5 | camera 6 | strobe 7 | info 0 8 | info 1 9 | info 2 10 | info 3 11 | # info 4 12 | Pause 13 | quit 14 | quit 15 | quit 16 | 17 | exit 18 | 19 | 20 | -------------------------------------------------------------------------------- /libsrc/flycap/tests/test_flea3.scr: -------------------------------------------------------------------------------- 1 | # 2 | # Test the usb3 flea3 camera 3 | #Set cam Flea3_FL3-U3-32S2M_1 4 | #Set w 2080 5 | #Set h 1552 6 | Set cam Flea3_FL3-U3-13Y3M_1 7 | Set w 1280 8 | Set h 960 9 | 10 | Set nfrms 8 11 | 12 | Sequence frms $nfrms $h $w 1 u_byte 13 | 14 | fly 15 | init 16 | echo '\n\nCameras:\n' 17 | list 18 | echo '\n' 19 | select $cam 20 | capture 21 | set_buffer_obj frms 22 | Pause 23 | 24 | -------------------------------------------------------------------------------- /libsrc/gsl/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/gsl/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libgslmenu.a 2 | cp libgslmenu.a ../../libs 3 | 4 | noinst_LIBRARIES = libgslmenu.a 5 | 6 | libgslmenu_a_CPPFLAGS = -I$(top_srcdir)/include -D_GNU_SOURCE -Wall -Wmissing-prototypes 7 | 8 | libgslmenu_a_SOURCES = \ 9 | gsl.c \ 10 | gslmenu.c 11 | 12 | noinst_HEADERS = gslprot.h 13 | 14 | -------------------------------------------------------------------------------- /libsrc/gsl/gslprot.h: -------------------------------------------------------------------------------- 1 | 2 | #include 3 | #include "data_obj.h" 4 | 5 | /* gslmenu.c */ 6 | 7 | extern gsl_matrix init_gsl_matrix_from_data_obj(Data_Obj *dp); 8 | extern void gsl_svd(QSP_ARG_DECL Data_Obj *a_dp, Data_Obj *w_dp, Data_Obj *v_dp); 9 | extern void gsl_solve(QSP_ARG_DECL Data_Obj *x_dp, Data_Obj *u_dp, Data_Obj *w_dp, 10 | Data_Obj *v_dp, Data_Obj *b_dp); 11 | 12 | -------------------------------------------------------------------------------- /libsrc/gui/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/gui/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libgui.a 2 | cp libgui.a ../../libs 3 | 4 | noinst_LIBRARIES = libgui.a 5 | 6 | libgui_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | libgui_a_SOURCES = screen_objs.c protomenu.c motif.c 9 | 10 | noinst_HEADERS = my_motif.h gui_cmds.h gui_prot.h 11 | 12 | # NEED TO SET -DXVIEW OR -DMOTIF !!!! 13 | 14 | #XVOFILES= screen_objs.o protomenu.o xview.o 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /libsrc/gui/protomenu.m: -------------------------------------------------------------------------------- 1 | #include "protomenu.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/gui/screen_objs.m: -------------------------------------------------------------------------------- 1 | #include "screen_objs.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/gui/tests/ctx.scr: -------------------------------------------------------------------------------- 1 | 2 | Define TestFlav1 0 3 | Print choice 4 | . 5 | 6 | interface 7 | panel p 400 700 8 | decorate p 9 | chooser 'Flavor Chooser' TestFlav1 3 apple banana orange 10 | picker 'Taste Picker' TestFlav1 1 3 apple banana orange 11 | chooser 'Flavor Chooser 2' TestFlav1 3 apple banana orange 12 | picker 'Taste Picker 2' TestFlav1 1 3 apple banana orange 13 | button quit exit 14 | quit 15 | control 16 | show p 17 | quit 18 | quit 19 | 20 | do 21 | os events quit 22 | while 1 23 | 24 | 25 | -------------------------------------------------------------------------------- /libsrc/gui/tests/gui_test.scr: -------------------------------------------------------------------------------- 1 | 2 | Define SetColor 0 3 | advise "color = $choice" 4 | . 5 | 6 | Define SetFilename 0 7 | Set filename $input_string 8 | Print filename 9 | . 10 | 11 | interface 12 | panel test_panel 400 400 13 | decorate test_panel 14 | text Filename SetFilename fooandthenalooooooongstring 15 | chooser Colors SetColor 3 red green blue 16 | button QUIT exit 17 | quit 18 | control 19 | show test_panel 20 | quit 21 | quit 22 | 23 | advise 'Entering event loop...' 24 | do 25 | os events quit 26 | while 1 27 | 28 | exit 29 | 30 | -------------------------------------------------------------------------------- /libsrc/hips/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/hips/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | all: libhips.a 3 | cp libhips.a ../../libs 4 | 5 | noinst_LIBRARIES = libhips.a 6 | 7 | # GNU_SOURCE is needed to elim warnings about round? 8 | libhips_a_CPPFLAGS = -D_GNU_SOURCE -I$(top_srcdir)/include -Wall -Wmissing-prototypes 9 | 10 | # jbm removed herrs.c 11 | # herrs.c 12 | 13 | libhips_a_SOURCES = \ 14 | hsizepix.c \ 15 | perr.c \ 16 | rdoldhdr.c \ 17 | readhdr.c \ 18 | writehdr.c \ 19 | xparam.c 20 | 21 | 22 | 23 | -------------------------------------------------------------------------------- /libsrc/ieee1394/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/ieee1394/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libdvmenu.a 2 | cp libdvmenu.a ../../libs 3 | 4 | noinst_LIBRARIES = libdvmenu.a 5 | 6 | libdvmenu_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | libdvmenu_a_SOURCES = dvmenu.c frame.c ieee1394io.c 9 | 10 | noinst_HEADERS = dv_globals.h frame.h 11 | 12 | -------------------------------------------------------------------------------- /libsrc/ieee1394/ieee1394io.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/libsrc/ieee1394/ieee1394io.c -------------------------------------------------------------------------------- /libsrc/interpreter/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | .deps 3 | *.a 4 | y.tab.c 5 | nexpr.c 6 | output 7 | testout 8 | Makefile 9 | Makefile.in 10 | memcheck 11 | t.scr 12 | 13 | -------------------------------------------------------------------------------- /libsrc/interpreter/BUGS: -------------------------------------------------------------------------------- 1 | 2 | the interpret builtin command should insert the text at the current level instead of pushing. 3 | That would allow us to push a foreach command without pushing the entire loop. 4 | 5 | Command completion was redone (9/2016) in order to accommodate very large numbers of items 6 | (e.g., 360,000 in the CIFP database). Red-black trees were introduced to help with this, 7 | but the current implementation does not correctly handle situations where the set of items 8 | is dynamically changing... 9 | 10 | -------------------------------------------------------------------------------- /libsrc/interpreter/NOTES: -------------------------------------------------------------------------------- 1 | v1.0.1-356-ge1b714e rutgers 4-17??? 2 | 3 | -------------------------------------------------------------------------------- /libsrc/interpreter/command.c: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_config.h" 3 | #include "quip_prot.h" 4 | #include "command.h" 5 | 6 | void list_command(QSP_ARG_DECL Command *cp) 7 | { 8 | sprintf(MSG_STR,"%-24s\t%s",cp->cmd_selector,cp->cmd_help); 9 | advise(MSG_STR); 10 | } 11 | 12 | -------------------------------------------------------------------------------- /libsrc/interpreter/expr_node.c: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_config.h" 3 | //#include "expr_node.h" 4 | #include "nexpr.h" 5 | #include "getbuf.h" 6 | 7 | Scalar_Expr_Node *alloc_expr_node(void) 8 | { 9 | return getbuf(sizeof(Scalar_Expr_Node)); 10 | } 11 | 12 | 13 | 14 | -------------------------------------------------------------------------------- /libsrc/interpreter/fake_cam.m: -------------------------------------------------------------------------------- 1 | #include "fake_cam.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/interpreter/function.m: -------------------------------------------------------------------------------- 1 | #include "function.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/interpreter/node.c: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | 3 | #include "node.h" 4 | #include "warn.h" 5 | 6 | 7 | -------------------------------------------------------------------------------- /libsrc/interpreter/stack.c: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_config.h" 3 | #include "quip_prot.h" 4 | #include "stack.h" 5 | #include "node.h" 6 | #include 7 | 8 | // a stack is just a list??? 9 | 10 | void push_item( Stack *stkp, void *ip ) 11 | { 12 | Node *np; 13 | 14 | np = mk_node(ip); 15 | addHead(stkp,np); 16 | } 17 | 18 | void *pop_item( Stack *stkp ) 19 | { 20 | Node *np; 21 | void *ip; 22 | 23 | np = remHead(stkp); 24 | assert(np!=NULL); 25 | ip = NODE_DATA(np); 26 | rls_node(np); 27 | return ip; 28 | } 29 | 30 | int stack_size( Stack *stkp ) 31 | { 32 | return eltcount(stkp); 33 | } 34 | 35 | -------------------------------------------------------------------------------- /libsrc/interpreter/strbuf.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | #ifndef _STRBUF_H_ 4 | #define _STRBUF_H_ 5 | 6 | #include "quip_fwd.h" 7 | //#include "typedefs.h" 8 | 9 | /* string buffer structure */ 10 | 11 | struct string_buf { 12 | char * sb_buf; 13 | size_t sb_size; 14 | } ; 15 | 16 | 17 | /* String_Buf */ 18 | /* For now this is not an object... */ 19 | //#define SB_BUF(sbp) sbp->sb_buf 20 | #define SB_SIZE(sbp) sbp->sb_size 21 | #define SET_SB_BUF(sbp,s) sbp->sb_buf = s 22 | #define SET_SB_SIZE(sbp,n) sbp->sb_size = n 23 | 24 | 25 | #endif /* ! _STRBUF_H_ */ 26 | 27 | -------------------------------------------------------------------------------- /libsrc/interpreter/substr.c: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | #include 3 | #include "query_prot.h" 4 | 5 | int is_a_substring(const char* s, const char* w) /** true if str is substring of word */ 6 | { 7 | char *substr; 8 | 9 | // we need this here because we haven't initialized all the precision strings... 10 | if( w == NULL || s == NULL ) return(0); 11 | 12 | substr=strstr(w,s); 13 | if( substr == w ) return(1); 14 | return(0); 15 | } 16 | 17 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/all_tests.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | # run this from the source directory 3 | 4 | foreach script ( tests/*.scr ) 5 | echo ' ' 6 | echo Running test script $script 7 | echo ' ' 8 | quip < $script 9 | 10 | echo ' ' 11 | # echo Type ^D to proceed 12 | # set x=$< 13 | end 14 | 15 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/argv0.scr: -------------------------------------------------------------------------------- 1 | advise "Program name is $0" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/ascii_funcs.scr: -------------------------------------------------------------------------------- 1 | 2 | expect_warning YYERROR 3 | Assign c2 tolower(0x42) 4 | Print c2 5 | 6 | Set s1 Jeffrey 7 | Print s1 8 | Assign s2 tolower('$s1') 9 | Print s2 10 | Assign s3 toupper('$s1') 11 | Print s3 12 | 13 | Pause_If 14 | 15 | Set w "'a'" 16 | Print w 17 | Assign x ascii("'") 18 | Print x 19 | Assign x ascii("`") 20 | Print x 21 | Assign x ascii('a') 22 | Print x 23 | Assign y "'a'" 24 | Print y 25 | Assign z "'\\\\\'a\\\\\''" 26 | Print y 27 | 28 | Pause_If 29 | 30 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/bad_conditional.scr: -------------------------------------------------------------------------------- 1 | 2 | expect_warning has_zero_value 3 | If xxx nop 4 | 5 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/big_var.scr: -------------------------------------------------------------------------------- 1 | 2 | Set i 1 3 | Set v start 4 | Set n 200 5 | repeat $n 6 | Set v "$v word $i" 7 | Increment i 8 | end 9 | advise 'printing v' 10 | Print v 11 | 12 | Assign n strlen("$v") 13 | Print n 14 | 15 | exit 16 | 17 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/define_test.scr: -------------------------------------------------------------------------------- 1 | 2 | 3 | Define Test 0 4 | advise hi 5 | . 6 | 7 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/del_mac.scr: -------------------------------------------------------------------------------- 1 | 2 | 3 | Define Cycle 0 4 | < tests/define_test.scr 5 | macros delete Test quit 6 | . 7 | 8 | repeat 100000 9 | Cycle 10 | end 11 | 12 | Pause_If 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/erfinv.scr: -------------------------------------------------------------------------------- 1 | 2 | Set n 8 3 | 4 | Define Tryit 1 type 5 | Vector d $n 1 $1 6 | Vector e $n 1 $1 7 | Vector d2 $n 1 $1 8 | 9 | Ramp1D d 0 0.33 10 | VErf e d 11 | VErfInv d2 e 12 | Display d 13 | Display e 14 | Display d2 15 | 16 | Delete_Image d 17 | Delete_Image d2 18 | Delete_Image e 19 | . 20 | 21 | Tryit double 22 | Tryit float 23 | 24 | exit 25 | 26 | 27 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/gamma.scr: -------------------------------------------------------------------------------- 1 | 2 | Vector x 10 1 float 3 | Vector y 10 1 float 4 | Ramp1D x 1 1.1 5 | Display x 6 | 7 | Set i 0 8 | repeat 10 9 | Assign v value(x[$i]) 10 | Assign g gamma($v) 11 | Assign l lngamma($v) 12 | advise "x = $v gamma(x) = $g lngamma(x) = $l" 13 | Increment i 14 | end 15 | 16 | compute trig gamma y x quit quit 17 | Display x 18 | Display y 19 | compute trig lngamma y x quit quit 20 | Display y 21 | 22 | Pause_If 23 | 24 | exit 25 | 26 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/int_expr.scr: -------------------------------------------------------------------------------- 1 | variables format hex quit 2 | Set x 16 3 | Assign y ~$x 4 | advise "x = $x, ~ x = $y" 5 | Assign z 511&$y 6 | advise "511 & ~ x = $z" 7 | 8 | Assign x 0x8000000000000000 9 | Print x 10 | Assign y ~$x 11 | Print y 12 | 13 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/int_var_fmt.scr: -------------------------------------------------------------------------------- 1 | # default format should be decimal 2 | Define Test_Some 0 3 | Assign x 3 4 | Print x 5 | advise "'$x'" 6 | Assign x 3.1 7 | Print x 8 | advise "'$x'" 9 | . 10 | 11 | Test_Some 12 | 13 | Define Test_Int_Format 1 fmt 14 | advise "Testing $1 format" 15 | variables format $1 quit 16 | Test_Some 17 | . 18 | 19 | Test_Int_Format hex 20 | Test_Int_Format octal 21 | Test_Int_Format unsigned 22 | Test_Int_Format postscript 23 | Test_Int_Format decimal 24 | 25 | exit 26 | 27 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/is_digit.scr: -------------------------------------------------------------------------------- 1 | 2 | advise "\n\nis_digit.scr BEGIN" 3 | 4 | #advise "Set e1 isdigit(string_obj('012')[0])" 5 | Set e1 isdigit(string_obj('012')[0]) 6 | Assign x $e1 7 | echo "$e1 = $x" 8 | 9 | #advise "Set e2 isdigit(string_obj('abc')[0])" 10 | Set e2 isdigit(string_obj('abc')[0]) 11 | Assign x $e2 12 | echo "$e2 = $x" 13 | 14 | advise "\n\nt.scr DONE" 15 | 16 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/line_numbers.scr: -------------------------------------------------------------------------------- 1 | advise 'BEGIN line 1' 2 | advise 'BEGIN line 2' 3 | # 3 4 | expect_warning Line 5 | warn "Line 5" 6 | 7 | 8 | echo 'Line 8' 9 | # 6 10 | expect_warning Line 11 | warn "Line 11" 12 | expect_warning Line 13 | warn "Line 13" 14 | expect_warning Line 15 | warn \ 16 | "Line 15 or 16 ???" 17 | # 11 18 | repeat 3 # 12 19 | expect_warning Line 20 | warn "Line 20" 21 | expect_warning Line 22 | warn "Line 22" 23 | end # 15 24 | expect_warning Line 25 | warn "Line 25" 26 | exit 27 | 28 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/line_numbers2.scr: -------------------------------------------------------------------------------- 1 | advise 't.scr BEGIN' 2 | 3 | Define CkPt 1 msg 4 | expect_warning CkPt 5 | warn "CkPt $1" 6 | . 7 | 8 | CkPt 'line 8, first macro defn read' 9 | 10 | Define Macro_With_Loop 0 11 | CkPt 'macro line 1' 12 | Set itr 1 13 | repeat 2 14 | 15 | echo Hi 16 | # line 16 17 | CkPt "macro line 7, iteration $itr" 18 | Increment itr 19 | end 20 | CkPt 'macro line 10' 21 | . 22 | 23 | CkPt 'line 23' 24 | Macro_With_Loop 25 | CkPt 'line 25' 26 | 27 | macros 28 | show Macro_With_Loop 29 | quit 30 | 31 | exit 32 | 33 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/list_test.scr: -------------------------------------------------------------------------------- 1 | 2 | Set l "a b c" 3 | 4 | foreach x ( $l ) 5 | echo "x = '$x'" 6 | end 7 | 8 | Set cmd "foreach x ( $l )" 9 | 10 | #interpret $cmd 11 | # echo "x = '$x'" 12 | #end 13 | 14 | Set cmd2 'echo "x = \'$x\'" end' 15 | Set cmd3 "$cmd $cmd2" 16 | echo "cmd3 = '$cmd3'" 17 | interpret $cmd3 18 | 19 | exit 20 | 21 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/log_msg.scr: -------------------------------------------------------------------------------- 1 | # test of message logging 2 | 3 | log_message 'This is the first message' 4 | sleep 1 5 | log_message 'This is the second message (1 sec later)' 6 | sleep 3 7 | log_message 'This is the third message (3 secs later)' 8 | repeat 20 9 | log_message looping 10 | end 11 | repeat 20 12 | log_message looping2 13 | end 14 | log_message 'Done looping' 15 | exit 16 | 17 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/macro.scr: -------------------------------------------------------------------------------- 1 | 2 | Define M1 0 3 | advise m1! 4 | #If $x==2 'advise 2!' 5 | . 6 | 7 | Define M2 0 8 | advise m2! 9 | . 10 | 11 | Set x 2 12 | 13 | If $x==2 14 | Then M1 15 | Else M2 16 | 17 | exit 18 | 19 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/macro_args.scr: -------------------------------------------------------------------------------- 1 | 2 | Define Foo 24 a b c d e f g h i j k l m n o p q r s t u v w x 3 | advise HI 4 | . 5 | 6 | advise 'macro defined' 7 | 8 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/master.scr: -------------------------------------------------------------------------------- 1 | < tests/mdef.scr 2 | 3 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/replace.scr: -------------------------------------------------------------------------------- 1 | 2 | #Set a abcdefg 3 | #Print a 4 | #variables replace a bc bbcc quit 5 | #Print a 6 | # 7 | #exit 8 | 9 | Set s "This is a string with an apostrophe ' in the middle" 10 | Print s 11 | # this fails because of the single quote 12 | #Assign l strlen('$s') 13 | 14 | # Not quite sure why it takes 4 backslashes to get one... 15 | # but that is what works now... 16 | # How many times is it scanned? 17 | 18 | variables replace s "'" "\\\\'" quit 19 | #variables replace s "'" "\\\'" quit 20 | 21 | Print s 22 | 23 | Assign l strlen('$s') 24 | Print l 25 | 26 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/special_chars.scr: -------------------------------------------------------------------------------- 1 | 2 | variables 3 | set zéé zéé 4 | set za za 5 | list 6 | exit 7 | 8 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/string_expr.scr: -------------------------------------------------------------------------------- 1 | # 2 | # tests for the parser 3 | 4 | Define Testit 1 string 5 | advise "testing first character of '$1' with isdigit" 6 | Assign x isdigit(string_obj('$1')[0]) 7 | Print x 8 | . 9 | 10 | Define Testit2 1 string 11 | advise "testing last character of '$1' with isdigit" 12 | Assign n strlen('$1') 13 | Assign x isdigit(string_obj('$1')[$n-1]) 14 | Print x 15 | . 16 | 17 | 18 | Testit 0 19 | Testit kitty 20 | Testit kitty.cat 21 | 22 | Testit2 0 23 | Testit2 kitty 24 | Testit2 kitty.4 25 | 26 | exit 27 | 28 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/typed_scalars.scr: -------------------------------------------------------------------------------- 1 | # try to break it with logical and... 2 | # Not sure exactly what this was testing??? 3 | 4 | Define Testit 0 5 | Set i 0 6 | Set j 20 7 | repeat 10 8 | advise "i = $i and j = $j" 9 | If $i<6&&$j>5 10 | Then "advise 'Yes (i<6 && j>5)'" 11 | Else "advise 'No (! (i<6 && j>5) )'" 12 | Assign y $i<6?1:0 13 | advise "y = i<6?1:0" 14 | Print y 15 | Increment i 16 | end 17 | . 18 | 19 | Set k 1 20 | repeat 50 21 | advise "Testing, iteration $k" 22 | Testit 23 | Increment k 24 | end 25 | 26 | advise DONE 27 | 28 | exit 29 | 30 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/unix_time.scr: -------------------------------------------------------------------------------- 1 | Set s "Fri Jun 29 15:18:42 2018" 2 | echo "Testing time conversion functions with arbitrary date string:" 3 | Print s 4 | echo "Converting date string to unix time:" 5 | Assign t unix_time('$s') 6 | Print t 7 | echo "Formatting unix time:" 8 | Assign s format_time($t) 9 | Print s 10 | exit 11 | 12 | -------------------------------------------------------------------------------- /libsrc/interpreter/tests/var_indir.scr: -------------------------------------------------------------------------------- 1 | # set indirect variables 2 | 3 | Set x_1 a 4 | Set x_2 b 5 | Set y_1 c 6 | Set y_2 d 7 | 8 | Define Show12 1 stem 9 | echo "${1}_1 = ${${1}_1}" 10 | echo "${1}_2 = ${${1}_2}" 11 | . 12 | 13 | Print x_1 14 | Print x_2 15 | echo "concatenating variables x_1 and x_2: $x_1$x_2" 16 | Show12 x 17 | exit 18 | 19 | -------------------------------------------------------------------------------- /libsrc/ios/.gitignore: -------------------------------------------------------------------------------- 1 | NiblessLeopard 2 | startup.scr 3 | startup.enc 4 | *_startup.scr 5 | *_startup.enc 6 | mac_startup.scr 7 | mac_startup.enc 8 | -------------------------------------------------------------------------------- /libsrc/ios/BUGS: -------------------------------------------------------------------------------- 1 | 2 | Lots of problems with auto-rotate... 3 | 4 | Console. 5 | 6 | -------------------------------------------------------------------------------- /libsrc/ios/CameraViewController.h: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | //#include 3 | #include 4 | #include 5 | #include 6 | 7 | #include 8 | 9 | #include "quipAppDelegate.h" 10 | #include "quip_prot.h" 11 | #include "ios_prot.h" 12 | 13 | @interface CameraViewController : UIViewController 14 | - (BOOL) startCameraControllerFromViewController: (UIViewController*) controller 15 | usingDelegate: (id ) delegate; 16 | @end 17 | 18 | -------------------------------------------------------------------------------- /libsrc/ios/bldall.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | foreach p ( csf ezjet iquip ) 4 | ./build_startup_file.csh $p test 5 | end 6 | 7 | -------------------------------------------------------------------------------- /libsrc/ios/coq_unix_test.scr: -------------------------------------------------------------------------------- 1 | < coq_startup.scr 2 | debug query 3 | debug getbuf 4 | do 5 | os events quit 6 | while 1 7 | 8 | -------------------------------------------------------------------------------- /libsrc/ios/decrypt_file.scr: -------------------------------------------------------------------------------- 1 | If $argc!=2 "error_exit 'usage: coq infile outfile < encrypt_file.scr'" 2 | 3 | decrypt_file $1 $2 4 | 5 | exit 6 | 7 | -------------------------------------------------------------------------------- /libsrc/ios/encrypt_startup_file.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | if( ! -e startup.scr ) then 4 | echo 'File startup.scr does not exist; run ./build_startup_file.csh first.' 5 | exit 6 | endif 7 | 8 | coq startup.scr startup.enc < encrypt_file.scr 9 | 10 | -------------------------------------------------------------------------------- /libsrc/ios/mac_startup.scr.old: -------------------------------------------------------------------------------- 1 | echo "mac_startup.scr BEGIN" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/ios/my_csf.scr: -------------------------------------------------------------------------------- 1 | # script for testing csf program on regular computer. 2 | # quip needs to be invoked without a startup file... 3 | 4 | variables 5 | set BUNDLE_DIR . 6 | quit 7 | 8 | < csf_startup.scr 9 | 10 | -------------------------------------------------------------------------------- /libsrc/ios/quipTable.h: -------------------------------------------------------------------------------- 1 | #ifndef _QUIPTABLE_H_ 2 | #define _QUIPTABLE_H_ 3 | 4 | #include 5 | 6 | @interface quipTableViewController : UITableViewController 7 | @property (retain) NSMutableArray * my_test_array; 8 | 9 | @end 10 | 11 | #endif /* _QUIPTABLE_H_ */ 12 | -------------------------------------------------------------------------------- /libsrc/ios/testViewController.h: -------------------------------------------------------------------------------- 1 | 2 | @interface testViewController : UITableViewController 3 | 4 | @end 5 | 6 | -------------------------------------------------------------------------------- /libsrc/ios/testViewController.m: -------------------------------------------------------------------------------- 1 | 2 | #include "testViewController.h" 3 | 4 | @implementation testViewController 5 | 6 | @end 7 | 8 | -------------------------------------------------------------------------------- /libsrc/knox/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/knox/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libknox.a 2 | cp libknox.a ../../libs 3 | 4 | noinst_LIBRARIES = libknox.a 5 | 6 | libknox_a_CPPFLAGS = -I$(top_srcdir)/include -D_GNU_SOURCE -Wall -Wmissing-prototypes 7 | 8 | libknox_a_SOURCES = \ 9 | knox.c \ 10 | knox_tbl.c 11 | 12 | noinst_HEADERS = \ 13 | \ 14 | knox.h 15 | -------------------------------------------------------------------------------- /libsrc/knox/README: -------------------------------------------------------------------------------- 1 | 2 | no documentation about stty settings??? 3 | 4 | purkinje: 5 | main rack switcher, 19200, connected to ttyS0 6 | 7 | dirac: 8 | mini rack switcher, 19200, connected to ttyS0 9 | 10 | brewster: 11 | booth rack switcher, 19200, connected to ttyS1 12 | 13 | -------------------------------------------------------------------------------- /libsrc/knox/tests/client.scr: -------------------------------------------------------------------------------- 1 | # quip script to test connection to the knox daemon 2 | 3 | < $macro_dir/knox/knoxc.mac 4 | 5 | Knox_Init 6 | Route 1 1 7 | Pause 8 | 9 | -------------------------------------------------------------------------------- /libsrc/meteor/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/meteor/curv_setup1.h: -------------------------------------------------------------------------------- 1 | #ifdef a 2 | #undef a 3 | #undef b 4 | #undef c 5 | #undef d 6 | #undef e 7 | #undef f 8 | #undef g 9 | #undef h 10 | #undef i 11 | #endif 12 | 13 | #define a v11 14 | #define b v12 15 | #define c v13 16 | #define d v21 17 | #define e v22 18 | #define f v23 19 | #define g v31 20 | #define h v32 21 | #define i v33 22 | 23 | -------------------------------------------------------------------------------- /libsrc/meteor/curv_setup2.h: -------------------------------------------------------------------------------- 1 | #ifdef a 2 | #undef a 3 | #undef b 4 | #undef c 5 | #undef d 6 | #undef e 7 | #undef f 8 | #undef g 9 | #undef h 10 | #undef i 11 | #endif 12 | 13 | #define a v12 14 | #define b v13 15 | #define c v11 16 | #define d v22 17 | #define e v23 18 | #define f v21 19 | #define g v32 20 | #define h v33 21 | #define i v31 22 | -------------------------------------------------------------------------------- /libsrc/meteor/curv_setup3.h: -------------------------------------------------------------------------------- 1 | #ifdef a 2 | #undef a 3 | #undef b 4 | #undef c 5 | #undef d 6 | #undef e 7 | #undef f 8 | #undef g 9 | #undef h 10 | #undef i 11 | #endif 12 | 13 | #define a v13 14 | #define b v11 15 | #define c v12 16 | #define d v23 17 | #define e v21 18 | #define f v22 19 | #define g v33 20 | #define h v31 21 | #define i v32 22 | 23 | -------------------------------------------------------------------------------- /libsrc/meteor/pupfind.h: -------------------------------------------------------------------------------- 1 | 2 | extern void compute_diff_image(int newest, int previous, int component_offset); 3 | extern COMMAND_FUNC( setup_diff_computation ); 4 | extern void compute_curvature(int newest); 5 | extern COMMAND_FUNC( setup_curv_computation ); 6 | extern COMMAND_FUNC( blur_curvature ); 7 | extern void _setup_blur(QSP_ARG_DECL Data_Obj *dp); 8 | #define setup_blur(dp) _setup_blur(QSP_ARG dp) 9 | 10 | -------------------------------------------------------------------------------- /libsrc/mvimenu/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/mvimenu/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libmvimenu.a 2 | cp libmvimenu.a ../../libs 3 | 4 | noinst_LIBRARIES = libmvimenu.a 5 | 6 | libmvimenu_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | libmvimenu_a_SOURCES = mvimenu.c xmvi.c 9 | 10 | noinst_HEADERS = xmvi.h 11 | 12 | -------------------------------------------------------------------------------- /libsrc/mvimenu/mvimenu.m: -------------------------------------------------------------------------------- 1 | #include "mvimenu.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/mvimenu/xmvi.h: -------------------------------------------------------------------------------- 1 | 2 | #include "gmovie.h" 3 | #include "data_obj.h" 4 | 5 | /* xmvi.c */ 6 | 7 | 8 | extern void xmvi_init(SINGLE_QSP_ARG_DECL); 9 | 10 | -------------------------------------------------------------------------------- /libsrc/nrmenu/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/nrmenu/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libnrmenu.a 2 | cp libnrmenu.a ../../libs 3 | 4 | noinst_LIBRARIES = libnrmenu.a 5 | 6 | libnrmenu_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | libnrmenu_a_SOURCES = numrec.c nrmenu.c 9 | 10 | -------------------------------------------------------------------------------- /libsrc/opencl/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | prog2 3 | .deps 4 | libocl.a 5 | ocl_veclib_expanded.c 6 | ocl_fft_expanded.c 7 | ocl_rand_expanded.c 8 | *.debug* 9 | *.noindent 10 | junk 11 | foo* 12 | output 13 | vuni.i 14 | bug_demo 15 | 16 | -------------------------------------------------------------------------------- /libsrc/opencl/README.vmaxg: -------------------------------------------------------------------------------- 1 | 2 | vmaxg - find the maximum, number of occurrences, and all indices... 3 | 4 | Does it make sense for this function to be a projection operator? What would that mean? 5 | 6 | i11 i12 i13 c1 n1 ci1{} 7 | i21 i22 i23 c2 n2 ci2{} 8 | i31 i32 i33 c3 n3 ci3{} 9 | 10 | r1 r2 r3 mx, nocc, idx{} 11 | n1 n2 n3 12 | 13 | ri1{} ri2{} ri3{} 14 | -------------------------------------------------------------------------------- /libsrc/opencl/Random123/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | SUBDIRS = features 3 | 4 | noinst_HEADERS = \ 5 | array.h \ 6 | threefry.h 7 | 8 | -------------------------------------------------------------------------------- /libsrc/opencl/Random123/features/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | noinst_HEADERS = \ 3 | compilerfeatures.h \ 4 | openclfeatures.h \ 5 | sse.h 6 | 7 | -------------------------------------------------------------------------------- /libsrc/opencl/checkit.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | set f=vuni.out 4 | 5 | #cat $f | dm "if x1 < 0 then INPUT else KILL" 6 | #cat $f | dm "if x1 > 1 then INPUT else KILL" 7 | 8 | coq $f < check_hist.scr 9 | 10 | 11 | -------------------------------------------------------------------------------- /libsrc/opencl/kern_src.c: -------------------------------------------------------------------------------- 1 | 2 | #include "kern_src.h" 3 | 4 | Kern_Func_Src kern_src_tbl[]={ 5 | 6 | #include "veclib/all_vec.c" 7 | 8 | }; 9 | 10 | -------------------------------------------------------------------------------- /libsrc/opencl/makefile.bug: -------------------------------------------------------------------------------- 1 | LIBS= 2 | CC= gcc 3 | CFLAGS= -Wall 4 | LDOPTS= -framework OpenCL -framework OpenGL 5 | 6 | bug_demo: bug.o 7 | $(CC) $(LDOPTS) -o bug_demo bug.o $(LIBS) 8 | 9 | -------------------------------------------------------------------------------- /libsrc/opencl/ocl_fakit.c: -------------------------------------------------------------------------------- 1 | // This file is only used when we don't have the nVidia compiler nvcc. 2 | // It allows us to test other parts of the code. 3 | 4 | #include "quip_config.h" 5 | 6 | #ifndef HAVE_CUDA 7 | 8 | #include "quip_prot.h" 9 | #include "veclib_api.h" 10 | #include "my_vector_functions.h" 11 | #include "host_calls.h" 12 | //#include "conversions.h" 13 | #include "undefs.h" 14 | #include "all_funcs.h" 15 | 16 | #endif /* ! HAVE_CUDA */ 17 | 18 | -------------------------------------------------------------------------------- /libsrc/opencl/ocl_fft.c: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | #include 3 | #include 4 | #include 5 | #include // drand48 6 | #include "quip_prot.h" 7 | #include "function.h" 8 | #include "rn.h" 9 | #include "veclib_api.h" 10 | #include "my_ocl.h" 11 | 12 | #include "veclib/ocl_veclib_prot.h" 13 | #include "ocl_fft_expanded.c" 14 | 15 | -------------------------------------------------------------------------------- /libsrc/opencl/ocl_host_funcs.m4: -------------------------------------------------------------------------------- 1 | 2 | define(`BUILD_FOR_HOST',`') 3 | 4 | my_include(`ocl_host_call_defs.m4') 5 | dnl First the typed functions... 6 | my_include(`veclib/host_typed_call_defs.m4') 7 | my_include(`veclib/gen_host_calls.m4') 8 | 9 | dnl Where are the untyped calls declared??? 10 | dnl For the tabled functions, there are no untyped functions... 11 | dnl But for special things like fft2d, we need to declare them 12 | 13 | my_include(`ocl_untyped_host_calls.m4') 14 | -------------------------------------------------------------------------------- /libsrc/opencl/ocl_host_untyped_call_defs.m4: -------------------------------------------------------------------------------- 1 | dnl What should go here??? 2 | 3 | -------------------------------------------------------------------------------- /libsrc/opencl/ocl_kernels.c: -------------------------------------------------------------------------------- 1 | 2 | #ifndef _OCL_KERNELS_C_ 3 | #define _OCL_KERNELS_C_ 4 | 5 | #include "veclib/ocl_veclib_prot.h" // declare all the prototypes for the host 6 | #include "veclib/gpu_args.h" 7 | 8 | #include "ocl_kernel_src.h" // macros to create the kernel src arrays 9 | #include "ocl_kern_call_defs.h" 10 | 11 | #include "veclib/gen_kernel_calls.c" 12 | 13 | #include "veclib/method_undefs.h" 14 | 15 | #endif // ! _OCL_KERNELS_C_ 16 | 17 | -------------------------------------------------------------------------------- /libsrc/opencl/ocl_kernels.m4: -------------------------------------------------------------------------------- 1 | /* ocl_kernels.m4 BEGIN */ 2 | 3 | dnl BUG? include veclib_prot.h instead? 4 | my_include(`veclib/ocl_veclib_prot.m4') 5 | my_include(`veclib/gpu_args.m4') 6 | 7 | my_include(`ocl_kernel_src.m4') 8 | my_include(`ocl_kern_call_defs.m4') 9 | 10 | // including gen_kernel_calls.m4 11 | my_include(`veclib/gen_kernel_calls.m4') 12 | 13 | dnl used to include method_undefs.h here??? 14 | 15 | /* ocl_kernels.m4 END */ 16 | 17 | -------------------------------------------------------------------------------- /libsrc/opencl/ocl_menu.c: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_config.h" 3 | 4 | #ifdef HAVE_OPENCL 5 | 6 | // includes, system 7 | #include 8 | 9 | #ifdef HAVE_STDLIB_H 10 | #include 11 | #endif 12 | 13 | #ifdef HAVE_STRING_H 14 | #include 15 | #endif 16 | 17 | #ifdef HAVE_MATH_H 18 | #include 19 | #endif 20 | 21 | #include "quip_prot.h" 22 | #include "my_ocl.h" 23 | 24 | //#include "veclib/menu_decls.c" 25 | 26 | #endif // HAVE_OPENCL 27 | 28 | -------------------------------------------------------------------------------- /libsrc/opencl/ocl_untyped_fft_funcs.m4: -------------------------------------------------------------------------------- 1 | dnl nothing here yet 2 | 3 | 4 | 5 | -------------------------------------------------------------------------------- /libsrc/opencl/ocl_veclib.c: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | 3 | #ifdef HAVE_OPENCL 4 | 5 | #include 6 | #include 7 | #include "quip_prot.h" 8 | #include "my_ocl.h" 9 | #include "veclib_api.h" 10 | #include "veclib/ocl_veclib_prot.h" 11 | #include "ocl_platform.h" 12 | 13 | #include "ocl_veclib_expanded.c" 14 | 15 | #endif /* HAVE_OPENCL */ 16 | 17 | 18 | -------------------------------------------------------------------------------- /libsrc/opencl/strip_it.sh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | 3 | # this works on MBP but non on mac mini??? 4 | grep -v '# ' ocl_veclib_expanded.c | sed 's/{/\'$'\n{/g' | sed 's/{/{\'$'\n/g' | sed 's/}/\'$'\n}/g' | sed 's/}/}\'$'\n/g' | sed 's/;/;\'$'\n/g' > ocl_veclib_stripped.c 5 | 6 | 7 | -------------------------------------------------------------------------------- /libsrc/opencl/strip_it2.sh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | 3 | # this works on MBP but non on mac mini??? 4 | grep -v '# ' ocl_veclib.debug_ | sed 's/{/\'$'\n{/g' | sed 's/{/{\'$'\n/g' | sed 's/}/\'$'\n}/g' | sed 's/}/}\'$'\n/g' | sed 's/;/;\'$'\n/g' > ocl_veclib_stripped.debug 5 | 6 | 7 | -------------------------------------------------------------------------------- /libsrc/opencl/strip_it3.sh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | 3 | # this works on MBP but non on mac mini??? 4 | grep -v '# ' ocl.debug_ | sed 's/{/\'$'\n{/g' | sed 's/{/{\'$'\n/g' | sed 's/}/\'$'\n}/g' | sed 's/}/}\'$'\n/g' | sed 's/;/;\'$'\n/g' > ocl.debug 5 | 6 | 7 | -------------------------------------------------------------------------------- /libsrc/opencl/t2.m4: -------------------------------------------------------------------------------- 1 | define(`DECL_1',`declaration_1') 2 | define(`VV',`eval(`DECL_'$1)') 3 | 4 | VV(1) 5 | 6 | -------------------------------------------------------------------------------- /libsrc/opencl/test.c: -------------------------------------------------------------------------------- 1 | 2 | main(int ac, char **av) 3 | { 4 | cl_uint num = 0; 5 | 6 | clGetDeviceIDs(NULL,CL_DEVICE_TYPE_GPU,0,NULL,&num); 7 | 8 | cl_device_id devices[num]; 9 | 10 | clGetDeviceIDs(NULL,CL_DEVICE_TYPE_GPU,num,devices,NULL); 11 | 12 | 13 | 14 | cl_context ctx = clCreateContext(NULL,num,devices,NULL,NULL,NULL); 15 | } 16 | 17 | -------------------------------------------------------------------------------- /libsrc/opencl/test_m4.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | m4 ocl_veclib.m4 > foo.c 4 | gcc -I../../include -I../.. -c foo_master.c >& errors 5 | 6 | -------------------------------------------------------------------------------- /libsrc/opencl/test_philox.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | gcc -I/Users/jmulliga/src/Random123-1.08/include -E vuni.c > vuni.i 4 | cat vuni.i | indent > foo 5 | 6 | 7 | -------------------------------------------------------------------------------- /libsrc/opencl/tests/apple.scr: -------------------------------------------------------------------------------- 1 | 2 | platforms 3 | select Apple Iris_Pro 4 | quit 5 | 6 | Image x 4 4 1 float 7 | Info x 8 | VSet x 1 9 | Display x 10 | 11 | platforms select Apple $DEFAULT_GPU quit 12 | Image y 4 4 1 float 13 | Info y 14 | VSet y 1 15 | Display y 16 | 17 | Vector d 4 1 double 18 | VSet d 1 19 | Display d 20 | 21 | Vector c 4 1 dblcpx 22 | VSet c{0} 1 23 | VSet c{1} 0 24 | Display c 25 | 26 | Pause 27 | 28 | -------------------------------------------------------------------------------- /libsrc/opencl/tests/ramp2d.scr: -------------------------------------------------------------------------------- 1 | max_warnings 2 2 | 3 | Set w 8 4 | Set h 7 5 | 6 | Define Testit 1 prefix 7 | Image ${1}_image $h $w 1 float 8 | 9 | advise '\nTest $1' 10 | 11 | Ramp2D ${1}_image 1 1 10 12 | Display ${1}_image 13 | 14 | VSet ${1}_image 66 15 | Display ${1}_image 16 | 17 | . 18 | 19 | Testit h 20 | platforms select $DEFAULT_PLATFORM $DEFAULT_GPU quit 21 | Testit g 22 | 23 | exit 24 | 25 | 26 | -------------------------------------------------------------------------------- /libsrc/opencl/tests/real_fft.scr: -------------------------------------------------------------------------------- 1 | 2 | Vector xf 5 1 complex 3 | Vector f 8 1 float 4 | Assign twopi 8*atan(1) 5 | 6 | Ramp1D f 0 $twopi/ncols(f) 7 | VSin f f 8 | Display f 9 | RFFT xf f 10 | Display xf 11 | Pause 12 | 13 | Display xf 14 | RInvFFT f xf 15 | Display f 16 | Pause 17 | 18 | 19 | data 20 | ascii 21 | read xf - 22 | 1 0 23 | 0 0 24 | 0 0 25 | 0 0 26 | 0 0 27 | quit 28 | quit 29 | 30 | Display xf 31 | RInvFFT f xf 32 | Display f 33 | Pause 34 | 35 | -------------------------------------------------------------------------------- /libsrc/opencl/tests/subi.scr: -------------------------------------------------------------------------------- 1 | Set w 8 2 | Set h 9 3 | Set sw 4 4 | Set sh 3 5 | 6 | Define Test_Subimages 1 suffix 7 | Image big_$1 $h $w 1 float 8 | Image small_$1 $sh $sw 1 float 9 | Subimage inset_$1 big_$1 $sw $sh 2 1 10 | 11 | Ramp2D big_$1 0 1 10 12 | Display big_$1 13 | VSet inset_$1 0 14 | Display big_$1 15 | . 16 | 17 | Test_Subimages h 18 | Pause 19 | 20 | platforms 21 | select $DEFAULT_PLATFORM $DEFAULT_GPU 22 | quit 23 | 24 | Test_Subimages g 25 | Pause 26 | 27 | 28 | 29 | -------------------------------------------------------------------------------- /libsrc/opencl/touch_test.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | foreach file ( ../../include/veclib/*.m4 ) 4 | echo ' ' 5 | echo TESTING $file 6 | touch $file 7 | set n=`make m4_ocl_veclib.c | grep Nothing | wc -l` 8 | echo n = $n 9 | if( $n == 0 ) then 10 | echo File $file triggered a rebuild 11 | else 12 | echo File $file did NOT trigger a rebuild 13 | endif 14 | sleep 2 15 | end 16 | 17 | -------------------------------------------------------------------------------- /libsrc/opencl/vuni.c: -------------------------------------------------------------------------------- 1 | 2 | //#include 3 | //#include 4 | #include "threefry.h" 5 | 6 | __kernel void test_fast_vuni(__global float *a) { 7 | union { 8 | threefry4x32_ctr_t c; 9 | int4 i; 10 | } u; 11 | unsigned tid = get_global_id(0); 12 | 13 | threefry4x32_key_t k = {{tid, 0xdecafbad, 0xfacebead, 0x12345678}}; 14 | threefry4x32_ctr_t c = {{0, 0xf00dcafe, 0xdeadbeef, 0xbeeff00d}}; 15 | u.c = threefry4x32(c, k); 16 | long x1 = u.i.x /*, y1 = u.i.y*/ ; 17 | /*long x2 = u.i.z, y2 = u.i.w;*/ 18 | a[tid] = (float) x1 / 0xffffffff; 19 | } 20 | 21 | -------------------------------------------------------------------------------- /libsrc/opencv/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/opencv/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libocvq.a 2 | cp libocvq.a ../../libs 3 | 4 | noinst_LIBRARIES = libocvq.a 5 | 6 | libocvq_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | libocvq_a_SOURCES = opencv_menu.c opencv_glue.c 9 | 10 | noinst_HEADERS = opencv_glue.h 11 | 12 | -------------------------------------------------------------------------------- /libsrc/opengl/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | junk 7 | dev_stuff 8 | 9 | -------------------------------------------------------------------------------- /libsrc/opengl/README: -------------------------------------------------------------------------------- 1 | 2 | problems w/ openGL on mac, set these for debugging output: 3 | 4 | setenv LIBGL_DEBUG 1 5 | setenv LIBGL_DIAGNOSTIC 1 6 | setenv LIBGL_DUMP_VISUALID 1 7 | 8 | -------------------------------------------------------------------------------- /libsrc/opengl/debug_gl.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | # need to "source" this file for it to be effective... 4 | 5 | if( $#argv != 1 ) then 6 | echo usage: source debug_gl.csh 1\|0 7 | exit 8 | endif 9 | 10 | if( $1 == 1 ) then 11 | setenv LIBGL_DEBUG 1 12 | setenv LIBGL_DIAGNOSTIC 1 13 | setenv LIBGL_DUMP_VISUALID 1 14 | else if( $1 == 0 ) then 15 | unsetenv LIBGL_DEBUG 16 | unsetenv LIBGL_DIAGNOSTIC 17 | unsetenv LIBGL_DUMP_VISUALID 18 | else 19 | echo usage: source debug_gl.csh 1|0 20 | exit 21 | endif 22 | 23 | 24 | -------------------------------------------------------------------------------- /libsrc/opengl/dl.m: -------------------------------------------------------------------------------- 1 | #include "dl.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/opengl/glmenu.m: -------------------------------------------------------------------------------- 1 | #include "glmenu.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/opengl/glx_supp.h: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_prot.h" 3 | extern COMMAND_FUNC( do_render_to ); 4 | extern COMMAND_FUNC( do_set_fullscreen ); 5 | 6 | -------------------------------------------------------------------------------- /libsrc/opengl/glx_supp.m: -------------------------------------------------------------------------------- 1 | #include "glx_supp.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/opengl/stereo.h: -------------------------------------------------------------------------------- 1 | 2 | extern void 3 | -------------------------------------------------------------------------------- /libsrc/opengl/stereo.m: -------------------------------------------------------------------------------- 1 | #include "stereo.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/opengl/tests/dump_capabilities.scr: -------------------------------------------------------------------------------- 1 | 2 | Viewer v 400 400 3 | error_file caps 4 | gl 5 | verbose yes # will cause printing of gl extensions present 6 | window v 7 | exit 8 | 9 | -------------------------------------------------------------------------------- /libsrc/opengl/tests/simple_draw.scr: -------------------------------------------------------------------------------- 1 | # duplicate the opengl program in t.c for quip... 2 | #verbose yes 3 | 4 | < simple_draw.mac 5 | 6 | view quit 7 | If !viewer_exists(v) "Viewer v 600 600" 8 | 9 | #view displays quit quit 10 | # for macq because y coord is flipped!? 11 | Posn_Window v 200 200 12 | # for normal unix 13 | #Posn_Window v 200 100 14 | gl window v quit 15 | 16 | DrawQuad 17 | 18 | gl swap_buffers quit 19 | Pause 20 | 21 | Pause_If 22 | 23 | -------------------------------------------------------------------------------- /libsrc/parport/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/parport/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | all: libpport.a 3 | cp libpport.a ../../libs 4 | 5 | noinst_LIBRARIES = libpport.a 6 | 7 | libpport_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 8 | 9 | libpport_a_SOURCES = \ 10 | parport.c \ 11 | pp_menu.c 12 | 13 | #noinst_HEADERS = knox.h 14 | 15 | -------------------------------------------------------------------------------- /libsrc/parport/root_cmds.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | mknod /dev/parport0 c 99 0 4 | chmod 666 /dev/parport0 5 | 6 | -------------------------------------------------------------------------------- /libsrc/pic/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | all: libpic.a 3 | cp libpic.a ../../libs 4 | 5 | noinst_LIBRARIES = libpic.a 6 | 7 | libpic_a_CPPFLAGS = -I$(top_srcdir)/include -D_GNU_SOURCE -Wall -Wmissing-prototypes 8 | 9 | libpic_a_SOURCES = \ 10 | pic.c \ 11 | pic_tbl.c 12 | 13 | noinst_HEADERS = \ 14 | \ 15 | pic.h 16 | -------------------------------------------------------------------------------- /libsrc/pic/pic_tbl.c: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | 3 | #include "quip_prot.h" 4 | #include "pic.h" 5 | 6 | PIC_Cmd pic_tbl[N_PIC_CMDS] = { 7 | { PIC_RD_PGM, "R", "read program memory" }, 8 | { PIC_WR_PGM, "W", "read program memory" }, 9 | { PIC_RD_DATA, "r", "read data memory" }, 10 | { PIC_WR_DATA, "w", "read data memory" }, 11 | { PIC_RPT_VER, "v", "report firmware version" }, 12 | { PIC_SET_LED, "l", "set LED state" }, 13 | { PIC_GOTO, "g", "begin execution at new location" }, 14 | { PIC_ECHO, "e", "enable/disable command echo" }, 15 | }; 16 | 17 | -------------------------------------------------------------------------------- /libsrc/pic/tests/led8.scr: -------------------------------------------------------------------------------- 1 | # 2 | pic 3 | # debug pic 4 | device /dev/ttyS4 5 | led8 0 255 6 | led8 1 255 7 | led8 0 0 8 | led8 1 0 9 | quit 10 | exit 11 | 12 | Pause 13 | 14 | -------------------------------------------------------------------------------- /libsrc/pic/tests/meteor_record.scr: -------------------------------------------------------------------------------- 1 | # mmvi script to record a pic test 2 | # we run this on dirac... 3 | 4 | If $argc!=2 "error_exit 'usage: mmvi movie_name n_fields < r.scr'" 5 | 6 | movie 7 | control 8 | geometry 9 | field_mode yes 10 | quit 11 | quit 12 | assemble 13 | #advise "Type ^D to begin recording $2 fields to movie $1" 14 | #< /dev/tty 15 | date 16 | advise "Record $1 $2 BEGIN" 17 | record $1 $2 18 | date 19 | quit 20 | quit 21 | exit 22 | 23 | -------------------------------------------------------------------------------- /libsrc/pic/tests/sync_test.scr: -------------------------------------------------------------------------------- 1 | # sync test 2 | 3 | pic 4 | device /dev/ttyS4 5 | repeat 100 6 | read_mem 7 1 7 | end 8 | Pause 9 | 10 | -------------------------------------------------------------------------------- /libsrc/polhemus/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | testout 4 | .deps 5 | Makefile 6 | Makefile.in 7 | ioctl_polhemus.h 8 | 9 | -------------------------------------------------------------------------------- /libsrc/polhemus/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | all: libpolh.a 3 | cp libpolh.a ../../libs 4 | 5 | noinst_LIBRARIES = libpolh.a 6 | 7 | libpolh_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 8 | 9 | libpolh_a_SOURCES = polh_dev.c polh_err.c polh_func.c polh_menu.c polh_tbl.c acquire.c 10 | 11 | noinst_HEADERS = polh_dev.h 12 | 13 | -------------------------------------------------------------------------------- /libsrc/polhemus/README: -------------------------------------------------------------------------------- 1 | 2 | New modifications to talk to polhemus fasttrack in Ellis' lab, using 3 | usb serial port. Serial device is /dev/ttyUSB0. 4 | 5 | -------------------------------------------------------------------------------- /libsrc/polhemus/root_cmds.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | chmod 777 /dev/ttyUSB0 4 | 5 | -------------------------------------------------------------------------------- /libsrc/ports/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | logs 7 | 8 | -------------------------------------------------------------------------------- /libsrc/ports/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libports.a 2 | cp libports.a ../../libs 3 | 4 | noinst_LIBRARIES = libports.a 5 | 6 | libports_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | libports_a_SOURCES = \ 9 | client.c \ 10 | dataport.c \ 11 | packets.c \ 12 | portmenu.c \ 13 | ports.c \ 14 | server.c \ 15 | sockopts.c \ 16 | xmitrecv.c 17 | 18 | 19 | noinst_HEADERS = ports.h 20 | 21 | 22 | -------------------------------------------------------------------------------- /libsrc/ports/malloc_debug.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | setenv MallocScribble 1 4 | 5 | -------------------------------------------------------------------------------- /libsrc/ports/tests/client.scr: -------------------------------------------------------------------------------- 1 | 2 | < tests/test_params.scr 3 | 4 | ports 5 | advise "Attempting to connect to port $server_port_num on host $server_host" 6 | client client_mouth $server_host $server_port_num 7 | advise "Connected, sending message to server" 8 | xmit text client_mouth 'advise "Message received from client"' 9 | Pause 10 | -------------------------------------------------------------------------------- /libsrc/ports/tests/test_params.scr: -------------------------------------------------------------------------------- 1 | 2 | Set server_host patrolboat.arc.nasa.gov 3 | Set server_port_num 4040 4 | 5 | -------------------------------------------------------------------------------- /libsrc/ports/tests/test_server.scr: -------------------------------------------------------------------------------- 1 | 2 | < tests/test_params.scr # assume calling from parent directory... 3 | 4 | ports 5 | advise "Will listen on port $server_port_num" 6 | server server_ear $server_port_num 7 | advise "waiting for a connection..." 8 | connect server_ear 9 | advise Connected 10 | redir server_ear 11 | exit # never reached? 12 | 13 | 14 | -------------------------------------------------------------------------------- /libsrc/psych/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | *.dat 7 | test_xv.asc 8 | test_xvals 9 | expt_data.* 10 | foo* 11 | -------------------------------------------------------------------------------- /libsrc/psych/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libpsych.a 2 | cp libpsych.a ../../libs 3 | 4 | noinst_LIBRARIES = libpsych.a 5 | 6 | libpsych_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | libpsych_a_SOURCES = \ 9 | \ 10 | lookmenu.c \ 11 | mlfit.c lump.c \ 12 | stair.c \ 13 | asc_data.c \ 14 | weibull.c \ 15 | chngp_menu.c \ 16 | class_menu.c \ 17 | stc_menu.c \ 18 | exp_menu.c \ 19 | stc_util.c exp.c \ 20 | errbars.c stc_edit.c 21 | 22 | noinst_HEADERS = stc.h 23 | -------------------------------------------------------------------------------- /libsrc/psych/tests/clean.scr: -------------------------------------------------------------------------------- 1 | # test script to clean redo's and undo's 2 | 3 | experiments 4 | lookit 5 | read expt_data.5 6 | print_summary class1 7 | print_summary class2 8 | print_sequence 9 | clean_sequence 10 | print_sequence 11 | print_summary class1 12 | print_summary class2 13 | Pause 14 | quit 15 | quit 16 | exit 17 | 18 | -------------------------------------------------------------------------------- /libsrc/psych/tests/fit.scr: -------------------------------------------------------------------------------- 1 | experiments 2 | lookit 3 | read expt_data.5 4 | print_summary class1 5 | print_summary class2 6 | ogive 7 | 2afc no 8 | chance_rate 0.5 9 | analyse class1 10 | analyse class2 11 | quit 12 | Pause 13 | quit 14 | quit 15 | exit 16 | 17 | -------------------------------------------------------------------------------- /libsrc/psych/tests/foo_dribble1: -------------------------------------------------------------------------------- 1 | 1 classes, 21 x values 2 | 0 3 | -0.1 4 | -0.2 5 | -0.3 6 | -0.4 7 | -0.5 8 | -0.6 9 | -0.7 10 | -0.8 11 | -0.9 12 | -1 13 | -1.1 14 | -1.2 15 | -1.3 16 | -1.4 17 | -1.5 18 | -1.6 19 | -1.7 20 | -1.8 21 | -1.9 22 | -2 23 | Raw data 24 | 0 0 10 1 1 25 | 0 0 15 2 1 26 | 0 0 12 1 1 27 | 0 0 14 1 1 28 | 0 0 16 2 1 29 | 0 0 15 2 1 30 | 0 0 14 2 1 31 | 0 0 13 2 1 32 | 0 0 12 1 1 33 | 0 0 13 1 1 34 | 0 0 14 1 1 35 | 0 0 15 1 1 36 | 0 0 16 2 1 37 | 0 0 15 2 1 38 | 0 0 14 2 1 39 | 0 0 13 1 1 40 | 0 0 14 1 1 41 | 0 0 15 2 1 42 | 0 0 14 1 1 43 | 0 0 15 2 1 44 | -------------------------------------------------------------------------------- /libsrc/psych/tests/foo_summ1: -------------------------------------------------------------------------------- 1 | 1 classes, 21 x values 2 | 0 3 | -0.1 4 | -0.2 5 | -0.3 6 | -0.4 7 | -0.5 8 | -0.6 9 | -0.7 10 | -0.8 11 | -0.9 12 | -1 13 | -1.1 14 | -1.2 15 | -1.3 16 | -1.4 17 | -1.5 18 | -1.6 19 | -1.7 20 | -1.8 21 | -1.9 22 | -2 23 | Summary data 24 | Trial_Class 0, 6 data points 25 | 10 1 1 26 | 12 2 2 27 | 13 3 2 28 | 14 5 3 29 | 15 6 2 30 | 16 3 0 31 | -------------------------------------------------------------------------------- /libsrc/psych/tests/test_fit.scr: -------------------------------------------------------------------------------- 1 | 2 | experiments 3 | lookit 4 | read foo_dribble1 5 | print class0 6 | ogive 7 | analyse class0 8 | Pause 9 | -------------------------------------------------------------------------------- /libsrc/psych/tests/test_run.scr: -------------------------------------------------------------------------------- 1 | #max_warnings 2 2 | 3 | Define Trial1 0 4 | advise "Trial1 xval = $xval class = $class" 5 | . 6 | 7 | experiments 8 | xvals 9 | n_vals 21 10 | range 0 -2 11 | advise "x value range set" 12 | step_type linear 13 | advise "x value step type set" 14 | save /dev/tty 15 | quit 16 | classes 17 | new class1 Trial1 18 | quit 19 | Set response_string "x value greater than -1.4" 20 | present class1 0 21 | staircases 22 | change n_updn 1 23 | change n_data 20 24 | quit 25 | # run foo_summ1 26 | dribble yes 27 | run foo_dribble1 28 | Pause 29 | -------------------------------------------------------------------------------- /libsrc/psych/tests/xv.scr: -------------------------------------------------------------------------------- 1 | 2 | Define Synth_Xvals 0 3 | experiments 4 | xvals 5 | range 0 1 6 | n_vals 21 7 | step_type linear 8 | save test_xv.asc 9 | quit 10 | quit 11 | . 12 | 13 | Define Load_Stored_Xvals 1 filename 14 | If !file_exists('$1') "warn 'File $1 does not exist!?' exit_macro" 15 | experiments 16 | xvals 17 | load $1 18 | quit 19 | quit 20 | . 21 | 22 | #Load_Stored_Xvals test_xv.asc 23 | 24 | Synth_Xvals 25 | 26 | 27 | 28 | -------------------------------------------------------------------------------- /libsrc/ptgrey/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/ptgrey/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libpgr.a 2 | cp libpgr.a ../../libs 3 | noinst_LIBRARIES = libpgr.a 4 | 5 | libpgr_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 6 | 7 | libpgr_a_SOURCES = pgr_menu.c pgr.c cam_ctl.c 8 | 9 | noinst_HEADERS = pgr.h 10 | 11 | -------------------------------------------------------------------------------- /libsrc/ptgrey/README: -------------------------------------------------------------------------------- 1 | This library contains an interface based on libdc1394 - ptgrey is a bit of a misnomer. 2 | 3 | what is the module that needs to be loaded? 4 | The following would seem to be the answer for linux, but what about mac? 5 | 6 | modprobe firewire-ohci 7 | chmod 666 /dev/fw* 8 | 9 | -------------------------------------------------------------------------------- /libsrc/rawvol/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/rawvol/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | all: librawvol.a 3 | cp librawvol.a ../../libs 4 | 5 | noinst_LIBRARIES = librawvol.a 6 | 7 | librawvol_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes -D_LARGEFILE64_SOURCE 8 | 9 | librawvol_a_SOURCES = rvmenu.c rawvol.c llseek.c getsize.c rawvol_player.c 10 | 11 | #noinst_HEADERS = llseek.h rawvol.h off64_t.h 12 | noinst_HEADERS = rawvol.h 13 | 14 | -------------------------------------------------------------------------------- /libsrc/rawvol/README: -------------------------------------------------------------------------------- 1 | Test disk speed using the sio test program in the 'tests' subdir 2 | 3 | -------------------------------------------------------------------------------- /libsrc/rawvol/expand_macros.csh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | 3 | ###!/bin/csh 4 | 5 | # bash variable set 6 | input_file=rawvol.c 7 | 8 | cc -E -I../../include -I../.. $input_file > foo.c 9 | 10 | # this works on MBP but non on mac mini??? 11 | grep -v '# ' foo.c | sed 's/{/\'$'\n{/g' | sed 's/{/{\'$'\n/g' | sed 's/}/\'$'\n}/g' | sed 's/}/}\'$'\n/g' | sed 's/;/;\'$'\n/g' > foo2.c 12 | 13 | # csh-ism 14 | #cc -c foo2.c | & more 15 | # bash-ism 16 | cc -c foo2.c | more 2>&1 17 | 18 | -------------------------------------------------------------------------------- /libsrc/rawvol/scripts/ardent.scr: -------------------------------------------------------------------------------- 1 | # new craik CentOS 7, two drives 2 | # /dev/sdb /dev/sdc 3 | 4 | rawvol 5 | admin 6 | # mkfs 2 /dev/rawvol-disk1 /dev/rawvol-disk2 1024 1024 7 | # mkfs 1 /dev/sdb1 1024 1024 8 | mkfs 3 /dev/sdb1 /dev/sdc1 /dev/sdd1 1024 1024 9 | quit 10 | quit 11 | 12 | exit 13 | 14 | -------------------------------------------------------------------------------- /libsrc/rawvol/scripts/craik.scr: -------------------------------------------------------------------------------- 1 | # new craik CentOS 7, two drives 2 | # /dev/sdb /dev/sdc 3 | 4 | rawvol 5 | admin 6 | # mkfs 2 /dev/rawvol-disk1 /dev/rawvol-disk2 1024 1024 7 | mkfs 2 /dev/sdb1 /dev/sdc1 1024 1024 8 | quit 9 | quit 10 | 11 | exit 12 | 13 | -------------------------------------------------------------------------------- /libsrc/rawvol/scripts/euler.scr: -------------------------------------------------------------------------------- 1 | # set up the raw volume on euler 2 | # /dev/sdb /dev/sdc /dev/sdd 3 | 4 | rawvol 5 | admin 6 | # mkfs 2 /dev/rawvol-disk1 /dev/rawvol-disk2 1024 1024 7 | mkfs 3 /dev/sdb1 /dev/sdc1 /dev/sdd1 1024 1024 8 | quit 9 | quit 10 | 11 | exit 12 | 13 | -------------------------------------------------------------------------------- /libsrc/rawvol/scripts/patrolboat.scr: -------------------------------------------------------------------------------- 1 | # set up the raw volume on poisson 2 | # /dev/sdb /dev/sdc 3 | 4 | rawvol 5 | admin 6 | # mkfs 2 /dev/rawvol-disk1 /dev/rawvol-disk2 1024 1024 7 | mkfs 2 /dev/sdb1 /dev/sdc1 1024 1024 8 | quit 9 | quit 10 | 11 | exit 12 | 13 | -------------------------------------------------------------------------------- /libsrc/rawvol/scripts/poisson.scr: -------------------------------------------------------------------------------- 1 | # set up the raw volume on poisson 2 | # /dev/sdb /dev/sdc 3 | 4 | rawvol 5 | admin 6 | mkfs 2 /dev/rawvol-disk1 /dev/rawvol-disk2 1024 1024 7 | quit 8 | quit 9 | 10 | exit 11 | 12 | -------------------------------------------------------------------------------- /libsrc/rawvol/test_disk.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | # 3 | # Permissions seem to change on CentOS 6!? 4 | 5 | set f=/dev/sdb1 6 | #sudo chmod 666 $f 7 | ls -l $f 8 | getfacl $f 9 | dd if=$f of=blk0 bs=1024 count=2 10 | ls -l blk0 11 | 12 | echo 'After reading...' 13 | ls -l $f 14 | echo ' ' 15 | getfacl $f 16 | echo ' ' 17 | 18 | # permissions only change after a write! 19 | dd if=blk0 of=$f bs=1024 count=2 20 | 21 | echo 'After writing...' 22 | ls -l $f 23 | echo ' ' 24 | getfacl $f 25 | echo ' ' 26 | 27 | sleep 1 28 | 29 | echo 'After sleeping...' 30 | ls -l $f 31 | echo ' ' 32 | getfacl $f 33 | echo ' ' 34 | 35 | 36 | -------------------------------------------------------------------------------- /libsrc/rawvol/tests/.gitignore: -------------------------------------------------------------------------------- 1 | sio 2 | 3 | -------------------------------------------------------------------------------- /libsrc/rawvol/tests/build_sio.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | gcc -c sio.c 3 | gcc -o sio sio.o 4 | 5 | -------------------------------------------------------------------------------- /libsrc/seq/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | seqparse.c 7 | 8 | -------------------------------------------------------------------------------- /libsrc/seq/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libseq.a 2 | cp libseq.a ../../libs 3 | 4 | noinst_LIBRARIES = libseq.a 5 | 6 | libseq_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | # How to specify seqparse.c built from seqparse.y??? 9 | libseq_a_SOURCES = \ 10 | \ 11 | seqparse.y \ 12 | seqparse.c \ 13 | seqprint.c \ 14 | seqmenu.c 15 | 16 | 17 | #noinst_HEADERS = \ 18 | # seq.h 19 | 20 | -------------------------------------------------------------------------------- /libsrc/sound/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/sound/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libsound.a 2 | cp libsound.a ../../libs 3 | 4 | noinst_LIBRARIES = libsound.a 5 | 6 | libsound_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | libsound_a_SOURCES = soundmenu.c alert.c alsa.c alsa_input.c no_sound.c pa_sound.c pa_input.c 9 | 10 | noinst_HEADERS = sound.h 11 | 12 | 13 | #ALSA_OFILES= alsa.o alsa_input.o 14 | #OSS_OFILES= oss_sound.o 15 | #OFILES= soundmenu.o alert.o $(ALSA_OFILES) $(OSS_OFILES) 16 | -------------------------------------------------------------------------------- /libsrc/sound/README: -------------------------------------------------------------------------------- 1 | Folder on laptop for mac sound headers: 2 | 3 | /Applications/Xcode4.6.3.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX10.8.sdk/System/Library/Frameworks/CoreAudio.framework/Versions/A/Headers 4 | 5 | 6 | -------------------------------------------------------------------------------- /libsrc/sound/alert.c: -------------------------------------------------------------------------------- 1 | /* we might like to give audio warnings... */ 2 | 3 | #include "quip_config.h" 4 | 5 | //#ifdef HAVE_SOUND 6 | 7 | #include "quip_prot.h" 8 | #include "data_obj.h" 9 | #include "sound.h" 10 | 11 | static Data_Obj *warning_dp=NULL; 12 | 13 | static void audio_warn(QSP_ARG_DECL const char *s) 14 | { 15 | tty_warn(s); 16 | if( warning_dp != NULL ) 17 | play_sound(warning_dp); 18 | } 19 | 20 | void use_audio_warning(QSP_ARG_DECL Data_Obj *dp) 21 | { 22 | set_warn_func(audio_warn); 23 | warning_dp = dp; 24 | } 25 | 26 | //#endif /* HAVE_SOUND */ 27 | 28 | -------------------------------------------------------------------------------- /libsrc/sound/tests/button-09.wav: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/libsrc/sound/tests/button-09.wav -------------------------------------------------------------------------------- /libsrc/spinnaker/.gitignore: -------------------------------------------------------------------------------- 1 | bin 2 | 3 | -------------------------------------------------------------------------------- /libsrc/spinnaker/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libspink.a 2 | cp libspink.a ../../libs 3 | noinst_LIBRARIES = libspink.a 4 | 5 | libspink_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 6 | 7 | # spink_cam_ctl.c 8 | libspink_a_SOURCES = cam_expr.c spink_menu.c stream_spink.c spink_util.c spink_enum.c spink_node_map.c spink_acq.c spink_funcs.c 9 | 10 | noinst_HEADERS = spink.h spink_funcs.h 11 | 12 | test: spink_enum.o spink_test.o 13 | $(CC) -o test spink_test.o spink_enum.o -lSpinnaker_C 14 | 15 | -------------------------------------------------------------------------------- /libsrc/spinnaker/README: -------------------------------------------------------------------------------- 1 | Support for FLIR Imaging (formerly Point Grey Research) spinnaker camera library. 2 | This library supercedes the flycapture2 library for USB3 and GigE cameras. 3 | 4 | -------------------------------------------------------------------------------- /libsrc/spinnaker/README.docker: -------------------------------------------------------------------------------- 1 | 2 | System changes made in the docker system will not be persistent unless 3 | the following command is run: 4 | 5 | % docker ps 6 | CONTAINER ID IMAGE COMMAND CREATED STATUS PORTS NAMES 7 | 95240194b6f0 ubuntu/jeffflycapture18 "bash" 3 minutes ago Up 3 minutes romantic_ride 8 | 9 | % docker commit 95240194b6f0 ubuntu/jeffflycapture18 10 | 11 | 12 | -------------------------------------------------------------------------------- /libsrc/spinnaker/build.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | gcc -I/usr/include/spinnaker/spinc -c example.c 4 | gcc -o ./test example.o -lSpinnaker_C 5 | 6 | -------------------------------------------------------------------------------- /libsrc/spinnaker/cut_it.sed: -------------------------------------------------------------------------------- 1 | #!sed -f 2 | 3 | s/,[a-zA-Z0-9,_* ]*)// 4 | 5 | -------------------------------------------------------------------------------- /libsrc/spinnaker/index_from_wrappers.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | set input=spink_wrappers.c 4 | 5 | grep WRAPPER $input | grep -v '//' | sed -e 's/SPINK_WRAPPER_[ONETWHR]*_ARG(//' | \ 6 | sed -e 's/,/ /' | sed -f cut_it.sed | sort > new_index 7 | 8 | #head -10 new_index 9 | #more new_index 10 | 11 | cat new_index > function_index 12 | 13 | cat new_index | dm s2 s1 | sort >> function_index 14 | 15 | 16 | 17 | -------------------------------------------------------------------------------- /libsrc/spinnaker/nodes.scr: -------------------------------------------------------------------------------- 1 | 2 | spinnaker 3 | init 4 | quit 5 | 6 | Define Dump_Map 1 map_name 7 | spinnaker 8 | nodes 9 | select_map $1 10 | info_all 11 | quit 12 | quit 13 | . 14 | 15 | Dump_Map Blackfly_S_BFS-U3-13Y3M.device_TL 16 | Dump_Map Blackfly_S_BFS-U3-13Y3M.genicam 17 | Dump_Map Blackfly_S_BFS-U3-13Y3M.stream_TL 18 | Dump_Map Flea3_FL3-U3-13Y3M.device_TL 19 | Dump_Map Flea3_FL3-U3-13Y3M.genicam 20 | Dump_Map Flea3_FL3-U3-13Y3M.stream_TL 21 | 22 | exit 23 | 24 | -------------------------------------------------------------------------------- /libsrc/spinnaker/tests/blackfly.mac: -------------------------------------------------------------------------------- 1 | Define Init_Chunk_Data 1 camera_name 2 | spinnaker 3 | select $1 4 | nodes 5 | select_map $1.genicam 6 | quit 7 | chunks 8 | enable Timestamp 9 | enable FrameID 10 | quit 11 | nodes 12 | set ChunkSelector Timestamp 13 | advise "Showing enable state for Timestamp chunk:" 14 | terse_info ChunkEnable 15 | set ChunkSelector FrameID 16 | advise "Showing enable state for FrameID chunk:" 17 | terse_info ChunkEnable 18 | quit 19 | quit 20 | . 21 | 22 | -------------------------------------------------------------------------------- /libsrc/spinnaker/tests/flea3.mac: -------------------------------------------------------------------------------- 1 | Define Init_Chunk_Data 1 camera_name 2 | spinnaker 3 | select $1 4 | nodes 5 | select_map $1.genicam 6 | quit 7 | chunks 8 | # enable Timestamp # flea3 doesn't have ability to timestamp frames!? 9 | enable FrameCounter 10 | Pause 11 | quit 12 | nodes 13 | set ChunkSelector FrameCounter 14 | advise "Showing enable state for FrameCounter chunk:" 15 | terse_info ChunkEnable 16 | quit 17 | quit 18 | . 19 | 20 | 21 | -------------------------------------------------------------------------------- /libsrc/spinnaker/tests/nodes.scr: -------------------------------------------------------------------------------- 1 | 2 | spinnaker 3 | init 4 | quit 5 | 6 | Define Dump_Map 1 map_name 7 | spinnaker 8 | nodes 9 | select_map $1 10 | info_all 11 | quit 12 | quit 13 | . 14 | 15 | Set cam0 Blackfly_S_BFS-U3-13Y3M 16 | Set cam1 Blackfly_S_BFS-U3-13Y3M_2 17 | 18 | Set cam_idx 0 19 | repeat 2 20 | Set cam_name cam$cam_idx 21 | Dump_Map $$cam_name.device_TL 22 | Dump_Map $$cam_name.genicam 23 | Dump_Map $$cam_name.stream_TL 24 | Increment cam_idx 25 | end 26 | 27 | exit 28 | 29 | -------------------------------------------------------------------------------- /libsrc/spinnaker/tests/test_flea3.scr: -------------------------------------------------------------------------------- 1 | max_warnings 3 2 | 3 | < $macro_dir/system/mark_time.mac 4 | < utils.mac 5 | < flea3.mac 6 | 7 | Set cam0 Flea3_FL3-U3-13Y3M 8 | 9 | Init_Cameras 10 | 11 | Init_Flea3 12 | 13 | Test_Grab $cam0 14 | 15 | advise "Ready to exit program..." 16 | Pause 17 | exit 18 | 19 | 20 | -------------------------------------------------------------------------------- /libsrc/unix/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/unix/my_stty.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | extern void set_stty_fd(int); 5 | 6 | -------------------------------------------------------------------------------- /libsrc/unix/stamps.h: -------------------------------------------------------------------------------- 1 | 2 | #ifdef HAVE_SYS_TIME_H 3 | #include 4 | #endif /* HAVE_SYS_TIME_H */ 5 | 6 | #include "quip_prot.h" 7 | 8 | typedef struct stamped_char { 9 | struct timeval sc_tv; 10 | int sc_n; 11 | char * sc_buf; 12 | } Stamped_Char; 13 | 14 | extern COMMAND_FUNC( stamp_menu ); 15 | 16 | -------------------------------------------------------------------------------- /libsrc/unix/unix_prot.h: -------------------------------------------------------------------------------- 1 | #ifndef _UNIX_PROT_H_ 2 | #define _UNIX_PROT_H_ 3 | 4 | #include "quip_fwd.h" 5 | 6 | extern COMMAND_FUNC( do_sched_menu ); 7 | 8 | #endif /* ! _UNIX_PROT_H_ */ 9 | 10 | -------------------------------------------------------------------------------- /libsrc/usb2000/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/usb2000/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | noinst_LIBRARIES = libusb2000.a 3 | 4 | libusb2000_a_CPPFLAGS = -I$(top_srcdir)/include -D_GNU_SOURCE -Wall -Wmissing-prototypes 5 | 6 | libusb2000_a_SOURCES = \ 7 | usb_menu.c \ 8 | usb2000.c \ 9 | usb_funcs.c \ 10 | tty_funcs.c 11 | 12 | noinst_HEADERS = usb2000.h 13 | 14 | -------------------------------------------------------------------------------- /libsrc/v4l2/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/v4l2/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libvmenu.a 2 | cp libvmenu.a ../../libs 3 | 4 | noinst_LIBRARIES = libvmenu.a 5 | 6 | libvmenu_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | libvmenu_a_SOURCES = vmenu.c ezstream.c fastdown.c flow.c vmodule.c 9 | 10 | noinst_HEADERS = my_v4l2.h \ 11 | my_video_dev.h \ 12 | vmvi.h \ 13 | thread_util.h 14 | 15 | # stream.c 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /libsrc/v4l2/root_cmds.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | if( ! -e /dev/video0 ) then 4 | echo Error: /dev/video0 does not exist. 5 | exit 6 | endif 7 | 8 | # We are using four-channel cards, so normally 9 | # the devices will be 0-3 10 | chmod 666 /dev/video? 11 | 12 | # OLD: 13 | ## commands to create the /dev files 14 | ## Apparently the dev files are created 15 | ## automatically when the proper driver 16 | ## (saa7134) is loaded! 17 | # 18 | #mknod /dev/video0 c 81 0 19 | #chmod 666 /dev/video0 20 | 21 | -------------------------------------------------------------------------------- /libsrc/v4l2/tests/field_mode.scr: -------------------------------------------------------------------------------- 1 | # test of different buffering options. 2 | 3 | If $argc!=1 "error_exit 'usage: quip video_dev_idx < buf.scr'" 4 | 5 | Set device_idx $1 6 | 7 | max_warnings 10 8 | 9 | Set devname /dev/video$device_idx 10 | Set ready_name n_ready.$devname 11 | Set newest_name newest.$devname 12 | Set oldest_name oldest.$devname 13 | 14 | v4l2 15 | open $devname 16 | advise "first device opened" 17 | standards set_standard NTSC quit 18 | format gray 19 | field_mode alternate 20 | set_n_buffers 10 21 | quit 22 | data 23 | info /dev/video$1.buffer0 24 | Pause 25 | 26 | exit 27 | 28 | -------------------------------------------------------------------------------- /libsrc/v4l2/tests/record_test1.scr: -------------------------------------------------------------------------------- 1 | # 2 | # test of rawvol disk recording 3 | # 4 | 5 | Set d /dev/video3 6 | 7 | rawvol default quit 8 | 9 | Set n_rec 240 10 | 11 | #fileio rawvol volume /dev/sdb1 quit quit 12 | 13 | v4l2 14 | open $d 15 | stream 16 | advise "recording $n_rec frames..." 17 | date 18 | record foo $n_rec 1 $d 19 | date 20 | 21 | Pause 22 | 23 | -------------------------------------------------------------------------------- /libsrc/v4l2/tests/xscr: -------------------------------------------------------------------------------- 1 | v4l2 2 | ? 3 | open 4 | /dev/video0 5 | ? 6 | list 7 | quit 8 | quit 9 | -------------------------------------------------------------------------------- /libsrc/v4l2/thread_util.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | #ifdef ALLOW_RT_SCHED 4 | extern int rt_is_on; 5 | #define YIELD_PROC(time) { if( rt_is_on ) sched_yield(); else usleep(time); } 6 | #else /* ! ALLOW_RT_SCHED */ 7 | #define YIELD_PROC(time) usleep(time); 8 | #endif /* ALLOW_RT_SCHED */ 9 | 10 | 11 | -------------------------------------------------------------------------------- /libsrc/vec_util/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/vec_util/ggem.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | /* prototypes for routines hacked from graphics gems */ 4 | 5 | #include "data_obj.h" 6 | 7 | extern void ggem_fill(QSP_ARG_DECL int x,int y,int width,int height,int nv,int tolerance); 8 | extern void gen_fill(incr_t x,incr_t y,Data_Obj *dp,int (*inside_func)(long,long), 9 | void (*fill_func)(long,long) ); 10 | 11 | -------------------------------------------------------------------------------- /libsrc/vec_util/tests/enlarge.scr: -------------------------------------------------------------------------------- 1 | 2 | Set small_w 2 3 | Set small_h 3 4 | #Set large_w 8 5 | Set large_w 2 6 | Set large_h 6 7 | 8 | #platforms 9 | # select $DEFAULT_PLATFORM $DEFAULT_GPU 10 | # quit 11 | 12 | Image small $small_h $small_w 1 float 13 | Image large $large_h $large_w 1 float 14 | 15 | Ramp2D small 0 1 10 16 | Display small 17 | 18 | #debug veclib 19 | Enlarge large small 20 | Display large 21 | 22 | exit 23 | 24 | -------------------------------------------------------------------------------- /libsrc/veclib/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | t.scr 5 | testout 6 | output 7 | foo*.* 8 | Makefile 9 | Makefile.in 10 | vectbl.debug 11 | junk 12 | tests/*.broken 13 | 14 | -------------------------------------------------------------------------------- /libsrc/veclib/README: -------------------------------------------------------------------------------- 1 | 2 | What is the idea of MIXED args? 3 | 4 | We can mix real and complex, and also different precisions... 5 | But currently we can't mix source precisions, only source and destination. 6 | 7 | 8 | -------------------------------------------------------------------------------- /libsrc/veclib/expand_macros.csh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | 3 | ###!/bin/csh 4 | 5 | # bash variable set 6 | input_file=spdp_funcs.c 7 | 8 | cc -E -I../../include -I../.. $input_file > foo.c 9 | 10 | # this works on MBP but non on mac mini??? 11 | grep -v '# ' foo.c | sed 's/{/\'$'\n{/g' | sed 's/{/{\'$'\n/g' | sed 's/}/\'$'\n}/g' | sed 's/}/}\'$'\n/g' | sed 's/;/;\'$'\n/g' > foo2.c 12 | 13 | # csh-ism 14 | #cc -c foo2.m | & more 15 | # bash-ism 16 | cc -Wall -g -c foo2.c | more 2>&1 17 | 18 | -------------------------------------------------------------------------------- /libsrc/veclib/make_debug.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | gcc -DHAVE_CONFIG_H -I. -I../.. -I../../include -D_GNU_SOURCE -Wall -Wmissing-prototypes -I/sw/include -I/usr/X11/include -I/sw/include -I/common/inc -I/usr/local/include -g -MT libvec_a-vectbl.o -MD -MP -MF .deps/libvec_a-vectbl.Tpo -E `test -f 'vectbl.c' || echo './'`vectbl.c | indent > vectbl.debug 3 | 4 | -------------------------------------------------------------------------------- /libsrc/veclib/os_check.h: -------------------------------------------------------------------------------- 1 | 2 | extern int os_supports_mmx(void); 3 | 4 | -------------------------------------------------------------------------------- /libsrc/veclib/platform.m: -------------------------------------------------------------------------------- 1 | #include "platform.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/veclib/platform_menu.m: -------------------------------------------------------------------------------- 1 | #include "platform_menu.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/veclib/tests/bad_arg.scr: -------------------------------------------------------------------------------- 1 | 2 | Image x 4 4 1 float 3 | Vector v 4 1 float 4 | 5 | VSet x 2 6 | VSet v 1 7 | 8 | # when we provide a bad index, a null object should result? 9 | VSAdd v x[6] 2 10 | VSAdd x[6] v 2 11 | 12 | VVAdd x[6] v v 13 | VVAdd v x[6] v 14 | VVAdd v v x[6] 15 | 16 | exit 17 | 18 | -------------------------------------------------------------------------------- /libsrc/veclib/tests/mismatch.scr: -------------------------------------------------------------------------------- 1 | 2 | # We should test this under opencl and cuda also... 3 | 4 | Vector v 8 1 float 5 | Vector w 8 1 float 6 | Vector d 8 1 double 7 | 8 | Ramp1D v 0 1 9 | 10 | #VSMul v d 2 # error caught 11 | Display v 12 | VSet d -1 13 | Display d 14 | 15 | VSMul d v 2 # not an error because spdp is an allowed mixed precision... 16 | 17 | Display d 18 | 19 | # But what about atan2??? 20 | 21 | advise "w and d should be the same..." 22 | VSAtan2 w v 1 23 | Display w 24 | VSAtan2 d v 1 25 | Display d 26 | 27 | 28 | -------------------------------------------------------------------------------- /libsrc/veclib/vec_func.c: -------------------------------------------------------------------------------- 1 | 2 | /* Public data structures */ 3 | 4 | #include "quip_config.h" 5 | #include "quip_prot.h" 6 | #include "veclib/vec_func.h" 7 | #include "item_type.h" 8 | #include "veclib_prot.h" 9 | 10 | //static NSMutableDictionary *vf_dict=NULL; 11 | 12 | void declare_vector_functions(void) 13 | { 14 | // In objective C, we create the functions programmatically, 15 | // but in std C we have the in a table. 16 | 17 | // nop 18 | } 19 | 20 | -------------------------------------------------------------------------------- /libsrc/veclib/veclib_prot.h: -------------------------------------------------------------------------------- 1 | //#include "quip_config.h" 2 | #include "veclib/vecgen.h" 3 | 4 | extern COMMAND_FUNC(do_comp_menu); 5 | 6 | extern void declare_vector_functions(void); 7 | 8 | extern void unity(Data_Obj *mp); 9 | extern void newmtrx(QSP_ARG_DECL const char *s,int dim); 10 | 11 | -------------------------------------------------------------------------------- /libsrc/veclib2/.gitignore: -------------------------------------------------------------------------------- 1 | .deps 2 | *.o 3 | *.a 4 | *.debug 5 | *.noindent 6 | old*.h 7 | junk 8 | *.bak 9 | *_expanded.c 10 | derrs 11 | 12 | -------------------------------------------------------------------------------- /libsrc/veclib2/fast_sp.h: -------------------------------------------------------------------------------- 1 | 2 | extern void _simd_vvadd( float *, float *, float *, unsigned long ); 3 | extern void _simd_vvsub( float *, float *, float *, unsigned long ); 4 | extern void _simd_vvmax( float *, float *, float *, unsigned long ); 5 | extern void _simd_vvmin( float *, float *, float *, unsigned long ); 6 | 7 | extern void _simd_vsadd( float *, float *, float *, unsigned long ); 8 | extern void _simd_vssub( float *, float *, float *, unsigned long ); 9 | extern void _simd_vsmax( float *, float *, float *, unsigned long ); 10 | extern void _simd_vsmin( float *, float *, float *, unsigned long ); 11 | 12 | -------------------------------------------------------------------------------- /libsrc/veclib2/k1.cl.h: -------------------------------------------------------------------------------- 1 | 2 | // what needs to go here? 3 | 4 | extern void square_kernel( cl_ndrange *, cl_float *, cl_float *); 5 | 6 | 7 | -------------------------------------------------------------------------------- /libsrc/veclib2/kern_src.c: -------------------------------------------------------------------------------- 1 | 2 | #include "kern_src.h" 3 | 4 | Kern_Func_Src kern_src_tbl[]={ 5 | 6 | #include "veclib/all_vec.c" 7 | 8 | }; 9 | 10 | -------------------------------------------------------------------------------- /libsrc/veclib2/simd_funcs.c: -------------------------------------------------------------------------------- 1 | 2 | SIMD_VEC_FUNC_3(rvadd,+) 3 | SIMD_VEC_FUNC_3(rvsub,-) 4 | SIMD_VEC_FUNC_3(rvmul,*) 5 | SIMD_VEC_FUNC_3(rvdiv,/) 6 | 7 | SIMD_VEC_FUNC_1S_2(rvsadd,+) 8 | SIMD_VEC_FUNC_1S_2(rvssub,-) 9 | SIMD_VEC_FUNC_1S_2(rvsmul,*) 10 | SIMD_VEC_FUNC_1S_2(rvsdiv,/) 11 | SIMD_VEC_FUNC_1S_1(rvset) 12 | 13 | SIMD_VEC_FUNC_1S_2_V2(rvssub2,-) 14 | SIMD_VEC_FUNC_1S_2_V2(rvsdiv2,/) 15 | 16 | SIMD_VEC_FUNC_2(rvmov) 17 | 18 | -------------------------------------------------------------------------------- /libsrc/veclib2/test.c: -------------------------------------------------------------------------------- 1 | 2 | main(int ac, char **av) 3 | { 4 | cl_uint num = 0; 5 | 6 | clGetDeviceIDs(NULL,CL_DEVICE_TYPE_GPU,0,NULL,&num); 7 | 8 | cl_device_id devices[num]; 9 | 10 | clGetDeviceIDs(NULL,CL_DEVICE_TYPE_GPU,num,devices,NULL); 11 | 12 | 13 | 14 | cl_context ctx = clCreateContext(NULL,num,devices,NULL,NULL,NULL); 15 | } 16 | 17 | -------------------------------------------------------------------------------- /libsrc/veclib2/tests/cvsadd.scr: -------------------------------------------------------------------------------- 1 | # test of complex vector-scalar func 2 | 3 | Vector c 4 1 complex 4 | data ascii read c - 5 | 1 2 6 | 3 4 7 | 5 6 8 | 7 8 9 | quit quit 10 | Display c 11 | 12 | compute 13 | svector 14 | add c c 10 100 15 | quit quit 16 | advise "after adding 10 + i 100" 17 | Display c 18 | Pause 19 | 20 | -------------------------------------------------------------------------------- /libsrc/veclib2/tests/inner.scr: -------------------------------------------------------------------------------- 1 | 2 | Vector v1 8 3 float 3 | Vector v2 8 3 float 4 | 5 | data ascii read mat - 6 | 1 0 0 7 | 0 2 0 8 | 0 0 3 9 | quit quit 10 | 11 | Display mat 12 | 13 | Ramp1D v1{0} 0 1 14 | VMov v1{1} v1{0} 15 | VMov v1{2} v1{0} 16 | Display v1 17 | Display mat 18 | 19 | compute 20 | linear 21 | Pause 22 | quit 23 | quit 24 | 25 | 26 | 27 | -------------------------------------------------------------------------------- /libsrc/veclib2/tests/lxform.scr: -------------------------------------------------------------------------------- 1 | 2 | Image mat 3 3 1 float 3 | Vector v1 8 3 float 4 | Vector v2 8 3 float 5 | 6 | data ascii read mat - 7 | 1 0 0 8 | 0 2 0 9 | 0 0 3 10 | quit quit 11 | Display mat 12 | 13 | Ramp1D v1{0} 0 1 14 | VMov v1{1} v1{0} 15 | VMov v1{2} v1{0} 16 | Display v1 17 | Display mat 18 | 19 | compute 20 | linear 21 | lxform v2 v1 mat 22 | quit 23 | quit 24 | Display v2 25 | 26 | Image cmat 3 3 1 complex 27 | Image c1 8 3 1 complex 28 | Image c2 8 3 1 complex 29 | 30 | compute 31 | linear 32 | lxform c2 c1 cmat 33 | quit 34 | quit 35 | 36 | exit 37 | 38 | 39 | 40 | 41 | -------------------------------------------------------------------------------- /libsrc/veclib2/tests/mismatch.scr: -------------------------------------------------------------------------------- 1 | 2 | # We should test this under opencl and cuda also... 3 | 4 | Vector v 8 1 float 5 | Vector w 8 1 float 6 | Vector d 8 1 double 7 | 8 | Ramp1D v 0 1 9 | 10 | #VSMul v d 2 # error caught 11 | Display v 12 | VSet d -1 13 | Display d 14 | 15 | VSMul d v 2 # not an error because spdp is an allowed mixed precision... 16 | 17 | Display d 18 | 19 | # But what about atan2??? 20 | 21 | advise "w and d should be the same..." 22 | VSAtan2 w v 1 23 | Display w 24 | VSAtan2 d v 1 25 | Display d 26 | 27 | 28 | -------------------------------------------------------------------------------- /libsrc/veclib2/tests/spdp.scr: -------------------------------------------------------------------------------- 1 | # test mixed mode 2 | 3 | Vector d 8 1 double 4 | Vector f 8 1 float 5 | Vector g 8 1 float 6 | Ramp1D f 0 1 7 | VSet d -1 8 | 9 | advise "Initializing f with ramp, and d with -1..." 10 | Display f 11 | Display d 12 | 13 | VSAdd d f 10 14 | advise "d = f + 10" 15 | Display d 16 | 17 | 18 | VSAtan2 g f 2 19 | advise "g = atan2(f,2)" 20 | Display g 21 | 22 | VSAtan2 d f 2 23 | advise "d = atan2(f,2)" 24 | Display d 25 | 26 | exit 27 | 28 | -------------------------------------------------------------------------------- /libsrc/veclib2/tests/vdot.scr: -------------------------------------------------------------------------------- 1 | 2 | Set n 4 3 | Set nr 3 4 | Vector a $n 1 float 5 | Image b $nr $n 1 float 6 | Column c $nr 1 float 7 | Ramp1D a 0 1 8 | VSAdd b[0] a 2 9 | VSAdd b[1] a 3 10 | VSAdd b[2] a 4 11 | Display a 12 | Display b 13 | veclib execute vdot c a b quit 14 | Display c 15 | 16 | exit 17 | 18 | -------------------------------------------------------------------------------- /libsrc/veclib2/tests/vmagsq.scr: -------------------------------------------------------------------------------- 1 | Vector c 4 1 complex 2 | Vector m 4 1 float 3 | Vector m2 4 2 float 4 | data ascii read c - 5 | 0 1 6 | 2 0 7 | 3 3 8 | -1 1 9 | quit quit 10 | Display c 11 | VMagSq m c 12 | Display m 13 | 14 | VMagSq m2{0} c 15 | Display m2{0} 16 | Display m2 17 | exit 18 | 19 | -------------------------------------------------------------------------------- /libsrc/veclib2/tests/vsm.scr: -------------------------------------------------------------------------------- 1 | #Set w 64 # fast 2 | 3 | #Set w 10 # slow 4 | #Set h 3 5 | 6 | Set w 8 # slow 7 | Set h 8 8 | 9 | Image x1 $h $w 1 float 10 | Image bm $h $w 1 bit 11 | Info bm 12 | Ramp2D x1 0 1 1 13 | Display x1 14 | #verbose yes 15 | #Print verbose 16 | #debug veclib 17 | veclib 18 | execute vsm_le bm x1 6 19 | quit 20 | #verbose no 21 | Display bm 22 | 23 | 24 | 25 | -------------------------------------------------------------------------------- /libsrc/veclib2/vl2_fft.c: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | #include 3 | #include 4 | #include 5 | #include // drand48 6 | #include "quip_prot.h" 7 | #include "function.h" 8 | #include "rn.h" 9 | #include "veclib_api.h" 10 | #include "my_vl2.h" 11 | 12 | #include "veclib/vl2_veclib_prot.h" 13 | #include "vl2_fft_expanded.c" 14 | 15 | Real_FFT_Algorithm_Code real_fft_algorithm = ELLIOT_AND_RAO; 16 | 17 | 18 | -------------------------------------------------------------------------------- /libsrc/veclib2/vl2_host_funcs.c: -------------------------------------------------------------------------------- 1 | 2 | // First the typed functions... 3 | 4 | #undef BUILD_FOR_CPU 5 | #define BUILD_FOR_HOST 6 | 7 | #include "vl2_host_call_defs.h" 8 | #include "veclib/host_typed_call_defs.h" 9 | #include "veclib/gen_host_calls.c" 10 | #include "vl2_host_untyped_call_defs.h" 11 | #include "veclib/host_fft_funcs.c" 12 | 13 | -------------------------------------------------------------------------------- /libsrc/veclib2/vl2_host_funcs.m4: -------------------------------------------------------------------------------- 1 | 2 | 3 | define(`BUILD_FOR_HOST',`') 4 | 5 | my_include(`vl2_host_call_defs.m4') 6 | dnl First the typed functions... 7 | my_include(`veclib/host_typed_call_defs.m4') 8 | my_include(`veclib/gen_host_calls.m4') 9 | 10 | my_include(`vl2_host_untyped_call_defs.m4') 11 | my_include(`veclib/host_fft_funcs.m4') 12 | 13 | -------------------------------------------------------------------------------- /libsrc/veclib2/vl2_host_untyped_call_defs.m4: -------------------------------------------------------------------------------- 1 | 2 | // what should go here??? 3 | 4 | -------------------------------------------------------------------------------- /libsrc/veclib2/vl2_utils.c: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | #include "quip_prot.h" 3 | #include "data_obj.h" 4 | 5 | //my_include(veclib/vl2_veclib_prot.m4) 6 | //my_include(_vl2_utils.c) 7 | 8 | #include "vl2_utils_expanded.c" 9 | 10 | 11 | -------------------------------------------------------------------------------- /libsrc/veclib2/vl2_utils.m4: -------------------------------------------------------------------------------- 1 | include(`veclib/vl2_port.m4') 2 | 3 | suppress_no 4 | 5 | #include "quip_config.h" 6 | #include "quip_prot.h" 7 | #include "data_obj.h" 8 | #include "veclib/vl2_veclib_prot.h" 9 | 10 | dnl my_include(`veclib/vl2_veclib_prot.m4') 11 | my_include(`_vl2_utils.c') 12 | 13 | -------------------------------------------------------------------------------- /libsrc/veclib2/vl2_veclib.c: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | #include 3 | #include 4 | #include 5 | #include // drand48 6 | #include "quip_prot.h" 7 | #include "function.h" 8 | #include "rn.h" 9 | #include "veclib_api.h" 10 | #include "my_vl2.h" 11 | 12 | #include "veclib/vl2_veclib_prot.h" 13 | #include "vl2_veclib_expanded.c" 14 | 15 | -------------------------------------------------------------------------------- /libsrc/vectree/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | y.tab.c 4 | vectree.output 5 | vectree.c 6 | Makefile 7 | Makefile.in 8 | t.scr 9 | .deps 10 | 11 | -------------------------------------------------------------------------------- /libsrc/vectree/ctx_pair.c: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_config.h" 3 | #include "ctx_pair.h" 4 | 5 | // something here??? 6 | 7 | 8 | -------------------------------------------------------------------------------- /libsrc/vectree/expand_macros.csh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | 3 | ###!/bin/csh 4 | 5 | # bash variable set 6 | input_file=vectree.c 7 | 8 | cc -E -I../.. -I../../include $input_file > foo.c 9 | 10 | # this works on MBP but non on mac mini??? 11 | grep -v '# ' foo.c | sed 's/{/\'$'\n{/g' | sed 's/{/{\'$'\n/g' | sed 's/}/\'$'\n}/g' | sed 's/}/}\'$'\n/g' | sed 's/;/;\'$'\n/g' > foo2.c 12 | 13 | # csh-ism 14 | #cc -c foo2.c | & more 15 | # bash-ism 16 | cc -Wall -c foo2.c | more 2>&1 17 | 18 | -------------------------------------------------------------------------------- /libsrc/vectree/no_debug_malloc.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | # source this file to have it affect the current shell 3 | 4 | # These are for the Mac OSX environment, not Linux? 5 | unsetenv MallocScribble 6 | unsetenv MallocCheckHeapStart 7 | unsetenv MallocCheckHeapEach 8 | unsetenv MallocCheckHeapAbort 9 | 10 | -------------------------------------------------------------------------------- /libsrc/vectree/pointer.c: -------------------------------------------------------------------------------- 1 | 2 | 3 | #include "quip_config.h" 4 | #include "pointer.h" 5 | 6 | // something here? 7 | 8 | -------------------------------------------------------------------------------- /libsrc/vectree/reference.c: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_config.h" 3 | #include "reference.h" 4 | 5 | // may need something here? 6 | 7 | -------------------------------------------------------------------------------- /libsrc/vectree/subrt.c: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_config.h" 3 | #include "quip_prot.h" 4 | #include "subrt.h" 5 | 6 | Item_Type *subrt_itp=NULL; 7 | 8 | ITEM_INIT_FUNC(Subrt,subrt,0) 9 | ITEM_CHECK_FUNC(Subrt,subrt) 10 | ITEM_PICK_FUNC(Subrt,subrt) 11 | ITEM_NEW_FUNC(Subrt,subrt) 12 | ITEM_LIST_FUNC(Subrt,subrt) 13 | ITEM_ENUM_FUNC(Subrt,subrt) 14 | 15 | 16 | -------------------------------------------------------------------------------- /libsrc/vectree/tests/condass.scr: -------------------------------------------------------------------------------- 1 | 2 | expressions 3 | 4 | read - 5 | 6 | void f1(float f[], float k) 7 | { 8 | f = f > k ? f : 0; 9 | display(f); 10 | } 11 | 12 | void f2(float f[], float k) 13 | { 14 | f = f > k ? 1 : 0; 15 | display(f); 16 | } 17 | 18 | float v[5]; 19 | v=ramp(0,1,0); 20 | display(v); 21 | 22 | end 23 | 24 | echo "f>k?f:0" 25 | dump f1 26 | read - 27 | f1(v,2); 28 | display(v); 29 | end 30 | 31 | echo "f>k?1:0" 32 | dump f2 33 | read - 34 | f2(v,2); 35 | display(v); 36 | end 37 | quit 38 | 39 | exit 40 | 41 | -------------------------------------------------------------------------------- /libsrc/vectree/tests/fshape.scr: -------------------------------------------------------------------------------- 1 | 2 | Set h 4 3 | Set w 3 4 | 5 | expressions 6 | read - 7 | 8 | float func1() 9 | { 10 | float f[$h][$w]; 11 | f=ramp(0,1,10); 12 | return(f); 13 | } 14 | 15 | float x[$h][$w]; 16 | 17 | void func2() 18 | { 19 | x=func1(); 20 | display(x); 21 | } 22 | 23 | func2(); 24 | 25 | end 26 | exit 27 | 28 | -------------------------------------------------------------------------------- /libsrc/vectree/tests/funcs.scr: -------------------------------------------------------------------------------- 1 | 2 | # test of string and size functions 3 | 4 | Scalar sv 12 string 5 | Scalar sv2 12 string 6 | Set_String sv "jbmulligan" 7 | Display sv 8 | 9 | expressions 10 | export sv 11 | export sv2 12 | read - 13 | 14 | sv2 = toupper(sv); 15 | end 16 | quit 17 | 18 | Display sv2 19 | 20 | exit 21 | 22 | -------------------------------------------------------------------------------- /libsrc/vectree/tests/get_args.scr: -------------------------------------------------------------------------------- 1 | 2 | expressions 3 | read - 4 | 5 | float a[4],b[4],c[4]; 6 | 7 | a=ramp(0,1,0); 8 | b=ramp(0,10,0); 9 | c=ramp(10,1,0); 10 | 11 | void testk(float *dest, float *src1, float *src2, float kkk) 12 | { 13 | display(*src1,*src2); 14 | print(*dest," = ",*src1," > 5 ? ",*src2," : 66 ;"); 15 | *dest = *src1 > 5 ? *src2 : 66 ; 16 | display(*dest); 17 | } 18 | 19 | end 20 | 21 | # dump testk 22 | info testk 23 | advise "Ready to run testk..." 24 | run testk a b c 5.1 25 | advise "DONE running testk..." 26 | quit 27 | exit 28 | 29 | 30 | -------------------------------------------------------------------------------- /libsrc/vectree/tests/local_obj.scr: -------------------------------------------------------------------------------- 1 | # test of correct deletion of local objects 2 | 3 | Set h 20 4 | Set w 30 5 | 6 | expressions 7 | show_shp yes 8 | read - 9 | 10 | u_byte simple_test() 11 | { 12 | float c1[$h][$w]; 13 | c1 = ramp(0,1,1); 14 | return(c1); 15 | } 16 | 17 | end 18 | 19 | # advise "dumping simple_test..." 20 | # dump simple_test 21 | 22 | # dumpflag yes 23 | read - 24 | 25 | u_byte c2[$h][$w]; 26 | print("c2 = simple_test();"); 27 | c2 = simple_test(); 28 | end 29 | 30 | advise "DONE with simple_test" 31 | quit 32 | 33 | debug no 34 | #Info c2 35 | 36 | 37 | exit 38 | 39 | -------------------------------------------------------------------------------- /libsrc/vectree/tests/ptr_decl.scr: -------------------------------------------------------------------------------- 1 | expressions 2 | read - 3 | 4 | float *p; 5 | float a[4]; 6 | 7 | p = &a; 8 | 9 | end 10 | exit 11 | -------------------------------------------------------------------------------- /libsrc/vectree/tests/subst_var.scr: -------------------------------------------------------------------------------- 1 | # test of Subst_Var 2 | 3 | Vector str_obj 1 20 string 4 | Set_String str_obj "hello there" 5 | Display str_obj 6 | 7 | expressions 8 | export str_obj 9 | show_shp yes 10 | read - 11 | 12 | void test1() 13 | { 14 | str_obj = str_obj == 040 ? '_' : str_obj; 15 | } 16 | end 17 | 18 | dump test1 19 | quit 20 | Pause 21 | 22 | Set v 'this is a test' 23 | Print v 24 | 25 | Subst_Var v 040 '_' 26 | Print v 27 | 28 | exit 29 | 30 | 31 | -------------------------------------------------------------------------------- /libsrc/vectree/tests/typecast.scr: -------------------------------------------------------------------------------- 1 | 2 | 3 | #platforms 4 | # select $DEFAULT_PLATFORM $DEFAULT_GPU 5 | # quit 6 | 7 | expressions 8 | show_shp yes 9 | read - 10 | 11 | void testk() 12 | { 13 | float k2; 14 | short ix; 15 | 16 | ix = round(1.3) << 2; 17 | print("round(1.3)<<2 = ",ix); 18 | } 19 | 20 | end 21 | 22 | dump testk 23 | advise running... 24 | run testk 25 | Pause 26 | quit 27 | exit 28 | 29 | 30 | -------------------------------------------------------------------------------- /libsrc/vectree/undef_sym.c: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | #include "quip_prot.h" 3 | #include "undef_sym.h" 4 | 5 | static Item_Type *undef_itp=NULL; 6 | 7 | ITEM_CHECK_FUNC(Undef_Sym,undef) 8 | ITEM_NEW_FUNC(Undef_Sym,undef) 9 | ITEM_INIT_FUNC(Undef_Sym,undef,0) 10 | 11 | 12 | -------------------------------------------------------------------------------- /libsrc/vectree/vec_expr_node.c: -------------------------------------------------------------------------------- 1 | 2 | #include "quip_config.h" 3 | 4 | #include "vec_expr_node.h" 5 | 6 | // Put some stuff here... 7 | 8 | -------------------------------------------------------------------------------- /libsrc/vectree/vt_private.h: -------------------------------------------------------------------------------- 1 | // symbols shared between files in this module, but not exported... 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/view/bullseye.cursor: -------------------------------------------------------------------------------- 1 | 2 | /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16 3 | */ 4 | 0x0F00,0x30C0,0x4020,0x4020,0x8010,0x8610,0x8610,0x8010, 5 | 0x4020,0x4020,0x30C0,0x0F00,0x0000,0x0000,0x0000,0x0000 6 | -------------------------------------------------------------------------------- /libsrc/view/busy.cursor: -------------------------------------------------------------------------------- 1 | 2 | /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16 3 | */ 4 | 0x07C6, 5 | 0x1FF7, 6 | 0x383B, 7 | 0x600C, 8 | 0x600C, 9 | 0xC006, 10 | 0xC006, 11 | 0xDF06, 12 | 0xC106, 13 | 0xC106, 14 | 0x610C, 15 | 0x610C, 16 | 0x3838, 17 | 0x1FF0, 18 | 0x07C0, 19 | 0x0000 20 | -------------------------------------------------------------------------------- /libsrc/view/canmenu.m: -------------------------------------------------------------------------------- 1 | #include "canmenu.c" 2 | 3 | 4 | -------------------------------------------------------------------------------- /libsrc/view/canvas.m: -------------------------------------------------------------------------------- 1 | #include "canvas.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/check_dpy.h: -------------------------------------------------------------------------------- 1 | 2 | #ifdef HAVE_X11 3 | #define CHECK_DPYP(funcname) \ 4 | \ 5 | if( current_dpyp == NULL ){ \ 6 | sprintf(ERROR_STRING,"%s: no display set",funcname); \ 7 | warn(ERROR_STRING); \ 8 | return; \ 9 | } 10 | #else 11 | #define CHECK_DPYP(funcname) 12 | #endif 13 | 14 | -------------------------------------------------------------------------------- /libsrc/view/cmfuncs.m: -------------------------------------------------------------------------------- 1 | #include "cmfuncs.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/cmmenu.m: -------------------------------------------------------------------------------- 1 | #include "cmmenu.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/drag.m: -------------------------------------------------------------------------------- 1 | #include "drag.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/dragmenu.m: -------------------------------------------------------------------------------- 1 | #include "dragmenu.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/drawmenu.m: -------------------------------------------------------------------------------- 1 | #include "drawmenu.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/expand_macros.sh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | 3 | ###!/bin/csh 4 | 5 | # bash variable set 6 | suffix=c 7 | input_file=viewer.$suffix 8 | 9 | #cc -E -DBUILD_FOR_IOS -I../.. -I../../include $input_file > foo.$suffix 10 | cc -E -I../.. -I../../include $input_file > foo.$suffix 11 | 12 | # this works on MBP but non on mac mini??? 13 | grep -v '# ' foo.$suffix | sed 's/{/\'$'\n{/g' | sed 's/{/{\'$'\n/g' | sed 's/}/\'$'\n}/g' | sed 's/}/}\'$'\n/g' | sed 's/;/;\'$'\n/g' > foo2.$suffix 14 | 15 | # csh-ism 16 | #cc -c foo2.c | & more 17 | # bash-ism 18 | cc -c foo2.$suffix | more 2>&1 19 | 20 | -------------------------------------------------------------------------------- /libsrc/view/fbmenu.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/libsrc/view/fbmenu.c -------------------------------------------------------------------------------- /libsrc/view/fbmenu.m: -------------------------------------------------------------------------------- 1 | #include "fbmenu.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/gen_win.m: -------------------------------------------------------------------------------- 1 | #include "gen_win.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/get_viewer.h: -------------------------------------------------------------------------------- 1 | 2 | #define GET_VIEWER( funcname ) \ 3 | \ 4 | vp=pick_vwr(""); \ 5 | if( vp == NULL ) { \ 6 | sprintf(ERROR_STRING,"%s: invalid viewer selection", \ 7 | funcname); \ 8 | WARN(ERROR_STRING); \ 9 | } 10 | 11 | -------------------------------------------------------------------------------- /libsrc/view/glass.cursor: -------------------------------------------------------------------------------- 1 | 2 | /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16 3 | */ 4 | 0x1F80,0x7FC0,0x70E0,0xE070,0xC030,0xC030,0xC030,0xC030, 5 | 0xE060,0x70E0,0x3FF0,0x1F38,0x001C,0x000E,0x0007,0x0003 6 | -------------------------------------------------------------------------------- /libsrc/view/hglass.cursor: -------------------------------------------------------------------------------- 1 | 2 | /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16 3 | */ 4 | 0x7FFE,0x4002,0x200C,0x1A38,0x0FF0,0x07E0,0x03C0,0x0180, 5 | 0x0180,0x0240,0x0520,0x0810,0x1108,0x23C4,0x47E2,0x7FFE 6 | -------------------------------------------------------------------------------- /libsrc/view/lut_cmds.h: -------------------------------------------------------------------------------- 1 | 2 | /* bitmenu.c */ 3 | extern COMMAND_FUNC( do_bit_menu ); 4 | 5 | /* cmmenu.c */ 6 | extern COMMAND_FUNC( do_cmaps ); 7 | extern COMMAND_FUNC( do_lut_menu ); 8 | 9 | /* linmenu.c */ 10 | extern COMMAND_FUNC( do_linearize ); 11 | 12 | /* lutmenu.c */ 13 | extern COMMAND_FUNC( do_lutbufs ); 14 | 15 | -------------------------------------------------------------------------------- /libsrc/view/pf_viewer.m: -------------------------------------------------------------------------------- 1 | #include "pf_viewer.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/plotmenu.m: -------------------------------------------------------------------------------- 1 | #include "plotmenu.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/rdplot.m: -------------------------------------------------------------------------------- 1 | #include "rdplot.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/root_cmds: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | # Commands to set up to use /dev/fb... 4 | # Should be put into rc.local! 5 | 6 | # these need to be executed by root after a reboot... 7 | # and perhaps at other times? 8 | 9 | if( ! -e /dev/fb0 ) then 10 | mknod /dev/fb0 c 29 0 11 | endif 12 | 13 | if( ! -e /dev/fb1 ) then 14 | mknod /dev/fb1 c 29 1 15 | endif 16 | 17 | modprobe matroxfb_crtc2 18 | chmod 666 /dev/fb0 /dev/fb1 19 | 20 | modprobe ppdev 21 | chmod 666 /dev/parport0 22 | 23 | ls -l /dev/fb* /dev/parport0 24 | 25 | -------------------------------------------------------------------------------- /libsrc/view/tests/README: -------------------------------------------------------------------------------- 1 | Having a hard time routing video outputs on purkinje... 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/tests/fb2.scr: -------------------------------------------------------------------------------- 1 | # coq script to test /dev/fb on purkinje... 2 | 3 | Set fb /dev/fb1 4 | 5 | view fb open $fb quit quit 6 | Assign w ncols('$fb') 7 | Assign h nrows('$fb') 8 | Assign d depth('$fb') 9 | 10 | advise "Frame buffer $fb is $w x $h x $d" 11 | 12 | Image frm 480 $w $d u_byte 13 | Set i 0 14 | advise 'computing ramps...' 15 | repeat $d 16 | Ramp2D frm{$i} 0 1 0 17 | Increment i 18 | end 19 | 20 | view 21 | fb 22 | advise 'displaying frame...' 23 | load frm 0 0 24 | pan 0 0 25 | sleep 2 26 | quit 27 | quit 28 | 29 | Pause 30 | 31 | -------------------------------------------------------------------------------- /libsrc/view/tests/font_test.scr: -------------------------------------------------------------------------------- 1 | Viewer v 444 444 2 | view 3 | draw v 4 | load_set *times*bold-r-normal--25-* 5 | list 6 | #-adobe-times-bold-r-normal--25-180-100-100-p-132-iso8859-1 7 | font -adobe-times-bold-r-normal--25-180-100-100-p-132-iso8859-1 8 | Pause 9 | 10 | -------------------------------------------------------------------------------- /libsrc/view/tests/rm_matrox.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | rmmod matroxfb_crtc2 3 | modprobe matroxfb_crtc2 4 | 5 | -------------------------------------------------------------------------------- /libsrc/view/view_util.h: -------------------------------------------------------------------------------- 1 | 2 | /* viewmenu.c */ 3 | 4 | extern void insure_x11_server(SINGLE_QSP_ARG_DECL); 5 | extern void _view_init(void); 6 | 7 | #define PICK_LB(pmpt) pick_lb(QSP_ARG pmpt) 8 | 9 | 10 | -------------------------------------------------------------------------------- /libsrc/view/viewer.m: -------------------------------------------------------------------------------- 1 | #include "viewer.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/viewmenu.m: -------------------------------------------------------------------------------- 1 | #include "viewmenu.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/view/xplot.m: -------------------------------------------------------------------------------- 1 | #include "xplot.c" 2 | 3 | -------------------------------------------------------------------------------- /libsrc/visca/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/visca/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libvisca.a 2 | cp libvisca.a ../../libs 3 | 4 | viscadatadir = $(datadir)/quip/params/visca 5 | 6 | noinst_LIBRARIES = libvisca.a 7 | 8 | libvisca_a_CPPFLAGS = -I$(top_srcdir)/include -D_GNU_SOURCE -Wall -Wmissing-prototypes 9 | 10 | libvisca_a_SOURCES = \ 11 | visca.c \ 12 | glue.c 13 | 14 | noinst_HEADERS = cam_params.h visca.h 15 | 16 | # temporarily disable 17 | viscadata_DATA = zoom_coeffs.asc 18 | 19 | EXTRA_DIST = $(viscadata_DATA) 20 | 21 | -------------------------------------------------------------------------------- /libsrc/visca/zoom_coeffs.asc: -------------------------------------------------------------------------------- 1 | 0.000218395 2 | -0.00903843 3 | 0.0954645 4 | -------------------------------------------------------------------------------- /libsrc/www/.gitignore: -------------------------------------------------------------------------------- 1 | .deps 2 | *.o 3 | *.a 4 | 5 | -------------------------------------------------------------------------------- /libsrc/www/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libserver.a 2 | cp libserver.a ../../libs 3 | 4 | noinst_LIBRARIES = libserver.a 5 | 6 | libserver_a_CPPFLAGS = -I$(top_srcdir)/include -Wall 7 | 8 | libserver_a_SOURCES = server.c curl.c http_menu.c 9 | 10 | #SRCFLAGS= -I/usr/include/w3c-libwww -DHAVE_STRERROR 11 | # WWWLIBS defined in .cshrc now 12 | #WWWLIBS= -lserver -lwwwcore -lwwwapp -lwwwutils -lwwwmime -lwwwcache \ 13 | # -lwwwstream -lwwwdir -lwwwfile -lwwwhttp -lwwwhtml -lwwwnews \ 14 | # -lwwwftp -lwwwxml -lxmlparse -lxmltok -lmd5 -lwwwtelnet \ 15 | # -lwwwtrans -lwwwgopher 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /libsrc/www/tests/download_test.scr: -------------------------------------------------------------------------------- 1 | # test of url download 2 | 3 | http 4 | save_url scanpath.arc.nasa.gov/index.html foo 5 | Pause 6 | 7 | 8 | -------------------------------------------------------------------------------- /libsrc/www/tests/exec_test.scr: -------------------------------------------------------------------------------- 1 | # test of url download 2 | 3 | http 4 | # save_url scanpath.arc.nasa.gov/index.html foo 5 | # read_url interprets the downloaded text as script commands... 6 | read_url scanpath.arc.nasa.gov/quip/scripts/test.scr 7 | Pause 8 | 9 | 10 | -------------------------------------------------------------------------------- /libsrc/xsupp/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.a 3 | .deps 4 | Makefile 5 | Makefile.in 6 | 7 | -------------------------------------------------------------------------------- /libsrc/xsupp/Makefile.am: -------------------------------------------------------------------------------- 1 | all: libxsupp.a 2 | cp libxsupp.a ../../libs 3 | 4 | noinst_LIBRARIES = libxsupp.a 5 | 6 | libxsupp_a_CPPFLAGS = -I$(top_srcdir)/include -Wall -Wmissing-prototypes 7 | 8 | libxsupp_a_SOURCES = \ 9 | \ 10 | xsync.c \ 11 | glxhelper.c \ 12 | which_display.c \ 13 | dpy.c \ 14 | event.c \ 15 | check_display.c \ 16 | lut_xlib.c \ 17 | view_xlib.c \ 18 | vbl.c 19 | 20 | noinst_HEADERS = \ 21 | vgat_ioctl.h \ 22 | xsupp_prot.h 23 | 24 | -------------------------------------------------------------------------------- /libsrc/xsupp/vgat_ioctl.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | #ifdef HAVE_LINUX_IOCTL_H 4 | 5 | #include 6 | 7 | #define VGAT_GET_REG _IOR('z', 1, int) 8 | #define VGAT_VBL_WAIT _IOR('z', 2, int) 9 | 10 | #endif /* HAVE_LINUX_IOCTL_H */ 11 | 12 | 13 | -------------------------------------------------------------------------------- /libsrc/xsupp/xsupp_prot.h: -------------------------------------------------------------------------------- 1 | 2 | /* globals used just in this module */ 3 | extern u_long xdebug; 4 | extern int simulating_luts; 5 | 6 | /* dpy.c */ 7 | extern List *displays_list(SINGLE_QSP_ARG_DECL); 8 | 9 | /* event.c */ 10 | extern void i_loop(SINGLE_QSP_ARG_DECL); 11 | extern void discard_events(SINGLE_QSP_ARG_DECL); 12 | 13 | /* lut_xlib.c */ 14 | extern void set_curr_win(Window win); 15 | extern u_long _simulate_lut_mapping(QSP_ARG_DECL Viewer *vp, u_long color); 16 | #define simulate_lut_mapping(vp,color) _simulate_lut_mapping(QSP_ARG vp,color) 17 | 18 | -------------------------------------------------------------------------------- /libsrc/xsupp/xsync.c: -------------------------------------------------------------------------------- 1 | #include "quip_config.h" 2 | 3 | #ifdef HAVE_X11 4 | 5 | #include 6 | #include "xsupp.h" 7 | 8 | void x_sync_off() 9 | { 10 | Disp_Obj *dop; 11 | 12 | dop = curr_dop(); 13 | if( dop == NULL ) return; 14 | 15 | XSynchronize(DO_DISPLAY(dop),False); 16 | } 17 | 18 | 19 | void x_sync_on() 20 | { 21 | Disp_Obj *dop; 22 | 23 | dop = curr_dop(); 24 | if( dop == NULL ) return; 25 | 26 | XSynchronize(DO_DISPLAY(dop),True); 27 | } 28 | 29 | #endif /* HAVE_X11 */ 30 | 31 | -------------------------------------------------------------------------------- /macros/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | # colors 3 | 4 | SUBDIRS = \ 5 | \ 6 | analysis \ 7 | compute \ 8 | ctrack \ 9 | data \ 10 | em_exp \ 11 | eyemov \ 12 | flycap \ 13 | gsl \ 14 | gui \ 15 | knox \ 16 | movie \ 17 | numrec \ 18 | opengl \ 19 | postproc \ 20 | startup \ 21 | system \ 22 | v4l2 \ 23 | led \ 24 | view \ 25 | visca 26 | 27 | -------------------------------------------------------------------------------- /macros/analysis/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/analysis 3 | 4 | macros_DATA = axes.mac \ 5 | blink.mac \ 6 | common.mac \ 7 | eyeplot.mac \ 8 | get_rec.mac \ 9 | head_data.mac \ 10 | procrec.mac 11 | 12 | EXTRA_DIST = $(macros_DATA) 13 | 14 | -------------------------------------------------------------------------------- /macros/colors/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/colors 3 | 4 | macros_DATA = colortrans.mac \ 5 | matrices.mac 6 | 7 | EXTRA_DIST = $(macros_DATA) 8 | 9 | -------------------------------------------------------------------------------- /macros/compute/chains.mac: -------------------------------------------------------------------------------- 1 | 2 | Start_File chains.mac 3 | 4 | Define New_Chain 0 5 | compute control chains new_chain quit quit quit 6 | . 7 | 8 | Define End_Chain 1 name 9 | compute control chains end_chain $1 quit quit quit 10 | . 11 | 12 | Define Dump_Chain 1 name 13 | compute control chains dump $1 quit quit quit 14 | . 15 | 16 | Define Exec_Chain 1 name 17 | echo "Executing chain $1" 18 | compute control chains exec $1 quit quit quit 19 | echo "Done executing chain $1" 20 | . 21 | 22 | Stop_File chains.mac 23 | 24 | -------------------------------------------------------------------------------- /macros/compute/init_tcrit.scr: -------------------------------------------------------------------------------- 1 | # run this script to initialize the t test cache file 2 | 3 | < $macro_dir/compute/tdist.mac 4 | 5 | Init_Tcrit_Tbl 6 | exit 7 | 8 | -------------------------------------------------------------------------------- /macros/compute/rotimg.mac: -------------------------------------------------------------------------------- 1 | 2 | Start_File rotimg.mac 3 | 4 | Complex_Image rotation_map 5 | 6 | Define Rotate_Image 3 target source angle_in_degrees 7 | Set angle $3 8 | Assign radians $angle*atan(1)/45 9 | Ramp2D rotation_map{1} -$ysize*$radians/2 $radians 0 10 | Ramp2D rotation_map{0} $xsize*$radians/2 0 -$radians 11 | compute misc bilinear $1 $2 rotation_map quit quit 12 | . 13 | 14 | 15 | 16 | Stop_File rotimg.mac 17 | 18 | -------------------------------------------------------------------------------- /macros/ctrack/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/ctrack 3 | 4 | macros_DATA = calib.mac \ 5 | cmon.mac \ 6 | deinterlace.mac \ 7 | et_display.mac \ 8 | et_gui.mac \ 9 | fstim.mac \ 10 | et_plot.mac 11 | 12 | 13 | 14 | EXTRA_DIST = $(macros_DATA) 15 | 16 | -------------------------------------------------------------------------------- /macros/data/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/data 3 | 4 | macros_DATA = ascii.mac \ 5 | size.scr \ 6 | set_sizes.mac \ 7 | decl.mac \ 8 | string_edit.mac \ 9 | hips.mac 10 | 11 | EXTRA_DIST = $(macros_DATA) 12 | 13 | -------------------------------------------------------------------------------- /macros/data/set_sizes.mac: -------------------------------------------------------------------------------- 1 | Start_File set_sizes.mac 2 | 3 | Define ReSize 1 newsize 4 | Set size $1 5 | Set xsize $size 6 | Set ysize $size 7 | . 8 | 9 | Define Set_Sizes 2 xsize ysize 10 | Assign xsize $1 11 | Assign ysize $2 12 | If "$1 == $2" Then "Set size $1" Else "Set size -1" 13 | . 14 | 15 | Stop_File set_sizes.mac 16 | 17 | -------------------------------------------------------------------------------- /macros/em_exp/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/em_exp 3 | 4 | macros_DATA = gen_tune.scr \ 5 | getprm.scr \ 6 | scalib.mac \ 7 | collect.mac 8 | 9 | 10 | EXTRA_DIST = $(macros_DATA) 11 | 12 | -------------------------------------------------------------------------------- /macros/eyemov/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/eyemov 3 | 4 | macros_DATA = calib.mac \ 5 | corrplot.mac \ 6 | correlogram.mac \ 7 | expon.mac \ 8 | hmc_record.mac \ 9 | lpsigma.mac \ 10 | newfit.mac \ 11 | regression.mac \ 12 | uhco.mac 13 | 14 | EXTRA_DIST = $(macros_DATA) 15 | 16 | -------------------------------------------------------------------------------- /macros/flycap/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | # want to install these somewhere like /usr/local/quip/macros... 3 | 4 | macrosdir = $(datadir)/quip/macros/flycap 5 | 6 | macros_DATA = fly.mac 7 | 8 | EXTRA_DIST = $(macros_DATA) 9 | 10 | -------------------------------------------------------------------------------- /macros/flycap/fly.mac: -------------------------------------------------------------------------------- 1 | # stub file 2 | # Put usefly flycap macros here... 3 | 4 | -------------------------------------------------------------------------------- /macros/gsl/.gitignore: -------------------------------------------------------------------------------- 1 | Makefile 2 | Makefile.in 3 | 4 | -------------------------------------------------------------------------------- /macros/gsl/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/gsl 3 | 4 | macros_DATA = svd.mac 5 | 6 | EXTRA_DIST = $(macros_DATA) 7 | 8 | -------------------------------------------------------------------------------- /macros/gui/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/gui 3 | 4 | macros_DATA = ui.mac 5 | 6 | 7 | 8 | EXTRA_DIST = $(macros_DATA) 9 | 10 | -------------------------------------------------------------------------------- /macros/ios/cache.mac: -------------------------------------------------------------------------------- 1 | Start_File cache.mac 2 | 3 | Define Cache_Var 1 varname 4 | echo "Set $1 $$1" 5 | . 6 | 7 | Stop_File cache.mac 8 | 9 | -------------------------------------------------------------------------------- /macros/ios/utilz.mac: -------------------------------------------------------------------------------- 1 | Start_File utilz.mac 2 | 3 | Define Hide_Nav_Bar 0 4 | interface hide_nav_bar yes quit 5 | . 6 | 7 | Define Show_Nav_Bar 0 8 | interface hide_nav_bar no quit 9 | . 10 | 11 | Define Disable_Scrolling 1 viewer 12 | interface control scroll "$1" no quit quit 13 | . 14 | 15 | Define Hide_Back_Button 1 panel 16 | interface 17 | decorate $1 18 | hide_back_button yes 19 | quit 20 | quit 21 | . 22 | 23 | Stop_File utilz.mac 24 | 25 | -------------------------------------------------------------------------------- /macros/iquip/.gitignore: -------------------------------------------------------------------------------- 1 | ss_output 2 | 3 | -------------------------------------------------------------------------------- /macros/iquip/README: -------------------------------------------------------------------------------- 1 | The macros here are intended to be part of a startup script 2 | for a user-programmable system... 3 | 4 | We begin by providing an interface to a script download server. 5 | 6 | ________________________________ 7 | 8 | To download scripts to the device, run script_server.scr on a machine that 9 | the device can make a network connection to. 10 | -------------------------------------------------------------------------------- /macros/iquip/files.scr: -------------------------------------------------------------------------------- 1 | 2 | Set data_dir "${DOCUMENTS_DIR}/data" 3 | Set system_script_dir "$DOCUMENTS_DIR/system_scripts" 4 | Set user_script_dir "$DOCUMENTS_DIR/user_scripts" 5 | 6 | #advise "Checking $data_dir" 7 | Insure_Directory "$data_dir" # quotes prob'ly not needed 8 | #advise "Checking $system_script_dir" 9 | Insure_Directory "$system_script_dir" 10 | #advise "Checking $user_script_dir" 11 | Insure_Directory "$user_script_dir" 12 | 13 | -------------------------------------------------------------------------------- /macros/iquip/slave_driver.mac: -------------------------------------------------------------------------------- 1 | # This appears to connect to a server program on a remote host, 2 | # that is in direct communication with the slave device... 3 | 4 | Define Init_Overseer 2 hostname port_num 5 | ports 6 | client client_mouth $1 $2 7 | Assign connected port_exists(client_mouth) 8 | If !$connected "advise 'Failed to connect!?' exit_macro" 9 | xmit text client_mouth top_menu 10 | quit 11 | . 12 | 13 | Define Command_Slave 1 command_string 14 | ports xmit text client_mouth "Command_Slave '$1'" quit 15 | . 16 | 17 | 18 | -------------------------------------------------------------------------------- /macros/iquip/slave_driver.scr: -------------------------------------------------------------------------------- 1 | # connect to overseer 2 | 3 | If $argc!=2 "error_exit 'usage: $QUIP hostname port_num < slave_driver.scr'" 4 | 5 | < slave_driver.mac 6 | 7 | Init_Overseer $1 $2 8 | 9 | do 10 | prompt_text 'command to send to device' cmd 11 | Command_Slave $cmd 12 | while 1 13 | 14 | Pause 15 | 16 | -------------------------------------------------------------------------------- /macros/knox/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/knox 3 | 4 | macros_DATA = \ 5 | knox.mac \ 6 | knox_gui.mac \ 7 | knox_missing.mac \ 8 | knox_connections.scr \ 9 | knox_common.mac \ 10 | knoxc.mac 11 | 12 | EXTRA_DIST = $(macros_DATA) 13 | 14 | -------------------------------------------------------------------------------- /macros/knox/README: -------------------------------------------------------------------------------- 1 | Need to document the connections of the switcher in use in the vision lab somewhere... 2 | Probably should not be here, rather in an experiment directory? 3 | -------------------------------------------------------------------------------- /macros/knox/knox_common.mac: -------------------------------------------------------------------------------- 1 | Define Knox_Init 0 2 | #Print HOSTNAME 3 | Set knox_host wheatstone.arc.nasa.gov 4 | 5 | # if hardware is controlled via a remote daemon... 6 | If strcmp('$HOSTNAME','$knox_host') 7 | Then "advise 'Will use knox daemon on host $knox_host' Set USE_KNOX_DAEMON 1" 8 | Else "advise 'Will NOT use knox daemon, running on knox host $knox_host'" 9 | 10 | If var_exists('USE_KNOX_DAEMON') 11 | Then "< $macro_dir/knox/knoxc.mac" 12 | Else "< $macro_dir/knox/knox.mac" 13 | 14 | Knox_Init_Device 15 | 16 | # initialize with default routing here??? 17 | . 18 | 19 | 20 | -------------------------------------------------------------------------------- /macros/knox/knox_gui_test.scr: -------------------------------------------------------------------------------- 1 | < $macro_dir/knox/knox_gui.mac 2 | < $macro_dir/knox/knoxc.mac 3 | < $macro_dir/view/plotsupp.mac 4 | 5 | Knox_Connect 6 | Declare_Knox_GUI 7 | 8 | Pause 9 | 10 | -------------------------------------------------------------------------------- /macros/led/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/led 3 | 4 | macros_DATA = \ 5 | illum.mac 6 | 7 | 8 | EXTRA_DIST = $(macros_DATA) 9 | 10 | -------------------------------------------------------------------------------- /macros/movie/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/movie 3 | 4 | macros_DATA = \ 5 | \ 6 | mmvi.mac \ 7 | flow.mac 8 | 9 | 10 | EXTRA_DIST = $(macros_DATA) 11 | 12 | -------------------------------------------------------------------------------- /macros/numrec/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/numrec 3 | 4 | macros_DATA = bqi.mac \ 5 | fit_conic.mac \ 6 | fit_ellipse.mac \ 7 | fit_polynomial.mac \ 8 | homography.mac \ 9 | la_util.mac \ 10 | mapping.mac \ 11 | norm_coords.mac \ 12 | quartic.mac \ 13 | svd.mac 14 | 15 | EXTRA_DIST = $(macros_DATA) 16 | 17 | -------------------------------------------------------------------------------- /macros/opengl/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/opengl 3 | 4 | macros_DATA = \ 5 | \ 6 | icos.mac \ 7 | poly.mac \ 8 | viewpoint.mac 9 | 10 | 11 | EXTRA_DIST = $(macros_DATA) 12 | 13 | -------------------------------------------------------------------------------- /macros/ports/test.scr: -------------------------------------------------------------------------------- 1 | 2 | < comm.mac 3 | 4 | Make_Connection 5 | Send_File foo1.scr test.scr 6 | Send_File foo2.scr test.scr 7 | Break_Connection 8 | 9 | -------------------------------------------------------------------------------- /macros/postproc/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/postproc 3 | 4 | macros_DATA = datafile.mac \ 5 | get_rec.mac \ 6 | ilace.mac \ 7 | procfile.mac \ 8 | pupdat.mac \ 9 | vis.mac 10 | 11 | 12 | EXTRA_DIST = $(macros_DATA) 13 | 14 | -------------------------------------------------------------------------------- /macros/postproc/ilace.mac: -------------------------------------------------------------------------------- 1 | # this file contains macros taken from postproc/get_rec.mac, 2 | # which were missing from the newer eyemov/get_rec.mac. 3 | 4 | Define Apply_Interlace_Correction 0 5 | # read_data_with_corr leaves the data where? 6 | Dup_Float icorr record{1} 7 | Dup_Float aic_tmp record{1} 8 | Ramp1D icorr 0 0.5 9 | VFloor aic_tmp icorr 10 | VSMul aic_tmp aic_tmp -2 11 | VSMul icorr icorr 2 12 | VVAdd icorr icorr aic_tmp 13 | VSMul icorr icorr $interlace_correction 14 | Delete_Image aic_tmp 15 | Delete_Image icorr 16 | . 17 | 18 | Set interlace_correction 0 # default - no correction 19 | 20 | 21 | -------------------------------------------------------------------------------- /macros/startup/.gitignore: -------------------------------------------------------------------------------- 1 | iquip_startup.* 2 | mac_startup.* 3 | csf_startup.* 4 | ezjet_startup.* 5 | afalert_startup.* 6 | symm_startup.* 7 | 8 | -------------------------------------------------------------------------------- /macros/startup/Xgraph.scr: -------------------------------------------------------------------------------- 1 | < $QUIPSTARTUPDIR/quip.scr 2 | 3 | max_warnings 3 4 | 5 | If $argc<1 "warn 'usage: Xgraph [options] xy_files ... ' exit" 6 | 7 | < $macro_dir/view/unix_plot.mac 8 | < $macro_dir/view/plotsupp.mac 9 | < $macro_dir/view/xgraph.mac 10 | < $macro_dir/view/range.mac 11 | 12 | Process_Options 13 | Pause 14 | 15 | exit 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /macros/startup/add_file.csh: -------------------------------------------------------------------------------- 1 | if( ! $?1 ) then 2 | echo usage: source add_file.csh file 3 | exit 4 | endif 5 | 6 | set p=../../macros/$1 7 | 8 | if( ! -e $p ) then 9 | echo Macro file $p not found. 10 | else 11 | echo "# FILE $1 BEGIN" >> $outfile 12 | cat $p >> $outfile 13 | endif 14 | 15 | 16 | -------------------------------------------------------------------------------- /macros/startup/airway.scr: -------------------------------------------------------------------------------- 1 | verbose no 2 | 3 | If !var_exists(QUIP) 4 | "variables set QUIP quip quit" 5 | 6 | If strcmp('$QUIP','quip') 7 | "warn 'Program invoked as quip, but QUIP = $QUIP'" 8 | 9 | #variables 10 | # set QUIPSTARTUPDIR /usr/local/share/$QUIP/macros/startup 11 | # quit 12 | 13 | 14 | < $QUIPSTARTUPDIR/generic.scr 15 | < $QUIPSTARTUPDIR/gendata.scr 16 | < $QUIPSTARTUPDIR/gencomp.scr 17 | < $QUIPSTARTUPDIR/genclient.scr 18 | < $QUIPSTARTUPDIR/genview.scr 19 | 20 | #view xsync yes quit 21 | 22 | compute control n_processors 1 quit quit 23 | max_warnings 200 24 | 25 | Stop_File airway.scr 26 | 27 | -------------------------------------------------------------------------------- /macros/startup/encrypt_file.scr: -------------------------------------------------------------------------------- 1 | If $argc!=2 "error_exit 'usage: $QUIP infile outfile < encrypt_file.scr'" 2 | 3 | encrypt_file $1 $2 4 | 5 | exit 6 | 7 | -------------------------------------------------------------------------------- /macros/startup/evid.scr: -------------------------------------------------------------------------------- 1 | # 2 | # visca control daemon 3 | 4 | #verbose yes 5 | 6 | advise 'evid.scr BEGIN' 7 | 8 | < $QUIPSTARTUPDIR/.daemon 9 | #< $QUIPSTARTUPDIR/.generic 10 | < $QUIPSTARTUPDIR/.gendata 11 | < $QUIPSTARTUPDIR/.genwar 12 | < $QUIPSTARTUPDIR/.genview 13 | 14 | < $macro_dir/visca/visca.mac 15 | < $macro_dir/visca/visca_common.mac 16 | 17 | #verbose yes 18 | 19 | Daemon_Start $evid_port 20 | 21 | -------------------------------------------------------------------------------- /macros/startup/flyd.scr: -------------------------------------------------------------------------------- 1 | # 2 | # mmvi record daemon 3 | 4 | 5 | 6 | < $QUIPSTARTUPDIR/.daemon 7 | #< $QUIPSTARTUPDIR/.generic 8 | < $QUIPSTARTUPDIR/.gendata 9 | < $QUIPSTARTUPDIR/.genwar 10 | < $QUIPSTARTUPDIR/.genview 11 | 12 | < $macro_dir/flycap/fly.mac 13 | 14 | #verbose yes 15 | 16 | Daemon_Start $flyd_port 17 | 18 | -------------------------------------------------------------------------------- /macros/startup/genclient.scr: -------------------------------------------------------------------------------- 1 | 2 | # %Z% $RCSfile: .genclient,v $ ver: $Revision: 1.4 $ $Date: 2010/12/02 18:01:03 $ 3 | 4 | # generic includes for daemon client 5 | Start_File genclient.scr 6 | 7 | If $am_client "echo 'I am already a client!' PopFile 2" 8 | Set am_client 1 9 | 10 | < $macro_dir/system/portids.scr 11 | < $macro_dir/system/daemons.mac 12 | 13 | Stop_File genclient.scr 14 | 15 | -------------------------------------------------------------------------------- /macros/startup/gencomp.scr: -------------------------------------------------------------------------------- 1 | 2 | Start_File gencomp.scr 3 | 4 | < $macro_dir/compute/funcs.mac 5 | < $macro_dir/compute/chains.mac 6 | 7 | Stop_File gencomp.scr 8 | 9 | -------------------------------------------------------------------------------- /macros/startup/gendata.scr: -------------------------------------------------------------------------------- 1 | 2 | # %Z% $RCSfile: .gendata,v $ ver: $Revision: 1.5 $ $Date: 1999/12/02 12:09:41 $ 3 | 4 | # useful macros for programs that have the data menu 5 | Start_File gendata.scr 6 | 7 | < $macro_dir/data/set_sizes.mac 8 | < $macro_dir/data/size.scr 9 | < $macro_dir/data/hips.mac 10 | < $macro_dir/data/ascii.mac 11 | < $macro_dir/data/decl.mac 12 | < $macro_dir/data/string_edit.mac 13 | 14 | Filetype hips2 # change default filetype from hips1 15 | 16 | Stop_File gendata.scr 17 | 18 | -------------------------------------------------------------------------------- /macros/startup/genview.scr: -------------------------------------------------------------------------------- 1 | 2 | # generic macros for viewers 3 | 4 | Start_File genview.scr 5 | 6 | < $macro_dir/view/common.mac 7 | < $macro_dir/view/luts.mac 8 | #< $macro_dir/view/dither.mac 9 | < $macro_dir/view/view.mac 10 | < $macro_dir/view/dpysize.scr 11 | #< $macro_dir/view/plotsupp.mac 12 | < $macro_dir/gui/ui.mac 13 | 14 | Stop_File genview.scr 15 | 16 | -------------------------------------------------------------------------------- /macros/startup/jpinfo.scr: -------------------------------------------------------------------------------- 1 | # 2 | 3 | < $QUIPSTARTUPDIR/quip.scr 4 | 5 | If $argc!=1 "error_exit 'usage: jpinfo jpeg_filename'" 6 | 7 | Set jpeg_file $1 8 | If !file_exists('$jpeg_file') 9 | "error_exit 'File $jpeg_file does not exist '" 10 | 11 | Read_File_Header $jpeg_file 12 | fileio info $jpeg_file quit 13 | exit 14 | 15 | -------------------------------------------------------------------------------- /macros/startup/knoxd.scr: -------------------------------------------------------------------------------- 1 | # 2 | # mmvi record daemon 3 | 4 | < $QUIPSTARTUPDIR/quip.scr 5 | 6 | ##< $QUIPSTARTUPDIR/.generic 7 | #< $QUIPSTARTUPDIR/.gendata 8 | #< $QUIPSTARTUPDIR/.genwar 9 | #< $QUIPSTARTUPDIR/.genview 10 | 11 | < $macro_dir/knox/knox.mac 12 | 13 | #verbose yes 14 | 15 | advise "Starting knox daemon on port $knoxd_port" 16 | Daemon_Start $knoxd_port 17 | 18 | -------------------------------------------------------------------------------- /macros/startup/woq.scr: -------------------------------------------------------------------------------- 1 | # 2 | 3 | verbose no 4 | 5 | variables 6 | If !var_exists(QUIPSTARTUPDIR) 7 | 'set QUIPSTARTUPDIR /usr/local/share/coq/macros/startup' 8 | quit 9 | 10 | 11 | #view debug xsupp quit 12 | 13 | < $QUIPSTARTUPDIR/generic.scr 14 | < $QUIPSTARTUPDIR/gendata.scr 15 | < $QUIPSTARTUPDIR/gencomp.scr 16 | < $QUIPSTARTUPDIR/genclient.scr 17 | < $QUIPSTARTUPDIR/genview.scr 18 | #< $QUIPSTARTUPDIR/../system/unix_helper.mac 19 | 20 | #view xsync yes quit 21 | 22 | compute control n_processors 1 quit quit 23 | max_warnings 200 24 | 25 | #debug lookahead 26 | 27 | Stop_File .coq 28 | 29 | -------------------------------------------------------------------------------- /macros/startup/woq.txt: -------------------------------------------------------------------------------- 1 | # 2 | 3 | verbose no 4 | 5 | variables 6 | If !var_exists(QUIPSTARTUPDIR) 7 | 'set QUIPSTARTUPDIR /usr/local/share/coq/macros/startup' 8 | quit 9 | 10 | 11 | #view debug xsupp quit 12 | 13 | < $QUIPSTARTUPDIR/generic.scr 14 | < $QUIPSTARTUPDIR/gendata.scr 15 | < $QUIPSTARTUPDIR/gencomp.scr 16 | < $QUIPSTARTUPDIR/genclient.scr 17 | < $QUIPSTARTUPDIR/genview.scr 18 | #< $QUIPSTARTUPDIR/../system/unix_helper.mac 19 | 20 | #view xsync yes quit 21 | 22 | compute control n_processors 1 quit quit 23 | max_warnings 200 24 | 25 | #debug lookahead 26 | 27 | Stop_File .coq 28 | 29 | -------------------------------------------------------------------------------- /macros/system/Makefile.am: -------------------------------------------------------------------------------- 1 | # want to install these somewhere like /usr/local/quip/macros... 2 | 3 | # how does this variable get used??? 4 | macrosdir = $(datadir)/quip/macros/system 5 | 6 | # these "data" files don't get put into the distribution package? 7 | 8 | macros_DATA = daemons.mac \ 9 | portids.scr \ 10 | setup_env.scr \ 11 | builtin.mac \ 12 | delay.mac \ 13 | files.mac \ 14 | mark_time.mac \ 15 | mouse.mac \ 16 | msgs.mac \ 17 | ports.mac \ 18 | unix_helper.mac \ 19 | server_utilz.mac \ 20 | vars.mac 21 | 22 | EXTRA_DIST = $(macros_DATA) 23 | 24 | -------------------------------------------------------------------------------- /macros/system/msgs.mac: -------------------------------------------------------------------------------- 1 | 2 | If $verbose 'advise "interpreting file msgs.mac"' 3 | 4 | Define Start_File 1 filename 5 | If $verbose||$chatty "advise 'interpreting file $1'" 6 | . 7 | 8 | Define Stop_File 1 filename 9 | If $verbose||$chatty "advise 'finished interpreting file $1'" 10 | . 11 | 12 | Stop_File msgs.mac 13 | 14 | -------------------------------------------------------------------------------- /macros/system/server_utilz.mac: -------------------------------------------------------------------------------- 1 | 2 | # appended version number, instead of over-writing the original. 3 | 4 | Define Count_Versions 3 varname filename directory 5 | Set $1 0 6 | Set version_idx 1 7 | If !file_exists('$3/$2') exit_macro 8 | do 9 | Increment version_idx 10 | Increment $1 11 | If !file_exists('$3/$2.$version_idx') exit_macro 12 | while 1 13 | . 14 | 15 | Define Set_Subdir_Filename 3 varname filename dirname 16 | Insure_Directory $3 17 | Count_Versions n_existing "$2" "$3" 18 | If $n_existing==0 19 | Then "Set $1 '$3/$2'" 20 | Else "Set $1 '$3/$2.$version_idx'" 21 | . 22 | 23 | 24 | -------------------------------------------------------------------------------- /macros/system/setup_env.scr: -------------------------------------------------------------------------------- 1 | 2 | Define Check_Env 3 env_var script_var default_value 3 | If !var_exists($1) "Set $1 $3" 4 | Set $2 $$1 5 | . 6 | 7 | Check_Env CHATTY chatty 0 8 | Check_Env SHOWING showing 1 9 | Check_Env PLOTTING plotting 1 10 | Check_Env PLOTALL plotall 0 11 | 12 | Check_Env SHOWALL showall 0 13 | Check_Env PAUSING pausing 0 14 | Check_Env SAVING saving 0 15 | Check_Env LOGGING logging 0 16 | Check_Env RECORDING recording 0 17 | 18 | Check_Env INTERACTIVE interactive 0 19 | 20 | Define Init_Viewers 0 21 | If $showing "< $macro_dir/view/def_viewers.scr advise 'Waiting for viewers...' Pause_If" 22 | . 23 | 24 | -------------------------------------------------------------------------------- /macros/v4l2/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/v4l2 3 | 4 | macros_DATA = v4l2.mac \ 5 | v4l2_gui.mac \ 6 | mon_ptz.mac 7 | 8 | 9 | EXTRA_DIST = $(macros_DATA) 10 | 11 | -------------------------------------------------------------------------------- /macros/view/dpysize.scr: -------------------------------------------------------------------------------- 1 | 2 | # %Z% $RCSfile: dpysize.scr,v $ ver: $Revision: 1.2 $ $Date: 1998/01/12 15:00:30 $ 3 | 4 | Start_File dpysize.scr 5 | 6 | Set display_width 256 7 | Set display_height 256 8 | 9 | Stop_File dpysize.scr 10 | 11 | -------------------------------------------------------------------------------- /macros/view/fb0_defns.mac: -------------------------------------------------------------------------------- 1 | # These macros are for 8 bpp display 2 | 3 | # The big Acer monitor is 1920x1200 but it is broken at the moment. 4 | # We've replaced it with a Samsung Syncmaster 204bw: 1680x1050 5 | Define Set_Screen_Color 3 r g b 6 | Setcolor $mod_index $1 $2 $3 7 | Update_Cmap 8 | . 9 | 10 | Define Toggle_Screens 0 11 | nop 12 | . 13 | 14 | -------------------------------------------------------------------------------- /macros/visca/Makefile.am: -------------------------------------------------------------------------------- 1 | 2 | macrosdir = $(datadir)/quip/macros/visca 3 | 4 | macros_DATA = visca_common.mac \ 5 | visca.mac \ 6 | evic.mac \ 7 | evi_params.scr \ 8 | ptz_gui.mac 9 | 10 | 11 | EXTRA_DIST = $(macros_DATA) 12 | 13 | -------------------------------------------------------------------------------- /make_macro_index.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | grep '^define(' libsrc/veclib2/*.m4 include/veclib/*.m4 | sed -e 's/:/\t/' | sed -e 's/define(`//' | \ 4 | awk -F "'" '{print $1}' | dm s2 s1 | sort 5 | 6 | -------------------------------------------------------------------------------- /src/.gitignore: -------------------------------------------------------------------------------- 1 | quip 2 | main.c 3 | leakout 4 | 5 | -------------------------------------------------------------------------------- /src/README: -------------------------------------------------------------------------------- 1 | 2 | Linker problems w/ cuda libs, even when not building with cuda? 3 | 4 | dyld: Library not loaded: @rpath/libnpps.7.5.dylib 5 | Referenced from: /usr/local/bin/quip 6 | Reason: image not found 7 | Trace/BPT trap 8 | 9 | -------------------------------------------------------------------------------- /src/quip_main.m: -------------------------------------------------------------------------------- 1 | #include 2 | #include "quip_main.c" 3 | 4 | -------------------------------------------------------------------------------- /src/quip_test.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | echo "version features exit" | ./quip 4 | 5 | 6 | -------------------------------------------------------------------------------- /xcode/iquip/.gitignore: -------------------------------------------------------------------------------- 1 | .DS_Store 2 | iquip.xcodeproj/project.xcworkspace/xcshareddata/ 3 | 4 | -------------------------------------------------------------------------------- /xcode/iquip/Default-568h@2x.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/xcode/iquip/Default-568h@2x.png -------------------------------------------------------------------------------- /xcode/iquip/Default.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/xcode/iquip/Default.png -------------------------------------------------------------------------------- /xcode/iquip/Default@2x.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/xcode/iquip/Default@2x.png -------------------------------------------------------------------------------- /xcode/iquip/iQuIP/en.lproj/InfoPlist.strings: -------------------------------------------------------------------------------- 1 | /* Localized versions of Info.plist keys */ 2 | 3 | -------------------------------------------------------------------------------- /xcode/iquip/iQuIP/iQuIP-Prefix.pch: -------------------------------------------------------------------------------- 1 | // 2 | // Prefix header for all source files of the 'coq' target in the 'coq' project 3 | // 4 | 5 | //#import 6 | #include 7 | 8 | #ifndef __IPHONE_3_0 9 | #warning "This project uses features only available in iOS SDK 3.0 and later." 10 | #endif 11 | 12 | #ifdef __OBJC__ 13 | #import 14 | #import 15 | #endif 16 | 17 | extern int shut_up_compiler; 18 | -------------------------------------------------------------------------------- /xcode/iquip/images/Icon-72.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/xcode/iquip/images/Icon-72.png -------------------------------------------------------------------------------- /xcode/iquip/images/Icon-72@2x.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/xcode/iquip/images/Icon-72@2x.png -------------------------------------------------------------------------------- /xcode/iquip/images/Icon-Small-50.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/xcode/iquip/images/Icon-Small-50.png -------------------------------------------------------------------------------- /xcode/iquip/images/Icon-Small.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/xcode/iquip/images/Icon-Small.png -------------------------------------------------------------------------------- /xcode/iquip/images/Icon-Small@2x.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/xcode/iquip/images/Icon-Small@2x.png -------------------------------------------------------------------------------- /xcode/iquip/images/Icon.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/xcode/iquip/images/Icon.png -------------------------------------------------------------------------------- /xcode/iquip/images/Icon@2x.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nasa/QuIP/18b5bbf590b745972f2e9c182be74baefd37d898/xcode/iquip/images/Icon@2x.png -------------------------------------------------------------------------------- /xcode/iquip/iquip.xcodeproj/project.xcworkspace/.gitignore: -------------------------------------------------------------------------------- 1 | xcuserdata 2 | 3 | -------------------------------------------------------------------------------- /xcode/iquip/iquip.xcodeproj/project.xcworkspace/contents.xcworkspacedata: -------------------------------------------------------------------------------- 1 | 2 | 4 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /xcode/macq/.gitignore: -------------------------------------------------------------------------------- 1 | .DS_Store 2 | macq.xcodeproj/project.xcworkspace/xcshareddata 3 | 4 | 5 | -------------------------------------------------------------------------------- /xcode/macq/MacQuIP/MacQuIP-Prefix.pch: -------------------------------------------------------------------------------- 1 | // 2 | // Prefix header for all source files of the 'MacQuIP' target in the 'MacQuIP' project 3 | // 4 | 5 | #ifdef __OBJC__ 6 | #import 7 | #endif 8 | -------------------------------------------------------------------------------- /xcode/macq/MacQuIP/en.lproj/Credits.rtf: -------------------------------------------------------------------------------- 1 | {\rtf1\ansi\ansicpg1252\cocoartf1187\cocoasubrtf390 2 | {\fonttbl\f0\fswiss\fcharset0 Helvetica;} 3 | {\colortbl;\red255\green255\blue255;} 4 | \vieww9600\viewh8400\viewkind0 5 | \pard\tx560\tx1120\tx1680\tx2240\tx2800\tx3360\tx3920\tx4480\tx5040\tx5600\tx6160\tx6720 6 | 7 | \f0\b\fs24 \cf0 MacQuIP - Quick Image Processing for Mac OSX\ 8 | version 0.10\ 9 | Jeffrey B. Mulligan, NASA Ames Research Center\ 10 | jeffrey.b.mulligan@nasa.gov 11 | \b0 \ 12 | } -------------------------------------------------------------------------------- /xcode/macq/MacQuIP/en.lproj/InfoPlist.strings: -------------------------------------------------------------------------------- 1 | /* Localized versions of Info.plist keys */ 2 | 3 | -------------------------------------------------------------------------------- /xcode/macq/MacQuIP/mqAppDelegate.h: -------------------------------------------------------------------------------- 1 | // 2 | // mqAppDelegate.h 3 | // MacQuIP 4 | // 5 | // Created by Jeff Mulligan on 9/10/13. 6 | // Copyright (c) 2013 Jeff Mulligan. All rights reserved. 7 | // 8 | 9 | #import 10 | 11 | @interface mqAppDelegate : NSObject 12 | 13 | @property (assign) IBOutlet NSWindow *window; 14 | 15 | @end 16 | -------------------------------------------------------------------------------- /xcode/macq/MacQuIP/mqAppDelegate.m: -------------------------------------------------------------------------------- 1 | // 2 | // mqAppDelegate.m 3 | // MacQuIP 4 | // 5 | // Created by Jeff Mulligan on 9/10/13. 6 | // Copyright (c) 2013 Jeff Mulligan. All rights reserved. 7 | // 8 | 9 | #import "mqAppDelegate.h" 10 | 11 | @implementation mqAppDelegate 12 | 13 | - (void)applicationDidFinishLaunching:(NSNotification *)aNotification 14 | { 15 | // Insert code here to initialize your application 16 | printf("applicationDidFinishLaunching!\n"); 17 | } 18 | 19 | @end 20 | -------------------------------------------------------------------------------- /xcode/macq/macq.xcodeproj/project.xcworkspace/.gitignore: -------------------------------------------------------------------------------- 1 | xcuserdata 2 | 3 | -------------------------------------------------------------------------------- /xcode/macq/macq.xcodeproj/project.xcworkspace/contents.xcworkspacedata: -------------------------------------------------------------------------------- 1 | 2 | 4 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /xcode/prepare_files.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | # Generate a few files that are not part of the git repo 4 | 5 | cd ../include 6 | ./update_quip_version.sh 7 | cd ../macros/startup 8 | ./mac_build_startup.csh demo test 9 | ./build_startup_file.csh iquip test 10 | 11 | 12 | -------------------------------------------------------------------------------- /yum_install.csh: -------------------------------------------------------------------------------- 1 | #!/bin/csh 2 | 3 | yum install libpng-devel 4 | yum install libtiff-devel 5 | #yum install libX11-devel 6 | #yum install lib-alsa-devel 7 | yum install libtermcap-devel 8 | yum install openmotif-devel 9 | yum install ffmpeg-devel 10 | yum install freeglut-devel 11 | yum install texinfo-tex 12 | #yum install libdc1394-devel 13 | yum install gsl-devel 14 | yum install ncurses-devel 15 | yum install opencv-devel 16 | yum install matio-devel 17 | yum install curl-devel 18 | 19 | --------------------------------------------------------------------------------