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

Last change on this file since 237 was 232, checked in by pinsard, 17 years ago

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