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

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