Changeset 231 for trunk/SRC/Utilities
- Timestamp:
- 03/19/07 18:15:51 (17 years ago)
- Location:
- trunk/SRC/Utilities
- Files:
-
- 20 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Utilities/createfunc.pro
r229 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 2 ; 5 3 ; @file_comments 6 4 ; write an IDL function, compile it and execute it. … … 21 19 ; 22 20 ; @keyword _EXTRA 23 ; used to pass yourkeywords to the created function.21 ; Used to pass keywords to the created function. 24 22 ; 25 23 ; @restrictions … … 40 38 ; 41 39 ;- 42 ;------------------------------------------------------------ 43 ;------------------------------------------------------------ 44 ;------------------------------------------------------------ 40 ; 45 41 FUNCTION createfunc, command, FILENAMEIN = filenamein $ 46 42 , KWDLIST = kwdlist, _EXTRA = ex -
trunk/SRC/Utilities/createpro.pro
r230 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; @file_comments … … 24 21 ; 25 22 ; @keyword _EXTRA 26 ; used to pass yourkeywords to the created procedure.23 ; Used to pass keywords to the created procedure. 27 24 ; 28 25 ; @restrictions … … 46 43 ; $Id$ 47 44 ;- 48 ;------------------------------------------------------------ 49 ;------------------------------------------------------------ 50 ;------------------------------------------------------------ 45 ; 51 46 PRO createpro, command, FILENAMEIN = filenamein $ 52 47 , KWDLIST = kwdlist, KWDUSED = kwdused, _EXTRA = ex … … 88 83 ; compile it 89 84 resolve_routine, shortfilename 90 help,ex,/structure91 print,' ex = ',ex85 ;help,ex,/structure 86 ;print,' ex = ',ex 92 87 ; execute it 93 88 call_procedure, shortfilename, _extra = ex -
trunk/SRC/Utilities/def_myuniquetmpdir.pro
r224 r231 1 1 ;+ 2 ; 2 3 ; @file_comments 3 4 ; if needed, define and create myuniquetmpdir … … 21 22 ; 22 23 ;- 24 ; 23 25 PRO def_myuniquetmpdir 24 26 ; -
trunk/SRC/Utilities/demomode_compatibility.pro
r224 r231 1 1 ;+ 2 ; 2 3 ; @categories 3 4 ; Utilities … … 9 10 ; $Id$ 10 11 ;- 12 ; 11 13 PRO demomode_compatibility 12 14 ; -
trunk/SRC/Utilities/find.pro
r224 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; @file_comments … … 65 62 ; 66 63 ; @keyword _EXTRA 67 ; used to pass yourkeywords64 ; Used to pass keywords 68 65 ; 69 66 ; @returns … … 109 106 ; $Id$ 110 107 ;- 111 ;------------------------------------------------------------ 112 ;------------------------------------------------------------ 113 ;------------------------------------------------------------ 108 ; 114 109 FUNCTION find, filein, IODIRECTORY = iodirectory, RECURSIVE = recursive $ 115 110 , REPERTOIRE = repertoire, NOPRO = nopro, ONLYPRO = onlypro $ -
trunk/SRC/Utilities/fitintobox.pro
r224 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; … … 42 39 ; 43 40 ;- 44 ;------------------------------------------------------------ 45 ;------------------------------------------------------------ 46 ;------------------------------------------------------------ 41 ; 47 42 FUNCTION err_mess, sz, jpi, nx, jpj, ny, jpk, nz, jpt 48 43 ; … … 75 70 ; @param field {in}{required}{type=array or struct} 76 71 ; an array or a structure that can be read by the function 77 ; litchamp.pro78 ; 79 ; @param nx {in}{optional}{default=define by grille.pro}80 ; 81 ; @param ny {in}{optional}{default=define by grille.pro}82 ; 83 ; @param nz {in}{optional}{default=define by grille.pro}84 ; 85 ; @param firstx {in}{optional}{default=define by grille.pro}86 ; 87 ; @param firsty {in}{optional}{default=define by grille.pro}88 ; 89 ; @param firstz {in}{optional}{default=define by grille.pro}90 ; 91 ; @param lastx {in}{optional}{default=define by grille.pro}92 ; 93 ; @param lasty {in}{optional}{default=define by grille.pro}94 ; 95 ; @param lastz {in}{optional}{default=define by grille.pro}72 ; <pro>litchamp</pro> 73 ; 74 ; @param nx {in}{optional}{default=define by <pro>grille</pro>} 75 ; 76 ; @param ny {in}{optional}{default=define by <pro>grille</pro>} 77 ; 78 ; @param nz {in}{optional}{default=define by <pro>grille</pro>} 79 ; 80 ; @param firstx {in}{optional}{default=define by <pro>grille</pro>} 81 ; 82 ; @param firsty {in}{optional}{default=define by <pro>grille</pro>} 83 ; 84 ; @param firstz {in}{optional}{default=define by <pro>grille</pro>} 85 ; 86 ; @param lastx {in}{optional}{default=define by <pro>grille</pro>} 87 ; 88 ; @param lasty {in}{optional}{default=define by <pro>grille</pro>} 89 ; 90 ; @param lastz {in}{optional}{default=define by <pro>grille</pro>} 96 91 ; 97 92 ; @keyword WDEPTH … … 102 97 ; or -1 if there is an error... 103 98 ; 104 ; @uses cm_4mesh 105 ; @uses cm_4cal 99 ; @uses 100 ; cm_4mesh 101 ; cm_4cal 106 102 ; 107 103 ; @examples … … 123 119 ; $Id$ 124 120 ;- 125 ; ------------------------------------------------------------121 ; 126 122 FUNCTION fitintobox, field, nx, ny, nz, firstx, firsty $ 127 123 , firstz, lastx, lasty, lastz, WDEPTH = wdepth 128 ;------------------------------------------------------------129 ; include commons130 124 ; 131 125 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/isadirectory.pro
r224 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 2 ; 5 3 ; @file_comments 6 4 ; check if a directory exists and make sure that it ends … … 22 20 ; 23 21 ; @keyword _EXTRA 24 ; used to pass yourkeywords22 ; Used to pass keywords 25 23 ; 26 24 ; all dialog_pickfile keywords (like filter) can be used. … … 45 43 ; $Id$ 46 44 ;- 47 ;------------------------------------------------------------ 48 ;------------------------------------------------------------ 49 ;------------------------------------------------------------ 45 ; 50 46 FUNCTION isadirectory, directoryin, TITLE = title, IODIRECTORY = iodirectory, _extra = ex 51 47 ; -
trunk/SRC/Utilities/isafile.pro
r224 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 2 ; 5 3 ; @file_comments 6 ; same as find.proexcept that as long as the file is 'NOT FOUND',4 ; same as <pro>find</pro> except that as long as the file is 'NOT FOUND', 7 5 ; isafile calls dialog_pickfile, to ask the user to select a file. 8 6 ; 9 ; @categories io 7 ; @categories 8 ; io 10 9 ; 11 10 ; @param FILEIN {in}{optional} … … 37 36 ; 38 37 ; @keyword _EXTRA 39 ; used to pass yourkeywords38 ; Used to pass keywords 40 39 ; 41 40 ; all find, file_search and dialog_pickfile keywords (like title) can be used … … 66 65 ; $Id$ 67 66 ;- 68 ;------------------------------------------------------------ 69 ;------------------------------------------------------------ 70 ;------------------------------------------------------------ 67 ; 71 68 FUNCTION isafile, filein, FILENAME = filename, IODIRECTORY = iodirectory $ 72 69 , NEW = new, RECURSIVE = RECURSIVE, ONLYPRO = onlypro $ 73 70 , ONLYNC = onlync, _extra = ex 74 ;------------------------------------------------------------75 71 ; 76 72 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/linearequation.pro
r224 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; … … 43 40 ; 44 41 ;- 45 ;------------------------------------------------------------ 46 ;------------------------------------------------------------ 47 ;------------------------------------------------------------ 42 ; 48 43 FUNCTION linearequation, point1, point2 49 44 ; -
trunk/SRC/Utilities/lineintersection.pro
r224 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; … … 57 54 ; 58 55 ;- 59 ;------------------------------------------------------------ 60 ;------------------------------------------------------------ 61 ;------------------------------------------------------------ 56 ; 62 57 FUNCTION lineintersection, abc1, abc2, FLOAT = float 63 58 ; -
trunk/SRC/Utilities/mergeonline_help.pro
r224 r231 1 1 ;+ 2 ; 2 3 ; @file_comments 3 4 ; Have one unique online help for IDL and SAXO … … 15 16 ; $Id$ 16 17 ;- 18 ; 17 19 PRO mergeonline_help 18 20 ; -
trunk/SRC/Utilities/protype.pro
r224 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 2 ; 5 3 ; @file_comments 6 4 ; test is a ".pro" file corresponds to an IDL procedure, function or batch file. … … 36 34 ; $Id$ 37 35 ;- 38 ;------------------------------------------------------------ 39 ;------------------------------------------------------------ 40 ;------------------------------------------------------------ 36 ; 41 37 FUNCTION protype, file 42 38 ; -
trunk/SRC/Utilities/pwd.pro
r224 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; … … 17 14 ; 18 15 ;- 19 ;------------------------------------------------------------ 20 ;------------------------------------------------------------ 21 ;------------------------------------------------------------ 16 ; 22 17 PRO pwd 23 18 ; -
trunk/SRC/Utilities/report.pro
r230 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; 6 3 ; @file_comments 7 ; Like dialog_message.proif there is already some widget8 ; active or like message.proif there is not any widget active.4 ; Like <pro>dialog_message</pro> if there is already some widget 5 ; active or like <pro>message</pro> if there is not any widget active. 9 6 ; To ask a question whose answer is not yes/no,use xquestion. 10 7 ; … … 20 17 ; 21 18 ; @keyword _EXTRA 22 ; used to pass keywords from dialog_message.pro and message.pro19 ; Used to pass keywords to <pro>dialog_message</pro> and <pro>message</pro> 23 20 ; 24 21 ; @keyword PARENT 25 ; same as DIALOG_PARENT de dialog_message.pro22 ; same as DIALOG_PARENT of <pro>dialog_message</pro> 26 23 ; 27 24 ; @keyword QUESTION {default="Warning"} … … 64 61 ; 65 62 ;- 66 ;------------------------------------------------------------ 67 ;------------------------------------------------------------ 68 ;------------------------------------------------------------ 63 ; 69 64 FUNCTION report, text, DEFAULT_NO = default_no, PARENT = parent, QUESTION = question, SIMPLE = simple, _extra = ex 70 65 ; -
trunk/SRC/Utilities/routine_name.pro
r226 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; … … 43 40 ; 44 41 ;- 45 ;------------------------------------------------------------ 46 ;------------------------------------------------------------ 47 ;------------------------------------------------------------ 42 ; 48 43 FUNCTION routine_name, pilingnum 49 44 ; -
trunk/SRC/Utilities/testvar.pro
r224 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; … … 30 27 ; 31 28 ;- 32 ;------------------------------------------------------------ 33 ;------------------------------------------------------------ 34 ;------------------------------------------------------------ 29 ; 35 30 FUNCTION testvar, var = var 36 31 ; -
trunk/SRC/Utilities/text_box.pro
r226 r231 36 36 ; 37 37 ; @keyword _EXTRA 38 ; used to pass your keyword38 ; Used to pass keywords 39 39 ; 40 40 ; @keyword BOX … … 50 50 ; 51 51 ;- 52 ; 52 53 PRO text_box,text,pos=pos,fg_color=fg_color,bg_color=bg_color,$ 53 54 center=center,right=right,box=box,vert_space=vert_space, _EXTRA = ex -
trunk/SRC/Utilities/undefine.pro
r224 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; … … 36 33 ; 37 34 ;- 38 ;------------------------------------------------------------ 39 ;------------------------------------------------------------ 40 ;------------------------------------------------------------ 41 PRO undefine, varname 35 ; 36 PRO undefine, varname 42 37 ; 43 38 compile_opt idl2, strictarrsubs … … 45 40 tempvar = SIZE(TEMPORARY(varname)) 46 41 END 47 -
trunk/SRC/Utilities/xfile.pro
r230 r231 1 ;------------------------------------------------------------2 ;------------------------------------------------------------3 ;------------------------------------------------------------4 1 ;+ 5 2 ; … … 18 15 ; 19 16 ; @keyword _EXTRA 20 ; used to pass yourkeywords17 ; Used to pass keywords 21 18 ; 22 19 ; @examples … … 32 29 ; 33 30 ;- 34 ;------------------------------------------------------------ 35 ;------------------------------------------------------------ 36 ;------------------------------------------------------------ 31 ; 37 32 PRO xfile, filename, _extra = ex 38 33 ; -
trunk/SRC/Utilities/xhelp.pro
r230 r231 15 15 ; 16 16 ; @keyword _EXTRA 17 ; used to pass yourkeywords17 ; Used to pass keywords 18 18 ; 19 19 ; @restrictions … … 38 38 ; 39 39 ;- 40 ; 40 41 PRO xhelp, filename, _extra=ex 41 42 ;
Note: See TracChangeset
for help on using the changeset viewer.