# Dstyle.perl by S.Takehiro 98/01/06 # package main; sub do_cmd_Dtitle { do_cmd_title(@_); } sub do_cmd_Dauthor { do_cmd_author(@_); } sub do_cmd_Ddate { local($_) = @_; &get_next_optional_argument; do_cmd_date($_); } &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_); Dpath # {} Dfile # {} Dfinp # {} Dinput Dinclude Dchapterhead _IGNORED_CMDS_ 1; # Must be last line