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

Last change on this file since 412 was 327, checked in by pinsard, 17 years ago

modification of headers : mainly blanks around = sign for keywords in declaration of function and pro
  • Property svn:keywords set to Id
File size: 894 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;-
[327]24PRO imprime, filename, TRANS=trans, NB=nb
[2]25;
[16]26; this is working only with unix/linux/osX machines
[114]27;
28  compile_opt idl2, strictarrsubs, obsolete
29;
[16]30  thisOS = strupcase(strmid(!version.os_family, 0, 3))
[118]31  CASE thisOS OF
[16]32    'MAC':return
33    'WIN':return
34    ELSE:
35  ENDCASE
[2]36;------------------------------------------------------------
[16]37; call printps
[2]38;------------------------------------------------------------
[16]39  CASE N_PARAMS() OF
40    0:printps
41    1:printps, filename
[118]42    ELSE: BEGIN
[16]43      ras = report('imprime accept only one element: psfilename')
44      return
[118]45    END
46  ENDCASE
[2]47;------------------------------------------------------------
[16]48  return
49END
[2]50
51
Note: See TracBrowser for help on using the repository browser.