suwrite.menu

su 的源代码库

'(
name: SUWRITE
label: "Write SU stream"
value_tab: 25

parameter: CHOOSE1
text: "Choose type of output stream"
type: choose:
type_desc: (
   ("SU_command" 0 "Will pipe output to SU command.")
   ("SU_data_file" 1 "Will write output data directly to SU file." )
   ("SU_command_file" 2 "Will enter name of SU command file and pipe output to the SU program suget." ) )
value: 0
mouse_text: "Choose type of output SU data stream."

parameter: CMND
text: "SU command."
type: edit:
type_desc: (70 80 16
"Enter one or a series of SU or Bourne Shell commands.  The output
data from this module will be piped as input to these commands.
Commands can continue over multiple lines using the backslash.
Comments follow the # sign up to the end of the line.  For
example, you can enter

supswigp >temp.eps \                       #make a postscript wiggle plot
   xbox=2.0 hbox=5 wbox=8 \                #plot 5 in tall by 8 in wide
   label1=time(ms) labelsize=24 \          #label the time axis
   titlesize=36 title=seismic_data         #put a title with 36 point font
psmerge in=temp.eps \                      #rotate to put in landscape mode
   translate=0.,11.0 rotate=-90. >plot.eps #final output postscript file
rm temp.eps                                #remove temporary file"
13)
value: "suxwigb"
mouse_text: "Pipe output to this SU command.  Use EMACS commands to edit this field. "

parameter: DATAFILE
text: "Path to SU data file including file name"
type: edit:
type_desc: (70 80 3
"This is the output SU file name.  Be sure to give a complete
path name because ProMAX may be operating in a different directory
than where you desire to place the file.  For example:

/usr/home/your_name/file.su"
5)
value: "suwrite.su"
mouse_text: "This is the path to the SU data file including the file name itself. Use EMACS commands to edit this field. "

parameter: CMNDFILE
text: "Path to SU command file including file name."
type: edit:
type_desc: (70 80 3
"This is the output command file name.  Be sure to give a complete
path name because ProMAX may be operating in a different directory
than where your Bourne shell command file is located.  For example:

/usr/home/your_name/file.script

This command file should begin with the SU module  suget $1  as the 
SU stream must be read and passed on by suget.  For example:

#! /bin/sh
suget $1 | suxwigb
exit"
12)
value: "suwrite.script"
mouse_text: "This is the path to the SU command file.  Suget receives data from this module. Use EMACS commands to edit this field. "


exec_data: ("SUWRITE"
		("GENERAL"
		   	("CHOOSE1"     implicit: (value 'CHOOSE1))
		   	("CMND"        implicit: (value 'CMND))
		   	("CMNDFILE"    implicit: (value 'CMNDFILE))
		   	("DATAFILE"    implicit: (value 'DATAFILE))
		)
	   )
rules: 	(
		(rule1
			(=(value 'CHOOSE1) 0 )
				(progn
					(do_show 'CMND)
					(do_not_show 'CMNDFILE)
					(do_not_show 'DATAFILE)
			)
		)
		(rule2
			(=(value 'CHOOSE1) 1 )
				(progn
					(do_not_show 'CMND)
					(do_not_show 'CMNDFILE)
					(do_show 'DATAFILE)
			)
		)
		(rule3
			(=(value 'CHOOSE1) 2 )
				(progn
					(do_not_show 'CMND)
					(do_show 'CMNDFILE)
					(do_not_show 'DATAFILE)
			)
		)
	)
)