source: trunk/procs/def_macro_base_fld.pro

Last change on this file was 206, checked in by pinsard, 14 years ago

homegenize ELSE BEGIN ... ENDELSE
  • Property svn:keywords set to Id
File size: 851 bytes
Line 
1;+
2;
3; @version
4; $Id$
5;
6;-
7                  var_name = cmd.var
8                  @get_macro_def
9                  IF debug_w THEN BEGIN
10                   print, '   macro_def in def_file_suff_var =', macro_def
11                  ENDIF
12                  CASE macro_def[1] OF
13                     '=:': BEGIN
14                        ids1 = strpos(line, '\')
15                        ids2 = strpos(line, '/')
16                        IF ids1*ids2 GE 0 THEN BEGIN
17                           macro_base_fld = extract_str(line, '\', '/')
18                        ENDIF ELSE BEGIN
19                           macro_base_fld = 'undefined'
20                        ENDELSE
21                     END
22                     ELSE: macro_base_fld = macro_def[1]
23                  ENDCASE
24                  macro_base_fld_1 = (strsplit(macro_base_fld, ',', /EXTRACT))[0]
Note: See TracBrowser for help on using the repository browser.