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

Last change on this file since 134 was 134, checked in by navarro, 18 years ago

change *.pro file properties (del eof-style, del executable, set keywords Id
  • Property svn:keywords set to Id
File size: 1.2 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; @file_comments
6; use printps instead...
7;
8; @obsolete
9;
10; @param filename {in}{required}
11;
12; @keyword TRANS
13;
14; @keyword NB
15;
16; @uses printps
17;
18; @history
19; June 2005: Sebastien Masson, english version
20;
21; @version $Id$
22;
23;-
24;------------------------------------------------------------
25;------------------------------------------------------------
26;------------------------------------------------------------
27PRO imprime, filename, TRANS = trans, NB = nb
28;
29; this is working only with unix/linux/osX machines
30;
31  compile_opt idl2, strictarrsubs, obsolete
32;
33  thisOS = strupcase(strmid(!version.os_family, 0, 3))
34  CASE thisOS OF
35    'MAC':return
36    'WIN':return
37    ELSE:
38  ENDCASE
39;------------------------------------------------------------
40; call printps
41;------------------------------------------------------------
42  CASE N_PARAMS() OF
43    0:printps
44    1:printps, filename
45    ELSE: BEGIN
46      ras = report('imprime accept only one element: psfilename')
47      return
48    END
49  ENDCASE
50;------------------------------------------------------------
51  return
52END
53
54
Note: See TracBrowser for help on using the repository browser.