home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 1999 February / CT_SW9902.ISO / mac / software / wissen / daten / gnuplot.hqx / gnuplot.2.0b4 / gnuplotMode.tcl < prev    next >
Text File  |  1997-04-27  |  82KB  |  2,841 lines
  1. #  
  2. # "gnuplotMode.tcl"  
  3. #                                    created: 08/03/95 {16:53:59} 
  4. #                                last update: 12/23/96 {10:41:56 AM} 
  5. #  Author: Jeff Schindall
  6. #  E-mail: <mailto:schindall@nrl.navy.mil>
  7. #    mail: Naval Research Laboratory 
  8. #          Acoustics Division --- Code 7120
  9. #          4555 Overlook Ave SW
  10. #          Washington, DC, 20375 USA ]
  11. #    
  12. # gnuplotMode.tcl, Version 1.7?       For  gnuplot 3.6
  13. #
  14. # This is a set of TCL proc's that allow the shareware Macintosh 
  15. # text editor Alpha to serve as a front end for GNUPLOT for 
  16. # Macintosh version 3.6. This script requires Alpha 6.1 or later.
  17. #
  18. #############################################################################
  19. #    
  20.   
  21. proc donothinghereiamadummyprocedure16 {} {
  22.     insertText {#
  23.     
  24.  "Installation instructions:"
  25.   --------------------------- 
  26.  
  27.    First, "PRESS HERE"    
  28.    Now, save your preferences file.  Thats it!  
  29.  
  30.    Type "<control-shift-g>" to launch gnuplot mode.
  31.  
  32.  
  33.   
  34.  More Explicit Instructions:
  35.  ===========================
  36.  
  37.   ALPHA 6.2 or later:
  38.   -------------------
  39.     Drop this file in the Alpha:TCL:Modes folder.
  40.     Thats it!
  41.  
  42.   ALPHA (prior to version 6.2)
  43.   ----------------------------
  44.    For older versions of Alpha, drop this file into the
  45.    Alpha:TCL:usercode folder then add the following line to your
  46.    Prefs.tcl file:
  47.  
  48.      source "$HOME:tcl:usercode:gnuplotMode.tcl"
  49.  
  50.    Or wherever you choose to install the file.  I suppose you could 
  51.    install this in your Prefs folder instead...thats where I used to
  52.    keep it :)
  53.  
  54.  
  55.  Once sourced, you can launch the "console" by hitting the key
  56.  sequence:   "<shift-ctrl-g>"
  57.  
  58.  That's it!  Now all .gnu, .gnup, .gp, .GPLT, or .gnp files 
  59.  will automatically open into gnuplot mode.  
  60.  
  61.  Mac_gnuplot is available at: 
  62.    
  63.    "ftp://ftp.ee.gatech.edu/pub/mac/gnuplot" 
  64.  
  65.  Alpha is available at 
  66.  
  67.    "ftp://www.cs.umd.edu/pub/faculty/keleher/Alpha"
  68.  
  69.  More recent versions of this script are available at:
  70.     
  71.    "ftp://wave1m.nrl.navy.mil/pub/mac/gnuplotMode.tcl.sit.hqx"
  72.    
  73.  If you use latex/bibtex/c/c++ on the mac, then check out 
  74.  the VinceAdditions package in the Alpha/contrib directory.  
  75.  It is quite usefull...
  76.  
  77.  E-mail "me" if you have any questions/suggestions about gnuplotMode.tcl
  78.  
  79. }
  80.  
  81. }
  82.  
  83. ########################################################################
  84. #
  85. #  This mode was written by Jeff Schindall.  Some code was pinched from 
  86. #  other TCL files distributed with Alpha and matlab.tcl.
  87. #   
  88. #  Comments, suggestions, and bug reports should be sent to Jeff at
  89. #     mailto:schindall@nrl.navy.mil
  90. #
  91. #  You should be able to find the most recent current version of this
  92. #  gnuplotMode.tcl and the server app script at 
  93. #      
  94. #      ftp://ftp.ee.gatech.edu/pub/mac/gnuplot
  95. #
  96. #   and the most recent bleeding edge version at 
  97. #
  98. #      ftp://wave1m.nrl.navy.mil/pub/gnuplotMode.tcl.gz
  99. #
  100. #######################################################################
  101. #                                                                        
  102. #     Version History:                                                
  103. #                                                                        
  104. #         1.6    12/23/96                                                   
  105. #         -----------------------------------------------
  106. #         Floating palatte now very usefull.  User can run a script
  107. #         by selecting a script menu item, or edit the script by
  108. #         selecting the script menu item with the option key held down
  109. #
  110. #         1.5.9b    12/10/96                                                   
  111. #         -----------------------------------------------
  112. #         repaired broken scripts menu
  113. #         added a "edit scripts" menu----eventually, this one
  114. #         will go away, but the functionality will be retained
  115. #
  116. #         1.5.9    12/05/96                                                   
  117. #         -----------------------------------------------
  118. #         repaired broken pwd display
  119. #
  120. #         1.5.8    12/05/96                                                   
  121. #         -----------------------------------------------
  122. #         plot '-' now works
  123. #         pause in demo-mode works better
  124. #         added option to rebuild scripts menu
  125. #
  126. #         1.5.7    11/13/96                                                   
  127. #         -----------------------------------------------
  128. #         Check OUTP event for "Sorry, " string
  129. #         so that help for unknown item will be sent to console
  130. #         rather than a new output terminal page
  131. #
  132. #         1.5.6    11/07/96                                                   
  133. #         -----------------------------------------------
  134. #          Fixed a few floating menu buggers
  135. #
  136. #         1.5.5    11/06/96                                                   
  137. #         -----------------------------------------------
  138. #          Added a "Scripts" menu which auto loads any script
  139. #         in gnuplots "Scripts" folder (or subfolder)
  140. #         Made terminal output window creation faster
  141. #                                                                        
  142. #         1.5.4    11/05/96                                                   
  143. #         -----------------------------------------------
  144. #          Added terminal output windows for PS/TeX/MIF/etc.
  145. #                                                                        
  146. #         1.5.3    11/02/96                                                   
  147. #         -----------------------------------------------
  148. #          See 1.5.2
  149. #                                                                        
  150. #         1.5.2    11/02/96                                                   
  151. #         -----------------------------------------------
  152. #          Attempt to fix ome context switching weirdness
  153. #                                                                        
  154. #         1.5.1    10/23/96                                                   
  155. #         -----------------------------------------------
  156. #          Added some more apple event and floating palatte 
  157. #           options.
  158. #
  159. #         1.5    10/22/96                                                   
  160. #         -----------------------------------------------
  161. #          Slight bug fixes
  162. #
  163. #         1.5b3    07/18/96                                                   
  164. #         -----------------------------------------------
  165. #          Now works with Alpha 6.1 and higher.
  166. #         Added Floating menu...
  167. #
  168. #         1.5b2    07/16/96                                                   
  169. #         -----------------------------------------------
  170. #          Now works with Alpha 6.1 and higher.
  171. #
  172. #         1.5b1    07/02/96                                                   
  173. #         -----------------------------------------------
  174. #          Modify code so that it is compliant with the new
  175. #            mode conventions Pete added to 6.2 (see changes file).
  176. #         This script should still work for Alpha pre 6.2!
  177. #          Nifty self-installer!
  178. #                                                                          
  179. #                                                                          
  180. #         1.4.4    04/26/96                                                   
  181. #         -----------------------------------------------
  182. #          Modify trap for broken eventhandler on 68k                 
  183. #              so that pause works correctly and so that        
  184. #              gnuplot can bring itself to the front            
  185. #                                                                          
  186. #                                                                          
  187. #         1.4.3    04/24/96                                                  
  188. #         -----------------------------------------------
  189. #          Add trap for broken eventhandler on 68k                     
  190. #                                                                          
  191. #         1.4.2    04/17/96                                                
  192. #         -----------------------------------------------
  193. #          Let alpha do bookkeeping on globals                         
  194. #                                                                          
  195. #         1.4.1    04/15/96                                                       
  196. #         -----------------------------------------------
  197. #          Repaired broken quit and switchto menu options         
  198. #                                                                          
  199. #                                                                          
  200. #         1.4.0    04/14/96                                                       
  201. #         -----------------------------------------------
  202. #          GPLT mode preferences accessable from                  
  203. #            config:currentmode:flags... menu            
  204. #          Keyword coloring now works and is auto-sourced
  205. #            whenever GPTLPrefs.tcl is closed                          
  206. #          Reorganized and added to gnuplot menu            
  207. #          Reorganized all mode specifice procedures and 
  208. #             variable names                                        
  209. #                                                                          
  210. #                                                                          
  211. #         1.3.9    04/10/96                                                       
  212. #         -----------------------------------------------
  213. #          Keyword coloring editable from gnuplot pref menu.        
  214. #          gnuplot pref menu re-arranged                                  
  215. #          this package should display the path                       
  216. #             on the message bar                                              
  217. #                                                                          
  218. #                                                                          
  219. #         1.3.8    03/13/96                                                       
  220. #         -----------------------------------------------
  221. #          Re-arranged some code.                                  
  222. #                                                                                   
  223. #                                                                          
  224. #         1.3.7    03/13/96                                                       
  225. #         -----------------------------------------------
  226. #          Added support for cwd display on message bar    
  227. #                                                                                   
  228. #                                                                          
  229. #         1.3.6    02/26/96                                                       
  230. #         -----------------------------------------------
  231. #          Added graph button preference and repaired        
  232. #        my broken closeHook procedure                         
  233. #                                                                          
  234. #         1.3.5    02/01/96                                                       
  235. #         -----------------------------------------------
  236. #          Some minor fixes to console routines                
  237. #                                                                          
  238. #                                                                        
  239. #         1.3.4    02/01/96                                                       
  240. #         -----------------------------------------------
  241. #       Added "iconic" graph window which switches to             
  242. #               the gnuplot application                            
  243. #          Added a "gnuplot prefs" submenu                    
  244. #                                                                        
  245. #         1.3.3    12/20/95                                                       
  246. #         -----------------------------------------------
  247. #       Added Live History window                                       
  248. #          Added a function sub-menu                            
  249. #                                                                         
  250. #                                                                        
  251. #         1.3.2    12/15/95                                                       
  252. #         -----------------------------------------------
  253. #       History dump Really working this time.......           
  254. #          Included a kludge eventHander: GPIC EXEC        
  255. #             for Dave (temporary)                                
  256. #                                                                        
  257. #         1.3.1    12/14/95                                                       
  258. #         -----------------------------------------------
  259. #          Consolidated console and script editor modes.    
  260. #          Supports server once again.                           
  261. #       History dump working.......                            
  262. #                                                                        
  263. #                                                                        
  264. #         1.3    12/09/95                                                           
  265. #         -----------------------------------------------
  266. #          Should work with gnuplot app and              
  267. #          Fixed an "unknown" bug---thanks Vince            
  268. #          Files with gnuplot creator open in gnuplot mode
  269. #          Added several eventHandler's to work with the          
  270. #         gnuplot's new personality module                     
  271. #       NOTE:  No longer supports the gnuplot server app,      
  272. #              but I might add it back in later...             
  273. #                                                                        
  274. #         1.2.5    8/29/95                                            
  275. #         -----------------------------------------------
  276. #           File type as well as creator settings in place
  277. #                                                                        
  278. #                                                                        
  279. #         1.2.4    8/28/95                                            
  280. #         -----------------------------------------------
  281. #            I honestly don't recall                                
  282. #                                                                        
  283. #         1.2.3    8/27/95                                            
  284. #         -----------------------------------------------
  285. #           Fixed a few prompt related items.                
  286. #            I need to clean up the code a bit                
  287. #            especially in the console output routines        
  288. #                                                                        
  289. #         1.2.2    8/23/95                                            
  290. #         -----------------------------------------------
  291. #           Repaired help/prompting/etc which broke in    
  292. #                1.2.1                                                    
  293. #            DoSelection works for multiple lines            
  294. #                                                                        
  295. #                                                                        
  296. #         1.2.1    8/23/95                                            
  297. #         -----------------------------------------------
  298. #           Now works with unthreaded 68k systems                       
  299. #                                                                        
  300. #                                                                        
  301. #         1.2    8/23/95                                                
  302. #         -----------------------------------------------
  303. #           Deal w/"pause -1"     properly                                   
  304. #            cmd-dbl-click now works for all prompts         
  305. #            Cleaned up set output creator                        
  306. #                                                                          
  307. #                                                                        
  308. #         1.1    8/22/95                                                
  309. #         -----------------------------------------------
  310. #           Set output creators from gnuplot menu            
  311. #            Quit Working properly once again                    
  312. #            Added ERRP eventHandler for those w/o the             
  313. #          Thread Manager                                        
  314. #                                                                        
  315. #         1.0    8/21/95  (these release numbers are backwards)        
  316. #         -----------------------------------------------
  317. #           First working release                                 
  318. #                                                                        
  319. #    ============= Below were really beta's ==================== 
  320. #                                                                        
  321. #         1.0.6    8/17/95                                            
  322. #         -----------------------------------------------
  323. #           Cleaned up several procs                            
  324. #            Quit now works properly                                
  325. #                                                                        
  326. #                                                                        
  327. #         1.0.5    8/16/95                                            
  328. #         -----------------------------------------------
  329. #             replaced 'dosc' w/AEBuild                            
  330. #             added eventHandler  (thanks Dave)                    
  331. #             dumped "clean" window since Pete will            
  332. #                add this functionality to "new" in 6.0.2    
  333. #                                                                        
  334. #                                                                        
  335. #         1.0.4    8/12/95                                            
  336. #         -----------------------------------------------
  337. #             new modeVar to keep console "clean"             
  338. #                                                                        
  339. #                                                                        
  340. #         1.0.3    8/12/95                                            
  341. #         -----------------------------------------------
  342. #             Fixed bugs in closing console window            
  343. #             Added wristwatch cursor while waiting for gnuplot        
  344. #                                                                        
  345. #         1.0.2    8/11/95                                            
  346. #         -----------------------------------------------
  347. #         When console window is closed the gnuplot    
  348. #              app is quit and user is prompted to save    
  349. #          the Alpha/gnuplot history                        
  350. #                                                                        
  351. #         Command-Dbl-Click anywhere between gnuplot     
  352. #              prompts to select gnuplot output.  Nice        
  353. #          if you send term output to the console.        
  354. #                                                                        
  355. #         1.0.1    8/8/95                                            
  356. #         -----------------------------------------------
  357. #            Handles multiplot mode                                
  358. #             set output file CREATOR modeVar    (not yet)    
  359. #                                                                         
  360. #                                                                        
  361. #         1.0    8/7/95                                                
  362. #         -----------------------------------------------
  363. #            Now works with 3.6 (but not with 3.5)            
  364. #                                                                         
  365. #    =======================================================        
  366. #                                                                         
  367. #         0.4    8/3/95                                                
  368. #         -----------------------------------------------
  369. #           user specified colorizing through check pop-up       
  370. #             menu in GNUc console.  You must quit alpha and       
  371. #             restart to see the effects.  Also, you must          
  372. #         make sure that keywords and colors don't overlap.    # 
  373. #                                                              
  374. #                                                                        
  375. #         0.3    8/3/95                                                
  376. #         -----------------------------------------------
  377. #             Console position remembered between sessions
  378. #                                                                        
  379. #              Enabled command history to be dumped to a window        
  380. #                                                                  
  381. #                                                                        
  382. #         0.2    8/2/95                                                
  383. #         -----------------------------------------------
  384. #             Added a    Switch to gnuplot    menu option            
  385. #                                                                        
  386. #             Added Console modeVar                                        
  387. #                                                                        
  388. #         Added run in background modeVar                           
  389. #                                                                        
  390. #             Command History mostly working in console.    
  391. #                                                                        
  392. #             Cleaned    things up a    bit.                            
  393. #                                                                        
  394. #                                                                        
  395. #         0.1    8/1/95                                                
  396. #         -----------------------------------------------
  397. #             converted matlab.tcl to gnuplot.tcl            
  398. #                                                                        
  399. #                                                                        
  400. ###############################################################
  401.  
  402.  
  403. #############################################################################
  404. #
  405. # Autoload procedures
  406. #
  407. #
  408.  
  409. if { [info exists  startingUp] } {
  410. if {[string match {[6-9].[2-9]*}   [lindex [version] 2] ]} {
  411.   if {$startingUp} {
  412.     addMode GPLT dummyGPLT {*.gp *.gnu *.gnp *.gplt *.GP *.GNU *.GNP *.GPLT }  \
  413.          GPLTMenu 
  414.     addMenu GPLTMenu
  415.    #return
  416.   } else {
  417.     
  418.     lappend modes GPLT
  419.      lappend modeSuffixes     {*.gnu *.gnp *.gnup *.gplt *.gp}   \
  420.      { set winMode GPLT }
  421.     lappend modeSuffixes     {*.GNU *.GNP *.GNUP *.GPLT *.GP}   \
  422.      { set winMode GPLT }
  423.  }
  424. }
  425.  
  426. } else {
  427.     
  428.     lappend modes GPLT
  429.      lappend modeSuffixes     {*.gnu *.gnp *.gnup *.gplt *.gp}   \
  430.      { set winMode GPLT }
  431.     lappend modeSuffixes     {*.GNU *.GNP *.GNUP *.GPLT *.GP}   \
  432.      { set winMode GPLT }
  433.  }
  434.  
  435.  
  436.  
  437. proc dummyGPLT  {} {}
  438. proc GPLTMenu {} {}
  439.  
  440. # use the gnuplot icon if its available
  441. if {( [string trim [lindex [version] 2] {,}]< "6.01")} {
  442.     set GPLTMenu  "gnuplot"
  443. } else {
  444.     set GPLTMenu  "•415"
  445. }
  446.  
  447. # Set GLOBAL mode binding to bring up gnuplot Console
  448. bind 'g' <sz> { GP_Console  }
  449. bind 'n' <sc> { GP_NewWindow  }
  450.  
  451. newModeVar GPLT elecRBrace        {0} 1
  452. newModeVar GPLT prefixString      {# } 0
  453. newModeVar GPLT electricSemi      {0} 1
  454. newModeVar GPLT wordBreak         {[a-zA-Z0-9_]+} 0
  455. newModeVar GPLT elecLBrace        {0} 1
  456. newModeVar GPLT wordWrap          {0} 1
  457. newModeVar GPLT wordBreakPreface  {[^a-zA-Z0-9_]} 0
  458. newModeVar GPLT tabSize           {3} 0
  459. newModeVar GPLT prefixString          {# } 0
  460. newModeVar GPLT NevrSavHist       {0} 1
  461. newModeVar GPLT LiveHist              {1} 1
  462. newModeVar GPLT GraphButton          {1} 1
  463. newModeVar GPLT EventHandler          {1} 1
  464. newModeVar GPLT bracesColor blue 0
  465. newModeVar GPLT bracesColor blue 0
  466. newModeVar GPLT stringColor green 0
  467. newModeVar GPLT commentColor red 0
  468. #newModeVar GPLT 
  469. set gpTermCt 0
  470.  
  471. ###BGK
  472.    # (DO NOT ERASE Previous line)
  473.    # 
  474.    # NOTE:  Some coloring is controlled via 
  475.    #        Config:current mode:flags... menu
  476.    #
  477.  
  478.       ### BLUE words ###
  479.  
  480. set gpBlueWords { 
  481.     console  set show plot splot \\
  482.     autoscale      binary         boxxyerrorbars bugs
  483.     call           cd             clear          co-ordinates
  484.     comments             environment    exit
  485.     expressions    fit                       if
  486.     introduction   line-editing   load           pause
  487.     plot           print          pwd            quit
  488.     replot         reread         reset          save
  489.     seeking-assistance set            shell          show
  490.     splot          startup        style          substitution
  491.     test           update         userdefined    xyerrorbars
  492.     xerrorbars yerrorbars
  493.     "Copyright(C) 1986 - 1995" "Copyright(C) 1986 - 1996"
  494. } 
  495.  
  496.  
  497.  
  498.       ### RED words ###
  499.  
  500. set gpRedWords { 
  501.     topics available: Subtopics available  
  502.     server macintosh Press return for more: Help topic: 
  503.     Subtopic of {G N U P L O T} {(pre 3.6)}  3.5 3.6 
  504.     version for 68k ppc Power Macintosh patchlevel 
  505.     last modified first second
  506. } 
  507.  
  508.  
  509.      ### GREEN WORDS ###
  510.  
  511. set gpGreenWords {  
  512.     ranges         smooth         data-file      datafile          
  513.     parametric     locale         nosquare       errorbars
  514.     gnuplot        gnuplot>       term           square         
  515.     angles         arrow          autoscale      bar
  516.     bmargin        border         boxwidth       clabel
  517.     clip           cntrparam      contour        data
  518.     dgrid3d        dummy          encoding       format
  519.     function       grid           hidden3d       isosamples
  520.     key            keytitle       label          lmargin
  521.     logscale       mapping        margin         missing
  522.     multiplot      mx2tics        mxtics         my2tics
  523.     mytics         mztics         noarrow        noautoscale
  524.     noborder       noclabel       noclip         nodgrid3d
  525.     nokey          nolabel        nologscale     nomultiplot
  526.     nomx2tics      nomxtics       nomy2tics      nomytics
  527.     nomztics       noparametric   nopolar        nosurface
  528.     nox2dtics      nox2mtics      nox2tics       nox2zeroaxis
  529.     noxdtics       noxmtics       noxtics        noxzeroaxis
  530.     noy2dtics      noy2mtics      noy2tics       noy2zeroaxis
  531.     noydtics       noymtics       noytics        noyzeroaxis
  532.     nozdtics       nozeroaxis     nozmtics       noztics
  533.     offsets        origin         output         parametric
  534.     pointsize      polar          punctuation    rmargin
  535.     rrange         samples        size           specify
  536.     style          surface        syntax         terminal
  537.     tics           ticscale       ticslevel      time
  538.     timefmt        title          tmargin        trange
  539.     urange         view           vrange         x2dtics
  540.     x2label        x2mtics        x2range        x2tics
  541.     x2zeroaxis     xdata          xdtics         xlabel
  542.     xmtics         xrange         xtics          xzeroaxis
  543.     y2dtics        y2label        y2mtics        y2range
  544.     y2tics         y2zeroaxis     ydtics         ylabel
  545.     ymtics         yrange         ytics          yzeroaxis
  546.     zdtics         zero           zeroaxis       zlabel
  547.     zmtics         zrange         ztics
  548.     threaded  
  549. } 
  550.  
  551.  
  552.  
  553.     ### MAGENTA WORDS ###
  554.  
  555. set gpMageWords  { 
  556.     with lines using  points  multiplot> mac gx eps enh
  557.     info-gnuplot dartmouth edu bug-gnuplot { \@ }
  558.     Send comments and requests for help to
  559.     Send bugs, suggestions and mods to
  560. } 
  561.                    
  562.  
  563.  
  564.     ### CYAN WORDS ###
  565.  
  566. set gpCyanWords  {   post mac     macintosh      texdraw
  567.     aifm           atari          dumb           enhpost
  568.     epson          epson180       epson60        fig
  569.     gpic           hpljii         imagen         iris4d
  570.     latex          linux          mf             mif
  571.     mtos           nec-cp6        pbm            pcl5
  572.     postscript     pslatex        regis          starc
  573.     table          tandy60        tgif           uniplex
  574.     vdi            windows        unknown        pstricks
  575.     png            dxf            cgm            gif
  576.     emtex          pstex          eepic          tpic
  577.     pstricks       texdraw
  578.     Thomas Williams, Colin Kelley and many others 
  579.     Russell Lang, Dave Kotz, John Campbell. Gershon Elber
  580. } 
  581.  
  582. #
  583. # Color keywords for GPLT mode
  584. #
  585. regModeKeywords  -i "\}" -i "\{"  -i ">" -i "<" -i ")" -i "("  -i "/" -i "\\"  \
  586.     -i "\]" -i "\[" -i "\$" -i "\'" -i "\`" -i ">" -i "<" -i "^" -i "_" \
  587.     -I $GPLTmodeVars(bracesColor) \
  588.      -e {#} -c $GPLTmodeVars(commentColor) \
  589.     -s $GPLTmodeVars(stringColor)  \
  590.     -k red GPLT $gpRedWords
  591. regModeKeywords -a -k blue GPLT $gpBlueWords
  592. regModeKeywords -a -k green GPLT $gpGreenWords
  593. regModeKeywords -a -k magenta GPLT $gpMageWords
  594. regModeKeywords -a -k cyan GPLT $gpCyanWords
  595.  
  596. #  (DO NOT ERASE NEXT TWO LINES)
  597. ###EGK
  598.  
  599.  
  600.  
  601. #define saved globals
  602. if { ![info exists gp_FSIG]}  { set gp_FSIG                  {GPLT} } 
  603. if { ![info exists gp_CREA]}  { set gp_CREA                  {ALFA} } 
  604. if { ![info exists gp_TYPE]}  { set gp_TYPE                  {TEXT} } 
  605. if { ![info exists gp_CreatorList]}  { set gp_CreatorList [list] }
  606. if { ![info exists gp_TypeList]}  { set gp_TypeList [list] }
  607. if { ![info exists gp_CreatorNames]} { set gp_CreatorNames [list] }
  608. if { ![info exists gp_GEOM] } {set gp_GEOM [list]}
  609. if { ![info exists gp_HistGEOM] } {set gp_HistGEOM [list ]}
  610. if { ![info exists headerSuffices] } {set headerSuffices {$GPLTmodeSuffixes}}
  611. if { ![info exists sourceSuffices] } {set sourceSuffices {$GPLTmodeSuffixes}}
  612.  
  613. if {[llength $gp_CreatorList] == 0 \
  614.  || [llength $gp_CreatorList] != [llength $gp_CreatorNames] \
  615.  || [llength $gp_CreatorList] != [llength $gp_TypeList]} {
  616.     set gp_CreatorList [list ALFA GPLT]
  617.     set gp_TypeList [list  TEXT TEXT]
  618.     set gp_CreatorNames [list  alpha gnuplot]
  619.     set gp_CREA {ALFA} 
  620.     set gp_TYPE {TEXT}
  621. }
  622.  
  623. #remove unused, previously saved globals
  624. if { [info exists GPLTmodeVars(FSIG)]}  { removeArrDef  GPLTmodeVars FSIG
  625.                                                         unset GPLTmodeVars(FSIG)
  626.                                                      } 
  627. if { [info exists GPLTmodeVars(CREA)]}  { removeArrDef  GPLTmodeVars  CREA
  628.                                                         unset GPLTmodeVars(CREA)
  629.                                                      } 
  630. if { [info exists GPLTmodeVars(TYPE)]}  { removeArrDef  GPLTmodeVars TYPE
  631.                                                         unset GPLTmodeVars(TYPE)
  632.                                                      } 
  633.  
  634.  
  635. #############################################################################
  636. #
  637. #  global variables
  638. #
  639.  
  640. set gp_CommandHist [list]
  641. set gp_CommandNum 0
  642.  
  643. set gp_Prompt       "gnuplot> "
  644. set gp_MultiPrompt  "multiplot> "
  645. set gp_ContPrompt   "> "
  646. set gp_HelpPrompt   ": "
  647.  
  648. set gp_Prompts [list $gp_Prompt $gp_ContPrompt $gp_MultiPrompt ]
  649.  
  650. set gp_Console  "* gnuplot *"
  651. set gp_Hist     "* history *"
  652. set gp_Graph     "* graph *"
  653. set gp_sl [list]
  654.  
  655. #############################################################################
  656. #
  657. #  Bind some keys
  658. #
  659.  
  660. # Editing .gnu files
  661.  
  662. bind '\r' <z>  GP_DoLine             "GPLT"
  663.  
  664. # Command Window
  665.  
  666. bind '\r'      GP_CarriageReturn     "GPLT"
  667. bind up        GP_PrevCommand        "GPLT"
  668. bind down      GP_NextCommand        "GPLT"
  669. bind '1'  <c>  GP_Console            "GPLT"
  670. bind '2'  <c>  GP_Activate           "GPLT"
  671. bind '3'  <c>  GP_DumpHistory        "GPLT"
  672. bind 'f'  <sc>  GP_SaveAndExecute    "GPLT"
  673.  
  674.  
  675. # Repeat menu keys for command window
  676.  
  677.  
  678. set gp_Launched {0}
  679.  
  680.  
  681.  
  682.  
  683. set pathComments(GPLTPath)    "gnuplot"
  684.  
  685. #############################################################################
  686. #
  687. #  gnuplot Menu stuff
  688. #
  689.  
  690.  menu -n    $GPLTMenu -p GPLTMenuItem    {                         
  691.      "/1console"                                                     
  692.      "/2graph"                                                     
  693.      "/3history"                                                     
  694.     "(-"    
  695.      "setWorkingFolder..."
  696.      "/P<UchoosePlotFile..."
  697.       "/L<Uload..."                                         
  698.      {menu -n "saveSettings" -p GPLTMenuItem  {
  699.                   "/S<Uall"                  
  700.                  "(-"
  701.                  "setCmds" 
  702.                  "functions"         
  703.                 "variables"    
  704.             }
  705.      }
  706.      "(-"                                                                                                                                  
  707.      "/N<UnewScriptWin"                                                 
  708.       "/F<UsaveAndExecute"                                         
  709.     "(-"    
  710.      {menu  -s -m -n mathFunctions -p GPLTMenuItem  {
  711.          {menu  -s -m -n Trigonometric -p GPLTMenuItem  {
  712.         "cos"
  713.         "tan"
  714.         "sin"
  715.          }}
  716.          {menu  -s -m -n InverseTrig -p GPLTMenuItem  {
  717.          "acos"
  718.          "asin"
  719.         "atan"         
  720.         }}
  721.          {menu  -s -m -n Hyperbolic -p GPLTMenuItem  {
  722.         "cosh"
  723.         "sinh"
  724.         "tanh"
  725.         }}
  726.          {menu  -s -m -n special -p GPLTMenuItem  {
  727.         "erf"            
  728.         "erfc"           
  729.         "inverf"                                  
  730.         "(-"
  731.         "gamma"                                       
  732.         "igamma"                        
  733.         "lgamma"                                      
  734.         "(-"
  735.         "ibeta"                                        
  736.          }}
  737.          {menu  -s -m -n bessel -p GPLTMenuItem  {
  738.         "besj0"
  739.         "besj1"
  740.         "besy0"
  741.         "besy1"         
  742.         }}
  743.         "(-"
  744.         "abs"  
  745.         "arg"               
  746.         "sgn"     
  747.         "sqrt"
  748.         "(-"
  749.         "exp"
  750.         "log"
  751.         "log10"                                  
  752.         "(-"
  753.         "ceil"           
  754.         "floor" 
  755.         "rand"
  756.         "norm"
  757.         "invnorm"
  758.         "(-"
  759.         "real" 
  760.         "imag"
  761.         "int"
  762.             }
  763.         }
  764.      "(-"    
  765.      "/M<UdoSelection"                                             
  766.      "doLine"                                                         
  767.      "(-"
  768.      {menu -n gnuplotOptions -p GPLTMenuItem     {         
  769.         "setPointSize..."
  770.          "(-"    
  771.         "/H<UclearHistory"
  772.          "(-"    
  773.           {menu -n setOutputCreator -p GPLTMenuItem     {         
  774.             "select..."                                                 
  775.             "add..."                                                     
  776.              "delete..."                                                 
  777.             }                                                                 
  778.         }    
  779.         "keywordColoring..."                
  780.          }
  781.     }                
  782.     "readme..."
  783.      "/2switchTo gnuplot"                                         
  784.      "/Q<Uquit gnuplot"                                             
  785.  }                                                                         
  786.                                                                              
  787.  
  788.      # Attempt to overload the following command keys:
  789.      #
  790.        #  Command-1  :  Console
  791.         #  Command-2  :  Graph
  792.         #  Command-3  :  History
  793.                         
  794.                         
  795.                         
  796.  proc    GPLTMenuItem {menu item} {                                 
  797.  #global GPLTMenu                                                     
  798.      switch $item {                                                 
  799.             "console"                GP_Console                     
  800.             "graph"                     GP_Activate                     
  801.             "gnuplot"                     GP_Activate                     
  802.             "history"                GP_DumpHistory                     
  803.             "newScriptWin"            GP_NewWindow         
  804.             "choosePlotFile..."        GP_ChoosePlotFile         
  805.             "saveAndExecute"         GP_SaveAndExecute         
  806.             "load..."                 GP_LoadScript             
  807.             "all"                     { GP_SaveSettings "" }             
  808.             "setCmds"                 { GP_SaveSettings "set" }             
  809.             "functions"                 { GP_SaveSettings "fun" }             
  810.             "variables"                 { GP_SaveSettings "var" }             
  811.             "doSelection"             GP_DoSelection             
  812.             "doLine"                    GP_DoLine                          
  813.             "switchTognuplot"        GP_Activate                 
  814.             "select..."                 GP_SelectCreator         
  815.             "add..."                     GP_AddCreator             
  816.             "delete..."                 GP_DeleteCreator         
  817.             "clearHistory"            GP_ClearHistory             
  818.             "quitgnuplot"             GP_Quit                     
  819.             "keywordColoring..."        editCurrentModePrefs
  820.             "setWorkingFolder..."   GP_SetCWD
  821.             "setPointSize..."       GP_SetPTSZ
  822.             "readme..."                 GP_Readme
  823.             "labels..."                { GP_Dialog "labl" }
  824.             "linestyles..."            { GP_Dialog "line" }
  825.             "textformat..."            { GP_Dialog "text" }
  826.              "labels..."                { GP_Dialog "labl" }
  827.              "gxText"                { GP_Dialog "gxtx" }
  828.              "offsets..."             { GP_Dialog "oset" }
  829.             default                    { insertText [string tolower $item ] () 
  830.                                           backwardChar    
  831.                                      }
  832.             }                                                                 
  833.  }                                                                         
  834.                                                                              
  835. #############################################################################
  836. #
  837. #  setup the event handler for Alpha/gnuplot interapp communication
  838. #   Currently only works in the Alpha 6.01 PPC 
  839. #
  840.  
  841. if { (   [string match {[6-9].[2-9]*}  [lindex [version] 2] ] ) | \
  842.      ( (   0 != [string first {(68k)}  [lindex [version] 1] ] ) & \
  843.        ( [string match {[6-9].?[1-0]*} [lindex [version] 2] ] ) ) } {
  844.    # Setup event Handler for STDOUT
  845.       eventHandler GPSE OUTP "GP_STDOUThandler"  
  846.     
  847.     # Setup event Handler for systems w/o ThreadManager
  848.       eventHandler GPSE ERRP "GP_STDERRhandler"
  849.     
  850.     # *ICInitializeCommand // This initializes the console.  
  851.     # Alpha eventhandler is needed.
  852.     # 'GPIC init'
  853.      eventHandler GPIC init "GP_ConsoleH"
  854.     # 
  855.     # *ICInitializePath // sends the working directory as 
  856.    # stored in preferences.
  857.     # Since you aren't displaying the working directory anywhere, 
  858.    # we can ignore
  859.     # this for now.
  860.     # 'GPIC path', contains a string in the direct object.
  861.      eventHandler GPIC path "GP_SendPath"
  862.     # 
  863.     # ICExecute // Tells the console to execute a gnuplot command.  
  864.    # I can't think
  865.     # of a reason for this one in Alpha.  The menuing system uses 
  866.    # this one in the current console.  We could define an event however.
  867.     # 
  868.     # 
  869.     # ICInsertCommand // Might be slick.  An example of what this 
  870.    # does is where
  871.     # functions get pasted into the command line.  Not absolutely necessary
  872.     # though.
  873.    # 'GPIC' 'inse'
  874.     eventHandler GPIC inse "GP_INSEhandler"
  875.     # 
  876.     # ICComeToFront  // The function will bring Alpha to the front.  
  877.    # No handler needed.
  878.     # 
  879.     # *ICBringGnuplotToFront // Handler needed.  When you get this one, bring
  880.     # gnuplot to the front.
  881.     # 'GPIC tofr'
  882.      eventHandler GPIC tofr "GP_ActivateH"
  883.     # 
  884.     # *ICHandleAEReply // You'll get this one if somebody used a 
  885.    # gnuplot menu to
  886.     # do something which necessitated a reply from gnuplot. The 
  887.    # gnuplot interface
  888.     # will pass the reply to you for display.
  889.     # 'GPIC repl', handle this one just like the reply from your exec event.
  890.      eventHandler GPIC repl "GP_STDERRhandler"
  891.     # 
  892.     # *ICMakeNewDocument  // It sounds like this one is working already.
  893.     # 'core crel'
  894.      eventHandler core crel "GP_NewWindowH"
  895.     # 
  896.     # *ICOpenDocument // Alpha already knows about this one.
  897.     # --already defined in alpha---
  898.  
  899.     # The event 'GPIC' 'cbye' is now sent whenever gnuplot quits.
  900.    # This will let you close the console if somebody quits 
  901.    # gnuplot some other way. You could
  902.     # use this to eliminate your 'quit' trapping if you want.
  903.      eventHandler GPIC cbye "GP_CloseH"
  904.     # I also defined a new event: 'GPIC' 'EXEC'.  All you need to 
  905.    # do is take the
  906.     # data and send it back to gnuplot as a 'GPSE' 'exec' event. 
  907.    # This is a kludge
  908.     # to make the commands in the gnuplot app menus work. 
  909.    # It will eventually go away.
  910.      eventHandler GPIC EXEC "GP_Kludge"
  911.     
  912.     proc GP_Kludge {it} {
  913.        set outit  [GP_filtercurlyq $it]
  914.       GP_STDERR $outit
  915.       if { $it == "Unable to find process" } GP_Quit
  916.       return 0
  917.      }    
  918.      
  919.     proc GP_STDERRhandler {it} {
  920.         global gp_cwd
  921.         set outit  [GP_filtercurlyq $it]
  922.         GP_ExtractPath $it
  923.         GP_Results $outit
  924.         if { $it == "Unable to find process" } GP_Quit
  925.        return 0
  926.     }
  927.     
  928.     proc GP_STDOUThandler {it} {
  929.         global gp_cwd gp_Out gpTermCt
  930.         global winModes gp_Console gp_Graph winModes 
  931.         global GPLTmodeVars gp_Launched gp_GEOM
  932.         global gp_Prompt  gp_cwd GPLTMenu 
  933.     
  934.         set outit  [GP_filtercurlyq $it]
  935.         GP_ExtractPath $it
  936.         set wins [winNames]    
  937.         
  938.         set itLen [ string length "$it" ]
  939.         set termID [ string range "$outit" 0 20 ]
  940.         set termType [ string range "$it" [expr $itLen -25] [expr $itLen -1] ] 
  941.         
  942.         if { [ string first "Sorry," "$termID" ] == 0 } {
  943.             insertText -w  $gp_Console "\n$outit"
  944.             return
  945.             
  946.         } elseif { [ string first "% GNUPLOT: LaTeX" "$termID" ] == 0 } {           
  947.             incr gpTermCt 1
  948. #            set gp_Out [getline "Enter name of output console?" "* TeX output $gpTermCt *" ]
  949.             set gp_Out "* TeX output $gpTermCt *"
  950.             set theMode "TeX"
  951.             
  952.         } elseif { [string first "%!PS-Adobe" "$termID" ] == 0 } {
  953.             incr gpTermCt 1
  954. #            set gp_Out [getline "Enter name of output console?" "* PS output $gpTermCt *" ]
  955.             set gp_Out "* PS output $gpTermCt *"
  956.             set theMode "PS"
  957.             
  958.         } elseif { [string first "<MIFFile 3.00>" "$termID" ] == 0 } {
  959.             incr gpTermCt 1
  960. #            set gp_Out [getline "Enter name of output console?" "* MIF output $gpTermCt *" ]
  961.             set gp_Out "* MIF output $gpTermCt *"
  962.             set theMode "PS"
  963.             
  964.         } elseif { [string first "% GNUPLOT: dxf" "$termID" ] >= 0 } {
  965.             incr gpTermCt 1
  966. #            set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  967.             set gp_Out "* misc output $gpTermCt *"
  968.             set theMode "TEXT"
  969.             
  970.         } elseif { [string first "if unknown cmbase" "$termID" ] == 0 } {
  971.             incr gpTermCt 1
  972. #            set gp_Out [getline "Enter name of output console?" "* MF output $gpTermCt *" ]
  973.             set gp_Out "* MF output $gpTermCt *"
  974.             set theMode "TeX"
  975.             
  976.         } elseif { [string first "#Curve" "$termID" ] == 0 } {
  977.             incr gpTermCt 1
  978. #            set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  979.             set gp_Out"* misc output $gpTermCt *"
  980.             set theMode "TEXT"
  981.             
  982.         } elseif { [ string index "$termID" 0  ] == " " && [ string first "TERM:“dumb”" "$termType" ] > 0 } {
  983.             set ns "\n"
  984.             append ns $outit
  985.             set outit "$ns"
  986.             set gp_Out $gp_Console
  987.             #set theMode "TEXT"
  988.  
  989.         } elseif { ![info exists gp_Out ] || [lsearch $wins $gp_Out ] < 0 } {
  990.             incr gpTermCt 1
  991. #            set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  992.             set gp_Out "* misc output $gpTermCt *"
  993.             set theMode "TEXT"
  994.         }
  995.  
  996.         if { $gp_Out == "" } {set gp_Out $gp_Console }
  997.         
  998.         if {  [lsearch $wins $gp_Out ]  < 0 } { 
  999.             new  -n $gp_Out
  1000.             #set wins [winNames]
  1001.             set gp_Out [lindex [winNames] 0]
  1002.             changeMode [set winModes([lindex [winNames] 0]) $theMode ]
  1003.         } else {
  1004.             #catch [ bringToFront $gp_Out ] ans
  1005.             #if { ![info exists ans] } { return }
  1006.         }
  1007.         
  1008.         insertText -w $gp_Out $outit
  1009.         GP_Console
  1010.         if { $it == "Unable to find process" } GP_Quit
  1011.        return 0
  1012.     }
  1013.     
  1014.     proc GP_INSEhandler {it} {
  1015.     global gp_Console gp_TYPE gp_CREA gp_FSIG
  1016.         set res [GP_filtercurlyq $it]
  1017.         set wins [winNames]
  1018.         if { ( "$res" != "\n" ) & ( "$res" != "" ) & ( "$res" != "\r" ) } {
  1019.             if { [ lsearch $wins $gp_Console  ] >= 0} {
  1020.                 bringToFront $gp_Console    
  1021.             }        
  1022.         }        
  1023.         
  1024.         goto [maxPos]        
  1025.         insertText -w $gp_Console $res
  1026.         
  1027.        
  1028.        set paren  [string first "()" $res ]
  1029.  
  1030.        if { $paren >= 1 } {
  1031.            goto [expr [maxPos] - $paren + 2]
  1032.        }
  1033.               
  1034.        if { "$res" == "\r" }  {
  1035.           GP_SendCommand "" 3600
  1036.        } elseif { "$res" == "\n" }  {
  1037.           GP_SendCommand "" 3600 
  1038.        } elseif { "$res" == "" }  {
  1039.           GP_SendCommand "" 3600
  1040.        } else {
  1041.             return 0
  1042.        }
  1043.           
  1044.           
  1045.     }
  1046.  
  1047.  
  1048.    proc GP_SendPath { dummyVar } {
  1049.        global gp_cwd
  1050.       # display current path on status bar
  1051.          set gp_cwd [ GP_filtercurlyq $dummyVar ]
  1052.          message "Current gnuplot Path ==> $gp_cwd"
  1053.     }
  1054.  
  1055.     proc GP_ConsoleH { dummyVar } { 
  1056.        GP_Console   
  1057.        # this is a dummy routine
  1058.     }  
  1059.  
  1060.     proc GP_NewWindowH { dummyVar } { 
  1061.         switchTo 'ALFA'
  1062.         GP_NewWindow   
  1063.        # this is a dummy routine
  1064.     }  
  1065.  
  1066.     proc GP_ActivateH { dummyVar } { 
  1067.        GP_Activate   
  1068.        # this is a dummy routine
  1069.     }  
  1070.  
  1071.     proc GP_CloseH { dummyVar } { 
  1072.        GP_Quit   
  1073.        # this is a dummy routine
  1074.     }  
  1075.  
  1076.  } else { set GPLTmodeVars(EventHandler) 0 }
  1077.  
  1078.  
  1079. #############################################################################
  1080. #
  1081. #  Find and launch gnuplot
  1082. #
  1083. #
  1084.  
  1085. proc GP_Check {} {
  1086.     global GPLTMenu  gp_Launched appName GPLTPath  GPLTmodeVars gp_FSIG
  1087.     global modifiedVars
  1088.                    
  1089.     # Check if gnuplot app is running.  If not, open the app named in 
  1090.     # $ (if defined) or have the user select an app via a
  1091.     # standard file dialog.  Leave the gnuplot app in the background.
  1092.    
  1093.       set appName [checkRunning gnuplot {GPSE GPLT}  GPLTPath 1]
  1094.     if { $appName != {} } {
  1095.         foreach proc [processes] {
  1096.                 # if a running app has the correct sig, ...
  1097.                 if {[lsearch -exact {GPSE GPLT} [lindex $proc 1] ] >= 0} {
  1098.                 # ...then return its name.
  1099.                         set gp_FSIG  [lindex $proc 1]
  1100.                       set gp_Launched 1
  1101.                       enableMenuItem $GPLTMenu "quit gnuplot" on
  1102.                       enableMenuItem $GPLTMenu "graph" on
  1103.                       enableMenuItem $GPLTMenu "history" on
  1104.                       lappend modifiedVars  GPLTPath          
  1105.                       lappend modifiedVars  gp_FSIG          
  1106.                       enableMenuItem $GPLTMenu "saveSettings" on  
  1107.                       enableMenuItem gnuplotOptions "setPointSize..." on  
  1108.                       enableMenuItem $GPLTMenu "setWorkingFolder..." on
  1109.                       enableMenuItem $GPLTMenu "choosePlotFile..."     on
  1110.                }
  1111.             }
  1112.         #switchTo 'ALFA'
  1113.         return {0}
  1114.     } 
  1115.     #gnuplotClear
  1116.    return {-1}
  1117. }
  1118.  
  1119. #############################################################################
  1120. #
  1121. #  Goto command window
  1122. #
  1123. # 
  1124. proc GP_Console {  } {
  1125. global gp_Console winModes  GPLTmodeVars 
  1126. global gp_Launched gp_Prompt 
  1127.    
  1128.     # Check if gnuplot app is running.  If not, open the app named in 
  1129.     # $ (if defined) or have the user select an app via a
  1130.     # standard file dialog.  Leave the gnuplot app in the background.
  1131.    
  1132.     set wins [winNames]
  1133.     if { [lsearch $wins $gp_Console ]  >= 0} {
  1134.         bringToFront $gp_Console
  1135.         goto [maxPos]
  1136.     } else   {
  1137.         GP_NewConsole
  1138.     }  
  1139. }
  1140.  
  1141.  
  1142. #############################################################################
  1143. #
  1144. #  Create  command window
  1145. #
  1146. # 
  1147. proc GP_NewConsole { } {
  1148.     global winModes gp_Console gp_Graph winModes gp_Path
  1149.     global  GPLTmodeVars gp_Launched gp_GEOM GP_GraphMenu
  1150.     global gp_Prompt  gp_cwd GPLTMenu  gp_home gp_scriptItems
  1151.  
  1152.     if {[llength $gp_GEOM] != "4" } {            
  1153.         GP_Readme
  1154.         new -n $gp_Console
  1155.         changeMode GPLT
  1156.         set gp_GEOM [ getGeometry $gp_Console ] 
  1157.     }   
  1158.     set wd [lindex $gp_GEOM 2]
  1159.     set ht [lindex $gp_GEOM 3]
  1160.     set top [lindex $gp_GEOM 1]
  1161.     set left [lindex $gp_GEOM 0]
  1162.     set gY [expr $top - 15]
  1163.     set gX [expr $left + $wd + 5]
  1164.     set gW [expr 72 ]
  1165.     set gH [expr 50 ]
  1166.  
  1167.     set wins [winNames]    
  1168.     if {  [lsearch $wins $gp_Console ]  < 0 } { 
  1169.             new -g $left $top $wd $ht -n $gp_Console
  1170.             newMode GPLT
  1171.     }
  1172.     catch { setWinInfo -w $gp_Console shell 1 } jjj
  1173.     GP_GraphButton
  1174.     if { $GPLTmodeVars(LiveHist) } GP_DumpHistory
  1175.     insertText -w $gp_Console  "\nWelcome to Alpha's gnuplot 3.6 shell.\n" 
  1176.     GP_Check
  1177.     bringToFront $gp_Console
  1178.     
  1179.      set res [ GP_STDERR ""  3600 ]
  1180.      insertText -w $gp_Console "$res"
  1181.      
  1182.      # The following is a huge kludge...to deal with accidentally
  1183.      # closing the gnuplot window
  1184.      if    { $res == "" }    {
  1185.              GP_Results "gnuplot> "
  1186.      }
  1187.      # end kludge
  1188.           
  1189.      # Now setup the CLIE
  1190.      if {[string first "Using threaded console."  $res ] != {-1} \
  1191.        | [string first "ppc" [string tolower $res ] ] != {-1}  } { 
  1192.            set ress [GP_STDERR "" 3600 ]
  1193.     }
  1194.  
  1195.     set gp_home "$gp_cwd"
  1196.     append gp_home "Scripts:*" 
  1197.  
  1198.  
  1199.      set cdir [pwd]
  1200.      set gp_Path "$gp_home"
  1201.    
  1202.     GP_RebuildScriptMenu
  1203.     cd "$cdir"
  1204.     
  1205.      set gp_home [string range "$gp_home" 0 [expr [string length "$gp_home" ] -2 ] ]
  1206.      message "Current gnuplot Path ==> $gp_cwd"
  1207.      
  1208. }
  1209.  
  1210.  
  1211. ################################################################################
  1212. #
  1213. #  Rebuild the script menu 
  1214. #      
  1215. #
  1216.  
  1217. proc GP_RebuildScriptMenu {  }   {
  1218. global gp_cwd GP_GraphMenu gp_scriptItems gp_openItems gp_Path
  1219.  
  1220.     set gp_scriptItems [list]
  1221.     set gp_openItems [list]
  1222.     set gp_home "$gp_Path"
  1223.  
  1224.     set gp_sl [ GP_ScriptList "$gp_home" "Scripts" ]
  1225.     set gp_sm [concat menu -m -n "Scripts" -p GP_ScriptMenuItems [list "$gp_sl"]  ]
  1226.     
  1227.     # kill the current floating menu (if any)
  1228.     GP_KillGraphButton
  1229.     
  1230.     menu  -n "$GP_GraphMenu" -p GPLTMenuItem [list \
  1231.       "gnuplot" \
  1232.       "(-" \
  1233.       {menu -m -s -n "Settings" -p GPLTMenuItem  {\
  1234.           "line styles...&" \
  1235.         "text format...&" \
  1236.           "labels...&" \
  1237.           "offsets...&" \
  1238.       }}\
  1239.        "(-" \
  1240.        "$gp_sm" \
  1241.     ]
  1242.      
  1243.     GP_GraphButton
  1244. }
  1245.    
  1246.     
  1247. ################################################################################
  1248. #
  1249. #  Generate a new script window 
  1250. #      
  1251. #
  1252.  
  1253. proc GP_NewWindow {  } {
  1254. global winModes
  1255.     set wname "Untitled.gp"
  1256.     new -n $wname
  1257.     GP_uFD
  1258.     insertText "#\r"
  1259.     changeMode [set winModes([lindex [winNames] 0]) GPLT]        
  1260.     setWinInfo -w $wname dirty 0
  1261.    #
  1262. }
  1263.  
  1264.  
  1265.  
  1266.  
  1267. #############################################################################
  1268. #
  1269. #  Tell gnuplot to quit
  1270. #
  1271.  
  1272. proc GP_Quit {} {
  1273.     global gp_Console  
  1274.  
  1275.     switchTo 'ALFA'
  1276.     set wins [winNames]
  1277.     if { [set winThere [lsearch $wins $gp_Console ] ] >= 0} {
  1278.         set name [lindex $wins $winThere]
  1279.         bringToFront $name
  1280.         killWindow
  1281.     } 
  1282.  
  1283. }
  1284.  
  1285.  
  1286. #############################################################################
  1287. #
  1288. #  Switch to gnuplot
  1289. #
  1290.  
  1291. proc GP_Activate {  } {
  1292.     global   gp_FSIG 
  1293.     
  1294.     if { ![GP_Check] } { 
  1295.         switchTo \'$gp_FSIG\' 
  1296.     }    
  1297. }
  1298.  
  1299.  
  1300. #############################################################################
  1301. #
  1302. #  Carriage return for command window
  1303. #
  1304.  
  1305. proc GP_CarriageReturn {} {
  1306.     global gp_CommandHist gp_CommandNum  gp_Console gp_Hist gp_Graph 
  1307.  
  1308.     #enter only if cr in console window...
  1309.     set wins [winNames]
  1310.     if { [lsearch $wins $gp_Console ]  == 0  } {
  1311.         setWinInfo -w $gp_Console dirty 0            
  1312.         set pos [getPos]
  1313.     
  1314.         # I look for > and : instead of the proper prompts... Hmmm...
  1315.         # if -1 then we are not on an input line...
  1316.         # or we could be waiting for a pause...
  1317.         # which should be on the last line...        
  1318.         set ind [string first ">" [getText [lineStart $pos] $pos] ]
  1319.         if {$ind < 0} {
  1320.             set ind [string first ":" [getText [lineStart $pos] $pos] ]
  1321.             if {$ind < 0} {
  1322.                  endOfBuffer
  1323.                  # just send a cr to the server
  1324.                  insertText "\r"
  1325.                  GP_SendCommand [getText [lineStart $pos] $pos] 0
  1326.                  return 
  1327.             }
  1328.         }
  1329.         set lStart [expr [lineStart $pos]+$ind+2]
  1330.         endOfLine
  1331.         set lEnd  [getPos]  
  1332.         set scriptName [getText $lStart $lEnd]
  1333.         insertText "\r"
  1334.         # if not on last line, then replace text on last line...
  1335.         GP_SendCommand "$scriptName"  0
  1336.     } elseif {[lsearch $wins $gp_Hist ] == 0} {
  1337.         # execute the current command in the history window...
  1338.         GP_HistgotoMatch
  1339.     } else {
  1340.         insertText "\r"
  1341.     }
  1342. }
  1343.  
  1344.  
  1345.  
  1346. #############################################################################
  1347. #
  1348. #  Filter curlyq's out of sting...We may need to be smarter 
  1349. #    about this later
  1350. #
  1351. proc GP_filtercurlyq { it } {
  1352.  
  1353.   set from [string first "“" $it]
  1354.   set to [string first "”" $it]
  1355.   set ans [string range $it [expr $from + 1] [expr $to - 1] ]
  1356.   if { ![expr [string length $ans] -1 ] } { 
  1357.       regexp -nocase {[a-z0-9]} $ans nans
  1358.       if {[info exists nans]} {
  1359.           set ans $nans
  1360.       } else {
  1361.           set ans ""
  1362.       }
  1363.       
  1364.       
  1365.   }
  1366.   
  1367.   return $ans
  1368. }
  1369.  
  1370. #############################################################################
  1371. #
  1372. #  Extract current gnuplot path from event reply
  1373. #
  1374.  
  1375. proc GP_ExtractPath { ans } {
  1376.     global gp_cwd 
  1377.     
  1378.     # We need to be tricky since I'm not sure if Dave is sending the
  1379.     # path in an alis, or as a string
  1380. #    regexp {“(.*)(”.*“)(.*)”} "$ans" dummy spec1 spec2 spec3   
  1381.     
  1382.     set frst [ string first "PSTR:" "$ans" ]
  1383.     set lst [ string first "TERM:" "$ans" ]
  1384.     
  1385.     if { ($frst > 0) } {
  1386.         if { $lst <= 0 } { set lst [string length $ans ] }
  1387.         set ans [string range "$ans" $frst $lst ]
  1388.         regexp {“(.*)”} "$ans" dummy  spec3   spec1 
  1389.         if {[info exists spec3]} {
  1390.            set ngp_cwd $spec3
  1391.            if {$ngp_cwd != "" } {
  1392.                set gp_cwd "$ngp_cwd"
  1393.             return 0
  1394.            }         
  1395.        }
  1396.    }
  1397.       
  1398.    regexp {«(.*)»} "$ans" dummy spec
  1399.    if {[info exists spec]} {
  1400.    set ngp_cwd [specToPathName $spec]
  1401.    if {$ngp_cwd != "" } {
  1402.            set gp_cwd "$ngp_cwd"
  1403.         return 0
  1404.        }         
  1405.    }
  1406. }    
  1407.   
  1408.     
  1409.  
  1410. #############################################################################
  1411. #
  1412. #  Send a command to gnuplot and return stderr!
  1413. #
  1414.  
  1415. proc GP_STDERR { mycommand tmout } {
  1416. global  gp_cwd  GPLTmodeVars gp_FSIG gp_TYPE gp_CREA
  1417.  
  1418.     if { ! $GPLTmodeVars(EventHandler) } {
  1419.         catch { AEBuild -t $tmout -r \'$gp_FSIG\' GPSE  "exec" ---- \
  1420.                [curlyq $mycommand] {CREA:} "$gp_CREA" \
  1421.                {TYPE:} "$gp_TYPE" } ans 
  1422.     } else {
  1423.         catch { AEBuild -t $tmout -r \'$gp_FSIG\' GPSE  "exec" ---- \
  1424.                [curlyq $mycommand] {CLIE:} "ALFA" {CREA:} "$gp_CREA" \
  1425.                {TYPE:} "$gp_TYPE" } ans 
  1426.     } 
  1427.     if { $ans == "Unable to find process"  }  GP_Quit        
  1428.     GP_ExtractPath $ans
  1429.     return [GP_filtercurlyq $ans]
  1430. }
  1431.  
  1432.  
  1433. #############################################################################
  1434. #
  1435. #  Send a command to gnuplot  
  1436. #
  1437.  
  1438. proc GP_SendCommand { mycommand tmout} {
  1439. global GPLTmodeVars GPLTMenu  gp_CommandHist gp_Rsp  gp_CommandNum  
  1440. global gp_Prompts gp_Launched 
  1441.     
  1442.     watchCursor
  1443.     GP_Console
  1444.       
  1445.     if { $tmout == 0 } { set tmout 3600 }
  1446.     #display command on the last line of the console if its not already there
  1447.    GP_DispCommand "$mycommand"
  1448.       if { [string trim $mycommand '\r'] != {} } {
  1449.         GP_AddToHist $mycommand
  1450.     }
  1451.  
  1452.    # send gnuplot a command
  1453.    # display the stderr results on the screen
  1454.    # The eventHandler above will display the stdout results first
  1455.    set stderr [GP_STDERR "$mycommand\r"  $tmout ]
  1456.    
  1457.    # Null stderr can mean two things.  
  1458.    #   (1) a pause 
  1459.    #   (2) if no thread manager available, it could mean go back 
  1460.    #       and retrieve the stderr which will help 68k systems 
  1461.    #       work since eventHandler is broken in 6.01
  1462.    
  1463.    # This can probably be cleaned up with a little effort
  1464.    # What I'm doing in the next line is taking care of the 
  1465.    # non-threaded macs...
  1466.    # which always return "".  Its harmless otherwise.
  1467.    if {$stderr == ""  & $mycommand != "" } { set stderr [GP_STDERR "" $tmout ] }
  1468.     #if { $GPLTmodeVars(EventHandler) == "0" &  $stderr == "" } { set stderr "gnuplot> " }
  1469.    if { $stderr != "" } { 
  1470.           GP_Results     "$stderr" 
  1471.    } else {
  1472.           #GP_Results ""
  1473.    }
  1474.          
  1475.     blink [getPos]
  1476. }
  1477.   
  1478.  
  1479. #############################################################################
  1480. #
  1481. #  Save current window and execute it in GNUPLOT, just like GNUPLOT 
  1482. #  command ;)
  1483. #
  1484.  
  1485. proc GP_SaveAndExecute {} {
  1486.  
  1487.     if {[winDirty]} {save}
  1488.  
  1489. # Get the path of the current window and it's name
  1490.     
  1491.    # Set the working directory to the current window's
  1492.    # current dir.
  1493.     set GPLTFilePath "cd \'\:"
  1494.     set GPLTFile [lindex [winNames -f] 0]
  1495.     set GPLTFP [file dirname $GPLTFile]
  1496.     append  GPLTFilePath  $GPLTFP ":\'"
  1497.  
  1498.     # use unix style file paths 
  1499.     regsub -all ":" $GPLTFilePath {/} GPLTFilePath
  1500.  
  1501.    # get the load command ready...
  1502.     set scriptName  "load \'"
  1503.     append scriptName [file tail $GPLTFile] "\'"
  1504.  
  1505.    # Change current working directory to window's
  1506.    GP_SendCommand $GPLTFilePath 0
  1507.     
  1508.    # Do the script
  1509.    GP_SendCommand $scriptName 0
  1510. }
  1511.   
  1512.  
  1513. #############################################################################
  1514. #
  1515. #  Write results to command window  
  1516.  
  1517. proc GP_Results { res } {
  1518. global gp_Console gp_cwd
  1519.         insertText -w $gp_Console  "\n" $res
  1520.         setWinInfo -w $gp_Console dirty 0
  1521.     message "Current gnuplot Path ==> $gp_cwd"
  1522. }
  1523.  
  1524.  
  1525. #############################################################################
  1526. #
  1527. #  Display or rewrite "command" to command window  
  1528.  
  1529. proc GP_DispCommand {command} {
  1530.     global   gp_Prompts gp_cwd 
  1531.     
  1532.     # This is ugly and probably not very efficient.
  1533.     
  1534.    set lst [maxPos]
  1535.    set boll [lineStart $lst]
  1536.  set curr [getPos]
  1537.    
  1538.    if { $curr >= $boll } {       
  1539.         set bol [lineStart $curr]
  1540.         set eol [nextLineStart $curr] 
  1541.          set text [getText $bol $eol]
  1542.        set ltext [getText $boll $lst]
  1543.        foreach gp $gp_Prompts {
  1544.            set c1 [string first $gp $ltext]
  1545.            set c2 [expr $lst - $boll]
  1546.            set c3 [string length $gp]
  1547.            set c4 [expr $lst - $curr] 
  1548.            set c5 [string length $command]
  1549.            if { $c1 == 0 & [expr $c2 >= $c3 | $c4 >= $c5 ] } {
  1550.                     if {[string first $command $text] == -1} {
  1551.                         set a [expr $boll + [string length $gp] ]
  1552.                         set b [string trim $command "\r"]
  1553.                         replaceText $lst  $a $b
  1554.                 } 
  1555.            } 
  1556.         }    
  1557.     }
  1558. }
  1559.  
  1560.  
  1561.  
  1562.  
  1563. #############################################################################
  1564. #
  1565. #  Send line to GNUPLOT
  1566. #
  1567.  
  1568. proc GP_DoLine {} {
  1569.     
  1570.     beginningOfLine
  1571.     set bol [getPos]
  1572.     endOfLine
  1573.     set eol [getPos]
  1574.  
  1575.     set scriptName [getText $bol $eol]
  1576.    GP_SendCommand $scriptName     0
  1577. }
  1578.  
  1579.  
  1580. #############################################################################
  1581. #
  1582. #  Send selection to GNUPLOT
  1583. #
  1584.  
  1585. proc GP_DoSelection {} {
  1586.     # Break lines into separate commands.
  1587.     foreach sN [split [getSelect] "\r"] { 
  1588.         GP_SendCommand $sN 0
  1589.     }
  1590.     
  1591. }
  1592.  
  1593.  
  1594.  
  1595.  
  1596. #############################################################################
  1597. #
  1598. #  Command History 
  1599. #
  1600.  
  1601. proc GP_PrevCommand {} {
  1602. global  gp_CommandHist gp_CommandNum gp_Hist gp_Prompt gp_MultiPrompt 
  1603. global  gp_ContPrompt gp_Console gp_Hist
  1604.     
  1605.     #enter only if cr in console window...
  1606.     set wins [winNames]
  1607.     if { [lsearch $wins $gp_Console ] == 0} {
  1608.  
  1609.         set text [getText [lineStart [getPos] ] [nextLineStart [getPos] ] ]
  1610.         if {[set ind [string first $gp_Prompt $text] ] == 0} {
  1611.             goto [expr [lineStart [getPos] ] + $ind + [string length $gp_Prompt] ]
  1612.         } elseif {[set ind [string first $gp_MultiPrompt $text] ] == 0} {
  1613.             goto [expr [lineStart [getPos] ] + $ind + 
  1614.               [string length $gp_Multiprompt] ]
  1615.         } elseif {[set ind [string first $gp_ContPrompt $text] ] == 0} {
  1616.             goto [expr [lineStart [getPos] ] + $ind + [string length $gp_Contprompt] ]
  1617.         } elseif { return }
  1618.     
  1619.         incr gp_CommandNum -1
  1620.         if {$gp_CommandNum < 0} {
  1621.             incr gp_CommandNum
  1622.             endOfLine
  1623.             return
  1624.         } 
  1625.         set text [lindex $gp_CommandHist $gp_CommandNum]
  1626.         set to [nextLineStart [getPos] ]
  1627.         if {[lookAt [expr $to-1] ] == "\r"} {incr to -1}
  1628.  
  1629.         replaceText [getPos] $to $text
  1630.     } elseif { [lsearch $wins $gp_Hist ]  == 0} {
  1631.         
  1632.         set limit [nextLineStart [nextLineStart 0] ]
  1633.         if {[getPos] > $limit} {
  1634.             set limit [expr [getPos] - 1]
  1635.         }
  1636.         select [lineStart $limit] [nextLineStart $limit]
  1637.     } else {
  1638.         previousLine
  1639.     }
  1640.     
  1641. }
  1642. # 
  1643.  
  1644. proc GP_NextCommand {} {
  1645.     global  gp_CommandHist gp_CommandNum gp_Prompt gp_MultiPrompt 
  1646.    global gp_ContPrompt gp_Console gp_Hist
  1647.     
  1648.     #enter only if cr in console window...
  1649.     set wins [winNames]
  1650.     if { [lsearch $wins $gp_Console  ]  == 0} {
  1651.  
  1652.         set text [getText [lineStart [getPos] ] [nextLineStart [getPos] ]]
  1653.         if {[set ind [string first $gp_Prompt $text] ] == 0} {
  1654.             goto [expr [lineStart [getPos] ] + $ind + 9]
  1655.         } elseif {[set ind [string first $gp_MultiPrompt $text] ] == 0} {
  1656.                 goto [expr [lineStart [getPos] ] + $ind + 11]
  1657.         } elseif {[set ind [string first $gp_ContPrompt $text] ] == 0} {
  1658.                 goto [expr [lineStart [getPos] ] + $ind + 3]
  1659.         } else  { 
  1660.             endOfBuffer
  1661.             return 
  1662.         }
  1663.     
  1664.         incr gp_CommandNum
  1665.         if {$gp_CommandNum >= [llength $gp_CommandHist]} {
  1666.             incr gp_CommandNum -1
  1667.             return
  1668.         }
  1669.         set text [lindex $gp_CommandHist $gp_CommandNum]
  1670.         set to [nextLineStart [getPos] ]
  1671.         if {[lookAt [expr $to-1] ] == "\r"} {incr to -1}
  1672.         replaceText [getPos] $to $text
  1673.     } elseif { [lsearch $wins $gp_Hist  ]  == 0} {
  1674.             set pos [getPos]
  1675.             if {$pos < [nextLineStart 0]} {
  1676.                 set pos [nextLineStart 0]
  1677.             }
  1678.             if {[nextLineStart $pos] != [maxPos]} {
  1679.                 select [nextLineStart $pos] [nextLineStart [nextLineStart $pos] ]
  1680.             }
  1681.         } else {
  1682.       # mv cusor down...
  1683.             nextLine
  1684.     }    
  1685. }
  1686.  
  1687.  
  1688.  
  1689. #############################################################################
  1690. #
  1691. #  Edit current window in GNUPLOT
  1692. #
  1693.  
  1694. proc GP_EditFile {} {
  1695. global gp_FSIG 
  1696.  
  1697.     if { ![GP_Check] } {
  1698.         set thisWin  [lindex [winNames] 0]
  1699.         if {[winDirty]} {
  1700.             if {[askyesno "Save '$thisWin'?"] == "yes"} {
  1701.                 save
  1702.             } else { return }     }
  1703.         set thisWin  [lindex [winNames -f ] 0]
  1704.         fileMenuProc File close
  1705.         if {[catch {sendOpenEvent -n \'$gp_FSIG\' $thisWin }] } {
  1706.         } else { switchTo \'$gp_FSIG\'     }
  1707.    }
  1708. }
  1709.  
  1710.  
  1711. #############################################################################
  1712. #
  1713. #  change behavior of modifyModeFlags
  1714. #
  1715.  
  1716. if    {![string length [info commands GP_modifyModeFlags] ]} {    
  1717.     global mode GPLTmodeVars gp_modflag PREFS gp_HistGEOM gp_GEOM
  1718.     global GPLTMenu  gp_Graph gp_Console  gp_Hist 
  1719.         
  1720.     rename modifyModeFlags GP_modifyModeFlags
  1721.     
  1722.     proc modifyModeFlags {} {
  1723.         global mode GPLTmodeVars gp_modflag PREFS gp_HistGEOM gp_GEOM
  1724.         global GPLTMenu  gp_Graph gp_Console  gp_Hist gp_floatmenu
  1725.         
  1726.         set wins [winNames]
  1727.         if { [lsearch $wins $gp_Console ]  >= 0}  {
  1728.             set gp_GEOM [ getGeometry $gp_Console ]
  1729.         }
  1730.         
  1731.         if { [lsearch $wins $gp_Hist] >= 0 } {
  1732.             set gp_HistGEOM [ getGeometry $gp_Hist ]
  1733.         }
  1734.         
  1735.         set ans [ GP_modifyModeFlags ]    
  1736.        if { $mode == "GPLT" } {
  1737.        # make any changes to GPLT environment
  1738.             set gp_modflag 1
  1739.            
  1740.             if { $GPLTmodeVars(LiveHist) } { 
  1741.                 set wins [winNames]
  1742.                 if { [lsearch $wins $gp_Console  ]  >= 0} {
  1743.                     GP_DumpHistory
  1744.                 } 
  1745.             } else {
  1746.                   set wins [winNames]
  1747.                 if {[lsearch $wins $gp_Hist  ]  >= 0} {
  1748.                     bringToFront $gp_Hist
  1749.                     killWindow 
  1750.                 } 
  1751.             }
  1752.             if { $GPLTmodeVars(EventHandler) } { 
  1753.             } else {
  1754.                 set jj1 "The event handler is broken in Alpha (68k).
  1755.                 set jj2 "You may need to disable event handling until it is fixed."
  1756.                alertnote $jj1 $jj2
  1757.             }
  1758.             if { $GPLTmodeVars(GraphButton) } { 
  1759.                 GP_GraphButton
  1760.             } else {
  1761.                 GP_KillGraphButton
  1762.             }
  1763.             catch {  source $PREFS:GPLTPrefs.tcl } jjj
  1764.             catch {    bringToFront $gp_Console } jjj
  1765.        }
  1766.        return $ans
  1767.     }
  1768. }
  1769.  
  1770.  
  1771.  
  1772. #############################################################################
  1773. #
  1774. #  Redefine the closeHook procedure so that gnuplot is quit 
  1775. #  whenever the user closes the console window.  Also ask about 
  1776. #  saving the history list when the console is closed.
  1777. #
  1778. #
  1779.     
  1780. if    {![string length [info commands GP_CloseHook] ]} {
  1781. global GPLTMenu GPLTPath GPLTmodeVars PREFS modifiedModeVars
  1782. global gp_CreatorList gp_TypeList gp_Console gp_Graph  gp_Hist 
  1783. global gp_CreatorNames gp_CommandNum gp_Launched gp_FSIG modifiedVars
  1784. global gp_GEOM gp_HistGEOM modifiedVars
  1785.           
  1786.     
  1787.     rename closeHook GP_CloseHook
  1788.     
  1789.     proc closeHook    {name} {
  1790.         global GPLTMenu GPLTPath GPLTmodeVars PREFS modifiedModeVars
  1791.         global gp_CreatorList gp_TypeList gp_Console gp_Graph gp_Hist 
  1792.         global gp_CreatorNames gp_CommandNum gp_Launched gp_FSIG modifiedVars
  1793.         global gp_GEOM gp_HistGEOM modifiedVars
  1794.         
  1795.         # Always call the original closeHook.
  1796.         set result [eval GP_CloseHook    {$name}]
  1797.  
  1798.         # We need to make    sure that we launched gnuplot    in    the first place
  1799.         # and    that we are    in    gp_ulot mode....    
  1800.         if    { [string first "$PREFS:GPLTPrefs.tcl" $name] == 0    } {
  1801.             if { [ catch { source "$PREFS:GPLTPrefs.tcl" } hmmm ] } {
  1802.                 alertnote "Error sourcing GPLTPrefs.tcl\n\n$hmmm"
  1803.             }
  1804.         } elseif { [string first $gp_Console $name] == 0    } {
  1805.  #    
  1806.                if    {$gp_CommandNum != 0 && ! $GPLTmodeVars(NevrSavHist) } {
  1807.                     GP_DumpHistory
  1808.                    set ans [askyesno -c "Save    gnuplot command History?" ]
  1809.                 } else {    set ans "yes" }
  1810.  #                
  1811.                 GP_OffSet
  1812.                 switch -exact [string tolower $ans] {
  1813.                     "cancel"   { GP_Console; return $result }
  1814.                     "no"       { GP_ClearHistory }
  1815.                     "yes"       {     
  1816.                                     catch { setWinInfo -w $gp_Hist read-only 0 } jj                                        
  1817.                                     catch { setWinInfo -w $gp_Hist dirty 1 } jj
  1818.                                     catch { bringToFront $gp_Hist } jj
  1819.                                     if { $jj == 0 } { 
  1820.                                         catch { saveAs "history.gp" } jj
  1821.                                     }
  1822.                                     catch { setWinInfo -w $gp_Hist dirty 0 } jj                                        
  1823.                                     catch { setWinInfo -w $gp_Hist read-only 1 } jj
  1824.                                     GP_ClearHistory
  1825.                                 }
  1826.                   } 
  1827.             #end case
  1828.             if {$gp_Launched    !=    0 } { 
  1829.                 catch { sendQuitEvent \'$gp_FSIG\' } hhh  
  1830.                 lappend modifiedVars  gp_FSIG 
  1831.             } 
  1832.                set gp_Launched 0
  1833.              set wins [winNames]
  1834.             if { [lsearch $wins $gp_Hist  ]  >= 0} {
  1835.                 bringToFront $gp_Hist
  1836.                 killWindow 
  1837.             } 
  1838.             lappend modifiedVars   gp_GEOM 
  1839.             lappend modifiedVars   gp_HistGEOM 
  1840.             if { [info exists GPLTPath] } { lappend modifiedVars GPLTPath }            
  1841.  
  1842.         } elseif {[string first $gp_Hist    $name] == 0} {
  1843.                 set wins [winNames]
  1844.                 if { [lsearch $wins $gp_Console ]  >= 0} {
  1845.                    set GPLTmodeVars(LiveHist) 0
  1846.                 } 
  1847.         }
  1848.          #end if
  1849.          return $result
  1850.  ##
  1851.     } 
  1852.     #endproc    closeHook
  1853. } 
  1854. # end if
  1855.     
  1856.  
  1857. #############################################################################
  1858. #
  1859. #  Redefine the deactivateHook procedure so that gnuplot is quit 
  1860. #  whenever the user closes the console window.  Also ask about 
  1861. #  saving the history list when the console is closed.
  1862. #
  1863. #
  1864.     
  1865. if    {![string length [info commands GP_DeactivateHook] ]} {
  1866.     global gp_Hist GPLTmodeVars gp_Console
  1867.     global  gp_GEOM gp_HistGEOM
  1868.     
  1869.     rename deactivateHook GP_DeactivateHook
  1870.     proc deactivateHook    {name} {
  1871.         global  gp_Hist GPLTmodeVars gp_Console gp_Graph
  1872.         global  gp_GEOM gp_HistGEOM
  1873.         # Always call the original deactivateHook.
  1874.         set result [eval GP_DeactivateHook    {$name}]
  1875.         
  1876.         if    { [string first $gp_Hist $name] == 0    } {
  1877.             set gp_HistGEOM [ getGeometry $gp_Hist ]
  1878.           endOfBuffer
  1879.         } elseif {[string first $gp_Console $name] == 0} {
  1880.             set gp_GEOM [getGeometry $gp_Console ]
  1881.         } 
  1882.          #end if
  1883.          return $result
  1884.  ##
  1885.     } 
  1886.     #endproc    deactivateHook
  1887. } 
  1888. # end if
  1889.  
  1890. #############################################################################
  1891. #
  1892. #  Redefine the activateHook procedure so that gnuplot is quit 
  1893. #  whenever the user closes the console window.  Also ask about 
  1894. #  saving the history list when the console is closed.
  1895. #
  1896. #
  1897.     
  1898. if    {![string length [info commands GP_ActivateHook] ]} {
  1899.         global  gp_Hist gp_Graph gp_Console modifiedModeVars
  1900.         global  mode gp_cwd GPLTmodeVars mode gp_modflag gp_GEOM
  1901.     
  1902.     rename activateHook GP_ActivateHook
  1903.     #    set lastStack {}
  1904.     proc activateHook    {name} {
  1905.         global  gp_Hist gp_Graph gp_Console modifiedModeVars
  1906.         global  mode gp_cwd GPLTmodeVars mode gp_modflag gp_GEOM
  1907.     
  1908.         # Always call the original activateHook.
  1909.         set result [eval GP_ActivateHook    {$name}]
  1910.         
  1911.         if    { [string first $gp_Console $name] == 0} {
  1912.             set gp_GEOM [ getGeometry $gp_Console ]
  1913.         } elseif    { [string first $gp_Hist $name] == 0} {
  1914.             set gp_HistGEOM [ getGeometry $gp_Hist ]
  1915.         }
  1916.         
  1917.          #end if
  1918.         if { $mode == "GPLT"} {
  1919.             message "Current gnuplot Path ==> $gp_cwd"
  1920.         }
  1921.         #set gp_modflag 0
  1922.          return $result
  1923.     } 
  1924.     #endproc    activateHook
  1925. } 
  1926. # end if
  1927.  
  1928.  
  1929.  
  1930. ###########################################################################
  1931. #
  1932. # In GNUc mode, cmd-double-click highlights area btween consecutive 
  1933. # gnuplot prompts
  1934. #
  1935.  
  1936. proc GPLTDblClick {from to} {
  1937.    
  1938.     global gp_Prompts
  1939.     
  1940.     # First find "gnuplot> " prompt above and below cursor entry...
  1941.     # don't forget to deal with "multiplot> " and "> "
  1942.  
  1943.     set gp1 [list]
  1944.     foreach gp $gp_Prompts {lappend gp1 [search -n -f 0 -r 1   $gp $from] }
  1945.     set firstmatch [lindex [lindex $gp1 0 ] 0]
  1946.     foreach el $gp1 { if {[lindex $el 1] > $firstmatch } { 
  1947.          set firstmatch [lindex $el 0] } }    
  1948.  
  1949.     if {$firstmatch == {}} {
  1950.         message "You are not between prompts" 
  1951.         return 
  1952.     } else {
  1953.         
  1954.         set firstmatch [nextLineStart $firstmatch]
  1955.         endOfBuffer
  1956.         set lastmatch [getPos ]
  1957.         set gp1 [list]
  1958.         foreach gp $gp_Prompts {lappend gp1 [search -n -f 1 -r 1   $gp $from] }
  1959.         foreach el $gp1 {if {[lindex $el 1]!={} & [lindex $el 0]< $lastmatch } { 
  1960.                set lastmatch $el } 
  1961.        }
  1962.          if {$lastmatch == {}} {
  1963.             message "You are not between prompts" 
  1964.             return 
  1965.         } else { 
  1966.         
  1967.         goto $lastmatch
  1968.         beginningOfLine
  1969.         select $firstmatch [getPos] }
  1970.     }
  1971. }
  1972.  
  1973.  
  1974.  
  1975. #########################################################################
  1976. #
  1977. # Modify openHook to set gp_plot mode for files of type/creator GPLT
  1978. # 
  1979. #
  1980.  
  1981. if    {![string length [info commands GP_OpenHook] ]} {
  1982.         global GPLTMenu gp_Console   
  1983.         global  GPLTmodeVars gp_CommandNum gp_Launched 
  1984.     
  1985.     rename openHook GP_OpenHook
  1986.     
  1987.     #set lastStack {}
  1988.     proc openHook    {name} {
  1989.         global GPLTMenu gp_Console   
  1990.         global  GPLTmodeVars gp_CommandNum gp_Launched 
  1991.     
  1992.         # Always call the original closeHook.
  1993.         set result [eval GP_OpenHook    {$name} ]
  1994.  
  1995.         # check to see if file type is GPLT if so, then set gp_plot mode.
  1996.         # of course this gets over-ridden if the file suffix is supported
  1997.         # by some other mode.
  1998.          if { [string first "GPLT" [getFileSig  "$name"] ] >= 0 } {
  1999.            changeMode [ set winModes([lindex [winNames] 0]) GPLT ] 
  2000.          } elseif { [string first "GPSE" [getFileSig  "$name"] ] >= 0 } {
  2001.            changeMode [ set winModes([lindex [winNames] 0]) GPLT ] 
  2002.          }
  2003.          #
  2004.         return $result
  2005.     }
  2006. }
  2007.  
  2008.  
  2009.  
  2010. #############################################################################
  2011. #
  2012. #  Select creator from list
  2013. #
  2014.  
  2015. proc GP_SelectCreator {} {
  2016. global gp_CreatorNames  gp_CreatorList   gp_TypeList GPLTmodeVars  
  2017. global setOutputCreator modifiedModeVars modifiedVars
  2018. global gp_CREA gp_TYPE
  2019.  
  2020.     set crea [listpick -p "Select output file creator:" $gp_CreatorNames  ]
  2021.    set creator [lindex $gp_CreatorList [lsearch  $gp_CreatorNames $crea] ]
  2022.    set type [lindex $gp_TypeList [lsearch  $gp_CreatorNames $crea] ]
  2023.    if {$creator == {} } {
  2024.          set gp_CREA 'ALFA'
  2025.          set gp_TYPE 'TEXT' 
  2026.    } else { 
  2027.        set gp_CREA $creator
  2028.        set gp_TYPE $type
  2029.    }
  2030.     lappend modifiedVars  gp_TYPE
  2031.     lappend modifiedVars  gp_CREA
  2032.     lappend modifiedVars  gp_CreatorList 
  2033.     lappend modifiedVars  gp_TypeList
  2034.     lappend modifiedVars  gp_CreatorNames 
  2035. }
  2036.  
  2037.  
  2038. #############################################################################
  2039. #
  2040. #  Add creator to list from file dialog
  2041. #
  2042.  
  2043. proc GP_AddCreator {} {
  2044. global gp_CreatorNames  gp_CreatorList  GPLTMenu gp_TypeList 
  2045. global GPLTmodeVars modifiedVars modifiedModeVars
  2046. global gp_CREA gp_TYPE
  2047.    
  2048.    set fname [getfile "Select file type for creator"] 
  2049. #  add to creator list
  2050.    if {[getFileType $fname]=="APPL"} {
  2051.        alertnote "Sorry, but that was an application. \rTry again."
  2052.        return
  2053.    }
  2054.    
  2055.    if {$fname != {}} {
  2056.        set nm [getline "What do you wish to call it?" [file tail $fname ] ]
  2057.         if {$nm != {} } {   
  2058.                 set gp_CREA  [getFileSig $fname]
  2059.                 set gp_TYPE  [getFileType $fname]
  2060.                 lappend gp_CreatorList  $gp_CREA
  2061.                 lappend gp_TypeList     $gp_TYPE
  2062.                 lappend gp_CreatorNames $nm
  2063.                 enableMenuItem  setOutputCreator "Select..." on
  2064.                 enableMenuItem  setOutputCreator "Delete..." on
  2065.                 lappend modifiedVars  gp_TYPE
  2066.                 lappend modifiedVars  gp_CREA
  2067.                 lappend modifiedVars  gp_CreatorList 
  2068.                 lappend modifiedVars  gp_TypeList 
  2069.                 lappend modifiedVars  gp_CreatorNames 
  2070.             }
  2071.    }
  2072.      
  2073.  
  2074. }
  2075.  
  2076. #############################################################################
  2077. #
  2078. #  Remove creator from list
  2079. #
  2080.  
  2081. proc GP_DeleteCreator {} {
  2082. global gp_CreatorNames GPLTMenu gp_CreatorList  gp_TypeList 
  2083. global GPLTmodeVars modifiedVars modifiedModeVars
  2084. global gp_CREA gp_TYPE
  2085.  
  2086.     set crea [listpick -p "Select creator to be deleted:"  $gp_CreatorNames ]
  2087.  
  2088.       if {$crea != {}} {
  2089.     #  now remove this creator from both lists....
  2090.         set creatorInd [lsearch  $gp_CreatorNames $crea]
  2091.         set crea [ lindex $gp_CreatorList $creatorInd]
  2092.         set gp_CreatorNames [ lreplace $gp_CreatorNames $creatorInd $creatorInd ]
  2093.         set gp_CreatorList  [ lreplace $gp_CreatorList  $creatorInd $creatorInd ]
  2094.         set gp_TypeList     [ lreplace $gp_TypeList     $creatorInd $creatorInd ]
  2095.     
  2096.         if {$gp_CREA == $crea } {
  2097.             set gp_CREA 'ALFA'
  2098.             set gp_TYPE 'TEXT'
  2099.         } 
  2100.         lappend modifiedVars  gp_TYPE
  2101.         lappend modifiedVars  gp_CREA
  2102.         lappend modifiedVars  gp_CreatorList 
  2103.         lappend modifiedVars  gp_TypeList 
  2104.         lappend modifiedVars  gp_CreatorNames 
  2105.     }
  2106.     
  2107.     if {[llength $gp_CreatorList] == 0} {
  2108.         enableMenuItem  setOutputCreator "Select..." off
  2109.         enableMenuItem setOutputCreator "Delete..." off
  2110.     }
  2111. }
  2112.  
  2113.  
  2114. #############################################################################
  2115. #
  2116. #  Add command to history list
  2117. #
  2118.  
  2119. proc GP_AddToHist  { cmmd } {
  2120. global gp_CommandHist gp_CommandNum GPLTMenu 
  2121. global GP_Console gp_Hist GPLTmodeVars
  2122.     
  2123.     enableMenuItem gnuplotOptions "clearHistory" on
  2124.     lappend gp_CommandHist $cmmd
  2125.     set gp_CommandNum [llength $gp_CommandHist]
  2126.     
  2127.     if { $GPLTmodeVars(LiveHist) } {
  2128.         # if history list active then append $cmmd on last line
  2129.         set wins [winNames]
  2130.         if { [lsearch $wins $gp_Hist ]  >= 0} {
  2131.              setWinInfo -w $gp_Hist dirty 1
  2132.              setWinInfo -w $gp_Hist  read-only 0
  2133.             insertText -w $gp_Hist "$cmmd\r"
  2134.              setWinInfo -w $gp_Hist  dirty 0
  2135.              setWinInfo    -w $gp_Hist  read-only 1
  2136.         } else {
  2137.             GP_DumpHistory
  2138.             bringToFront $GP_Console
  2139.         }
  2140.         
  2141.     }
  2142. }
  2143.  
  2144.  
  2145. #############################################################################
  2146. #
  2147. #  Clear History list 
  2148. #
  2149.  
  2150. proc GP_ClearHistory {} {
  2151.     global  GPLTMenu gp_CommandHist gp_CommandNum  gp_Hist
  2152.  
  2153.     set gp_CommandHist [list]
  2154.     set gp_CommandNum "0"
  2155.     enableMenuItem gnuplotOptions "clearHistory" off    
  2156.     set wins [winNames]
  2157.     if { [lsearch $wins $gp_Hist ] >= 0} {
  2158.         bringToFront $gp_Hist
  2159.         killWindow 
  2160.     }
  2161. }
  2162.  
  2163.  
  2164. #############################################################################
  2165. #
  2166. #  Write History list into a window of its own.
  2167. #
  2168.  
  2169. proc GP_DumpHistory {} {
  2170.     global gp_CommandHist gp_CommandNum gp_Console 
  2171.     global winModes GPLTmodeVars gp_Console gp_Hist  
  2172.    global gp_GEOM modifiedModeVars
  2173.    
  2174.     set wins [winNames]
  2175.     set nw [ llength $wins ]
  2176.  
  2177.     if { [lsearch $wins $gp_Hist ]  == -1} {
  2178.         
  2179.         set l [ expr [lindex $gp_GEOM 0] + 5 + [lindex $gp_GEOM 2] ]
  2180.         set t [ expr [lindex $gp_GEOM 1] + 20 ]
  2181.         set w 96
  2182.         set h [ expr [lindex $gp_GEOM 3] - 20 ]
  2183.         new -n $gp_Hist -g $l $t $w $h
  2184.         
  2185.        set gp_HistGEOM [getGeometry]        
  2186.         set fileName [lindex [winNames] 0]
  2187.         changeMode [set winModes([lindex [winNames] 0]) GPLT ]
  2188.         GP_uFD
  2189.         set scriptName "# (<cr> to send to gnuplot)\r#-----\r"
  2190.       foreach word $gp_CommandHist  {append  scriptName  $word "\r" }
  2191.         insertText  -w $fileName $scriptName
  2192.          setWinInfo dirty 0
  2193.          setWinInfo read-only 1
  2194.     } else {
  2195.         bringToFront $gp_Hist
  2196.     }
  2197. }
  2198.  
  2199.     
  2200.  
  2201. ################################################################################
  2202. #
  2203. #  Insert File Description---use Vince's if possible.  
  2204. #      this used in creating new window and in dumping history list
  2205. #
  2206.  
  2207. proc GP_uFD { } {
  2208.     #catch {userFileDescription } ans 
  2209.     #if {     $ans != ""    }  {
  2210.          insertText "#\r#\r#     " [join [mtime [now] long] ] "\r"
  2211.          nextLine
  2212.     #}
  2213.    endOfBuffer
  2214. }
  2215.  
  2216.  
  2217. ################################################################################
  2218. #
  2219. #  Clear a few globals...
  2220. #
  2221. #
  2222. #
  2223. proc GP_Clear {} {
  2224.     global PREFS GPLTPath  GPLTmodeVars
  2225.     global  gp_CreatorList gp_CreatorNames  
  2226.     global gp_GEOM gp_HistGEOM modifiedVars
  2227.     global gp_CREA gp_TYPE
  2228.  
  2229.     if { [info exists GPLTPath] } { unset GPLTPath }
  2230.     if { [info exists gp_GEOM] } { set gp_GEOM [list] }      
  2231.     if { [info exists gp_CreatorList] } { unset gp_CreatorList }      
  2232.     if { [info exists gp_TypeList] } { unset gp_TypeList }      
  2233.     if { [info exists gp_CreatorNames] } { unset gp_CreatorNames }      
  2234.     if { [info exists gp_HistGEOM] } { unset gp_HistGEOM  }      
  2235.     if { [info exists gp_CREA] } { unset gp_CREA  }      
  2236.     if { [info exists gp_TYPE] } { unset gp_TYPE  }      
  2237.     
  2238.     if { ![info exists gp_CreatorList]}  { set gp_CreatorList [list ALFA GPLT ] }
  2239.     if { ![info exists gp_TypeList]}  { set gp_TypeList [list TEXT TEXT ] }
  2240.     if { ![info exists gp_CreatorNames]} { set gp_CreatorNames [list alpha gnuplot] }
  2241.     if { ![info exists gp_CREA] } {set gp_CREA ALFA}
  2242.     if { ![info exists gp_TYPE ] } {set gp_TYPE TEXT}
  2243.     if { ![info exists gp_GEOM] } {set gp_GEOM [list]}
  2244.     if { ![info exists gp_HistGEOM] } {set gp_HistGEOM [list ]}
  2245.     
  2246.     if { [llength $gp_CreatorList] == 0 \
  2247.       || [llength $gp_CreatorList] != [llength $gp_CreatorNames] \
  2248.       || [llength $gp_CreatorList] != [llength $gp_TypeList]} {
  2249.             set gp_CreatorList [list]
  2250.             set gp_TypeList [list]
  2251.             set gp_CreatorNames [list]
  2252.     }
  2253.  
  2254.     lappend modifiedVars gp_CreatorNames gp_TypeList gp_CreatorList 
  2255.     lappend modifiedVars gp_HistGEOM gp_GEOM GPLTPath
  2256.     lappend modifiedVars gp_TYPE gp_CREA
  2257.     catch { source $PREFS:gnuplotMode.tcl } blah
  2258.     catch { source $HOME:tcl:modes:gnuplotMode.tcl } blah
  2259. }
  2260.  
  2261.  
  2262. ################################################################################
  2263. #
  2264. #  History goto match...
  2265. #
  2266. #
  2267. #
  2268.  
  2269. proc GP_HistgotoMatch {} {
  2270.    set frst [lineStart [getPos] ]
  2271.    endOfLine
  2272.    set lst  [getPos]
  2273.     endOfBuffer
  2274.     beginningOfLine
  2275.    GP_SendCommand [getText $frst $lst ] 0
  2276. }
  2277.  
  2278.  
  2279.  
  2280.  
  2281.  
  2282. ################################################################################
  2283. #
  2284. #  Create floating menu
  2285. #
  2286. #
  2287. #
  2288.  
  2289. set GP_GraphMenu "gnuplotGraph"
  2290.  
  2291. set gp_grmen [list "menu  -n $GP_GraphMenu -p GPLTMenuItem" ]
  2292. lappend gp_grmen "gnuplot" "(-" 
  2293.  
  2294. menu  -n $GP_GraphMenu -p GPLTMenuItem   [ concat \
  2295.       "gnuplot" \
  2296.       ]
  2297.       
  2298.      
  2299.  
  2300.  
  2301.  
  2302.  
  2303.  
  2304. ################################################################################
  2305. #
  2306. #  run load scripts from scripts menu
  2307. #
  2308. #
  2309. #
  2310.  
  2311. proc GP_ScriptMenuItems {menu item} {
  2312. global gp_sl gp_home gp_scriptItems gp_Path  gp_openItems
  2313.  
  2314.    set men [string tolower $menu]
  2315.    set ite [string tolower $item]
  2316.    
  2317.    if { "$item" == "Rebuild Menu" } {
  2318.         set cdir [pwd]
  2319.         set sl [expr [string length $gp_Path ] - 2] 
  2320.         cd [string range $gp_Path 0 $sl ]
  2321.      GP_RebuildScriptMenu
  2322.      cd "$cdir"
  2323.      return 0
  2324.    }
  2325.    
  2326.    foreach it $gp_scriptItems {
  2327.         if { [string match "cd \'*$men:\'; load \'*$men:$ite\'" [string tolower $it] ] } {
  2328.           GP_SendCommand "$it" 0
  2329.           return 0
  2330.      }      
  2331.     }
  2332.  
  2333.    #set men [string tolower [string range $menu 5 [string length $menu] ] ]
  2334.    
  2335.    # filter out the "• edit "  from the selected $menu $item
  2336.    set ite [string tolower [string range $item 7 [string length $item] ] ]
  2337.  
  2338.    foreach it $gp_openItems {
  2339.         if { [string match "*$men:$ite" [string tolower $it] ] } {
  2340.           edit "$it" 
  2341.           newMode  GPLT 
  2342.           return 0
  2343.      }      
  2344.     }
  2345. }
  2346.  
  2347.  
  2348.  
  2349. ################################################################################
  2350. #
  2351. #  Create a floating gnuplot graph button (Alpha 6.2 or higher)
  2352. #
  2353. #
  2354. #
  2355. proc GP_GraphButton {} {    
  2356. global gp_floatmenu GP_GraphMenu GPLTmodeVars gp_sl gp_Path
  2357.  
  2358.   
  2359.  if {$GPLTmodeVars(GraphButton) } { 
  2360.     if { (![info exists  gp_floatmenu] )} {
  2361.      set gp_floatmenu [float -m $GP_GraphMenu -n "" -M -1 -z GPLT]
  2362.     } 
  2363.  } 
  2364.     
  2365. }
  2366.  
  2367.  
  2368.  
  2369. ################################################################################
  2370. #
  2371. #  Generate the script menu 
  2372. #      
  2373. #
  2374.  
  2375. proc GP_ScriptList { sdir men } {
  2376. global gp_scriptItems  gp_openItems
  2377.    
  2378.     if {"$men" == "Scripts" } {
  2379.         set sl [list "Rebuild Menu"]
  2380.     } else {
  2381.         set sl [list]
  2382.     }
  2383.     
  2384.     # get the list of text files in $sdir
  2385.     set gp_fl [ glob -nocomplain -t TEXT "$sdir"] 
  2386.     set mdir [string range "$sdir" 0 [expr [string length "$sdir"] - 2 ] ] 
  2387.     set rdir [string range "$mdir" 0 [expr [string length "$mdir"] -1 ] ]
  2388.     foreach f $gp_fl {
  2389.       set mitem [string range $f [expr 1 + [string last ":" "$f" ] ] [ string length "$f" ] ]
  2390.       #append mitem "&"
  2391.       if { $mitem != "" } { 
  2392.           lappend sl "<E<S$mitem" 
  2393.           lappend sl "<S<I• edit $mitem" 
  2394.           lappend sl "<S<B• edit $mitem" 
  2395.           lappend sl "<S<U• edit $mitem" 
  2396.           lappend sl "<S<O• edit $mitem" 
  2397.         lappend gp_scriptItems "cd \'$rdir\'; load \'$f\'"
  2398.         lappend gp_openItems "$f"
  2399.       }
  2400.     }
  2401.     
  2402.     # get the list of aliased directories in $sdir and
  2403.     # perform this operation again on subdirectories
  2404.     set dlist [ glob   -t fdrp -nocomplain "$sdir"]
  2405.     foreach d $dlist {
  2406.        set dn [string range $d [expr [string last ":" "$d" ] +1 ] [string length $d]   ]
  2407.        #set dn [string range $dn [expr 1 + [string last ":" "$dn" ] ] [ string length "$dn" ] ]
  2408.        set sl [concat "$sl"  [concat " \{menu -m -n" "\"$dn\"" -p GP_ScriptMenuItems  " \{  "  ] ]
  2409.        set dnam $d
  2410.        append dnam "*" 
  2411.        #set gp_ssl [ GP_ScriptList "$dnam" $dn ]
  2412.        set gp_ssl [list "(ALIASED FOLDERS NOT WORKING YET"]
  2413.        set sl [ concat "$sl "  $gp_ssl " \}  \} " ]
  2414.     }
  2415.     
  2416.     # get the list of directories in $sdir and
  2417.     # perform this operation again on subdirectories
  2418.     set dlist [ glob -nocomplain  "$sdir:"]
  2419.     foreach d $dlist {
  2420.        set dn [string range $d 0 [expr [string last ":" "$d" ] - 1 ]  ]
  2421.        set dn [string range $dn [expr 1 + [string last ":" "$dn" ] ] [ string length "$dn" ] ]
  2422.        set sl [concat "$sl"  [concat " \{menu -m -n" "\"$dn\"" -p GP_ScriptMenuItems  " \{  "  ] ]
  2423.        set dnam $d
  2424.        append dnam "*" 
  2425.        set gp_ssl [ GP_ScriptList "$dnam" $dn ]
  2426.        set sl [ concat "$sl "  $gp_ssl " \}  \} " ]
  2427.     }
  2428.     
  2429.     return  $sl 
  2430. }
  2431.    
  2432.  
  2433. ################################################################################
  2434. #
  2435. #  Kill a floating gnuplot menu (Alpha 6.2 or higher)
  2436. #
  2437. #
  2438. #
  2439. proc GP_KillGraphButton {} {    
  2440. global gp_floatmenu GPLTMenu GPLTmodeVars 
  2441.  
  2442. if { [info exists  gp_floatmenu] }  { #
  2443.      catch {unfloat $gp_floatmenu } ans
  2444.      unset gp_floatmenu
  2445.     }
  2446. }
  2447.  
  2448.  
  2449.  
  2450.  
  2451.  
  2452. ################################################################################
  2453. #
  2454. #  Load a script into gnuplot 
  2455. #      
  2456. #
  2457.  
  2458. proc GP_LoadScript {} {
  2459.     global gp_cwd
  2460.     catch { cd "$gp_cwd" } hmm
  2461.     set GPLTFile [ getfile "Choose a script to load:" ]
  2462.    if { $GPLTFile != "" } {    
  2463.        GP_SendCommand  "load \'$GPLTFile\'" 0
  2464.     }
  2465. }
  2466.  
  2467.  
  2468.  
  2469. ################################################################################
  2470. #
  2471. #  Tell gnuplot to save settings...
  2472. #
  2473. #
  2474. #
  2475.  
  2476. proc GP_SaveSettings { what } {
  2477. global  GPLTmodeVars gp_cwd gp_TYPE gp_CREA
  2478.  
  2479.    catch { cd "$gp_cwd" } hmm
  2480.    set tCREA $gp_CREA
  2481.    set tTYPE $gp_TYPE
  2482.    set gp_CREA {ALFA}
  2483.    set gp_TYPE {TEXT}
  2484.     set where [ putfile "Save current gnuplot settings" \
  2485.       [format "gnuplot%src.gp" [string toupper $what ] ] ]
  2486.     if { $where != "" } { 
  2487.       GP_SendCommand "save $what \'$where\'" 0
  2488.     }
  2489.     set gp_CREA  $tCREA
  2490.     set gp_TYPE  $tTYPE
  2491. }
  2492.  
  2493.  
  2494.  
  2495. ################################################################################
  2496. #
  2497. #  Tell gnuplot where the current dir is...
  2498. #
  2499. #
  2500. #
  2501.  
  2502. proc GP_SetCWD {} {
  2503.     set gp_cwd [ get_directory -p "Select gnuplot working folder"]
  2504.     if { $gp_cwd != "" } {
  2505.         GP_SendCommand "cd \'$gp_cwd\'" 0
  2506.     }
  2507. }
  2508.  
  2509.  
  2510.  
  2511. ################################################################################
  2512. #
  2513. #  Tell gnuplot to change the point size
  2514. #
  2515. #
  2516. #
  2517.  
  2518. proc GP_SetPTSZ {} {
  2519.     GP_SendCommand " set pointsize [ getline "Enter point size" 1 ] " 0
  2520. }
  2521.  
  2522. ################################################################################
  2523. #
  2524. #  Choose a file to plot and write "plot 'filename'" on command line
  2525. #
  2526. #
  2527. #
  2528.  
  2529. proc GP_ChoosePlotFile { } {
  2530.     global gp_Console gp_cwd
  2531.     catch { cd "$gp_cwd" } hmm
  2532.     set plotfile [ getPathName "Choose a file to plot" 1 ] 
  2533.    if { $plotfile != "" } {
  2534.         insertText -w $gp_Console "plot \'$plotfile\' "
  2535.     }
  2536. }
  2537.  
  2538.  
  2539. ################################################################################
  2540. #
  2541. #  Setup menu flags, etc ... assuming gnuplot is off
  2542. #
  2543. #
  2544. #
  2545. proc GP_OffSet {} {
  2546. global GPLTMenu gp_CreatorList
  2547.     
  2548.     enableMenuItem gnuplotOptions "clearHistory" off                 
  2549.     enableMenuItem $GPLTMenu "quit gnuplot" off                 
  2550.     enableMenuItem $GPLTMenu "graph" off                 
  2551.     enableMenuItem $GPLTMenu "history" off                 
  2552.     enableMenuItem $GPLTMenu "saveSettings" off  
  2553.     enableMenuItem gnuplotOptions "setPointSize..." off  
  2554.     enableMenuItem $GPLTMenu "setWorkingFolder..." off
  2555.     enableMenuItem $GPLTMenu "choosePlotFile..."     off
  2556.     
  2557.     if {[llength $gp_CreatorList] == 0} {
  2558.         enableMenuItem  setOutputCreator "Select..." off
  2559.         enableMenuItem  setOutputCreator "Delete..." off
  2560.     }
  2561.     
  2562. }
  2563.  
  2564. ################################################################################
  2565. #
  2566. #  TEMPORARY JUNK
  2567. #
  2568. #
  2569. #
  2570. set gp_cwd "???"
  2571.  
  2572. proc aevt { hmm } { #dummy procedure too fool 68k into semi-working w/eventHandler....
  2573.    if { $hmm == "'GP_A'()" } {
  2574.         GP_Activate
  2575.    } elseif {$hmm=="'GP_C'()" } {
  2576.        GP_Results "gnuplot> "
  2577.       
  2578.    }    
  2579. }
  2580.      
  2581.  
  2582. ################################################################################
  2583. #
  2584. #  Things to do in order to properly setup gnuplot mode menu
  2585. #
  2586. #
  2587. #
  2588. lappend allModeMenus  GPLTMenu
  2589. set modeMenus(GPLT)    { GPLTMenu }
  2590. set gp_modflag 0
  2591. GP_OffSet
  2592.  
  2593.  
  2594. ################################################################################
  2595. #
  2596. #  A simple user message
  2597. #
  2598. #
  2599. #
  2600. proc GP_Readme {} {    
  2601.   set wname "message"
  2602.   new -n $wname
  2603.   GP_uFD
  2604.   
  2605.   catch [ newMode [set winModes([lindex [winNames] 0]) GPLT] ]
  2606.   
  2607.   insertText { 
  2608. #
  2609.    gnuplotMode.tcl Version 1.6
  2610.  
  2611. #   NEWSTUFF:
  2612. #   ---------
  2613.  
  2614.    This version has a simple floating menu with a button that lists
  2615.    all texts files in the scripts directory of gnuplot home dir.
  2616.    To run a script, just select it from the scripts menu.  To edit
  2617.    a script in Alpha, select a script menu item while holding down a 
  2618.    modifier key (shift, option, command, OR ctrl).
  2619.  
  2620.  
  2621.    Modify some of the GPLT mode behaviour by choosing the menu item:
  2622.  
  2623. #     Config:Current Mode:Flags...
  2624.  
  2625.  
  2626.    Edit keyword coloring by choosing the menu item:
  2627.  
  2628. #     Config:Current Mode:Edit Prefs
  2629.  
  2630.  
  2631.  
  2632. #   GNUPLOT works best with Alpha 6.2 or later
  2633. #   ------------------------------------------
  2634.  
  2635. #   FOR 68K USERS ONLY
  2636. #   ------------------
  2637.  
  2638.    Recent versions of Alpha (<6.2) do not have a fully working      
  2639.    eventHandler procedure.  Thus, you might notice strange behavior  
  2640.    in the gnuplot console.  The symptoms of the problem are that     
  2641.    a new gnuplot prompt may not be displayed on the screen after     
  2642.    pressing a carriage return;  or, longer messages may be garbled. 
  2643.   
  2644.    Try the following: 
  2645.  
  2646. #      set term post
  2647. #      plot sin(x)
  2648.  
  2649.    If you see pages of postscript output, then the eventHandler is 
  2650.    apparently working.
  2651.  
  2652.    If not, then to make effective use of the console you may need   
  2653.    to open the Config:Current Mode:flags... menu in Alpha (when in  
  2654.    
  2655.    Keep an eye out at ftp://www.cs.umd.edu/pub/faculty/keleher/Alpha
  2656.    for the latest versions of Alpha which will eventually solve      
  2657.    this problem.
  2658.  
  2659. #   jeff@wave.nrl.navy.mil 
  2660. }    
  2661.    
  2662.   setWinInfo -w $wname dirty 0
  2663.      
  2664. }
  2665.  
  2666.  
  2667. #############################################################################
  2668. #
  2669. #  change behavior of editCurrentModePrefs
  2670. #
  2671. # I need to "source $HOME:tcl:systemcode:prefs.tcl" before renaming
  2672. # the procedure "editCurrentPrefs" so I call "buildRecentFiles"
  2673.  
  2674. buildRecentFiles
  2675.  
  2676. #
  2677. #
  2678.  
  2679. if    {![string length [info commands GP_editCurrentModePrefs] ]} {    
  2680.     global mode GPLTmodeVars gp_modflag PREFS gp_HistGEOM gp_GEOM
  2681.     global GPLTMenu  gp_Graph gp_Console  gp_Hist 
  2682.     global PREFS HOME 
  2683.         
  2684.      rename editCurrentModePrefs GP_editCurrentModePrefs
  2685.      
  2686.      proc editCurrentModePrefs { } {
  2687.        global mode GPLTmodeVars gp_modflag PREFS gp_HistGEOM gp_GEOM
  2688.        global GPLTMenu  gp_Graph gp_Console  gp_Hist 
  2689.        global PREFS HOME 
  2690.  
  2691.        set ans [GP_editCurrentModePrefs]
  2692.        set wins  [winNames]
  2693.        set jjwinThere [lsearch $wins "GPLTPrefs.tcl"]
  2694.        set searchString1 {[\n\r]###BGK[\n\r](.*)[\n\r]###EGK[\n\r]}
  2695.       
  2696.        if { $jjwinThere >= 0} {
  2697.            set ss [searchInFile "$PREFS:GPLTPrefs.tcl"  "$searchString1" ]
  2698.            if { $ss == "" } {
  2699.                    goto [maxPos]
  2700.                if {$ss == ""} {
  2701.                    set ss [searchInFile "$HOME:tcl:usercode:gnuplotMode.tcl" \
  2702.                      "$searchString1" ]
  2703.                 }
  2704.                if {$ss == ""} {
  2705.                    set ss [searchInFile "$HOME:tcl:systemcode:gnuplotMode.tcl" \
  2706.                      "$searchString1" ]
  2707.                 }
  2708.                if {$ss == ""} {                                                   
  2709.                    set ss [searchInFile "$PREFS:gnuplotMode.tcl" "$searchString1" ]
  2710.                 } 
  2711.                if {$ss == ""} {                                                   
  2712.                    set ss [searchInFile "$HOME:tcl:Modes:gnuplotMode.tcl" \
  2713.                      "$searchString1" ]
  2714.                 } 
  2715.                if {$ss == ""} {                                                   
  2716.                    alertnote "Sorry, you'll have to edit gnuplotMode.tcl on your own."
  2717.                 } else {
  2718.                   insertText  -w "GPLTPrefs.tcl" "\n\n$ss\n\n"
  2719.                   goto 1
  2720.                }
  2721.            }
  2722.       }
  2723.       return $ans
  2724.      }
  2725.  }
  2726.  
  2727.  
  2728. #############################################################################
  2729. #
  2730. #  Use hyperlinks in the comments at the beginning of this file to 
  2731. #  auto-install this mode.
  2732. #
  2733.  
  2734. proc GP_INSTALLER1.6 {}  {
  2735. global HOME PREFS startingUp
  2736.  
  2737.  set fname [lindex [winNames -f] 0]
  2738.  catch [GP_Readme]
  2739.  if { [string match {*gnuplotMode.tcl} $fname ] } {
  2740.      edit   "$PREFS:prefs.tcl"
  2741.      
  2742.     set searchString {gnuplot}
  2743.     
  2744.     set pos [search -n $searchString 1]
  2745.     while { $pos != "" } {
  2746.        commentLine    
  2747.        set pos [search -n $searchString [lindex $pos 1]]
  2748.     }
  2749.     
  2750.     set gp_ver "1.6"
  2751.  
  2752.     # Rename old versions of gnuplot.tcl and gnuplotMode.tcl
  2753.     catch {removeFile "$PREFS:gnuplotMode.tcl-pre-$gp_ver" } ans
  2754.     catch {moveFile "$PREFS:gnuplotMode.tcl" \
  2755.                     "$PREFS:gnuplotMode.tcl-pre-$gp_ver" } ans
  2756.     catch {removeFile "$PREFS:gnuplot.tcl-pre-$gp_ver" } ans
  2757.     catch {moveFile "$PREFS:gnuplot.tcl" \
  2758.                     "$PREFS:gnuplot.tcl-pre-$gp_ver" } ans
  2759.  
  2760.     catch {removeFile "$HOME:gnuplotMode.tcl-pre-$gp_ver" } ans
  2761.     catch {moveFile "$HOME:gnuplotMode.tcl" \
  2762.                     "$HOME:gnuplotMode.tcl-pre-$gp_ver" } ans
  2763.     catch {removeFile "$HOME:gnuplot.tcl-pre-$gp_ver" } ans
  2764.     catch {moveFile "$HOME:gnuplot.tcl" \
  2765.                     "$HOME:gnuplot.tcl-pre-$gp_ver" } ans
  2766.  
  2767.     catch {removeFile "$HOME:tcl:usercode:gnuplotMode.tcl-pre-$gp_ver" } ans
  2768.     catch {moveFile "$HOME:tcl:usercode:gnuplotMode.tcl" \
  2769.                     "$HOME:tcl:usercode:gnuplotMode.tcl-pre-$gp_ver" } ans
  2770.     catch {removeFile "$HOME:tcl:usercode:gnuplot.tcl-pre-$gp_ver" } ans
  2771.     catch {moveFile "$HOME:tcl:usercode:gnuplot.tcl" \
  2772.                     "$HOME:tcl:usercode:gnuplot.tcl-pre-$gp_ver" } ans
  2773.  
  2774.     catch {removeFile "$HOME:tcl:systemcode:gnuplotMode.tcl-pre-$gp_ver" } ans
  2775.     catch {moveFile "$HOME:tcl:systemcode:gnuplotMode.tcl" \
  2776.                     "$HOME:tcl:systemcode:gnuplotMode.tcl-pre-$gp_ver" } ans
  2777.     catch {removeFile "$HOME:tcl:systemcode:gnuplot.tcl-pre-$gp_ver" } ans
  2778.     catch {moveFile "$HOME:tcl:systemcode:gnuplot.tcl" \
  2779.                     "$HOME:tcl:systemcode:gnuplot.tcl-pre-$gp_ver" } ans
  2780.  
  2781.     catch {removeFile "$HOME:tcl:modes:gnuplotMode.tcl-pre-$gp_ver" } ans
  2782.     catch {moveFile "$HOME:tcl:modes:gnuplotMode.tcl" \
  2783.                     "$HOME:tcl:modes:gnuplotMode.tcl-pre-$gp_ver" } ans
  2784.     catch {removeFile "$HOME:tcl:modes:gnuplot.tcl-pre-$gp_ver" } ans
  2785.     catch {moveFile "$HOME:tcl:modes:gnuplot.tcl" \
  2786.                     "$HOME:tcl:modes:gnuplot.tcl-pre-$gp_ver" } ans
  2787.  
  2788.     
  2789.     if { [info exists  startingUp] } {
  2790.         catch {cp "$fname" "$HOME:tcl:modes:gnuplotMode.tcl" } ans
  2791.         alertnote "Save your prefs.tcl file, quit and restart Alpha, and gnuplotMode.tcl is ready to go!"
  2792.     } else {
  2793.         catch {cp "$fname" "$PREFS:gnuplotMode.tcl" } ans
  2794.         goto [maxPos]
  2795.         insertText "\r\r#source gnuplotMode.tcl\rsource \$HOME:tcl:systemcode::gnuplotMode.tcl\r"
  2796.         alertnote {Remove any extra SOURCE GNUPLOT.TCL  or 
  2797.                   SOURCE GNUPLOT.TCL lines from your HOME.TCL file.  
  2798.                   Save your prefs.tcl file, and restart Alpha}
  2799.         
  2800.         
  2801.     }
  2802.               
  2803.  } else {
  2804.      alertnote "Sorry, gnuplotMode did ***NOT*** install!"
  2805.  }
  2806. }
  2807.  
  2808.  
  2809.  
  2810. #
  2811.  
  2812. set gp_fm_first 1
  2813.  
  2814. if { [info commands GP_ChangeMode] == "" } {
  2815.     rename changeMode GP_ChangeMode
  2816.  
  2817. # This is called for all open, saveas, and activate events:
  2818. proc changeMode { newmode } {    
  2819.     global gp_fm_first
  2820.     if { ($newmode == "GPLT") && ($gp_fm_first) } {
  2821.         set gp_fm_first 0
  2822.         GP_GraphButton
  2823.     }
  2824.     GP_ChangeMode $newmode
  2825. }
  2826. }
  2827.  
  2828.  
  2829.  
  2830. #############################################################################
  2831. #
  2832. #  Called from menu to handle dialogs in the server app
  2833. #  
  2834. #
  2835. proc GP_Dialog { ans } {
  2836. global  gp_FSIG
  2837.     switchTo  \'$gp_FSIG\'
  2838.     AEBuild -t 36000 -r 'GPSE' GPLT "DIAG" ---- $ans
  2839.     switchTo 'ALFA'
  2840. }
  2841.