#!/usr/local/bin/perl -s # (c) 1996 Reini Urban. # Permission granted to use and modify this program so long as the # copyright above is maintained, modifications are documented, and # credit is given for any use of the program. # # Convert DynaText's SGML Syntax to HTML # To use the AutoCAD on-line books with an Web Browser # Export the dynatext chapters with full contents to an .sgm file # --------------------------------------------------------------- # still buggy: some table tags $/ = 0; $newext = 'htm'; $oldext = 'sgm'; while (<>) { if ($ARGV ne $oldargv) { $extnew = (); $oldargv = $ARGV; $ARGVOUT = $ARGV; if ($ARGVOUT =~ /\.$newext$/ ) { print STDERR "Cannot process ", $ARGV; last;} $ARGVOUT =~ s#\.$oldext#\.$newext#i || ($ARGVOUT = $ARGV . '.' .$newext); rename($ARGVOUT, $ARGVOUT . '.bak') if -f $ARGVOUT; open(ARGVOUT, ">$ARGVOUT"); select(ARGVOUT); shift; } chop; # Font tags s#<(/?)F\.SERIF>##g; s#<(/?)F\.TIMES>##g; s#<(/?)F\.SANS>#<\1CODE>#g; s#<(/?)F\.ITAL>#<\1I>#g; s#<(/?)F\.PIXYMBOL[^>]*>##g; s#<(/?)F\.COURIER>#<\1CODE>#g; s#<(/?)F\.COURIER\.?BOLD>#<\1CODE><\1B>#g; s#<(/?)F\.COURIER\.?ITAL>#<\1CODE><\1I>#g; s#<(/?)F\.SANS\.?BOLD>#<\1CODE><\1B>#g; s#<(/?)F\.SANS\.?ITAL>#<\1CODE><\1I>#g; s#<(/?)F\.SERIF\.?BOLD>#<\1B>#g; s#<(/?)F\.SERIF\.?ITAL>#<\1I>#g; s#]*>##g; s#]*>##g; s#<(/?)F\.SUPERSCRIPT>#<\1SUP>#g; s#<(/?)F\.BODY>##g; s#\\iš##g; s#\\i##g; # Paragraph tags s#<(/?)HEADING\.(\d+)>#<\1H\2>\n#g; s#<(/?)RBW\-IDXTERM[^>]+>##g; s#\s+]*>\s+<\RBW\-ANCHOR>(.+)#\2\n

\2

#g; s#<(/?)CHAPTER\.TITLE>#<\1TITLE>\n#g; s#<(/?)DEFINE.HEAD>#<\1H2>\n#g; s#<(/?)DEFINE.TEXT>#<\1P>\n#g; s##\n#g; s##
\n#g; s#<(/?)HEADING\.(\d+)\.BODY>#<\1H\2>\n#g; s#<(/?)SECTION(\d*)>##g; s#<(/?)PARTDIV>##g; s#<(/?)EMPTY>##g; s#<(/?)CHAPTER>##g; s#\n#\n#g; s#<(/?)PROG\.IN[^>]*>#<\1PRE>#g; s#<(/?)PROG\.OUT[^>]*>#<\1PRE>#g; s#<(/?)PROG\.GROUP>##g; s#<(/?)PROMPT.*>##g; # s#.*##g; # Links s|]*>||g; s###g; s#]*>#_#g; s###g; # Lists s#<(/?)BULL\.NUM\..\.LIST>#<\1UL>#g; s##
  • #g; s###g; # Tables s#<(/?)RBW\-TABLE>#\n<\1TABLE>\n#g; s#<(/?)RBW\-ROW>#\n<\1TR>#g; s##

    #g; s##

    \n#g; s###g; s###g; s###g; s###g; s#<(/?)ENTRY[^>]*>##g; s#<(/?)THEAD>##g; s#<(/?)TGROUP[^>]*>##g; s#<(/?)TBODY>##g; s#<(/?)NOTEPARAS[^>]*>##g; s#]*>##g; # clean up the mess s#\s\s# #g; s#([\s\n]*)
    #\1#g;
s#
    ([\s\n]*)
    #
    \1#g;

# write lowercase tags (even unknown) tags literally
# if called with 'perl -s dynatext.pl -lit '
s#<([a-z])#<\1#g if $lit;
s#<(SQL)#<\1#g if $lit;
s#([a-z])>#\1>#g if $lit;

# internal info
s#([^<]+)##g;
s#<(/?)RBW\-[^>]+>##g;
s#<(/?)RBWSECT\-[^>]+>##g;

 }
 continue {
     print;     # this prints to original filename
 }
select(STDOUT);