diff options
| author | Carsten Dominik <dominik@science.uva.nl> | 2000-12-11 12:45:42 +0000 |
|---|---|---|
| committer | Carsten Dominik <dominik@science.uva.nl> | 2000-12-11 12:45:42 +0000 |
| commit | 05a1abfc4a4f3333d91834dd3513a04031b88274 (patch) | |
| tree | 59af5e7f50b7b2db8ce3319bab5f3db1899fe1e6 | |
| parent | aea44e56dc3f2be2abe2aee46963caf57d872936 (diff) | |
| download | emacs-05a1abfc4a4f3333d91834dd3513a04031b88274.tar.gz | |
Updated IDLWAVE to version 4.7
| -rw-r--r-- | lisp/progmodes/idlw-rinfo.el | 548 | ||||
| -rw-r--r-- | lisp/progmodes/idlw-shell.el | 271 | ||||
| -rw-r--r-- | lisp/progmodes/idlw-toolbar.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/idlwave.el | 971 | ||||
| -rw-r--r-- | man/idlwave.texi | 80 |
5 files changed, 1384 insertions, 488 deletions
diff --git a/lisp/progmodes/idlw-rinfo.el b/lisp/progmodes/idlw-rinfo.el index 0bbadc21fad..c0304e38a32 100644 --- a/lisp/progmodes/idlw-rinfo.el +++ b/lisp/progmodes/idlw-rinfo.el @@ -3,7 +3,7 @@ ;; Copyright (c) 1999, 2000 Free Software Foundation ;; Author: Carsten Dominik <dominik@astro.uva.nl> -;; Version: 4.2 +;; Version: 4.7 ;; Keywords: languages ;; This file is part of GNU Emacs. @@ -25,21 +25,21 @@ ;;; Commentary: -;; The constant which contains information about IDLs builtin functions -;; and procedures. This information is extracted automatically from -;; the IDL documentation. +;; The constants which contain information about IDLs builtin +;; functions, procedures, system variables and class tags. This +;; information is extracted automatically from the IDL documentation +;; and by talking to IDL. ;; -;; Created by get_rinfo on Tue Jun 20 11:30:48 2000 -;; IDL version: 5.3 -;; Number of files scanned: 6 -;; 903 syntax entries in file refguide.txt -;; 326 syntax entries in file sdf.txt +;; Created by get_rinfo54 on Fri Dec 8 14:06:41 2000 +;; IDL version: 5.4 +;; Number of files scanned: 5 +;; 943 syntax entries in file refguide.txt +;; 327 syntax entries in file sdf.txt ;; 0 syntax entries in file datamine.txt ;; 6 syntax entries in file edg.txt -;; 0 syntax entries in file insight.txt -;; 43 syntax entries in file obsolete.txt -;; Number of routines found: 1251 -;; Number of keywords found: 5287 +;; 45 syntax entries in file obsolete.txt +;; Number of routines found: 1287 +;; Number of keywords found: 5724 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -49,7 +49,7 @@ '( ("ANNOTATE" pro nil (system) "%s" (("COLOR_INDICES") ("DRAWABLE") ("LOAD_FILE") ("TEK_COLORS") ("WINDOW"))) ("ARROW" pro nil (system) "%s, X0, Y0, X1, Y1" (("COLOR") ("DATA") ("HSIZE") ("HTHICK") ("NORMALIZED") ("SOLID") ("THICK"))) - ("AXIS" pro nil (system) "%s [, X [, Y [, Z]]]" (("CHARSIZE") ("CHARTHICK") ("COLOR") ("DATA") ("DEVICE") ("FONT") ("NODATA") ("NOERASE") ("NORMAL") ("SAVE") ("SUBTITLE") ("T3D") ("TICKLEN") ("XAXIS") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICK_GET") ("XTICKFORMAT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKV") ("XTITLE") ("YAXIS") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YNOZERO") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICK_GET") ("YTICKFORMAT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKV") ("YTITLE") ("ZAXIS") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZLOG") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICK_GET") ("ZTICKFORMAT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKV") ("ZTITLE") ("ZVALUE"))) + ("AXIS" pro nil (system) "%s [, X [, Y [, Z]]]" (("CHARSIZE") ("CHARTHICK") ("COLOR") ("DATA") ("DEVICE") ("FONT") ("NODATA") ("NOERASE") ("NORMAL") ("SAVE") ("SUBTITLE") ("T3D") ("TICKLEN") ("XAXIS") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICK_GET") ("XTICKFORMAT") ("XTICKINTERVAL") ("XTICKLAYOUT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKUNITS") ("XTICKV") ("XTITLE") ("YAXIS") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YNOZERO") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICK_GET") ("YTICKFORMAT") ("YTICKINTERVAL") ("YTICKLAYOUT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKUNITS") ("YTICKV") ("YTITLE") ("ZAXIS") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZLOG") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICK_GET") ("ZTICKFORMAT") ("ZTICKINTERVAL") ("ZTICKLAYOUT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKUNITS") ("ZTICKV") ("ZTITLE") ("ZVALUE"))) ("BAR_PLOT" pro nil (system) "%s, Values" (("BACKGROUND") ("BARNAMES") ("BAROFFSET") ("BARSPACE") ("BARWIDTH") ("BASELINES") ("BASERANGE") ("COLORS") ("OUTLINE") ("OVERPLOT") ("ROTATE") ("TITLE") ("XTITLE") ("YTITLE"))) ("BLAS_AXPY" pro nil (system) "%s, Y, A, X [, D1, Loc1 [, D2, Range]]" nil) ("BOX_CURSOR" pro nil (system) "%s, [ X0, Y0, NX, NY]" (("FIXED_SIZE") ("INIT") ("MESSAGE"))) @@ -80,11 +80,11 @@ ("CDF_VARRENAME" pro nil (system) "%s, Id, OldVariable, NewName" (("ZVARIABLE"))) ("CHOLDC" pro nil (system) "%s, A, P" (("DOUBLE"))) ("CIR_3PNT" pro nil (system) "%s, X, Y, R, X0, Y0" nil) - ("CLOSE" pro nil (system) "%s[, Unit1, ..., Unitn]" (("ALL") ("FILE"))) + ("CLOSE" pro nil (system) "%s[, Unit1, ..., Unitn]" (("ALL") ("EXIT_STATUS") ("FILE") ("FORCE"))) ("COLOR_CONVERT" pro nil (system) "%s, I0, I1, I2, O0, O1, O2" (("HLS_RGB") ("HSV_RGB") ("RGB_HLS") ("RGB_HSV"))) ("COMMON" pro nil (system) "%s VOLUME_DATA, A" (("A"))) ("CONSTRAINED_MIN" pro nil (system) "%s, X, Xbnd, Gbnd, Nobj, Gcomp, Inform" (("ESPTOP") ("LIMSER") ("MAXIMIZE") ("NSTOP") ("REPORT") ("TITLE"))) - ("CONTOUR" pro nil (system) "%s, Z [, X, Y]" (("BACKGROUND") ("C_ANNOTATION") ("C_CHARSIZE") ("C_CHARTHICK") ("C_COLORS") ("C_LABELS") ("C_LINESTYLE") ("C_ORIENTATION") ("C_SPACING") ("C_THICK") ("CELL_FILL") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("CLOSED") ("COLOR") ("DATA") ("DEVICE") ("DOWNHILL") ("FILL") ("FOLLOW") ("FONT") ("IRREGULAR") ("LEVELS") ("MAX_VALUE") ("MIN_VALUE") ("NLEVELS") ("NOCLIP") ("NODATA") ("NOERASE") ("NORMAL") ("OVERPLOT") ("PATH_DATA_COORDS") ("PATH_FILENAME") ("PATH_INFO") ("PATH_XY") ("POSITION") ("SUBTITLE") ("T3D") ("THICK") ("TICKLEN") ("TITLE") ("TRIANGULATION") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICK_GET") ("XTICKFORMAT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKV") ("XTITLE") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICK_GET") ("YTICKFORMAT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKV") ("YTITLE") ("ZAXIS") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZLOG") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICK_GET") ("ZTICKFORMAT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKV") ("ZTITLE") ("ZVALUE"))) + ("CONTOUR" pro nil (system) "%s, Z [, X, Y]" (("BACKGROUND") ("C_ANNOTATION") ("C_CHARSIZE") ("C_CHARTHICK") ("C_COLORS") ("C_LABELS") ("C_LINESTYLE") ("C_ORIENTATION") ("C_SPACING") ("C_THICK") ("CELL_FILL") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("CLOSED") ("COLOR") ("DATA") ("DEVICE") ("DOWNHILL") ("FILL") ("FOLLOW") ("FONT") ("IRREGULAR") ("LEVELS") ("MAX_VALUE") ("MIN_VALUE") ("NLEVELS") ("NOCLIP") ("NODATA") ("NOERASE") ("NORMAL") ("NSUM") ("OVERPLOT") ("PATH_DATA_COORDS") ("PATH_DOUBLE") ("PATH_FILENAME") ("PATH_INFO") ("PATH_XY") ("POLAR") ("POSITION") ("SUBTITLE") ("T3D") ("THICK") ("TICKLEN") ("TITLE") ("TRIANGULATION") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICK_GET") ("XTICKFORMAT") ("XTICKINTERVAL") ("XTICKLAYOUT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKUNITS") ("XTICKV") ("XTITLE") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YNOZERO") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICK_GET") ("YTICKFORMAT") ("YTICKINTERVAL") ("YTICKLAYOUT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKUNITS") ("YTICKV") ("YTITLE") ("ZAXIS") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZLOG") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICK_GET") ("ZTICKFORMAT") ("ZTICKINTERVAL") ("ZTICKLAYOUT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKUNITS") ("ZTICKV") ("ZTITLE") ("ZVALUE"))) ("CREATE_VIEW" pro nil (system) "%s" (("AX") ("AY") ("AZ") ("PERSP") ("RADIANS") ("WINX") ("WINY") ("XMAX") ("XMIN") ("YMAX") ("YMIN") ("ZFAC") ("ZMAX") ("ZMIN") ("ZOOM"))) ("CURSOR" pro nil (system) "%s, X, Y [, Wait]" (("CHANGE") ("DATA") ("DEVICE") ("DOWN") ("NORMAL") ("NOWAIT") ("UP") ("WAIT"))) ("CW_ANIMATE_GETP" pro nil (system) "%s, Widget, Pixmaps" (("KILL_ANYWAY"))) @@ -99,25 +99,28 @@ ("DELETE_SYMBOL" pro nil (system) "%s, Name" (("TYPE"))) ("DELLOG" pro nil (system) "%s, Lognam" (("TABLE"))) ("DELVAR" pro nil (system) "%s, V1, ..., Vn" nil) - ("DEVICE" pro nil (system) "%s" (("AVANTGARDE") ("AVERAGE_LINES") ("BINARY") ("BITS_PER_PIXEL") ("BKMAN") ("BOLD") ("BOOK") ("BYPASS_TRANSLATION") ("CLOSE") ("CLOSE_DOCUMENT") ("CLOSE_FILE") ("COLOR") ("COLORS") ("COPY") ("COURIER") ("CURSOR_CROSSHAIR") ("CURSOR_IMAGE") ("CURSOR_MASK") ("CURSOR_ORIGINAL") ("CURSOR_STANDARD") ("CURSOR_XY") ("DEMI") ("DEPTH") ("DIRECT_COLOR") ("EJECT") ("ENCAPSULATED") ("ENCODING") ("FILENAME") ("FLOYD") ("FONT_INDEX") ("FONT_SIZE") ("GET_CURRENT_FONT") ("GET_DECOMPOSED") ("GET_FONTNAMES") ("GET_FONTNUM") ("GET_GRAPHICS_FUNCTION") ("GET_SCREEN_SIZE") ("GET_VISUAL_DEPTH") ("GET_VISUAL_NAME") ("GET_WINDOW_POSITION") ("GET_WRITE_MASK") ("GIN_CHARS") ("GLYPH_CACHE") ("HELVETICA") ("INCHES") ("INDEX_COLOR") ("ISOLATIN1") ("ITALIC") ("LANDSCAPE") ("LIGHT") ("MEDIUM") ("NARROW") ("NCAR") ("OBLIQUE") ("OPTIMIZE") ("ORDERED") ("OUTPUT") ("PALATINO") ("PIXELS") ("PLOT_TO") ("PLOTTER_ON_OFF") ("POLYFILL") ("PORTRAIT") ("PREVIEW") ("PRINT_FILE") ("PSEUDO_COLOR") ("RESET_STRING") ("RESOLUTION") ("RETAIN") ("SCALE_FACTOR") ("SCHOOLBOOK") ("SET_CHARACTER_SIZE") ("SET_COLORMAP") ("SET_COLORS") ("SET_FONT") ("SET_GRAPHICS_FUNCTION") ("SET_RESOLUTION") ("SET_STRING") ("SET_TRANSLATION") ("SET_WRITE_MASK") ("STATIC_COLOR") ("STATIC_GRAY") ("SYMBOL") ("TEK4014") ("TEK4100") ("TEXT") ("THRESHOLD") ("TIMES") ("TRANSLATION") ("TRUE_COLOR") ("TTY") ("VT240") ("VT241") ("VT340") ("VT341") ("WINDOW_STATE") ("XOFFSET") ("XON_XOFF") ("XSIZE") ("YOFFSET") ("YSIZE") ("Z_BUFFERING") ("ZAPFCHANCERY") ("ZAPFDINGBATS"))) + ("DEVICE" pro nil (system) "%s" (("AVANTGARDE") ("AVERAGE_LINES") ("BINARY") ("BITS_PER_PIXEL") ("BKMAN") ("BOLD") ("BOOK") ("BYPASS_TRANSLATION") ("CLOSE") ("CLOSE_DOCUMENT") ("CLOSE_FILE") ("COLOR") ("COLORS") ("COPY") ("COURIER") ("CURSOR_CROSSHAIR") ("CURSOR_IMAGE") ("CURSOR_MASK") ("CURSOR_ORIGINAL") ("CURSOR_STANDARD") ("CURSOR_XY") ("DECOMPOSED") ("DEMI") ("DEPTH") ("DIRECT_COLOR") ("EJECT") ("ENCAPSULATED") ("ENCODING") ("FILENAME") ("FLOYD") ("FONT_INDEX") ("FONT_SIZE") ("GET_CURRENT_FONT") ("GET_DECOMPOSED") ("GET_FONTNAMES") ("GET_FONTNUM") ("GET_GRAPHICS_FUNCTION") ("GET_PAGESIZE") ("GET_SCREEN_SIZE") ("GET_VISUAL_DEPTH") ("GET_VISUAL_NAME") ("GET_WINDOW_POSITION") ("GET_WRITE_MASK") ("GIN_CHARS") ("GLYPH_CACHE") ("HELVETICA") ("INCHES") ("INDEX_COLOR") ("ISOLATIN1") ("ITALIC") ("LANDSCAPE") ("LIGHT") ("MEDIUM") ("NARROW") ("NCAR") ("OBLIQUE") ("OPTIMIZE") ("ORDERED") ("OUTPUT") ("PALATINO") ("PIXELS") ("PLOT_TO") ("PLOTTER_ON_OFF") ("POLYFILL") ("PORTRAIT") ("PRE_DEPTH") ("PRE_XSIZE") ("PRE_YSIZE") ("PREVIEW") ("PRINT_FILE") ("PSEUDO_COLOR") ("RESET_STRING") ("RESOLUTION") ("RETAIN") ("SCALE_FACTOR") ("SCHOOLBOOK") ("SET_CHARACTER_SIZE") ("SET_COLORMAP") ("SET_COLORS") ("SET_FONT") ("SET_GRAPHICS_FUNCTION") ("SET_RESOLUTION") ("SET_STRING") ("SET_TRANSLATION") ("SET_WRITE_MASK") ("STATIC_COLOR") ("STATIC_GRAY") ("SYMBOL") ("TEK4014") ("TEK4100") ("TEXT") ("THRESHOLD") ("TIMES") ("TRANSLATION") ("TRUE_COLOR") ("TT_FONT") ("TTY") ("VT240") ("VT241") ("VT340") ("VT341") ("WINDOW_STATE") ("XOFFSET") ("XON_XOFF") ("XSIZE") ("YOFFSET") ("YSIZE") ("Z_BUFFERING") ("ZAPFCHANCERY") ("ZAPFDINGBATS"))) ("DFPMIN" pro nil (system) "%s, X, Gtol, Fmin, Func, Dfunc" (("DOUBLE") ("EPS") ("ITER") ("ITMAX") ("STEPMAX") ("TOLX"))) ("DISSOLVE" pro nil (system) "%s, Image" (("ORDER") ("SIZ") ("WAIT") ("X0") ("Y0"))) ("DLM_LOAD" pro nil (system) "%s, DLMNameStr1 [, DLMNameStr2,..., DLMNameStrn]" nil) + ("DLM_REGISTER" pro nil (system) "%s, DLMDefFilePath1 [, DLMDefFilePath2, ..., DLMDefFilePathn]" nil) ("DO_APPLE_SCRIPT" pro nil (system) "%s, Script" (("AG_STRING") ("RESULT"))) ("DOC_LIBRARY" pro nil (system) "%s [, Name]" (("DIRECTORY") ("FILE") ("MULTI") ("OUTPUTS") ("PATH") ("PRINT"))) ("DRAW_ROI" pro nil (system) "%s, oROI" (("CLIP") ("COLOR") ("DATA") ("DEVICE") ("LINE_FILL") ("LINESTYLE") ("NOCLIP") ("NORMAL") ("ORIENTATION") ("PSYM") ("SPACING") ("SYMSIZE") ("T3D") ("THICK"))) - ("EFONT" pro nil (system) "%s, Init_Font" (("BLOCK") ("GROUP"))) + ("EFONT" pro nil (system) "%s [, Init_Font]" (("BLOCK") ("GROUP"))) ("EMPTY" pro nil (system) "%s" nil) ("ENABLE_SYSRTN" pro nil (system) "%s [, Routines]" (("DISABLE") ("EXCLUSIVE") ("FUNCTIONS"))) ("ERASE" pro nil (system) "%s [, Background_Color]" (("CHANNEL") ("COLOR"))) ("ERRPLOT" pro nil (system) "%s, [ X, ] Low, High" (("WIDTH"))) ("EXIT" pro nil (system) "%s" (("NO_CONFIRM") ("STATUS"))) ("EXPAND" pro nil (system) "%s, A, Nx, Ny, Result" (("FILLVAL") ("MAXVAL"))) + ("FILE_CHMOD" pro nil (system) "%s, File [, Mode]" (("A_EXECUTE") ("A_READ") ("A_WRITE") ("G_EXECTUE") ("G_READ") ("G_WRITE") ("O_EXECTUE") ("O_READ") ("O_WRITE") ("SETGID") ("SETUID") ("STICKY_BIT") ("U_EXECTUE") ("U_READ") ("U_WRITE"))) + ("FILE_DELETE" pro nil (system) "%s, File1 [,... FileN]" (("QUIET"))) + ("FILE_MKDIR" pro nil (system) "%s, File1 [,... FileN]" nil) ("FLICK" pro nil (system) "%s, A, B [, Rate]" nil) ("FLOW3" pro nil (system) "%s, Vx, Vy, Vz" (("ARROWSIZE") ("BLOB") ("LEN") ("NSTEPS") ("NVECS") ("SX") ("SY") ("SZ"))) ("FLUSH" pro nil (system) "%s, Unit1, ..., Unitn" nil) - ("FORWARD_FUNCTION" pro nil (system) "%s Name1, Name2, ..., Namen" nil) - ("FREE_LUN" pro nil (system) "%s, Unit1, ..., Unitn" nil) + ("FREE_LUN" pro nil (system) "%s [, Unit1, ..., Unitn]" (("EXIT_STATUS") ("FORCE"))) ("FUNCT" pro nil (system) "%s, X, A, F [, Pder]" nil) ("GAMMA_CT" pro nil (system) "%s, Gamma" (("CURRENT") ("INTENSITY"))) ("GET_LUN" pro nil (system) "%s, Unit" nil) @@ -195,7 +198,7 @@ ("HDF_VD_WRITE" pro nil (system) "%s, VData, Fields, Data" (("FULL_INTERLACE") ("NO_INTERLACE") ("NRECORDS"))) ("HDF_VG_ADDTR" pro nil (system) "%s, VGroup, Tag, Ref" nil) ("HDF_VG_DETACH" pro nil (system) "%s, VGroup" nil) - ("HDF_VG_GETINFO" pro nil (system) "%s, VGroup" (("CLASS") ("NAME") ("NENTRIES"))) + ("HDF_VG_GETINFO" pro nil (system) "%s, VGroup" (("CLASS") ("NAME") ("NENTRIES") ("REF") ("TAG"))) ("HDF_VG_GETTR" pro nil (system) "%s, VGroup, Index, Tags, Refs" nil) ("HDF_VG_GETTRS" pro nil (system) "%s, VGroup, Tags, Refs" (("MAXSIZE"))) ("HDF_VG_INSERT" pro nil (system) "%s, VGroup, VData(or Vgroup)" (("POSITION"))) @@ -203,17 +206,16 @@ ("HEAP_GC" pro nil (system) "%s" (("OBJ") ("PTR") ("VERBOSE"))) ("HELP" pro nil (system) "%s, Expression1, ..., Expressionn" (("ALL_KEYS") ("BREAKPOINTS") ("BRIEF") ("CALLS") ("DEVICE") ("DLM") ("FILES") ("FULL") ("FUNCTIONS") ("HEAP_VARIABLES") ("KEYS") ("LAST_MESSAGE") ("MEMORY") ("MESSAGES") ("NAMES") ("OBJECTS") ("OUTPUT") ("PROCEDURES") ("RECALL_COMMANDS") ("ROUTINES") ("SOURCE_FILES") ("STRUCTURES") ("SYSTEM_VARIABLES") ("TRACEBACK"))) ("HLS" pro nil (system) "%s, Litlo, Lithi, Satlo, Sathi, Hue, Loops [, Colr]" nil) + ("HOUGH" pro nil (system) "%s Transform: Result = HOUGH( Array)" (("BACKPROJECT") ("DOUBLE") ("DRHO") ("DX") ("DY") ("GRAY") ("NRHO") ("NTHETA") ("NX") ("NY") ("RHO") ("RMIN") ("THETA") ("XMIN") ("YMIN"))) ("HSV" pro nil (system) "%s, Vlo, Vhi, Satlo, Sathi, Hue, Loops [, Colr]" nil) + ("IDL_SYSRTN_GENERIC" pro nil (system) "%s IDL_SysRtnGetRealPtr(int is_function, char *name)" nil) ("IMAGE_CONT" pro nil (system) "%s, A" (("ASPECT") ("INTERP") ("WINDOW_SCALE"))) ("IMAGE_STATISTICS" pro nil (system) "%s, Data" (("COUNT") ("DATA_SUM") ("LABELED") ("LUT") ("MASK") ("MAXIMUM") ("MEAN") ("MINIMUM") ("STDDEV") ("SUM_OF_SQUARES") ("VARIANCE") ("VECTOR") ("WEIGHT_SUM") ("WEIGHTED"))) - ("INSIGHT" pro nil (system) "%s [, Structure]" (("IMPORT_FILE") ("INDEXED_COLOR") ("PLUGINS_PATH") ("PREFERENCE_FILE") ("PROJECT_FILE"))) - ("INSPUT" pro nil (system) "%s [, Structure]" (("CIDS") ("COUNT") ("CT_NAME") ("CT_NEW_NAME") ("CT_REPLACE") ("DESCRIPTION") ("GROUP") ("IMAGE") ("NAME") ("NEW_NAME") ("REPLACE"))) - ("INSVIS" pro nil (system) "%s, Name1 [, Name2, Name3]" (("CIDS") ("DATA_NAME") ("END") ("GROUP") ("MODE") ("TAIL") ("TYPE") ("XRANGE") ("YRANGE"))) - ("ISOCONTOUR" pro nil (system) "%s, Values, Outconn, Outverts" (("AUXDATA_IN") ("AUXDATA_OUT") ("C_VALUE") ("FILL") ("GEOMX") ("GEOMY") ("GEOMZ") ("LEVEL_VALUES") ("N_LEVELS") ("OUTCONN_INDICES") ("POLYGONS"))) + ("ISOCONTOUR" pro nil (system) "%s, Values, Outverts, Outconn" (("AUXDATA_IN") ("AUXDATA_OUT") ("C_VALUE") ("DOUBLE") ("FILL") ("GEOMX") ("GEOMY") ("GEOMZ") ("LEVEL_VALUES") ("N_LEVELS") ("OUTCONN_INDICES") ("POLYGONS"))) ("ISOSURFACE" pro nil (system) "%s, Data, Value, Outverts, Outconn" (("AUXDATA_IN") ("AUXDATA_OUT") ("GEOM_XYZ") ("TETRAHEDRA"))) ("JOURNAL" pro nil (system) "%s [, Arg]" nil) ("LINKIMAGE" pro nil (system) "%s, Name, Image [, Type [, Entry]]" (("DEFAULT") ("DEVICE") ("FUNCT") ("KEYWORDS") ("MAX_ARGS") ("MIN_ARGS"))) - ("LIVE_CONTOUR" pro nil (system) "%s [, Z1,..., Z25]" (("BUFFER") ("DIMENSIONS") ("DRAW_DIMENSIONS") ("ERROR") ("INDEXED_COLOR") ("INSTANCING") ("LOCATION") ("MANAGE_STYLE") ("NAME") ("NO_DRAW") ("NO_SELECTION") ("NO_STATUS") ("NO_TOOLBAR") ("PARENT_BASE") ("PREFERENCE_FILE") ("REFERENCE_OUT") ("RENDERER") ("REPLACE") ("STYLE") ("TEMPLATE_FILE") ("TITLE") ("TLB_LOCATION") ("WINDOW_IN") ("X") ("XINDEPENDENT") ("XRANGE") ("Y") ("YINDEPENDENT") ("YRANGE"))) + ("LIVE_CONTOUR" pro nil (system) "%s [, Z1,..., Z25]" (("BUFFER") ("DIMENSIONS") ("DOUBLE") ("DRAW_DIMENSIONS") ("ERROR") ("INDEXED_COLOR") ("INSTANCING") ("LOCATION") ("MANAGE_STYLE") ("NAME") ("NO_DRAW") ("NO_SELECTION") ("NO_STATUS") ("NO_TOOLBAR") ("PARENT_BASE") ("PREFERENCE_FILE") ("REFERENCE_OUT") ("RENDERER") ("REPLACE") ("STYLE") ("TEMPLATE_FILE") ("TITLE") ("TLB_LOCATION") ("WINDOW_IN") ("X") ("XINDEPENDENT") ("XRANGE") ("Y") ("YINDEPENDENT") ("YRANGE"))) ("LIVE_CONTROL" pro nil (system) "%s, [Name]" (("DIALOG") ("ERROR") ("NO_DRAW") ("PROPERTIES") ("SELECT") ("UPDATE_DATA") ("WINDOW_IN"))) ("LIVE_DESTROY" pro nil (system) "%s, [Name1,..., Name25]" (("ENVIRONMENT") ("ERROR") ("NO_DRAW") ("PURGE") ("WINDOW_IN"))) ("LIVE_EXPORT" pro nil (system) "%s" (("APPEND") ("COMPRESSION") ("DIALOG") ("DIMENSIONS") ("ERROR") ("FILENAME") ("ORDER") ("PROGRESSIVE") ("QUALITY") ("RESOLUTION") ("TYPE") ("UNITS") ("VISUALIZATION_IN") ("WINDOW_IN"))) @@ -222,18 +224,19 @@ ("LIVE_LINE" pro nil (system) "%s" (("ARROW_ANGLE") ("ARROW_END") ("ARROW_SIZE") ("ARROW_START") ("COLOR") ("DIALOG") ("DIMENSIONS") ("ERROR") ("HIDE") ("LINESTYLE") ("LOCATION") ("NAME") ("NO_DRAW") ("NO_SELECTION") ("REFERENCE_OUT") ("THICK") ("VISUALIZATION_IN") ("WINDOW_IN"))) ("LIVE_LOAD" pro nil (system) "%s" nil) ("LIVE_OPLOT" pro nil (system) "%s, Yvector1 [,... , Yvector25]" (("ERROR") ("INDEPENDENT") ("NAME") ("NEW_AXES") ("NO_DRAW") ("NO_SELECTION") ("REFERENCE_OUT") ("REPLACE") ("SUBTYPE") ("VISUALIZATION_IN") ("WINDOW_IN") ("XAXIS_IN") ("YAXIS_IN"))) - ("LIVE_PLOT" pro nil (system) "%s, Yvector1 [, Yvector2,..., Yvector25]" (("BUFFER") ("DIMENSIONS") ("DRAW_DIMENSIONS") ("ERROR") ("HISTOGRAM") ("INDEPENDENT") ("INDEXED_COLOR") ("INSTANCING") ("LINE") ("LOCATION") ("MANAGE_STYLE") ("NAME") ("NO_DRAW") ("NO_SELECTION") ("NO_STATUS") ("NO_TOOLBAR") ("PARENT_BASE") ("POLAR") ("PREFERENCE_FILE") ("REFERENCE_OUT") ("RENDERER") ("REPLACE") ("SCATTER") ("STYLE") ("TEMPLATE_FILE") ("TITLE") ("TLB_LOCATION") ("WINDOW_IN") ("X") ("XRANGE") ("Y") ("YRANGE"))) + ("LIVE_PLOT" pro nil (system) "%s, Yvector1 [, Yvector2,..., Yvector25]" (("BUFFER") ("DIMENSIONS") ("DOUBLE") ("DRAW_DIMENSIONS") ("ERROR") ("HISTOGRAM") ("INDEPENDENT") ("INDEXED_COLOR") ("INSTANCING") ("LINE") ("LOCATION") ("MANAGE_STYLE") ("NAME") ("NO_DRAW") ("NO_SELECTION") ("NO_STATUS") ("NO_TOOLBAR") ("PARENT_BASE") ("POLAR") ("PREFERENCE_FILE") ("REFERENCE_OUT") ("RENDERER") ("REPLACE") ("SCATTER") ("STYLE") ("TEMPLATE_FILE") ("TITLE") ("TLB_LOCATION") ("WINDOW_IN") ("X") ("XRANGE") ("Y") ("YRANGE"))) ("LIVE_PRINT" pro nil (system) "%s" (("DIALOG") ("ERROR") ("SETUP") ("WINDOW_IN"))) ("LIVE_RECT" pro nil (system) "%s" (("COLOR") ("DIALOG") ("DIMENSIONS") ("ERROR") ("HIDE") ("LINESTYLE") ("LOCATION") ("NAME") ("NO_DRAW") ("NO_SELECTION") ("REFERENCE_OUT") ("THICK") ("VISUALIZATION_IN") ("WINDOW_IN"))) - ("LIVE_SURFACE" pro nil (system) "%s, Data, Data2,..." (("BUFFER") ("DIMENSIONS") ("DRAW_DIMENSIONS") ("ERROR") ("INDEXED_COLOR") ("INSTANCING") ("LOCATION") ("MANAGE_STYLE") ("NAME") ("NO_DRAW") ("NO_SELECTION") ("NO_STATUS") ("NO_TOOLBAR") ("PARENT_BASE") ("PREFERENCE_FILE") ("REFERENCE_OUT") ("RENDERER") ("REPLACE") ("STYLE") ("TEMPLATE_FILE") ("TITLE") ("TLB_LOCATION") ("WINDOW_IN") ("X") ("XINDEPENDENT") ("XRANGE") ("Y") ("YINDEPENDENT") ("YRANGE"))) + ("LIVE_SURFACE" pro nil (system) "%s, Data, Data2,..." (("BUFFER") ("DIMENSIONS") ("DOUBLE") ("DRAW_DIMENSIONS") ("ERROR") ("INDEXED_COLOR") ("INSTANCING") ("LOCATION") ("MANAGE_STYLE") ("NAME") ("NO_DRAW") ("NO_SELECTION") ("NO_STATUS") ("NO_TOOLBAR") ("PARENT_BASE") ("PREFERENCE_FILE") ("REFERENCE_OUT") ("RENDERER") ("REPLACE") ("STYLE") ("TEMPLATE_FILE") ("TITLE") ("TLB_LOCATION") ("WINDOW_IN") ("X") ("XINDEPENDENT") ("XRANGE") ("Y") ("YINDEPENDENT") ("YRANGE"))) ("LIVE_TEXT" pro nil (system) "%s[, Text]" (("ALIGNMENT") ("COLOR") ("DIALOG") ("ENABLE_FORMATTING") ("ERROR") ("FONTNAME") ("FONTSIZE") ("HIDE") ("LOCATION") ("NAME") ("NO_DRAW") ("NO_SELECTION") ("REFERENCE_OUT") ("TEXTANGLE") ("VERTICAL_ALIGNMENT") ("VISUALIZATION_IN") ("WINDOW_IN"))) ("LJLCT" pro nil (system) "%s" nil) ("LOADCT" pro nil (system) "%s [, Table]" (("BOTTOM") ("FILE") ("GET_NAMES") ("NCOLORS") ("SILENT"))) ("LUDC" pro nil (system) "%s, A, Index" (("COLUMN") ("DOUBLE") ("INTERCHANGES"))) - ("MAP_CONTINENTS" pro nil (system) "%s" (("COASTS") ("COLOR") ("COUNTRIES") ("FILL_CONTINENTS") ("HIRES") ("MLINESTYLE") ("MLINETHICK") ("ORIENTATION") ("RIVERS") ("SPACING") ("USA"))) - ("MAP_GRID" pro nil (system) "%s" (("BOX_AXES") ("CHARSIZE") ("CLIP_TEXT") ("COLOR") ("GLINESTYLE") ("GLINETHICK") ("LABEL") ("LATALIGN") ("LATDEL") ("LATLAB") ("LATNAMES") ("LATS") ("LONALIGN") ("LONDEL") ("LONLAB") ("LONNAMES") ("LONS") ("ORIENTATION"))) + ("MAKE_DLL" pro nil (system) "%s, InputFiles [, OutputFile], ExportedRoutineNames" (("CC") ("COMPILE_DIRECTORY") ("DLL_PATH") ("EXPORTED_DATA") ("EXTRA_CFLAGS") ("EXTRA_LFLAGS") ("INPUT_DIRECTORY") ("LD") ("NOCLEANUP") ("OUTPUT_DIRECTORY") ("SHOW_ALL_OUTPUT") ("VAX_FLOAT") ("VERBOSE"))) + ("MAP_CONTINENTS" pro nil (system) "%s" (("COASTS") ("COLOR") ("CONTINENTS") ("COUNTRIES") ("FILL_CONTINENTS") ("HIRES") ("LIMIT") ("MLINESTYLE") ("MLINETHICK") ("ORIENTATION") ("RIVERS") ("SPACING") ("T3D") ("USA") ("ZVALUE"))) + ("MAP_GRID" pro nil (system) "%s" (("BOX_AXES") ("CHARSIZE") ("CLIP_TEXT") ("COLOR") ("FILL_HORIZON") ("GLINESTYLE") ("GLINETHICK") ("HORIZON") ("INCREMENT") ("LABEL") ("LATALIGN") ("LATDEL") ("LATLAB") ("LATNAMES") ("LATS") ("LONALIGN") ("LONDEL") ("LONLAB") ("LONNAMES") ("LONS") ("NO_GRID") ("ORIENTATION") ("T3D") ("ZVALUE"))) ("MAP_PROJ_INFO" pro nil (system) "%s [, iproj]" (("AZIMUTHAL") ("CIRCLE") ("CURRENT") ("CYLINDRICAL") ("LL_LIMITS") ("NAME") ("PROJ_NAMES") ("UV_LIMITS") ("UV_RANGE"))) - ("MAP_SET" pro nil (system) "%s [, P0lat, P0lon, Rot]" (("ADVANCE") ("AITOFF") ("ALBERS") ("AZIMUTHAL") ("CENTRAL_AZIMUTH") ("CHARSIZE") ("CLIP") ("COLOR") ("CON_COLOR") ("CONIC") ("CONTINENTS") ("CYLINDRICAL") ("E_CONTINENTS") ("E_GRID") ("E_HORIZON") ("ELLIPSOID") ("GLINESTYLE") ("GLINETHICK") ("GNOMIC") ("GOODESHOMOLOSINE") ("GRID") ("HAMMER") ("HIRES") ("HORIZON") ("ISOTROPIC") ("LABEL") ("LAMBERT") ("LATALIGN") ("LATDEL") ("LATLAB") ("LIMIT") ("LONDEL") ("LONLAB") ("MERCATOR") ("MILLER") ("MLINESTYLE") ("MLINETHICK") ("MOLLEWIDE") ("NOBORDER") ("NOERASE") ("ORTHOGRAPHIC") ("POSITION") ("ROBINSON") ("SAT_P") ("SATELLITE") ("SCALE") ("SINUSOIDAL") ("STANDARD_PARALLELS") ("STEREOGRAPHIC") ("T3D") ("TITLE") ("TRANSVERSE_MERCATOR") ("USA") ("XMARGIN") ("YMARGIN") ("ZVALUE"))) + ("MAP_SET" pro nil (system) "%s [, P0lat, P0lon, Rot]" (("ADVANCE") ("AITOFF") ("ALBERS") ("AZIMUTHAL") ("CENTRAL_AZIMUTH") ("CHARSIZE") ("CLIP") ("COLOR") ("CON_COLOR") ("CONIC") ("CONTINENTS") ("CYLINDRICAL") ("E_CONTINENTS") ("E_GRID") ("E_HORIZON") ("ELLIPSOID") ("GLINESTYLE") ("GLINETHICK") ("GNOMIC") ("GOODESHOMOLOSINE") ("GRID") ("HAMMER") ("HIRES") ("HORIZON") ("ISOTROPIC") ("LABEL") ("LAMBERT") ("LATALIGN") ("LATDEL") ("LATLAB") ("LIMIT") ("LONDEL") ("LONLAB") ("MERCATOR") ("MILLER_CYLINDRICAL") ("MLINESTYLE") ("MLINETHICK") ("MOLLEWIDE") ("NAME") ("NOBORDER") ("NOERASE") ("ORTHOGRAPHIC") ("POSITION") ("REVERSE") ("ROBINSON") ("SAT_P") ("SATELLITE") ("SCALE") ("SINUSOIDAL") ("STANDARD_PARALLELS") ("STEREOGRAPHIC") ("T3D") ("TITLE") ("TRANSVERSE_MERCATOR") ("USA") ("XMARGIN") ("YMARGIN") ("ZVALUE"))) ("MESH_OBJ" pro nil (system) "%s, Type, Vertex_List, Polygon_List, Array1 [, Array2]" (("DEGREES") ("P1") ("P2") ("P3") ("P4") ("P5"))) ("MESSAGE" pro nil (system) "%s, [Text]" (("CONTINUE") ("INFORMATIONAL") ("IOERROR") ("NONAME") ("NOPREFIX") ("NOPRINT") ("RESET"))) ("MK_HTML_HELP" pro nil (system) "%s, Sources, Filename" (("STRICT") ("TITLE") ("VERBOSE"))) @@ -259,21 +262,21 @@ ("OBJ_DESTROY" pro nil (system) "%s, ObjRef [, Arg1, ..., Argn]" nil) ("ON_ERROR" pro nil (system) "%s, N" nil) ("ON_IOERROR" pro nil (system) "%s, Label" nil) - ("ONLINE_HELP" pro nil (system) "%s [, Topic]" (("BOOK") ("CONTEXT") ("FULL_PATH") ("QUIT"))) - ("OPENR" pro nil (system) "%s, Unit, File [, Record_Length]" (("APPEND") ("BINARY") ("BLOCK") ("BUFSIZE") ("COMPRESS") ("DEFAULT") ("DELETE") ("ERROR") ("EXTENDSIZE") ("F77_UNFORMATTED") ("FIXED") ("FORTRAN") ("GET_LUN") ("INITIALSIZE") ("KEYED") ("LIST") ("MACCREATOR") ("MACTYPE") ("MORE") ("NOAUTOMODE") ("NONE") ("NOSTDIO") ("PRINT") ("SEGMENTED") ("SHARED") ("STREAM") ("SUBMIT") ("SUPERSEDE") ("SWAP_ENDIAN") ("SWAP_IF_BIG_ENDIAN") ("SWAP_IF_LITTLE_ENDIAN") ("TRUNCATE_ON_CLOSE") ("UDF_BLOCK") ("VARIABLE") ("VAX_FLOAT") ("WIDTH") ("XDR"))) - ("OPENU" pro nil (system) "%s, Unit, File [, Record_Length]" (("APPEND") ("BINARY") ("BLOCK") ("BUFSIZE") ("COMPRESS") ("DEFAULT") ("DELETE") ("ERROR") ("EXTENDSIZE") ("F77_UNFORMATTED") ("FIXED") ("FORTRAN") ("GET_LUN") ("INITIALSIZE") ("KEYED") ("LIST") ("MACCREATOR") ("MACTYPE") ("MORE") ("NOAUTOMODE") ("NONE") ("NOSTDIO") ("PRINT") ("SEGMENTED") ("SHARED") ("STREAM") ("SUBMIT") ("SUPERSEDE") ("SWAP_ENDIAN") ("SWAP_IF_BIG_ENDIAN") ("SWAP_IF_LITTLE_ENDIAN") ("TRUNCATE_ON_CLOSE") ("UDF_BLOCK") ("VARIABLE") ("VAX_FLOAT") ("WIDTH") ("XDR"))) - ("OPENW" pro nil (system) "%s, Unit, File [, Record_Length]" (("APPEND") ("BINARY") ("BLOCK") ("BUFSIZE") ("COMPRESS") ("DEFAULT") ("DELETE") ("ERROR") ("EXTENDSIZE") ("F77_UNFORMATTED") ("FIXED") ("FORTRAN") ("GET_LUN") ("INITIALSIZE") ("KEYED") ("LIST") ("MACCREATOR") ("MACTYPE") ("MORE") ("NOAUTOMODE") ("NONE") ("NOSTDIO") ("PRINT") ("SEGMENTED") ("SHARED") ("STREAM") ("SUBMIT") ("SUPERSEDE") ("SWAP_ENDIAN") ("SWAP_IF_BIG_ENDIAN") ("SWAP_IF_LITTLE_ENDIAN") ("TRUNCATE_ON_CLOSE") ("UDF_BLOCK") ("VARIABLE") ("VAX_FLOAT") ("WIDTH") ("XDR"))) + ("ONLINE_HELP" pro nil (system) "%s [, Value]" (("BOOK") ("CONTEXT") ("FULL_PATH") ("HTML_HELP") ("QUIT") ("TOPICS"))) + ("OPENR" pro nil (system) "%s, Unit, File [, Record_Length]" (("APPEND") ("BLOCK") ("BUFSIZE") ("COMPRESS") ("DEFAULT") ("DELETE") ("ERROR") ("EXTENDSIZE") ("F77_UNFORMATTED") ("FIXED") ("FORTRAN") ("GET_LUN") ("INITIALSIZE") ("KEYED") ("LIST") ("MACCREATOR") ("MACTYPE") ("MORE") ("NONE") ("PRINT") ("RAWIO") ("SEGMENTED") ("SHARED") ("STDIO") ("STREAM") ("SUBMIT") ("SUPERSEDE") ("SWAP_ENDIAN") ("SWAP_IF_BIG_ENDIAN") ("SWAP_IF_LITTLE_ENDIAN") ("TRUNCATE_ON_CLOSE") ("UDF_BLOCK") ("VARIABLE") ("VAX_FLOAT") ("WIDTH") ("XDR"))) + ("OPENU" pro nil (system) "%s, Unit, File [, Record_Length]" (("APPEND") ("BLOCK") ("BUFSIZE") ("COMPRESS") ("DEFAULT") ("DELETE") ("ERROR") ("EXTENDSIZE") ("F77_UNFORMATTED") ("FIXED") ("FORTRAN") ("GET_LUN") ("INITIALSIZE") ("KEYED") ("LIST") ("MACCREATOR") ("MACTYPE") ("MORE") ("NONE") ("PRINT") ("RAWIO") ("SEGMENTED") ("SHARED") ("STDIO") ("STREAM") ("SUBMIT") ("SUPERSEDE") ("SWAP_ENDIAN") ("SWAP_IF_BIG_ENDIAN") ("SWAP_IF_LITTLE_ENDIAN") ("TRUNCATE_ON_CLOSE") ("UDF_BLOCK") ("VARIABLE") ("VAX_FLOAT") ("WIDTH") ("XDR"))) + ("OPENW" pro nil (system) "%s, Unit, File [, Record_Length]" (("APPEND") ("BLOCK") ("BUFSIZE") ("COMPRESS") ("DEFAULT") ("DELETE") ("ERROR") ("EXTENDSIZE") ("F77_UNFORMATTED") ("FIXED") ("FORTRAN") ("GET_LUN") ("INITIALSIZE") ("KEYED") ("LIST") ("MACCREATOR") ("MACTYPE") ("MORE") ("NONE") ("PRINT") ("RAWIO") ("SEGMENTED") ("SHARED") ("STDIO") ("STREAM") ("SUBMIT") ("SUPERSEDE") ("SWAP_ENDIAN") ("SWAP_IF_BIG_ENDIAN") ("SWAP_IF_LITTLE_ENDIAN") ("TRUNCATE_ON_CLOSE") ("UDF_BLOCK") ("VARIABLE") ("VAX_FLOAT") ("WIDTH") ("XDR"))) ("OPLOT" pro nil (system) "%s, [X,] Y" (("CLIP") ("COLOR") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NOCLIP") ("NSUM") ("POLAR") ("PSYM") ("SYMSIZE") ("T3D") ("THICK") ("ZVALUE"))) ("OPLOTERR" pro nil (system) "%s, [ X ,] Y , Err [, Psym]" nil) ("PARTICLE_TRACE" pro nil (system) "%s, Data, Seeds, Verts, Conn [, Normals]" (("ANISOTROPY") ("INTEGRATION") ("MAX_ITERATIONS") ("MAX_STEPSIZE") ("SEED_NORMAL") ("TOLERANCE") ("UNIFORM"))) - ("PLOT" pro nil (system) "%s, [X,] Y" (("BACKGROUND") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("COLOR") ("DATA") ("DEVICE") ("FONT") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NOCLIP") ("NODATA") ("NOERASE") ("NORMAL") ("NSUM") ("POLAR") ("POSITION") ("PSYM") ("SUBTITLE") ("SYMSIZE") ("T3D") ("THICK") ("TICKLEN") ("TITLE") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICK_GET") ("XTICKFORMAT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKV") ("XTITLE") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YNOZERO") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICK_GET") ("YTICKFORMAT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKV") ("YTITLE") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICK_GET") ("ZTICKFORMAT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKV") ("ZTITLE") ("ZVALUE"))) - ("PLOT_3DBOX" pro nil (system) "%s, X, Y, Z" (("AX") ("AZ") ("BACKGROUND") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("COLOR") ("DATA") ("DEVICE") ("GRIDSTYLE") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NOCLIP") ("NODATA") ("NOERASE") ("NORMAL") ("NSUM") ("POLAR") ("POSITION") ("PSYM") ("SOLID_WALLS") ("SUBTITLE") ("T3D") ("THICK") ("TICKLEN") ("TITLE") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICKFORMAT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKV") ("XTITLE") ("XY_PLANE") ("XYSTYLE") ("XZ_PLANE") ("XZSTYLE") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YNOZERO") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICKFORMAT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKV") ("YTITLE") ("YZ_PLANE") ("YZSTYLE") ("ZAXIS") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICKFORMAT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKV") ("ZTITLE"))) + ("PLOT" pro nil (system) "%s, [X,] Y" (("BACKGROUND") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("COLOR") ("DATA") ("DEVICE") ("FONT") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NOCLIP") ("NODATA") ("NOERASE") ("NORMAL") ("NSUM") ("POLAR") ("POSITION") ("PSYM") ("SUBTITLE") ("SYMSIZE") ("T3D") ("THICK") ("TICKLEN") ("TITLE") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICK_GET") ("XTICKFORMAT") ("XTICKINTERVAL") ("XTICKLAYOUT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKUNITS") ("XTICKV") ("XTITLE") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YNOZERO") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICK_GET") ("YTICKFORMAT") ("YTICKINTERVAL") ("YTICKLAYOUT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKUNITS") ("YTICKV") ("YTITLE") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICK_GET") ("ZTICKFORMAT") ("ZTICKINTERVAL") ("ZTICKLAYOUT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKUNITS") ("ZTICKV") ("ZTITLE") ("ZVALUE"))) + ("PLOT_3DBOX" pro nil (system) "%s, X, Y, Z" (("AX") ("AZ") ("BACKGROUND") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("COLOR") ("DATA") ("DEVICE") ("GRIDSTYLE") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NOCLIP") ("NODATA") ("NOERASE") ("NORMAL") ("NSUM") ("POLAR") ("POSITION") ("PSYM") ("SOLID_WALLS") ("SUBTITLE") ("T3D") ("THICK") ("TICKLEN") ("TITLE") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICKFORMAT") ("XTICKINTERVAL") ("XTICKLAYOUT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKUNITS") ("XTICKV") ("XTITLE") ("XY_PLANE") ("XYSTYLE") ("XZ_PLANE") ("XZSTYLE") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YNOZERO") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICKFORMAT") ("YTICKINTERVAL") ("YTICKLAYOUT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKUNITS") ("YTICKV") ("YTITLE") ("YZ_PLANE") ("YZSTYLE") ("ZAXIS") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICKFORMAT") ("ZTICKINTERVAL") ("ZTICKLAYOUT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKUNITS") ("ZTICKV") ("ZTITLE"))) ("PLOT_FIELD" pro nil (system) "%s, U, V" (("ASPECT") ("LENGTH") ("N") ("TITLE"))) ("PLOTERR" pro nil (system) "%s, [ X ,] Y , Err" (("PSYM") ("TYPE"))) ("PLOTS" pro nil (system) "%s, X [, Y [, Z]]" (("CLIP") ("COLOR") ("CONTINUE") ("DATA") ("DEVICE") ("LINESTYLE") ("NOCLIP") ("NORMAL") ("PSYM") ("SYMSIZE") ("T3D") ("THICK") ("Z"))) ("POINT_LUN" pro nil (system) "%s, Unit, Position" nil) ("POLAR_CONTOUR" pro nil (system) "%s, Z, Theta, R" (("C_ANNOTATION") ("C_CHARSIZE") ("C_CHARTHICK") ("C_COLORS") ("C_LINESTYLE") ("C_ORIENTATION") ("C_SPACING") ("C_THICK") ("CLOSED") ("FILL") ("IRREGULAR") ("LEVELS") ("MAX_VALUE") ("MIN_VALUE") ("NLEVELS") ("OVERPLOT") ("PATH_DATA_COORDS") ("SHOW_TRIANGULATION") ("TRIANGULATION") ("XLOG") ("YLOG") ("ZAXIS"))) - ("POLYFILL" pro nil (system) "%s, X [, Y [, Z]]" (("CLIP") ("COLOR") ("DATA") ("DEVICE") ("FILL_PATTERN") ("IMAGE_COORD") ("IMAGE_INTERP") ("LINE_FILL") ("LINESTYLE") ("NOCLIP") ("NORMAL") ("ORIENTATION") ("PATTERN") ("SPACING") ("T3D") ("THICK") ("TRANSPARENT") ("Z"))) + ("POLYFILL" pro nil (system) "%s, X [, Y [, Z]]" (("CLIP") ("COLOR") ("DATA") ("DEVICE") ("IMAGE_COORD") ("IMAGE_INTERP") ("LINE_FILL") ("LINESTYLE") ("NOCLIP") ("NORMAL") ("ORIENTATION") ("PATTERN") ("SPACING") ("T3D") ("THICK") ("TRANSPARENT") ("Z"))) ("POLYWARP" pro nil (system) "%s, Xi, Yi, Xo, Yo, Degree, Kx, Ky" nil) ("POPD" pro nil (system) "%s" nil) ("POWELL" pro nil (system) "%s, P, Xi, Ftol, Fmin, Func" (("DOUBLE") ("ITER") ("ITMAX"))) @@ -287,9 +290,9 @@ ("PSEUDO" pro nil (system) "%s, Litlo, Lithi, Satlo, Sathi, Hue, Loops [, Colr]" nil) ("PTR_FREE" pro nil (system) "%s, P1, ... ..., Pn" nil) ("PUSHD" pro nil (system) "%s, Dir" nil) + ("RADON" pro nil (system) "%s Transform: Result = RADON( Array)" (("BACKPROJECT") ("DOUBLE") ("DRHO") ("DX") ("DY") ("GRAY") ("LINEAR") ("NRHO") ("NTHETA") ("NX") ("NY") ("RHO") ("RMIN") ("THETA") ("XMIN") ("YMIN"))) ("RDPIX" pro nil (system) "%s, Image [, X0, Y0]" nil) ("READ" pro nil (system) "%s, [Prompt,] Var1, ..., Varn" (("AM_PM") ("DAYS_OF_WEEK") ("FORMAT") ("KEY_ID") ("KEY_MATCH") ("KEY_VALUE") ("MONTHS") ("PROMPT"))) - ("READ_GIF" pro nil (system) "%s, Filename, Image [, R, G, B]" (("CLOSE") ("MULTIPLE"))) ("READ_INTERFILE" pro nil (system) "%s, File, Data" nil) ("READ_JPEG" pro nil (system) "%s [, Filename]" (("BUFFER") ("COLORS") ("DITHER") ("GRAYSCALE") ("ORDER") ("TRUE") ("TWO_PASS_QUANTIZE") ("UNIT"))) ("READ_PICT" pro nil (system) "%s, Filename, Image [, R, G, B]" nil) @@ -303,7 +306,7 @@ ("REDUCE_COLORS" pro nil (system) "%s, Image, Values" nil) ("REPLICATE_INPLACE" pro nil (system) "%s, X, Value [, D1, Loc1 [, D2, Range]]" nil) ("RESOLVE_ALL" pro nil (system) "%s" (("CONTINUE_ON_ERROR") ("QUIET"))) - ("RESOLVE_ROUTINE" pro nil (system) "%s, Name" (("EITHER") ("IS_FUNCTION") ("NO_RECOMPLIE"))) + ("RESOLVE_ROUTINE" pro nil (system) "%s, Name" (("COMPILE_FULL_FILE") ("EITHER") ("IS_FUNCTION") ("NO_RECOMPILE"))) ("RESTORE" pro nil (system) "%s [, Filename]" (("FILENAME") ("RELAXED_STRUCTURE_ASSIGNMENT") ("RESTORED_OBJECTS") ("VERBOSE"))) ("RETALL" pro nil (system) "%s" nil) ("RETURN" pro nil (system) "%s [, Return_value]" nil) @@ -318,7 +321,7 @@ ("SETENV" pro nil (system) "%s, Environment_Expression" nil) ("SETLOG" pro nil (system) "%s, Lognam, Value" (("CONCEALED") ("CONFINE") ("NO_ALIAS") ("TABLE") ("TERMINAL"))) ("SETUP_KEYS" pro nil (system) "%s" (("APP_KEYPAD") ("EIGHTBIT") ("HP9000") ("MIPS") ("NUM_KEYPAD") ("PSTERM") ("SGI") ("SUN") ("VT200"))) - ("SHADE_SURF" pro nil (system) "%s, Z [, X, Y]" (("AX") ("AZ") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("COLOR") ("DATA") ("DEVICE") ("FONT") ("IMAGE") ("MAX_VALUE") ("MIN_VALUE") ("NOCLIP") ("NODATA") ("NORMAL") ("PIXELS") ("POSITION") ("SAVE") ("SHADES") ("SUBTITLE") ("T3D") ("THICK") ("TICKLEN") ("TITLE") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICK_GET") ("XTICKFORMAT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKV") ("XTITLE") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICK_GET") ("YTICKFORMAT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKV") ("YTITLE") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICK_GET") ("ZTICKFORMAT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKV") ("ZTITLE") ("ZVALUE"))) + ("SHADE_SURF" pro nil (system) "%s, Z [, X, Y]" (("AX") ("AZ") ("CHARSIZE") ("CHARTHICK") ("COLOR") ("DATA") ("DEVICE") ("FONT") ("IMAGE") ("MAX_VALUE") ("MIN_VALUE") ("NODATA") ("NORMAL") ("PIXELS") ("POSITION") ("SAVE") ("SHADES") ("SUBTITLE") ("T3D") ("THICK") ("TICKLEN") ("TITLE") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICK_GET") ("XTICKFORMAT") ("XTICKINTERVAL") ("XTICKLAYOUT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKUNITS") ("XTICKV") ("XTITLE") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICK_GET") ("YTICKFORMAT") ("YTICKINTERVAL") ("YTICKLAYOUT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKUNITS") ("YTICKV") ("YTITLE") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICK_GET") ("ZTICKFORMAT") ("ZTICKINTERVAL") ("ZTICKLAYOUT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKUNITS") ("ZTICKV") ("ZTITLE") ("ZVALUE"))) ("SHADE_SURF_IRR" pro nil (system) "%s, Z, X, Y" (("AX") ("AZ") ("IMAGE") ("PLIST") ("T3D"))) ("SHADE_VOLUME" pro nil (system) "%s, Volume, Value, Vertex, Poly" (("LOW") ("SHADES") ("VERBOSE") ("XRANGE") ("YRANGE") ("ZRANGE"))) ("SHOW3" pro nil (system) "%s, Image [, X, Y]" (("E_CONTOUR") ("E_SURFACE") ("INTERP") ("SSCALE"))) @@ -326,8 +329,9 @@ ("SKIPF" pro nil (system) "%s, Unit, Files or SKIPF, Unit, Records, R" nil) ("SLICER3" pro nil (system) "%s [, hData3D]" (("DATA_NAMES") ("DETACH") ("GROUP") ("MODAL"))) ("SLIDE_IMAGE" pro nil (system) "%s [, Image]" (("BLOCK") ("CONGRID") ("FULL_WINDOW") ("GROUP") ("ORDER") ("REGISTER") ("RETAIN") ("SHOW_FULL") ("SLIDE_WINDOW") ("TITLE") ("TOP_ID") ("XSIZE") ("XVISIBLE") ("YSIZE") ("YVISIBLE"))) - ("SPAWN" pro nil (system) "%s [, Command(s) [, Result]]" (("COUNT") ("MACCREATOR") ("NOCLISYM") ("NOLOGNAM") ("NOSHELL") ("NOTIFY") ("NOTTYRESET") ("NOWAIT") ("PID") ("SH") ("UNIT"))) - ("SPH_4PNT" pro nil (system) "%s, X, Y, Z, Xc, Yc, Zc, R" nil) + ("SOCKET" pro nil (system) "%s, Unit, Host, Port" (("CONNECT_TIMEOUT") ("ERROR") ("GET_LUN") ("RAWIO") ("READ_TIMEOUT") ("STDIO") ("SWAP_ENDIAN") ("SWAP_IF_BIG_ENDIAN") ("SWAP_IF_LITTLE_ENDIAN") ("WIDTH") ("WRITE_TIMEOUT"))) + ("SPAWN" pro nil (system) "%s [, Command [, Result] [, ErrResult]]" (("COUNT") ("EXIT_STATUS") ("FORCE") ("HIDE") ("LOG_OUTPUT") ("MACCREATOR") ("NOCLISYM") ("NOLOGNAM") ("NOSHELL") ("NOTIFY") ("NOTTYRESET") ("NOWAIT") ("NULL_STDIN") ("PID") ("SH") ("STDERR") ("UNIT"))) + ("SPH_4PNT" pro nil (system) "%s, X, Y, Z, Xc, Yc, Zc, R" (("DOUBLE"))) ("SPLINE_P" pro nil (system) "%s, X, Y, Xr, Yr" (("INTERVAL") ("TAN0") ("TAN1"))) ("STOP" pro nil (system) "%s [, Expr1, ..., Exprn]" nil) ("STREAMLINE" pro nil (system) "%s, Verts, Conn, Normals, Outverts, Outconn" (("ANISOTROPY") ("PROFILE") ("SIZE"))) @@ -335,10 +339,10 @@ ("STRPUT" pro nil (system) "%s, Destination, Source [, Position]" nil) ("STRUCT_ASSIGN" pro nil (system) "%s, Source, Destination" (("NOZERO") ("VERBOSE"))) ("STRUCT_HIDE" pro nil (system) "%s, Arg1 [, Arg2, ..., Argn]" nil) - ("SURFACE" pro nil (system) "%s, Z [, X, Y]" (("AX") ("AZ") ("BACKGROUND") ("BOTTOM") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("COLOR") ("DATA") ("DEVICE") ("FONT") ("HORIZONTAL") ("LEGO") ("LINESTYLE") ("LOWER_ONLY") ("MAX_VALUE") ("MIN_VALUE") ("NOCLIP") ("NODATA") ("NOERASE") ("NORMAL") ("NSUM") ("POLAR") ("POSITION") ("SAVE") ("SHADES") ("SKIRT") ("SUBTITLE") ("T3D") ("THICK") ("TICKLEN") ("TITLE") ("UPPER_ONLY") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICK_GET") ("XTICKFORMAT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKV") ("XTITLE") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YNOZERO") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICK_GET") ("YTICKFORMAT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKV") ("YTITLE") ("ZAXIS") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZLOG") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICK_GET") ("ZTICKFORMAT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKV") ("ZTITLE") ("ZVALUE"))) + ("SURFACE" pro nil (system) "%s, Z [, X, Y]" (("AX") ("AZ") ("BACKGROUND") ("BOTTOM") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("COLOR") ("DATA") ("DEVICE") ("FONT") ("HORIZONTAL") ("LEGO") ("LINESTYLE") ("LOWER_ONLY") ("MAX_VALUE") ("MIN_VALUE") ("NOCLIP") ("NODATA") ("NOERASE") ("NORMAL") ("NSUM") ("POLAR") ("POSITION") ("SAVE") ("SHADES") ("SKIRT") ("SUBTITLE") ("T3D") ("THICK") ("TICKLEN") ("TITLE") ("UPPER_ONLY") ("XCHARSIZE") ("XGRIDSTYLE") ("XLOG") ("XMARGIN") ("XMINOR") ("XRANGE") ("XSTYLE") ("XTHICK") ("XTICK_GET") ("XTICKFORMAT") ("XTICKINTERVAL") ("XTICKLAYOUT") ("XTICKLEN") ("XTICKNAME") ("XTICKS") ("XTICKUNITS") ("XTICKV") ("XTITLE") ("YCHARSIZE") ("YGRIDSTYLE") ("YLOG") ("YMARGIN") ("YMINOR") ("YNOZERO") ("YRANGE") ("YSTYLE") ("YTHICK") ("YTICK_GET") ("YTICKFORMAT") ("YTICKINTERVAL") ("YTICKLAYOUT") ("YTICKLEN") ("YTICKNAME") ("YTICKS") ("YTICKUNITS") ("YTICKV") ("YTITLE") ("ZAXIS") ("ZCHARSIZE") ("ZGRIDSTYLE") ("ZLOG") ("ZMARGIN") ("ZMINOR") ("ZRANGE") ("ZSTYLE") ("ZTHICK") ("ZTICK_GET") ("ZTICKFORMAT") ("ZTICKINTERVAL") ("ZTICKLAYOUT") ("ZTICKLEN") ("ZTICKNAME") ("ZTICKS") ("ZTICKUNITS") ("ZTICKV") ("ZTITLE") ("ZVALUE"))) ("SURFR" pro nil (system) "%s" (("AX") ("AZ"))) - ("SVDC" pro nil (system) "%s, A, W, U, V" (("COLUMN") ("DOUBLE"))) - ("T3D" pro nil (system) "%s" (("OBLIQUE") ("PERSPECTIVE") ("RESET") ("ROTATE") ("SCALE") ("TRANSLATIONS") ("XYEXCH") ("XZEXCH") ("YZEXCH"))) + ("SVDC" pro nil (system) "%s, A, W, U, V" (("COLUMN") ("DOUBLE") ("ITMAX"))) + ("T3D" pro nil (system) "%s [, Array]" (("MATRIX") ("OBLIQUE") ("PERSPECTIVE") ("RESET") ("ROTATE") ("SCALE") ("TRANSLATE") ("XYEXCH") ("XZEXCH") ("YZEXCH"))) ("TAPRD" pro nil (system) "%s, Array, Unit [, Byte_Reverse]" nil) ("TAPWRT" pro nil (system) "%s, Array, Unit [, Byte_Reverse]" nil) ("TEK_COLOR" pro nil (system) "%s [, Start_Index, Colors]" nil) @@ -356,22 +360,21 @@ ("USERSYM" pro nil (system) "%s, X [, Y]" (("COLOR") ("FILL") ("THICK"))) ("VECTOR_FIELD" pro nil (system) "%s, Field, Outverts, Outconn" (("ANISOTROPY") ("SCALE") ("VERTICES"))) ("VEL" pro nil (system) "%s, U, V" (("LENGTH") ("NSTEPS") ("NVECS") ("TITLE") ("XMAX"))) - ("VELOVECT" pro nil (system) "%s, U, V [, X, Y]" (("COLOR") ("DOTS") ("LENGTH") ("MISSING"))) + ("VELOVECT" pro nil (system) "%s, U, V [, X, Y]" (("COLOR") ("DOTS") ("LENGTH") ("MISSING") ("OVERPLOT"))) ("VORONOI" pro nil (system) "%s, X, Y, I0, C, Xp, Yp, Rect" nil) ("WAIT" pro nil (system) "%s, Seconds" nil) ("WDELETE" pro nil (system) "%s [, Window_Index [, ...]]" nil) ("WEOF" pro nil (system) "%s, Unit" nil) - ("WF_DRAW" pro nil (system) "%s, X, Y" (("COLD") ("COLOR") ("CONVERGENCE") ("DATA") ("DEVICE") ("FRONT_TYPE") ("INTERVAL") ("NORM") ("OCCLUDED") ("PSYM") ("STATIONARY") ("SYM_HT") ("SYM_LEN") ("THICK") ("WARM"))) + ("WF_DRAW" pro nil (system) "%s, X, Y" (("COLD") ("COLOR") ("CONVERGENCE") ("DATA") ("DEVICE") ("FRONT_TYPE") ("INTERVAL") ("NORMAL") ("OCCLUDED") ("PSYM") ("STATIONARY") ("SYM_HT") ("SYM_LEN") ("THICK") ("WARM"))) ("WIDED" pro nil (system) "%s" nil) ("WIDGET_CONTROL" pro nil (system) "%s [, Widget_ID]" (("ALIGNMENT") ("ALL_TABLE_EVENTS") ("ALL_TEXT_EVENTS") ("AM_PM") ("APPEND") ("BAD_ID") ("BITMAP") ("CANCEL_BUTTON") ("CLEAR_EVENTS") ("COLUMN_LABELS") ("COLUMN_WIDTHS") ("DAYS_OF_WEEK") ("DEFAULT_BUTTON") ("DEFAULT_FONT") ("DELAY_DESTROY") ("DELETE_COLUMNS") ("DELETE_ROWS") ("DESTROY") ("DRAW_BUTTON_EVENTS") ("DRAW_EXPOSE_EVENTS") ("DRAW_MOTION_EVENTS") ("DRAW_VIEWPORT_EVENTS") ("DRAW_XSIZE") ("DRAW_YSIZE") ("DYNAMIC_RESIZE") ("EDIT_CELL") ("EDITABLE") ("EVENT_FUNC") ("EVENT_PRO") ("FORMAT") ("FUNC_GET_VALUE") ("GET_DRAW_VIEW") ("GET_UVALUE") ("GET_VALUE") ("GROUP_LEADER") ("HOURGLASS") ("ICONIFY") ("INPUT_FOCUS") ("INSERT_COLUMNS") ("INSERT_ROWS") ("KBRD_FOCUS_EVENTS") ("KILL_NOTIFY") ("MAP") ("MONTHS") ("NO_COPY") ("NO_NEWLINE") ("NOTIFY_REALIZE") ("PRO_SET_VALUE") ("REALIZE") ("RESET") ("ROW_HEIGHTS") ("ROW_LABELS") ("SCR_XSIZE") ("SCR_YSIZE") ("SEND_EVENT") ("SENSITIVE") ("SET_BUTTON") ("SET_DRAW_VIEW") ("SET_DROPLIST_SELECT") ("SET_LIST_SELECT") ("SET_LIST_TOP") ("SET_SLIDER_MAX") ("SET_SLIDER_MIN") ("SET_TABLE_SELECT") ("SET_TABLE_VIEW") ("SET_TEXT_SELECT") ("SET_TEXT_TOP_LINE") ("SET_UNAME") ("SET_UVALUE") ("SET_VALUE") ("SHOW") ("TABLE_XSIZE") ("TABLE_YSIZE") ("TIMER") ("TLB_GET_OFFSET") ("TLB_GET_SIZE") ("TLB_KILL_REQUEST_EVENTS") ("TLB_SET_TITLE") ("TLB_SET_XOFFSET") ("TLB_SET_YOFFSET") ("TRACKING_EVENTS") ("UNITS") ("UPDATE") ("USE_TABLE_SELECT") ("USE_TEXT_SELECT") ("X_BITMAP_EXTRA") ("XOFFSET") ("XSIZE") ("YOFFSET") ("YSIZE"))) ("WINDOW" pro nil (system) "%s [, Window_Index]" (("COLORS") ("FREE") ("PIXMAP") ("RETAIN") ("TITLE") ("XPOS") ("XSIZE") ("YPOS") ("YSIZE"))) - ("WRITE_BMP" pro nil (system) "%s, Filename, Image[, R, G, B]" (("FOUR_BIT") ("HEADER_DEFINE") ("IHDR"))) - ("WRITE_GIF" pro nil (system) "%s, Filename, Image[, R, G, B]" (("CLOSE") ("MULTIPLE"))) + ("WRITE_BMP" pro nil (system) "%s, Filename, Image[, R, G, B]" (("FOUR_BIT") ("HEADER_DEFINE") ("IHDR") ("RGB"))) ("WRITE_IMAGE" pro nil (system) "%s, Filename, Format, Data [, Red, Green, Blue]" (("APPEND"))) - ("WRITE_JPEG" pro nil (system) "%s[, Filename], Image" (("ORDER") ("PROGRESSIVE") ("QUALITY") ("TRUE") ("UNIT"))) + ("WRITE_JPEG" pro nil (system) "%s [, Filename] , Image" (("ORDER") ("PROGRESSIVE") ("QUALITY") ("TRUE") ("UNIT"))) ("WRITE_NRIF" pro nil (system) "%s, File, Image [, R, G, B]" nil) ("WRITE_PICT" pro nil (system) "%s, Filename [, Image, R, G, B]" nil) - ("WRITE_PNG" pro nil (system) "%s, Filename, Image[, R, G, B]" (("TRANSPARENT") ("VERBOSE"))) + ("WRITE_PNG" pro nil (system) "%s, Filename, Image[, R, G, B]" (("ORDER") ("TRANSPARENT") ("VERBOSE"))) ("WRITE_PPM" pro nil (system) "%s, Filename, Image" (("ASCII"))) ("WRITE_SPR" pro nil (system) "%s, AS, Filename" nil) ("WRITE_SRF" pro nil (system) "%s, Filename [, Image, R, G, B]" (("ORDER") ("WRITE_32"))) @@ -382,16 +385,23 @@ ("WSET" pro nil (system) "%s [, Window_Index]" nil) ("WSHOW" pro nil (system) "%s [, Window_Index [, Show]]" (("ICONIC"))) ("XBM_EDIT" pro nil (system) "%s" (("BLOCK") ("FILENAME") ("GROUP") ("XSIZE") ("YSIZE"))) - ("XDISPLAYFILE" pro nil (system) "%s, Filename" (("BLOCK") ("FONT") ("GROUP") ("HEIGHT") ("MODAL") ("TEXT") ("TITLE") ("WIDTH"))) - ("XINTERANIMATE" pro nil (system) "%s [, Rate]" (("CLOSE") ("CYCLE") ("FRAME") ("GROUP") ("IMAGE") ("KEEP_PIXMAPS") ("MPEG_CLOSE") ("MPEG_FILENAME") ("MPEG_OPEN") ("NO_BLOCK") ("ORDER") ("SET") ("SHOWLOAD") ("TITLE") ("TRACK") ("WINDOW") ("XOFFSET") ("YOFFSET"))) + ("XDISPLAYFILE" pro nil (system) "%s, Filename" (("BLOCK") ("DONE_BUTTON") ("EDITABLE") ("FONT") ("GROUP") ("HEIGHT") ("MODAL") ("TEXT") ("TITLE") ("WIDTH") ("WTEXT"))) + ("XDXF" pro nil (system) "%s [, Filename]" (("BLOCK") ("GROUP") ("MODAL") ("SCALE") ("TEST"))) + ("XINTERANIMATE" pro nil (system) "%s [, Rate]" (("BLOCK") ("CLOSE") ("CYCLE") ("FRAME") ("GROUP") ("IMAGE") ("KEEP_PIXMAPS") ("MODAL") ("MPEG_BITRATE") ("MPEG_CLOSE") ("MPEG_FILENAME") ("MPEG_IFRAME_GAP") ("MPEG_MOTION_VEC_LENGTH") ("MPEG_OPEN") ("MPEG_QUALITY") ("ORDER") ("SET") ("SHOWLOAD") ("TITLE") ("TRACK") ("WINDOW") ("XOFFSET") ("YOFFSET"))) ("XLOADCT" pro nil (system) "%s" (("BLOCK") ("BOTTOM") ("FILE") ("GROUP") ("MODAL") ("NCOLORS") ("SILENT") ("UPDATECALLBACK") ("UPDATECBDATA") ("USE_CURENT"))) ("XMANAGER" pro nil (system) "%s [, Name, ID]" (("CATCH") ("CLEANUP") ("EVENT_HANDLER") ("GROUP_LEADER") ("JUST_REG") ("NO_BLOCK"))) ("XMNG_TMPL" pro nil (system) "%s" (("BLOCK") ("GROUP"))) ("XMTOOL" pro nil (system) "%s" (("BLOCK") ("GROUP"))) - ("XOBJVIEW" pro nil (system) "%s, Obj" (("BLOCK") ("GROUP") ("STATIONARY") ("XSIZE") ("YSIZE"))) + ("XOBJVIEW" pro nil (system) "%s, Obj" (("BACKGROUND") ("BLOCK") ("DOUBLE_VIEW") ("GROUP") ("MODAL") ("REFRESH") ("SCALE") ("STATIONARY") ("TEST") ("TITLE") ("TLB") ("XSIZE") ("YSIZE"))) ("XPALETTE" pro nil (system) "%s" (("BLOCK") ("GROUP") ("UPDATECALLBACK") ("UPDATECBDATA"))) + ("XPCOLOR" pro nil (system) "%s" (("GROUP"))) + ("XPLOT3D" pro nil (system) "%s, X, Y, Z" (("BLOCK") ("COLOR") ("DOUBLE_VIEW") ("GROUP") ("LINESTYLE") ("MODAL") ("NAME") ("OVERPLOT") ("SYMBOL") ("TEST") ("THICK") ("TITLE") ("XRANGE") ("XTITLE") ("YRANGE") ("YTITLE") ("ZRANGE") ("ZTITLE"))) + ("XROI" pro nil (system) "%s [, ImageData] [, R] [, G] [, B]" (("BLOCK") ("FLOATING") ("GROUP") ("MODAL") ("REGIONS_IN") ("REGIONS_OUT") ("REJECTED") ("RENDERER") ("ROI_COLOR") ("ROI_GEOMETRY") ("ROI_SELECT_COLOR") ("STATISTICS") ("TITLE") ("TOOLS"))) ("XSURFACE" pro nil (system) "%s, Data" (("BLOCK") ("GROUP"))) ("XVAREDIT" pro nil (system) "%s, Var" (("GROUP") ("NAME") ("X_SCROLL_SIZE") ("Y_SCROLL_SIZE"))) + ("XVOLUME" pro nil (system) "%s, Vol" (("BLOCK") ("GROUP") ("INTERPOLATE") ("MODAL") ("RENDERER") ("REPLACE") ("SCALE") ("TEST") ("XSIZE") ("YSIZE"))) + ("XVOLUME_ROTATE" pro nil (system) "%s, Axis, Angle" (("PREMULTIPLY"))) + ("XVOLUME_WRITE_IMAGE" pro nil (system) "%s, Filename, Format" (("DIMENSIONS"))) ("XYOUTS" pro nil (system) "%s, [X, Y,] String" (("ALIGNMENT") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("COLOR") ("DATA") ("DEVICE") ("FONT") ("NOCLIP") ("NORMAL") ("ORIENTATION") ("T3D") ("TEXT_AXES") ("WIDTH") ("Z"))) ("ZOOM" pro nil (system) "%s" (("CONTINUOUS") ("FACT") ("INTERP") ("KEEP") ("NEW_WINDOW") ("XSIZE") ("YSIZE") ("ZOOM_WINDOW"))) ("ZOOM_24" pro nil (system) "%s" (("FACT") ("RIGHT") ("XSIZE") ("YSIZE"))) @@ -403,26 +413,28 @@ ("ALOG10" fun nil (system) "Result = %s(X)" nil) ("AMOEBA" fun nil (system) "Result = %s( Ftol)" (("FUNCTION_NAME") ("FUNCTION_VALUE") ("NCALLS") ("NMAX") ("P0") ("SCALE") ("SIMPLEX"))) ("ARG_PRESENT" fun nil (system) "Result = %s(Variable)" nil) + ("ARRAY_EQUAL" fun nil (system) "Result = %s( Op1 , Op2)" (("NO_TYPECONV"))) ("ASCII_TEMPLATE" fun nil (system) "Result = %s( [Filename])" (("BROWSE_LINES") ("CANCEL") ("GROUP"))) ("ASIN" fun nil (system) "Result = %s(X)" nil) ("ASSOC" fun nil (system) "Result = %s( Unit, Array_Structure [, Offset])" (("PACKED"))) ("ATAN" fun nil (system) "Result = %s([Y,] X)" nil) ("BESELI" fun nil (system) "Result = %s(X, N)" nil) ("BESELJ" fun nil (system) "Result = %s(X, N)" nil) + ("BESELK" fun nil (system) "Result = %s( X, N )" nil) ("BESELY" fun nil (system) "Result = %s(X, N)" nil) ("BETA" fun nil (system) "Result = %s( Z, W)" (("DOUBLE"))) ("BILINEAR" fun nil (system) "Result = %s(P, IX, JY)" nil) ("BIN_DATE" fun nil (system) "Result = %s(Ascii_Time)" nil) ("BINARY_TEMPLATE" fun nil (system) "Template = %s ( [Filename])" (("CANCEL") ("GROUP") ("N_ROWS") ("TEMPLATE"))) ("BINDGEN" fun nil (system) "Result = %s(D1, ...,D8)" nil) - ("BINOMIAL" fun nil (system) "Result = %s(V, N, P)" nil) - ("BLK_CON" fun nil (system) "Result = %s( Filter, Signal)" (("B_LENGTH"))) - ("BROYDEN" fun nil (system) "Result = %s( X, Vecfunc)" (("CHECK") ("DOUBLE") ("ITMAX") ("STEPMAX") ("TOLF") ("TOLMIN") ("TOLX"))) + ("BINOMIAL" fun nil (system) "Result = %s(V, N, P)" (("DOUBLE") ("GAUSSIAN"))) + ("BLK_CON" fun nil (system) "Result = %s( Filter, Signal)" (("B_LENGTH") ("DOUBLE"))) + ("BROYDEN" fun nil (system) "Result = %s( X, Vecfunc)" (("CHECK") ("DOUBLE") ("EPS") ("ITMAX") ("STEPMAX") ("TOLF") ("TOLMIN") ("TOLX"))) ("BYTARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) ("BYTE" fun nil (system) "Result = %s( Expression[, Offset [, Dim1, ..., Dim8]] )" nil) ("BYTSCL" fun nil (system) "Result = %s( Array)" (("MAX") ("MIN") ("NAN") ("TOP"))) ("C_CORRELATE" fun nil (system) "Result = %s( X, Y, Lag)" (("COVARIANCE") ("DOUBLE"))) - ("CALL_EXTERNAL" fun nil (system) "Result = %s(Image, Entry [, P0, ..., PN-1])" (("ALL_VALUE") ("B_VALUE") ("CDECL") ("D_VALUE") ("DEFAULT") ("F_VALUE") ("I_VALUE") ("L64_VALUE") ("PORTABLE") ("RETURN_TYPE") ("S_VALUE") ("UI_VALUE") ("UL64_VALUE") ("UL_VALUE") ("UNLOAD") ("VALUE") ("VAX_FLOAT"))) + ("CALL_EXTERNAL" fun nil (system) "Result = %s(Image, Entry [, P0, ..., PN-1])" (("ALL_VALUE") ("AUTOGLUE") ("B_VALUE") ("CC") ("CDECL") ("COMPILE_DIRECTORY") ("D_VALUE") ("DEFAULT") ("EXTRA_CFLAGS") ("EXTRA_LFLAGS") ("F_VALUE") ("I_VALUE") ("IGNORE_EXISTING_GLUE") ("L64_VALUE") ("LD") ("NOCLEANUP") ("PORTABLE") ("RETURN_TYPE") ("S_VALUE") ("SHOW_ALL_OUTPUT") ("UI_VALUE") ("UL64_VALUE") ("UL_VALUE") ("UNLOAD") ("VALUE") ("VAX_FLOAT") ("VERBOSE") ("WRITE_WRAPPER"))) ("CALL_FUNCTION" fun nil (system) "Result = %s(Name [, P1, ..., Pn])" nil) ("CALL_METHOD" fun nil (system) "Result = %s, Name, ObjRef, [, P1, ..., Pn]" nil) ("CDF_ATTCREATE" fun nil (system) "Result = %s( Id, Attribute_Name)" (("GLOBAL_SCOPE") ("VARIABLE_SCOPE"))) @@ -438,7 +450,7 @@ ("CDF_VARCREATE" fun nil (system) "Result = %s( Id, Name [, DimVary])" (("ALLOCATERECS") ("CDF_BYTE") ("CDF_CHAR") ("CDF_DOUBLE") ("CDF_EPOCH") ("CDF_FLOAT") ("CDF_INT1") ("CDF_INT2") ("CDF_INT4") ("CDF_REAL4") ("CDF_REAL8") ("CDF_UCHAR") ("CDF_UINT1") ("CDF_UINT2") ("CDF_UINT4") ("DIMENSIONS") ("NUMELEM") ("REC_NOVARY") ("REC_VARY") ("ZVARIABLE"))) ("CDF_VARINQ" fun nil (system) "Result = %s( Id, Variable)" (("ZVARIABLE"))) ("CDF_VARNUM" fun nil (system) "Result = %s( Id, VarName [, IsZVar] )" nil) - ("CEIL" fun nil (system) "Result = %s(X)" nil) + ("CEIL" fun nil (system) "Result = %s(X)" (("L64"))) ("CHEBYSHEV" fun nil (system) "Result = %s(D, N)" nil) ("CHECK_MATH" fun nil (system) "Result = %s()" (("MASK") ("NOCLEAR") ("PRINT"))) ("CHISQR_CVF" fun nil (system) "Result = %s(P, Df)" nil) @@ -448,6 +460,7 @@ ("CLUST_WTS" fun nil (system) "Result = %s( Array)" (("DOUBLE") ("N_CLUSTERS") ("N_ITERATIONS") ("VARIABLE_WTS"))) ("CLUSTER" fun nil (system) "Result = %s( Array, Weights)" (("DOUBLE") ("N_CLUSTERS"))) ("COLOR_QUAN" fun nil (system) "Result = %s( Image_R, Image_G, Image_B, R, G, B) or Result = COLOR_QUAN( Image, Dim, R, G, B )" (("COLORS") ("CUBE") ("DITHER") ("ERROR") ("GET_TRANSLATION") ("MAP_ALL") ("TRANSLATION"))) + ("COLORMAP_APPLICABLE" fun nil (system) "Result = %s( redrawRequired )" nil) ("COMFIT" fun nil (system) "Result = %s( X, Y, A)" (("EXPONENTIAL") ("GEOMETRIC") ("GOMPERTZ") ("HYPERBOLIC") ("LOGISTIC") ("LOGSQUARE") ("SIGMA") ("WEIGHTS") ("YFIT"))) ("COMPLEX" fun nil (system) "Result = %s( Real [, Imaginary] ) or Result = COMPLEX(Expression, Offset, Dim1 [, ..., Dim8])" nil) ("COMPLEXARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) @@ -456,7 +469,7 @@ ("COND" fun nil (system) "Result = %s( A)" (("DOUBLE"))) ("CONGRID" fun nil (system) "Result = %s( Array, X, Y, Z)" (("CUBIC") ("INTERP") ("MINUS_ONE"))) ("CONJ" fun nil (system) "Result = %s(X)" nil) - ("CONVERT_COORD" fun nil (system) "Result = %s( X [, Y [, Z]])" (("DATA") ("DEVICE") ("NORMAL") ("T3D") ("TO_DATA") ("TO_DEVICE") ("TO_NORMAL"))) + ("CONVERT_COORD" fun nil (system) "Result = %s( X [, Y [, Z]])" (("DATA") ("DEVICE") ("DOUBLE") ("NORMAL") ("T3D") ("TO_DATA") ("TO_DEVICE") ("TO_NORMAL"))) ("CONVOL" fun nil (system) "Result = %s( Array, Kernel [, Scale_Factor])" (("CENTER") ("EDGE_TRUNCATE") ("EDGE_WRAP"))) ("COORD2TO3" fun nil (system) "Result = %s( Mx, My, Dim, D0 [, PTI] )" nil) ("CORRELATE" fun nil (system) "Result = %s( X [, Y])" (("COVARIANCE") ("DOUBLE"))) @@ -468,25 +481,24 @@ ("CRVLENGTH" fun nil (system) "Result = %s( X, Y)" (("DOUBLE"))) ("CT_LUMINANCE" fun nil (system) "Result = %s( [R, G, B])" (("BRIGHT") ("DARK") ("READ_TABLES"))) ("CTI_TEST" fun nil (system) "Result = %s( Obfreq)" (("COEFF") ("CORRECTED") ("CRAMV") ("DF") ("EXFREQ") ("RESIDUAL"))) - ("CURVEFIT" fun nil (system) "Result = %s( X, Y, Weights, A [, Sigma])" (("CHISQ") ("FUNCTION_NAME") ("ITER") ("ITMAX") ("NODERIVATIVE") ("TOL"))) - ("CV_COORD" fun nil (system) "Result = %s()" (("DEGREES") ("FROM_CYLIN") ("FROM_POLAR") ("FROM_RECT") ("FROM_SPHERE") ("TO_CYLIN") ("TO_POLAR") ("TO_RECT") ("TO_SPHERE"))) + ("CURVEFIT" fun nil (system) "Result = %s( X, Y, Weights, A [, Sigma])" (("CHISQ") ("DOUBLE") ("FUNCTION_NAME") ("ITER") ("ITMAX") ("NODERIVATIVE") ("TOL"))) + ("CV_COORD" fun nil (system) "Result = %s()" (("DEGREES") ("DOUBLE") ("FROM_CYLIN") ("FROM_POLAR") ("FROM_RECT") ("FROM_SPHERE") ("TO_CYLIN") ("TO_POLAR") ("TO_RECT") ("TO_SPHERE"))) ("CVTTOBM" fun nil (system) "Result = %s( Array)" (("THRESHOLD"))) ("CW_ANIMATE" fun nil (system) "Result = %s( Parent, Sizex, Sizey, Nframes)" (("NO_KILL") ("OPEN_FUNC") ("PIXMAPS") ("TRACK") ("UNAME") ("UVALUE"))) ("CW_ARCBALL" fun nil (system) "Result = %s( Parent)" (("COLORS") ("FRAME") ("LABEL") ("RETAIN") ("SIZE") ("UNAME") ("UPDATE") ("UVALUE") ("VALUE"))) - ("CW_BGROUP" fun nil (system) "Result = %s( Parent, Names)" (("BUTTON_UVALUE") ("COLUMN") ("EVENT_FUNCT") ("EXCLUSIVE") ("FONT") ("FRAME") ("IDS") ("LABEL_LEFT") ("LABEL_TOP") ("MAP") ("NO_RELEASE") ("NONEXCLUSIVE") ("RETURN_ID") ("RETURN_INDEX") ("RETURN_NAME") ("ROW") ("SCROLL") ("SET_VALUE") ("SPACE") ("UNAME") ("UVALUE") ("X_SCROLL_SIZE") ("XOFFSET") ("XPAD") ("XSIZE") ("Y_SCROLL_SIZE") ("YOFFSET") ("YPAD") ("YSIZE"))) - ("CW_CLR_INDEX" fun nil (system) "Result = %s( Parent)" (("COLOR_VALUES") ("EVENT_FUNC") ("FRAME") ("LABEL") ("NCOLORS") ("START_COLOR") ("UNAME") ("UVALUE") ("XSIZE") ("YSIZE"))) + ("CW_BGROUP" fun nil (system) "Result = %s( Parent, Names)" (("BUTTON_UVALUE") ("COLUMN") ("EVENT_FUNC") ("EXCLUSIVE") ("FONT") ("FRAME") ("IDS") ("LABEL_LEFT") ("LABEL_TOP") ("MAP") ("NO_RELEASE") ("NONEXCLUSIVE") ("RETURN_ID") ("RETURN_INDEX") ("RETURN_NAME") ("ROW") ("SCROLL") ("SET_VALUE") ("SPACE") ("UNAME") ("UVALUE") ("X_SCROLL_SIZE") ("XOFFSET") ("XPAD") ("XSIZE") ("Y_SCROLL_SIZE") ("YOFFSET") ("YPAD") ("YSIZE"))) + ("CW_CLR_INDEX" fun nil (system) "Result = %s( Parent)" (("COLOR_VALUES") ("EVENT_FUNC") ("FRAME") ("LABEL") ("NCOLORS") ("START_COLOR") ("UNAME") ("UVALUE") ("VALUE") ("XSIZE") ("YSIZE"))) ("CW_COLORSEL" fun nil (system) "Result = %s( Parent)" (("FRAME") ("UNAME") ("UVALUE") ("XOFFSET") ("YOFFSET"))) ("CW_DEFROI" fun nil (system) "Result = %s( Draw)" (("IMAGE_SIZE") ("OFFSET") ("ORDER") ("RESTORE") ("ZOOM"))) - ("CW_DICE" fun nil (system) "Result = %s( Parent)" (("TUMBLE_CNT") ("TUMBLE_PERIOD") ("UNAME") ("UVALUE"))) - ("CW_FIELD" fun nil (system) "Result = %s( Parent)" (("ALL_EVENTS") ("COLUMN") ("FIELDFONT") ("FLOATING") ("FONT") ("FRAME") ("INTEGER") ("LONG") ("NOEDIT") ("RETURN_EVENTS") ("ROW") ("STRING") ("TITLE") ("UNAME") ("UVALUE") ("VALUE") ("XSIZE") ("YSIZE"))) - ("CW_FILESEL" fun nil (system) "Result = %s ( Parent)" (("FILENAME") ("FILTER") ("FIX_FILTER") ("FRAME") ("IMAGE_FILTER") ("MULTIPLE") ("PATH") ("UNAME") ("UVALUE"))) - ("CW_FORM" fun nil (system) "Result = %s( [Parent,] Desc)" (("COLUMN") ("IDS") ("NO_RELEASE") ("TITLE") ("UNAME") ("UVALUE"))) + ("CW_FIELD" fun nil (system) "Result = %s( Parent)" (("ALL_EVENTS") ("COLUMN") ("FIELDFONT") ("FLOATING") ("FONT") ("FRAME") ("INTEGER") ("LONG") ("NOEDIT") ("RETURN_EVENTS") ("ROW") ("STRING") ("TEXT_FRAME") ("TITLE") ("UNAME") ("UVALUE") ("VALUE") ("XSIZE") ("YSIZE"))) + ("CW_FILESEL" fun nil (system) "Result = %s ( Parent)" (("FILENAME") ("FILTER") ("FIX_FILTER") ("FRAME") ("IMAGE_FILTER") ("MULTIPLE") ("PATH") ("SAVE") ("UNAME") ("UVALUE") ("WARN_EXIST"))) + ("CW_FORM" fun nil (system) "Result = %s( [Parent,] Desc)" (("COLUMN") ("IDS") ("TITLE") ("UNAME") ("UVALUE"))) ("CW_FSLIDER" fun nil (system) "Result = %s( Parent)" (("DRAG") ("EDIT") ("FORMAT") ("FRAME") ("MAXIMUM") ("MINIMUM") ("SCROLL") ("SUPRESS_VALUE") ("TITLE") ("UNAME") ("UVALUE") ("VALUE") ("VERTICAL") ("XSIZE") ("YSIZE"))) ("CW_LIGHT_EDITOR" fun nil (system) "Result = %s (Parent)" (("DIRECTION_DISABLED") ("DRAG_EVENTS") ("FRAME") ("HIDE_DISABLED") ("LIGHT") ("LOCATION_DISABLED") ("TYPE_DISABLED") ("UVALUE") ("XRANGE") ("XSIZE") ("YRANGE") ("YSIZE") ("ZRANGE"))) ("CW_ORIENT" fun nil (system) "Result = %s( Parent)" (("AX") ("AZ") ("FRAME") ("TITLE") ("UNAME") ("UVALUE") ("XSIZE") ("YSIZE"))) ("CW_PALETTE_EDITOR" fun nil (system) "Result = %s (Parent)" (("DATA") ("FRAME") ("HISTOGRAM") ("HORIZONTAL") ("SELECTION") ("UNAME") ("UVALUE") ("XSIZE") ("YSIZE"))) - ("CW_PDMENU" fun nil (system) "Result = %s( Parent, Desc)" (("DELIMITER") ("FONT") ("HELP") ("IDS") ("MBAR") ("RETURN_FULL_NAME") ("RETURN_ID") ("RETURN_INDEX") ("RETURN_NAME") ("UNAME") ("UVALUE") ("XOFFSET") ("YOFFSET"))) - ("CW_RGBSLIDER" fun nil (system) "Result = %s( Parent)" (("CMY") ("COLOR_INDEX") ("DRAG") ("FRAME") ("HLS") ("HSV") ("LENGTH") ("RGB") ("UNAME") ("UVALUE") ("VERTICAL"))) + ("CW_PDMENU" fun nil (system) "Result = %s( Parent, Desc)" (("COLUMN") ("DELIMITER") ("FONT") ("HELP") ("IDS") ("MBAR") ("RETURN_FULL_NAME") ("RETURN_ID") ("RETURN_INDEX") ("RETURN_NAME") ("UNAME") ("UVALUE") ("XOFFSET") ("YOFFSET"))) + ("CW_RGBSLIDER" fun nil (system) "Result = %s( Parent)" (("CMY") ("COLOR_INDEX") ("DRAG") ("FRAME") ("GRAPHICS_LEVEL") ("HLS") ("HSV") ("LENGTH") ("RGB") ("UNAME") ("UVALUE") ("VALUE") ("VERTICAL"))) ("CW_TMPL" fun nil (system) "Result = %s( Parent)" (("UNAME") ("UVALUE"))) ("CW_ZOOM" fun nil (system) "Result = %s( Parent)" (("FRAME") ("MAX") ("MIN") ("RETAIN") ("SAMPLE") ("SCALE") ("TRACK") ("UNAME") ("UVALUE") ("X_SCROLL_SIZE") ("X_ZSIZE") ("XSIZE") ("Y_SCROLL_SIZE") ("Y_ZSIZE") ("YSIZE"))) ("DBLARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) @@ -499,11 +511,11 @@ ("DERIVSIG" fun nil (system) "Result = %s( [X, Y, Sigx,] Sigy )" nil) ("DETERM" fun nil (system) "Result = %s( A)" (("CHECK") ("DOUBLE") ("ZERO"))) ("DIALOG_MESSAGE" fun nil (system) "Result = %s( Message_Text)" (("CANCEL") ("DEFAULT_CANCEL") ("DEFAULT_NO") ("DIALOG_PARENT") ("DISPLAY_NAME") ("ERROR") ("INFORMATION") ("QUESTION") ("RESOURCE_NAME") ("TITLE"))) - ("DIALOG_PICKFILE" fun nil (system) "Result = %s()" (("DIALOG_PARENT") ("DIRECTORY") ("DISPLAY_NAME") ("FILE") ("FILTER") ("FIX_FILTER") ("GET_PATH") ("GROUP") ("MULTIPLE_FILES") ("MUST_EXIST") ("NOCONFIRM") ("PATH") ("READ") ("RESOURCE_NAME") ("TITLE") ("WRITE"))) + ("DIALOG_PICKFILE" fun nil (system) "Result = %s()" (("DIALOG_PARENT") ("DIRECTORY") ("DISPLAY_NAME") ("FILE") ("FILTER") ("FIX_FILTER") ("GET_PATH") ("GROUP") ("MULTIPLE_FILES") ("MUST_EXIST") ("PATH") ("READ") ("RESOURCE_NAME") ("TITLE") ("WRITE"))) ("DIALOG_PRINTERSETUP" fun nil (system) "Result = %s( [PrintDestination])" (("DIALOG_PARENT") ("DISPLAY_NAME") ("RESOURCE_NAME") ("TITLE"))) ("DIALOG_PRINTJOB" fun nil (system) "Result = %s( [PrintDestination])" (("DIALOG_PARENT") ("DISPLAY_NAME") ("RESOURCE_NAME") ("TITLE"))) - ("DIALOG_READ_IMAGE" fun nil (system) "Result = %s ( [Filename])" (("BLUE") ("DIALOG_PARENT") ("FILE") ("FILTER") ("FIX_FILTER") ("GREEN") ("IMAGE") ("PATH") ("QUERY") ("RED") ("TITLE"))) - ("DIALOG_WRITE_IMAGE" fun nil (system) "Result = %s ( Image [, R, G, B])" (("DIALOG_PARENT") ("FILENAME") ("FIX_TYPE") ("NOWRITE") ("OPTIONS") ("PATH") ("TITLE") ("TYPE"))) + ("DIALOG_READ_IMAGE" fun nil (system) "Result = %s ( [Filename])" (("BLUE") ("DIALOG_PARENT") ("FILE") ("FILTER_TYPE") ("FIX_FILTER") ("GET_PATH") ("GREEN") ("IMAGE") ("PATH") ("QUERY") ("RED") ("TITLE"))) + ("DIALOG_WRITE_IMAGE" fun nil (system) "Result = %s ( Image [, R, G, B])" (("DIALOG_PARENT") ("FILE") ("FIX_TYPE") ("NOWRITE") ("OPTIONS") ("PATH") ("TITLE") ("TYPE") ("WARN_EXIST"))) ("DIGITAL_FILTER" fun nil (system) "Result = %s( Flow, Fhigh, A, Nterms )" nil) ("DILATE" fun nil (system) "Result = %s( Image, Structure [, X0 [, Y0 [, Z0]]])" (("BACKGROUND") ("CONSTRAINED") ("GRAY") ("PRESERVE_TYPE") ("UINT") ("ULONG") ("VALUES"))) ("DINDGEN" fun nil (system) "Result = %s(D1, ..., D8)" nil) @@ -519,6 +531,7 @@ ("EOS_EXISTS" fun nil (system) "Result = %s( )" nil) ("EOS_GD_ATTACH" fun nil (system) "Result = %s(fid, gridname)" nil) ("EOS_GD_ATTRINFO" fun nil (system) "Result = %s(gridID, attrname, numbertype, count)" nil) + ("EOS_GD_BLKSOMOFFSET" fun nil (system) "Result = %s(gridID, offset, code)" nil) ("EOS_GD_CLOSE" fun nil (system) "Result = %s(fid)" nil) ("EOS_GD_COMPINFO" fun nil (system) "Result = %s(gridID, fieldname, compcode, compparm)" nil) ("EOS_GD_CREATE" fun nil (system) "Result = %s(fid, gridname, xdimsize, ydimsize, upleftpt, lowrightpt)" nil) @@ -645,21 +658,24 @@ ("ERRORF" fun nil (system) "Result = %s(X)" nil) ("EXECUTE" fun nil (system) "Result = %s(String [, QuietCompile])" nil) ("EXP" fun nil (system) "Result = %s(Expression)" nil) - ("EXPAND_PATH" fun nil (system) "Result = %s( String)" (("ARRAY") ("COUNT"))) + ("EXPAND_PATH" fun nil (system) "Result = %s( String)" (("ALL_DIRS") ("ARRAY") ("COUNT") ("DLM") ("HELP"))) ("EXPINT" fun nil (system) "Result = %s( N, X)" (("DOUBLE") ("EPS") ("ITMAX"))) ("EXTRAC" fun nil (system) "Result = %s( Array, C1, C2, ..., Cn, S1, S2, ..., Sn )" nil) - ("EXTRACT_SLICE" fun nil (system) "Result = %s( Vol, Xsize, Ysize, Xcenter, Ycenter, Zcenter, Xrot, Yrot, Zrot)" (("ANISOTROPY") ("OUT_VAL") ("RADIANS") ("SAMPLE") ("VERTICES"))) + ("EXTRACT_SLICE" fun nil (system) "Result = %s( Vol, Xsize, Ysize, Xcenter, Ycenter, Zcenter, Xrot, Yrot, Zrot)" (("ANISOTROPY") ("CUBIC") ("OUT_VAL") ("RADIANS") ("SAMPLE") ("VERTICES"))) ("F_CVF" fun nil (system) "Result = %s(P, Dfn, Dfd)" nil) ("F_PDF" fun nil (system) "Result = %s(V, Dfn, Dfd)" nil) - ("FACTORIAL" fun nil (system) "Result = %s( N)" (("STIRLING"))) + ("FACTORIAL" fun nil (system) "Result = %s( N)" (("STIRLING") ("UL64"))) ("FFT" fun nil (system) "Result = %s( Array [, Direction])" (("DOUBLE") ("INVERSE") ("OVERWRITE"))) + ("FILE_EXPAND_PATH" fun nil (system) "Result = %s (Path)" nil) + ("FILE_TEST" fun nil (system) "Result = %s( File)" (("BLOCK_SPECIAL") ("CHARACTER_SPECIAL") ("DANGLING_SYMLINK") ("DIRECTORY") ("EXECUTABLE") ("GET_MODE") ("GROUP") ("NAMED_PIPE") ("READ") ("REGULAR") ("SETGID") ("SETUID") ("SOCKET") ("STICKY_BIT") ("SYMLINK") ("USER") ("WRITE") ("ZERO_LENGTH"))) + ("FILE_WHICH" fun nil (system) "Result = %s( [Path, ] File)" (("INCLUDE_CURRENT_DIR"))) ("FILEPATH" fun nil (system) "Result = %s( Filename)" (("ROOT_DIR") ("SUBDIRECTORY") ("TERMINAL") ("TMP"))) ("FINDFILE" fun nil (system) "Result = %s( File_Specification)" (("COUNT"))) ("FINDGEN" fun nil (system) "Result = %s(D1, ..., D8)" nil) ("FINITE" fun nil (system) "Result = %s( X)" (("INFINITY") ("NAN"))) ("FIX" fun nil (system) "Result = %s( Expression [, Offset [, Dim1, ..., Dim8]])" (("PRINT") ("TYPE"))) ("FLOAT" fun nil (system) "Result = %s( Expression [, Offset [, Dim1, ..., Dim8]] )" nil) - ("FLOOR" fun nil (system) "Result = %s(X)" nil) + ("FLOOR" fun nil (system) "Result = %s(X)" (("L64"))) ("FLTARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) ("FORMAT_AXIS_VALUES" fun nil (system) "Result = %s( Values )" nil) ("FSTAT" fun nil (system) "Result = %s(Unit)" nil) @@ -677,14 +693,14 @@ ("GET_KBRD" fun nil (system) "Result = %s(Wait)" nil) ("GET_SCREEN_SIZE" fun nil (system) "Result = %s( [Display_name])" (("DISPLAY_NAME") ("RESOLUTION"))) ("GET_SYMBOL" fun nil (system) "Result = %s( Name)" (("TYPE"))) - ("GETENV" fun nil (system) "Result = %s(Name)" nil) + ("GETENV" fun nil (system) "Result = %s( Name )" (("ENVIRONMENT"))) ("GETHELP" fun nil (system) "Result = %s([Variable])" nil) ("GRID3" fun nil (system) "Result = %s( X, Y, Z, F, Gx, Gy, Gz)" (("DELTA") ("DTOL") ("GRID") ("NGRID") ("START"))) ("GRID_TPS" fun nil (system) "Interp = %s (Xp, Yp, Values)" (("COEFFICIENTS") ("DELTA") ("NGRID") ("START"))) - ("GS_ITER" fun nil (system) "Result = %s( A, B)" (("CHECK") ("LAMBDA") ("MAX_ITER") ("TOL") ("X_0"))) + ("GS_ITER" fun nil (system) "Result = %s( A, B)" (("CHECK") ("DOUBLE") ("LAMBDA") ("MAX_ITER") ("TOL") ("X_0"))) ("HANDLE_CREATE" fun nil (system) "Result = %s([ID])" nil) ("HANDLE_INFO" fun nil (system) "Result = %s(ID)" nil) - ("HANNING" fun nil (system) "Result = %s( N1 [, N2])" (("ALPHA"))) + ("HANNING" fun nil (system) "Result = %s( N1 [, N2])" (("ALPHA") ("DOUBLE"))) ("HDF_AN_ANNLEN" fun nil (system) "Result = %s(ann_id)" nil) ("HDF_AN_ANNLIST" fun nil (system) "Result = %s(an_id, annot_type, obj_tag, obj_ref, ann_list)" nil) ("HDF_AN_ATYPE2TAG" fun nil (system) "Result = %s(annot_type)" nil) @@ -769,43 +785,44 @@ ("HDF_VG_NUMBER" fun nil (system) "Result = %s(VGroup)" nil) ("HILBERT" fun nil (system) "Result = %s(X [, D])" nil) ("HIST_2D" fun nil (system) "Result = %s( V1, V2)" (("BIN1") ("BIN2") ("MAX1") ("MAX2") ("MIN1") ("MIN2"))) - ("HIST_EQUAL" fun nil (system) "Result = %s( A)" (("BINSIZE") ("MAXV") ("MINV") ("TOP"))) - ("HISTOGRAM" fun nil (system) "Result = %s( Array)" (("BINSIZE") ("INPUT") ("MAX") ("MIN") ("NAN") ("OMAX") ("OMIN") ("REVERSE_INDICES"))) + ("HIST_EQUAL" fun nil (system) "Result = %s( A)" (("BINSIZE") ("HISTOGRAM_ONLY") ("MAXV") ("MINV") ("OMAX") ("OMIN") ("PERCENT") ("TOP"))) + ("HISTOGRAM" fun nil (system) "Result = %s( Array)" (("BINSIZE") ("INPUT") ("L64") ("MAX") ("MIN") ("NAN") ("NBINS") ("OMAX") ("OMIN") ("REVERSE_INDICES"))) ("HQR" fun nil (system) "Result = %s( A)" (("COLUMN") ("DOUBLE"))) - ("IBETA" fun nil (system) "Result = %s(A, B, X)" nil) + ("IBETA" fun nil (system) "Result = %s( A, B, X)" (("DOUBLE") ("EPS") ("ITER") ("ITMAX"))) ("IDENTITY" fun nil (system) "Result = %s( N)" (("DOUBLE"))) - ("IGAMMA" fun nil (system) "Result = %s( A, X)" (("METHOD"))) + ("IGAMMA" fun nil (system) "Result = %s( A, X)" (("DOUBLE") ("EPS") ("ITER") ("ITMAX") ("METHOD"))) ("IMAGINARY" fun nil (system) "Result = %s(Complex_Expression)" nil) ("INDGEN" fun nil (system) "Result = %s(D1, ..., D8)" (("BYTE") ("COMPLEX") ("DCOMPLEX") ("DOUBLE") ("FLOAT") ("L64") ("LONG") ("STRING") ("TYPE") ("UINT") ("UL64") ("ULONG"))) - ("INSGET" fun nil (system) "Result = %s([Name])" (("COUNT") ("DIMS_LIST") ("EXCLUSIVE") ("GROUP") ("NAME") ("PTR_OUT") ("TITLE"))) ("INT_2D" fun nil (system) "Result = %s( Fxy, AB_Limits, PQ_Limits, Pts)" (("DOUBLE") ("ORDER"))) ("INT_3D" fun nil (system) "Result = %s( Fxyz, AB_Limits, PQ_Limits, UV_Limits, Pts)" (("DOUBLE"))) - ("INT_TABULATED" fun nil (system) "Result = %s( X, F)" (("SORT"))) + ("INT_TABULATED" fun nil (system) "Result = %s( X, F)" (("DOUBLE") ("SORT"))) ("INTARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) - ("INTERPOL" fun nil (system) "Result = %s( V, N) or Result = INTERPOL( V, X, U)" (("QUADRATIC") ("SPLINE"))) + ("INTERPOL" fun nil (system) "Result = %s( V, N) or Result = INTERPOL( V, X, U)" (("LSQUADRATIC") ("QUADRATIC") ("SPLINE"))) ("INTERPOLATE" fun nil (system) "Result = %s( P, X [, Y [, Z]])" (("CUBIC") ("GRID") ("MISSING"))) ("INVERT" fun nil (system) "Result = %s( Array [, Status])" (("DOUBLE"))) ("IOCTL" fun nil (system) "Result = %s( File_Unit [, Request, Arg])" (("BY_VALUE") ("MT_OFFLINE") ("MT_REWIND") ("MT_SKIP_FILE") ("MT_SKIP_RECORD") ("MT_WEOF") ("SUPRESS_ERROR"))) ("ISHFT" fun nil (system) "Result = %s(P1, P2)" nil) ("JULDAY" fun nil (system) "Result = %s(Month, Day, Year, Hour, Minute, Second)" nil) ("KEYWORD_SET" fun nil (system) "Result = %s(Expression)" nil) - ("KRIG2D" fun nil (system) "Result = %s( Z [, X, Y])" (("A") ("BOUNDS") ("C0") ("C1") ("EXPONENTIAL") ("GS") ("NX") ("NY") ("REGULAR") ("SPHERICAL") ("XGRID") ("XVALUES") ("YGRID") ("YVALUES"))) + ("KRIG2D" fun nil (system) "Result = %s( Z [, X, Y])" (("BOUNDS") ("EXPONENTIAL") ("GS") ("NX") ("NY") ("REGULAR") ("SPHERICAL") ("XGRID") ("XVALUES") ("YGRID") ("YVALUES"))) ("KURTOSIS" fun nil (system) "Result = %s(X)" (("DOUBLE") ("NAN"))) ("KW_TEST" fun nil (system) "Result = %s( X)" (("DF") ("MISSING"))) ("L64INDGEN" fun nil (system) "Result = %s(D1, ..., D8)" nil) - ("LABEL_DATE" fun nil (system) "Result = %s()" (("DATE_FORMAT") ("MONTHS") ("XTICKFORMAT"))) + ("LABEL_DATE" fun nil (system) "Result = %s()" (("AM_PM") ("DATE_FORMAT") ("DAYS_OF_WEEK") ("MONTHS") ("OFFSET") ("ROUND_UP") ("XTICKFORMAT"))) ("LABEL_REGION" fun nil (system) "Result = %s( Data)" (("ALL_NEIGHBORS") ("ULONG"))) ("LADFIT" fun nil (system) "Result = %s( X, Y)" (("ABSDEV") ("DOUBLE"))) - ("LEEFILT" fun nil (system) "Result = %s( A [, N [, Sig]])" (("EXACT"))) + ("LAGUERRE" fun nil (system) "Result = %s( X, N [, K])" (("COEFFICIENTS") ("DOUBLE"))) + ("LEEFILT" fun nil (system) "Result = %s( A [, N [, Sig]])" (("DOUBLE") ("EXACT"))) + ("LEGENDRE" fun nil (system) "Result = %s( X, L [, M])" (("DOUBLE"))) ("LINBCG" fun nil (system) "Result = %s( A, B, X)" (("DOUBLE") ("ITER") ("ITMAX") ("ITOL") ("TOL"))) ("LINDGEN" fun nil (system) "Result = %s(D1, ..., D8)" nil) - ("LINFIT" fun nil (system) "Result = %s( X, Y)" (("CHISQ") ("DOUBLE") ("PROB") ("SDEV") ("SIGMA"))) + ("LINFIT" fun nil (system) "Result = %s( X, Y)" (("CHISQ") ("COVAR") ("DOUBLE") ("MEASURE_ERRORS") ("PROB") ("SIGMA") ("YFIT"))) ("LIVE_STYLE" fun nil (system) "Style = %s ({ 'contour' | 'image' | 'plot' | 'surface'})" (("BASE_STYLE") ("COLORBAR_PROPERTIES") ("ERROR") ("GRAPHIC_PROPERTIES") ("GROUP") ("LEGEND_PROPERTIES") ("NAME") ("SAVE") ("TEMPLATE_FILE") ("VISUALIZATION_PROPERTIES") ("XAXIS_PROPERTIES") ("YAXIS_PROPERTIES") ("ZAXIS_PROPERTIES"))) ("LL_ARC_DISTANCE" fun nil (system) "Result = %s( Lon_lat0, Arc_Dist, Az)" (("DEGREES"))) - ("LMFIT" fun nil (system) "Result = %s( X, Y, A)" (("ALPHA") ("CHISQ") ("CONVERGENCE") ("COVAR") ("DOUBLE") ("FITA") ("FUNCTION_NAME") ("ITER") ("ITMAX") ("ITMIN") ("SIGMA") ("TOL") ("WEIGHTS"))) + ("LMFIT" fun nil (system) "Result = %s( X, Y, A)" (("ALPHA") ("CHISQ") ("CONVERGENCE") ("COVAR") ("DOUBLE") ("FITA") ("FUNCTION_NAME") ("ITER") ("ITMAX") ("ITMIN") ("MEASURE_ERRORS") ("SIGMA") ("TOL"))) ("LMGR" fun nil (system) "Result = %s()" (("CLIENTSERVER") ("DEMO") ("EMBEDDED") ("EXPIRE_DATE") ("FORCE_DEMO") ("INSTALL_NUM") ("LMHOSTID") ("RUNTIME") ("SITE_NOTICE") ("STUDENT") ("TRIAL"))) ("LNGAMMA" fun nil (system) "Result = %s(X)" nil) - ("LNP_TEST" fun nil (system) "Result = %s( X, Y)" (("HIFAC") ("JMAX") ("OFAC") ("WK1") ("WK2"))) + ("LNP_TEST" fun nil (system) "Result = %s( X, Y)" (("DOUBLE") ("HIFAC") ("JMAX") ("OFAC") ("WK1") ("WK2"))) ("LOCALE_GET" fun nil (system) "Result = %s( )" nil) ("LON64ARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) ("LONARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) @@ -815,16 +832,19 @@ ("LU_COMPLEX" fun nil (system) "Result = %s( A, B)" (("DOUBLE") ("INVERSE") ("SPARSE"))) ("LUMPROVE" fun nil (system) "Result = %s( A, Alud, Index, B, X)" (("COLUMN") ("DOUBLE"))) ("LUSOL" fun nil (system) "Result = %s(A, Index, B)" (("COLUMN") ("DOUBLE"))) - ("M_CORRELATE" fun nil (system) "Result = %s(X, Y)" nil) + ("M_CORRELATE" fun nil (system) "Result = %s( X, Y)" (("DOUBLE"))) ("MACHAR" fun nil (system) "Result = %s()" (("DOUBLE"))) ("MAKE_ARRAY" fun nil (system) "Result = %s ( [D1, ..., D8])" (("BYTE") ("COMPLEX") ("DCOMPLEX") ("DIMENSION") ("DOUBLE") ("FLOAT") ("INDEX") ("INT") ("L64") ("LONG") ("NOZERO") ("OBJ") ("PTR") ("SIZE") ("STRING") ("TYPE") ("UINT") ("UL64") ("ULONG") ("VALUE"))) + ("MAP_2POINTS" fun nil (system) "Result = %s( lon0, lat0, lon1, lat1)" (("DPATH") ("METERS") ("MILES") ("NPATH") ("PARAMETERS") ("RADIANS") ("RADIUS") ("RHUMB"))) ("MAP_IMAGE" fun nil (system) "Result = %s( Image [, Startx, Starty [, Xsize, Ysize]])" (("BILINEAR") ("COMPRESS") ("LATMAX") ("LATMIN") ("LONMAX") ("LONMIN") ("MAX_VALUE") ("MIN_VALUE") ("MISSING") ("SCALE"))) ("MAP_PATCH" fun nil (system) "Result = %s( Image_Orig [, Lons, Lats])" (("LAT0") ("LAT1") ("LON0") ("LON1") ("MAX_VALUE") ("MISSING") ("TRIANGULATE") ("XSIZE") ("XSTART") ("YSIZE") ("YSTART"))) + ("MATRIX_MULTIPLY" fun nil (system) "Result = %s( A, B)" (("ATRANSPOSE") ("BTRANSPOSE"))) ("MAX" fun nil (system) "Result = %s( Array [, Max_Subscript])" (("MIN") ("NAN"))) ("MD_TEST" fun nil (system) "Result = %s( X)" (("ABOVE") ("BELOW") ("MDC"))) ("MEAN" fun nil (system) "Result = %s( X)" (("DOUBLE") ("NAN"))) ("MEANABSDEV" fun nil (system) "Result = %s( X)" (("DOUBLE") ("MEDIAN") ("NAN"))) ("MEDIAN" fun nil (system) "Result = %s( Array [, Width])" (("EVEN"))) + ("MEMORY" fun nil (system) "Result = %s()" (("CURRENT") ("HIGHWATER") ("L64") ("NUM_ALLOC") ("NUM_FREE") ("STRUCTURE"))) ("MESH_CLIP" fun nil (system) "Result = %s (Plane, Vertsin, Connin, Vertsout, Connout)" (("AUXDATA_IN") ("AUXDATA_OUT") ("CUT_VERTS"))) ("MESH_DECIMATE" fun nil (system) "Result = %s (Verts, Conn, Connout)" (("PERCENT_POLYGONS") ("PERCENT_VERTICES") ("VERTICES"))) ("MESH_ISSOLID" fun nil (system) "Result = %s (Conn)" nil) @@ -835,7 +855,7 @@ ("MESH_VALIDATE" fun nil (system) "Result = %s ( Verts, Conn)" (("COMBINE_VERTICES") ("PACK_VERTICES") ("REMOVE_NAN") ("TOLERANCE"))) ("MESH_VOLUME" fun nil (system) "Result = %s ( Verts, Conn)" (("SIGNED"))) ("MIN" fun nil (system) "Result = %s( Array [, Min_Subscript])" (("MAX") ("NAN"))) - ("MIN_CURVE_SURF" fun nil (system) "Result = %s(Z [, X, Y])" (("BOUNDS") ("DOUBLE") ("GS") ("NX") ("NY") ("REGULAR") ("TPS") ("XGRID") ("XOUT") ("XPOUT") ("XVALUES") ("YGRID") ("YOUT") ("YPOUT") ("YVALUES"))) + ("MIN_CURVE_SURF" fun nil (system) "Result = %s(Z [, X, Y])" (("BOUNDS") ("CONST") ("DOUBLE") ("GS") ("NX") ("NY") ("REGULAR") ("SPHERE") ("TPS") ("XGRID") ("XOUT") ("XPOUT") ("XVALUES") ("YGRID") ("YOUT") ("YPOUT") ("YVALUES"))) ("MOMENT" fun nil (system) "Result = %s( X)" (("DOUBLE") ("MDEV") ("NAN") ("SDEV"))) ("MORPH_CLOSE" fun nil (system) "Result = %s (Image, Structure)" (("GRAY") ("PRESERVE_TYPE") ("UINT") ("ULONG") ("VALUES"))) ("MORPH_DISTANCE" fun nil (system) "Result = %s (Data)" (("BACKGROUND") ("NEIGHBOR_SAMPLING") ("NO_COPY"))) @@ -844,7 +864,7 @@ ("MORPH_OPEN" fun nil (system) "Result = %s (Image, Structure)" (("GRAY") ("PRESERVE_TYPE") ("UINT") ("ULONG") ("VALUES"))) ("MORPH_THIN" fun nil (system) "Result = %s ( Image, HitStructure, MissStructure )" nil) ("MORPH_TOPHAT" fun nil (system) "Result = %s ( Image, Structure)" (("PRESERVE_TYPE") ("UINT") ("ULONG") ("VALUES"))) - ("MPEG_OPEN" fun nil (system) "mpegID = %s( Dimensions)" (("FILENAME"))) + ("MPEG_OPEN" fun nil (system) "mpegID = %s( Dimensions)" (("BITRATE") ("FILENAME") ("IFRAME_GAP") ("MOTION_VEC_LENGTH") ("QUALITY"))) ("MSG_CAT_OPEN" fun nil (system) "Result = %s( application)" (("DEFAULT_FILENAME") ("FILENAME") ("FOUND") ("LOCALE") ("PATH") ("SUB_QUERY"))) ("N_ELEMENTS" fun nil (system) "Result = %s(Expression)" nil) ("N_PARAMS" fun nil (system) "Result = %s()" nil) @@ -868,16 +888,16 @@ ("OBJ_NEW" fun nil (system) "Result = %s( [ObjectClassName [, Arg1......Argn]] )" nil) ("OBJ_VALID" fun nil (system) "Result = %s( [Arg])" (("CAST") ("COUNT"))) ("OBJARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) - ("P_CORRELATE" fun nil (system) "Result = %s(X, Y, C)" nil) + ("P_CORRELATE" fun nil (system) "Result = %s( X, Y, C)" (("DOUBLE"))) ("PCOMP" fun nil (system) "Result = %s( A)" (("COEFFICIENTS") ("COVARIANCE") ("DOUBLE") ("EIGENVALUES") ("NVARIABLES") ("STANDARDIZE") ("VARIANCES"))) ("PNT_LINE" fun nil (system) "Result = %s( P0, L0, L1 [, Pl])" (("INTERVAL"))) ("POLAR_SURFACE" fun nil (system) "Result = %s( Z, R, Theta)" (("BOUNDS") ("GRID") ("MISSING") ("QUINTIC") ("SPACING"))) ("POLY" fun nil (system) "Result = %s(X, C)" nil) ("POLY_2D" fun nil (system) "Result = %s( Array, P, Q [, Interp [, Dimx, Dimy]])" (("CUBIC") ("MISSING"))) - ("POLY_AREA" fun nil (system) "Result = %s(X, Y)" (("SIGNED"))) - ("POLY_FIT" fun nil (system) "Result = %s( X, Y, NDegree [, Yfit, Yband, Sigma, Corrm])" (("DOUBLE"))) + ("POLY_AREA" fun nil (system) "Result = %s( X, Y)" (("SIGNED"))) + ("POLY_FIT" fun nil (system) "Result = %s( X, Y, Degree)" (("CHISQ") ("COVAR") ("DOUBLE") ("MEASURE_ERRORS") ("SIGMA") ("STATUS") ("YBAND") ("YERROR") ("YFIT"))) ("POLYFILLV" fun nil (system) "Result = %s( X, Y, Sx, Sy [, Run_Length] )" nil) - ("POLYFITW" fun nil (system) "Result = %s(X, Y, Weights, NDegree [, Yfit, Yband, Sigma, Corrm] )" nil) + ("POLYFITW" fun nil (system) "Result = %s(X, Y, Weights, NDegree [, Yfit, Yband, Sigma, Corrm])" (("DOUBLE") ("STATUS"))) ("POLYSHADE" fun nil (system) "Result = %s( Vertices, Polygons) or Result = POLYSHADE(X, Y, Z, Polygons)" (("DATA") ("NORMAL") ("POLY_SHADES") ("SHADES") ("T3D") ("TOP") ("XSIZE") ("YSIZE"))) ("PRIMES" fun nil (system) "Result = %s(K)" nil) ("PROFILE" fun nil (system) "Result = %s( Image [, XX, YY])" (("NOMARK") ("XSTART") ("YSTART"))) @@ -890,7 +910,6 @@ ("QSIMP" fun nil (system) "Result = %s( Func, A, B)" (("DOUBLE") ("EPS") ("JMAX"))) ("QUERY_BMP" fun nil (system) "Result = %s ( Filename [, Info] )" nil) ("QUERY_DICOM" fun nil (system) "Result = %s( Filename [, Info])" (("IMAGE_INDEX"))) - ("QUERY_GIF" fun nil (system) "Result = %s ( Filename [, Info] )" nil) ("QUERY_IMAGE" fun nil (system) "Result = %s ( Filename[, Info])" (("CHANNELS") ("DIMENSIONS") ("HAS_PALETTE") ("IMAGE_INDEX") ("NUM_IMAGES") ("PIXEL_TYPE") ("SUPPORTED_READ") ("SUPPORTED_WRITE") ("TYPE"))) ("QUERY_JPEG" fun nil (system) "Result = %s ( Filename [, Info] )" nil) ("QUERY_PICT" fun nil (system) "Result = %s ( Filename [, Info] )" nil) @@ -901,36 +920,37 @@ ("QUERY_WAV" fun nil (system) "Result = %s ( Filename[, Info] )" nil) ("R_CORRELATE" fun nil (system) "Result = %s( X, Y)" (("D") ("KENDALL") ("PROBD") ("ZD"))) ("R_TEST" fun nil (system) "Result = %s( X)" (("N0") ("N1") ("R"))) - ("RANDOMN" fun nil (system) "Result = %s( Seed [, D1, ..., D8])" (("BINOMIAL") ("GAMMA") ("NORMAL") ("POISSON") ("UNIFORM"))) - ("RANDOMU" fun nil (system) "Result = %s( Seed [, D1, ..., D8])" (("BINOMIAL") ("GAMMA") ("NORMAL") ("POISSON") ("UNIFORM"))) + ("RANDOMN" fun nil (system) "Result = %s( Seed [, D1, ..., D8])" (("BINOMIAL") ("DOUBLE") ("GAMMA") ("LONG") ("NORMAL") ("POISSON") ("UNIFORM"))) + ("RANDOMU" fun nil (system) "Result = %s( Seed [, D1, ..., D8])" (("BINOMIAL") ("DOUBLE") ("GAMMA") ("LONG") ("NORMAL") ("POISSON") ("UNIFORM"))) ("RANKS" fun nil (system) "Result = %s(X)" nil) ("READ_ASCII" fun nil (system) "Result = %s( [Filename])" (("COMMENT_SYMBOL") ("COUNT") ("DATA_START") ("DELIMITER") ("HEADER") ("MISSING_VALUE") ("NUM_RECORDS") ("RECORD_START") ("TEMPLATE") ("VERBOSE"))) ("READ_BINARY" fun nil (system) "Result = %s ([Filename] | FileUnit)" (("DATA_DIMS") ("DATA_START") ("DATA_TYPE") ("ENDIAN") ("TEMPLATE"))) - ("READ_BMP" fun nil (system) "Result = %s( Filename, [, R, G, B [, Ihdr]])" (("RGB"))) + ("READ_BMP" fun nil (system) "Result = %s( Filename, [, R, G, B] [, Ihdr])" (("RGB"))) ("READ_DICOM" fun nil (system) "Result = %s (Filename [, Red, Green, Blue])" (("IMAGE_INDEX"))) - ("READ_IMAGE" fun nil (system) "Result = %s (Filename [, Red, Green, Blue])" (("ALLOWED_FORMATS") ("FORMAT") ("IMAGE_INDEX"))) - ("READ_PNG" fun nil (system) "Result = %s ( Filename[, R, G, B])" (("TRANSPARENT") ("VERBOSE"))) + ("READ_IMAGE" fun nil (system) "Result = %s (Filename [, Red, Green, Blue])" (("IMAGE_INDEX"))) + ("READ_PNG" fun nil (system) "Result = %s ( Filename [, R, G, B])" (("ORDER") ("TRANSPARENT") ("VERBOSE"))) ("READ_SPR" fun nil (system) "Result = %s(Filename)" nil) ("READ_SYLK" fun nil (system) "Result = %s( File)" (("ARRAY") ("COLMAJOR") ("NCOLS") ("NROWS") ("STARTCOL") ("STARTROW") ("USEDOUBLES") ("USELONGS"))) - ("READ_TIFF" fun nil (system) "Result = %s( Filename [, R, G, B])" (("GEOTIFF") ("IMAGE_INDEX") ("ORDER") ("PLANARCONFIG") ("SUB_RECT") ("UNSIGNED") ("VERBOSE"))) + ("READ_TIFF" fun nil (system) "Result = %s( Filename [, R, G, B])" (("CHANNELS") ("GEOTIFF") ("IMAGE_INDEX") ("INTERLEAVE") ("ORDER") ("PLANARCONFIG") ("SUB_RECT") ("UNSIGNED") ("VERBOSE"))) ("READ_WAV" fun nil (system) "Result = %s ( Filename [, Rate] )" nil) ("READ_XWD" fun nil (system) "Result = %s( Filename[, R, G, B] )" nil) ("REBIN" fun nil (system) "Result = %s( Array, D1 [, ..., D8])" (("SAMPLE"))) ("RECALL_COMMANDS" fun nil (system) "Result = %s()" nil) - ("RECON3" fun nil (system) "Result = %s( Images, Obj_Rot, Obj_Pos, Focal, Dist,Vol_Pos, Img_Ref, Img_Mag, Vol_Size)" (("MISSING") ("MODE"))) + ("RECON3" fun nil (system) "Result = %s( Images, Obj_Rot, Obj_Pos, Focal, Dist,Vol_Pos, Img_Ref, Img_Mag, Vol_Size)" (("CUBIC") ("MISSING") ("MODE"))) ("REFORM" fun nil (system) "Result = %s( Array, D1, ..., D8)" (("OVERWRITE"))) - ("REGRESS" fun nil (system) "Result = %s( X, Y, Weights [, Yfit, Const, Sigma, Ftest, R, Rmul, Chisq, Status])" (("RELATIVE_WEIGHT"))) + ("REGRESS" fun nil (system) "Result = %s( X, Y)" (("CHISQ") ("CONST") ("CORRELATION") ("DOUBLE") ("FTEST") ("MCORRELATION") ("MEASURE_ERRORS") ("SIGMA") ("STATUS") ("YFIT"))) ("REPLICATE" fun nil (system) "Result = %s( Value, D1 [, ..., D8] )" nil) - ("REVERSE" fun nil (system) "Result = %s( Array [, Subscript_Index] )" nil) + ("REVERSE" fun nil (system) "Result = %s( Array [, Subscript_Index])" (("OVERWRITE"))) ("RK4" fun nil (system) "Result = %s( Y, Dydx, X, H, Derivs)" (("DOUBLE"))) ("ROBERTS" fun nil (system) "Result = %s(Image)" nil) ("ROT" fun nil (system) "Result = %s( A, Angle, [Mag, X0, Y0])" (("CUBIC") ("INTERP") ("MISSING") ("PIVOT"))) ("ROTATE" fun nil (system) "Result = %s(Array, Direction)" nil) - ("ROUND" fun nil (system) "Result = %s(X)" nil) + ("ROUND" fun nil (system) "Result = %s(X)" (("L64"))) ("ROUTINE_INFO" fun nil (system) "Result = %s( [Routine])" (("DISABLED") ("ENABLED") ("FUNCTIONS") ("PARAMETERS") ("SOURCE") ("SYSTEM") ("UNRESOLVED") ("VARIABLES"))) ("RS_TEST" fun nil (system) "Result = %s( X, Y)" (("UX") ("UY"))) ("RSTRPOS" fun nil (system) "Result = %s( Expression, Search_String [, Pos] )" nil) ("S_TEST" fun nil (system) "Result = %s( X, Y)" (("ZDIFF"))) + ("SAVGOL" fun nil (system) "Result = %s( Nleft, Nright, Order, Degree)" (("DOUBLE"))) ("SEARCH2D" fun nil (system) "Result = %s( Array, Xpos, Ypos, Min_Val, Max_Val)" (("DECREASE") ("DIAGONAL") ("INCREASE") ("LPF_BAND"))) ("SEARCH3D" fun nil (system) "Result = %s( Array, Xpos, Ypos, Zpos, Min_Val, Max_Val)" (("DECREASE") ("DIAGONAL") ("INCREASE") ("LPF_BAND"))) ("SFIT" fun nil (system) "Result = %s( Data, Degree)" (("KX"))) @@ -938,18 +958,20 @@ ("SIN" fun nil (system) "Result = %s(X)" nil) ("SINDGEN" fun nil (system) "Result = %s(D1, ..., D8)" nil) ("SINH" fun nil (system) "Result = %s(X)" nil) - ("SIZE" fun nil (system) "Result = %s( Expression)" (("DIMENSIONS") ("FILE_LUN") ("N_DIMENSIONS") ("N_ELEMENTS") ("STRUCTURE") ("TNAME") ("TYPE"))) + ("SIZE" fun nil (system) "Result = %s( Expression)" (("DIMENSIONS") ("FILE_LUN") ("L64") ("N_DIMENSIONS") ("N_ELEMENTS") ("STRUCTURE") ("TNAME") ("TYPE"))) ("SKEWNESS" fun nil (system) "Result = %s( X)" (("DOUBLE") ("NAN"))) ("SMOOTH" fun nil (system) "Result = %s( Array, Width)" (("EDGE_TRUNCATE") ("NAN"))) ("SOBEL" fun nil (system) "Result = %s(Image)" nil) - ("SORT" fun nil (system) "Result = %s(Array)" nil) + ("SORT" fun nil (system) "Result = %s(Array)" (("L64"))) ("SPH_SCAT" fun nil (system) "Result = %s( Lon, Lat, F)" (("BOUNDS") ("BOUT") ("GOUT") ("GS") ("NLAT") ("NLON"))) + ("SPHER_HARM" fun nil (system) "Result = %s( Theta, Phi, L, M)" (("DOUBLE"))) ("SPL_INIT" fun nil (system) "Result = %s( X, Y)" (("DOUBLE") ("YP0") ("YPN_1"))) ("SPL_INTERP" fun nil (system) "Result = %s( X, Y, Y2, X2)" (("DOUBLE"))) ("SPLINE" fun nil (system) "Result = %s( X, Y, T [, Sigma] )" nil) - ("SPRSAB" fun nil (system) "Result = %s( A, B)" (("DOUBLE") ("THRESH"))) + ("SPRSAB" fun nil (system) "Result = %s( A, B)" (("DOUBLE") ("THRESHOLD"))) ("SPRSAX" fun nil (system) "Result = %s( A, X)" (("DOUBLE"))) - ("SPRSIN" fun nil (system) "Result = %s( A)" (("COLUMN") ("DOUBLE") ("THRESH"))) + ("SPRSIN" fun nil (system) "Result = %s( A)" (("COLUMN") ("DOUBLE") ("THRESHOLD"))) + ("SPRSTP" fun nil (system) "Result = %s(A)" nil) ("SQRT" fun nil (system) "Result = %s(X)" nil) ("STANDARDIZE" fun nil (system) "Result = %s( A)" (("DOUBLE"))) ("STDDEV" fun nil (system) "Result = %s( X)" (("DOUBLE") ("NAN"))) @@ -969,10 +991,10 @@ ("STRSPLIT" fun nil (system) "Result = %s( String [, Pattern])" (("ESCAPE") ("EXTRACT") ("FOLD_CASE") ("LENGTH") ("PRESERVE_NULL") ("REGEX"))) ("STRTRIM" fun nil (system) "Result = %s( String [, Flag] )" nil) ("STRUPCASE" fun nil (system) "Result = %s(String)" nil) - ("SVDFIT" fun nil (system) "Result = %s( X, Y [, M])" (("A") ("CHISQ") ("COVAR") ("DOUBLE") ("FUNCTION_NAME") ("LEGENDRE") ("SIGMA") ("SINGULAR") ("VARIANCE") ("WEIGHTS") ("YFIT"))) + ("SVDFIT" fun nil (system) "Result = %s( X, Y [, M])" (("A") ("CHISQ") ("COVAR") ("DOUBLE") ("FUNCTION_NAME") ("LEGENDRE") ("MEASURE_ERRORS") ("SIGMA") ("SINGULAR") ("VARIANCE") ("YFIT"))) ("SVSOL" fun nil (system) "Result = %s( U, W, V, B)" (("COLUMN") ("DOUBLE"))) ("SWAP_ENDIAN" fun nil (system) "Result = %s(Variable)" nil) - ("SYSTIME" fun nil (system) "Result = %s(Arg)" (("JULIAN") ("SECONDS"))) + ("SYSTIME" fun nil (system) "String = %s( [0 [, ElaspedSeconds]])" (("JULIAN") ("SECONDS") ("UTC"))) ("T_CVF" fun nil (system) "Result = %s(P, Df)" nil) ("T_PDF" fun nil (system) "Result = %s(V, Df)" nil) ("TAG_NAMES" fun nil (system) "Result = %s( Expression)" (("STRUCTURE_NAME"))) @@ -984,15 +1006,16 @@ ("TETRA_VOLUME" fun nil (system) "Result = %s ( Verts, Conn)" (("AUXDATA") ("MOMENT"))) ("THIN" fun nil (system) "Result = %s( Image)" (("NEIGHBOR_COUNT") ("PRUNE"))) ("TIFF_READ" fun nil (system) "Result = %s(File [, R, G, B])" nil) + ("TIMEGEN" fun nil (system) "Result = %s( [D1,...,D8])" (("DAYS") ("FINAL") ("HOURS") ("MINUTES") ("MONTHS") ("SECONDS") ("START") ("STEP_SIZE") ("UNITS") ("YEAR"))) ("TM_TEST" fun nil (system) "Result = %s( X, Y)" (("PAIRED") ("UNEQUAL"))) ("TOTAL" fun nil (system) "Result = %s( Array [, Dimension])" (("CUMULATIVE") ("DOUBLE") ("NAN"))) ("TRACE" fun nil (system) "Result = %s( A)" (("DOUBLE"))) ("TRANSPOSE" fun nil (system) "Result = %s( Array [, P] )" nil) ("TRI_SURF" fun nil (system) "Result = %s( Z [, X, Y])" (("BOUNDS") ("EXTRAPOLATE") ("GS") ("MISSING") ("NX") ("NY") ("REGULAR") ("XGRID") ("XVALUES") ("YGRID") ("YVALUES"))) - ("TRIGRID" fun nil (system) "Result = %s( X, Y, Z, Triangles [, GS, Limits] ) For spherical gridding: Result = TRIGRID( F , GS, Limits)" (("DEGREES") ("EXTRAPOLATE") ("INPUT") ("MAX_VALUE") ("MIN_VALUE") ("MISSING") ("NX") ("NY") ("QUINTIC") ("SPHERE") ("XGRID") ("YGRID"))) + ("TRIGRID" fun nil (system) "Result = %s( X, Y, Z, Triangles [, GS, Limits] ) For spherical gridding: Result = TRIGRID( F , GS, Limits)" (("DEGREES") ("EXTRAPOLATE") ("INPUT") ("MAX_VALUE") ("MIN_VALUE") ("MISSING") ("NX") ("NY") ("QUINTIC") ("SPHERE") ("XGRID") ("XOUT") ("YGRID") ("YOUT"))) ("TRISOL" fun nil (system) "Result = %s( A, B, C, R)" (("DOUBLE"))) ("TRNLOG" fun nil (system) "Result = %s( Lognam, Value)" (("ACMODE") ("FULL_TRANSLATION") ("ISSUE_ERROR") ("RESULT_ACMODE") ("RESULT_TABLE") ("TABLE"))) - ("TS_COEF" fun nil (system) "Result = %s( X, P)" (("MSE"))) + ("TS_COEF" fun nil (system) "Result = %s( X, P)" (("DOUBLE") ("MSE"))) ("TS_DIFF" fun nil (system) "Result = %s( X, K)" (("DOUBLE"))) ("TS_FCAST" fun nil (system) "Result = %s( X, P, Nvalues)" (("BACKCAST") ("DOUBLE"))) ("TS_SMOOTH" fun nil (system) "Result = %s( X, Nvalues)" (("BACKWARD") ("DOUBLE") ("FORWARD") ("ORDER"))) @@ -1002,12 +1025,12 @@ ("UINTARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) ("UL64INDGEN" fun nil (system) "Result = %s(D1, ..., D8)" nil) ("ULINDGEN" fun nil (system) "Result = %s(D1, ..., D8)" nil) - ("ULON64ARR" fun nil (system) "Result = %s(D1, ..., D8)" (("NOZERO"))) + ("ULON64ARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) ("ULONARR" fun nil (system) "Result = %s( D1, ..., D8)" (("NOZERO"))) ("ULONG" fun nil (system) "Result = %s( Expression[, Offset [, Dim1, ..., Dim8]] )" nil) ("ULONG64" fun nil (system) "Result = %s( Expression[, Offset [, Dim1, ..., Dim8]] )" nil) ("UNIQ" fun nil (system) "Result = %s( Array [, Index] )" nil) - ("VALUE_LOCATE" fun nil (system) "Result = %s ( Vector, Value )" nil) + ("VALUE_LOCATE" fun nil (system) "Result = %s ( Vector, Value)" (("L64"))) ("VARIANCE" fun nil (system) "Result = %s( X)" (("DOUBLE") ("NAN"))) ("VAX_FLOAT" fun nil (system) "Result = %s( [Default])" (("FILE_UNIT"))) ("VERT_T3D" fun nil (system) "Result = %s( Vertex_List)" (("MATRIX") ("NO_COPY") ("NO_DIVIDE") ("SAVE_DIVIDE"))) @@ -1015,11 +1038,11 @@ ("VOXEL_PROJ" fun nil (system) "Result = %s( V [, RGBO])" (("BACKGROUND") ("CUTTING_PLANE") ("INTERPOLATE") ("MAXIMUM_INTENSITY") ("STEP") ("XSIZE") ("YSIZE") ("ZBUFFER") ("ZPIXELS"))) ("WARP_TRI" fun nil (system) "Result = %s( Xo, Yo, Xi, Yi, Image)" (("EXTRAPOLATE") ("OUTPUT_SIZE") ("QUINTIC"))) ("WATERSHED" fun nil (system) "Result = %s ( Image)" (("CONNECTIVITY"))) - ("WHERE" fun nil (system) "Result = %s( Array_Expression [, Count] )" nil) + ("WHERE" fun nil (system) "Result = %s( Array_Expression [, Count])" (("COMPLEMENT") ("L64") ("NCOMPLEMENT"))) ("WIDGET_BASE" fun nil (system) "Result = %s( [Parent])" (("ALIGN_BOTTOM") ("ALIGN_CENTER") ("ALIGN_LEFT") ("ALIGN_RIGHT") ("ALIGN_TOP") ("APP_MBAR") ("BASE_ALIGN_BOTTOM") ("BASE_ALIGN_CENTER") ("BASE_ALIGN_LEFT") ("BASE_ALIGN_RIGHT") ("BASE_ALIGN_TOP") ("COLUMN") ("DISPLAY_NAME") ("EVENT_FUNC") ("EVENT_PRO") ("EXCLUSIVE") ("FLOATING") ("FRAME") ("FUNC_GET_VALUE") ("GRID_LAYOUT") ("GROUP_LEADER") ("KBRD_FOCUS_EVENTS") ("KILL_NOTIFY") ("MAP") ("MBAR") ("MODAL") ("NO_COPY") ("NONEXCLUSIVE") ("NOTIFY_REALIZE") ("PRO_SET_VALUE") ("RESOURCE_NAME") ("RNAME_MBAR") ("ROW") ("SCR_XSIZE") ("SCR_YSIZE") ("SCROLL") ("SENSITIVE") ("SPACE") ("TITLE") ("TLB_FRAME_ATTR") ("TLB_KILL_REQUEST_EVENTS") ("TLB_SIZE_EVENTS") ("TRACKING_EVENTS") ("UNAME") ("UNITS") ("UVALUE") ("X_SCROLL_SIZE") ("XOFFSET") ("XPAD") ("XSIZE") ("Y_SCROLL_SIZE") ("YOFFSET") ("YPAD") ("YSIZE"))) ("WIDGET_BUTTON" fun nil (system) "Result = %s( Parent)" (("ALIGN_CENTER") ("ALIGN_LEFT") ("ALIGN_RIGHT") ("BITMAP") ("DYNAMIC_RESIZE") ("EVENT_FUNC") ("EVENT_PRO") ("FONT") ("FRAME") ("FUNC_GET_VALUE") ("GROUP_LEADER") ("HELP") ("KILL_NOTIFY") ("MENU") ("NO_COPY") ("NO_RELEASE") ("NOTIFY_REALIZE") ("PRO_SET_VALUE") ("RESOURCE_NAME") ("SCR_XSIZE") ("SCR_YSIZE") ("SENSITIVE") ("SEPARATOR") ("TRACKING_EVENTS") ("UNAME") ("UNITS") ("UVALUE") ("VALUE") ("X_BITMAP_EXTRA") ("XOFFSET") ("XSIZE") ("YOFFSET") ("YSIZE"))) ("WIDGET_DRAW" fun nil (system) "Result = %s(Parent)" (("APP_SCROLL") ("BUTTON_EVENTS") ("COLOR_MODEL") ("COLORS") ("EVENT_FUNC") ("EVENT_PRO") ("EXPOSE_EVENTS") ("FRAME") ("FUNC_GET_VALUE") ("GRAPHICS_LEVEL") ("GROUP_LEADER") ("KILL_NOTIFY") ("MOTION_EVENTS") ("NO_COPY") ("NOTIFY_REALIZE") ("PRO_SET_VALUE") ("RENDERER") ("RESOURCE_NAME") ("RETAIN") ("SCR_XSIZE") ("SCR_YSIZE") ("SCROLL") ("SENSITIVE") ("TRACKING_EVENTS") ("UNAME") ("UNITS") ("UVALUE") ("VALUE") ("VIEWPORT_EVENTS") ("X_SCROLL_SIZE") ("XOFFSET") ("XSIZE") ("Y_SCROLL_SIZE") ("YOFFSET") ("YSIZE"))) - ("WIDGET_DROPLIST" fun nil (system) "Result = %s( Parent)" (("DYNAMIC_RESIZE") ("EVENT_FUNC") ("EVENT_PRO") ("FRAME") ("FUNC_GET_VALUE") ("GROUP_LEADER") ("KILL_NOTIFY") ("NO_COPY") ("NOTIFY_REALIZE") ("PRO_SET_VALUE") ("RESOURCE_NAME") ("SCR_XSIZE") ("SCR_YSIZE") ("SENSITIVE") ("TITLE") ("TRACKING_EVENTS") ("UNAME") ("UNITS") ("UVALUE") ("VALUE") ("XOFFSET") ("XSIZE") ("YOFFSET") ("YSIZE"))) + ("WIDGET_DROPLIST" fun nil (system) "Result = %s( Parent)" (("DYNAMIC_RESIZE") ("EVENT_FUNC") ("EVENT_PRO") ("FONT") ("FRAME") ("FUNC_GET_VALUE") ("GROUP_LEADER") ("KILL_NOTIFY") ("NO_COPY") ("NOTIFY_REALIZE") ("PRO_SET_VALUE") ("RESOURCE_NAME") ("SCR_XSIZE") ("SCR_YSIZE") ("SENSITIVE") ("TITLE") ("TRACKING_EVENTS") ("UNAME") ("UNITS") ("UVALUE") ("VALUE") ("XOFFSET") ("XSIZE") ("YOFFSET") ("YSIZE"))) ("WIDGET_EVENT" fun nil (system) "Result = %s([Widget_ID])" (("BAD_ID") ("NOWAIT") ("SAVE_HOURGLASS") ("YIELD_TO_TTY"))) ("WIDGET_INFO" fun nil (system) "Result = %s( [Widget_ID] )" (("ACTIVE") ("CHILD") ("COLUMN_WIDTHS") ("DRAW_BUTTON_EVENTS") ("DRAW_EXPOSE_EVENTS") ("DRAW_MOTION_EVENTS") ("DRAW_VIEWPORT_EVENTS") ("DROPLIST_NUMBER") ("DROPLIST_SELECT") ("DYNAMIC_RESIZE") ("EVENT_FUNC") ("EVENT_PRO") ("FIND_BY_UNAME") ("GEOMETRY") ("KBRD_FOCUS_EVENTS") ("LIST_MULTIPLE") ("LIST_NUM_VISIBLE") ("LIST_NUMBER") ("LIST_SELECT") ("LIST_TOP") ("MANAGED") ("MODAL") ("NAME") ("PARENT") ("REALIZED") ("ROW_HEIGHTS") ("SIBLING") ("SLIDER_MIN_MAX") ("TABLE_ALL_EVENTS") ("TABLE_EDIT_CELL") ("TABLE_EDITABLE") ("TABLE_SELECT") ("TABLE_VIEW") ("TEXT_ALL_EVENTS") ("TEXT_EDITABLE") ("TEXT_NUMBER") ("TEXT_OFFSET_TO_XY") ("TEXT_SELECT") ("TEXT_TOP_LINE") ("TEXT_XY_TO_OFFSET") ("TLB_KILL_REQUEST_EVENTS") ("TRACKING_EVENTS") ("TYPE") ("UNAME") ("UNITS") ("UPDATE") ("USE_TABLE_SELECT") ("VALID_ID") ("VERSION"))) ("WIDGET_LABEL" fun nil (system) "Result = %s( Parent)" (("ALIGN_CENTER") ("ALIGN_LEFT") ("ALIGN_RIGHT") ("DYNAMIC_RESIZE") ("FONT") ("FRAME") ("FUNC_GET_VALUE") ("GROUP_LEADER") ("KILL_NOTIFY") ("NO_COPY") ("NOTIFY_REALIZE") ("PRO_SET_VALUE") ("RESOURCE_NAME") ("SCR_XSIZE") ("SCR_YSIZE") ("SENSITIVE") ("TRACKING_EVENTS") ("UNAME") ("UNITS") ("UVALUE") ("VALUE") ("XOFFSET") ("XSIZE") ("YOFFSET") ("YSIZE"))) @@ -1029,7 +1052,7 @@ ("WIDGET_TEXT" fun nil (system) "Result = %s( Parent)" (("ALL_EVENTS") ("EDITABLE") ("EVENT_FUNC") ("EVENT_PRO") ("FONT") ("FRAME") ("FUNC_GET_VALUE") ("GROUP_LEADER") ("KBRD_FOCUS_EVENTS") ("KILL_NOTIFY") ("NO_COPY") ("NO_NEWLINE") ("NOTIFY_REALIZE") ("PRO_SET_VALUE") ("RESOURCE_NAME") ("SCR_XSIZE") ("SCR_YSIZE") ("SCROLL") ("SENSITIVE") ("TRACKING_EVENTS") ("UNAME") ("UNITS") ("UVALUE") ("VALUE") ("WRAP") ("XOFFSET") ("XSIZE") ("YOFFSET") ("YSIZE"))) ("WRITE_SYLK" fun nil (system) "Result = %s( File, Data)" (("STARTCOL") ("STARTROW"))) ("WTN" fun nil (system) "Result = %s( A, Coef)" (("COLUMN") ("DOUBLE") ("INVERSE") ("OVERWRITE"))) - ("XFONT" fun nil (system) "Result = %s()" (("GROUP") ("PRESERVE"))) + ("XFONT" fun nil (system) "Result = %s()" (("GROUP") ("PRESERVE_FONT_INFO"))) ("XREGISTERED" fun nil (system) "Result = %s(Name)" (("NO_SHOW"))) ("XSQ_TEST" fun nil (system) "Result = %s( Obfreq, Exfreq)" (("EXCELL") ("OBCELL") ("RESIDUAL"))) ("Add" pro "IDL_Container" (system) "Obj -> [%s::]%s, Object" (("POSITION"))) @@ -1038,21 +1061,21 @@ ("Remove" pro "IDL_Container" (system) "Obj -> [%s::]%s [, Child_object]" (("ALL") ("POSITION"))) ("Count" fun "IDL_Container" (system) "Result = Obj -> [%s::]%s()" nil) ("Get" fun "IDL_Container" (system) "Result = Obj -> [%s::]%s ()" (("ALL") ("COUNT") ("ISA") ("POSITION"))) - ("Init" fun "IDL_Container" (system) "Result = Obj -> [%s::]%s()" nil) + ("Init" fun "IDL_Container" (system) "Result = Obj -> [%s::]%s( ) ('IDL_Container')" nil) ("IsContained" fun "IDL_Container" (system) "Result = Obj -> [%s::]%s( Object)" (("POSITION"))) ("AppendData" pro "IDLanROI" (system) "Obj->[%s::]%s, X [, Y] [, Z]" (("XRANGE") ("YRANGE") ("ZRANGE"))) ("Cleanup" pro "IDLanROI" (system) "Obj->[%s::]%s" nil) - ("GetProperty" pro "IDLanROI" (system) "Obj->[%s::]%s" (("ALL") ("BLOCKSIZE") ("DATA") ("INTERIOR") ("ROI_XRANGE") ("ROI_YRANGE") ("ROI_ZRANGE") ("TYPE"))) + ("GetProperty" pro "IDLanROI" (system) "Obj->[%s::]%s" (("ALL") ("BLOCKSIZE") ("DATA") ("DOUBLE") ("INTERIOR") ("N_VERTS") ("ROI_XRANGE") ("ROI_YRANGE") ("ROI_ZRANGE") ("TYPE"))) ("RemoveData" pro "IDLanROI" (system) "Obj->[%s::]%s" (("COUNT") ("START") ("XRANGE") ("YRANGE") ("ZRANGE"))) ("ReplaceData" pro "IDLanROI" (system) "Obj->[%s::]%s, X[, Y[, Z]]" (("FINISH") ("START") ("XRANGE") ("YRANGE") ("ZRANGE"))) ("Rotate" pro "IDLanROI" (system) "Obj->[%s::]%s, Axis, Angle" (("CENTER"))) ("Scale" pro "IDLanROI" (system) "Obj->[%s::]%s, Sx[, Sy[, Sz]]" nil) - ("SetProperty" pro "IDLanROI" (system) "Obj->[%s::]%s" (("BLOCKSIZE") ("DATA") ("INTERIOR"))) + ("SetProperty" pro "IDLanROI" (system) "Obj->[%s::]%s" (("BLOCKSIZE") ("DATA") ("DOUBLE") ("INTERIOR"))) ("Translate" pro "IDLanROI" (system) "Obj->[%s::]%s, Tx[, Ty[, Tz]]" nil) - ("ComputeGeometry" fun "IDLanROI" (system) "Result = Obj->[%s::]%s" (("AREA") ("CENTROID") ("PERIMETER") ("SPATIAL_OFFSET") ("SPATIAL_SCALE"))) + ("ComputeGeometry" fun "IDLanROI" (system) "Result = Obj->[%s::]%s()" (("AREA") ("CENTROID") ("PERIMETER") ("SPATIAL_OFFSET") ("SPATIAL_SCALE"))) ("ComputeMask" fun "IDLanROI" (system) "Result = Obj->[%s::]%s()" (("DIMENSIONS") ("INITIALIZE") ("LOCATION") ("MASK_IN") ("MASK_RULE") ("PLANE_NORMAL") ("PLANE_XAXIS"))) ("ContainsPoints" fun "IDLanROI" (system) "Result = Obj->[%s::]%s( X [, Y [, Z]] )" nil) - ("Init" fun "IDLanROI" (system) "Result = Obj ->[%s::]%s( [X [, Y [, Z]]])" (("BLOCKSIZE") ("DATA") ("INTERIOR") ("TYPE"))) + ("Init" fun "IDLanROI" (system) "Result = Obj -> [%s::]%s( [X [, Y [, Z ]]] ) ( 'IDLanROI' [, X [, Y [, Z]]])" (("BLOCKSIZE") ("DATA") ("DOUBLE") ("INTERIOR") ("TYPE"))) ("Add" pro "IDLanROIGroup" (system) "Obj->[%s::]%s, ROI" nil) ("Cleanup" pro "IDLanROIGroup" (system) "Obj->[%s::]%s" nil) ("GetProperty" pro "IDLanROIGroup" (system) "Obj->[%s::]%s" (("ALL") ("ROIGROUP_XRANGE") ("ROIGROUP_YRANGE") ("ROIGROUP_ZRANGE"))) @@ -1062,7 +1085,7 @@ ("ComputeMask" fun "IDLanROIGroup" (system) "Result = Obj->[%s::]%s()" (("DIMENSIONS") ("INITIALIZE") ("LOCATION") ("MASK_IN") ("MASK_RULE"))) ("ComputeMesh" fun "IDLanROIGroup" (system) "Result = Obj->[%s::]%s( Vertices, Conn)" (("CAPPED") ("SURFACE_AREA"))) ("ContainsPoints" fun "IDLanROIGroup" (system) "Result = Obj->[%s::]%s( X[, Y[, Z]] )" nil) - ("Init" fun "IDLanROIGroup" (system) "Result = Obj ->[%s::]%s()" nil) + ("Init" fun "IDLanROIGroup" (system) "Result = Obj->[%s::]%s( ) ('IDLanROIGroup')" nil) ("Connect" pro "IDLdbDatabase" (system) "DBobj ->[%s::]%s" (("CONNECTION") ("DATASOURCE") ("PASSWORD") ("USER_ID"))) ("ExecuteSQL" pro "IDLdbDatabase" (system) "DBobj->ExecuteSQL, strSQL" nil) ("GetProperty" pro "IDLdbDatabase" (system) "DBobj->GetProperty" (("CAN_GET_TABLES") ("DBMS_NAME") ("DBMS_VERSION") ("DRIVER_ODBC_LEVEL") ("DRIVER_VERSION") ("IS_CONNECTED") ("IS_READONLY") ("MAX_CONNECTIONS") ("MAX_RECORDSETS") ("ODBC_LEVEL") ("SQL_LEVEL") ("SQL_SERVER_NAME") ("USE_CURSOR_LIB") ("USER_NAME"))) @@ -1091,7 +1114,7 @@ ("GetReference" fun "IDLffDICOM" (system) "array = Obj -> [%s::]%s( [Group [, Element]])" (("DESCRIPTION") ("VR"))) ("GetValue" fun "IDLffDICOM" (system) "ptrArray = Obj -> [%s::]%s( [Group [, Element]])" (("NO_COPY") ("REFERENCE"))) ("GetVR" fun "IDLffDICOM" (system) "array = Obj -> [%s::]%s( [Group [, Element]])" (("REFERENCE"))) - ("Init" fun "IDLffDICOM" (system) "Result = Obj -> [%s::]%s( [ Filename])" (("VERBOSE"))) + ("Init" fun "IDLffDICOM" (system) "Result = Obj -> [%s::]%s( [Filename])" (("VERBOSE"))) ("Read" fun "IDLffDICOM" (system) "Result = Obj -> [%s::]%s( Filename)" (("ENDIAN"))) ("Cleanup" pro "IDLffDXF" (system) "Obj -> [%s::]%s" nil) ("GetPalette" pro "IDLffDXF" (system) "Obj-> [%s::]%s, Red, Green, Blue" nil) @@ -1101,68 +1124,79 @@ ("SetPalette" pro "IDLffDXF" (system) "Obj-> [%s::]%s, Red, Green, Blue" nil) ("GetContents" fun "IDLffDXF" (system) "Result = Obj-> [%s::]%s( [Filter])" (("BLOCK") ("COUNT") ("LAYER"))) ("GetEntity" fun "IDLffDXF" (system) "Result = Obj-> [%s::]%s( Type)" (("BLOCK") ("INDEX") ("LAYER"))) - ("Init" fun "IDLffDXF" (system) "Result = Obj -> [%s::]%s([ Filename])))" nil) + ("Init" fun "IDLffDXF" (system) "Result = Obj -> [%s::]%s( [Filename] ) ('IDLffDXF' [, Filename] )" nil) ("Read" fun "IDLffDXF" (system) "Result = Obj-> [%s::]%s( Filename )" nil) ("Write" fun "IDLffDXF" (system) "Result = Obj-> [%s::]%s( Filename )" nil) ("IsValid" fun "IDLffLanguageCat" (system) "Result = Obj ->[%s::]%s( )" nil) ("Query" fun "IDLffLanguageCat" (system) "Result = Obj ->[%s::]%s( key)" (("DEFAULT_STRING"))) ("SetCatalog" fun "IDLffLanguageCat" (system) "Result = Obj ->[%s::]%s( application)" (("FILENAME") ("LOCALE") ("PATH"))) + ("AddAttribute" pro "IDLffShape" (system) "Obj->[%s::]%s, Name, Type, Width" (("PRECISION"))) + ("Cleanup" pro "IDLffShape" (system) "Obj -> [%s::]%s" nil) + ("Close" pro "IDLffShape" (system) "Obj->[%s::]%s" nil) + ("DestroyEntity" pro "IDLffShape" (system) "Obj->[%s::]%s, Entity" nil) + ("GetProperty" pro "IDLffShape" (system) "Obj->[%s::]%s" (("ATTRIBUTE_INFO") ("ATTRIBUTE_NAMES") ("ENTITY_TYPE") ("FILENAME") ("IS_OPEN") ("N_ATTRIBUTES") ("N_ENTITIES"))) + ("PutEntity" pro "IDLffShape" (system) "Obj->[%s::]%s, Data" nil) + ("SetAttributes" pro "IDLffShape" (system) "Obj->[%s::]%s, Index, Attribute_Num, Value or Obj->[IDLffShape::]SetAttributes, Index, Attributes" nil) + ("GetAttributes" fun "IDLffShape" (system) "Result = Obj->[%s::]%s([Index])" (("ALL") ("ATTRIBUTE_STRUCTURE"))) + ("GetEntity" fun "IDLffShape" (system) "Result = Obj->[%s::]%s( [Index])" (("ALL") ("ATTRIBUTES"))) + ("Init" fun "IDLffShape" (system) "Result = Obj -> [%s::]%s()" nil) + ("Open" fun "IDLffShape" (system) "Result = Obj->[%s::]%s( `Filename')" (("ENTITY_TYPE") ("UPDATE"))) ("Cleanup" pro "IDLgrAxis" (system) "Obj -> [%s::]%s" nil) - ("GetProperty" pro "IDLgrAxis" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR") ("CRANGE") ("DIRECTION") ("EXACT") ("EXTEND") ("GRIDSTYLE") ("HIDE") ("LOCATION") ("LOG") ("MAJOR") ("MINOR") ("NAME") ("NOTEXT") ("PALETTE") ("PARENT") ("RANGE") ("SUBTICKLEN") ("TEXTALIGNMENTS") ("TEXTBASELINE") ("TEXTPOS") ("TEXTUPDIR") ("THICK") ("TICKDIR") ("TICKFORMAT") ("TICKFRMTDATA") ("TICKLEN") ("TICKTEXT") ("TICKVALUES") ("TITLE") ("USE_TEXT_COLOR") ("UVALUE") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) - ("SetProperty" pro "IDLgrAxis" (system) "Obj -> [%s::]%s" (("COLOR") ("DIRECTION") ("EXACT") ("EXTEND") ("GRIDSTYLE") ("HIDE") ("LOCATION") ("LOG") ("MAJOR") ("MINOR") ("NAME") ("NOTEXT") ("PALETTE") ("RANGE") ("SUBTICKLEN") ("TEXTALIGNMENTS") ("TEXTBASELINE") ("TEXTPOS") ("TEXTUPDIR") ("THICK") ("TICKDIR") ("TICKFORMAT") ("TICKFRMTDATA") ("TICKLEN") ("TICKTEXT") ("TICKVALUES") ("TITLE") ("USE_TEXT_COLOR") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("GetProperty" pro "IDLgrAxis" (system) "Obj -> [%s::]%s" (("ALL") ("AM_PM") ("COLOR") ("CRANGE") ("DAYS_OF_WEEK") ("DIRECTION") ("EXACT") ("EXTEND") ("GRIDSTYLE") ("HIDE") ("LOCATION") ("LOG") ("MAJOR") ("MINOR") ("MONTHS") ("NAME") ("NOTEXT") ("PALETTE") ("PARENT") ("RANGE") ("SUBTICKLEN") ("TEXTALIGNMENTS") ("TEXTBASELINE") ("TEXTPOS") ("TEXTUPDIR") ("THICK") ("TICKDIR") ("TICKFORMAT") ("TICKFRMTDATA") ("TICKINTERVAL") ("TICKLAYOUT") ("TICKLEN") ("TICKTEXT") ("TICKUNITS") ("TICKVALUES") ("TITLE") ("USE_TEXT_COLOR") ("UVALUE") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) + ("SetProperty" pro "IDLgrAxis" (system) "Obj -> [%s::]%s" (("AM_PM") ("COLOR") ("DAYS_OF_WEEK") ("DIRECTION") ("EXACT") ("EXTEND") ("GRIDSTYLE") ("HIDE") ("LOCATION") ("LOG") ("MAJOR") ("MINOR") ("MONTHS") ("NAME") ("NOTEXT") ("PALETTE") ("RANGE") ("SUBTICKLEN") ("TEXTALIGNMENTS") ("TEXTBASELINE") ("TEXTPOS") ("TEXTUPDIR") ("THICK") ("TICKDIR") ("TICKFORMAT") ("TICKFRMTDATA") ("TICKINTERVAL") ("TICKLAYOUT") ("TICKLEN") ("TICKTEXT") ("TICKUNITS") ("TICKVALUES") ("TITLE") ("USE_TEXT_COLOR") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("GetCTM" fun "IDLgrAxis" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrAxis" (system) "Result = Obj -> [%s::]%s([Direction])" (("COLOR") ("DIRECTION") ("EXACT") ("EXTEND") ("GRIDSTYLE") ("HIDE") ("LOCATION") ("LOG") ("MAJOR") ("MINOR") ("NAME") ("NOTEXT") ("PALETTE") ("RANGE") ("SUBTICKLEN") ("TEXTALIGNMENTS") ("TEXTBASELINE") ("TEXTPOS") ("TEXTUPDIR") ("THICK") ("TICKDIR") ("TICKFORMAT") ("TICKFRMTDATA") ("TICKLEN") ("TICKTEXT") ("TICKVALUES") ("TITLE") ("USE_TEXT_COLOR") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("Init" fun "IDLgrAxis" (system) "Result = Obj -> [%s::]%s( [Direction] ) ('IDLgrAxis' [, Direction])" (("AM_PM") ("COLOR") ("DAYS_OF_WEEK") ("DIRECTION") ("EXACT") ("EXTEND") ("GRIDSTYLE") ("HIDE") ("LOCATION") ("LOG") ("MAJOR") ("MINOR") ("MONTHS") ("NAME") ("NOTEXT") ("PALETTE") ("RANGE") ("SUBTICKLEN") ("TEXTALIGNMENTS") ("TEXTBASELINE") ("TEXTPOS") ("TEXTUPDIR") ("THICK") ("TICKDIR") ("TICKFORMAT") ("TICKFRMTDATA") ("TICKINTERVAL") ("TICKLAYOUT") ("TICKLEN") ("TICKTEXT") ("TICKUNITS") ("TICKVALUES") ("TITLE") ("USE_TEXT_COLOR") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("Cleanup" pro "IDLgrBuffer" (system) "Obj -> [%s::]%s" nil) ("Draw" pro "IDLgrBuffer" (system) "Obj -> [%s::]%s [, Picture]" (("CREATE_INSTANCE") ("DRAW_INSTANCE"))) ("Erase" pro "IDLgrBuffer" (system) "Obj -> [%s::]%s" (("COLOR"))) + ("GetDeviceInfo" pro "IDLgrBuffer" (system) "Obj->[%s::]%s" (("ALL") ("MAX_TEXTURE_DIMENSIONS") ("MAX_VIEWPORT_DIMENSIONS") ("NAME") ("NUM_CPUS") ("VENDOR") ("VERSION"))) ("GetProperty" pro "IDLgrBuffer" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR_MODEL") ("DIMENSIONS") ("GRAPHICS_TREE") ("IMAGE_DATA") ("N_COLORS") ("PALETTE") ("QUALITY") ("RESOLUTION") ("SCREEN_DIMENSIONS") ("UNITS") ("UVALUE") ("ZBUFFER_DATA"))) ("SetProperty" pro "IDLgrBuffer" (system) "Obj -> [%s::]%s" (("DIMENSIONS") ("GRAPHICS_TREE") ("PALETTE") ("QUALITY") ("RESOLUTION") ("UNITS") ("UVALUE"))) ("GetContiguousPixels" fun "IDLgrBuffer" (system) "Return = Obj -> [%s::]%s()" nil) - ("GetDeviceInfo" fun "IDLgrBuffer" (system) "Result = Obj->[%s::]%s()" (("ALL") ("MAX_TEXTURE_DIMENSIONS") ("MAX_VIEWPORT_DIMENSIONS") ("NAME") ("NUM_CPUS") ("VENDOR") ("VERSION"))) ("GetFontnames" fun "IDLgrBuffer" (system) "Return = Obj -> [%s::]%s( FamilyName)" (("IDL_FONTS") ("STYLES"))) ("GetTextDimensions" fun "IDLgrBuffer" (system) "Result = Obj ->[%s::]%s( TextObj)" (("DESCENT") ("PATH"))) - ("Init" fun "IDLgrBuffer" (system) "Result = Obj -> [%s::]%s()" (("COLOR_MODEL") ("DIMENSIONS") ("GRAPHICS_TREE") ("N_COLORS") ("PALETTE") ("QUALITY") ("RESOLUTION") ("UNITS") ("UVALUE"))) + ("Init" fun "IDLgrBuffer" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrBuffer')" (("COLOR_MODEL") ("DIMENSIONS") ("GRAPHICS_TREE") ("N_COLORS") ("PALETTE") ("QUALITY") ("RESOLUTION") ("UNITS") ("UVALUE"))) ("PickData" fun "IDLgrBuffer" (system) "Result = Obj -> [%s::]%s( View, Object, Location, XYZLocation)" (("PATH"))) ("Read" fun "IDLgrBuffer" (system) "Result = Obj -> [%s::]%s()" nil) ("Select" fun "IDLgrBuffer" (system) "Result = Obj -> [%s::]%s(Picture, XY)" (("DIMENSIONS") ("UNITS"))) ("Cleanup" pro "IDLgrClipboard" (system) "Obj-> [%s::]%s" nil) ("Draw" pro "IDLgrClipboard" (system) "Obj -> [%s::]%s [, Picture]" (("FILENAME") ("POSTSCRIPT") ("VECTOR"))) + ("GetDeviceInfo" pro "IDLgrClipboard" (system) "Obj->[%s::]%s" (("ALL") ("MAX_TEXTURE_DIMENSIONS") ("MAX_VIEWPORT_DIMENSIONS") ("NAME") ("NUM_CPUS") ("VENDOR") ("VERSION"))) ("GetProperty" pro "IDLgrClipboard" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR_MODEL") ("DIMENSIONS") ("GRAPHICS_TREE") ("N_COLORS") ("PALETTE") ("QUALITY") ("RESOLUTION") ("SCREEN_DIMENSIONS") ("UNITS") ("UVALUE"))) ("SetProperty" pro "IDLgrClipboard" (system) "Obj -> [%s::]%s" (("DIMENSIONS") ("GRAPHICS_TREE") ("PALETTE") ("QUALITY") ("RESOLUTION") ("UNITS") ("UVALUE"))) ("GetContiguousPixels" fun "IDLgrClipboard" (system) "Return = Obj ->[%s::]%s()" nil) - ("GetDeviceInfo" fun "IDLgrClipboard" (system) "Result = Obj->[%s::]%s()" (("ALL") ("MAX_TEXTURE_DIMENSIONS") ("MAX_VIEWPORT_DIMENSIONS") ("NAME") ("NUM_CPUS") ("VENDOR") ("VERSION"))) ("GetFontnames" fun "IDLgrClipboard" (system) "Return = Obj -> [%s::]%s( FamilyName)" (("IDL_FONTS") ("STYLES"))) ("GetTextDimensions" fun "IDLgrClipboard" (system) "Result = Obj ->[%s::]%s( TextObj)" (("DESCENT") ("PATH"))) - ("Init" fun "IDLgrClipboard" (system) "Result = Obj -> [%s::]%s()" (("COLOR_MODEL") ("DIMENSIONS") ("GRAPHICS_TREE") ("N_COLORS") ("PALETTE") ("QUALITY") ("RESOLUTION") ("UNITS") ("UVALUE"))) + ("Init" fun "IDLgrClipboard" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrClipboard')" (("COLOR_MODEL") ("DIMENSIONS") ("GRAPHICS_TREE") ("N_COLORS") ("PALETTE") ("QUALITY") ("RESOLUTION") ("UNITS") ("UVALUE"))) ("Cleanup" pro "IDLgrColorbar" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrColorbar" (system) "Obj -> [%s::]%s" (("ALL") ("BLUE_VALUES") ("COLOR") ("DIMENSIONS") ("GREEN_VALUES") ("HIDE") ("MAJOR") ("MINOR") ("NAME") ("PALETTE") ("PARENT") ("RED_VALUES") ("SHOW_AXIS") ("SHOW_OUTLINE") ("SUBTICKLEN") ("THICK") ("THREED") ("TICKFORMAT") ("TICKFRMTDATA") ("TICKLEN") ("TICKTEXT") ("TICKVALUES") ("TITLE") ("UVALUE") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) ("SetProperty" pro "IDLgrColorbar" (system) "Obj -> [%s::]%s" (("BLUE_VALUES") ("COLOR") ("DIMENSIONS") ("GREEN_VALUES") ("HIDE") ("MAJOR") ("MINOR") ("NAME") ("PALETTE") ("RED_VALUES") ("SHOW_AXIS") ("SHOW_OUTLINE") ("SUBTICKLEN") ("THICK") ("TICKFORMAT") ("TICKFRMTDATA") ("TICKLEN") ("TICKTEXT") ("TICKVALUES") ("TITLE") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("ComputeDimensions" fun "IDLgrColorbar" (system) "Result = Obj ->[%s::]%s( DestinationObj)" (("PATH"))) - ("Init" fun "IDLgrColorbar" (system) "Result = Obj -> [%s::]%s( [aRed, aGreen, aBlue])" (("BLUE_VALUES") ("COLOR") ("DIMENSIONS") ("GREEN_VALUES") ("HIDE") ("MAJOR") ("MINOR") ("NAME") ("PALETTE") ("RED_VALUES") ("SHOW_AXIS") ("SHOW_OUTLINE") ("SUBTICKLEN") ("THICK") ("THREED") ("TICKFORMAT") ("TICKFRMTDATA") ("TICKLEN") ("TICKTEXT") ("TICKVALUES") ("TITLE") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("Init" fun "IDLgrColorbar" (system) "Result = Obj -> [%s::]%s( [aRed, aGreen, aBlue] ) ( 'IDLgrColorbar' [, aRed, aGreen, aBlue])" (("BLUE_VALUES") ("COLOR") ("DIMENSIONS") ("GREEN_VALUES") ("HIDE") ("MAJOR") ("MINOR") ("NAME") ("PALETTE") ("RED_VALUES") ("SHOW_AXIS") ("SHOW_OUTLINE") ("SUBTICKLEN") ("THICK") ("THREED") ("TICKFORMAT") ("TICKFRMTDATA") ("TICKLEN") ("TICKTEXT") ("TICKVALUES") ("TITLE") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("Cleanup" pro "IDLgrContour" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrContour" (system) "Obj -> [%s::]%s" (("ALL") ("ANISOTROPY") ("C_COLOR") ("C_FILL_PATTERN") ("C_LINESTYLE") ("C_THICK") ("C_VALUE") ("COLOR") ("DATA_VALUES") ("DOWNHILL") ("FILL") ("GEOM") ("HIDE") ("MAX_VALUE") ("MIN_VALUE") ("N_LEVELS") ("NAME") ("PALETTE") ("PARENT") ("PLANAR") ("POLYGONS") ("SHADE_RANGE") ("SHADING") ("TICKINTERVAL") ("TICKLEN") ("UVALUE") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) ("SetProperty" pro "IDLgrContour" (system) "Obj -> [%s::]%s" (("ANISOTROPY") ("C_COLOR") ("C_FILL_PATTERN") ("C_LINESTYLE") ("C_THICK") ("C_VALUE") ("COLOR") ("DATA_VALUES") ("DOWNHILL") ("FILL") ("GEOMX") ("GEOMY") ("GEOMZ") ("HIDE") ("MAX_VALUE") ("MIN_VALUE") ("N_LEVELS") ("NAME") ("PALETTE") ("PLANAR") ("POLYGONS") ("SHADE_RANGE") ("SHADING") ("TICKINTERVAL") ("TICKLEN") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("GetCTM" fun "IDLgrContour" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrContour" (system) "Result = Obj -> [%s::]%s( [Values])" (("ANISOTROPY") ("C_COLOR") ("C_FILL_PATTERN") ("C_LINESTYLE") ("C_THICK") ("C_VALUE") ("COLOR") ("DATA_VALUES") ("DOWNHILL") ("FILL") ("GEOMX") ("GEOMY") ("GEOMZ") ("HIDE") ("MAX_VALUE") ("MIN_VALUE") ("N_LEVELS") ("NAME") ("PALETTE") ("PLANAR") ("POLYGONS") ("SHADE_RANGE") ("SHADING") ("TICKINTERVAL") ("TICKLEN") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("Init" fun "IDLgrContour" (system) "Result = Obj -> [%s::]%s( [Values] ) ('IDLgrContour' [, Values])" (("ANISOTROPY") ("C_COLOR") ("C_FILL_PATTERN") ("C_LINESTYLE") ("C_THICK") ("C_VALUE") ("COLOR") ("DATA_VALUES") ("DOUBLE_DATA") ("DOUBLE_GEOM") ("DOWNHILL") ("FILL") ("GEOMX") ("GEOMY") ("GEOMZ") ("HIDE") ("MAX_VALUE") ("MIN_VALUE") ("N_LEVELS") ("NAME") ("PALETTE") ("PLANAR") ("POLYGONS") ("SHADE_RANGE") ("SHADING") ("TICKINTERVAL") ("TICKLEN") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("Cleanup" pro "IDLgrFont" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrFont" (system) "Obj -> [%s:]%s" (("ALL") ("NAME") ("SIZE") ("SUBSTITUTE") ("THICK") ("UVALUE"))) ("SetProperty" pro "IDLgrFont" (system) "Obj -> [%s:]%s" (("NAME") ("SIZE") ("SUBSTITUTE") ("THICK") ("UVALUE"))) - ("Init" fun "IDLgrFont" (system) "Result = Obj -> [%s::]%s( [Fontname])" (("NAME") ("SIZE") ("SUBSTITUTE") ("THICK") ("UVALUE"))) + ("Init" fun "IDLgrFont" (system) "Result = Obj -> [%s::]%s( [Fontname] ) ('IDLgrFont' [, Fontname])" (("NAME") ("SIZE") ("SUBSTITUTE") ("THICK") ("UVALUE"))) ("Cleanup" pro "IDLgrImage" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrImage" (system) "Obj -> [%s::]%s" (("ALL") ("BLEND_FUNCTION") ("CHANNEL") ("DATA") ("DIMENSIONS") ("GREYSCALE") ("HIDE") ("INTERLEAVE") ("INTERPOLATE") ("LOCATION") ("NAME") ("NO_COPY") ("ORDER") ("PALETTE") ("PARENT") ("SUB_RECT") ("UVALUE") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) ("SetProperty" pro "IDLgrImage" (system) "Obj -> [%s::]%s" (("BLEND_FUNCTION") ("CHANNEL") ("DATA") ("DIMENSIONS") ("GREYSCALE") ("HIDE") ("INTERLEAVE") ("INTERPOLATE") ("LOCATION") ("NAME") ("NO_COPY") ("ORDER") ("PALETTE") ("RESET_DATA") ("SHARE_DATA") ("SUB_RECT") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("GetCTM" fun "IDLgrImage" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrImage" (system) "Result = Obj -> [%s::]%s( [ImageData])" (("BLEND_FUNCTION") ("CHANNEL") ("DATA") ("DIMENSIONS") ("GREYSCALE") ("HIDE") ("INTERLEAVE") ("INTERPOLATE") ("LOCATION") ("NAME") ("NO_COPY") ("ORDER") ("PALETTE") ("RESET_DATA") ("SHARE_DATA") ("SUB_RECT") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("Init" fun "IDLgrImage" (system) "Result = Obj -> [%s::]%s( [ImageData] ) ('IDLgrImage' [, ImageData])" (("BLEND_FUNCTION") ("CHANNEL") ("DATA") ("DIMENSIONS") ("GREYSCALE") ("HIDE") ("INTERLEAVE") ("INTERPOLATE") ("LOCATION") ("NAME") ("NO_COPY") ("ORDER") ("PALETTE") ("RESET_DATA") ("SHARE_DATA") ("SUB_RECT") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("Cleanup" pro "IDLgrLegend" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrLegend" (system) "Obj -> [%s::]%s" (("ALL") ("BORDER_GAP") ("COLUMNS") ("FILL_COLOR") ("FONT") ("GAP") ("GLYPH_WIDTH") ("HIDE") ("ITEM_COLOR") ("ITEM_LINESTYLE") ("ITEM_NAME") ("ITEM_OBJECT") ("ITEM_THICK") ("ITEM_TYPE") ("NAME") ("OUTLINE_COLOR") ("OUTLINE_THICK") ("PARENT") ("SHOW_FILL") ("SHOW_OUTLINE") ("TEXT_COLOR") ("TITLE") ("UVALUE") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) ("SetProperty" pro "IDLgrLegend" (system) "Obj-> [%s::]%s" (("BORDER_GAP") ("COLUMNS") ("FILL_COLOR") ("FONT") ("GAP") ("GLYPH_WIDTH") ("HIDE") ("ITEM_COLOR") ("ITEM_LINESTYLE") ("ITEM_NAME") ("ITEM_OBJECT") ("ITEM_THICK") ("ITEM_TYPE") ("NAME") ("OUTLINE_COLOR") ("OUTLINE_THICK") ("RECOMPUTE") ("SHOW_FILL") ("SHOW_OUTLINE") ("TEXT_COLOR") ("TITLE") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("ComputeDimensions" fun "IDLgrLegend" (system) "Result = Obj ->[%s::]%s( DestinationObject)" (("PATH"))) - ("Init" fun "IDLgrLegend" (system) "Result = Obj -> [%s::]%s( [aItemNames])" (("BORDER_GAP") ("COLUMNS") ("FILL_COLOR") ("FONT") ("GAP") ("GLYPH_WIDTH") ("HIDE") ("ITEM_COLOR") ("ITEM_LINESTYLE") ("ITEM_NAME") ("ITEM_OBJECT") ("ITEM_THICK") ("ITEM_TYPE") ("NAME") ("OUTLINE_COLOR") ("OUTLINE_THICK") ("SHOW_FILL") ("SHOW_OUTLINE") ("TEXT_COLOR") ("TITLE") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("Init" fun "IDLgrLegend" (system) "Result = Obj -> [%s::]%s( [aItemNames] ) ('IDLgrLegend' [, aItemNames])" (("BORDER_GAP") ("COLUMNS") ("FILL_COLOR") ("FONT") ("GAP") ("GLYPH_WIDTH") ("HIDE") ("ITEM_COLOR") ("ITEM_LINESTYLE") ("ITEM_NAME") ("ITEM_OBJECT") ("ITEM_THICK") ("ITEM_TYPE") ("NAME") ("OUTLINE_COLOR") ("OUTLINE_THICK") ("SHOW_FILL") ("SHOW_OUTLINE") ("TEXT_COLOR") ("TITLE") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("Cleanup" pro "IDLgrLight" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrLight" (system) "Obj -> [%s::]%s" (("ALL") ("ATTENUATION") ("COLOR") ("CONEANGLE") ("DIRECTION") ("FOCUS") ("HIDE") ("INTENSITY") ("LOCATION") ("NAME") ("PARENT") ("TYPE") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("SetProperty" pro "IDLgrLight" (system) "Obj -> [%s::]%s" (("ATTENUATION") ("COLOR") ("CONEANGLE") ("DIRECTION") ("FOCUS") ("HIDE") ("INTENSITY") ("LOCATION") ("NAME") ("TYPE") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("GetCTM" fun "IDLgrLight" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrLight" (system) "Result = Obj -> [%s::]%s()" (("ATTENUATION") ("COLOR") ("CONEANGLE") ("DIRECTION") ("FOCUS") ("HIDE") ("INTENSITY") ("LOCATION") ("NAME") ("TYPE") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("Init" fun "IDLgrLight" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrLight')" (("ATTENUATION") ("COLOR") ("CONEANGLE") ("DIRECTION") ("FOCUS") ("HIDE") ("INTENSITY") ("LOCATION") ("NAME") ("TYPE") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("Add" pro "IDLgrModel" (system) "Obj -> [%s::]%s, Object" (("ALIAS") ("POSITION"))) ("Cleanup" pro "IDLgrModel" (system) "Obj -> [%s::]%s" nil) ("Draw" pro "IDLgrModel" (system) "Obj -> [%s::]%s, Destination, Picture" nil) @@ -1174,40 +1208,40 @@ ("Translate" pro "IDLgrModel" (system) "Obj -> [%s::]%s, Tx, Ty, Tz" (("PREMULTIPLY"))) ("GetByName" fun "IDLgrModel" (system) "Result = Obj -> [%s::]%s(Name)" nil) ("GetCTM" fun "IDLgrModel" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrModel" (system) "Result = Obj -> [%s::]%s()" (("HIDE") ("LIGHTING") ("NAME") ("SELECT_TARGET") ("TRANSFORM") ("UVALUE"))) + ("Init" fun "IDLgrModel" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrModel')" (("HIDE") ("LIGHTING") ("NAME") ("SELECT_TARGET") ("TRANSFORM") ("UVALUE"))) ("Cleanup" pro "IDLgrMPEG" (system) "Obj -> [%s::]%s" nil) - ("GetProperty" pro "IDLgrMPEG" (system) "Obj -> [%s::]%s" (("ALL") ("DIMENSIONS") ("FILENAME") ("FORMAT") ("FRAME_RATE") ("INTERLACED") ("SCALE") ("STATISTICS"))) + ("GetProperty" pro "IDLgrMPEG" (system) "Obj -> [%s::]%s" (("ALL") ("BITRATE") ("DIMENSIONS") ("FILENAME") ("FORMAT") ("FRAME_RATE") ("IFRAME_GAP") ("INTERLACED") ("MOTION_VEC_LENGTH") ("QUALITY") ("SCALE") ("STATISTICS"))) ("Put" pro "IDLgrMPEG" (system) "Obj -> [%s::]%s, Image[, Frame]" nil) ("Save" pro "IDLgrMPEG" (system) "Obj -> [%s::]%s" (("CREATOR_TYPE") ("FILENAME"))) - ("SetProperty" pro "IDLgrMPEG" (system) "Obj -> [%s::]%s" (("DIMENSIONS") ("FILENAME") ("FORMAT") ("FRAME_RATE") ("INTERLACED") ("SCALE") ("STATISTICS"))) - ("Init" fun "IDLgrMPEG" (system) "Result = Obj -> [%s::]%s()" (("DIMENSIONS") ("FILENAME") ("FORMAT") ("FRAME_RATE") ("INTERLACED") ("SCALE") ("STATISTICS") ("TEMP_DIRECTORY"))) + ("SetProperty" pro "IDLgrMPEG" (system) "Obj -> [%s::]%s" (("BITRATE") ("DIMENSIONS") ("FILENAME") ("FORMAT") ("FRAME_RATE") ("IFRAME_GAP") ("INTERLACED") ("MOTION_VEC_LENGTH") ("QUALITY") ("SCALE") ("STATISTICS"))) + ("Init" fun "IDLgrMPEG" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrMPEG')" (("BITRATE") ("DIMENSIONS") ("FILENAME") ("FORMAT") ("FRAME_RATE") ("IFRAME_GAP") ("INTERLACED") ("MOTION_VEC_LENGTH") ("QUALITY") ("SCALE") ("STATISTICS") ("TEMP_DIRECTORY"))) ("Cleanup" pro "IDLgrPalette" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrPalette" (system) "Obj -> [%s::]%s" (("ALL") ("BLUE_VALUES") ("BOTTOM_STRETCH") ("GAMMA") ("GREEN_VALUES") ("N_COLORS") ("NAME") ("RED_VALUES") ("TOP_STRETCH") ("UVALUE"))) ("LoadCT" pro "IDLgrPalette" (system) "Obj -> [%s::]%s, TableNum" (("FILENAME"))) ("SetProperty" pro "IDLgrPalette" (system) "Obj -> [%s::]%s" (("BLUE_VALUES") ("BOTTOM_STRETCH") ("GAMMA") ("GREEN_VALUES") ("NAME") ("RED_VALUES") ("TOP_STRETCH") ("UVALUE"))) ("SetRGB" pro "IDLgrPalette" (system) "Obj -> [%s::]%s, Index, Red, Green, Blue" nil) ("GetRGB" fun "IDLgrPalette" (system) "Result = Obj -> [%s::]%s(Index)" nil) - ("Init" fun "IDLgrPalette" (system) "Result=Obj-> [%s::]%s( [aRed, aGreen, aBlue])" (("BLUE_VALUES") ("BOTTOM_STRETCH") ("GAMMA") ("GREEN_VALUES") ("NAME") ("RED_VALUES") ("TOP_STRETCH") ("UVALUE"))) + ("Init" fun "IDLgrPalette" (system) "Result=Obj-> [%s::]%s( [aRed, aGreen, aBlue] ) ('IDLgrPalette', aRed, aGreen, aBlue)" (("BLUE_VALUES") ("BOTTOM_STRETCH") ("GAMMA") ("GREEN_VALUES") ("NAME") ("RED_VALUES") ("TOP_STRETCH") ("UVALUE"))) ("NearestColor" fun "IDLgrPalette" (system) "Result = Obj-> [%s::]%s(Red, Green, Blue)" nil) ("Cleanup" pro "IDLgrPattern" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrPattern" (system) "Obj -> [%s::]%s" (("ALL") ("NAME") ("ORIENTATION") ("PATTERN") ("SPACING") ("STYLE") ("UVALUE"))) ("SetProperty" pro "IDLgrPattern" (system) "Obj -> [%s::]%s" (("NAME") ("ORIENTATION") ("PATTERN") ("SPACING") ("STYLE") ("UVALUE"))) - ("Init" fun "IDLgrPattern" (system) "Result = Obj -> [%s::]%s( [Style])" (("NAME") ("ORIENTATION") ("PATTERN") ("SPACING") ("STYLE") ("THICK") ("UVALUE"))) + ("Init" fun "IDLgrPattern" (system) "Result = Obj -> [%s::]%s( [Style] ) ('IDLgrPattern' [, Style])" (("NAME") ("ORIENTATION") ("PATTERN") ("SPACING") ("STYLE") ("THICK") ("UVALUE"))) ("Cleanup" pro "IDLgrPlot" (system) "Obj -> [%s::]%s" nil) - ("GetProperty" pro "IDLgrPlot" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR") ("DATA") ("HIDE") ("HISTOGRAM") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("NSUM") ("PALETTE") ("PARENT") ("POLAR") ("SYMBOL") ("THICK") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE") ("ZVALUE"))) - ("SetProperty" pro "IDLgrPlot" (system) "Obj -> [%s::]%s" (("COLOR") ("DATAY") ("HIDE") ("HISTOGRAM") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("NSUM") ("PALETTE") ("POLAR") ("RESET_DATA") ("SHARE_DATA") ("SYMBOL") ("THICK") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZVALUE"))) + ("GetProperty" pro "IDLgrPlot" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR") ("DATA") ("DOUBLE") ("HIDE") ("HISTOGRAM") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("NSUM") ("PALETTE") ("PARENT") ("POLAR") ("SYMBOL") ("THICK") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE") ("ZVALUE"))) + ("SetProperty" pro "IDLgrPlot" (system) "Obj -> [%s::]%s" (("COLOR") ("DATAY") ("DOUBLE") ("HIDE") ("HISTOGRAM") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("NSUM") ("PALETTE") ("POLAR") ("RESET_DATA") ("SHARE_DATA") ("SYMBOL") ("THICK") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZVALUE"))) ("GetCTM" fun "IDLgrPlot" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrPlot" (system) "Result = Obj -> [%s::]%s( [[X,] Y])" (("COLOR") ("DATAY") ("HIDE") ("HISTOGRAM") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("NSUM") ("PALETTE") ("POLAR") ("RESET_DATA") ("SHARE_DATA") ("SYMBOL") ("THICK") ("USE_ZVALUE") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZVALUE"))) + ("Init" fun "IDLgrPlot" (system) "Result = Obj -> [%s::]%s( [[X,] Y] ) ('IDLgrPlot' [, [X,] Y])" (("COLOR") ("DATAY") ("DOUBLE") ("HIDE") ("HISTOGRAM") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("NSUM") ("PALETTE") ("POLAR") ("RESET_DATA") ("SHARE_DATA") ("SYMBOL") ("THICK") ("USE_ZVALUE") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZVALUE"))) ("Cleanup" pro "IDLgrPolygon" (system) "Obj -> [%s::]%s" nil) - ("GetProperty" pro "IDLgrPolygon" (system) "Obj -> [%s::]%s" (("ALL") ("BOTTOM") ("COLOR") ("DATA") ("FILL_PATTERN") ("HIDE") ("LINESTYLE") ("NAME") ("NORMALS") ("PARENT") ("POLYGONS") ("REJECT") ("SHADE_RANGE") ("SHADING") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP") ("ZRANGE"))) - ("SetProperty" pro "IDLgrPolygon" (system) "Obj -> [%s::]%s" (("BOTTOM") ("COLOR") ("DATA") ("FILL_PATTERN") ("HIDE") ("LINESTYLE") ("NAME") ("NORMALS") ("POLYGONS") ("REJECT") ("RESET_DATA") ("SHADE_RANGE") ("SHADING") ("SHARE_DATA") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) + ("GetProperty" pro "IDLgrPolygon" (system) "Obj -> [%s::]%s" (("ALL") ("BOTTOM") ("COLOR") ("DATA") ("DOUBLE") ("FILL_PATTERN") ("HIDE") ("LINESTYLE") ("NAME") ("NORMALS") ("PARENT") ("POLYGONS") ("REJECT") ("SHADE_RANGE") ("SHADING") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP") ("ZRANGE"))) + ("SetProperty" pro "IDLgrPolygon" (system) "Obj -> [%s::]%s" (("BOTTOM") ("COLOR") ("DATA") ("DOUBLE") ("FILL_PATTERN") ("HIDE") ("LINESTYLE") ("NAME") ("NORMALS") ("POLYGONS") ("REJECT") ("RESET_DATA") ("SHADE_RANGE") ("SHADING") ("SHARE_DATA") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) ("GetCTM" fun "IDLgrPolygon" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrPolygon" (system) "Result = Obj -> [%s::]%s( [X, [Y, [Z]]])" (("BOTTOM") ("COLOR") ("DATA") ("FILL_PATTERN") ("HIDDEN_LINES") ("HIDE") ("LINESTYLE") ("NAME") ("NORMALS") ("PALETTE") ("POLYGONS") ("REJECT") ("RESET_DATA") ("SHADE_RANGE") ("SHADING") ("SHARE_DATA") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) + ("Init" fun "IDLgrPolygon" (system) "Result = Obj -> [%s::]%s( [X, [Y, [Z]]] ) ('IDLgrPolygon' [, X [, Y[, Z]]])" (("BOTTOM") ("COLOR") ("DATA") ("DOUBLE") ("FILL_PATTERN") ("HIDDEN_LINES") ("HIDE") ("LINESTYLE") ("NAME") ("NORMALS") ("PALETTE") ("POLYGONS") ("REJECT") ("RESET_DATA") ("SHADE_RANGE") ("SHADING") ("SHARE_DATA") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) ("Cleanup" pro "IDLgrPolyline" (system) "Obj -> [%s::]%s" nil) - ("GetProperty" pro "IDLgrPolyline" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR") ("DATA") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("PARENT") ("POLYLINES") ("SHADING") ("SYMBOL") ("THICK") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) - ("SetProperty" pro "IDLgrPolyline" (system) "Obj -> [%s::]%s" (("COLOR") ("DATA") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("POLYLINES") ("RESET_DATA") ("SHADING") ("SHARE_DATA") ("SYMBOL") ("THICK") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("GetProperty" pro "IDLgrPolyline" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR") ("DATA") ("DOUBLE") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("PARENT") ("POLYLINES") ("SHADING") ("SYMBOL") ("THICK") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) + ("SetProperty" pro "IDLgrPolyline" (system) "Obj -> [%s::]%s" (("COLOR") ("DATA") ("DOUBLE") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("POLYLINES") ("RESET_DATA") ("SHADING") ("SHARE_DATA") ("SYMBOL") ("THICK") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("GetCTM" fun "IDLgrPolyline" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrPolyline" (system) "Result = Obj -> [%s::]%s( [X, [Y, [Z]]])" (("COLOR") ("DATA") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("POLYLINES") ("RESET_DATA") ("SHADING") ("SHARE_DATA") ("SYMBOL") ("THICK") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("Init" fun "IDLgrPolyline" (system) "Result = Obj -> [%s::]%s( [X, [Y, [Z]]] ) ('IDLgrPolyline' [, X [, Y[, Z]]])" (("COLOR") ("DATA") ("DOUBLE") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("POLYLINES") ("RESET_DATA") ("SHADING") ("SHARE_DATA") ("SYMBOL") ("THICK") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("Cleanup" pro "IDLgrPrinter" (system) "Obj -> [%s::]%s" nil) ("Draw" pro "IDLgrPrinter" (system) "Obj -> [%s::]%s [, Picture]" (("VECTOR"))) ("GetProperty" pro "IDLgrPrinter" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR_MODEL") ("DIMENSIONS") ("GRAPHICS_TREE") ("LANDSCAPE") ("N_COLORS") ("N_COPIES") ("NAME") ("PALETTE") ("PRINT_QUALITY") ("QUALITY") ("RESOLUTION") ("UNITS") ("UVALUE"))) @@ -1217,68 +1251,70 @@ ("GetContiguousPixels" fun "IDLgrPrinter" (system) "Return = Obj -> [%s::]%s()" nil) ("GetFontnames" fun "IDLgrPrinter" (system) "Return = Obj -> [%s::]%s( FamilyName)" (("IDL_FONTS") ("STYLES"))) ("GetTextDimensions" fun "IDLgrPrinter" (system) "Result = Obj ->[%s::]%s( TextObj)" (("DESCENT") ("PATH"))) - ("Init" fun "IDLgrPrinter" (system) "Result = Obj -> [%s::]%s()" (("COLOR_MODEL") ("GRAPHICS_TREE") ("LANDSCAPE") ("N_COLORS") ("N_COPIES") ("PALETTE") ("PRINT_QUALITY") ("QUALITY") ("UNITS") ("UVALUE"))) + ("Init" fun "IDLgrPrinter" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrPrinter')" (("COLOR_MODEL") ("GRAPHICS_TREE") ("LANDSCAPE") ("N_COLORS") ("N_COPIES") ("PALETTE") ("PRINT_QUALITY") ("QUALITY") ("UNITS") ("UVALUE"))) ("Cleanup" pro "IDLgrROI" (system) "Obj->[%s::]%s" nil) - ("GetProperty" pro "IDLgrROI" (system) "Obj->[%s::]%s" (("ALL") ("COLOR") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("STYLE") ("SYMBOL") ("THICK") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) - ("SetProperty" pro "IDLgrROI" (system) "Obj->[%s::]%s" (("COLOR") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("STYLE") ("SYMBOL") ("THICK") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) - ("Init" fun "IDLgrROI" (system) "Result = Obj ->[%s::]%s([X[, Y[, Z]]])" (("COLOR") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("STYLE") ("SYMBOL") ("THICK") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("GetProperty" pro "IDLgrROI" (system) "Obj->[%s::]%s" (("ALL") ("COLOR") ("DOUBLE") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("STYLE") ("SYMBOL") ("THICK") ("UVALUE") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) + ("SetProperty" pro "IDLgrROI" (system) "Obj->[%s::]%s" (("COLOR") ("DOUBLE") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("STYLE") ("SYMBOL") ("THICK") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("Init" fun "IDLgrROI" (system) "Result = Obj->[%s::]%s([X[, Y[, Z]]] ) ( 'IDLgrROI' [, X[, Y[, Z]]])" (("COLOR") ("DOUBLE") ("HIDE") ("LINESTYLE") ("NAME") ("PALETTE") ("STYLE") ("SYMBOL") ("THICK") ("UVALUE") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("PickVertex" fun "IDLgrROI" (system) "Result = Obj->[%s::]%s( Dest, View, Point)" (("PATH"))) ("Add" pro "IDLgrROIGroup" (system) "Obj->[%s::]%s, ROI" nil) ("Cleanup" pro "IDLgrROIGroup" (system) "Obj->[%s::]%s" nil) - ("Init" fun "IDLgrROIGroup" (system) "Result = Obj ->[%s::]%s()" nil) + ("GetProperty" pro "IDLgrROIGroup" (system) "Obj->[%s::]%s" (("ALL") ("COLOR") ("HIDE") ("NAME") ("PARENT") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) + ("SetProperty" pro "IDLgrROIGroup" (system) "Obj->[%s::]%s" (("COLOR") ("HIDE") ("NAME") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("Init" fun "IDLgrROIGroup" (system) "Result = Obj->[%s::]%s( ) ('IDLgrROIGroup')" (("COLOR") ("HIDE") ("NAME") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("PickRegion" fun "IDLgrROIGroup" (system) "Result = Obj->[%s::]%s( Dest, View, Point)" (("PATH"))) ("Add" pro "IDLgrScene" (system) "Obj -> [%s::]%s, View" (("POSITION"))) ("Cleanup" pro "IDLgrScene" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrScene" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR") ("HIDE") ("NAME") ("TRANSPARENT") ("UVALUE"))) ("SetProperty" pro "IDLgrScene" (system) "Obj -> [%s::]%s" (("COLOR") ("HIDE") ("NAME") ("TRANSPARENT") ("UVALUE"))) ("GetByName" fun "IDLgrScene" (system) "Result = Obj -> [%s::]%s(Name)" nil) - ("Init" fun "IDLgrScene" (system) "Result = Obj -> [%s::]%s()" (("COLOR") ("HIDE") ("NAME") ("TRANSPARENT") ("UVALUE"))) + ("Init" fun "IDLgrScene" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrScene')" (("COLOR") ("HIDE") ("NAME") ("TRANSPARENT") ("UVALUE"))) ("Cleanup" pro "IDLgrSurface" (system) "Obj -> [%s::]%s" nil) - ("GetProperty" pro "IDLgrSurface" (system) "Obj -> [%s::]%s" (("ALL") ("BOTTOM") ("COLOR") ("DATA") ("EXTENDED_LEGO") ("HIDDEN_LINES") ("HIDE") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("PALETTE") ("PARENT") ("SHADE_RANGE") ("SHADING") ("SHOW_SKIRT") ("SKIRT") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("USE_TRIANGLES") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP") ("ZRANGE"))) - ("SetProperty" pro "IDLgrSurface" (system) "Obj -> [%s::]%s" (("BOTTOM") ("COLOR") ("DATAX") ("DATAY") ("DATAZ") ("EXTENDED_LEGO") ("HIDDEN_LINES") ("HIDE") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("PALETTE") ("RESET_DATA") ("SHADE_RANGE") ("SHADING") ("SHARE_DATA") ("SHOW_SKIRT") ("SKIRT") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("USE_TRIANGLES") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) + ("GetProperty" pro "IDLgrSurface" (system) "Obj -> [%s::]%s" (("ALL") ("BOTTOM") ("COLOR") ("DATA") ("DOUBLE") ("EXTENDED_LEGO") ("HIDDEN_LINES") ("HIDE") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("PALETTE") ("PARENT") ("SHADE_RANGE") ("SHADING") ("SHOW_SKIRT") ("SKIRT") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("USE_TRIANGLES") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP") ("ZRANGE"))) + ("SetProperty" pro "IDLgrSurface" (system) "Obj -> [%s::]%s" (("BOTTOM") ("COLOR") ("DATAX") ("DATAY") ("DATAZ") ("DOUBLE") ("EXTENDED_LEGO") ("HIDDEN_LINES") ("HIDE") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("PALETTE") ("RESET_DATA") ("SHADE_RANGE") ("SHADING") ("SHARE_DATA") ("SHOW_SKIRT") ("SKIRT") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("USE_TRIANGLES") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) ("GetCTM" fun "IDLgrSurface" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrSurface" (system) "Result = Obj -> [%s::]%s( [Z, [X, Y]])" (("BOTTOM") ("COLOR") ("DATAX") ("DATAY") ("DATAZ") ("EXTENDED_LEGO") ("HIDDEN_LINES") ("HIDE") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("PALETTE") ("RESET_DATA") ("SHADE_RANGE") ("SHADING") ("SHARE_DATA") ("SHOW_SKIRT") ("SKIRT") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("USE_TRIANGLES") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) + ("Init" fun "IDLgrSurface" (system) "Result = Obj -> [%s::]%s( [Z [, X, Y]] ) ('IDLgrSurface' [, Z [, X, Y]])" (("BOTTOM") ("COLOR") ("DATAX") ("DATAY") ("DATAZ") ("DOUBLE") ("EXTENDED_LEGO") ("HIDDEN_LINES") ("HIDE") ("LINESTYLE") ("MAX_VALUE") ("MIN_VALUE") ("NAME") ("PALETTE") ("RESET_DATA") ("SHADE_RANGE") ("SHADING") ("SHARE_DATA") ("SHOW_SKIRT") ("SKIRT") ("STYLE") ("TEXTURE_COORD") ("TEXTURE_INTERP") ("TEXTURE_MAP") ("THICK") ("USE_TRIANGLES") ("UVALUE") ("VERT_COLORS") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) ("Cleanup" pro "IDLgrSymbol" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrSymbol" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR") ("DATA") ("NAME") ("SIZE") ("THICK") ("UVALUE"))) ("SetProperty" pro "IDLgrSymbol" (system) "Obj -> [%s::]%s" (("COLOR") ("DATA") ("NAME") ("SIZE") ("THICK") ("UVALUE"))) - ("Init" fun "IDLgrSymbol" (system) "Result = Obj -> [%s::]%s( [Data])" (("COLOR") ("DATA") ("NAME") ("SIZE") ("THICK") ("UVALUE"))) + ("Init" fun "IDLgrSymbol" (system) "Result = Obj -> [%s::]%s( [Data] ) ('IDLgrSymbol' [, Data])" (("COLOR") ("DATA") ("NAME") ("SIZE") ("THICK") ("UVALUE"))) ("AddPolygon" pro "IDLgrTessellator" (system) "Obj -> [%s::]%s, X [, Y[, Z]]" (("INTERIOR") ("POLYGON"))) ("Cleanup" pro "IDLgrTessellator" (system) "Obj -> [%s::]%s" nil) ("Reset" pro "IDLgrTessellator" (system) "Obj -> [%s::]%s" nil) - ("Init" fun "IDLgrTessellator" (system) "Result = Obj -> [%s::]%s( )" nil) + ("Init" fun "IDLgrTessellator" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrTesselator')" nil) ("Tessellate" fun "IDLgrTessellator" (system) "Result = Obj -> [%s::]%s( Vertices, Poly)" (("QUIET"))) ("Cleanup" pro "IDLgrText" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrText" (system) "Obj -> [%s::]%s" (("ALIGNMENT") ("ALL") ("BASELINE") ("CHAR_DIMENSIONS") ("COLOR") ("ENABLE_FORMATTING") ("FONT") ("HIDE") ("LOCATIONS") ("NAME") ("ONGLASS") ("PALETTE") ("PARENT") ("RECOMPUTE_DIMENSIONS") ("STRINGS") ("UPDIR") ("UVALUE") ("VERTICAL_ALIGNMENT") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZCOORD_CONV") ("ZRANGE"))) ("SetProperty" pro "IDLgrText" (system) "Obj -> [%s::]%s" (("ALIGNMENT") ("BASELINE") ("CHAR_DIMENSIONS") ("COLOR") ("ENABLE_FORMATTING") ("FONT") ("HIDE") ("LOCATIONS") ("NAME") ("ONGLASS") ("PALETTE") ("RECOMPUTE_DIMENSIONS") ("STRINGS") ("UPDIR") ("UVALUE") ("VERTICAL_ALIGNMENT") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("GetCTM" fun "IDLgrText" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrText" (system) "Result = Obj -> [%s::]%s( [, String or vector of strings])" (("ALIGNMENT") ("BASELINE") ("CHAR_DIMENSIONS") ("COLOR") ("ENABLE_FORMATTING") ("FONT") ("HIDE") ("LOCATIONS") ("NAME") ("ONGLASS") ("PALETTE") ("RECOMPUTE_DIMENSIONS") ("STRINGS") ("UPDIR") ("UVALUE") ("VERTICAL_ALIGNMENT") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) + ("Init" fun "IDLgrText" (system) "Result = Obj -> [%s::]%s( [String or vector of strings] ) ('IDLgrText' [, String or vector of strings])" (("ALIGNMENT") ("BASELINE") ("CHAR_DIMENSIONS") ("COLOR") ("ENABLE_FORMATTING") ("FONT") ("HIDE") ("LOCATIONS") ("NAME") ("ONGLASS") ("PALETTE") ("RECOMPUTE_DIMENSIONS") ("STRINGS") ("UPDIR") ("UVALUE") ("VERTICAL_ALIGNMENT") ("XCOORD_CONV") ("YCOORD_CONV") ("ZCOORD_CONV"))) ("Add" pro "IDLgrView" (system) "Obj -> [%s::]%s, Model" (("POSITION"))) ("Cleanup" pro "IDLgrView" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrView" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR") ("DEPTH_CUE") ("DIMENSIONS") ("EYE") ("LOCATION") ("PARENT") ("PROJECTION") ("TRANSPARENT") ("UNITS") ("UVALUE") ("VIEWPLANE_RECT") ("ZCLIP"))) ("SetProperty" pro "IDLgrView" (system) "Obj -> [%s::]%s" (("COLOR") ("DEPTH_CUE") ("DIMENSIONS") ("EYE") ("LOCATION") ("PROJECTION") ("TRANSPARENT") ("UNITS") ("UVALUE") ("VIEWPLANE_RECT") ("ZCLIP"))) ("GetByName" fun "IDLgrView" (system) "Result = Obj -> [%s::]%s(Name)" nil) - ("Init" fun "IDLgrView" (system) "Result = Obj -> [%s::]%s()" (("COLOR") ("DEPTH_CUE") ("DIMENSIONS") ("EYE") ("LOCATION") ("PROJECTION") ("TRANSPARENT") ("UNITS") ("UVALUE") ("VIEWPLANE_RECT") ("ZCLIP"))) + ("Init" fun "IDLgrView" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrView')" (("COLOR") ("DEPTH_CUE") ("DIMENSIONS") ("DOUBLE") ("EYE") ("LOCATION") ("PROJECTION") ("TRANSPARENT") ("UNITS") ("UVALUE") ("VIEWPLANE_RECT") ("ZCLIP"))) ("Add" pro "IDLgrViewgroup" (system) "Obj -> [%s::]%s, Object" (("POSITION"))) ("Cleanup" pro "IDLgrViewgroup" (system) "Obj -> [%s::]%s" nil) ("GetProperty" pro "IDLgrViewgroup" (system) "Obj -> [%s::]%s" (("ALL") ("HIDE") ("NAME") ("PARENT") ("UVALUE"))) ("SetProperty" pro "IDLgrViewgroup" (system) "Obj -> [%s::]%s" (("HIDE") ("NAME") ("UVALUE"))) ("GetByName" fun "IDLgrViewgroup" (system) "Result = Obj -> [%s::]%s(Name)" nil) - ("Init" fun "IDLgrViewgroup" (system) "Result = Obj -> [%s::]%s()" (("HIDE") ("NAME") ("UVALUE"))) + ("Init" fun "IDLgrViewgroup" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrViewgroup')" (("HIDE") ("NAME") ("UVALUE"))) ("Cleanup" pro "IDLgrVolume" (system) "Obj -> [%s::]%s" nil) ("ComputeBounds" pro "IDLgrVolume" (system) "Obj -> [%s::]%s" (("OPACITY") ("RESET") ("VOLUMES"))) ("GetProperty" pro "IDLgrVolume" (system) "Obj -> [%s::]%s" (("ALL") ("AMBIENT") ("BOUNDS") ("COMPOSITE_FUNCTION") ("CUTTING_PLANES") ("DATA0") ("DATA1") ("DATA2") ("DATA3") ("DEPTH_CUE") ("HIDE") ("HINTS") ("INTERPOLATE") ("LIGHTING_MODEL") ("NAME") ("NO_COPY") ("OPACITY_TABLE0") ("OPACITY_TABLE1") ("PARENT") ("RENDER_STEP") ("RGB_TABLE0") ("RGB_TABLE1") ("TWO_SIDED") ("UVALUE") ("VALID_DATA") ("VOLUME_SELECT") ("XCOORD_CONV") ("XRANGE") ("YCOORD_CONV") ("YRANGE") ("ZBUFFER") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP") ("ZRANGE"))) ("SetProperty" pro "IDLgrVolume" (system) "Obj -> [%s::]%s" (("AMBIENT") ("BOUNDS") ("COMPOSITE_FUNCTION") ("CUTTING_PLANES") ("DATA0") ("DATA1") ("DATA2") ("DATA3") ("DEPTH_CUE") ("HIDE") ("HINTS") ("INTERPOLATE") ("LIGHTING_MODEL") ("NAME") ("NO_COPY") ("OPACITY_TABLE0") ("OPACITY_TABLE1") ("RENDER_STEP") ("RGB_TABLE0") ("RGB_TABLE1") ("TWO_SIDED") ("UVALUE") ("VOLUME_SELECT") ("XCOORD_CONV") ("YCOORD_CONV") ("ZBUFFER") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) ("GetCTM" fun "IDLgrVolume" (system) "Result = Obj -> [%s::]%s()" (("DESTINATION") ("PATH") ("TOP"))) - ("Init" fun "IDLgrVolume" (system) "Result = Obj -> [%s::]%s( [vol0 [, vol1 [, vol2 [, vol3]]]])" (("AMBIENT") ("BOUNDS") ("COMPOSITE_FUNCTION") ("CUTTING_PLANES") ("DATA0") ("DATA1") ("DATA2") ("DATA3") ("DEPTH_CUE") ("HIDE") ("HINTS") ("INTERPOLATE") ("LIGHTING_MODEL") ("NAME") ("NO_COPY") ("OPACITY_TABLE0") ("OPACITY_TABLE1") ("RENDER_STEP") ("RGB_TABLE0") ("RGB_TABLE1") ("TWO_SIDED") ("UVALUE") ("VOLUME_SELECT") ("XCOORD_CONV") ("YCOORD_CONV") ("ZBUFFER") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) + ("Init" fun "IDLgrVolume" (system) "Result = Obj -> [%s::]%s( [vol0 [, vol1 [, vol2 [, vol3]]]] ) ('IDLgrVolume' [, vol0 [, vol1 [, vol2 [, vol3]]]])" (("AMBIENT") ("BOUNDS") ("COMPOSITE_FUNCTION") ("CUTTING_PLANES") ("DATA0") ("DATA1") ("DATA2") ("DATA3") ("DEPTH_CUE") ("HIDE") ("HINTS") ("INTERPOLATE") ("LIGHTING_MODEL") ("NAME") ("NO_COPY") ("OPACITY_TABLE0") ("OPACITY_TABLE1") ("RENDER_STEP") ("RGB_TABLE0") ("RGB_TABLE1") ("TWO_SIDED") ("UVALUE") ("VOLUME_SELECT") ("XCOORD_CONV") ("YCOORD_CONV") ("ZBUFFER") ("ZCOORD_CONV") ("ZERO_OPACITY_SKIP"))) ("PickVoxel" fun "IDLgrVolume" (system) "Result = Obj -> [%s::]%s ( Win, View, Point)" (("PATH"))) ("Cleanup" pro "IDLgrVRML" (system) "Obj -> [%s::]%s" nil) ("Draw" pro "IDLgrVRML" (system) "Obj -> [%s::]%s [, Picture]" nil) + ("GetDeviceInfo" pro "IDLgrVRML" (system) "Obj->[%s::]%s" (("ALL") ("MAX_TEXTURE_DIMENSIONS") ("MAX_VIEWPORT_DIMENSIONS") ("NAME") ("NUM_CPUS") ("VENDOR") ("VERSION"))) ("GetProperty" pro "IDLgrVRML" (system) "Obj -> [%s::]%s" (("ALL") ("COLOR_MODEL") ("DIMENSIONS") ("FILENAME") ("GRAPHICS_TREE") ("N_COLORS") ("PALETTE") ("QUALITY") ("RESOLUTION") ("SCREEN_DIMENSIONS") ("UNITS") ("UVALUE"))) ("SetProperty" pro "IDLgrVRML" (system) "Obj -> [%s::]%s" (("DIMENSIONS") ("FILENAME") ("GRAPHICS_TREE") ("PALETTE") ("QUALITY") ("RESOLUTION") ("UNITS") ("UVALUE"))) - ("GetDeviceInfo" fun "IDLgrVRML" (system) "Result = Obj->[%s::]%s()" (("ALL") ("MAX_TEXTURE_DIMENSIONS") ("MAX_VIEWPORT_DIMENSIONS") ("NAME") ("NUM_CPUS") ("VENDOR") ("VERSION"))) ("GetFontnames" fun "IDLgrVRML" (system) "Return = Obj ->[%s::]%s( FamilyName)" (("IDL_FONTS") ("STYLES"))) ("GetTextDimensions" fun "IDLgrVRML" (system) "Result = Obj ->[%s::]%s( TextObj)" (("DESCENT") ("PATH"))) - ("Init" fun "IDLgrVRML" (system) "Result = Obj -> [%s::]%s()" (("COLOR_MODEL") ("DIMENSIONS") ("FILENAME") ("GRAPHICS_TREE") ("N_COLORS") ("PALETTE") ("QUALITY") ("RESOLUTION") ("UNITS") ("UVALUE") ("WOLRDTITLE") ("WORLDINFO"))) + ("Init" fun "IDLgrVRML" (system) "Result = Obj -> [%s::]%s( ) ('IDLgrVRML')" (("COLOR_MODEL") ("DIMENSIONS") ("FILENAME") ("GRAPHICS_TREE") ("N_COLORS") ("PALETTE") ("QUALITY") ("RESOLUTION") ("UNITS") ("UVALUE") ("WOLRDTITLE") ("WORLDINFO"))) ("Cleanup" pro "IDLgrWindow" (system) "Obj -> [%s::]%s" nil) ("Draw" pro "IDLgrWindow" (system) "Obj -> [%s::]%s [, Picture]" (("CREATE_INSTANCE") ("DRAW_INSTANCE"))) ("Erase" pro "IDLgrWindow" (system) "Obj -> [%s::]%s" (("COLOR"))) @@ -1291,16 +1327,164 @@ ("GetContiguousPixels" fun "IDLgrWindow" (system) "Return = Obj -> [%s::]%s()" nil) ("GetFontnames" fun "IDLgrWindow" (system) "Return = Obj -> [%s::]%s(FamilyName)" (("IDL_FONTS") ("STYLES"))) ("GetTextDimensions" fun "IDLgrWindow" (system) "Result = Obj ->[%s::]%s( TextObj)" (("DESCENT") ("PATH"))) - ("Init" fun "IDLgrWindow" (system) "Result = Obj -> [%s::]%s()" (("COLOR_MODEL") ("DIMENSIONS") ("DISPLAY_NAME") ("GRAPHICS_TREE") ("LOCATION") ("N_COLORS") ("PALETTE") ("QUALITY") ("RENDERER") ("RETAIN") ("TITLE") ("UNITS") ("UVALUE"))) + ("Init" fun "IDLgrWindow" (system) "Result = Obj -> [%s::]%s( )" (("COLOR_MODEL") ("DIMENSIONS") ("DISPLAY_NAME") ("GRAPHICS_TREE") ("LOCATION") ("N_COLORS") ("PALETTE") ("QUALITY") ("RENDERER") ("RETAIN") ("TITLE") ("UNITS") ("UVALUE"))) ("PickData" fun "IDLgrWindow" (system) "Result = Obj -> [%s::]%s( View, Object, Location, XYZLocation)" (("PATH"))) ("Read" fun "IDLgrWindow" (system) "Result = Obj -> [%s::]%s()" nil) ("Select" fun "IDLgrWindow" (system) "Result = Obj -> [%s::]%s( Picture, XY)" (("DIMENSIONS") ("UNITS"))) - ("Reset" pro "TrackBall" (system) "Obj -> [%s::]%s(Center, Radius)" (("AXIS") ("CONSTRAIN") ("MOUSE"))) - ("Init" fun "TrackBall" (system) "Result = Obj -> [%s::]%s( Center, Radius)" (("AXIS") ("CONSTRAIN") ("MOUSE"))) + ("Reset" pro "TrackBall" (system) "Obj -> [%s::]%s, Center, Radius" (("AXIS") ("CONSTRAIN") ("MOUSE"))) + ("Init" fun "TrackBall" (system) "Result = Obj -> [%s::]%s( Center, Radius ) ('TrackBall', Center, Radius)" (("AXIS") ("CONSTRAIN") ("MOUSE"))) ("Update" fun "TrackBall" (system) "Result = Obj -> [%s::]%s( sEvent)" (("MOUSE") ("TRANSFORM") ("TRANSLATE"))) ) - "1251 builtin routines with 5287 keywords for IDL version 5.3.") + "1287 builtin routines with 5724 keywords for IDL version 5.4.") +(setq idlwave-system-variables-alist + '( + ("C") + ("D" ("NAME") ("X_SIZE") ("Y_SIZE") ("X_VSIZE") ("Y_VSIZE") ("X_CH_SIZE") ("Y_CH_SIZE") ("X_PX_CM") ("Y_PX_CM") ("N_COLORS") ("TABLE_SIZE") ("FILL_DIST") ("WINDOW") ("UNIT") ("FLAGS") ("ORIGIN") ("ZOOM")) + ("DIR") + ("DLM_PATH") + ("DPI") + ("DTOR") + ("EDIT_INPUT") + ("ERROR_STATE" ("NAME") ("BLOCK") ("CODE") ("SYS_CODE") ("MSG") ("SYS_MSG") ("MSG_PREFIX")) + ("EXCEPT") + ("HELP_PATH") + ("JOURNAL") + ("MAKE_DLL" ("COMPILE_DIRECTORY") ("COMPILER_NAME") ("CC") ("LD")) + ("MAP" ("PROJECTION") ("SIMPLE") ("FILL_METHOD") ("UP_FLAGS") ("UP_NAME") ("P0LON") ("P0LAT") ("U0") ("V0") ("SINO") ("COSO") ("ROTATION") ("SINR") ("COSR") ("UV") ("POLE") ("UV_BOX") ("LL_BOX") ("SEGMENT_LENGTH") ("P") ("PIPELINE")) + ("MORE") + ("MOUSE" ("X") ("Y") ("BUTTON") ("TIME")) + ("ORDER") + ("P" ("BACKGROUND") ("CHARSIZE") ("CHARTHICK") ("CLIP") ("COLOR") ("FONT") ("LINESTYLE") ("MULTI") ("NOCLIP") ("NOERASE") ("NSUM") ("POSITION") ("PSYM") ("REGION") ("SUBTITLE") ("SYMSIZE") ("T") ("T3D") ("THICK") ("TITLE") ("TICKLEN") ("CHANNEL")) + ("PATH") + ("PI") + ("PROMPT") + ("QUIET") + ("RADEG") + ("VALUES" ("F_INFINITY") ("F_NAN") ("D_INFINITY") ("D_NAN")) + ("VERSION" ("ARCH") ("OS") ("OS_FAMILY") ("RELEASE") ("BUILD_DATE") ("MEMORY_BITS") ("FILE_OFFSET_BITS")) + ("WARN" ("OBS_ROUTINES") ("OBS_SYSVARS") ("PARENS") ("TRUNCATED_FILENAME")) + ("X" ("TITLE") ("TYPE") ("STYLE") ("TICKS") ("TICKLEN") ("THICK") ("RANGE") ("CRANGE") ("S") ("MARGIN") ("OMARGIN") ("WINDOW") ("REGION") ("CHARSIZE") ("MINOR") ("TICKV") ("TICKNAME") ("GRIDSTYLE") ("TICKFORMAT") ("TICKINTERVAL") ("TICKLAYOUT") ("TICKUNITS")) + ("Y" ("TITLE") ("TYPE") ("STYLE") ("TICKS") ("TICKLEN") ("THICK") ("RANGE") ("CRANGE") ("S") ("MARGIN") ("OMARGIN") ("WINDOW") ("REGION") ("CHARSIZE") ("MINOR") ("TICKV") ("TICKNAME") ("GRIDSTYLE") ("TICKFORMAT") ("TICKINTERVAL") ("TICKLAYOUT") ("TICKUNITS")) + ("Z" ("TITLE") ("TYPE") ("STYLE") ("TICKS") ("TICKLEN") ("THICK") ("RANGE") ("CRANGE") ("S") ("MARGIN") ("OMARGIN") ("WINDOW") ("REGION") ("CHARSIZE") ("MINOR") ("TICKV") ("TICKNAME") ("GRIDSTYLE") ("TICKFORMAT") ("TICKINTERVAL") ("TICKLAYOUT") ("TICKUNITS")))) + + +(setq idlwave-system-class-info + '( + ("IDLgrAxis" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRAXIS_TOP" "IDLGRAXISVERSION" "AM_PM" "AXIS_TYPE" "CALCFLAGS" "DAYS_OF_WEEK" "DIRECTION" "AXISFLAGS" "GRIDSTYLE" "LOCATION" "MAJOR" "MINOR" "MONTHS" "OUTRANGE" "RANGE" "SUBTICKLEN" "TEXTALIGNMENTS" "TEXTBASELINE" "TEXTUPDIR" "THICK" "TICKDIR" "TICKFORMAT" "ARRAY_TICKFORMAT" "TICKFRMTDATA" "TICKINTERVAL" "TICKLAYOUT" "TICKLEN" "TICKTEXT" "TICKUNITCODES" "TICKUNITS" "TICKVALUES" "TITLE" "CURRENT_LEVEL" "LEVEL_DATA" "STEPRANGEUNITS" "STEPRANGE") + (inherits)) + ("IDLgrLegend" + (tags "OSCALENODE" "BORDER_GAP" "COLUMNS" "OOUTLINE" "OFILL" "OFONT" "GAP" "GLYPHWIDTH" "PITEM_COLOR" "PITEM_LINESTYLE" "PITEM_NAME" "PITEM_OBJECT" "PITEM_THICK" "PITEM_TYPE" "OTITLE" "PTEXT_COLOR" "BRECOMPUTE" "PGLYPHS" "PTEXTS" "HGLYPHWIDTH" "VGLYPHWIDTH" "COLORMODE" "CLEANLEAVE" "CLEANGLYPHS" "IDLGRLEGENDVERSION") + (inherits "IDLgrModel")) + ("IDLgrContour" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRCONTOURTOP" "IDLGRCONTOURVERSION" "ANISOTROPY" "DATA_FORMAT" "DATA" "GEOM_FORMAT" "GEOM" "CONTOURFLAGS" "C_COLOR" "C_FILLPATTERN" "C_LINESTYLE" "C_THICK" "C_VALUE" "MAXVAL" "MINVAL" "NLEVELS" "POLYGONS" "SHADERANGE" "SHADING" "TICKINTERVAL" "TICKLEN" "PRECISIONDATA" "PRECISIONGEOM" "PRECISIONGRAPH" "LEVELINFO" "CFILL1" "IDLGRCONTOURBOTTOM") + (inherits)) + ("IDLgrROI" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRROI_TOP" "IDLGRROIVERSION" "LINESTYLE" "STYLE" "SYMBOL" "THICK" "IDLGRROI_BOTTOM") + (inherits "IDLanROI")) + ("IDLgrSurface" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRSURFACETOP" "IDLGRSURFACEVERSION" "DATA" "PRECISION" "SKIRT" "VERTCOLORS" "BTMCOLOR" "SURFACEFLAGS" "LINESTYLE" "MAXVALUE" "MINVALUE" "SHADING" "SHADERANGE" "STYLE" "NORMALS" "TXTRCOORD" "TXTRMAP" "THICK" "IDLGRSURFACEBOTTOM") + (inherits)) + ("IDLgrWindow" + (tags "IDLGRSRCDEST_TOP" "IDLGRSRCDESTVERSION" "CLIENTDIMENSIONS" "COLORMODEL" "SRCDESTFLAGS" "GRAPHICS_TREE" "NCOLORS" "PALETTE" "QUALITY" "RESOLUTION" "UVALUE" "DIST" "FILL1" "DEV" "FILL2" "ATTRS" "FILL3" "CACHES" "FILL4" "IDLGRSRCDEST_BOTTOM" "IDLGRWINDOW_TOP" "IDLGRWINDOWVERSION" "WINDOWFLAGS" "DIMENSIONS" "DISPLAYNAME" "INDEX" "LOCATION" "RENDERER" "RETAIN" "SCREENDIMENSIONS" "SELF" "TITLE" "UNITS" "NEXT" "WFILL1" "PARENT" "WFILL2" "IDLGRWINDOW_BOTTOM") + (inherits)) + ("IDLgrPolygon" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRPOLYGONTOP" "IDLGRPOLYGONVERSION" "DATA" "PRECISION" "FILLPATTERN" "POLYGONS" "NORMALS" "POLYGONFLAGS" "SHADING" "SHADERANGE" "STYLE" "TXTRCOORD" "TXTRMAP" "VERTCOLORS" "BTMCOLOR" "LINESTYLE" "THICK" "IDLGRPOLYGONBOTTOM") + (inherits)) + ("IDLgrVolume" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRVOLUMETOP" "IDLGRVOLUMEVERSION" "AMBIENT" "BOUNDS" "LIMITS" "DIMENSIONS" "COLORTABLE" "COMPOSITEFUNC" "CUTPLANES" "NUMCUTPLANES" "DEPTH_CUE" "OPACITYTABLE" "RENDERSTEP" "DATA" "EDM_VOLUME" "VOLUMEFLAGS" "IDLGRVOLUMEBOTTOM") + (inherits)) + ("IDLgrPlot" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRPLOT_TOP" "IDLGRPLOTVERSION" "DATA" "PLOTFLAGS" "LINESTYLE" "PRECISION" "MAXVAL" "MINVAL" "NSUM" "SYMBOL" "PSYMBOL" "THICK" "VERTCOLORS" "ZVALUE" "LINEDATA" "PFILL1" "IDLGRPLOT_BOTTOM") + (inherits)) + ("IDLgrROIGroup" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRROIGROUP_TOP" "IDLGRROIGROUPVERSION" "IDLGRROI_BOTTOM") + (inherits "IDLanROIGroup")) + ("IDLgrColorbar" + (tags "OCOORDCONVNODE" "OSCALENODE" "MAXDIM" "DIMENSIONS" "OAXIS" "OPOLY" "OSURF" "OIMAGE" "OPALETTE" "FREE_PALETTE" "SHOW_AXIS" "IDLGRCOLORBARVERSION") + (inherits "IDLgrModel")) + ("IDLgrText" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRTEXT_TOP" "IDLGRTEXTVERSION" "TEXTFLAGS" "ALIGNMENT" "BASELINE" "CHAR_DIMENSIONS" "RECOMP_CTM" "FONT" "LOCATIONS" "STRINGS" "SUBPARENT" "UPDIR" "VERTICAL_ALIGNMENT" "IDLGRTEXT_BOTTOM") + (inherits)) + ("IDLgrPolyline" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRPOLYLINETOP" "IDLGRPOLYLINEVERSION" "DATA" "PRECISION" "LINESTYLE" "POLYLINES" "SYMBOL" "PSYMBOL" "THICK" "SHADING" "VERTCOLORS" "IDLGRPOLYLINEBOTTOM") + (inherits)) + ("IDLgrView" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRCONTAINER_TOP" "IDLGRCONTAINERVERSION" "ISDYING" "IDLGRCONTAINER_BOTTOM" "IDLGRVIEW_TOP" "IDLGRVIEWVERSION" "COLOR" "DEPTH_CUE" "DIMENSIONS" "PRECISION" "EYE" "LOCATION" "OBLIQUE" "PROJECTION" "TRANSPARENT" "UNITS" "VIEW" "ZCLIP" "IDLGRVIEW_BOTTOM") + (inherits "IDL_Container")) + ("IDLgrImage" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRIMAGE_TOP" "IDLGRIMAGEVERSION" "CHANNEL" "DATA" "DIMENSIONS" "SUB_RECT" "IMAGEFLAGS" "LOCATION" "INTERLEAVE" "INTERPOLATE" "BLEND_FUNCTIONS" "IDLGRIMAGE_BOTTOM") + (inherits)) + ("IDLgrLight" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "COLOR" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRLIGHT_TOP" "IDLGRLIGHTVERSION" "ATTENUATION" "CONEANGLE" "DIRECTION" "FOCUS" "INTENSITY" "LOCATION" "TYPE" "IDLGRLIGHT_BOTTOM") + (inherits)) + ("IDLgrClipboard" + (tags "IDLGRSRCDEST_TOP" "IDLGRSRCDESTVERSION" "CLIENTDIMENSIONS" "COLORMODEL" "SRCDESTFLAGS" "GRAPHICS_TREE" "NCOLORS" "PALETTE" "QUALITY" "RESOLUTION" "UVALUE" "DIST" "FILL1" "DEV" "FILL2" "ATTRS" "FILL3" "CACHES" "FILL4" "IDLGRSRCDEST_BOTTOM" "IDLGRCLIPBOARDTOP" "IDLGRCLIPBOARDVERSION" "UNITS" "DIMENSIONS" "FILENAME" "VECTOR" "POSTSCRIPT" "IDLGRCLIPBOARDBOTTOM") + (inherits)) + ("IDLgrVRML" + (tags "IDLGRSRCDEST_TOP" "IDLGRSRCDESTVERSION" "CLIENTDIMENSIONS" "COLORMODEL" "SRCDESTFLAGS" "GRAPHICS_TREE" "NCOLORS" "PALETTE" "QUALITY" "RESOLUTION" "UVALUE" "DIST" "FILL1" "DEV" "FILL2" "ATTRS" "FILL3" "CACHES" "FILL4" "IDLGRSRCDEST_BOTTOM" "IDLGRVRMLTOP" "IDLGRVRMLVERSION" "UNITS" "DIMENSIONS" "FILENAME" "WORLDINFO" "WORLDTITLE" "IDLGRVRMLBOTTOM") + (inherits)) + ("IDLgrPrinter" + (tags "IDLGRSRCDEST_TOP" "IDLGRSRCDESTVERSION" "CLIENTDIMENSIONS" "COLORMODEL" "SRCDESTFLAGS" "GRAPHICS_TREE" "NCOLORS" "PALETTE" "QUALITY" "RESOLUTION" "UVALUE" "DIST" "FILL1" "DEV" "FILL2" "ATTRS" "FILL3" "CACHES" "FILL4" "IDLGRSRCDEST_BOTTOM" "IDLGRPRINTER_TOP" "IDLGRPRINTERVERSION" "PRINTERFLAGS" "NAME" "NCOPIES" "UNITS" "GAMMA" "IDLGRPRINTER_BOTTOM") + (inherits)) + ("IDLgrBuffer" + (tags "IDLGRSRCDEST_TOP" "IDLGRSRCDESTVERSION" "CLIENTDIMENSIONS" "COLORMODEL" "SRCDESTFLAGS" "GRAPHICS_TREE" "NCOLORS" "PALETTE" "QUALITY" "RESOLUTION" "UVALUE" "DIST" "FILL1" "DEV" "FILL2" "ATTRS" "FILL3" "CACHES" "FILL4" "IDLGRSRCDEST_BOTTOM" "IDLGRBUFFERTOP" "IDLGRBUFFERVERSION" "UNITS" "DIMENSIONS" "IDLGRBUFFERBOTTOM") + (inherits)) + ("IDLgrModel" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRCONTAINER_TOP" "IDLGRCONTAINERVERSION" "ISDYING" "IDLGRCONTAINER_BOTTOM" "IDLGRMODEL_TOP" "IDLGRMODELVERSION" "MODELFLAGS" "TRANSFORM" "IDLGRMODEL_BOTTOM") + (inherits "IDL_Container")) + ("IDLgrScene" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRCONTAINER_TOP" "IDLGRCONTAINERVERSION" "ISDYING" "IDLGRCONTAINER_BOTTOM" "IDLGRSCENE_TOP" "IDLGRSCENEVERSION" "COLOR" "TRANSPARENT" "IDLGRSCENE_BOTTOM") + (inherits "IDL_Container")) + ("IDLgrMPEG" + (tags "IDLGRMPEG_TOP" "IDLGRMPEGVERSION" "DIMENSIONS" "FILENAME" "FORMAT" "FRAMERATE" "INTERLACED" "QUALITY" "SCALE" "STATISTICS" "DISPLAYDIMS" "FIRSTFRAME" "LASTFRAME" "MPEGID" "TEMPNODE" "TEMPNODEFILLER" "TEMP_DIRECTORY" "BITRATE" "IFRAME_GAP" "MOTION_LENGTH" "FLAGS" "IDLGRMPEG_BOTTOM") + (inherits)) + ("IDLgrViewgroup" + (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "NAME" "PARENT" "UVALUE" "IDLGRCOMPONENT_BOTTOM" "IDLGRCONTAINER_TOP" "IDLGRCONTAINERVERSION" "ISDYING" "IDLGRCONTAINER_BOTTOM" "IDLGRVIEWGROUPTOP" "IDLGRVIEWGROUPVERSION" "IDLGRVIEWGROUPBOTTOM") + (inherits "IDL_Container")) + ("IDLdbRecordset" + (tags "DTOPPAD" "IDLDBRECORDSETVERSION" "ISTABLE" "PDBOBJ" "ISREADONLY" "NFIELDS" "CURROW" "SOURCE" "CURSORTYPE" "PFIELDS" "PSDEF" "ROWSTATUS" "ROWSET" "ROWPOS" "HSTMT" "HDBC" "DBOTTOMPAD") + (inherits)) + ("IDLdbDatabase" + (tags "DTOPPAD" "IDLDBDATABASEVERSION" "READONLY" "ISCONNECTED" "FETCHDIR" "POSOPS" "POSSTATEMENTS" "SCROLLCONCUR" "SCROLLOPTIONS" "STATICSENSE" "GETDATAEXT" "USINGCURSOR" "NSTATEMENTS" "P_RECOBJS" "HDBC" "DBOTTOMPAD") + (inherits)) + ("IDLanROI" + (tags "IDLANROI_TOP" "IDLANROIVERSION" "IDLANROIFLAGS" "NALLOCVERTS" "NUSEDVERTS" "BLOCKSIZE" "DATA" "TYPE" "PRECISION" "PLANE" "ROI_XRANGE" "ROI_YRANGE" "ROI_ZRANGE" "IDLANROI_BOTTOM") + (inherits)) + ("IDLanROIGroup" + (tags "IDLANROIGROUP_TOP" "IDLANROIGROUPVERSION" "IDLANROIGROUPFLAGS" "ROIGROUP_XRANGE" "ROIGROUP_YRANGE" "ROIGROUP_ZRANGE" "IDLANROIGROUP_BOTTOM") + (inherits "IDL_Container")) + ("IDLgrPalette" + (tags "IDLGRPALETTE_SERIALNUM" "IDLGRPALETTEVERSION" "GAMMA" "BOTTOMSTRETCH" "TOPSTRETCH" "NENTRIES" "ORIGLUT" "CURRLUT" "INVTABLE" "UVALUE" "NAME" "IDLGRPALETTE_BOTTOM") + (inherits)) + ("IDLgrFont" + (tags "IDLGRFONT_TOP" "IDLGRFONTVERSION" "FONTFLAGS" "HERSHEY" "NAME" "SIZE" "SUBSTITUTE" "THICK" "ID" "UVALUE" "IDLGRFONT_BOTTOM") + (inherits)) + ("IDLgrSymbol" + (tags "IDLGRSYMBOLTOP" "IDLGRSYMBOLVERSION" "COLOR" "DATA" "SIZE" "THICK" "FLAGS" "UVALUE" "NAME" "IDLGRSYMBOLBOTTOM") + (inherits)) + ("IDLgrPattern" + (tags "IDLGRPATTERN_TOP" "IDLGRPATTERNVERSION" "ORIENTATION" "PATTERN" "SPACING" "STYLE" "THICK" "UVALUE" "NAME" "IDLGRPATTERN_BOTTOM") + (inherits)) + ("IDLffShape" + (tags "IDLFFSHAPE_TOP" "IDLFFSHAPEVERSION" "FILENAME" "ISOPEN" "SHPTYPE" "PATTRIBUTE" "SHAPEHANDLE" "DBFHANDLE" "IDLFFSHAPE_BOTTOM") + (inherits)) + ("TrackBall" + (tags "BTNDOWN" "AXIS" "CONSTRAIN" "MOUSE" "CENTER" "RADIUS" "PT0" "PT1") + (inherits)) + ("IDLffDXF" + (tags "IDLFFDXF_TOP" "IDLFFDXFVERSION" "DXFREADVALID" "DXFHANDLEVALID" "DXFLUT" "DXFHANDLE" "DXFHANDLEFILLER" "IDLFFDXF_BOTTOM") + (inherits)) + ("IDLffDICOM" + (tags "IDLFFDICOM_TOP" "IDLFFDICOMVERSION" "DICOMFLAGS" "DICOMELEMENTS" "DICOMPREAMBLE" "DICOMHANDLE" "DICOMHANDLEFILLER" "IDLFFDICOM_BOTTOM") + (inherits)) + ("IDLgrTessellator" + (tags "IDLGRTESSELLATORTOP" "IDLGRTESSELLATORVERSION" "ITESSFLAGS" "IVERTS" "HVIDLIST" "IDLGRTESSELLATORBOTTOM") + (inherits)) + ("IDL_Container" + (tags "IDL_CONTAINER_TOP" "IDLCONTAINERVERSION" "PHEAD" "PTAIL" "NLIST" "IDL_CONTAINER_BOTTOM") + (inherits)))) (provide 'idlw-rinfo) (provide 'idlwave-rinfo) diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index 0cec20df16a..d03f11bfbca 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el @@ -1,11 +1,12 @@ ;;; idlw-shell.el --- Run IDL or WAVE as an inferior process of Emacs. - -;; Copyright (c) 1994, 1995, 1996, 1999, 2000 Free Software Foundation +;; Copyright (c) 1994-1996 Chris Chase +;; Copyright (c) 1999 Carsten Dominik +;; Copyright (c) 1999, 2000 Free Software Foundation ;; Author: Chris Chase <chase@att.com> ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl> -;; Version: 4.2 -;; Date: $Date: 2000/12/06 19:48:20 $ +;; Version: 4.7 +;; Date: $Date: 2000/12/08 08:45:40 $ ;; Keywords: processes ;; This file is part of GNU Emacs. @@ -115,8 +116,8 @@ ;;; Customizations: idlwave-shell group (defgroup idlwave-shell-general-setup nil - "Indentation options for IDL/WAVE mode." - :prefix "idlwave" + "General setup of the Shell interaction for IDLWAVE/Shell." + :prefix "idlwave-shell" :group 'idlwave) (defcustom idlwave-shell-prompt-pattern "^ ?IDL> " @@ -136,12 +137,7 @@ process output is made by surrounding this name with `*'s." :group 'idlwave-shell-general-setup :type 'string) -(defcustom idlwave-shell-automatic-start nil - "*If non-nil attempt invoke idlwave-shell if not already running. -This is checked when an attempt to send a command to an -IDL process is made." - :group 'idlwave-shell-general-setup - :type 'boolean) +;; (defcustom idlwave-shell-automatic-start...) See idlwave.el (defcustom idlwave-shell-initial-commands "!more=0" "Initial commands, separated by newlines, to send to IDL. @@ -164,8 +160,22 @@ The default makes the frame splittable, so that completion works correctly." :type '(repeat (cons symbol sexp))) +(defcustom idlwave-shell-arrows-do-history t + "*Non-nil means UP and DOWN arrows move through command history. +This variable can have 3 values: +nil Arrows just move the cursor +t Arrows force the cursor back to the current command line and + walk the history +'cmdline When the cursor is in the current command line, arrows walk the + history. Everywhere else in the buffer, arrows move the cursor." + :group 'idlwave-shell-general-setup + :type '(choice + (const :tag "never" nil) + (const :tag "everywhere" t) + (const :tag "in command line only" cmdline))) + (defcustom idlwave-shell-use-toolbar t - "Non-nil means, use the debugging toolbar in all IDL related buffers. + "*Non-nil means, use the debugging toolbar in all IDL related buffers. Starting the shell will then add the toolbar to all idlwave-mode buffers. Exiting the shell will removed everywhere. Available on XEmacs and on Emacs 21.x or later. @@ -191,7 +201,7 @@ If non-nil then run `idlwave-shell-remove-breaks' to clean up IDL messages.") (defcustom idlwave-shell-prefix-key "\C-c\C-d" "*The prefix key for the debugging map `idlwave-shell-mode-prefix-map'. This variable must already be set when idlwave-shell.el is loaded. -Seting it in the mode-hook is too late." +Setting it in the mode-hook is too late." :group 'idlwave-shell-general-setup :type 'string) @@ -202,11 +212,10 @@ So by default setting a breakpoint will be on C-c C-d C-b." :group 'idlwave-shell-general-setup :type 'boolean) -(defcustom idlwave-shell-activate-alt-keybindings nil - "Non-nil means, the debug commands will be bound to alternate keys. -So for example setting a breakpoint will be on A-b." - :group 'idlwave-shell-general-setup - :type 'boolean) +;; (defcustom idlwave-shell-debug-modifiers... See idlwave.el + +(defvar idlwave-shell-activate-alt-keybindings nil + "Obsolete variable. See `idlwave-shell-debug-modifiers'.") (defcustom idlwave-shell-use-truename nil "*Non-nil means, use use `file-truename' when looking for buffers. @@ -221,7 +230,7 @@ to set this option to nil." :group 'idlwave-shell-general-setup :type 'boolean) -(defcustom idlwave-shell-file-name-chars "~/A-Za-z0-9+@:_.$#%={}-" +(defcustom idlwave-shell-file-name-chars "~/A-Za-z0-9+@:_.$#%={}\\-" "The characters allowed in file names, as a string. Used for file name completion. Must not contain `'', `,' and `\"' because these are used as separators by IDL." @@ -271,7 +280,7 @@ output, shell operation may be slowed down. This mechanism is useful for correct interaction with the IDL function GET_KBRD, because in normal operation IDLWAVE only sends \\n terminated -strings. Here is some example code which makes use of teh default spells. +strings. Here is some example code which makes use of the default spells. print,'<chars>' ; Make IDLWAVE switch to character mode REPEAT BEGIN @@ -310,11 +319,20 @@ end" (regexp :tag "Char-mode regexp") (regexp :tag "Line-mode regexp"))) +(defcustom idlwave-shell-graphics-window-size '(500 400) + "Size of IDL graphics windows popped up by special IDLWAVE command. +The command is `C-c C-d C-f' and accepts as a prefix the window nr. +A command like `WINDOW,N,xsize=XX,ysize=YY' is sent to IDL." + :group 'idlwave-shell-general-setup + :type '(list + (integer :tag "x size") + (integer :tag "y size"))) + ;;; Breakpoint Overlays etc (defgroup idlwave-shell-highlighting-and-faces nil - "Indentation options for IDL/WAVE mode." - :prefix "idlwave" + "Highlighting and Faces used by the IDLWAVE Shell mode." + :prefix "idlwave-shell" :group 'idlwave) (defcustom idlwave-shell-mark-stop-line t @@ -325,7 +343,7 @@ are: nil Do not mark the line 'arrow Use the overlay arrow 'face Use `idlwave-shell-stop-line-face' to highlight the line. -t Use what IDLWAVE things is best. Will be a face where possible, +t Use what IDLWAVE thinks is best. Will be a face where possible, otherwise the overlay arrow. The overlay-arrow has the disadvantage to hide the first chars of a line. Since many people do not have the main block of IDL programs indented, @@ -424,7 +442,7 @@ before use by the shell.") "Command used by `idlwave-shell-resync-dirs' to query IDL for the directory stack.") -(defvar idlwave-shell-path-query "__pa=expand_path(!path,/array)&for i=0,n_elements(__pa)-1 do print,'PATH:',__pa[i]&print,'SYSDIR:',!dir" +(defvar idlwave-shell-path-query "__pa=expand_path(!path,/array)&for i=0,n_elements(__pa)-1 do print,'PATH:<'+__pa[i]+'>'&print,'SYSDIR:<'+!dir+'>'" "The command which gets !PATH and !DIR infor from the shell.") (defvar idlwave-shell-mode-line-info nil @@ -598,7 +616,8 @@ IDL has currently stepped.") Command history, searching of previous commands, command line editing are available via the comint-mode key bindings, by default - mostly on the key `C-c'. + mostly on the key `C-c'. Command history is also available with + the arrow keys UP and DOWN. 2. Completion ---------- @@ -656,6 +675,8 @@ IDL has currently stepped.") \\{idlwave-shell-mode-map}" (interactive) + ;; We don't do `kill-all-local-variables' here, because this is done by + ;; comint - idlwave-shell-mode only add on top of that. (setq comint-prompt-regexp idlwave-shell-prompt-pattern) (setq comint-process-echoes t) ;; Can not use history expansion because "!" is used for system variables. @@ -712,10 +733,13 @@ IDL has currently stepped.") (use-local-map idlwave-shell-mode-map) (easy-menu-add idlwave-shell-mode-menu idlwave-shell-mode-map) + (set (make-local-variable 'comint-scroll-to-bottom-on-input) t) + (set (make-local-variable 'comint-scroll-show-maximum-output) t) + ;; IDLWAVE syntax, and turn on abbreviations (setq local-abbrev-table idlwave-mode-abbrev-table) (set-syntax-table idlwave-mode-syntax-table) - (setq comment-start ";") + (set (make-local-variable 'comment-start) ";") (setq abbrev-mode t) (make-local-hook 'post-command-hook) (add-hook 'post-command-hook 'idlwave-command-hook nil t) @@ -811,8 +835,6 @@ See also the variable `idlwave-shell-prompt-pattern'. (buf (apply 'make-comint idlwave-shell-process-name prg nil idlwave-shell-command-line-options)) - ;; FIXME: the next line can go? - ;(buf (make-comint idlwave-shell-process-name prg)) (process (get-buffer-process buf))) (setq idlwave-idlwave_routine_info-compiled nil) (set-process-filter process 'idlwave-shell-filter) @@ -885,9 +907,8 @@ and if `idlwave-shell-ready' is non-nil." (if (and idlwave-shell-ready ;; Check for IDL prompt (save-excursion - ;; Using (forward-line 0) instead of beginning-of-line - ;; avoids any field constraints. - (forward-line 0) + (forward-line 0) + ;; (beginning-of-line) ; Changed for Emacs 21 (looking-at idlwave-shell-prompt-pattern))) ;; IDL ready for command (if idlwave-shell-pending-commands @@ -980,7 +1001,7 @@ when the IDL prompt gets displayed again after the current IDL command." ;; Interpret input as a character - ignore non-char input (condition-case nil (setq c (read-char)) - (error (setq c nil))) + (error (ding) (throw 'exit "Character mode off"))) (cond ((null c) ; Non-char event: ignore (ding)) @@ -993,6 +1014,33 @@ when the IDL prompt gets displayed again after the current IDL command." (and (eq idlwave-shell-char-mode-active 'exit) (throw 'exit "Single char loop exited")))))))) +(defun idlwave-shell-up-or-history (&optional arg) + "When in last line of process buffer, do `comint-previous-input'. +Otherwise just do `previous-line'." + (interactive "p") + (if (eq t idlwave-shell-arrows-do-history) (goto-char (point-max))) + (if (and idlwave-shell-arrows-do-history + (>= (1+ (save-excursion (end-of-line) (point))) + (marker-position + (process-mark (get-buffer-process (current-buffer)))))) + (progn + (and (not (eolp)) (kill-line nil)) + (comint-previous-input arg)) + (previous-line arg))) + +(defun idlwave-shell-down-or-history (&optional arg) + "When in last line of process buffer, do `comint-next-input'. + Otherwise just do `next-line'." + (interactive "p") + (if (eq t idlwave-shell-arrows-do-history) (goto-char (point-max))) + (if (and idlwave-shell-arrows-do-history + (>= (1+ (save-excursion (end-of-line) (point))) + (marker-position + (process-mark (get-buffer-process (current-buffer)))))) + (progn + (and (not (eolp)) (kill-line nil)) + (comint-next-input arg)) + (next-line arg))) ;; There was a report that a newer version of comint.el changed the ;; name of comint-filter to comint-output-filter. Unfortunately, we @@ -1125,8 +1173,7 @@ and then calls `idlwave-shell-send-command' for any pending commands." (delete-frame idlwave-shell-idl-wframe) (setq idlwave-shell-idl-wframe nil idlwave-shell-display-wframe nil)) - (when (and (window-live-p win) - (not (one-window-p))) + (when (window-live-p win) (delete-window win)) (idlwave-shell-cleanup))) @@ -1350,6 +1397,15 @@ file name." (error "Abort")) (message "Killing buffer *idl* and the associated process"))) +(defun idlwave-shell-window (n) + "Issue a `window,N' command to IDL, with special window size. +The size is given by `idlwave-shell-graphics-window-size'." + (interactive "P") + (let ((n (if n (prefix-numeric-value n) 0))) + (idlwave-shell-send-command + (apply 'format "window,%d,xs=%d,ys=%d" + n idlwave-shell-graphics-window-size)))) + (defun idlwave-shell-resync-dirs () "Resync the buffer's idea of the current directory stack. This command queries IDL with the command bound to @@ -1405,11 +1461,11 @@ HEAP_GC, /VERBOSE" (case-fold-search t) (start 0) dirs sysdir) - (while (string-match "^PATH:[ \t]*\\(.*\\)\n" path-string start) + (while (string-match "^PATH:[ \t]*<\\(.*\\)>[ \t]*\n" path-string start) (push (match-string 1 path-string) dirs) (setq start (match-end 0))) (setq dirs (mapcar 'file-name-as-directory dirs)) - (if (string-match "^SYSDIR:[ \t]*\\(.*\\)\n" path-string) + (if (string-match "^SYSDIR:[ \t]*<\\(.*\\)>[ \t]*\n" path-string) (setq sysdir (file-name-as-directory (match-string 1 path-string)))) (cons sysdir (nreverse dirs)))) @@ -1737,11 +1793,6 @@ If FRAME is nil then remove overlay." ;; Make sure pos is really displayed in the window. (set-window-point window pos) - ;; FIXME: the following frame redraw was taken out because it - ;; flashes. I think it is not needed. The code is left here in - ;; case we have to put it back in. - ;; (redraw-frame (window-frame window)) - ;; If we came from the shell, go back there. Otherwise select ;; the window where the error is displayed. (if (and (equal (buffer-name) (idlwave-shell-buffer)) @@ -2028,25 +2079,26 @@ for an expression." (if (and (not mouse) (or arg (eq major-mode 'idlwave-shell-mode))) (setq expr (read-string "Expression: ")) - ;; Move to beginning of current or previous expression - (if (looking-at "\\<\\|(") - ;; At beginning of expression, don't move backwards unless - ;; this is at the end of an indentifier. - (if (looking-at "\\>") - (backward-sexp)) - (backward-sexp)) - (if (looking-at "\\>") - ;; Move to beginning of identifier - must be an array or - ;; function expression. - (backward-sexp)) - ;; Move to end of expression - (setq beg (point)) - (forward-sexp) - (while (looking-at "\\>[[(]\\|\\.") - ;; an array - (forward-sexp)) - (setq end (point)) - (setq expr (buffer-substring beg end))) + (idlwave-with-special-syntax1 + ;; Move to beginning of current or previous expression + (if (looking-at "\\<\\|(") + ;; At beginning of expression, don't move backwards unless + ;; this is at the end of an indentifier. + (if (looking-at "\\>") + (backward-sexp)) + (backward-sexp)) + (if (looking-at "\\>") + ;; Move to beginning of identifier - must be an array or + ;; function expression. + (backward-sexp)) + ;; Move to end of expression + (setq beg (point)) + (forward-sexp) + (while (looking-at "\\>[[(]\\|\\.") + ;; an array + (forward-sexp)) + (setq end (point)) + (setq expr (buffer-substring beg end)))) (when (and beg end idlwave-shell-expression-overlay) (move-overlay idlwave-shell-expression-overlay beg end (current-buffer)) @@ -2419,7 +2471,6 @@ considered the new breakpoint if the file name of frame matches." (defun idlwave-shell-update-bp-overlays () "Update the overlays which mark breakpoints in the source code. Existing overlays are recycled, in order to minimize consumption." - ;; FIXME: we could cache them all, but that would be more work. (when idlwave-shell-mark-breakpoints (let ((bp-list idlwave-shell-bp-alist) (ov-list idlwave-shell-bp-overlays) @@ -2727,6 +2778,8 @@ Otherwise, just expand the file name." (define-key idlwave-shell-mode-map "\C-c\C-k" 'idlwave-kill-autoloaded-buffers) (define-key idlwave-shell-mode-map idlwave-shell-prefix-key 'idlwave-shell-debug-map) +(define-key idlwave-shell-mode-map [(up)] 'idlwave-shell-up-or-history) +(define-key idlwave-shell-mode-map [(down)] 'idlwave-shell-down-or-history) (define-key idlwave-mode-map "\C-c\C-y" 'idlwave-shell-char-mode-loop) (define-key idlwave-mode-map "\C-c\C-x" 'idlwave-shell-send-char) (define-key idlwave-mode-map @@ -2749,50 +2802,62 @@ Otherwise, just expand the file name." ;; The following set of bindings is used to bind the debugging keys. ;; If `idlwave-shell-activate-prefix-keybindings' is non-nil, the first key ;; in the list gets bound the C-c C-d prefix map. -;; If `idlwave-shell-activate-alt-keybindings' is non-nil, the second key -;; in the list gets bound directly in both idlwave-mode-map and -;; idlwave-shell-mode-map. - -;; Used keys: abcde hi klmnopqrs u wxyz -;; Unused keys: fg j t v -(let ((specs - '(([(control ?b)] [(alt ?b)] idlwave-shell-break-here) - ([(control ?i)] [(alt ?i)] idlwave-shell-break-in) - ([(control ?d)] [(alt ?d)] idlwave-shell-clear-current-bp) - ([(control ?a)] [(alt ?a)] idlwave-shell-clear-all-bp) - ([(control ?s)] [(alt ?s)] idlwave-shell-step) - ([(control ?n)] [(alt ?n)] idlwave-shell-stepover) - ([(control ?k)] [(alt ?k)] idlwave-shell-skip) - ([(control ?u)] [(alt ?u)] idlwave-shell-up) - ([(control ?o)] [(alt ?o)] idlwave-shell-out) - ([(control ?m)] [(alt ?m)] idlwave-shell-return) - ([(control ?h)] [(alt ?h)] idlwave-shell-to-here) - ([(control ?r)] [(alt ?r)] idlwave-shell-cont) - ([(control ?y)] [(alt ?y)] idlwave-shell-execute-default-command-line) - ([(control ?z)] [(alt ?z)] idlwave-shell-reset) - ([(control ?q)] [(alt ?q)] idlwave-shell-quit) - ([(control ?p)] [(alt ?p)] idlwave-shell-print) - ([(??)] [(alt ??)] idlwave-shell-help-expression) - ([(control ?c)] [(alt ?c)] idlwave-shell-save-and-run) - ([( ?@)] [(alt ?@)] idlwave-shell-save-and-batch) - ([(control ?x)] [(alt ?x)] idlwave-shell-goto-next-error) - ([(control ?e)] [(alt ?e)] idlwave-shell-run-region) - ([(control ?w)] [(alt ?w)] idlwave-shell-resync-dirs) - ([(control ?l)] [(alt ?l)] idlwave-shell-redisplay) - ([(control ?t)] [(alt ?t)] idlwave-shell-toggle-toolbar) - ([(control up)] [(alt up)] idlwave-shell-stack-up) - ([(control down)] [(alt down)] idlwave-shell-stack-down) - )) - s k1 k2 cmd) +;; If `idlwave-shell-debug-modifiers' is non-nil, the second key +;; in the list gets bound with the specified modifiers in both +;; `idlwave-mode-map' and `idlwave-shell-mode-map'. + +;; Used keys: abcdef hi klmnopqrs u wxyz +;; Unused keys: g j t v +(let* ((specs + '(([(control ?b)] ?b idlwave-shell-break-here) + ([(control ?i)] ?i idlwave-shell-break-in) + ([(control ?d)] ?d idlwave-shell-clear-current-bp) + ([(control ?a)] ?a idlwave-shell-clear-all-bp) + ([(control ?s)] ?s idlwave-shell-step) + ([(control ?n)] ?n idlwave-shell-stepover) + ([(control ?k)] ?k idlwave-shell-skip) + ([(control ?u)] ?u idlwave-shell-up) + ([(control ?o)] ?o idlwave-shell-out) + ([(control ?m)] ?m idlwave-shell-return) + ([(control ?h)] ?h idlwave-shell-to-here) + ([(control ?r)] ?r idlwave-shell-cont) + ([(control ?y)] ?y idlwave-shell-execute-default-command-line) + ([(control ?z)] ?z idlwave-shell-reset) + ([(control ?q)] ?q idlwave-shell-quit) + ([(control ?p)] ?p idlwave-shell-print) + ([(??)] ?? idlwave-shell-help-expression) + ([(control ?c)] ?c idlwave-shell-save-and-run) + ([( ?@)] ?@ idlwave-shell-save-and-batch) + ([(control ?x)] ?x idlwave-shell-goto-next-error) + ([(control ?e)] ?e idlwave-shell-run-region) + ([(control ?w)] ?w idlwave-shell-resync-dirs) + ([(control ?l)] ?l idlwave-shell-redisplay) + ([(control ?t)] ?t idlwave-shell-toggle-toolbar) + ([(control up)] up idlwave-shell-stack-up) + ([(control down)] down idlwave-shell-stack-down) + ([(control ?f)] ?f idlwave-shell-window))) + (mod (cond ((and idlwave-shell-debug-modifiers + (listp idlwave-shell-debug-modifiers) + (not (equal '() idlwave-shell-debug-modifiers))) + idlwave-shell-debug-modifiers) + (idlwave-shell-activate-alt-keybindings + '(alt)))) + (shift (memq 'shift mod)) + (mod-noshift (delete 'shift (copy-sequence mod))) + s k1 c2 k2 cmd) (while (setq s (pop specs)) (setq k1 (nth 0 s) - k2 (nth 1 s) + c2 (nth 1 s) cmd (nth 2 s)) (when idlwave-shell-activate-prefix-keybindings (and k1 (define-key idlwave-shell-mode-prefix-map k1 cmd))) - (when idlwave-shell-activate-alt-keybindings - (and k2 (define-key idlwave-mode-map k2 cmd)) - (and k2 (define-key idlwave-shell-mode-map k2 cmd))))) + (when (and mod window-system) + (if (char-or-string-p c2) + (setq k2 (vector (append mod-noshift + (list (if shift (upcase c2) c2))))) + (setq k2 (vector (append mod (list c2))))) + (define-key idlwave-mode-map k2 cmd) + (define-key idlwave-shell-mode-map k2 cmd)))) ;; Enter the prefix map at the two places. (fset 'idlwave-debug-map idlwave-shell-mode-prefix-map) @@ -2849,7 +2914,7 @@ Otherwise, just expand the file name." "--" ["Toggle Toolbar" idlwave-shell-toggle-toolbar t] ["Exit IDL" idlwave-shell-quit t])) -;;FIXME: Which menu??? + (setq idlwave-shell-menu-def '("Debug" ("Compile & Run" @@ -2875,7 +2940,7 @@ Otherwise, just expand the file name." ["Clear Breakpoint" idlwave-shell-clear-current-bp t] ["Clear All Breakpoints" idlwave-shell-clear-all-bp t] ["List All Breakpoints" idlwave-shell-list-all-bp t]) - ("Step" + ("Continue/Step" ["Step (into)" idlwave-shell-step t] ["Step (over)" idlwave-shell-stepover t] ["Skip One Statement" idlwave-shell-skip t] diff --git a/lisp/progmodes/idlw-toolbar.el b/lisp/progmodes/idlw-toolbar.el index dab650c3ec7..76b42930ee0 100644 --- a/lisp/progmodes/idlw-toolbar.el +++ b/lisp/progmodes/idlw-toolbar.el @@ -3,7 +3,7 @@ ;; Copyright (c) 1999, 2000 Free Software Foundation ;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> -;; Version: 4.2 +;; Version: 4.7 ;; Date: $Date: 2000/06/06 10:40:52 $ ;; Keywords: processes diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index 0dda942d6c5..a921fbe81f9 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -1,11 +1,12 @@ ;;; idlwave.el --- IDL and WAVE CL editing mode for GNU Emacs - -;; Copyright (c) 1994, 1995, 1997, 1999, 2000 Free Software Foundation +;; Copyright (c) 1994-1997 Chris Chase +;; Copyright (c) 1999 Carsten Dominik +;; Copyright (c) 1999, 2000 Free Software Foundation ;; Author: Chris Chase <chase@att.com> ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl> -;; Version: 4.2 -;; Date: $Date: 2000/12/06 19:46:15 $ +;; Version: 4.7 +;; Date: $Date: 2000/12/07 20:47:51 $ ;; Keywords: languages ;; This file is part of the GNU Emacs. @@ -450,6 +451,14 @@ definition is displayed instead." "Face for highlighting links into IDLWAVE online help." :group 'idlwave-online-help) +(defcustom idlwave-help-activate-links-agressively t + "*Non-nil means, make all possible links in help active. +This just activates all words which are also a help topic - some links may +be misleading." + :group 'idlwave-online-help + :type 'boolean) + + (defgroup idlwave-completion nil "Completion options for IDLWAVE mode." :prefix "idlwave" @@ -544,6 +553,13 @@ This option is only effective when the online help system is installed." :group 'idlwave-completion :type 'boolean) +(defcustom idlwave-support-inheritance t + "Non-nil means, treat inheritance with completion, online help etc. +When nil, IDLWAVE only knows about the native methods and tags of a class, +not about inherited ones." + :group 'idlwave-routine-info + :type 'boolean) + (defcustom idlwave-completion-show-classes 1 "*Number of classes to show when completing object methods and keywords. When completing methods or keywords for an object with unknown class, @@ -929,7 +945,7 @@ If nil it will not be inserted." ;;; External Programs ------------------------------------------------------- (defgroup idlwave-external-programs nil - "Miscellaneous options for IDLWAVE mode." + "Path locations of external commands used by IDLWAVE." :group 'idlwave) ;; WARNING: The following variable has recently been moved from @@ -954,6 +970,32 @@ execution search path." :group 'idlwave-external-programs :type 'string) +;;; Some Shell variables which must be defined here.----------------------- + +(defcustom idlwave-shell-debug-modifiers '() + "List of modifiers to be used for the debugging commands. +Will be used to bind debugging commands in the shell buffer and in all +source buffers. These are additional convenience bindings, the debugging +commands are always available with the `C-c C-d' prefix. +If you set this to '(control shift), this means setting a breakpoint will +be on `C-S-b', compiling a source file on `C-S-c' etc. Possible modifiers +are `control', `meta', `super', `hyper', `alt', and `shift'." + :group 'idlwave-shell-general-setup + :type '(set :tag "Specify modifiers" + (const control) + (const meta) + (const super) + (const hyper) + (const alt) + (const shift))) + +(defcustom idlwave-shell-automatic-start nil + "*If non-nil attempt invoke idlwave-shell if not already running. +This is checked when an attempt to send a command to an +IDL process is made." + :group 'idlwave-shell-general-setup + :type 'boolean) + ;;; Miscellaneous variables ------------------------------------------------- (defgroup idlwave-misc nil @@ -992,6 +1034,8 @@ class-arrows Object Arrows with class property" (const :tag "IDL Keywords (reserved words)" idl-keywords) (const :tag "Statement Labels" label) (const :tag "Goto Statements" goto) + (const :tag "Tags in Structure Definition" structtag) + (const :tag "Structure Name" structname) (const :tag "Common Blocks" common-blocks) (const :tag "Keyword Parameters" keyword-parameters) (const :tag "System Variables" system-variables) @@ -1044,28 +1088,26 @@ As a user, you should not set this to t.") ;; To update this regexp, update the list of keywords and ;; evaluate the form. ; (insert -; (concat -; "\"\\\\<" -; (regexp-opt -; '("and" "or" "xor" "not" -; "eq" "ge" "gt" "le" "lt" "ne" -; "for" "do" "endfor" -; "if" "then" "endif" "else" "endelse" -; "case" "of" "endcase" -; "begin" "end" -; "repeat" "until" "endrep" -; "while" "endwhile" -; "goto" "return" -; "inherits" "mod" -; "on_error" "on_ioerror")) ; on_error is not officially reserved -; "\\\\>\"")) - (concat "\\<\\(" - "and\\|begin\\|case\\|do\\|e\\(lse\\|nd\\(case\\|else\\|" - "for\\|if\\|rep\\|while\\)?\\|q\\)\\|for\\|g\\(oto\\|[et]\\)" - "\\|i\\(f\\|nherits\\)\\|l[et]\\|mod\\|n\\(e\\|ot\\)\\|" - "o\\(n_ioerror\\|[fr]\\)\\|re\\(peat\\|turn\\)\\|then\\|" - "until\\|while\\|xor" - "\\)\\>")) +; (prin1-to-string +; (concat +; "\\<\\(" +; (regexp-opt +; '("and" "or" "xor" "not" +; "eq" "ge" "gt" "le" "lt" "ne" +; "for" "do" "endfor" +; "if" "then" "endif" "else" "endelse" +; "case" "of" "endcase" +; "switch" "break" "continue" "endswitch" +; "begin" "end" +; "repeat" "until" "endrep" +; "while" "endwhile" +; "goto" "return" +; "inherits" "mod" +; "compile_opt" "forward_function" +; "on_error" "on_ioerror")) ; on_error is not officially reserved +; "\\)\\>"))) + + "\\<\\(and\\|b\\(egin\\|reak\\)\\|c\\(ase\\|o\\(mpile_opt\\|ntinue\\)\\)\\|do\\|e\\(lse\\|nd\\(case\\|else\\|for\\|if\\|rep\\|switch\\|while\\)?\\|q\\)\\|for\\(ward_function\\)?\\|g\\(oto\\|[et]\\)\\|i\\(f\\|nherits\\)\\|l[et]\\|mod\\|n\\(e\\|ot\\)\\|o\\(n_\\(error\\|ioerror\\)\\|[fr]\\)\\|re\\(peat\\|turn\\)\\|switch\\|then\\|until\\|while\\|xor\\)\\>") ;; Procedure declarations. Fontify keyword plus procedure name. ;; Function declarations. Fontify keyword plus function name. @@ -1104,6 +1146,16 @@ As a user, you should not set this to t.") (1 font-lock-keyword-face) (2 font-lock-reference-face))) + ;; Tags in structure definitions. Note that this definition actually + ;; collides with labels, so we have to use the same face. + (structtag + '("\\<\\([a-zA-Z][a-zA-Z0-9_]*:\\)[^:]" (1 font-lock-reference-face))) + + ;; Structure names + (structname + '("\\({\\|\\<inherits\\s-\\)\\s-*\\([a-zA-Z][a-zA-Z0-9_]*\\)[},\t \n]" + (2 font-lock-function-name-face))) + ;; Named parameters, like /xlog or ,xrange=[] ;; This is anchored to the comma preceeding the keyword. ;; Treats continuation lines, works only during whole buffer @@ -1144,6 +1196,8 @@ As a user, you should not set this to t.") fixme fixme label label goto goto + structtag structtag + structname structname keyword-parameters keyword-parameters system-variables system-variables special-operators special-operators @@ -1163,6 +1217,8 @@ As a user, you should not set this to t.") batch-files idl-keywords label goto + structtag + structname common-blocks keyword-parameters system-variables @@ -1196,7 +1252,8 @@ As a user, you should not set this to t.") That is the _beginning_ of a line containing a comment delimiter `;' preceded only by whitespace.") -(defconst idlwave-begin-block-reg "\\<\\(pro\\|function\\|begin\\|case\\)\\>" +(defconst idlwave-begin-block-reg + "\\<\\(pro\\|function\\|begin\\|case\\|switch\\)\\>" "Regular expression to find the beginning of a block. The case does not matter. The search skips matches in comments.") @@ -1213,7 +1270,7 @@ not matter. The search skips matches in comments.") "Regular expression to match a continued line.") (defconst idlwave-end-block-reg - "\\<end\\(\\|case\\|else\\|for\\|if\\|rep\\|while\\)\\>" + "\\<end\\(\\|case\\|switch\\|else\\|for\\|if\\|rep\\|while\\)\\>" "Regular expression to find the end of a block. The case does not matter. The search skips matches found in comments.") @@ -1225,6 +1282,7 @@ not matter. The search skips matches found in comments.") ("for" . "endfor") ("then" . "endif") ("repeat" . "endrep") + ("switch" . "endswitch") ("while" . "endwhile")) "Matches between statements and the corresponding END variant. The cars are the reserved words starting a block. If the block really @@ -1266,6 +1324,7 @@ blocks starting with a BEGIN statement. The matches must have associations '(repeat . ("repeat\\>" "repeat")) '(goto . ("goto\\>" nil)) '(case . ("case\\>" nil)) + '(switch . ("switch\\>" nil)) (cons 'call (list (concat idlwave-identifier "\\(\\s *$\\|\\s *,\\)") nil)) '(assign . ("[^=>\n]*=" nil))) @@ -1299,7 +1358,7 @@ Normally a space.") "Character which is inserted as a last character on previous line by \\[idlwave-split-line] to begin a continuation line. Normally $.") -(defconst idlwave-mode-version " 4.2") +(defconst idlwave-mode-version " 4.7") (defmacro idlwave-keyword-abbrev (&rest args) "Creates a function for abbrev hooks to call `idlwave-check-abbrev' with args." @@ -1366,6 +1425,24 @@ Otherwise ARGS forms a list that is evaluated." ,@body) (set-syntax-table saved-syntax)))) +(defvar idlwave-print-symbol-syntax-table + (copy-syntax-table idlwave-mode-syntax-table) + "Syntax table that treats symbol characters as word characters.") + +(modify-syntax-entry ?$ "w" idlwave-find-symbol-syntax-table) +(modify-syntax-entry ?_ "w" idlwave-find-symbol-syntax-table) +(modify-syntax-entry ?! "w" idlwave-find-symbol-syntax-table) +(modify-syntax-entry ?. "w" idlwave-find-symbol-syntax-table) + +(defmacro idlwave-with-special-syntax1 (&rest body) + "Execute BODY with a different systax table." + `(let ((saved-syntax (syntax-table))) + (unwind-protect + (progn + (set-syntax-table idlwave-find-symbol-syntax-table) + ,@body) + (set-syntax-table saved-syntax)))) + (defun idlwave-action-and-binding (key cmd &optional select) "KEY and CMD are made into a key binding and an indent action. KEY is a string - same as for the `define-key' function. CMD is a @@ -1446,6 +1523,19 @@ Capitalize system variables - action only (define-key idlwave-mode-map "\C-c\C-d" 'idlwave-debug-map) (define-key idlwave-mode-map "\C-c\C-d\C-c" 'idlwave-shell-save-and-run) (define-key idlwave-mode-map "\C-c\C-d\C-b" 'idlwave-shell-break-here) +(when (and (boundp 'idlwave-shell-debug-modifiers) + (listp idlwave-shell-debug-modifiers) + (not (equal idlwave-shell-debug-modifiers '()))) + ;; Bind the debug commands also with the special modifiers. + (let ((shift (memq 'shift idlwave-shell-debug-modifiers)) + (mods-noshift (delq 'shift + (copy-sequence idlwave-shell-debug-modifiers)))) + (define-key idlwave-mode-map + (vector (append mods-noshift (list (if shift ?C ?c)))) + 'idlwave-shell-save-and-run) + (define-key idlwave-mode-map + (vector (append mods-noshift (list (if shift ?B ?b)))) + 'idlwave-shell-break-here))) (define-key idlwave-mode-map "\C-c\C-f" 'idlwave-for) ;; (define-key idlwave-mode-map "\C-c\C-f" 'idlwave-function) ;; (define-key idlwave-mode-map "\C-c\C-p" 'idlwave-procedure) @@ -1508,6 +1598,7 @@ Capitalize system variables - action only ;; Templates ;; (define-abbrev tb (concat c "c") "" (idlwave-code-abbrev idlwave-case)) + (define-abbrev tb (concat c "sw") "" (idlwave-code-abbrev idlwave-switch)) (define-abbrev tb (concat c "f") "" (idlwave-code-abbrev idlwave-for)) (define-abbrev tb (concat c "fu") "" (idlwave-code-abbrev idlwave-function)) (define-abbrev tb (concat c "pr") "" (idlwave-code-abbrev idlwave-procedure)) @@ -1529,6 +1620,7 @@ Capitalize system variables - action only (define-abbrev tb (concat c "cd") "double()" (idlwave-keyword-abbrev 1)) (define-abbrev tb (concat c "e") "else" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb (concat c "ec") "endcase" 'idlwave-show-begin) + (define-abbrev tb (concat c "es") "endswitch" 'idlwave-show-begin) (define-abbrev tb (concat c "ee") "endelse" 'idlwave-show-begin) (define-abbrev tb (concat c "ef") "endfor" 'idlwave-show-begin) (define-abbrev tb (concat c "ei") "endif else if" 'idlwave-show-begin) @@ -1575,8 +1667,10 @@ Capitalize system variables - action only ;; (define-abbrev tb "and" "and" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "begin" "begin" (idlwave-keyword-abbrev 0 t)) + (define-abbrev tb "break" "break" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "case" "case" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "common" "common" (idlwave-keyword-abbrev 0 t)) + (define-abbrev tb "continue" "continue" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "do" "do" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "else" "else" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "end" "end" 'idlwave-show-begin-check) @@ -1585,6 +1679,7 @@ Capitalize system variables - action only (define-abbrev tb "endfor" "endfor" 'idlwave-show-begin-check) (define-abbrev tb "endif" "endif" 'idlwave-show-begin-check) (define-abbrev tb "endrep" "endrep" 'idlwave-show-begin-check) + (define-abbrev tb "endswitch" "endswitch" 'idlwave-show-begin-check) (define-abbrev tb "endwhi" "endwhi" 'idlwave-show-begin-check) (define-abbrev tb "endwhile" "endwhile" 'idlwave-show-begin-check) (define-abbrev tb "eq" "eq" (idlwave-keyword-abbrev 0 t)) @@ -1604,6 +1699,7 @@ Capitalize system variables - action only (define-abbrev tb "or" "or" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "pro" "pro" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "repeat" "repeat" (idlwave-keyword-abbrev 0 t)) + (define-abbrev tb "switch" "switch" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "then" "then" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "until" "until" (idlwave-keyword-abbrev 0 t)) (define-abbrev tb "while" "while" (idlwave-keyword-abbrev 0 t)) @@ -1686,6 +1782,7 @@ The main features of this mode are \\pr PROCEDURE template \\fu FUNCTION template \\c CASE statement template + \\sw SWITCH statement template \\f FOR loop template \\r REPEAT Loop template \\w WHILE loop template @@ -1964,7 +2061,7 @@ Also checks if the correct end statement has been used." (let ((case-fold-search t)) (save-excursion (cond - ((looking-at "pro\\|case\\|function\\>") + ((looking-at "pro\\|case\\|switch\\|function\\>") (assoc (downcase (match-string 0)) idlwave-block-matches)) ((looking-at "begin\\>") (let ((limit (save-excursion @@ -1992,17 +2089,8 @@ Also checks if the correct end statement has been used." (bolp)) (let ((idlwave-show-block nil)) (newline-and-indent))) - - ;; Check which end is needed and insert it. - (let ((case-fold-search t) end) - (save-excursion - (idlwave-beginning-of-statement) - (idlwave-block-jump-out -1 'nomark) - (if (setq end (idlwave-block-master)) - (setq end (cdr end)) - (error "Cannot close block"))) - (insert end) - (idlwave-newline))) + (insert "end") + (idlwave-show-begin)) (defun idlwave-surround (&optional before after escape-chars length) "Surround the LENGTH characters before point with blanks. @@ -2334,11 +2422,19 @@ the first non-comment statement in the file, and nil otherwise." (= (forward-line -1) 0))) first-statement))) -;; FIXME: end-of-statement does not work correctly when comment lines -;; are inside the statement. It does work correctly for line-end -;; comments, though. (defun idlwave-end-of-statement () "Moves point to the end of the current IDL statement. +If not in a statement just moves to end of line. Returns position." + (interactive) + (while (and (idlwave-is-continuation-line) + (= (forward-line 1) 0)) + (while (and (idlwave-is-comment-or-empty-line) + (= (forward-line 1) 0)))) + (end-of-line) + (point)) + +(defun idlwave-end-of-statement0 () + "Moves point to the end of the current IDL statement. If not in a statement just moves to end of line. Returns position." (interactive) (while (and (idlwave-is-continuation-line) @@ -2473,6 +2569,13 @@ See `idlwave-surround'. " (defun idlwave-indent-and-action () "Call `idlwave-indent-line' and do expand actions." (interactive) + (save-excursion + (if (and idlwave-expand-generic-end + (re-search-backward "\\<\\(end\\)\\s-*\\=" + (max 0 (- (point) 10)) t) + (looking-at "\\(end\\)\\([ \n\t]\\|\\'\\)")) + (progn (goto-char (match-end 1)) + (idlwave-show-begin)))) (idlwave-indent-line t) ) @@ -2677,40 +2780,6 @@ screw things up if the comments contain parentheses characters." ;; Ordinary continuation (idlwave-continuation-indent)))))))) -(defun idlwave-find-key-old (key-reg &optional dir nomark limit) - "Move in direction of the optional second argument DIR to the -next keyword not contained in a comment or string and occurring before -optional fourth argument LIMIT. DIR defaults to forward direction. If -DIR is negative the search is backwards, otherwise, it is -forward. LIMIT defaults to the beginning or end of the buffer -according to the direction of the search. The keyword is given by the -regular expression argument KEY-REG. The search is case insensitive. -Returns position if successful and nil otherwise. If found -`push-mark' is executed unless the optional third argument NOMARK is -non-nil. If found, the point is left at the keyword beginning." - (or dir (setq dir 0)) - (or limit (setq limit (cond ((>= dir 0) (point-max)) ((point-min))))) - (let (found - (case-fold-search t)) - (idlwave-with-special-syntax - (save-excursion - (if (>= dir 0) - (while (and (setq found (and - (re-search-forward key-reg limit t) - (match-beginning 0))) - (idlwave-quoted) - (not (eobp)))) - (while (and (setq found (and - (re-search-backward key-reg limit t) - (match-beginning 0))) - (idlwave-quoted) - (not (bobp))))))) - (if found (progn - (if (not nomark) (push-mark)) - (goto-char found))))) - -;; FIXME: The following is an experimental re-write of the previous -;; function. Still needs to be tested. (defun idlwave-find-key (key-re &optional dir nomark limit) "Move to next match of the regular expression KEY-RE. Matches inside comments or string constants will be ignored. @@ -2796,10 +2865,17 @@ Skips any whitespace. Returns 0 if the end-of-line follows the whitespace." (idlwave-look-at "\\<\\$"))) (defun idlwave-is-comment-line () + "Tests if the current line is a comment line." (save-excursion (beginning-of-line 1) (looking-at "[ \t]*;"))) +(defun idlwave-is-comment-or-empty-line () + "Tests if the current line is a comment line." + (save-excursion + (beginning-of-line 1) + (looking-at "[ \t]*[;\n]"))) + (defun idlwave-look-at (regexp &optional cont beg) "Searches current line from current point for REGEXP. If optional argument CONT is non-nil, searches to the end of @@ -3168,7 +3244,7 @@ is non-nil." (idlwave-fill-paragraph) ;; Insert a blank line comment to separate from the date entry - ;; will keep the entry from flowing onto date line if re-filled. - (insert "\n;\n;\t\t")) + (insert "\n;\n;\t\t"))t (defun idlwave-doc-modification () "Insert a brief modification log at the beginning of the current program. @@ -3178,27 +3254,27 @@ and places the point for the user to add a log. Before moving, saves location on mark ring so that the user can return to previous point." (interactive) (push-mark) - ;; make sure we catch the current line if it begins the unit - (end-of-line) - (idlwave-beginning-of-subprogram) - (let ((pro (idlwave-look-at "\\<\\(function\\|pro\\)\\>")) - (case-fold-search nil)) - (if (re-search-forward - (concat idlwave-doc-modifications-keyword ":") - ;; set search limit at next unit beginning - (save-excursion (idlwave-end-of-subprogram) (point)) - t) - (end-of-line) - ;; keyword not present, insert keyword - (if pro (idlwave-next-statement)) ; skip past pro or function statement - (beginning-of-line) - (insert "\n" comment-start "\n") - (forward-line -2) - (insert comment-start " " idlwave-doc-modifications-keyword ":"))) - (idlwave-newline) - (beginning-of-line) - (insert ";\n;\t") - (run-hooks 'idlwave-timestamp-hook)) + (let* (beg end) + (if (and (or (re-search-backward idlwave-doclib-start nil t) + (progn + (goto-char (point-min)) + (re-search-forward idlwave-doclib-start nil t))) + (setq beg (match-beginning 0)) + (re-search-forward idlwave-doclib-end nil t) + (setq end (match-end 0))) + (progn + (goto-char beg) + (if (re-search-forward + (concat idlwave-doc-modifications-keyword ":") + end t) + (end-of-line) + (goto-char end) + (end-of-line -1) + (insert "\n" comment-start "\n") + (insert comment-start " " idlwave-doc-modifications-keyword ":")) + (insert "\n;\n;\t") + (run-hooks 'idlwave-timestamp-hook)) + (error "No valid DOCLIB header")))) ;;; CJC 3/16/93 ;;; Interface to expand-region-abbrevs which did not work when the @@ -3298,7 +3374,7 @@ expression to enter. The lines containing S1 and S2 are reindented using `indent-region' unless the optional second argument NOINDENT is non-nil." (if (eq major-mode 'idlwave-shell-mode) - ;; This is a gross hack to avoit template abbrev expasion + ;; This is a gross hack to avoit template abbrev expansion ;; in the shell. FIXME: This is a dirty hack. (if (and (eq this-command 'self-insert-command) (equal last-abbrev-location (point))) @@ -3343,6 +3419,14 @@ unless the optional second argument NOINDENT is non-nil." (idlwave-rw-case " of\n\nendcase") "Selector expression")) +(defun idlwave-switch () + "Build skeleton IDL switch statement." + (interactive) + (idlwave-template + (idlwave-rw-case "switch") + (idlwave-rw-case " of\n\nendswitch") + "Selector expression")) + (defun idlwave-for () "Build skeleton for loop statment." (interactive) @@ -3778,6 +3862,30 @@ also set new patterns. Probably this will always have to be t." (setq res (cons new res))) (nreverse res))) +;; Creating new sintern tables + +(defun idlwave-new-sintern-type (tag) + "Define a variable and a function to sintern the new type TAG. +This defines the function `idlwave-sintern-TAG' and the variable +`idlwave-sint-TAGs'." + (let* ((name (symbol-name tag)) + (names (concat name "s")) + (var (intern (concat "idlwave-sint-" names))) + (func (intern (concat "idlwave-sintern-" name)))) + (set var nil) ; initial value of the association list + (fset func ; set the function + `(lambda (name &optional set) + (cond ((not (stringp name)) name) + ((cdr (assoc (downcase name) ,var))) + (set + (setq ,var (cons (cons (downcase name) name) ,var)) + name) + (name)))))) + +(defun idlwave-reset-sintern-type (tag) + "Reset the sintern variable associated with TAG." + (set (intern (concat "idlwave-sint-" (symbol-name tag) "s")) nil)) + ;;--------------------------------------------------------------------------- @@ -3822,6 +3930,10 @@ only returns the value of the variable." ;; return the current value idlwave-routines))) +(defvar idlwave-update-rinfo-hook nil + "List of functions which should run after a global rinfo update. +Does not run after automatic updates of buffer or the shell.") + (defun idlwave-update-routine-info (&optional arg) "Update the internal routine-info lists. These lists are used by `idlwave-routine-info' (\\[idlwave-routine-info]) @@ -3880,12 +3992,12 @@ With two prefix ARG's, also rescans the library tree." ;; causes the concatenation *delayed*, so not in time for ;; the current command. Therefore, we do a concatenation ;; now, even though the shell might do it again. - (idlwave-concatenate-rinfo-lists)) + (idlwave-concatenate-rinfo-lists nil t)) (when ask-shell ;; Ask the shell about the routines it knows. (message "Querying the shell") - (idlwave-shell-update-routine-info)))))) + (idlwave-shell-update-routine-info nil t)))))) (defun idlwave-load-system-rinfo () ;; Load and case-treat the system and lib info files. @@ -3907,7 +4019,9 @@ With two prefix ARG's, also rescans the library tree." (setq idlwave-library-routines (idlwave-sintern-rinfo-list idlwave-library-routines 'sys)) (message "Normalizing idlwave-library-routines...done")) - (error nil)))) + (error nil))) + (run-hooks 'idlwave-after-load-rinfo-hook)) + (defun idlwave-update-buffer-routine-info () (let (res) @@ -3931,7 +4045,7 @@ With two prefix ARG's, also rescans the library tree." (setq idlwave-buffer-routines (idlwave-sintern-rinfo-list res t)))) -(defun idlwave-concatenate-rinfo-lists (&optional quiet) +(defun idlwave-concatenate-rinfo-lists (&optional quiet run-hook) "Put the different sources for routine information together." ;; The sequence here is important because earlier definitions shadow ;; later ones. We assume that if things in the buffers are newer @@ -3950,7 +4064,9 @@ With two prefix ARG's, also rescans the library tree." (length idlwave-buffer-routines) (length idlwave-compiled-routines) (length idlwave-library-routines) - (length idlwave-system-routines)))) + (length idlwave-system-routines))) + (if run-hook + (run-hooks 'idlwave-update-rinfo-hook))) (defun idlwave-class-alist () "Return the class alist - make it if necessary." @@ -4018,7 +4134,8 @@ With two prefix ARG's, also rescans the library tree." (save-excursion (while (setq buf (pop buffers)) (set-buffer buf) - (if (eq major-mode 'idlwave-mode) + (if (and (eq major-mode 'idlwave-mode) + buffer-file-name) ;; yes, this buffer has the right mode. (progn (setq res (condition-case nil (idlwave-get-buffer-routine-info) @@ -4057,6 +4174,8 @@ With two prefix ARG's, also rescans the library tree." ;; Remove the continuation line stuff (while (string-match "\\([^a-zA-Z0-9$_]\\)\\$[ \t]*\n" string) (setq string (replace-match "\\1 " t nil string))) + (while (string-match "\n" string) + (setq string (replace-match " " t nil string))) ;; Match the name and type. (when (string-match "\\<\\(pro\\|function\\)\\>\\s-+\\(\\([a-zA-Z0-9$_]+\\)::\\)?\\([a-zA-Z0-9$_]+\\)" string) @@ -4407,6 +4526,7 @@ directories and save the routine info. ;; defined routines. (defconst idlwave-routine-info.pro " +;; START OF IDLWAVE SUPPORT ROUTINES pro idlwave_print_info_entry,name,func=func,separator=sep ;; See if it's an object method if name eq '' then return @@ -4474,16 +4594,38 @@ pro idlwave_routine_info idlwave_print_info_entry,all(i),/func,separator=sep print,'>>>END OF IDLWAVE ROUTINE INFO' end + +pro idlwave_get_sysvars + forward_function strjoin,strtrim,strsplit + catch,error_status + if error_status ne 0 then begin + print, 'Cannot get info about system variables' + endif else begin + help,/brief,output=s,/system_variables ; ? unsafe use of OUTPUT= + s = strtrim(strjoin(s,' ',/single),2) ; make one line + v = strsplit(s,' +',/regex,/extract) ; get variables + for i=0,n_elements(v)-1 do begin + t = [''] ; get tag list + a=execute('if n_tags('+v[i]+') gt 0 then t=tag_names('+v[i]+')') + print, 'IDLWAVE-SYSVAR: '+v[i]+' '+strjoin(t,' ',/single) + endfor + endelse +end + +pro idlwave_get_class_tags, class + res = execute('tags=tag_names({'+class+'})') + if res then print,'IDLWAVE-CLASS-TAGS: '+class+string(format='(1000(\" \",A))',tags) +end +;; END OF IDLWAVE SUPPORT ROUTINES " - "The idl program to get the routine info stuff. -The output of this program is parsed by `idlwave-shell-routine-info-filter'.") + "The idl programs to get info from the shell.") (defvar idlwave-idlwave_routine_info-compiled nil "Remembers if the routine info procedure is already compiled.") (defvar idlwave-shell-temp-pro-file) (defvar idlwave-shell-temp-rinfo-save-file) -(defun idlwave-shell-update-routine-info (&optional quiet) +(defun idlwave-shell-update-routine-info (&optional quiet run-hooks) "Query the shell for routine_info of compiled modules and update the lists." ;; Save and compile the procedure. The compiled procedure is then ;; saved into an IDL SAVE file, to allow for fast RESTORE. @@ -4512,7 +4654,7 @@ The output of this program is parsed by `idlwave-shell-routine-info-filter'.") idlwave-shell-temp-rinfo-save-file) `(progn (idlwave-shell-routine-info-filter) - (idlwave-concatenate-rinfo-lists ,quiet)) + (idlwave-concatenate-rinfo-lists ,quiet ,run-hooks)) 'hide)) ;; --------------------------------------------------------------------------- @@ -4521,6 +4663,7 @@ The output of this program is parsed by `idlwave-shell-routine-info-filter'.") (defvar idlwave-completion-help-info nil) (defvar idlwave-current-obj_new-class nil) +(defvar idlwave-complete-special nil) (defun idlwave-complete (&optional arg module class) "Complete a function, procedure or keyword name at point. @@ -4585,6 +4728,14 @@ When we force a method or a method keyword, CLASS can specify the class." (setq this-command last-command) (idlwave-scroll-completions)) + ;; Check for any special completion functions + ((and idlwave-complete-special + (idlwave-complete-special))) + + ((and (idlwave-in-quote) + (not (eq what 'class))) + (idlwave-complete-filename)) + ((null what) (error "Nothing to complete here")) @@ -4595,10 +4746,11 @@ When we force a method or a method keyword, CLASS can specify the class." ((eq what 'procedure) ;; Complete a procedure name (let* ((class-selector (idlwave-determine-class (nth 3 where-list) 'pro)) + (super-classes (idlwave-all-class-inherits class-selector)) (isa (concat "procedure" (if class-selector "-method" ""))) (type-selector 'pro)) (setq idlwave-completion-help-info - (list 'routine nil type-selector class-selector)) + (list 'routine nil type-selector class-selector nil super-classes)) (idlwave-complete-in-buffer 'procedure (if class-selector 'method 'routine) (idlwave-routines) 'idlwave-selector @@ -4613,10 +4765,11 @@ When we force a method or a method keyword, CLASS can specify the class." ((eq what 'function) ;; Complete a function name (let* ((class-selector (idlwave-determine-class (nth 3 where-list) 'fun)) + (super-classes (idlwave-all-class-inherits class-selector)) (isa (concat "function" (if class-selector "-method" ""))) (type-selector 'fun)) (setq idlwave-completion-help-info - (list 'routine nil type-selector class-selector)) + (list 'routine nil type-selector class-selector nil super-classes)) (idlwave-complete-in-buffer 'function (if class-selector 'method 'routine) (idlwave-routines) 'idlwave-selector @@ -4636,6 +4789,7 @@ When we force a method or a method keyword, CLASS can specify the class." (type-selector 'pro) (class (idlwave-determine-class where 'pro)) (class-selector class) + (super-classes (idlwave-all-class-inherits class-selector)) (isa (format "procedure%s-keyword" (if class "-method" ""))) (entry (idlwave-best-rinfo-assq name 'pro class (idlwave-routines))) @@ -4647,7 +4801,7 @@ When we force a method or a method keyword, CLASS can specify the class." (unless list (error (format "No keywords available for procedure %s" (idlwave-make-full-name class name)))) (setq idlwave-completion-help-info - (list 'keyword name type-selector class-selector)) + (list 'keyword name type-selector class-selector nil super-classes)) (idlwave-complete-in-buffer 'keyword 'keyword list nil (format "Select keyword for procedure %s%s" @@ -4666,6 +4820,7 @@ When we force a method or a method keyword, CLASS can specify the class." (type-selector 'fun) (class (idlwave-determine-class where 'fun)) (class-selector class) + (super-classes (idlwave-all-class-inherits class-selector)) (isa (format "function%s-keyword" (if class "-method" ""))) (entry (idlwave-best-rinfo-assq name 'fun class (idlwave-routines))) @@ -4684,7 +4839,7 @@ When we force a method or a method keyword, CLASS can specify the class." (unless list (error (format "No keywords available for function %s" msg-name))) (setq idlwave-completion-help-info - (list 'keyword name type-selector class-selector)) + (list 'keyword name type-selector class-selector nil super-classes)) (idlwave-complete-in-buffer 'keyword 'keyword list nil (format "Select keyword for function %s%s" msg-name @@ -4696,6 +4851,23 @@ When we force a method or a method keyword, CLASS can specify the class." (t (error "This should not happen (idlwave-complete)"))))) +(defvar idlwave-complete-special nil + "List of special completion functions. +These functions are called for each completion. Each function must check +if its own special completion context is present. If yes, it should +use `idlwave-complete-in-buffer' to do some completion and return `t'. +If such a function returns `t', *no further* attempts to complete +other contexts will be done. If the function returns `nil', other completions +will be tried.") +(defun idlwave-complete-special () + (let ((functions idlwave-complete-special) + fun) + (catch 'exit + (while (setq fun (pop functions)) + (if (funcall fun) + (throw 'exit t))) + nil))) + (defun idlwave-make-force-complete-where-list (what &optional module class) ;; Return an artificial WHERE specification to force the completion ;; routine to complete a specific item independent of context. @@ -4731,6 +4903,7 @@ When we force a method or a method keyword, CLASS can specify the class." ((eq what 'procedure-keyword) (let* ((class-selector nil) + (super-classes nil) (type-selector 'pro) (pro (or module (idlwave-completing-read @@ -4744,6 +4917,7 @@ When we force a method or a method keyword, CLASS can specify the class." ((eq what 'function-keyword) (let* ((class-selector nil) + (super-classes nil) (type-selector 'fun) (func (or module (idlwave-completing-read @@ -4758,6 +4932,7 @@ When we force a method or a method keyword, CLASS can specify the class." ((eq what 'procedure-method-keyword) (let* ((class (idlwave-determine-class class-list 'pro)) (class-selector class) + (super-classes (idlwave-all-class-inherits class-selector)) (type-selector 'pro) (pro (or module (idlwave-completing-read @@ -4773,6 +4948,7 @@ When we force a method or a method keyword, CLASS can specify the class." ((eq what 'function-method-keyword) (let* ((class (idlwave-determine-class class-list 'fun)) (class-selector class) + (super-classes (idlwave-all-class-inherits class-selector)) (type-selector 'fun) (func (or module (idlwave-completing-read @@ -4796,6 +4972,20 @@ When we force a method or a method keyword, CLASS can specify the class." (apply 'completing-read args)) (setq-default completion-ignore-case old-value)))) +(defvar idlwave-shell-default-directory) +(defun idlwave-complete-filename () + "Use the comint stuff to complete a file name." + (require 'comint) + (let* ((comint-file-name-chars "~/A-Za-z0-9+@:_.$#%={}\\-") + (comint-completion-addsuffix nil) + (default-directory + (if (and (boundp 'idlwave-shell-default-directory) + (stringp idlwave-shell-default-directory) + (file-directory-p idlwave-shell-default-directory)) + idlwave-shell-default-directory + default-directory))) + (comint-dynamic-complete-filename))) + (defun idlwave-make-full-name (class name) ;; Make a fully qualified module name including the class name (concat (if class (format "%s::" class) "") name)) @@ -4817,10 +5007,18 @@ When we force a method or a method keyword, CLASS can specify the class." (throw 'exit match)) (setq list (cdr (memq match list))))))) +(defun idlwave-rinfo-assq-any-class (name type class list) + (let* ((classes (cons class (idlwave-all-class-inherits class))) + class rtn) + (while classes + (if (setq rtn (idlwave-rinfo-assq name type (pop classes) list)) + (setq classes nil))) + rtn)) + (defun idlwave-best-rinfo-assq (name type class list) "Like `idlwave-rinfo-assq', but get all twins and sort, then return first." (let ((twins (idlwave-routine-twins - (idlwave-rinfo-assq name type class list) + (idlwave-rinfo-assq-any-class name type class list) list)) syslibp) (when (> (length twins) 1) @@ -4892,6 +5090,25 @@ When TYPE is not specified, both procedures and functions will be considered." (idlwave-all-assq method (idlwave-routines))) (idlwave-uniquify rtn)))) +(defun idlwave-members-only (list club) + "Return list of all elements in LIST which are also in CLUB." + (let (rtn) + (while list + (if (member (car list) club) + (setq rtn (cons (car list) rtn))) + (setq list (cdr list))) + (nreverse rtn))) + +(defun idlwave-nonmembers-only (list club) + "Return list of all elements in LIST which are not in CLUB." + (let (rtn) + (while list + (if (member (car list) club) + nil + (setq rtn (cons (car list) rtn))) + (setq list (cdr list))) + (nreverse rtn))) + (defun idlwave-determine-class (info type) ;; Determine the class of a routine call. INFO is the structure returned ;; `idlwave-what-function' or `idlwave-what-procedure'. @@ -4966,10 +5183,13 @@ When TYPE is not specified, both procedures and functions will be considered." (defvar type-selector) (defvar class-selector) (defvar method-selector) +(defvar super-classes) (defun idlwave-selector (a) (and (eq (nth 1 a) type-selector) (or (and (nth 2 a) (eq class-selector t)) - (eq (nth 2 a) class-selector)))) + (eq (nth 2 a) class-selector) + (memq (nth 2 a) super-classes) + ))) (defun idlwave-where () "Find out where we are. @@ -4991,7 +5211,6 @@ CLASS: What class has the routine (nil=no, t=is method, but class unknown) ARROW: Where is the arrow?" (idlwave-routines) (let* (;(bos (save-excursion (idlwave-beginning-of-statement) (point))) - ;; FIXME: WAS THIS CHANGE CORRECT??? Answer: yes. (bos (save-excursion (idlwave-start-of-substatement 'pre) (point))) (func-entry (idlwave-what-function bos)) (func (car func-entry)) @@ -5020,7 +5239,10 @@ ARROW: Where is the arrow?" ((string-match "\\`[ \t]*\\(pro\\|function\\)\\>" (buffer-substring bos (point))) nil) - ((string-match "OBJ_NEW([ \t]*['\"]\\([a-zA-Z][a-zA-Z0-9$_]*\\)?\\'" + ((string-match "OBJ_NEW([ \t]*['\"]\\([a-zA-Z0-9$_]*\\)?\\'" + (buffer-substring bos (point))) + (setq cw 'class)) + ((string-match "\\<inherits\\s-+\\([a-zA-Z0-9$_]*\\)?\\'" (buffer-substring bos (point))) (setq cw 'class)) ((and func @@ -5112,8 +5334,7 @@ ARROW: Where is the arrow?" (let ((pos (point)) pro-point pro class arrow-start string) (save-excursion - ;????(idlwave-beginning-of-statement) - ;; FIXME: WAS THIS CHANGE CORRECT: Answer: yes + ;;(idlwave-beginning-of-statement) (idlwave-start-of-substatement 'pre) (setq string (buffer-substring (point) pos)) (if (string-match @@ -5262,6 +5483,7 @@ Show PROMPT in echo area. TYPE is one of 'function, 'procedure or 'keyword." ;; We cannot add something - offer a list. (message "Making completion list...") (let* ((list all-completions) + ;; "complete" means, this is already a valid completion (complete (memq spart all-completions)) (completion-highlight-first-word-only t) ; XEmacs (completion-fixup-function ; Emacs @@ -5305,22 +5527,24 @@ Show PROMPT in echo area. TYPE is one of 'function, 'procedure or 'keyword." "Select a class" "class"))) (defun idlwave-attach-classes (list is-kwd show-classes) - ;; attach the proper class list to a LIST of completion items. + ;; Attach the proper class list to a LIST of completion items. ;; IS-KWD, when non-nil, shows its keywords - otherwise its methods ;; SHOW-CLASSES is the value of `idlwave-completion-show-classes'. (catch 'exit - (if (or (null show-classes) ; don't wnat to see classes - (null class-selector) ; not a method call - (stringp class-selector)) ; the class is already known + (if (or (null show-classes) ; don't want to see classes + (null class-selector) ; not a method call + (and (stringp class-selector) ; the class is already known + (not super-classes))) ; no possibilities for inheritance ;; In these cases, we do not have to do anything (throw 'exit list)) - ;; The property and dots stuff currently only make sense with XEmacs - ;; because Emacs drops text properties when filling the *Completions* - ;; buffer. - (let* ((do-prop (and (featurep 'xemacs) (>= show-classes 0))) + (let* ((do-prop (and (>= show-classes 0) + (>= emacs-major-version 21))) (do-buf (not (= show-classes 0))) - (do-dots (featurep 'xemacs)) + ; (do-dots (featurep 'xemacs)) + (do-dots t) + (inherit (if super-classes + (cons class-selector super-classes))) (max (abs show-classes)) (lmax (if do-dots (apply 'max (mapcar 'length list)))) classes nclasses class-info space) @@ -5332,6 +5556,11 @@ Show PROMPT in echo area. TYPE is one of 'function, 'procedure or 'keyword." (idlwave-all-method-keyword-classes method-selector x type-selector) (idlwave-all-method-classes x type-selector))) + (if inherit + (setq classes + (delq nil + (mapcar (lambda (x) (if (memq x inherit) x nil)) + classes)))) (setq nclasses (length classes)) ;; Make the separator between item and class-info (if do-dots @@ -5523,6 +5752,357 @@ Show PROMPT in echo area. TYPE is one of 'function, 'procedure or 'keyword." ;;---------------------------------------------------------------------- ;;---------------------------------------------------------------------- +;;; ------------------------------------------------------------------------ +;;; Sturucture parsing code, and code to manage class info + +;; +;; - Go again over the documentation how to write a completion +;; plugin. It is in self.el, but currently still very bad. +;; This could be in a separate file in the distribution, or +;; in an appendix for the manual. + +(defun idlwave-struct-tags () + "Return a list of all tags in the structure defined at point. +Point is expected just before the opening `{' of the struct definition." + (save-excursion + (let* ((borders (idlwave-struct-borders)) + (beg (car borders)) + (end (cdr borders)) + tags) + (goto-char beg) + (while (re-search-forward "[{,][ \t]*\\(\\$.*\n[ \t]*\\)?\\([a-zA-Z][a-zA-Z0-9_]*\\)[ \t]*:" end t) + ;; Check if we are still on the top level of the structure. + (if (and (condition-case nil (progn (up-list -1) t) (error nil)) + (= (point) beg)) + (push (match-string 2) tags)) + (goto-char (match-end 0))) + (nreverse tags)))) + +(defun idlwave-struct-inherits () + "Return a list of all `inherits' names in the struct at point. +Point is expected just before the opening `{' of the struct definition." + (save-excursion + (let* ((borders (idlwave-struct-borders)) + (beg (car borders)) + (end (cdr borders)) + (case-fold-search t) + names) + (goto-char beg) + (while (re-search-forward "[{,][ \t]*\\(\\$.*\n[ \t]*\\)?inherits[ \t]*\\(\\$.*\n[ \t]*\\)?\\([a-zA-Z][a-zA-Z0-9_]*\\)" end t) + ;; Check if we are still on the top level of the structure. + (if (and (condition-case nil (progn (up-list -1) t) (error nil)) + (= (point) beg)) + (push (match-string 3) names)) + (goto-char (match-end 0))) + (nreverse names)))) + + +(defun idlwave-struct-borders () + "Return the borders of the {...} after point as a cons cell." + (let (beg) + (save-excursion + (skip-chars-forward "^{") + (setq beg (point)) + (condition-case nil (forward-list 1) + (error (goto-char beg))) + (cons beg (point))))) + +(defun idlwave-find-structure-definition (&optional var name bound) + "Search forward for a structure definition. +If VAR is non-nil, search for a structure assigned to variable VAR. +If NAME is non-nil, search for a named structure NAME. +If BOUND is an integer, limit the search. +If BOUND is the symbol `all', we search first back and then forward +through the entire file." + (let* ((ws "[ \t]*\\(\\$.*\n[ \t]*\\)?") + (case-fold-search t) + (lim (if (integerp bound) bound nil)) + (re (concat + (if var + (concat "\\<" (regexp-quote (downcase var)) "\\>" ws) + "\\(\\)") + "=" ws "\\({\\)" + (if name (concat ws "\\<" (downcase name) "[^a-zA-Z0-9_$]") "")))) + (if (or (and (eq bound 'all) + (re-search-backward re nil t)) + (re-search-forward re lim t)) + (goto-char (match-beginning 3))))) + +(defvar idlwave-class-info nil) +(defvar idlwave-system-class-info nil) +(add-hook 'idlwave-update-rinfo-hook + (lambda () (setq idlwave-class-info nil))) +(add-hook 'idlwave-after-load-rinfo-hook + (lambda () (setq idlwave-class-info nil))) + +(defun idlwave-class-info (class) + (let (list entry) + (unless idlwave-class-info + ;; Info is nil, put in the system stuff. + (setq idlwave-class-info idlwave-system-class-info) + (setq list idlwave-class-info) + (while (setq entry (pop list)) + (idlwave-sintern-class-info entry))) + (setq class (idlwave-sintern-class class)) + (setq entry (assq class idlwave-class-info)) + (unless entry + (setq entry (idlwave-find-class-info class)) + (when entry + ;; Sintern and cache the info + (idlwave-sintern-class-info entry) + (push entry idlwave-class-info))) + entry)) + +(defun idlwave-sintern-class-info (entry) + "Sintern the class names in a class-info entry." + (let ((taglist (assq 'tags entry)) + (inherits (assq 'inherits entry))) + (setcar entry (idlwave-sintern-class (car entry) 'set)) + (if inherits + (setcdr inherits (mapcar (lambda (x) (idlwave-sintern-class x 'set)) + (cdr inherits)))))) + +(defun idlwave-find-class-info (class) + "Find the __define procedure for a class structure and return info entry." + (let* ((pro (concat (downcase class) "__define")) + (class (idlwave-sintern-class class)) + (idlwave-auto-routine-info-updates nil) + (file (cdr (nth 3 (idlwave-rinfo-assoc pro 'pro nil + (idlwave-routines))))) + buf) + (if (or (not file) + (not (file-regular-p + (setq file (idlwave-expand-lib-file-name file))))) + nil ; Cannot get info + (save-excursion + (if (setq buf (idlwave-get-buffer-visiting file)) + (set-buffer buf) + (set-buffer (get-buffer-create " *IDLWAVE-tmp*")) + (erase-buffer) + (unless (eq major-mode 'idlwave-mode) + (idlwave-mode)) + (insert-file-contents file)) + (save-excursion + (goto-char 1) + (setq case-fold-search t) + (when (and (re-search-forward + (concat "^[ \t]*pro[ \t]+" pro "\\>") nil t) + ;; FIXME: should we limit to end of pro here? + (idlwave-find-structure-definition nil class)) + (list class + (cons 'tags (idlwave-struct-tags)) + (cons 'inherits (idlwave-struct-inherits))))))))) + +(defun idlwave-class-tags (class) + "Return the native tags in CLASS." + (cdr (assq 'tags (idlwave-class-info class)))) +(defun idlwave-class-inherits (class) + "Return the direct superclasses of CLASS." + (cdr (assq 'inherits (idlwave-class-info class)))) + +(defun idlwave-all-class-tags (class) + "Return a list of native and inherited tags in CLASS." + (apply 'append (mapcar 'idlwave-class-tags + (cons class (idlwave-all-class-inherits class))))) + +(defun idlwave-all-class-inherits (class) + "Return a list of all superclasses of CLASS (recursively expanded). +The list is cashed in `idlwave-class-info' for faster access." + (cond + ((not idlwave-support-inheritance) nil) + ((eq class nil) nil) + ((eq class t) nil) + (t + (let ((info (idlwave-class-info class)) + entry) + (if (setq entry (assq 'all-inherits info)) + (cdr entry) + (let ((inherits (idlwave-class-inherits class)) + rtn all-inherits cl) + (while inherits + (setq cl (pop inherits) + rtn (cons cl rtn) + inherits (append inherits (idlwave-class-inherits cl)))) + (setq all-inherits (nreverse rtn)) + (nconc info (list (cons 'all-inherits all-inherits))) + all-inherits)))))) + + +;;========================================================================== +;; +;; Completing class structure tags. This is a completion plugin. +;; The necessary taglist is constructed dynamically + +(defvar idlwave-current-tags-class nil) +(defvar idlwave-current-class-tags nil) +(defvar idlwave-current-native-class-tags nil) +(defvar idlwave-sint-classtags nil) +(idlwave-new-sintern-type 'classtag) +(add-to-list 'idlwave-complete-special 'idlwave-complete-class-structure-tag) +(add-hook 'idlwave-update-rinfo-hook 'idlwave-classtag-reset) + +(defun idlwave-complete-class-structure-tag () + "Complete a structure tag on a `self' argument in an object method." + (interactive) + (let ((pos (point)) + (case-fold-search t)) + (if (save-excursion + ;; Check if the context is right + (skip-chars-backward "[a-zA-Z0-9._$]") + (and (< (point) (- pos 4)) + (looking-at "self\\."))) + (let* ((class (nth 2 (idlwave-current-routine)))) + ;; Check if we are in a class routine + (unless class + (error "Not in a method procedure or function.")) + ;; Check if we need to update the "current" class + (if (not (equal class idlwave-current-tags-class)) + (idlwave-prepare-class-tag-completion class)) + (setq idlwave-completion-help-info nil) + (let ((idlwave-cpl-bold idlwave-current-native-class-tags)) + (idlwave-complete-in-buffer + 'classtag 'classtag + idlwave-current-class-tags nil + (format "Select a tag of class %s" class) + "class tag")) + t) ; return t to skip other completions + nil))) + +(defun idlwave-classtag-reset () + (setq idlwave-current-tags-class nil)) + +(defun idlwave-prepare-class-tag-completion (class) + "Find and parse the necessary class definitions for class structure tags." + (setq idlwave-sint-classtags nil) + (setq idlwave-current-tags-class class) + (setq idlwave-current-class-tags + (mapcar (lambda (x) + (list (idlwave-sintern-classtag x 'set))) + (idlwave-all-class-tags class))) + (setq idlwave-current-native-class-tags + (mapcar 'downcase (idlwave-class-tags class)))) + +;=========================================================================== +;; +;; Completing system variables and their structure fields +;; This is also a plugin. It is a bit bigger since we support loading +;; current system variables from the shell and highlighting in the +;; completions buffer. + +(defvar idlwave-sint-sysvars nil) +(defvar idlwave-sint-sysvartags nil) +(idlwave-new-sintern-type 'sysvar) +(idlwave-new-sintern-type 'sysvartag) +(add-to-list 'idlwave-complete-special 'idlwave-complete-sysvar-or-tag) +(add-hook 'idlwave-update-rinfo-hook 'idlwave-sysvars-reset) +(add-hook 'idlwave-after-load-rinfo-hook 'idlwave-remember-builtin-sysvars) +(add-hook 'idlwave-after-load-rinfo-hook 'idlwave-sintern-sysvar-alist) + +(defvar idlwave-system-variables-alist nil + "Alist of system variables and the associated structure tags. +Gets set in `idlw-rinfo.el'.") +(defvar idlwave-builtin-system-variables nil) + +(defun idlwave-complete-sysvar-or-tag () + "Complete a system variable." + (interactive) + (let ((pos (point)) + (case-fold-search t)) + (cond ((save-excursion + ;; Check if the context is right for system variable + (skip-chars-backward "[a-zA-Z0-9_$]") + (equal (char-before) ?!)) + (setq idlwave-completion-help-info '(idlwave-complete-sysvar-help)) + (idlwave-complete-in-buffer 'sysvar 'sysvar + idlwave-system-variables-alist nil + "Select a system variable" + "system variable") + t) ; return t to skip other completions + ((save-excursion + ;; Check if the context is right for sysvar tag + (skip-chars-backward "[a-zA-Z0-9_$.]") + (and (equal (char-before) ?!) + (looking-at "\\([a-zA-Z][a-zA-Z0-9_$]*\\)\\.") + (<= (match-end 0) pos))) + ;; Complete a system variable tag + (let* ((var (idlwave-sintern-sysvar (match-string 1))) + (entry (assq var idlwave-system-variables-alist)) + (tags (cdr entry))) + (or entry (error "!%s is not know to be a system variable" var)) + (or tags (error "System variable !%s is not a structure" var)) + (setq idlwave-completion-help-info + (list 'idlwave-complete-sysvar-help var)) + (idlwave-complete-in-buffer 'sysvartag 'sysvartag + tags nil + "Select a system variable tag" + "system variable tag") + t)) ; return t to skip other completions + (t nil)))) + +(defvar name) +(defvar kwd) +(defun idlwave-complete-sysvar-help (mode word) + (cond + ((eq mode 'test) + (or (and (eq nil (nth 1 idlwave-completion-help-info)) + (member (downcase word) idlwave-builtin-system-variables)) + (and (stringp (nth 1 idlwave-completion-help-info)) + (member (downcase (nth 1 idlwave-completion-help-info)) + idlwave-builtin-system-variables)))) + ((eq mode 'set) + (setq name "system variables" + kwd (concat "!" + (if (stringp (nth 1 idlwave-completion-help-info)) + (nth 1 idlwave-completion-help-info) + word)))) + (t (error "This should not happen")))) + + +(defun idlwave-sysvars-reset () + (if (and (fboundp 'idlwave-shell-is-running) + (idlwave-shell-is-running)) + (idlwave-shell-send-command "idlwave_get_sysvars" + 'idlwave-process-sysvars 'hide))) + +(defun idlwave-process-sysvars () + (idlwave-shell-filter-sysvars) + (setq idlwave-sint-sysvars nil + idlwave-sint-sysvartags nil) + (idlwave-sintern-sysvar-alist)) + +(defun idlwave-remember-builtin-sysvars () + (setq idlwave-builtin-system-variables + (mapcar 'downcase + (mapcar 'car idlwave-system-variables-alist)))) + +(defun idlwave-sintern-sysvar-alist () + (let ((list idlwave-system-variables-alist) entry) + (while (setq entry (pop list)) + (setcar entry (idlwave-sintern-sysvar (car entry) 'set)) + (setcdr entry (mapcar (lambda (x) + (list (idlwave-sintern-sysvartag (car x) 'set))) + (cdr entry)))))) + +(defvar idlwave-shell-command-output) +(defun idlwave-shell-filter-sysvars () + "Get the system variables and structure tags." + (let ((text idlwave-shell-command-output) + (start 0) + (old idlwave-system-variables-alist) + var tags type name class) + (setq idlwave-system-variables-alist nil) + (while (string-match "^IDLWAVE-SYSVAR: !\\([a-zA-Z0-9_$]+\\)\\( \\(.*\\)\\)?" + text start) + (setq start (match-end 0) + var (match-string 1 text) + tags (if (match-end 3) (idlwave-split-string (match-string 3 text)))) + (setq idlwave-system-variables-alist + (cons (cons var (mapcar 'list tags)) + idlwave-system-variables-alist))) + ;; Keep the old value if query was not successful + (setq idlwave-system-variables-alist + (or idlwave-system-variables-alist old)))) + (defun idlwave-completion-fontify-classes () "Goto the *Completions* buffer and fontify the class info." (when (featurep 'font-lock) @@ -5680,7 +6260,8 @@ prefix arg, the class property is cleared out." (idlwave-force-class-query (equal arg '(4))) (module (idlwave-what-module))) (if (car module) - (apply 'idlwave-display-calling-sequence module) + (apply 'idlwave-display-calling-sequence + (idlwave-fix-module-if-obj_new module)) (error "Don't know which calling sequence to show."))))) (defun idlwave-resolve (&optional arg) @@ -5733,7 +6314,7 @@ use. With ARG force class query for object methods." (interactive "P") (let* ((idlwave-query-class nil) (idlwave-force-class-query (equal arg '(4))) - (module (idlwave-what-module)) + (module (idlwave-fix-module-if-obj_new (idlwave-what-module))) (default (concat (idlwave-make-full-name (nth 2 module) (car module)) (if (eq (nth 1 module) 'pro) "<p>" "<f>"))) (list @@ -5772,20 +6353,24 @@ use. With ARG force class query for object methods." (let ((name1 (idlwave-make-full-name class name)) source buf1 entry (buf (current-buffer)) - (pos (point))) + (pos (point)) + name2) (setq entry (idlwave-best-rinfo-assq name type class (idlwave-routines)) - source (or force-source (nth 3 entry))) + source (or force-source (nth 3 entry)) + name2 (if (nth 2 entry) + (idlwave-make-full-name (nth 2 entry) name) + name1)) (cond ((or (null name) (equal name "")) (error "Abort")) ((null entry) - (error "Nothing known about a module %s" name1)) + (error "Nothing known about a module %s" name2)) ((eq (car source) 'system) (error "Source code for system routine %s is not available." - name1)) + name2)) ((equal (cdr source) "") (error "Source code for routine %s is not available." - name1)) + name2)) ((memq (car source) '(buffer lib compiled)) (setq buf1 (if (eq (car source) 'lib) @@ -5803,13 +6388,13 @@ use. With ARG force class query for object methods." ((equal type "p") "pro") (t "\\(pro\\|function\\)")) "\\>[ \t]+" - (regexp-quote (downcase name1)) + (regexp-quote (downcase name2)) "[^a-zA-Z0-9_$]") nil t) (goto-char (match-beginning 0)) (pop-to-buffer buf) (goto-char pos) - (error "Could not find routine %s" name1))))))) + (error "Could not find routine %s" name2))))))) (defun idlwave-what-module () "Return a default module for stuff near point. @@ -5866,6 +6451,47 @@ Used by `idlwave-routine-info' and `idlwave-find-module'." (list pro 'pro (idlwave-determine-class (nth 0 where) 'pro))) (t nil))))) +(defun idlwave-what-module-find-class () + "Call idlwave-what-module and find the inherited class if necessary." + (let* ((module (idlwave-what-module)) + (class (nth 2 module)) + classes) + (if (and (= (length module) 3) + (stringp class)) + (list (car module) + (nth 1 module) + (apply 'idlwave-find-inherited-class module)) + module))) + +(defun idlwave-find-inherited-class (name type class) + "Find the class which defines TYPE NAME and is CLASS or inherited by CLASS." + (let ((entry (idlwave-best-rinfo-assoc name type class (idlwave-routines)))) + (if entry + (nth 2 entry) + class))) + +(defun idlwave-fix-module-if-obj_new (module) + "Check if MODULE points to obj_new. If yes, and if the cursor is in the +keyword region, change to the appropriate Init method." + (let* ((name (car module)) + (pos (point)) + (case-fold-search t) + string) + (if (and (stringp name) + (equal (downcase name) "obj_new") + (save-excursion + (idlwave-beginning-of-statement) + (setq string (buffer-substring (point) pos)) + (string-match "obj_new([^'\"]*['\"]\\([a-zA-Z0-9_]+\\)" + string))) + (let ((name "Init") + (class (match-string 1 string))) + (setq module (list (idlwave-sintern-method "Init") + 'fun + (idlwave-sintern-class class))))) + module)) + + (defun idlwave-fix-keywords (name type class keywords) ;; This fixes the list of keywords. (let ((case-fold-search t) @@ -5874,7 +6500,8 @@ Used by `idlwave-routine-info' and `idlwave-find-module'." ;; If this is the OBJ_NEW function, try to figure out the class and use ;; the keywords from the corresponding INIT method. (if (and (equal name "OBJ_NEW") - (eq major-mode 'idlwave-mode)) + (or (eq major-mode 'idlwave-mode) + (eq major-mode 'idlwave-shell-mode))) (let* ((bos (save-excursion (idlwave-beginning-of-statement) (point))) (string (buffer-substring bos (point))) (case-fold-search t) @@ -5902,6 +6529,25 @@ Used by `idlwave-routine-info' and `idlwave-find-module'." (mapcar (lambda (k) (add-to-list 'keywords k)) (nth 5 x)))) (setq keywords (idlwave-uniquify keywords))) + + ;; If we have inheritance, add all keywords from superclasses + ;; :-( Taken out because JD says it does not work this way. +; (when (and (stringp class) +; (or (assq (idlwave-sintern-keyword "_extra") keywords) +; (assq (idlwave-sintern-keyword "_ref_extra") keywords)) +; (boundp 'super-classes)) +; (loop for x in (idlwave-routines) do +; (and (nth 2 x) ; non-nil class +; (or (eq (nth 2 x) class) ; the right class +; (memq (nth 2 x) super-classes)) ; an inherited class +; (or (and (eq (nth 1 x) type) ; default type +; (eq (car x) name)) ; default name +; (and (eq (nth 1 x) type1) ; backup type +; (eq (car x) name1))) ; backup name +; (mapcar (lambda (k) (add-to-list 'keywords k)) +; (nth 5 x)))) +; (setq keywords (idlwave-uniquify keywords))) + ;; Return the final list keywords)) @@ -5971,14 +6617,17 @@ If we do not know about MODULE, just return KEYWORD literally." (when (window-live-p ri-window) (delete-window ri-window)))) -(defun idlwave-display-calling-sequence (name type class) +(defun idlwave-display-calling-sequence (name type class + &optional initial-class) ;; Display the calling sequence of module NAME, type TYPE in class CLASS. - (let* ((entry (or (idlwave-best-rinfo-assq name type class + (let* ((initial-class (or initial-class class)) + (entry (or (idlwave-best-rinfo-assq name type class (idlwave-routines)) (idlwave-rinfo-assq name type class idlwave-unresolved-routines))) (name (or (car entry) name)) (class (or (nth 2 entry) class)) + (superclasses (idlwave-all-class-inherits initial-class)) (twins (idlwave-routine-twins entry)) (dtwins (idlwave-study-twins twins)) (all dtwins) @@ -6003,15 +6652,18 @@ If we do not know about MODULE, just return KEYWORD literally." (if (idlwave-help-directory) "Button2: Pop to source and back. Button3: Source in Help window." "Button2: Pop to source and back.")) + (help-echo-class + "Button2: Display info about same method in superclass") (col 0) - (data (list name type class (current-buffer) olh)) + (data (list name type class (current-buffer) olh initial-class)) (km-prop (if (featurep 'xemacs) 'keymap 'local-map)) (face 'idlwave-help-link-face) beg props win cnt total) (setq keywords (idlwave-fix-keywords name type class keywords)) (cond ((null entry) - (error "No %s %s known" type name)) + (error "No %s %s known %s" type name + (if initial-class (concat "in class " initial-class) ""))) ((or (null name) (equal name "")) (error "No function or procedure call at point.")) ((null calling-seq) @@ -6026,6 +6678,22 @@ If we do not know about MODULE, just return KEYWORD literally." (set (make-local-variable 'idlwave-popup-source) nil) (set (make-local-variable 'idlwave-current-obj_new-class) idlwave-current-obj_new-class) + (when superclasses + (setq props (list 'mouse-face 'highlight + km-prop idlwave-rinfo-mouse-map + 'help-echo help-echo-class + 'data (cons 'class data))) + (let ((classes (cons initial-class superclasses)) c) + (insert "Classes: ") + (while (setq c (pop classes)) + (insert " ") + (setq beg (point)) + (insert c) + (if (equal (downcase c) (downcase class)) + (add-text-properties beg (point) (list 'face 'bold)) + (if (idlwave-rinfo-assq name type c (idlwave-routines)) + (add-text-properties beg (point) props)))) + (insert "\n"))) (setq props (if have-olh (list 'mouse-face 'highlight km-prop idlwave-rinfo-mouse-map @@ -6188,15 +6856,23 @@ Optional args RIGHT and SHIFT indicate, if mouse-3 was used, and if SHIFT was pressed." (interactive "e") (if ev (mouse-set-point ev)) - (let (data id name type class buf keyword bufwin source) + (let (data id name type class buf keyword bufwin source word initial-class) (setq data (get-text-property (point) 'data) source (get-text-property (point) 'source) keyword (get-text-property (point) 'keyword) id (car data) name (nth 1 data) type (nth 2 data) class (nth 3 data) buf (nth 4 data) + initial-class (nth 6 data) + word (idlwave-this-word) bufwin (get-buffer-window buf t)) - (cond ((eq id 'usage) + (cond ((eq id 'class) + (if (window-live-p bufwin) (select-window bufwin)) + (idlwave-display-calling-sequence + (idlwave-sintern-method name) + type (idlwave-sintern-class word) + initial-class)) + ((eq id 'usage) (idlwave-require-online-help) (idlwave-online-help nil name type class)) ((eq id 'source) @@ -6930,3 +7606,4 @@ This function was written since `list-abbrevs' looks terrible for IDLWAVE mode." ;;; idlwave.el ends here + diff --git a/man/idlwave.texi b/man/idlwave.texi index 8fadb52d049..94b78dd6c75 100644 --- a/man/idlwave.texi +++ b/man/idlwave.texi @@ -1,8 +1,8 @@ \input texinfo @c -*-texinfo-*- @c %**start of header -@setfilename ../info/idlwave +@setfilename idlwave @settitle IDLWAVE User Manual -@dircategory Emacs +@dircategory Editors @direntry * IDLWAVE: (idlwave). Major mode and shell for IDL and WAVE/CL files. @end direntry @@ -156,7 +156,6 @@ Debugging IDL Programs * Compiling Programs:: Compiling buffers under the shell * Breakpoints and Stepping:: Deciding where to stop and look -* Walking the Calling Stack:: From where was this routine called? * Examining Variables:: What is the value now? Installation @@ -1917,10 +1916,6 @@ Non-@code{nil} means @key{UP} and @key{DOWN} arrows move through command history like xterm. @end defopt -@defopt idlwave-shell-comint-settings -Alist of special settings for the comint variables in the IDLWAVE Shell. -@end defopt - @defopt idlwave-shell-file-name-chars The characters allowed in file names, as a string. Used for file name completion. @@ -2014,7 +2009,6 @@ buffers. @menu * Compiling Programs:: Compiling buffers under the shell * Breakpoints and Stepping:: Deciding where to stop and look -* Walking the Calling Stack:: From where was this routine called? * Examining Variables:: What is the value now? @end menu @@ -2058,7 +2052,7 @@ The face which highlights the source line where IDL is stopped. @end defopt -@node Breakpoints and Stepping, Walking the Calling Stack, Compiling Programs, Debugging IDL Programs +@node Breakpoints and Stepping, Examining Variables, Compiling Programs, Debugging IDL Programs @subsection Breakpoints and Stepping @cindex Breakpoints @cindex Stepping @@ -2069,23 +2063,16 @@ stopped. You can set breakpoints and step through a program with IDLWAVE. Setting a breakpoint in the current line of the source buffer is done with @kbd{C-c C-d C-b} (@code{idlwave-shell-break-here}). With a prefix -arg of 1 (i.e. @kbd{C-1 C-c C-d C-b}, the breakpoint gets a @code{/ONCE} -keyword, meaning that it will be deleted after first use. With a -numeric prefix greater than one, the breakpoint will only be active the -@code{nth} time it is hit. To clear the breakpoint in the current line, -use @kbd{C-c C-d C-d} (@code{idlwave-clear-current-bp}). When executed -from the shell window, the breakpoint where IDL is currently stopped -will be deleted. To clear all breakpoints, use @kbd{C-c C-d C-a} -(@code{idlwave-clear-all-bp}). Breakpoint lines are highlighted in the -source code. - -Once the program has stopped somewhere, you can step through it. The -most important stepping commands are @kbd{C-c C-d C-s} to execute one -line of IDL code; @kbd{C-c C-d C-n} to do one step but treat procedure -and function calls as a single step; @kbd{C-c C-d C-h} to continue -execution to the line where the cursor is in and @kbd{C-c C-d C-r} to -continue execution. Here is a summary of the breakpoint and stepping -commands: +arg of 1, the breakpoint gets a @code{/ONCE} keyword, meaning that it +will be deleted after first use. With a numeric prefix greater than +one, the breakpoint will only be active the @code{nth} time it is hit. +To clear the breakpoint in the current line, use @kbd{C-c C-d C-d} +(@code{idlwave-clear-current-bp}). To clear all breakpoints, use +@kbd{C-c C-d C-a} (@code{idlwave-clear-all-bp}). Breakpoint lines are +highlighted in the source code. + +Once the program has stopped somewhere, you can step through it. Here +is a summary of the breakpoint and stepping commands: @multitable @columnfractions .23 .77 @item @kbd{C-c C-d C-b} @@ -2129,31 +2116,12 @@ The face for breakpoint lines in the source code if @code{idlwave-shell-mark-breakpoints} has the value @code{face}. @end defopt -@node Walking the Calling Stack, Examining Variables, Breakpoints and Stepping, Debugging IDL Programs -@subsection Walking the Calling Stack -@cindex Calling stack, walking - -When debugging a program, it can be very useful to check in what context -the current routine was called, and why the arguments of the call are -the way they are. For this one needs to examine the calling stack. If -execution is stopped somewhere deep in a program, you can use the -commands @kbd{C-c C-d C-@key{UP}} (@code{idlwave-shell-stack-up}) and -@kbd{C-c C-d C-@key{DOWN}} (@code{idlwave-shell-stack-down}) or the -corresponding toolbar buttons to move through the calling stack. The -mode line of the shell window will indicate where you are on the stack -with a token like @samp{[-3:MYPRO]}, and the line of IDL code which did -the current call will be highlighted. When you continue execution, -IDLWAVE will automatically return to the current level. @xref{Examining -Variables} for information how to examine the value of variables and -expressions on higher calling stack levels. - -@node Examining Variables, , Walking the Calling Stack, Debugging IDL Programs +@node Examining Variables, , Breakpoints and Stepping, Debugging IDL Programs @subsection Examining Variables @cindex @code{PRINT} expressions @cindex @code{HELP}, on expressions @cindex Expressions, printing @cindex Expressions, help -@cindex Printing expressions @cindex Mouse binding to print expressions @kindex C-c C-d C-p @@ -2167,21 +2135,23 @@ argument will prompt for an expression instead of using the one at point. It is very convenient to click with the mouse on expressions to retrieve -their value. Use @kbd{S-mouse-2} to print an expression and -@kbd{C-S-mouse-2} to get help on an expression. I.e. you need to hold -down @key{SHIFT} and @key{CONTROL} while clicking with the middle mouse -buton. +their value. Expression printing is also bound to @kbd{S-mouse-2} and +expression help to @kbd{C-S-mouse-2}. I.e. you need to hold down +@key{SHIFT} and @key{CONTROL} while clicking with the mouse. +@cindex Calling stack, motion @cindex Printing expressions, on calling stack @cindex Restrictions for expression printing Printing of expressions also works on higher levels of the calling stack. This means that you can examine the values of variables and expressions inside the routine which called the current routine etc. -@xref{Walking the Calling Stack} for information on how to step back to -higher levels on the calling stack. Commands which print values of -variables and expressions will then use the values of variables in the -calling routine. The following restrictions apply for all levels except -the current: +Use the commands @kbd{C-c C-d C-@key{UP}} +(@code{idlwave-shell-stack-up}) and @kbd{C-c C-d C-@key{DOWN}} +(@code{idlwave-shell-stack-down}) or the corresponding toolbar buttons +to move through the calling stack. The mode line of the shell window +will indicate the routine and the calling stack level which define the +context for printing expressions. The following restrictions apply for +all levels except the current: @itemize @bullet @item |