# Dselect.perl by S.Takehiro 97/12/18 # package main; sub do_cmd_DonJ { local($_) = @_; $DonJ=1; $_; } sub do_cmd_DoffJ { local($_) = @_; $DonJ=0; $_; } sub do_cmd_DselJ { local($_) = @_; local($next1,$next2); $next1 = &missing_braces unless ((s/$next_pair_pr_rx/$next1 = $2;''/eo) || (s/$next_pair_rx/$next1 = $2;''/eo)); $next2 = &missing_braces unless ((s/$next_pair_pr_rx/$next2 = $2;''/eo) || (s/$next_pair_rx/$next2 = $2;''/eo)); if ( $DonJ == 1 ) { join('',$next1,,$_); } else { join('',$next2,,$_); } } &process_commands_in_tex (<<_RAW_ARG_CMDS_); _RAW_ARG_CMDS_ &process_commands_inline_in_tex (<<_RAW_ARG_INLINE_CMDS_); _RAW_ARG_INLINE_CMDS_ &process_commands_nowrap_in_tex (<<_RAW_ARG_NOWRAP_CMDS_); _RAW_ARG_NOWRAP_CMDS_ &process_commands_wrap_deferred (<<_RAW_ARG_WRAP_CMDS_); _RAW_ARG_WRAP_CMDS_ &ignore_commands( <<_IGNORED_CMDS_); Dnewselect # {} _IGNORED_CMDS_ 1; # Must be last line