source: trunk/SRC/Obsolete/imprime.pro @ 114

Last change on this file since 114 was 114, checked in by smasson, 18 years ago

new compilation options (compile_opt idl2, strictarrsubs) in each routine
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; @file_comments  use printps instead...
6; @obsolete
7;
8; @history
9; June 2005: Sebastien Masson, english version
10;-
11;------------------------------------------------------------
12;------------------------------------------------------------
13;------------------------------------------------------------
14PRO imprime, filename, TRANS = trans, NB = nb
15;
16; this is working only with unix/linux/osX machines
17;
18  compile_opt idl2, strictarrsubs, obsolete
19;
20  thisOS = strupcase(strmid(!version.os_family, 0, 3))
21  CASE thisOS OF
22    'MAC':return
23    'WIN':return
24    ELSE:
25  ENDCASE
26;------------------------------------------------------------
27; call printps
28;------------------------------------------------------------
29  CASE N_PARAMS() OF
30    0:printps
31    1:printps, filename
32    ELSE: BEGIN
33      ras = report('imprime accept only one element: psfilename')
34      return
35    END
36  ENDCASE       
37;------------------------------------------------------------
38  return
39END
40
41
Note: See TracBrowser for help on using the repository browser.