\n"; # "
\n"); } # STScI: add the references environment and the figure environment. # # In both cases, just push the contents of the environment back out to # be processed as ordinary text. We rely on special text to recognize # the psfig command or the AASTeX commands for including a PostScript # figure: plotone or plottwo sub do_env_references { local($_) = @_; join('',"
\n"); } sub do_env_participants { local($_) = @_; join('',"
\n"); } sub do_cmd_psfig { local($_) = @_; s/$next_pair_pr_rx//o; local($args) = $&; $args = &revert_to_raw_tex($args); $args =~ s/ //g; # psfig does not like spaces !! join('',&process_in_latex_icon("\\psfig$args"),"
$_"); } sub do_cmd_plotone { local($_) = @_; s/$next_pair_pr_rx//o; local($args) = $&; $args = &revert_to_raw_tex($args); # $args =~ s/^{/{..\// ; join('',&process_in_latex_icon("\\plotone$args"),"
$_"); } sub do_cmd_plottwo { local($_) = @_; s/$next_pair_pr_rx//o; local($arg1) = $&; $arg1 = &revert_to_raw_tex("$arg1"); # $arg1 =~ s/^{/{..\// ; # local($arg2) = $_; s/$next_pair_pr_rx//o; $arg2 = $&; $arg2 = &revert_to_raw_tex("$arg2"); # $arg2 =~ s/^{/{..\// ; join('',&process_in_latex_icon("\\plottwo$arg1$arg2"),"
$_"); } # STScI: Changed for AASTeX, since several \author commands are allowed. sub do_cmd_author { local($_) = @_; s/$next_pair_pr_rx//o; ($t_author) = $&; join('', "
$t_author
", $_);
}
# STScI: Commands for AASTeX
sub do_cmd_affil {
local($_) = @_;
s/$next_pair_pr_rx//o;
($t_affil) = $&;
# join('', "
$t_affil
\n", $_);
# join('', "$t_affil
", $_);
join('', "
$t_affil
", $_);
}
sub do_cmd_authoraddr {
local($_) = @_;
s/$next_pair_pr_rx//o;
($t_authoraddr) = $&;
join('', "$t_authoraddr
\n", $_); } sub do_cmd_keywords { local($_) = @_; s/$next_pair_pr_rx//o; ($t_keywords) = $&; join('', "
Keywords: $t_keywords
\n", $_); } sub do_cmd_altaffiltext { local($_) = @_; s/$next_pair_pr_rx//o; local($br_id, $footnote) = ($1, $2); &process_footnote($footnote) if $footnote; $_; } sub do_cmd_altaffilmark { local($_) = @_; # &get_next_optional_argument; # Don't use ()'s for the optional argument! s/\\altaffiltext\{[^}]*\}\s*$any_next_pair_pr_rx//o; local($br_id, $footnote) = ($1, $2); if ($footnote) { &process_footnote($footnote); $_ = join('',&make_href("$footfile#$br_id",$footnote_mark),$_);} else { print "\nCannot find \\footnotetext";}; $_; } sub do_cmd_adassi { local($_) = @_; join('',"in Astronomical Data Analysis Software and Systems I, ASP Conf. Ser., Vol. 25, eds. D. M. Worrall, C. Biemesderfer, & J. Barnes (San Francisco, ASP), p. $_
\n"); } sub do_cmd_adassii { local($_) = @_; join('',"in Astronomical Data Analysis Software and Systems II, ASP Conf. Ser., Vol. 52, eds. R. J. Hanisch, R. J. V. Brissenden, & J. Barnes (San Francisco, ASP), p. $_
\n"); } sub do_cmd_adassiii { local($_) = @_; s/$next_pair_pr_rx//o; local($arg1) = $&; s/$next_pair_pr_rx//o; local($arg2) = $&; join('',"in Astronomical Data Analysis Software and Systems III, ASP Conf. Ser., Vol. 61, eds. D. R. Crabtree, R. J. Hanisch, & J. Barnes (San Francisco, ASP), p. $_
\n"); } sub do_cmd_adassiv { local($_) = @_; s/$next_pair_pr_rx//o; local($arg1) = $&; s/$next_pair_pr_rx//o; local($arg2) = $&; join('',"in Astronomical Data Analysis Software and Systems IV, ASP Conf. Ser., Vol. 77, eds. R. A. Shaw, H. E. Payne, & J. J. E. Hayes (San Francisco, ASP), p. $_
\n"); } sub do_cmd_adassv { local($_) = @_; join('',"this volume
\n"); } sub do_cmd_acknowledgments { local($_) = @_; join('',"
\n"); } sub do_cmd_acknowledgements { &do_cmd_acknowledgments; } # A number of Journal abbreviations: sub do_cmd_aap { join('',"A&A@_"); } sub do_cmd_aapr { join('',"ARA&A@_"); } sub do_cmd_aaps { join('',"A&AS@_"); } sub do_cmd_aj { join('',"AJ@_"); } sub do_cmd_ao { join('',"Appl. Optics@_"); } sub do_cmd_apj { join('',"ApJ@_"); } sub do_cmd_apjl { join('',"ApJ@_"); } sub do_cmd_apjs { join('',"ApJS@_"); } sub do_cmd_apss { join('',"Ap&SS@_"); } sub do_cmd_araa { join('',"ARA&A@_"); } sub do_cmd_azh { local($_) = @_; join('',"AZh$_"); } sub do_cmd_baas { local($_) = @_; join('',"BAAS$_"); } sub do_cmd_jrasc { local($_) = @_; join('',"JRASC$_"); } sub do_cmd_memras { local($_) = @_; join('',"MmRAS$_"); } sub do_cmd_mnras { local($_) = @_; join('',"MNRAS$_"); } sub do_cmd_pra { local($_) = @_; join('',"Phys. Rev. A$_"); } sub do_cmd_prb { local($_) = @_; join('',"Phys. Rev. B$_"); } sub do_cmd_prc { local($_) = @_; join('',"Phys. Rev. C$_"); } sub do_cmd_prd { local($_) = @_; join('',"Phys. Rev. D$_"); } sub do_cmd_prl { local($_) = @_; join('',"Phys. Rev. Lett.$_"); } sub do_cmd_pasp { local($_) = @_; join('',"PASP$_"); } sub do_cmd_pasj { local($_) = @_; join('',"PASJ$_"); } sub do_cmd_qjras { local($_) = @_; join('',"QJRAS$_"); } sub do_cmd_skytel { local($_) = @_; join('',"S&T$_"); } sub do_cmd_solphys { local($_) = @_; join('',"Solar Phys.$_"); } sub do_cmd_sovast { local($_) = @_; join('',"Soviet Ast.$_"); } sub do_cmd_ssr { local($_) = @_; join('',"Space Sci. Rev.$_"); } sub do_cmd_zap { local($_) = @_; join('',"ZAp$_"); } sub do_cmd_astap { &do_cmd_aap ; } sub do_cmd_apjlett { &do_cmd_apjl ; } # special symbols sub do_cmd_deg { join('',"^o@_"); } sub do_cmd_sun { join('',"o@_"); } sub do_cmd_fd { join('',".d@_"); } sub do_cmd_fh { join('',".h@_"); } sub do_cmd_fm { join('',".m@_"); } sub do_cmd_fs { join('',".s@_"); } sub do_cmd_fdg { join('', ".o", @_); } sub do_cmd_farcm { join('',".'@_"); } sub do_cmd_farcs { join('',".''@_"); } sub do_cmd_micron { local($_) = @_; join('',"micron$_"); } sub do_cmd_onehalf { join('',"1/2@_"); } sub do_cmd_onethird { join('',"1/3@_"); } sub do_cmd_twothirds { join('',"2/3@_"); } sub do_cmd_onequarter { join('',"1/4@_"); } sub do_cmd_threequarters { join('',"3/4@_"); } sub do_cmd_ubvr { join('',"UBVR@_"); } sub do_cmd_ub { join('',"U-B@_"); } sub do_cmd_bv { join('',"B-V@_"); } sub do_cmd_vr { join('',"V-R@_"); } sub do_cmd_ur { join('',"U-R@_"); } # Added for ADASS sub do_cmd_fortran { local($_) = @_; join('',"FORTRAN$_"); } sub do_cmd_us { local($_) = @_; join('',"\\_$_"); } sub add_aidx { print "\nDoing the author index ..."; local($key, $str, @keys, $aindex, $level, $count, @previous, @current); @keys = keys %aindex; @keys = sort keysort @keys; $level = 0; foreach $key (@keys) { @current = split(/!/, $key); $count = 0; while ($current[$count] eq $previous[$count]) { $count++; } while ($count > $level) { $aindex .= "
' , &make_section_heading($aidx_title, "H2"), $aidx_mark, $_); } 1;