NetNews Usenet Archive 1992 #27

home *** CD-ROM | disk | FTP | other *** search

/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / alt / sources / 2579 < prev next >

Wrap

Internet Message Format | 1992-11-20 | 42.1 KB

Path: sparky!uunet!stanford.edu!morrow.stanford.edu!sep!steve From: steve@sep.Stanford.EDU (Steve Cole) Newsgroups: alt.sources Subject: xtpanel 2.0 - interactive program builder - part 03/10 Followup-To: alt.sources.d Date: 21 Nov 1992 00:29:59 GMT Organization: Stanford Exploration Project Lines: 1250 Distribution: world Message-ID: <1ejvu7INN194@morrow.stanford.edu> NNTP-Posting-Host: taal.stanford.edu Submitted-by: steve@sep.Stanford.EDU Archive-name: xtpanel/part03 #!/bin/sh # This is part 03 of a multipart archive # ============= xtpanel/generator/Makefile ============== if test ! -d 'xtpanel'; then echo 'x - creating directory xtpanel' mkdir 'xtpanel' fi if test ! -d 'xtpanel/generator'; then echo 'x - creating directory xtpanel/generator' mkdir 'xtpanel/generator' fi if test -f 'xtpanel/generator/Makefile' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/Makefile (File already exists)' else echo 'x - extracting xtpanel/generator/Makefile (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/Makefile' && # Makefile generated by imake - do not edit! # $XConsortium: imake.c,v 1.51 89/12/12 12:37:30 jim Exp $ # # The cpp used on this machine replaces all newlines and multiple tabs and # spaces in a macro expansion with a single space. Imake tries to compensate # for this, but is not always successful. # X # ------------------------------------------------------------------------- # Makefile generated from "Imake.tmpl" and <Imakefile> # $XConsortium: Imake.tmpl,v 1.139 91/09/16 08:52:48 rws Exp $ # # Platform-specific parameters may be set in the appropriate <vendor>.cf # configuration files. Site-specific parameters should be set in the file # site.def. Full rebuilds are recommended if any parameters are changed. # # If your C preprocessor does not define any unique symbols, you will need # to set BOOTSTRAPCFLAGS when rebuilding imake (usually when doing # "make World" the first time). # X # ------------------------------------------------------------------------- # site-specific configuration parameters that need to come before # the platform-specific parameters - edit site.def to change X # site: $XConsortium: site.def,v 1.2 91/07/30 20:26:44 rws Exp $ X # ------------------------------------------------------------------------- # platform-specific configuration parameters - edit sun.cf to change X # platform: $XConsortium: sun.cf,v 1.72.1.1 92/03/18 13:13:37 rws Exp $ X # operating system: SunOS 4.1.1 X # $XConsortium: sunLib.rules,v 1.7 91/12/20 11:19:47 rws Exp $ X # ------------------------------------------------------------------------- # site-specific configuration parameters that go after # the platform-specific parameters - edit site.def to change X # site: $XConsortium: site.def,v 1.2 91/07/30 20:26:44 rws Exp $ X X SHELL = /bin/sh X X TOP = ../. X CURRENT_DIR = ./generator X X AR = ar clq X BOOTSTRAPCFLAGS = X CC = cc X AS = as X X COMPRESS = compress X CPP = /lib/cpp $(STD_CPP_DEFINES) X PREPROCESSCMD = cc -E $(STD_CPP_DEFINES) X INSTALL = install X LD = ld X LINT = lint X LINTLIBFLAG = -C X LINTOPTS = -axz X LN = ln -s X MAKE = make X MV = mv X CP = cp X X RANLIB = ranlib X RANLIBINSTFLAGS = X X RM = rm -f X TROFF = psroff X MSMACROS = -ms X TBL = tbl X EQN = eqn X STD_INCLUDES = X STD_CPP_DEFINES = -D_NO_PROTO X STD_DEFINES = -D_NO_PROTO X EXTRA_LOAD_FLAGS = X EXTRA_LIBRARIES = X TAGS = ctags X X SHAREDCODEDEF = -DSHAREDCODE X SHLIBDEF = -DSUNSHLIB X X PROTO_DEFINES = X X INSTPGMFLAGS = X X INSTBINFLAGS = -m 0755 X INSTUIDFLAGS = -m 4755 X INSTLIBFLAGS = -m 0644 X INSTINCFLAGS = -m 0444 X INSTMANFLAGS = -m 0444 X INSTDATFLAGS = -m 0444 X INSTKMEMFLAGS = -g kmem -m 2755 X X PROJECTROOT = /usr/local X X TOP_INCLUDES = -I$(INCROOT) X X CDEBUGFLAGS = -O X CCOPTIONS = -pipe X X ALLINCLUDES = $(INCLUDES) $(EXTRA_INCLUDES) $(TOP_INCLUDES) $(STD_INCLUDES) X ALLDEFINES = $(ALLINCLUDES) $(STD_DEFINES) $(EXTRA_DEFINES) $(PROTO_DEFINES) $(DEFINES) X CFLAGS = $(CDEBUGFLAGS) $(CCOPTIONS) $(ALLDEFINES) X LINTFLAGS = $(LINTOPTS) -DLINT $(ALLDEFINES) X X LDLIBS = $(SYS_LIBRARIES) $(EXTRA_LIBRARIES) X X LDOPTIONS = $(CDEBUGFLAGS) $(CCOPTIONS) $(LOCAL_LDFLAGS) -L$(USRLIBDIR) X X LDCOMBINEFLAGS = -X -r X DEPENDFLAGS = X X MACROFILE = sun.cf X RM_CMD = $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut X X IMAKE_DEFINES = X X IRULESRC = $(CONFIGDIR) X IMAKE_CMD = $(IMAKE) -DUseInstalled -I$(IRULESRC) $(IMAKE_DEFINES) X X ICONFIGFILES = $(IRULESRC)/Imake.tmpl $(IRULESRC)/Imake.rules \ X $(IRULESRC)/Project.tmpl $(IRULESRC)/site.def \ X $(IRULESRC)/$(MACROFILE) $(EXTRA_ICONFIGFILES) X # ------------------------------------------------------------------------- # X Window System Build Parameters # $XConsortium: Project.tmpl,v 1.138 91/09/10 09:02:12 rws Exp $ X # ------------------------------------------------------------------------- # X Window System make variables; this need to be coordinated with rules X X PATHSEP = / X USRLIBDIR = /usr/local/lib X BINDIR = /usr/local/bin/X5 X INCROOT = /usr/local/include X BUILDINCROOT = $(TOP) X BUILDINCDIR = $(BUILDINCROOT)/X11 X BUILDINCTOP = .. X INCDIR = $(INCROOT)/X11 X ADMDIR = /usr/adm X LIBDIR = $(USRLIBDIR)/X11 X CONFIGDIR = $(LIBDIR)/config X LINTLIBDIR = $(USRLIBDIR)/lint X X FONTDIR = $(LIBDIR)/fonts X XINITDIR = $(LIBDIR)/xinit X XDMDIR = $(LIBDIR)/xdm X TWMDIR = $(LIBDIR)/twm X MANPATH = /usr/local/man X MANSOURCEPATH = $(MANPATH)/man X MANSUFFIX = n X LIBMANSUFFIX = 3 X MANDIR = $(MANSOURCEPATH)$(MANSUFFIX) X LIBMANDIR = $(MANSOURCEPATH)$(LIBMANSUFFIX) X NLSDIR = $(LIBDIR)/nls X PEXAPIDIR = $(LIBDIR)/PEX X XAPPLOADDIR = $(LIBDIR)/app-defaults X FONTCFLAGS = -t X X INSTAPPFLAGS = $(INSTDATFLAGS) X X IMAKE = imake X DEPEND = makedepend X RGB = rgb X X FONTC = bdftopcf X X MKFONTDIR = mkfontdir X MKDIRHIER = /bin/sh $(BINDIR)/mkdirhier X X CONFIGSRC = $(TOP)/config X DOCUTILSRC = $(TOP)/doc/util X CLIENTSRC = $(TOP)/clients X DEMOSRC = $(TOP)/demos X LIBSRC = $(TOP)/lib X FONTSRC = $(TOP)/fonts X INCLUDESRC = $(TOP)/X11 X SERVERSRC = $(TOP)/server X UTILSRC = $(TOP)/util X SCRIPTSRC = $(UTILSRC)/scripts X EXAMPLESRC = $(TOP)/examples X CONTRIBSRC = $(TOP)/../contrib X DOCSRC = $(TOP)/doc X RGBSRC = $(TOP)/rgb X DEPENDSRC = $(UTILSRC)/makedepend X IMAKESRC = $(CONFIGSRC) X XAUTHSRC = $(LIBSRC)/Xau X XLIBSRC = $(LIBSRC)/X X XMUSRC = $(LIBSRC)/Xmu X TOOLKITSRC = $(LIBSRC)/Xt X AWIDGETSRC = $(LIBSRC)/Xaw X OLDXLIBSRC = $(LIBSRC)/oldX X XDMCPLIBSRC = $(LIBSRC)/Xdmcp X BDFTOSNFSRC = $(FONTSRC)/bdftosnf X BDFTOSNFSRC = $(FONTSRC)/clients/bdftosnf X BDFTOPCFSRC = $(FONTSRC)/clients/bdftopcf X MKFONTDIRSRC = $(FONTSRC)/clients/mkfontdir X FSLIBSRC = $(FONTSRC)/lib/fs X FONTSERVERSRC = $(FONTSRC)/server X EXTENSIONSRC = $(TOP)/extensions X XILIBSRC = $(EXTENSIONSRC)/lib/xinput X PHIGSLIBSRC = $(EXTENSIONSRC)/lib/PEX X # $XConsortium: sunLib.tmpl,v 1.14.1.1 92/03/17 14:58:46 rws Exp $ X SHLIBLDFLAGS = -assert pure-text PICFLAGS = -pic X X DEPEXTENSIONLIB = X EXTENSIONLIB = -lXext X X DEPXLIB = $(DEPEXTENSIONLIB) X XLIB = $(EXTENSIONLIB) -lX11 X X DEPXMULIB = $(USRLIBDIR)/libXmu.sa.$(SOXMUREV) X XMULIBONLY = -lXmu X XMULIB = -lXmu X X DEPOLDXLIB = X OLDXLIB = -loldX X X DEPXTOOLLIB = $(USRLIBDIR)/libXt.sa.$(SOXTREV) X XTOOLLIB = -lXt X X DEPXAWLIB = $(USRLIBDIR)/libXaw.sa.$(SOXAWREV) X XAWLIB = -lXaw X X DEPXILIB = X XILIB = -lXi X X SOXLIBREV = 4.10 X SOXTREV = 4.10 X SOXAWREV = 5.0 X SOOLDXREV = 4.10 X SOXMUREV = 4.10 X SOXEXTREV = 4.10 X SOXINPUTREV = 4.10 X X DEPXAUTHLIB = $(USRLIBDIR)/libXau.a X XAUTHLIB = -lXau X DEPXDMCPLIB = $(USRLIBDIR)/libXdmcp.a X XDMCPLIB = -lXdmcp X X DEPPHIGSLIB = $(USRLIBDIR)/libphigs.a X PHIGSLIB = -lphigs X X DEPXBSDLIB = $(USRLIBDIR)/libXbsd.a X XBSDLIB = -lXbsd X X LINTEXTENSIONLIB = $(LINTLIBDIR)/llib-lXext.ln X LINTXLIB = $(LINTLIBDIR)/llib-lX11.ln X LINTXMU = $(LINTLIBDIR)/llib-lXmu.ln X LINTXTOOL = $(LINTLIBDIR)/llib-lXt.ln X LINTXAW = $(LINTLIBDIR)/llib-lXaw.ln X LINTXI = $(LINTLIBDIR)/llib-lXi.ln X LINTPHIGS = $(LINTLIBDIR)/llib-lphigs.ln X X DEPLIBS = $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB) X X DEPLIBS1 = $(DEPLIBS) X DEPLIBS2 = $(DEPLIBS) X DEPLIBS3 = $(DEPLIBS) X # ------------------------------------------------------------------------- # Imake rules for building libraries, programs, scripts, and data files # rules: $XConsortium: Imake.rules,v 1.123 91/09/16 20:12:16 rws Exp $ X # ------------------------------------------------------------------------- # start of Imakefile X SYS_XTPANELDIR = $(LIBDIR)/xtpanel X FILES = action dialog slider \ actionstring field text \ box item generator \ button list help \ choice menubutton extras \ confirm message toggle \ scrollbar graph assignstring \ setstring X install:: X @case '${MFLAGS}' in *[i]*) set +e;; esac; X @for i in $(SYS_XTPANELDIR)/generator; do if [ -d $(DESTDIR)$$i ]; then \ X set +x; else (set -x; $(MKDIRHIER) $(DESTDIR)$$i); fi \ X done X install:: $(FILES) X @if [ -d $(DESTDIR) $(SYS_XTPANELDIR)/generator ]; then set +x; \ X else (set -x; $(MKDIRHIER) $(DESTDIR) $(SYS_XTPANELDIR)/generator); fi X @case '${MFLAGS}' in *[i]*) set +e;; esac; \ X for i in $(FILES); do \ X (set -x; $(INSTALL) -c -m 644 $$i $(DESTDIR) $(SYS_XTPANELDIR)/generator); \ X done X # ------------------------------------------------------------------------- # common rules for all Makefiles - do not edit X emptyrule:: X clean:: X $(RM_CMD) "#"* X Makefile:: X -@if [ -f Makefile ]; then set -x; \ X $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \ X else exit 0; fi X $(IMAKE_CMD) -DTOPDIR=$(TOP) -DCURDIR=$(CURRENT_DIR) X tags:: X $(TAGS) -w *.[ch] X $(TAGS) -xw *.[ch] > TAGS X saber: X # load $(ALLDEFINES) $(SRCS) X osaber: X # load $(ALLDEFINES) $(OBJS) X # ------------------------------------------------------------------------- # empty rules for directories that do not have SUBDIRS - do not edit X install:: X @echo "install in $(CURRENT_DIR) done" X install.man:: X @echo "install.man in $(CURRENT_DIR) done" X Makefiles:: X includes:: X # ------------------------------------------------------------------------- # dependencies generated by makedepend X SHAR_EOF chmod 0664 xtpanel/generator/Makefile || echo 'restore of xtpanel/generator/Makefile failed' Wc_c="`wc -c < 'xtpanel/generator/Makefile'`" test 10168 -eq "$Wc_c" || echo 'xtpanel/generator/Makefile: original size 10168, current size' "$Wc_c" fi # ============= xtpanel/generator/message ============== if test -f 'xtpanel/generator/message' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/message (File already exists)' else echo 'x - extracting xtpanel/generator/message (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/message' && button={ label=Help action="xtpanel -file help/message &" } vbox={ message={ value="Click to specify any of the following message parameters" } button={ label="name" X action="ASSIGN out $(out)\n`xtpanel -name ""message name"" \ X -var varname name -file generator/field`" } button={ label="value" X action="ASSIGN out $(out)\n`xtpanel -name ""message value"" \ X -var varname value -file generator/field`" } button={ label="more parameters" X action="ASSIGN out $(out)`xtpanel -name ""more button parameters"" \ X -file generator/extras`" } } message={ value="Or edit below to add new parameters or make changes" } text={ name=out value="" editType=edit height=75 width=400 } button={ label="Click here when done to add message to script" X action='echo ''message={ $(out) \n} '' >> $fileout ' X action=QUIT } button={ label="Or click here to cancel" action=QUIT } SHAR_EOF chmod 0664 xtpanel/generator/message || echo 'restore of xtpanel/generator/message failed' Wc_c="`wc -c < 'xtpanel/generator/message'`" test 875 -eq "$Wc_c" || echo 'xtpanel/generator/message: original size 875, current size' "$Wc_c" fi # ============= xtpanel/generator/slider ============== if test -f 'xtpanel/generator/slider' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/slider (File already exists)' else echo 'x - extracting xtpanel/generator/slider (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/slider' && button={ label=Help action="xtpanel -file help/slider &" } vbox={ message={ value="Click to specify any of the following slider parameters" } button={ label="label" X action="ASSIGN out $(out)\n`xtpanel -name ""slider label"" \ X -var varname label -file generator/field`" } button={ label="action" X action="ASSIGN out $(out)\n `xtpanel -name ""slider action"" \ X -file generator/action`" } button={ label="name" X action="ASSIGN out $(out)\n`xtpanel -name ""slider name"" \ X -var varname name -file generator/field`" } button={ label="value" X action="ASSIGN out $(out)\n`xtpanel -name ""slider value"" \ X -var varname value -file generator/field`" } button={ label="minimum value" X action="ASSIGN out $(out)\n`xtpanel -name ""slider minimum value"" \ X -var varname min -file generator/field`" } button={ label="maximum value" X action="ASSIGN out $(out)\n`xtpanel -name ""slider maximum value"" \ X -var varname max -file generator/field`" } button={ label="format" X action="ASSIGN out $(out)\n`xtpanel -name ""slider format"" \ X -var varname format -file generator/field`" } button={ label="more parameters" X action="ASSIGN out $(out)\n`xtpanel -name ""more slider parameters"" \ X -file generator/extras`" } } message={ value="Or edit below to add new parameters or make changes" } text={ name=out value="" editType=edit height=75 width=400 } button={ label="Click here when done to add slider to script" X action='echo ''slider={ $(out) \n} '' >> $fileout ' X action=QUIT } button={ label="Or click here to cancel" action=QUIT } SHAR_EOF chmod 0664 xtpanel/generator/slider || echo 'restore of xtpanel/generator/slider failed' Wc_c="`wc -c < 'xtpanel/generator/slider'`" test 1553 -eq "$Wc_c" || echo 'xtpanel/generator/slider: original size 1553, current size' "$Wc_c" fi # ============= xtpanel/generator/text ============== if test -f 'xtpanel/generator/text' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/text (File already exists)' else echo 'x - extracting xtpanel/generator/text (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/text' && button={ label=Help action="xtpanel -file help/text &" } vbox={ message={ value="Click to specify any of the following text parameters" } button={ label="action" X action="ASSIGN out $(out)\n `xtpanel -name ""text action"" \ X -file generator/action`" } button={ label="name" X action="ASSIGN out $(out)\n`xtpanel -name ""text name"" \ X -var varname name -file generator/field`" } button={ label="value" X action="ASSIGN out $(out)\n`xtpanel -name ""text value"" \ X -var varname value -file generator/field`" } button={ label="more parameters" X action="ASSIGN out $(out)`xtpanel -name ""more text parameters"" \ X -file generator/extras`" } } message={ value="Or edit below to add new parameters or make changes" } text={ name=out value="" editType=edit height=75 width=400 } button={ label="Click here when done to add text object to script" X action='echo ''text={ $(out) \n} '' >> $fileout ' X action=QUIT } button={ label="Or click here to cancel" action=QUIT } SHAR_EOF chmod 0664 xtpanel/generator/text || echo 'restore of xtpanel/generator/text failed' Wc_c="`wc -c < 'xtpanel/generator/text'`" test 978 -eq "$Wc_c" || echo 'xtpanel/generator/text: original size 978, current size' "$Wc_c" fi # ============= xtpanel/generator/menubutton ============== if test -f 'xtpanel/generator/menubutton' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/menubutton (File already exists)' else echo 'x - extracting xtpanel/generator/menubutton (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/menubutton' && button={ label=Help action="xtpanel -file help/menubutton &" } vbox={ message={ X value="Click to specify any of the following menubutton parameters" } button={ label="label" X action="ASSIGN out $(out)\n`xtpanel -name ""menubutton label"" \ X -var varname label -file generator/field`" } button={ label="action" X action="ASSIGN out $(out)\n `xtpanel -name ""menubutton action"" \ X -file generator/action`" } button={ label="name" X action="ASSIGN out $(out)\n`xtpanel -name ""menubutton name"" \ X -var varname name -file generator/field`" } button={ label="value" X action="ASSIGN out $(out)\n`xtpanel -name ""menubutton value"" \ X -var varname value -file generator/field`" } button={ label="more parameters" X action="ASSIGN out $(out)`xtpanel -name ""more menubutton parameters"" \ X -file generator/extras`" } } button={ X label="Click here to add an item to the menubutton" X action="ASSIGN out $(out)\n `xtpanel -name ""add a menubutton item"" \ X -file generator/item`" } message={ value="Or edit below to add new parameters or make changes" } text={ name=out value="" editType=edit height=75 width=400 } button={ label="Click here when done to add menubutton to script" X action='echo ''menubutton={ $out \n} '' >> $fileout ' X action=QUIT } button={ label="Or click here to cancel" action=QUIT } SHAR_EOF chmod 0664 xtpanel/generator/menubutton || echo 'restore of xtpanel/generator/menubutton failed' Wc_c="`wc -c < 'xtpanel/generator/menubutton'`" test 1322 -eq "$Wc_c" || echo 'xtpanel/generator/menubutton: original size 1322, current size' "$Wc_c" fi # ============= xtpanel/generator/generator ============== if test -f 'xtpanel/generator/generator' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/generator (File already exists)' else echo 'x - extracting xtpanel/generator/generator (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/generator' && vbox={ name=noborder hbox={ name=noborder button={ label=Quit action=QUIT } button={ label=Help X action="xtpanel -name ""generator help"" -file generator/help &" } } dialog={ name=fileout X label="File name for xtpanel script" value="$HOME/xtpanel.out" } button={ label="Examine/Edit script file" action="xterm -e vi $(fileout)" } button={ label="Delete script file" X action="xtpanel -name ""Confirm delete"" -var fileout $(fileout) \ X -file generator/confirm" } button={ label="Run xtpanel on script to see the panel" X action="xtpanel -file $(fileout) &" } } message={ value="select an object type to add to the script" } button={ label="message" X action="xtpanel -name ""message"" -var fileout $(fileout) \ X -file generator/message &" } button={ label="text" X action="xtpanel -name ""text"" -var fileout $(fileout) \ X -file generator/text &" } button={ label="button" X action="xtpanel -name ""button"" -var fileout $(fileout) \ X -file generator/button &" } button={ label="toggle" X action="xtpanel -name ""toggle"" -var fileout $(fileout) \ X -file generator/toggle &" } button={ label="slider" X action="xtpanel -name ""slider"" -var fileout $(fileout) \ X -file generator/slider &" } button={ label="scrollbar" X action="xtpanel -name ""scrollbar"" -var fileout $(fileout) \ X -file generator/scrollbar &" } button={ label="dialog" X action="xtpanel -name ""dialog"" -var fileout $(fileout) \ X -file generator/dialog &" } button={ label="choice" X action="xtpanel -name ""choice"" -var fileout $(fileout) \ X -file generator/choice &" } button={ label="list" X action="xtpanel -name ""list"" -var fileout $(fileout) \ X -file generator/list &" } button={ label="menubutton" X action="xtpanel -name ""menubutton"" -var fileout $(fileout) \ X -file generator/menubutton &" } button={ label="graph" X action="xtpanel -name ""graph"" -var fileout $(fileout) \ X -file generator/graph &" } button={ label="quit button" X action="echo ""button={ label=quit action=QUIT }\n"" >> $(fileout)" } message={ value="use these buttons to group objects in boxes" } button={ label="start a box" X action="xtpanel -var fileout $(fileout) -name ""boxes"" \ X -file generator/box &" } button={ label="finish a box" action="echo ""}\n"" >> $(fileout)" } SHAR_EOF chmod 0664 xtpanel/generator/generator || echo 'restore of xtpanel/generator/generator failed' Wc_c="`wc -c < 'xtpanel/generator/generator'`" test 2328 -eq "$Wc_c" || echo 'xtpanel/generator/generator: original size 2328, current size' "$Wc_c" fi # ============= xtpanel/generator/action ============== if test -f 'xtpanel/generator/action' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/action (File already exists)' else echo 'x - extracting xtpanel/generator/action (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/action' && button={ label=Help action="xtpanel -file help/actions &" } button={ label=Cancel action="QUIT" } vbox={ name=noborder message={ value="What should this object do when it is modified?" } hbox={ name=noborder button={ label="NONE" action="echo action=NONE " action=QUIT } message={ value="save its value as a string for use by other objects" } } hbox={ name=noborder button={ label="PRINT" X action="xtpanel -var acttype PRINT \ X -file generator/actionstring" X action=QUIT } message={ X value="print a string, including its value, to the standard output" } } hbox={ name=noborder button={ label="SYSTEM" X action="xtpanel -var acttype SYSTEM \ X -file generator/actionstring " X action=QUIT } message={ X value="execute a command, including its value, via a call to system()" } } hbox={ name=noborder button={ label="STRING" X action="xtpanel -var acttype STRING \ X -file generator/actionstring " X action=QUIT } message={ X value="save a string, including its value, for use by other objects" } } hbox={ name=noborder button={ label="ASSIGN" X action="xtpanel -var acttype ASSIGN \ X -file generator/assignstring " X action=QUIT } message={ X value="modify the value of another object" } } hbox={ name=noborder button={ label="SET" X action="xtpanel -var acttype SET \ X -file generator/setstring " X action=QUIT } message={ X value="modify a resource of another object" } } hbox={ name=noborder button={ label="QUIT" action="echo action=QUIT " action=QUIT } message={ value="quit xtpanel" } } } SHAR_EOF chmod 0664 xtpanel/generator/action || echo 'restore of xtpanel/generator/action failed' Wc_c="`wc -c < 'xtpanel/generator/action'`" test 1538 -eq "$Wc_c" || echo 'xtpanel/generator/action: original size 1538, current size' "$Wc_c" fi # ============= xtpanel/generator/Imakefile ============== if test -f 'xtpanel/generator/Imakefile' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/Imakefile (File already exists)' else echo 'x - extracting xtpanel/generator/Imakefile (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/Imakefile' && X #include "../Imake.config" X FILES = action dialog slider \ actionstring field text \ box item generator \ button list help \ choice menubutton extras \ confirm message toggle \ scrollbar graph assignstring \ setstring X MakeDirectories(install,$(SYS_XTPANELDIR)/generator) X InstallMultipleFlags( $(FILES), $(SYS_XTPANELDIR)/generator, -m 644 ) X SHAR_EOF chmod 0664 xtpanel/generator/Imakefile || echo 'restore of xtpanel/generator/Imakefile failed' Wc_c="`wc -c < 'xtpanel/generator/Imakefile'`" test 451 -eq "$Wc_c" || echo 'xtpanel/generator/Imakefile: original size 451, current size' "$Wc_c" fi # ============= xtpanel/generator/help ============== if test -f 'xtpanel/generator/help' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/help (File already exists)' else echo 'x - extracting xtpanel/generator/help (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/help' && button={ label="Dismiss" action=QUIT } menubutton={ label="More help topics=>" X action="SYSTEM xtpanel -name ""$(val)"" -file help/$(val) &" item={ label="About xtpanel" value="about" } item={ label="message object" value="message" } item={ label="text object" value="text" } item={ label="button object" value="button" } item={ label="dialog object" value="dialog" } item={ label="slider object" value="slider" } item={ label="choice object" value="choice" } item={ label="list object" value="list" } item={ label="menubutton object" value="menubutton" } item={ label="item subobject" value="item" } item={ label="Actions" value="actions" } item={ label="Boxes" value="boxes" } item={ label="Script syntax details" value="syntax" } } text={ value=' X Welcome to the xtpanel script generator. X Using this generator, you can construct panels without having to learn the xtpanel script language or command line interface. The generator builds a script file for you, letting you add any xtpanel object (button, slider, message, dialog, etc.) and specify its attributes, including what should happen when the object is modified. X The upper part of the main generator panel pertains to the script file being built. You can name the script file, view it (a good way to learn the scripting language, by seeing a script as it is built) or delete the script. You can also run xtpanel on the script file to see what you have built. X In the middle section are buttons for each xtpanel object; click on any of these to add an object to the panel that you are building. Clicking on these buttons brings up another panel where you see all the attributes that apply to each object. You can modify each attribute, or allow it to default. Multi-item objects such as choices, lists, and menubuttons let you add items. When you have finished designing an object, you are back at the main panel, where you may add other objects, or examine or try out the script. X xtpanel supports the following objects: X X message Displays a single line of text. X X text Displays multiple lines of text in a scrollable X area. X X button A single button. X X dialog Provides an editable text field. X X slider Allows the user to choose a value from a range of X integer or floating point values. X X choice A group of buttons, only one of which may be X selected at a time. X X menubutton X A button with a menu attached. X X list A list of character strings, only one of which may X be selected at a time. X X Clicking on an object type brings up a panel where you can specify parameters for that object. Most objects have four basic parameters: X label This is annotation that appears on the screen, such as the X name on a button, or text above a slider or choice. X For the read-only objects message and text, this is the X text that they display on the screeen. X action This is a string that dictates what happens when an object X wants to output its value. Objects can write their value to X standard out, make a call to system(), save their value in X a string for use by other objects, or quit xtpanel. X name You can give a name to an object if you want other objects X to be able to access its value in their output strings. If X no other objects are interested in an object's value, then it X need not be given a name. X value This is the starting value for an object. For sliders, the X slider is positioned to this value. For dialogs, this text X appears in the dialog field at startup. For multi-item X objects such as choices, lists, and menubuttons, if this X value matches the value of one of the items, then that item X will be selected and highlighted when the panel comes up. X In an xtpanel script, you need not specify a value for each attribute; defaults are provided. The same is true in the generator. X The box options at the bottom of the main panel allow you to construct boxes in which objects are grouped together, and laid out horizontally or vertically. Using boxes gives you more control over the layout of a panel. X Most of the panels brought up by the generator have help buttons from which you can learn more. X ' height=300 width=750 } SHAR_EOF chmod 0664 xtpanel/generator/help || echo 'restore of xtpanel/generator/help failed' Wc_c="`wc -c < 'xtpanel/generator/help'`" test 4234 -eq "$Wc_c" || echo 'xtpanel/generator/help: original size 4234, current size' "$Wc_c" fi # ============= xtpanel/generator/assignstring ============== if test -f 'xtpanel/generator/assignstring' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/assignstring (File already exists)' else echo 'x - extracting xtpanel/generator/assignstring (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/assignstring' && button={ label=Help action="xtpanel -file help/actions &" } button={ label=Cancel action="QUIT" } vbox={ name=noborder vbox={ dialog={ X name=otherobj X label="Name of object whose value you want to modify" } message={ X value="The following string is what the other object's value" } message={ X value="is set to." } message={ X value="In it, you can refer to the value of this object as $(val)." } message={ X value="You can also refer to the values of other objects" } message={ X value="using the names you have given the objects." } text={ X name=outstring X editType=edit X value="$(val)" X height=50 width=500 } } button={ label="Click here when done" X action="echo 'action=""$(acttype) $(otherobj) $(outstring)"" ' " X action=QUIT } } SHAR_EOF chmod 0664 xtpanel/generator/assignstring || echo 'restore of xtpanel/generator/assignstring failed' Wc_c="`wc -c < 'xtpanel/generator/assignstring'`" test 745 -eq "$Wc_c" || echo 'xtpanel/generator/assignstring: original size 745, current size' "$Wc_c" fi # ============= xtpanel/generator/setstring ============== if test -f 'xtpanel/generator/setstring' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/setstring (File already exists)' else echo 'x - extracting xtpanel/generator/setstring (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/setstring' && button={ label=Help action="xtpanel -file help/actions &" } button={ label=Cancel action="QUIT" } vbox={ name=noborder vbox={ dialog={ X name=otherobj X label="Name of object whose resource you want to modify" } dialog={ X name=res X label="Name of resource to be modified" } message={ X value="The following string is what the other object's resource" } message={ X value="is set to." } message={ X value="In it, you can refer to the value of this object as $(val)." } message={ X value="You can also refer to the values of other objects" } message={ X value="using the names you have given the objects." } text={ X name=outstring X editType=edit X value="$(val)" X height=50 width=500 } } button={ label="Click here when done" X action="echo 'action=""$(acttype) $(otherobj) $(res) $(outstring)"" ' " X action=QUIT } } SHAR_EOF chmod 0664 xtpanel/generator/setstring || echo 'restore of xtpanel/generator/setstring failed' Wc_c="`wc -c < 'xtpanel/generator/setstring'`" test 821 -eq "$Wc_c" || echo 'xtpanel/generator/setstring: original size 821, current size' "$Wc_c" fi # ============= xtpanel/generator/extras ============== if test -f 'xtpanel/generator/extras' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/extras (File already exists)' else echo 'x - extracting xtpanel/generator/extras (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/extras' && button={ label=Help action="xtpanel -file help/resources &" } vbox={ message={ value="Click to specify any of the following parameters" } message={ value="Note: Some parameters apply to only certain objects" } button={ label="height" X action="ASSIGN out $(out)\n`xtpanel -name ""height"" \ X -var varname height -file generator/field`" } button={ label="width" X action="ASSIGN out $(out)\n`xtpanel -name ""width"" \ X -var varname width -file generator/field`" } button={ label="foreground color" X action="ASSIGN out $(out)\n`xtpanel -name ""foreground color"" \ X -var varname foreground -file generator/field`" } button={ label="background color" X action="ASSIGN out $(out)\n`xtpanel -name ""background color"" \ X -var varname background -file generator/field`" } button={ label="border color" X action="ASSIGN out $(out)\n`xtpanel -name ""border color"" \ X -var varname borderColor -file generator/field`" } button={ label="orientation" X action="ASSIGN out $(out)\n`xtpanel -name ""orientation"" \ X -var varname orientation -file generator/field`" } button={ label="font" X action="ASSIGN out $(out)\n`xtpanel -name ""font"" \ X -var varname font -file generator/field`" } button={ label="bitmap" X action="ASSIGN out $(out)\n`xtpanel -name ""bitmap"" \ X -var varname bitmap -file generator/field`" } } message={ value="Or edit below to add new parameters or make changes" } text={ name=out value="" editType=edit height=75 width=400 } button={ label="Click here when done to add these parameters to the object" X action='echo -n ''$(out)'' ' X action=QUIT } button={ label="Or click here to cancel" action=QUIT } SHAR_EOF chmod 0664 xtpanel/generator/extras || echo 'restore of xtpanel/generator/extras failed' Wc_c="`wc -c < 'xtpanel/generator/extras'`" test 1636 -eq "$Wc_c" || echo 'xtpanel/generator/extras: original size 1636, current size' "$Wc_c" fi # ============= xtpanel/generator/toggle ============== if test -f 'xtpanel/generator/toggle' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/toggle (File already exists)' else echo 'x - extracting xtpanel/generator/toggle (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/toggle' && button={ label=Help action="xtpanel -file help/toggle &" } vbox={ message={ value="Click to specify any of the following toggle parameters" } button={ label="label" X action="ASSIGN out $(out)\n`xtpanel -name ""toggle label"" \ X -var varname label -file generator/field`" } button={ label="action" X action="ASSIGN out $(out)\n `xtpanel -name ""toggle action"" \ X -file generator/action`" } button={ label="name" X action="ASSIGN out $(out)\n`xtpanel -name ""toggle name"" \ X -var varname name -file generator/field`" } button={ label="value" X action="ASSIGN out $(out)\n`xtpanel -name ""toggle value"" \ X -var varname value -file generator/field`" } button={ label="more parameters" X action="ASSIGN out $(out)`xtpanel -name ""more toggle parameters"" \ X -file generator/extras`" } } message={ value="Or edit below to add new parameters or make changes" } text={ name=out value="" editType=edit height=75 width=400 } button={ label="Click here when done to add toggle to script" X action='echo ''toggle={ $(out) \n} '' >> $fileout ' X action=QUIT } button={ label="Or click here to cancel" action=QUIT } SHAR_EOF chmod 0664 xtpanel/generator/toggle || echo 'restore of xtpanel/generator/toggle failed' Wc_c="`wc -c < 'xtpanel/generator/toggle'`" test 1121 -eq "$Wc_c" || echo 'xtpanel/generator/toggle: original size 1121, current size' "$Wc_c" fi # ============= xtpanel/generator/scrollbar ============== if test -f 'xtpanel/generator/scrollbar' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/scrollbar (File already exists)' else echo 'x - extracting xtpanel/generator/scrollbar (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/scrollbar' && button={ label=Help action="xtpanel -file help/scrollbar &" } vbox={ message={ value="Click to specify any of the following scrollbar parameters" } button={ label="action" X action="ASSIGN out $(out)\n `xtpanel -name ""scrollbar action"" \ X -file generator/action`" } button={ label="name" X action="ASSIGN out $(out)\n`xtpanel -name ""scrollbar name"" \ X -var varname name -file generator/field`" } button={ label="value" X action="ASSIGN out $(out)\n`xtpanel -name ""scrollbar value"" \ X -var varname value -file generator/field`" } button={ label="minimum value" X action="ASSIGN out $(out)\n`xtpanel -name ""scrollbar minimum value"" \ X -var varname min -file generator/field`" } button={ label="maximum value" X action="ASSIGN out $(out)\n`xtpanel -name ""scrollbar maximum value"" \ X -var varname max -file generator/field`" } button={ label="format" X action="ASSIGN out $(out)\n`xtpanel -name ""scrollbar format"" \ X -var varname format -file generator/field`" } button={ label="more parameters" X action="ASSIGN out $(out)\n`xtpanel -name ""more scrollbar parameters"" \ X -file generator/extras`" } } message={ value="Or edit below to add new parameters or make changes" } text={ name=out value="" editType=edit height=75 width=400 } button={ label="Click here when done to add scrollbar to script" X action='echo ''scrollbar={ $(out) \n} '' >> $fileout ' X action=QUIT } button={ label="Or click here to cancel" action=QUIT } SHAR_EOF chmod 0664 xtpanel/generator/scrollbar || echo 'restore of xtpanel/generator/scrollbar failed' Wc_c="`wc -c < 'xtpanel/generator/scrollbar'`" test 1452 -eq "$Wc_c" || echo 'xtpanel/generator/scrollbar: original size 1452, current size' "$Wc_c" fi # ============= xtpanel/generator/graph ============== if test -f 'xtpanel/generator/graph' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/generator/graph (File already exists)' else echo 'x - extracting xtpanel/generator/graph (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/generator/graph' && button={ label=Help action="xtpanel -file help/graph &" } vbox={ message={ value="Click to specify any of the following graph parameters" } button={ label="number of samples" X action="ASSIGN out $(out)\n`xtpanel -name ""graph number of samples"" \ X -var varname nsamp -file generator/field`" } button={ label="label" X action="ASSIGN out $(out)\n`xtpanel -name ""graph label"" \ X -var varname label -file generator/field`" } button={ label="action" X action="ASSIGN out $(out)\n `xtpanel -name ""graph action"" \ X -file generator/action`" } button={ label="name" X action="ASSIGN out $(out)\n`xtpanel -name ""graph name"" \ X -var varname name -file generator/field`" } button={ label="value" X action="ASSIGN out $(out)\n`xtpanel -name ""graph value"" \ X -var varname value -file generator/field`" } button={ label="minimum value" X action="ASSIGN out $(out)\n`xtpanel -name ""graph minimum value"" \ X -var varname min -file generator/field`" } button={ label="maximum value" X action="ASSIGN out $(out)\n`xtpanel -name ""graph maximum value"" \ X -var varname max -file generator/field`" } button={ label="format" X action="ASSIGN out $(out)\n`xtpanel -name ""graph format"" \ X -var varname format -file generator/field`" } button={ label="more parameters" X action="ASSIGN out $(out)\n`xtpanel -name ""more graph parameters"" \ X -file generator/extras`" } } message={ value="Or edit below to add new parameters or make changes" } text={ name=out value="" editType=edit height=75 width=400 } button={ label="Click here when done to add graph to script" X action='echo ''graph={ $(out) \n} '' >> $fileout ' X action=QUIT } button={ label="Or click here to cancel" action=QUIT } SHAR_EOF chmod 0664 xtpanel/generator/graph || echo 'restore of xtpanel/generator/graph failed' Wc_c="`wc -c < 'xtpanel/generator/graph'`" test 1698 -eq "$Wc_c" || echo 'xtpanel/generator/graph: original size 1698, current size' "$Wc_c" fi # ============= xtpanel/Imakefile ============== if test -f 'xtpanel/Imakefile' -a X"$1" != X"-c"; then echo 'x - skipping xtpanel/Imakefile (File already exists)' else echo 'x - extracting xtpanel/Imakefile (Text)' sed 's/^X//' << 'SHAR_EOF' > 'xtpanel/Imakefile' && X X #include "Imake.config" X EXTRA_DEFINES = -DSYS_XTPANELDIR=\"$(SYS_XTPANELDIR)\" X X #ifdef OW3 STD_DEFINES = -DSYS_XTPANELDIR=\"$(SYS_XTPANELDIR)\" -D_NO_PROTO SYS_LIBRARIES = -L$(LIBDIR) #endif X LOCAL_LIBRARIES = XawClientLibs DEPLIBS = XawClientDepLibs APPDEFAULTS = XTpanel X PROGRAMS = xtpanel X SRCS = main.c tree.c parse.c actions.c object.c item.c xtpanel_scan.l \ X message.c button.c slider.c dialog.c text.c menubutton.c \ X choice.c list.c variable.c eval_command.c string_buf.c builders.c \ X graph.c OBJS = main.o tree.o parse.o actions.o object.o item.o xtpanel_scan.o \ X message.o button.o slider.o dialog.o text.o menubutton.o \ X choice.o list.o variable.o eval_command.o string_buf.o builders.o \ X graph.o X SUBDIRS = help generator examples X all:: $(PROGRAMS) X ComplexProgramTarget($(PROGRAMS)) X X /* #these are small scripts to run the demo and the generator script */ X xtpanel-examples.script: xtpanel-examples.script.sed X sed -e 's,SYS_XTPANELDIR,$(SYS_XTPANELDIR),g' <$? >$@ X InstallScript(xtpanel-generator,$(BINDIR)) InstallScript(xtpanel-examples,$(BINDIR)) X InstallAppDefaults($(APPDEFAULTS)) X xtpanel.man: xtpanel.man.sed X sed -e 's,SYS_XTPANELDIR,$(SYS_XTPANELDIR),g' <$? >$@ X XXTpanel.ad: XTpanel.ad.sed X sed -e 's,SYS_XTPANELDIR,$(SYS_XTPANELDIR),g' <$? >$@ X InstallManPage(xtpanel,$(MANDIR)) X MakefileSubdirs($(SUBDIRS)) X InstallSubdirs($(SUBDIRS)) X CleanSubdirs($(SUBDIRS)) X X xtpanel_scan.o: xtpanel_scan.l X rm -f lex.yy.c X lex xtpanel_scan.l X $(CC) $(CFLAGS) -c lex.yy.c X mv lex.yy.o xtpanel_scan.o X clean:: X $(RM) lex.yy.c X $(RM) XTpanel.ad X $(RM) xtpanel.man X $(RM) xtpanel-examples.script SHAR_EOF chmod 0664 xtpanel/Imakefile || echo 'restore of xtpanel/Imakefile failed' Wc_c="`wc -c < 'xtpanel/Imakefile'`" test 1659 -eq "$Wc_c" || echo 'xtpanel/Imakefile: original size 1659, current size' "$Wc_c" fi true || echo 'restore of xtpanel/Makefile failed' echo End of part 3, continue with part 4 exit 0 ----------------------------------------------------------------- Steve Cole (steve@sep.stanford.edu, apple!sep!steve) Department of Geophysics, Stanford University, Stanford, CA 94305