Changeset 262


Ignore:
Timestamp:
08/21/07 16:19:32 (17 years ago)
Author:
pinsard
Message:

corrections of some headers and parameters and keywords case. change of pro2href to replace proidl

Location:
trunk/SRC
Files:
84 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Calendar/julday.pro

    r258 r262  
    8383;- 
    8484; 
    85 function julday, MONTH, DAY, YEARin, Hour, Minute, Second, NDAYSPM = ndayspm 
     85function julday, month, day, yearin, hour, minute, second, NDAYSPM = ndayspm 
    8686; 
    8787@cm_4cal 

  • trunk/SRC/Colors/xlct.pro

    r260 r262  
    401401; 
    402402; @file_comments 
    403 ; Like <proidl>XLOADCT<proidl> but fastest to write and call by default  
     403; Like <proidl>XLOADCT</proidl> but fastest to write and call by default  
    404404; the palette palette.tbl which can be in any directory 
    405405; 

  • trunk/SRC/Documentation/xmldoc/pro2href.sh

    r259 r262  
    11#! /bin/sh 
    2 # replace <pro>ginette</pro> by a sequence like 
    3 # <a href="./ginette.html">ginette</a> 
    4 # we have to deal with the path of ginette.html ... 
     2# 
     3# module : 
     4# replace <element>ginette</element> by a sequence like with element given 
     5# in argument <a href="./ginette.html">ginette</a> 
     6# in all html files in dirhtml given in argument 
     7# We have to deal with the path of ginette.html in refhtml also given in  
     8# argument. 
    59# 
    610# see call in savesaxo.sh 
    … …  
    812# update : 
    913# $Id$ 
     14# fplod 2007-08-21T09:06:58Z aedon.locean-ipsl.upmc.fr (Darwin) 
     15# add -e (element) parameter to define element syntax like 
     16# <pro></pro> or <proidl>...</proidl> 
     17# add -i parameter : this directory is the one where we are looking for  
     18# html files to be modified. so replace output by dirhtml 
     19# add -r parameter :  this directory is the one where we are looking for  
     20# html files to be linked 
     21# remove lowercase translation (because of idl help files which are in  
     22# uppercase) 
    1023# fplod 2007-08-20T11:25:39Z aedon.locean-ipsl.upmc.fr (Darwin) 
    11 # correction from  
     24# correction from 
    1225# 4.11. How do I match only the first occurrence of a pattern? 
    1326# in sed faq http://www.student.northpark.edu/pemente/sed/sedfaq4.html#s4.11 
    14 #++ still not working perfectly because path of links on the different occurences of <pro>...</pro> may not be the same  
     27#++ still not working perfectly because path of links on the different occurences of <pro>...</pro> may not be the same 
    1528# ex: see restoreboxparam.pro : domdef and saveboxparam 
    1629# fplod 2007-06-26T13:32:06Z aedon.locean-ipsl.upmc.fr (Darwin) 
    1730# improvment for multiple occurences of <pro>...</pro> on one line 
    18 # see http://www.gentoo.org/doc/en/articles/l-sed2.xml  
     31# see http://www.gentoo.org/doc/en/articles/l-sed2.xml 
    1932# Sed by example, Part 2 
    2033# especially for directory-overview files 
    … …  
    2235# creation 
    2336# 
     37set -o posix 
     38command=$(basename ${0} .sh) 
     39log_date=$(date -u +"%Y-%m-%dT%H:%M:%SZ") 
     40log=/tmp/${command}.${log_date} 
     41# 
     42usage=" Usage : ${command} -i dirhtml -r refhtml -e element" 
     43# 
     44while [ ! -z "${1}" ] 
     45do 
     46 case ${1} in 
     47 -i) # dirhtml 
     48  dirhtml=${2} 
     49  shift 
     50 ;; 
     51 -r) # refhtml 
     52  refhtml=${2} 
     53  shift 
     54 ;; 
     55 -e) # element 
     56  element=${2} 
     57  shift 
     58 ;; 
     59 -h) 
     60  echo "${usage}" 
     61  exit 0 
     62 ;; 
     63 *) # other choice 
     64  echo "${usage}" 
     65  exit 1 
     66 ;; 
     67 esac 
     68 shift # next flag 
     69done 
     70# 
    2471set -u 
    25 output=${1} # ++ parameter 
    2672# 
    27 # first find all files containing <pro>...</pro> 
    28 list_html_pro=$(find ${output} -name "*.html" -exec grep -l "<pro>.*</pro>" {} \;) 
    29 if [ "${list_html_pro}" = " " ] 
     73# check for dirhtml 
     74if [ ! -d ${dirhtml} ] 
    3075then 
    31    echo "iii : no <pro>...</pro> in html files" 
     76   echo "eee : ${dirhtml} not found" 
     77   exit 1 
     78fi 
     79# ++ check for readable/writable 
     80# 
     81# check for refhtml 
     82if [ ! -d ${refhtml} ] 
     83then 
     84   echo "eee : ${refhtml} not found" 
     85   exit 1 
     86fi 
     87# ++ check for readable 
     88# 
     89# check for element 
     90if [ "${element}" == "" ] 
     91then 
     92   echo "eee : ${element} empty" 
     93   exit 1 
     94fi 
     95# 
     96# first find all files containing <element>...</element> 
     97list_html_element=$(find ${dirhtml} -name "*.html" -exec grep -l "<${element}>.*</${element}>" {} \;) 
     98if [ "${list_html_element}" == "" ] 
     99then 
     100   echo "iii : no <${element}>...</${element}> in html files" 
    32101else 
    33    for file_html in ${list_html_pro} 
     102   for file_html in ${list_html_element} 
    34103   do 
    35104#      echo "file_html ${file_html}" 
    36105#      read a 
    37        fpath=$(dirname ${file_html} | sed -e "s+\(${output}/\)\(.*\)+\2+") 
    38        list_link=$(tr -s " " "\n" < ${file_html} | grep "<pro>.*</pro>"   | sed -e "s/^.*<pro>//" -e "s/<\/pro>.*$//") 
     106       fpath=$(dirname ${file_html} | sed -e "s+\(${dirhtml}/\)\(.*\)+\2+") 
     107#echo "fpath ${fpath}" 
     108#read a 
     109       list_link=$(tr -s " " "\n" < ${file_html} | grep "<${element}>.*</${element}>" | sed -e "s/^.*<${element}>//" -e "s/<\/${element}>.*$//") 
    39110#      echo "liste link" ${list_link} 
    40111#      read a 
    41112       for link in ${list_link} 
    42113       do 
    43           # replace <pro>something</pro> by 
     114          # replace <element>something</element> by 
    44115          #<a href="something.html">something</a> 
    45116          # modulehtml is the html file name to be used 
    46117          modulehtml=${link}.html 
    47           modulemin=$(echo ${modulehtml} | tr "[:upper:]" "[:lower:]" ) 
    48118          # lpath is the path on module relatively to the location of 
    49           # the html file containing the <pro>...</pro> 
    50           lpath=$(find ${output} -name "${modulemin}") 
     119          # the html file containing the <element>...</element> 
     120          lpath=$(find ${refhtml} -name "${modulehtml}") 
    51121          if [ "${lpath}" = "" ] 
    52122          then 
    53              echo "eee : path of ${modulemin} not found under ${output}" 
     123             echo "eee : path of ${modulehtml} not found under ${refhtml}" 
    54124             echo "eee : ${link} is used in ${file_html}" 
    55125          else 
    56              lpath=$(dirname ${lpath} | sed -e "s+\(${output}/\)\(.*\)+\2+") 
     126             lpath=$(dirname ${lpath} | sed -e "s+\(${refhtml}/\)\(.*\)+\2+") 
    57127#echo "path du fichier html ${fpath}" 
    58128#echo "lpath ${lpath}" 
     129#read a 
    59130             if [ "${lpath}" = "${fpath}" ] 
    60131             then 
    61                 relpath="./" 
     132                path="./" 
     133             fi 
     134             if [ "${lpath:0:1}" = "/" ] # absolute path 
     135             then 
     136                path=${lpath} 
    62137             else 
    63138                nblev=$(echo ${fpath} |  sed -e "s@/\$@@" | awk -F "/" '{print NF}') 
    64            #     nblev=$(( ${nblev} + 1)) 
    65139                relpath="" 
    66140                ilev=1 
    … …  
    70144                   ilev=$(( ${ilev} + 1 )) 
    71145                done 
    72                 relpath=${relpath}/${lpath} 
     146                path=${relpath}/${lpath} 
    73147             fi 
    74 #echo "relpath ${relpath}" 
     148#echo "path ${path}" 
     149#read a 
    75150             cat <<EOF > /tmp/pro2href${$}.sed 
    761511{x;s@^@first@;x;} 
    77 1,/<pro>${link}<\/pro>/{x;/first/s///;x;s@<pro>${link}<\/pro>@<a href="${relpath}/${link}.html">${link}<\/a>@;} 
     1521,/<${element}>${link}<\/${element}>/{x;/first/s///;x;s@<${element}>${link}<\/${element}>@<a href="${path}/${link}.html">${link}<\/a>@;} 
    78153EOF 
    79154             sed -f /tmp/pro2href${$}.sed \ 
    80155             ${file_html} > ${file_html}_modify 
     156#diff  ${file_html}  ${file_html}_modify 
     157#read a 
    81158             mv ${file_html}_modify ${file_html} 
    82159             rm /tmp/pro2href${$}.sed 

  • trunk/SRC/Documentation/xmldoc/pro2href_t.sh

    r259 r262  
    1313# update : 
    1414# $Id$ 
     15# fplod 2007-08-21T09:22:17Z aedon.locean-ipsl.upmc.fr (Darwin) 
     16# follow changes (add parameters) of pro2href.sh 
    1517# fplod 2007-08-20T13:33:50Z aedon.locean-ipsl.upmc.fr (Darwin) 
    1618# creation 
    … …  
    3335touch ../pro2href_tp_in/rep2/a1b.html 
    3436touch ../pro2href_tp_in/a2.html 
    35 ~/SAXO_DIR_ws/SRC/Documentation/xmldoc/pro2href.sh . 
     37~/SAXO_DIR_ws/SRC/Documentation/xmldoc/pro2href.sh -i . -r . -e pro 
    3638more tp.html  

  • trunk/SRC/Documentation/xmldoc/savesaxo.sh

    r257 r262  
    33# update : 
    44# $Id$ 
     5# fplod 2007-08-21T09:29:04Z aedon.locean-ipsl.upmc.fr (Darwin) 
     6# follow changes of calling sequence of pro2href.sh 
     7# add call to pro2href.sh for replacement of <proidl>...</proidl> 
    58# fplod 2007-06-26T14:33:12Z aedon.locean-ipsl.upmc.fr (Darwin) 
    69# copy listings.css in idldoc_assistant_output 
    … …  
    347350    # replace <pro>ginette</pro> by a sequence like 
    348351    # <a href="./ginette.html">ginette</a> 
    349     ./pro2href.sh ${output} 
     352    ./pro2href.sh -i ${output} -r ${output} -e pro 
    350353    status=${?} 
    351354    if [ ${status} -ne 0 ] 
    352355    then 
    353        echo "eee : pb during ./pro2href.sh" 
     356       echo "eee : pb during ./pro2href.sh for <pro>...</pro>" 
     357       exit 1 
     358    fi 
     359    # replace <proidl>ginette</proidl> by a sequence like 
     360    # <a href="./ginette.html">ginette</a> 
     361    ./pro2href.sh -i ${output} -r ${IDL_DIR}/help/online_help -e proidl 
     362    status=${?} 
     363    if [ ${status} -ne 0 ] 
     364    then 
     365       echo "eee : pb during ./pro2href.sh for <proidl>...</proidl>" 
    354366       exit 1 
    355367    fi 
    … …  
    420432    # replace <pro>ginette</pro> by a sequence like 
    421433    # <a href="./ginette.html">ginette</a> 
    422     ./pro2href.sh ${output} 
    423     status=0 
     434    ./pro2href.sh -i ${output} -r ${output} -e pro 
    424435    status=${?} 
    425436    if [ ${status} -ne 0 ] 
    426437    then 
    427        echo "eee : pb during ./pro2href.sh" 
     438       echo "eee : pb during ./pro2href.sh for <pro>...</pro>" 
     439       exit 1 
     440    fi 
     441    # replace <proidl>ginette</proidl> by a sequence like 
     442    # <a href="./ginette.html">ginette</a> 
     443    ./pro2href.sh  -i ${output} -r ${IDL_DIR}/help/online_help -e proidl 
     444    status=${?} 
     445    if [ ${status} -ne 0 ] 
     446    then 
     447       echo "eee : pb during ./pro2href.sh for <proidl>...</proidl>" 
    428448       exit 1 
    429449    fi 

  • trunk/SRC/Interpolation/angle.pro

    r259 r262  
    1  
    21;+ 
    32; 
    … …  
    1817; 
    1918; @returns 
    20 ; structure: {x:x, y:y} containing the point position in north stereographic polar projection 
     19; structure: {x:x, y:y} containing the point position in north stereographic  
     20; polar projection 
    2121; 
    2222; @hidden 

  • trunk/SRC/Interpolation/compute_fromreg_imoms3_weigaddr.pro

    r238 r262  
    5959; 
    6060PRO compute_fromreg_imoms3_weigaddr, alonin, alatin, olonin, olat, weig, addr $ 
    61                                      , NONORTHERNLINE = nonorthernline, NOSOUTHERNLINE = nosouthernline 
     61                                   , NONORTHERNLINE = nonorthernline, $ 
     62                                     NOSOUTHERNLINE = nosouthernline 
    6263; 
    6364  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Interpolation/extrapolate.pro

    r261 r262  
    5353;- 
    5454; 
    55 FUNCTION extrapolate, zinput, maskinput, nb_iteration, x_periodic = x_periodic $ 
     55FUNCTION extrapolate, zinput, maskinput, nb_iteration, X_PERIODIC = x_periodic $ 
    5656                      , MINVAL = minval, MAXVAL = maxval, GE0 = ge0 
    5757; 

  • trunk/SRC/Interpolation/extrapsmooth.pro

    r242 r262  
    4747;- 
    4848; 
    49 FUNCTION extrapsmooth, in, mskin, x_periodic = x_periodic, MINVAL = minval, MAXVAL = maxval, GE0 = ge0 
     49FUNCTION extrapsmooth, in, mskin, X_PERIODIC = x_periodic, MINVAL = minval, MAXVAL = maxval, GE0 = ge0 
    5050; 
    5151  compile_opt strictarr, strictarrsubs 

  • trunk/SRC/Interpolation/lbcorca.pro

    r261 r262  
    2929; 
    3030; @examples 
    31 ;    IDL> @tst_initorca2 
     31;    IDL> \@tst_initorca2 
    3232;    IDL> a = dist(jpiglo, jpjglo) 
    3333;    IDL> print, lbcorca(a, 'T') 
    … …  
    3636 
    3737; @history 
    38 ;    Mai 2007: Creation, smasson@locean-ipsl.upmc.fr 
     38;    Mai 2007: Creation, smasson\@locean-ipsl.upmc.fr 
    3939; 
    4040; @version 
    … …  
    4242; 
    4343;- 
    44 FUNCTION lbcorca, arr, grid, psign, verbose = verbose, correction = correction 
     44FUNCTION lbcorca, arr, grid, psign, VERBOSE = verbose, CORRECTION = correction 
    4545; 
    4646  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Interpolation/spl_fstdrv.pro

    r242 r262  
    2424; 
    2525; @param yscd {in}{required} 
    26 ; The output from <proidl>SPL_INIT</pro> for the specified X and Y. 
     26; The output from <proidl>SPL_INIT</proidl> for the specified X and Y. 
    2727; 
    2828; @param x2 {in}{required} {type= scalar or array} 

  • trunk/SRC/Matrix/cmapply.pro

    r260 r262  
    176176; 
    177177;   First example:   
    178 ;   Shows how <pro>cmpapply</pro> can be used to total the second dimension of  
     178;   Shows how <pro>cmapply</pro> can be used to total the second dimension of  
    179179;   the array called IN. This is equivalent to OUT = TOTAL(IN, 2) 
    180180; 
    … …  
    235235;- 
    236236; 
    237 FUNCTION cmapply, op, array, dimapply, double=dbl, type=type, $ 
    238                   functargs=functargs, nocatch=nocatch 
     237FUNCTION cmapply, op, array, dimapply, DOUBLE=dbl, TYPE=type, $ 
     238                  FUNCTARGS=functargs, NOCATCH=nocatch 
    239239; 
    240240  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Matrix/cmset_op.pro

    r238 r262  
    197197;- 
    198198; 
    199 FUNCTION cmset_op, a, op0, b, not1=not1, not2=not2, count=count, $ 
    200               empty1=empty1, empty2=empty2, maxarray=ma, index=index 
     199FUNCTION cmset_op, a, op0, b, NOT1=not1, NOT2=not2, COUNT=count, $ 
     200              EMPTY1=empty1, EMPTY2=empty2, MAXARRAY=ma, INDEX=index 
    201201; 
    202202  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Matrix/make_selection.pro

    r232 r262  
    8383;- 
    8484; 
    85 FUNCTION make_selection,names,selnames,  $ 
    86             only_valid=only_valid,required=required,  $ 
    87             quiet=quiet 
     85FUNCTION make_selection, names, selnames,  $ 
     86            ONLY_VALID=only_valid, REQUIRED=required,  $ 
     87            QUIET=quiet 
    8888; 
    8989  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Picture/imdisp.pro

    r242 r262  
    197197; @file_comments 
    198198;    Display an image on the current graphics device. 
    199 ;    IMDISP is an advanced replacement for <prodil>TV</proidl> and 
     199;    IMDISP is an advanced replacement for <proidl>TV</proidl> and 
    200200;    <proidl>TVSCL</proidl>. 
    201201; 

  • trunk/SRC/ReadWrite/readoldoparestart.pro

    r240 r262  
    137137; $Id$ 
    138138;- 
    139  
    140 PRO readoldoparestart, filename, jpiglo, jpjglo, jpk, IBLOC = ibloc, JPBYT = jpbyt, NUMREC = numrec, ub = ub, vb = vb, tb = tb, sb = sb, rotb = rotb, hdivb = hdivb, un = un, vn = vn, tn = tn, sn = sn, rotn = rotn, hdivn = hdivn, gcx = gcx, gcxb = gcxb, etab = etab, etan = etan, bsfb = bsfb, bsfn = bsfn, bsfd = bsfd, en = en 
    141 ; 
     139; 
     140PRO readoldoparestart, filename, jpiglo, jpjglo, jpk, IBLOC = ibloc, JPBYT = jpbyt, NUMREC = numrec, UB = ub, VB = vb, TB = tb, SB = sb, ROTB = rotb, HDIVB = hdivb, UN = un, VN = vn, TN = tn, SN = sn, ROTN = rotn, HDIVN = hdivn, GCX = gcx, GCXB = gcxb, ETAB = etab, ETAN = etan, BSFB = bsfb, BSFN = bsfn, BSFD = bsfd, EN = en 
    142141; 
    143142  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/CALCULS/determ2.pro

    r223 r262  
    3939; 
    4040;- 
     41; 
    4142FUNCTION determ2, a, b, c, d 
    4243; 

  • trunk/SRC/ToBeReviewed/CALCULS/floatlevel2depth.pro

    r232 r262  
    3434; 
    3535;- 
     36; 
    3637FUNCTION floatlevel2depth, tab, NOMASK = nomask 
    3738; 

  • trunk/SRC/ToBeReviewed/CALCULS/remplit.pro

    r238 r262  
    5454;- 
    5555; 
    56 FUNCTION remplit, zinput, NAN = nan, NITER = niter, BASIQUE = basique, mask = mask, FILLXDIR = fillxdir, FILLYDIR = fillydir, FILLVAL = fillval, _EXTRA = ex 
     56FUNCTION remplit, zinput, NAN = nan, NITER = niter, BASIQUE = basique, MASK = mask, FILLXDIR = fillxdir, FILLYDIR = fillydir, FILLVAL = fillval, _EXTRA = ex 
    5757; 
    5858  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/bit2int.pro

    r163 r262  
    3434; 
    3535;- 
    36 FUNCTION bit2int, bitin, checkneg = checkneg 
     36FUNCTION bit2int, bitin, CHECKNEG = checkneg 
    3737; 
    3838  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib.pro

    r236 r262  
    2828;- 
    2929; 
    30 FUNCTION read_grib, varcode, date1, date2, file = file 
     30FUNCTION read_grib, varcode, date1, date2, FILE = file 
    3131; 
    3232  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_bds.pro

    r157 r262  
    3333; $Id$ 
    3434;- 
     35; 
    3536FUNCTION read_grib_bds, num, recstart, ni, nj 
    3637; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_end.pro

    r157 r262  
    2727; $Id$ 
    2828;- 
     29; 
    2930PRO read_grib_end,  num, offset 
    3031; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_gds.pro

    r157 r262  
    2727; $Id$ 
    2828;- 
     29; 
    2930FUNCTION read_grib_gds, num, recstart 
    3031; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_is.pro

    r157 r262  
    2727; $Id$ 
    2828;- 
     29; 
    2930FUNCTION read_grib_is, num, offset 
    3031; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_pds.pro

    r157 r262  
    2727; $Id$ 
    2828;- 
     29; 
    2930FUNCTION read_grib_pds, num, recstart 
    3031; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_gribtable.pro

    r226 r262  
    3232; 
    3333; @examples 
    34 ; tablename='ectab_128' 
     34; IDL> tablename='ectab_128' 
    3535; 
    3636; @history 
    … …  
    4040; $Id$ 
    4141;- 
    42 PRO read_gribtable,tablename,parmtabl=parmtabl,center=center,$ 
    43                    subcenter=subcenter,tablnum=tablnum 
     42; 
     43PRO read_gribtable, tablename, PARMTABL=parmtabl, CENTER=center,$ 
     44                   SUBCENTER=subcenter, TABLNUM=tablnum 
    4445; 
    4546  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_code.pro

    r157 r262  
    2727; $Id$ 
    2828;- 
     29; 
    2930FUNCTION scan_grib_code, num, recstart 
    3031; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_date.pro

    r157 r262  
    2727; $Id$ 
    2828;- 
     29; 
    2930FUNCTION scan_grib_date, num, recstart 
    3031; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_messize.pro

    r157 r262  
    2727; $Id$ 
    2828;- 
     29; 
    2930FUNCTION scan_grib_messize, num, recstart 
    3031; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_nbits.pro

    r157 r262  
    2727; $Id$ 
    2828;- 
     29; 
    2930FUNCTION scan_grib_nbits, num, recstart 
    3031; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_recstart.pro

    r157 r262  
    2424; $Id$ 
    2525;- 
     26; 
    2627FUNCTION scan_grib_recstart, num 
    2728; 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/bar_plot.pro

    r240 r262  
    132132;- 
    133133; 
    134 PRO bar_plot,values,baselines=baselines,colors=colors,barnames=barnames, $ 
    135           title=title,xtitle=xtitle,ytitle=ytitle,baserange=baserange, $ 
    136           barwidth=barwidth,barspace=barspace,baroffset=baroffset, $ 
    137           outline=outline,overplot=overplot,background=background, $ 
    138           rotate=rotate, _EXTRA = ex 
     134PRO bar_plot, values, BASELINES=baselines, COLORS=colors, BARNAMES=barnames, $ 
     135          TITLE=title, XTITLE=xtitle, YTITLE=ytitle, BASERANGE=baserange, $ 
     136          BARWIDTH=barwidth, BARSPACE=barspace, BAROFFSET=baroffset, $ 
     137          OUTLINE=outline, OVERPLOt=overplot, BACKGROUND=background, $ 
     138          ROTATE=rotate, _EXTRA = ex 
    139139; 
    140140  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro

    r246 r262  
    114114             , NOCONTOUR = nocontour, NOFILL = nofill $ 
    115115             , TRICHAMP = trichamp, TRIMSK = trimsk $ 
    116              , REALCONT = realcont, NAN = nan, usetri = usetri $ 
     116             , REALCONT = realcont, NAN = nan, USETRI = usetri $ 
    117117             , COLORTRICHAMP = colortrichamp, COLORTRIMASK = colortrimask $ 
    118118             , COLORTRINAN = colortrinan $ 
    … …  
    130130             , MORE = more, EXCHANGE_XY = exchange_xy $ 
    131131             , _EXTRA = ex 
    132 ;--------------------------------------------------------- 
    133132; 
    134133  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro

    r232 r262  
    5353;- 
    5454; 
    55 PRO  pltsc,tab1,tab2, min1, max1, min2, max2, varname2, BOXZOOM = boxzoom, $ 
    56            COL1D=col1d,STY1D=sty1d,OV1D=ov1d, _EXTRA = ex 
     55PRO pltsc, tab1, tab2, min1, max1, min2, max2, varname2, BOXZOOM = boxzoom, $ 
     56           COL1D=col1d, STY1D=sty1d, OV1D=ov1d, _EXTRA = ex 
    5757; scatter plot (inspired from plt1d) 
    5858; 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro

    r237 r262  
    4444;- 
    4545; 
    46 PRO sbar_plot, Values, COLORS = colors, NOREINITPLT = noreinitplt, _EXTRA = ex 
     46PRO sbar_plot, values, COLORS = colors, NOREINITPLT = noreinitplt, _EXTRA = ex 
    4747; 
    4848  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro

    r232 r262  
    5252;- 
    5353; 
    54 PRO determineminmax, tab, mask, vraimin, vraimax, glam, gphi, MAXIN = maxin, MININ = minin, INTERVALLE = intervalle, usetri = usetri, ZEROMIDDLE = zeromiddle, _EXTRA = ex 
     54PRO determineminmax, tab, mask, vraimin, vraimax, glam, gphi, MAXIN = maxin, MININ = minin, INTERVALLE = intervalle, USETRI = usetri, ZEROMIDDLE = zeromiddle, _EXTRA = ex 
    5555; 
    5656  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/velovect.pro

    r238 r262  
    9393;- 
    9494; 
    95 PRO velovect,U,V,X,Y, Missing = Missing, Length = length, Dots = dots,  $ 
    96         Color=color, CLIP=clip, NOCLIP=noclip, OVERPLOT=overplot, _EXTRA=extra 
     95PRO velovect, u,v,x,y, MISSING = missing, LENGTH = length, DOTS = dots,  $ 
     96        COLOR=color, CLIP=clip, NOCLIP=noclip, OVERPLOT=overplot, _EXTRA=extra 
    9797; 
    9898  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/PLOTS/axe.pro

    r231 r262  
    5353;- 
    5454; 
    55 PRO axe, coupe,tempsmin,tempsmax, REVERSE_X = reverse_x, REVERSE_Y = reverse_y, SIN = sin, SEPDATE = sepdate, DIGITSYEAR = digitsyear, _EXTRA = ex 
     55PRO axe, coupe, tempsmin, tempsmax, REVERSE_X = reverse_x, REVERSE_Y = reverse_y, SIN = sin, SEPDATE = sepdate, DIGITSYEAR = digitsyear, _EXTRA = ex 
    5656; 
    5757  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/PLOTS/plotsym.pro

    r261 r262  
    4646;- 
    4747; 
    48 FUNCTION plotsym, circle=circle, triangle=triangle, diamond=diamond, $ 
    49                   angle=angle, box=box, line=line, scale=scale, $ 
     48FUNCTION plotsym, CIRCLE=circle, TRIANGLE=triangle, DIAMOND=diamond, $ 
     49                  ANGLE=angle, BOX=box, LINE=line, SCALE=scale, $ 
    5050                  _EXTRA=extra 
    5151; 

  • trunk/SRC/ToBeReviewed/PLOTS/reinitplt.pro

    r231 r262  
    4444;- 
    4545; 
    46 PRO reinitplt, all=all,x=x,y=y,z=z,p=p, invert=invert 
     46PRO reinitplt, ALL=all, X=x, Y=y, Z=z, P=p, INVERT=invert 
    4747; 
    4848  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/PLOTS/style.pro

    r231 r262  
    3535;- 
    3636; 
    37 PRO style,labstyle,level_z2d,linestyle,thick 
     37PRO style, labstyle, level_z2d, linestyle, thick 
    3838; 
    3939  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/PLOTS/symbols.pro

    r231 r262  
    4343;- 
    4444; 
    45 PRO symbols,nsym,scale,color=col 
     45PRO symbols, nsym, scale, COLOR=col 
    4646; 
    4747  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STATISTICS/a_correlate2d.pro

    r242 r262  
    2929;- 
    3030; 
    31 FUNCTION auto_cov2d, X, Lag, DOUBLE = Double, ZERO2NAN = zero2nan 
     31FUNCTION auto_cov2d, x, lag, DOUBLE = double, ZERO2NAN = zero2nan 
    3232; 
    3333  compile_opt idl2, strictarrsubs 
    … …  
    7878; 
    7979;- 
    80  
    81  
    82 FUNCTION a_correlate2d, X, Lag, Covariance = Covariance, Double = Double 
     80; 
     81FUNCTION a_correlate2d, x, lag, COVARIANCE = covariance, DOUBLE = double 
    8382; 
    8483  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STATISTICS/a_timecorrelate.pro

    r242 r262  
    2828; 
    2929;- 
    30 FUNCTION timeauto_cov, X, M, nT, Double = Double, zero2nan = zero2nan 
     30FUNCTION timeauto_cov, x, m, nt, DOUBLE = double, ZERO2NAN = zero2nan 
    3131; 
    3232  compile_opt idl2, strictarrsubs 
    … …  
    114114;- 
    115115; 
    116 FUNCTION a_timecorrelate, X, Lag, COVARIANCE = Covariance, DOUBLE = Double 
     116FUNCTION a_timecorrelate, x, lag, COVARIANCE = covariance, DOUBLE = double 
    117117; 
    118118  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STATISTICS/c_timecorrelate.pro

    r242 r262  
    3131;- 
    3232; 
    33 FUNCTION timecross_cov, Xd, Yd, M, nT, Ndim, Double = Double, ZERO2NAN = zero2nan 
     33FUNCTION timecross_cov, xd, yd, m, nt, ndim, DOUBLE = double, ZERO2NAN = zero2nan 
    3434; 
    3535  compile_opt hidden 
    … …  
    116116;- 
    117117; 
    118 FUNCTION c_timecorrelate, X, Y, Lag, Covariance = Covariance, Double = Double 
     118FUNCTION c_timecorrelate, x, y, lag, COVARIANCE = covariance, DOUBLE = double 
    119119; 
    120120 

  • trunk/SRC/ToBeReviewed/STRING/delchr.pro

    r240 r262  
    3434;- 
    3535;  
    36         FUNCTION delchr, OLD, C, help=hlp 
     36FUNCTION delchr, old, c, HELP=hlp 
    3737; 
    3838  compile_opt idl2, strictarrsubs 
    3939; 
    4040  
    41         if (n_params(0) lt 2) or keyword_set(hlp) then begin 
    42           ras = report(['Delete all occurrences of a character from a text string.', $ 
    43           ' new = delchr(old, char)', $ 
    44           '   old = original text string.     in' , $ 
    45           '   char = character to delete.     in' , $ 
    46           '   new = resulting string.         out']) 
    47           return, -1 
    48         endif 
     41if (n_params(0) lt 2) or keyword_set(hlp) then begin 
     42  ras = report(['Delete all occurrences of a character from a text string.', $ 
     43  ' new = delchr(old, char)', $ 
     44  '   old = original text string.     in' , $ 
     45  '   char = character to delete.     in' , $ 
     46  '   new = resulting string.         out']) 
     47  return, -1 
     48endif 
    4949  
    50         B = BYTE(OLD)                      ; convert string to a byte array. 
    51         CB = BYTE(C)                       ; convert char to byte. 
    52         w = where(b ne cb[0]) 
    53         if w[0] eq -1 then return, ''      ; Nothing left. 
    54         return, string(b[w])              ; Return new string. 
    55         END 
     50B = BYTE(OLD) ; convert string to a byte array. 
     51CB = BYTE(C)  ; convert char to byte. 
     52w = where(b ne cb[0]) 
     53if w[0] eq -1 then return, '' ; Nothing left. 
     54return, string(b[w]) ; Return new string. 
     55END 

  • trunk/SRC/ToBeReviewed/STRING/getfile.pro

    r260 r262  
    5252;- 
    5353; 
    54 FUNCTION getfile, filein, error=err, help=hlp, quiet=quiet, lines=lines, find = find 
     54FUNCTION getfile, filein, error=err, HELP=hlp, QUIET=quiet, LINES=lines, FIND = find 
    5555; 
    5656  compile_opt idl2, strictarrsubs 
    5757; 
    5858 
    59         if (n_params(0) lt 1) or keyword_set(hlp) then begin 
    60           ras = report([ $ 
     59if (n_params(0) lt 1) or keyword_set(hlp) then begin 
     60ras = report([ $ 
    6161          ' Read a text file into a string array.', $ 
    62           ' s = getfile(f)', $ 
    63           '   f = text file name.      in', $ 
    64           '   s = string array.        out', $ 
    65           ' Keywords:', $ 
    66           '   ERROR=err  error flag: 0=ok, 1=file not opened,', $ 
    67           '     2=no lines in file.', $ 
    68           '   /QUIET means give no error message.', $ 
    69           '   LINES=n  Number of lines to read (def=all).', $ 
    70           '     Much faster if number of lines is known.', $ 
    71           '     Automatic for IDL 5.6 or later.']) 
    72           return, -1 
    73         endif 
     62' s = getfile(f)', $ 
     63'   f = text file name.      in', $ 
     64'   s = string array.        out', $ 
     65' Keywords:', $ 
     66'   ERROR=err  error flag: 0=ok, 1=file not opened,', $ 
     67'     2=no lines in file.', $ 
     68'   /QUIET means give no error message.', $ 
     69'   LINES=n  Number of lines to read (def=all).', $ 
     70'     Much faster if number of lines is known.', $ 
     71'     Automatic for IDL 5.6 or later.']) 
     72return, -1 
     73endif 
    7474; 
    7575        if keyword_set(find) then begin 
    … …  
    8484        if (!version.release+0. ge 5.5) then begin 
    8585          f = call_function('file_search', file, count = c) 
    86         endif else begin 
    87           f = findfile(file,count=c) 
    88         endelse 
    89         if c eq 0 then begin 
    90           err = 1 
    91           return,'' 
    92         endif 
     86        endif else begin 
     87          f = findfile(file,count=c) 
     88        endelse 
     89        if c eq 0 then begin 
     90          err = 1 
     91          return,'' 
     92        endif 
    9393 
    94         if n_elements(line) eq 0 and (!version.release+0. ge 5.6) then begin 
    95           lines = file_lines(file) 
    96           if lines eq 0 then begin 
    97             if not keyword_set(quiet) then print,' No lines in file.' 
    98             err = 2 
    99             return,-1 
    100           endif 
    101           minlines = 0 
    102         endif else minlines=1 
     94        if n_elements(line) eq 0 and (!version.release+0. ge 5.6) then begin 
     95          lines = file_lines(file) 
     96          if lines eq 0 then begin 
     97            if not keyword_set(quiet) then print,' No lines in file.' 
     98               err = 2 
     99               return,-1 
     100          endif 
     101          minlines = 0 
     102        endif else minlines=1 
    103103 
    104         get_lun, lun 
    105         on_ioerror, err 
    106         openr, lun, file 
     104        get_lun, lun 
     105        on_ioerror, err 
     106        openr, lun, file 
    107107 
    108         if n_elements(lines) ne 0 then begin 
    109           s = strarr(lines) 
    110           readf,lun,s 
    111         endif else begin 
    112           s = [' '] 
    113           t = '' 
    114           while not eof(lun) do begin 
    115             readf, lun, t 
    116             s = [s,t] 
    117           endwhile 
    118         endelse 
     108        if n_elements(lines) ne 0 then begin 
     109          s = strarr(lines) 
     110          readf,lun,s 
     111        endif else begin 
     112          s = [' '] 
     113          t = '' 
     114          while not eof(lun) do begin 
     115            readf, lun, t 
     116            s = [s,t] 
     117          endwhile 
     118        endelse 
    119119 
    120         close, lun 
    121         free_lun, lun 
    122         if n_elements(s) eq minlines then begin 
    123           if not keyword_set(quiet) then print,' No lines in file.' 
    124           err = 2 
    125           return,-1 
    126         endif 
    127         if minlines eq 1 then s=s[1:*] 
     120        close, lun 
     121        free_lun, lun 
     122        if n_elements(s) eq minlines then begin 
     123          if not keyword_set(quiet) then print,' No lines in file.' 
     124          err = 2 
     125          return,-1 
     126        endif 
     127        if minlines eq 1 then s=s[1:*] 
    128128 
    129         err = 0 
    130         return, s 
     129        err = 0 
     130        return, s 
    131131 
    132 err:    if !err eq -168 then begin 
    133           if not keyword_set(quiet) then print,' Non-standard text file format.' 
    134           free_lun, lun 
    135           return, s 
    136         endif 
    137         if not keyword_set(quiet) then print,$ 
    138           ' Error in getfile: File '+file+' not opened.' 
    139         free_lun, lun 
    140         err = 1 
    141         return, -1 
     132err:    if !err eq -168 then begin 
     133         if not keyword_set(quiet) then print,' Non-standard text file format.' 
     134         free_lun, lun 
     135         return, s 
     136        endif 
     137        if not keyword_set(quiet) then print,$ 
     138         ' Error in getfile: File '+file+' not opened.' 
     139        free_lun, lun 
     140        err = 1 
     141        return, -1 
    142142 
    143         end 
     143        end 

  • trunk/SRC/ToBeReviewed/STRING/getwrd.pro

    r232 r262  
    7373; 
    7474 
    75         FUNCTION getwrd, TXTSTR, NTH, MTH, help=hlp, location=ll,$ 
    76            delimiter=delim, notrim=notrim, last=last, nwords=nwords 
     75        FUNCTION getwrd, txtstr, nth, mth, HELP=hlp, LOCATION=ll,$ 
     76           DELIMITER=delim, NOTRIM=notrim, LAST=last, NWORDS=nwords 
    7777 
    7878        common getwrd_com, txtstr0, nwds, loc, len 

  • trunk/SRC/ToBeReviewed/STRING/isnumber.pro

    r232 r262  
    4040;- 
    4141;  
    42         function isnumber, txt0, x, help=hlp 
     42FUNCTION isnumber, txt0, x, HELP=hlp 
    4343; 
    4444  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRING/lenstr.pro

    r142 r262  
    2727; @todo seb  
    2828; 
    29 ;;- 
    30  
    31 function lenstr,str 
     29;- 
     30; 
     31FUNCTION lenstr, str 
    3232; 
    3333  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRING/nwrds.pro

    r232 r262  
    3636;- 
    3737;  
    38   
    39         function nwrds,txtstr, help=hlp, delimiter=delim 
     38FUNCTION nwrds, txtstr, HELP=hlp, DELIMITER=delim 
    4039; 
    4140  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRING/putfile.pro

    r232 r262  
    3030;- 
    3131;  
    32         pro putfile, file, s, error=err, help=hlp 
     32PRO putfile, file, s, ERROR=err, HELP=hlp 
    3333; 
    3434  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRING/str_size.pro

    r226 r262  
    5151; 
    5252;- 
    53  
    54 FUNCTION str_size, string, targetWidth, INITSIZE=initsize, STEP=step 
     53; 
     54FUNCTION str_size, string, targetwidth, INITSIZE=initsize, STEP=step 
    5555; 
    5656  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRING/string2struct.pro

    r232 r262  
    2222;- 
    2323; 
    24 FUNCTION too_cool,_EXTRA=extra 
     24FUNCTION too_cool, _EXTRA=extra 
    2525; 
    2626  compile_opt idl2, strictarrsubs 
    … …  
    7979; 
    8080;- 
    81  
    82 function string2struct,strVal 
     81; 
     82FUNCTION string2struct,strVal 
    8383; 
    8484  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRING/strright.pro

    r232 r262  
    2727; $Id$ 
    2828; 
    29 ;- 
    3029; Copyright (C) 1997, Martin Schultz, Harvard University 
    3130; This software is provided as is without any warranty 
    … …  
    3534; be used commercially or sold as part of a larger package, 
    3635; please contact the author to arrange payment. 
    37 ; Bugs and comments should be directed to mgs@io.harvard.edu 
     36; Bugs and comments should be directed to mgs\@io.harvard.edu 
    3837; with subject "IDL routine strright" 
     38;- 
    3939; 
    40 function strright,s,lastn 
     40FUNCTION strright, s, lastn 
    4141; 
    4242  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRING/strsci.pro

    r232 r262  
    8181; $Id$ 
    8282; 
    83 ;- 
    8483; Copyright (C) 1998, 1999 Bob Yantosca and Martin Schultz,  
    8584; Harvard University 
    … …  
    9089; be used commercially or sold as part of a larger package, 
    9190; please contact the author to arrange payment. 
    92 ; Bugs and comments should be directed to bmy@io.harvard.edu 
    93 ; or mgs@io.harvard.edu with subject "IDL routine strsci" 
     91; Bugs and comments should be directed to bmy\@io.harvard.edu 
     92; or mgs\@io.harvard.edu with subject "IDL routine strsci" 
     93;- 
    9494; 
    95 function strsci, Data, Format=Format, POT_Only=POT_Only, $ 
    96              MANTISSA_ONLY=MANTISSA_ONLY,SHORT=SHORT,TRIM=TRIM 
     95FUNCTION strsci, data, FORMAT=format, POT_ONLY=pot_only, $ 
     96             MANTISSA_ONLY=mantissa_only, SHORT=short, TRIM=trim 
    9797; 
    9898  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRING/strtok.pro

    r232 r262  
    6565;- 
    6666; 
    67 FUNCTION strtok, string, token, $ 
    68                  TRIM=trim, HELP=Help 
     67FUNCTION strtok, string, token, TRIM=trim, HELP=Help 
    6968; 
    7069  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRING/strwhere.pro

    r238 r262  
    3333; $Id$ 
    3434; 
    35 ;- 
    3635; Copyright (C) 1998, Martin Schultz, Harvard University 
    3736; This software is provided as is without any warranty 
    … …  
    4140; be used commercially or sold as part of a larger package, 
    4241; please contact the author to arrange payment. 
    43 ; Bugs and comments should be directed to mgs@io.harvard.edu 
     42; Bugs and comments should be directed to mgs\@io.harvard.edu 
    4443; with subject "IDL routine strwhere" 
     44;- 
    4545; 
    46 FUNCTION strwhere,str,schar,Count 
     46FUNCTION strwhere, str, schar,count 
    4747; 
    4848  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRUCTURE/chkstru.pro

    r232 r262  
    5353; $Id$ 
    5454; 
    55 ;- 
    5655; Copyright (C) 1998, Martin Schultz, Harvard University 
    5756; This software is provided as is without any warranty 
    … …  
    6160; be used commercially or sold as part of a larger package, 
    6261; please contact the author to arrange payment. 
    63 ; Bugs and comments should be directed to mgs@io.harvard.edu 
     62; Bugs and comments should be directed to mgs\@io.harvard.edu 
    6463; with subject "IDL routine chkstru" 
     64;- 
    6565; 
    66 function chkstru,structure,fields,index=index,verbose=verbose, extract = extract 
     66FUNCTION chkstru, structure, fields, INDEX=index,VERBOSE=verbose, EXTRACT = extract 
    6767; 
    6868  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/STRUCTURE/where_tag.pro

    r232 r262  
    5656;  
    5757;- 
    58 function where_tag, Struct, Nfound,     TAG_NAME=Tag_Name,      $ 
    59                                         TAG_NUMBER=Tag_Num,     $ 
     58FUNCTION where_tag, Struct, Nfound,     TAG_NAME=tag_name,      $ 
     59                                        TAG_NUMBER=tag_num,     $ 
    6060                                        ISELECT=ipart, NOPRINT=noprint, $ 
    6161                                        RANGE=range, VALUES=values 
    62 ;First check required parameters... 
    6362; 
    6463  compile_opt idl2, strictarrsubs 
    6564; 
    66  
     65;First check required parameters... 
    6766        Ntag = N_tags( Struct ) 
    6867 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/ciseauxtri.pro

    r231 r262  
    3131; 
    3232FUNCTION ciseauxtri, triang, glam, gphi, _EXTRA = ex 
    33 ;--------------------------------------------------------- 
    3433; 
    3534  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/definetri.pro

    r232 r262  
    8282; $Id$ 
    8383;- 
     84; 
    8485FUNCTION definetri, nx, ny, downward 
    8586; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/definetri_e.pro

    r232 r262  
    7777; seb: documenter SHIFTED 
    7878;- 
     79; 
    7980FUNCTION definetri_e, nx, ny, singular, SHIFTED = shifted 
    8081; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/drawcoast_e.pro

    r232 r262  
    5151;- 
    5252; 
    53 PRO drawcoast_e, mask, xf, yf, nx, ny, COAST_COLOR = coast_color, COAST_THICK = coast_thick, YSEUIL = yseuil, XSEUIL = xseuil, onemore = onemore, _EXTRA = ex 
     53PRO drawcoast_e, mask, xf, yf, nx, ny, COAST_COLOR = coast_color, COAST_THICK = coast_thick, YSEUIL = yseuil, XSEUIL = xseuil, ONEMORE = onemore, _EXTRA = ex 
    5454; 
    5555  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro

    r254 r262  
    3030; 
    3131;- 
    32 ;------------------------------------------------------------ 
    33 ;------------------------------------------------------------ 
    34 ;------------------------------------------------------------ 
     32; 
    3533FUNCTION buildcmd, base, BOXZOOM = boxzoom, FORCETYPE = forcetype 
    3634; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcmd.pro

    r254 r262  
    3838; 
    3939;- 
     40; 
    4041FUNCTION buildreadcmd, base, snameexp, procedure, type, BOXZOOM = boxzoom $ 
    4142                       , COMPLETE = complete, NAMEFIELD = namefield 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefield.pro

    r254 r262  
    4040PRO changefield, base, newfieldname, BOXZOOM = boxzoom 
    4141; 
    42 ; 
    4342  compile_opt idl2, strictarrsubs 
    4443; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro

    r254 r262  
    4444; 
    4545;- 
     46; 
    4647PRO changefile, base, newfilename, BOXZOOM = boxzoom, DATE1 = date1, DATE2 = date2, FIELDNAME = fieldname 
    4748; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/createhistory.pro

    r231 r262  
    3838; 
    3939;- 
     40; 
    4041PRO createhistory, base, small 
    4142; 
    42 ;------------------------------------------------------------- 
    4343; we save globalcommand in globaloldcommand 
    4444; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/doubleclickaction.pro

    r231 r262  
    2626; 
    2727PRO doubleclickaction, event 
    28 ;------------------------------------------------------------ 
    2928; 
    3029  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/tracecadre.pro

    r231 r262  
    3333;- 
    3434; 
    35 PRO tracecadre, small, out = out, erase = erase, fill = fill 
     35PRO tracecadre, small, OUT = out, ERASE = erase, FILL = fill 
    3636; 
    3737  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_bgroup.pro

    r242 r262  
    8080; $Id$ 
    8181;- 
    82 function cw_bgroup_getv, id, value 
    83  
     82; 
     83FUNCTION cw_bgroup_getv, id, value 
     84; 
    8485  compile_opt hidden, idl2, strictarrsubs 
     86; 
    8587  ON_ERROR, 2                       ;return to caller 
    8688 
    … …  
    129131; $Id$ 
    130132;- 
    131 function cw_bgroup_event, ev 
     133; 
     134FUNCTION cw_bgroup_event, ev 
     135; 
    132136  compile_opt hidden, idl2, strictarrsubs 
     137; 
    133138  WIDGET_CONTROL, ev.handler, GET_UVALUE=stash 
    134139  WIDGET_CONTROL, stash, GET_UVALUE=state, /NO_COPY 
    … …  
    333338; 
    334339;- 
    335  
    336  
    337  
    338  
    339  
    340 function cw_bgroup, parent, names, $ 
     340; 
     341FUNCTION cw_bgroup, parent, names, $ 
    341342    BUTTON_UVALUE = button_uvalue, COLUMN=column, EVENT_FUNCT = efun, $ 
    342343    EXCLUSIVE=excl, FONT=font, FRAME=frame, IDS=ids, LABEL_TOP=label_top, $ 
    … …  
    349350    YOFFSET=yoffset, YPAD=ypad, YSIZE=ysize, Y_SCROLL_SIZE=y_scroll_size, $ 
    350351    UNAME=uname 
    351  
    352  
     352; 
     353  compile_opt hidden, idl2, strictarrsubs 
     354; 
    353355  IF (N_PARAMS() ne 2) THEN ras = report('Incorrect number of arguments') 
    354356 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro

    r232 r262  
    6767  compile_opt strictarr, strictarrsubs 
    6868; 
    69 ; 
    7069@cm_4cal 
    7170; get back the calendar and its related informations 
    … …  
    133132; $Id$ 
    134133;- 
     134; 
    135135FUNCTION cw_calendar_get_value, id 
    136136; 
    … …  
    168168; $Id$ 
    169169;- 
     170; 
    170171FUNCTION get_cal_value, id, winfoid 
    171172; 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slide_slice.pro

    r254 r262  
    218218;- 
    219219; 
    220 FUNCTION cw_slide_slice, parent, boxzoom = boxzoom, UVALUE = uvalue, UNAME = uname, FRAME = frame, ROW = row, COLUMN = column, _EXTRA = ex 
     220FUNCTION cw_slide_slice, parent, BOXZOOM = boxzoom, UVALUE = uvalue, UNAME = uname, FRAME = frame, ROW = row, COLUMN = column, _EXTRA = ex 
    221221; 
    222222  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slider_pm.pro

    r242 r262  
    338338FUNCTION cw_slider_pm, parent, MAXIMUM = maximum, MINIMUM = minimum $ 
    339339                       , STRMINLEN = strminlen, VALUE = value, UVALUE = uvalue $ 
    340                        , UNAME = uname, title = title, _EXTRA = ex 
     340                       , UNAME = uname, TITLE = title, _EXTRA = ex 
    341341; 
    342342  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro

    r232 r262  
    212212; 
    213213FUNCTION cw_specifie, parent, ROW = row, COLUMN = column, UVALUE = uvalue, UNAME = uname, FRAME = frame, FORXXX = forxxx, _EXTRA = ex 
     214; 
     215  compile_opt idl2, strictarrsubs 
     216; 
    214217; checking exclusive keywords 
    215 ; 
    216   compile_opt idl2, strictarrsubs 
    217 ; 
    218218   column = keyword_set(column)*(1-keyword_set(row)) 
    219219   row = keyword_set(row)*(1-keyword_set(column)) +(keyword_set(row) EQ column) 

  • trunk/SRC/ToBeReviewed/WIDGET/findtopid.pro

    r231 r262  
    2424;- 
    2525; 
    26 FUNCTION findtopid,  WIDGET_ID 
     26FUNCTION findtopid, widget_id 
    2727; 
    2828  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/slec.pro

    r254 r262  
    4848;- 
    4949; 
    50 FUNCTION slec,name,debut,fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex 
     50FUNCTION slec, name, debut, fin, nomexp, PARENT=parent, BOXZOOM=boxzoom, _EXTRA = ex 
    5151; 
    5252  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/xxx.pro

    r231 r262  
    155155;- 
    156156; 
    157 PRO xxx, datafilename, idlfile, argspro, CALLERWIDID = CallerWidId $ 
     157PRO xxx, datafilename, idlfile, argspro, CALLERWIDID = callerwidid $ 
    158158         , REDRAW = redraw, SEPARATE = separate, UVALUE = uvalue $ 
    159159         , RESTORE = restore, _EXTRA = ex 

  • trunk/SRC/Utilities/testvar.pro

    r260 r262  
    2929;- 
    3030; 
    31 FUNCTION testvar, var = var 
     31FUNCTION testvar, VAR = var 
    3232; 
    3333  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Utilities/text_box.pro

    r242 r262  
    5151;- 
    5252; 
    53 PRO text_box,text,pos=pos,fg_color=fg_color,bg_color=bg_color,$ 
    54                center=center,right=right,box=box,vert_space=vert_space, _EXTRA = ex 
     53PRO text_box, text, POS=pos, FG_COLOR=fg_color, BG_COLOR=bg_color,$ 
     54               CENTER=center, RIGHT=right, BOX=box, VERT_SPACE=vert_space, _EXTRA = ex 
    5555; 
    5656  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Utilities/xfile.pro

    r260 r262  
    33; @file_comments 
    44; display an ASCII file in a widget. 
    5 ; It is the same thing that <proidl>XDISPLAYFILE<proidl> but here, we use it 
     5; It is the same thing that <proidl>XDISPLAYFILE</proidl> but here, we use it 
    66; to display the content of a procedure or of a function located in the !path 
    77; ".pro" suffix will be appended if needed. 

  • trunk/SRC/Utilities/xhelp.pro

    r260 r262  
    2929;       University of California, Santa Barbara 
    3030;  7/1/99 : legeres mofification par Sebastien Masson : utilisation de 
    31 ;  xdisplayfile, de findfile et de _extra. 
     31;  <proidl>xdisplayfile</proidl>, de <pro>findfile</pro> et de _extra. 
    3232;  6/7/1999: compatibility mac and windows 
    3333; 
Note: See TracChangeset for help on using the changeset viewer.