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

Last change on this file since 97 was 97, checked in by pinsard, 18 years ago

start to modify headers of Obsolete *.pro files for better idldoc output
  • 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
RevLine 
[2]1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
[97]5; @file_comments  use printps instead...
6; @obsolete
[2]7;
[97]8; @history
[16]9; June 2005: Sebastien Masson, english version
[2]10;-
11;------------------------------------------------------------
12;------------------------------------------------------------
13;------------------------------------------------------------
[16]14PRO imprime, filename, TRANS = trans, NB = nb
[2]15;
[16]16; this is working only with unix/linux/osX machines
17  thisOS = strupcase(strmid(!version.os_family, 0, 3))
18  CASE thisOS OF
19    'MAC':return
20    'WIN':return
21    ELSE:
22  ENDCASE
[2]23;------------------------------------------------------------
[16]24; call printps
[2]25;------------------------------------------------------------
[16]26  CASE N_PARAMS() OF
27    0:printps
28    1:printps, filename
29    ELSE: BEGIN
30      ras = report('imprime accept only one element: psfilename')
31      return
32    END
33  ENDCASE       
[2]34;------------------------------------------------------------
[16]35  return
36END
[2]37
38
Note: See TracBrowser for help on using the repository browser.