comp.lang.idl-pvwave archive: archive » Re: A routine to annotate PS files

Home » Public Forums » archive » Re: A routine to annotate PS files

Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend

Re: A routine to annotate PS files [message #69922 is a reply to message #69382]

Wed, 24 February 2010 11:04

MarioIncandenza
Messages: 231
Registered: February 2005

Senior Member

Here is an updated version of the routine. Changes include:
- Now writes entire call stack, including $MAIN$ ($MAIN$ has a program
file associated with it, and often that is information you need, it's
now included);
- Includes a /QUIET option to suppress echoing of the tags to be
written;
- Includes a (Unix-only, or maybe even more limited) option to /
PARSE_FINGER, which calls 'finger `whoami`' and writes the 'Login:'
and 'Name:' tags into the PS file. If it doesn't work on your system,
just ignore it. It won't cause any problems.

------------------------------------------------------------ -
pro
annotate_psfile,extra_tags=extra_tags,parse_finger=parse_fin ger,quiet=quiet
tagf='("%% ",a," : ",a)' ; %% Tag : Value
trace=scope_traceback(/structure)
ntrace=n_elements(trace)
geni=ntrace-2 ; index to proximate calling script
tag0=string('GenRoutine',trace[geni].routine,format=tagf)
tag1=string('GenFile',trace[geni].filename,format=tagf)
tags=[tag0,tag1]
if(geni gt 0) then begin
for icall=0,geni-1 do begin
tag0=string('CallRoutine',trace[icall].routine,format=tagf)
tag1=string('CallFile',trace[icall].filename,format=tagf)
tags=[tags,tag0,tag1]
endfor
endif
timecode=string(julday(),format='(C(CYI4.4,CMOI2.2,CDI2.2,CH I2.2,CMI2.2))')
tag0=string('TimeCode: ',timecode,format=tagf)
tags=[tags,tag0]
if n_elements(extra_tags) ne 0 then begin
extranames=tag_names(extra_tags)
for iextra=0l,n_elements(extranames)-1 do begin
tag0=string(extranames[iextra],extra_tags.
(iextra),format=tagf)
tags=[tags,tag0]
endfor
endif
if n_elements(parse_finger) ne 0 then begin
spawn,'finger `whoami`',result,error
if(error eq '') then begin
fingertags=stregex(result[0],'Login:(.*)Name:(.*)',/subexpr, /
extract)
tag0=string("Login: ",strtrim(fingertags[1],2),format=tagf)
tag1=string("Name: ",strtrim(fingertags[2],2),format=tagf)
tags=[tags,tag0,tag1]
endif
endif

if n_elements(quiet) eq 0 then print,tags,format='(A)'
ntags=n_elements(tags)
for itag=0l,ntags-1 do device,output=tags[itag]
return
end

Report message to a moderator

[Message index]

		Re: A routine to annotate PS files By: MarioIncandenza on Sun, 10 January 2010 09:57
		Re: A routine to annotate PS files By: R.G.Stockwell on Sat, 09 January 2010 14:44
		Re: A routine to annotate PS files By: David Fanning on Sat, 09 January 2010 08:46
		Re: A routine to annotate PS files By: MarioIncandenza on Sat, 09 January 2010 08:12
		Re: A routine to annotate PS files By: DavidPS on Thu, 14 January 2010 14:50
		Re: A routine to annotate PS files By: MarioIncandenza on Wed, 24 February 2010 11:04
		Re: A routine to annotate PS files By: David Fanning on Sat, 09 January 2010 07:30

Previous Topic:	Re: IDL 8.0 and compile_opt - Update
Next Topic:	Re: Preview of IDL 8.0

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Wed Oct 08 15:59:09 PDT 2025

Total time taken to generate the page: 0.00499 seconds