home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / text / frame / 2628 < prev    next >
Encoding:
Text File  |  1992-08-18  |  34.8 KB  |  1,457 lines
  1. Newsgroups: comp.text.frame
  2. Path: sparky!uunet!europa.asd.contel.com!darwin.sura.net!convex!convex!connolly
  3. From: connolly@convex.com (Dan Connolly)
  4. Subject: mif2rtf.pl: here it is.
  5. Summary: perl script to convert FrameMaker MIF files to MS Word RTF format
  6. Sender: usenet@news.eng.convex.com (news access account)
  7. Message-ID: <1992Aug18.202733.21362@news.eng.convex.com>
  8. Date: Tue, 18 Aug 1992 20:27:33 GMT
  9. Nntp-Posting-Host: pixel.convex.com
  10. Organization: Engineering, CONVEX Computer Corp., Richardson, Tx., USA
  11. Keywords: MIF RTF perl Rich Text Format filter
  12. X-Disclaimer: This message was written by a user at CONVEX Computer
  13.               Corp. The opinions expressed are those of the user and
  14.               not necessarily those of CONVEX.
  15. Lines: 1440
  16.  
  17. I have had a number of requests for this beast over the last
  18. year or so. I don't use the perl script any more -- the version
  19. under development uses XLisp in stead.
  20.  
  21. But a lot of folks have had good luck with it. It converts
  22. basic character and paragraph formatting. It does pretty
  23. much what you'd expect for letters and memo's. Somebody
  24. had good luck with a 90 page document. (Chalk one up
  25. for perl! It scales well.)
  26.  
  27. I have one request: would somebody archive this thing on
  28. an FTP server and let me know where you put it?
  29.  
  30. Anyway, here it is:
  31.  
  32. # This is a shell archive.  Remove anything before this line,
  33. # then unpack it by saving it in a file and typing "sh file".
  34. #
  35. # Wrapped by pixel!connolly on Tue Aug 18 15:21:58 CDT 1992
  36. # Contents:  mif2rtf.pl
  37.  
  38. echo x - mif2rtf.pl
  39. sed 's/^@//' > "mif2rtf.pl" <<'@//E*O*F mif2rtf.pl//'
  40. #!/usr/local/bin/perl
  41. # $Id$
  42. #
  43. # USE
  44. #
  45. $Usage = "
  46. $0 -d [mif_file]... >out.rtf
  47.    -d               turn on debugging
  48.    -info TAG GROUP  Put all text from TAG paragraphs into info group GROUP
  49. ";
  50. #
  51. # Code marked @@ needs fixing.
  52. # Code marked @# is an improvisation
  53. # Code marked HEURISTIC is not exact.
  54. #
  55. # COPYRIGHT
  56. #
  57. # Copyright 1992 by Convex Computer Corporation, Richardson, Texas.
  58. #
  59. #                        All Rights Reserved
  60. #
  61. # Permission to use, copy, modify, and distribute this software and its 
  62. # documentation for any purpose and without fee is hereby granted, 
  63. # provided that the above copyright notice appear in all copies and that
  64. # both that copyright notice and this permission notice appear in 
  65. # supporting documentation, and that the name Convex not be
  66. # used in advertising or publicity pertaining to distribution of the
  67. # software without specific, written prior permission.  
  68. # 
  69. # CONVEX DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
  70. # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
  71. # CONVEX BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
  72. # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  73. # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
  74. # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  75. # SOFTWARE.
  76. #
  77. # BUGS
  78. #
  79. # @#Footnote paragraph formats not right
  80. # @#should convert page margins (frame BRect->margr etc.)
  81. # @#No way to make TOC entries
  82. # @#master pages
  83. # @# Not all document, section, or table properties are converted.
  84. # @#Hard problems: reference page items
  85. #   Maybe use command line options for those.
  86. # @# LineSpacing doesn't translate
  87. #
  88. # IDEAS
  89. # absolute positioned object: frame brect etc.
  90. #
  91.  
  92. #########
  93. #
  94. # main
  95. #
  96.  
  97. local($Debug,
  98.       # 
  99.       # %TagGroup maps MIF paragraph tags to RTF info groups
  100.       # %RTFInfo holds the text of the RTF info groups
  101.       # so that after &convert_pages(),
  102.       # $RTFInfo{$TagGroup{pgftag}} contains all text tagged pgftag
  103.       # 
  104.       # @@ idea: extend this to character tags
  105.       # 
  106.       %TagGroup
  107.       );
  108. @@ARGV = &parse_args(@ARGV);
  109.  
  110.  
  111. local(%State,
  112.       # 
  113.       # %State maps MIF and RTF codes to their current settings
  114.       # 
  115.       %CharacterConversions
  116.       );
  117. &initialize_state();
  118.  
  119. local($Document,
  120.       # $Document is the RTF code to get from the default
  121.       # document format to what's in %State
  122.       # NOTE: some MIF document attrs are RTF Section attrs
  123.       # ASSUME: MIF document defaults are RTF defaults
  124.  
  125.       %Typeface, $Typeface,
  126.       # %Typeface maps FFamilys to RTF font numbers
  127.  
  128.       %Tag, $Tag,
  129.       # %Tag maps PgfTags to RTF style numbers
  130.  
  131.       %PgfCatalog, %FontCatalog,
  132.  
  133.       @BodyPage,
  134.       %TextRect, %TextFlow,
  135.       %AFrame,
  136.       %Tbl
  137.       );
  138.  
  139. $Document = "\\ftnbj "; # This is the default in Frame, but not in Word.
  140.  
  141. local($PageType, $TextRectID, $ID, $TblID,
  142.       $XRefName, $VaraibleName);
  143.  
  144. &read_whole_file
  145.      ('DPageSize', '$Document. = &change_dims($data, "paperw", "paperh")',
  146.       'DStartPage', '$Document .= &change_attr("pgnstarts", $data)',
  147.       'DPageNumStyle', '$Document .= &select_attr($data, "PageNumStyle",
  148.                       "Arabic", "pgndec",
  149.                      "UCRoman", "pgnucrm",
  150.                      "LCRoman", "pgnlcrm",
  151.                      "UCALpha", "pgnucltr",
  152.                      "LCAlpha", "pgnlcltr")',
  153.       'DTwoSides', '$Document .= &change_attr("facingp", 1)',
  154.       'DFNoteRestart', '$Document .= &select_attr($data, "FNoteRestart",
  155.                      "PerPage", "ftnrestart")',
  156.       'DFNoteStartNum', '$Document .= &change_attr("fntstart", $data)',
  157.       'DAutoChBars', '$Document .= &change_attr("revisions", 1)',
  158.       
  159.       'FFamily', '&intern(*Typeface, $data)',
  160.       'PgfTag', '&intern(*Tag, $data)',
  161.       
  162.       'PgfCatalog', '&convert_paragraph_catalog($here)',
  163.       'FontCatalog', '&convert_character_catalog($here)',
  164.       
  165.       'PageType', '$PageType = $data',
  166.       'Page', 'push(@BodyPage, $here) if $PageType eq "BodyPage"',
  167.  
  168.       'TextRectID',
  169.       '$TextRectID ? &debug("Extra TextRect: $data") : ($TextRectID = $data)',
  170.  
  171.       'TextFlow', '@TextRect{$TextRectID} = $here;
  172.                    &debug("flow", %TextRect); $TextRectID = ""',
  173.  
  174.       'Frame', '$AFrame{&data_search($here, "ID", 1)} = $here',
  175.  
  176.       'TblID', '$TblID = $data',
  177.       'Tbl', '$Tbl{$TblID} = $here',
  178.  
  179.       'XRefName', '$XRefName = &convert_string($data)',
  180.       'XRefDef', '$Definition{"XRef", $XRefName} = $data',
  181.       
  182.       'VarialbeName', '$VariableName = &convert_string($data)',
  183.       'VariableDef', '$Definition{"Variable", $VariableName} = $data'
  184.       );
  185.  
  186. print STDOUT &rtf_begin_doc;
  187. print STDOUT &rtf_font_table(%Typeface);
  188. print STDOUT &rtf_color_table(('0 0 0 Black', # These are Frame's colors
  189.                    '1 1 1 White',
  190.                    '1 0 0 Red',
  191.                    '0 1 0 Green',
  192.                    '0 0 1 Blue',
  193.                    '0 1 1 Cyan',
  194.                    '1 0 1 Magenta',
  195.                    '1 1 0 Yellow'));
  196.  
  197. print STDOUT $Document, "\n";
  198.  
  199. #&debug("body pages: ", @BodyPage);
  200.  
  201. local(@Document);
  202.  
  203. foreach $page (@BodyPage){
  204. #    &debug("converting page:\n", &expand_mif_statement($page));
  205.     push(@Document, &convert_frame($page));
  206. }
  207.  
  208. if(!defined($StyleSheet) || $StyleSheet) {
  209.     print STDOUT &rtf_style_sheet(%Tag);
  210. }
  211. print STDOUT &rtf_info(%RTFInfo);
  212. print STDOUT @Document;
  213. print STDOUT &rtf_end_doc;
  214.  
  215. print STDERR "\n"; # after all the .....'s
  216.  
  217. ######
  218.  
  219. sub parse_args{
  220.     # 
  221.     # USE : @ARGV = &parse_args(@ARGV);
  222.     # SETS: $Debug, %TagGroup
  223.     #
  224.     local(@files);
  225.  
  226.     while($_ = shift){
  227.         if(/^-d/){
  228.             $Debug = 'debug';
  229.         }
  230.     elsif(/^-info/){
  231.         $TagGroup{shift} = shift;
  232.     }
  233.     elsif(/^-nostyles/){
  234.         $StyleSheet = 0;
  235.         }else{
  236.             push(@files, $_);
  237.         }
  238.     }
  239.     @files;
  240. }
  241.  
  242. #
  243. #
  244. ##########
  245.  
  246.  
  247. ##########
  248. #
  249. # Mif Parsing Routines
  250. #
  251. # I've finally found a perl representation of a mif file that I'm happy with.
  252. # It's pretty memory intensive and not real zippy, but that's the nature
  253. # of the beast with MIF.
  254. # 
  255. sub read_whole_file{
  256.     local(%Callbacks) = @_;
  257.     # global(@Parts);
  258.     @Parts = (0); # put one element in it so there's no statement 0.
  259.  
  260.     1 while(&read_mif_statement());
  261. }
  262.  
  263.  
  264.  
  265. sub read_mif_statement{
  266.     # 
  267.     # Returns an index in @Parts so that
  268.     # $Parts[$index] is the statement type
  269.     # and @Parts[$index+1, $index+2, ...] are the parts of the statement.
  270.     # For compound statement, @Parts[$index, ...]  looks like
  271.     # ('<', token, index1, index2, index3, ...)
  272.     # where indexN are the substatements
  273.     # 
  274.     # for each statment, $Callbacks{$token} is evaluated
  275.     #   with $token, $data, and $here set
  276.     #
  277.  
  278.     local($_, $type, $token, $data, @parts, $here, $line);
  279.     # global(@Parts);
  280.  
  281.     while(<>){
  282.     $line = $.;
  283.     $type = '<>', $token = $1, $data = $2, last
  284.         if /^\s*<(\w+)\s+(.*\S)?\s*>/;
  285.     $type = '<', $token = $1, last
  286.         if /^\s*<(\w+)/;
  287.     return 0 if /^\s*>/;
  288.     $type = '=', $token = $1, $data = &read_mif_inset(), last
  289.         if /^=(\w+)/;
  290.     }
  291.     return 0 unless $type;
  292.  
  293.     local($callback);
  294.     if($type eq '<>' || $type eq '='){
  295.     $here = $#Parts+1;
  296.     push (@Parts, $type, $token, $data);
  297.     eval $callback if $callback = $Callbacks{$token};
  298.     die "$@ $callback" if $@;
  299.     }else{
  300.     while($_ = &read_mif_statement()){
  301.         push(@parts, $_);
  302.     }
  303.     $here = $#Parts+1;
  304.     push(@Parts, '<', $token, @parts);
  305.     eval $callback if $callback = $Callbacks{$token};
  306.         die "$@ $callback" if $@;
  307.     }
  308.  
  309.     $Lines{$here} = $line; # for debugging purposes
  310.     $here;
  311. }
  312.  
  313. sub read_mif_inset{
  314.     # Read until a line starts with "=EndInset"
  315.     # and return all the lines concatenated
  316.     local($inset);
  317.     while(<>){
  318.     $inset .= $_;
  319.     last if /^=EndInset/;
  320.     }
  321.     $inset;
  322. }
  323.  
  324.  
  325. sub new_statement{
  326.     local($s) =    $#Parts + 1;
  327.     push(@Parts, @_);
  328.     return $s;
  329. }
  330.  
  331. sub type{
  332.     $Parts[$_[0]];
  333. }
  334.  
  335. sub token{
  336.     $Parts[$_[0]+1];
  337. }
  338.  
  339. sub data{
  340.     $Parts[$_[0]+2];
  341. }
  342.  
  343. sub parts{
  344.     local($i) = @_;
  345.     if(&type($_[0]) eq '<'){
  346.     local($s) = $i+2;
  347.     for(; $Parts[$s] > 0; $s++){
  348.     }
  349.     return @Parts[$i+2 .. $s-1];
  350.     }else{
  351.     return @Parts[$i+2]; #data
  352.     }
  353. }
  354.  
  355. sub do_statement{
  356.     # global(@Parts);
  357.     local($__s, %__callbacks) = @_;
  358.     local($here, $__cb);
  359.  
  360.     foreach $here (&parts($__s)){
  361.     local($token) = &token($here);
  362.     local($data) = &data($here);
  363.  
  364.     eval $__cb if $__cb = $__callbacks{$token};
  365.     warn "Error executing: $__cb \n-->$@" if $@;
  366.     warn "IGNORED: $token line:", $Lines{$here}
  367.         if (&type($here) ne '<>') && !$__cb;
  368.  
  369.     &assert('$token =~ /\w+/');
  370.     }
  371. }
  372.  
  373.  
  374. sub expand_mif_statement{
  375.     # global(@Parts);
  376.     local($i, $leader) = @_;
  377.     local($_) = &type($i);
  378.  
  379.     if($_ eq '<>'){
  380.     return (sprintf("%s<%s %s>\n", $leader, @Parts[$i+1, $i+2]));
  381.     }elsif($_ eq '='){
  382.     return (sprintf("=%s\n%s", @Parts[$i+1, $i+2]));
  383.     }elsif($_ eq '<'){
  384.     local(@lines);
  385.     @lines = (sprintf("%s<%s\n", $leader, &token($i)));
  386.     foreach (&parts($i)){
  387.         push (@lines, &expand_mif_statement($_, "  $leader"));
  388.     }
  389.     push(@lines, "$leader>\n");
  390.     return @lines;
  391.     }
  392. }
  393.  
  394.  
  395. sub data_search{
  396.     #
  397.     # use $tag = &data_search($para, 'PgfTag', 2)
  398.     # to search 2 levels of the $para statement,
  399.     # and return the data of the first PgfTag statement found.
  400.     # 
  401.     local($s, $t, $levels) = @_;
  402.     foreach (&parts($s)){
  403.     if(&type($_) eq '<'){
  404.         if($levels>1){
  405.         $s = &data_search($_, $t, $levels-1);
  406.         return $s if $s ne '';
  407.         }
  408.     }else{
  409.         return &data($_) if &token($_) eq $t;
  410.     }
  411.     }
  412.     return '';
  413. }
  414.  
  415. sub token_search{
  416.     #
  417.     # use &token_search($compound_statement, "token", 3)
  418.     # to search the next three levels of hairy_statement for
  419.     # "token" statements.
  420.     # 
  421.     local($s, $t, $levels) = @_;
  422.  
  423.     local(@matches, $_);
  424.  
  425.     foreach (&parts($s)){
  426.     push(@matches, $_) if &token($_) eq $t;
  427.     push(@matches, &token_search($_, $t, $levels-1))
  428.         if &type($_) eq '<' && $levels>1;
  429.     }
  430.     return @matches;
  431. }
  432.  
  433.  
  434. #
  435. #
  436. ########
  437.  
  438. ############
  439. #
  440. # %State manipulation
  441. #
  442.  
  443. sub change_attr{
  444.     local($attr, $val) = @_;
  445.  
  446. #    &debug("change attr: $attr ($State{$attr}) -> [$val]");
  447.     $State{$attr} = $val
  448.     , return "\\$attr$val "
  449.         unless $State{$attr} eq $val;
  450.     '';
  451. }
  452.  
  453. sub change_dims{
  454.     local($dims, @attrs) = @_;
  455.     local($_, $r);
  456.  
  457.     foreach (&rtf_dimensions($dims)){
  458.     local($attr) = shift(@attrs);
  459.     last unless $attr;
  460.     $attr =~ s-/(\d+)-- && ($_ = int($_/$1)); #HACK
  461.     $r .= &change_attr($attr, $_);
  462.     }
  463.     $r;
  464. }
  465.  
  466. sub select_attr{
  467.     local($key, $s, %attrs) = @_;
  468.  
  469.     if($attrs{$key}){
  470. #    &debug("select attr: '$s=$key' from ", join(",", %attrs)),
  471.     $State{$s} = $attrs{$key}, return "\\$attrs{$key} "
  472.         unless $State{$s} eq $attrs{$key};
  473.     }
  474.     $State{$s} = '';
  475. }
  476.  
  477. #############
  478. #
  479. # conversions
  480. #
  481.  
  482. sub convert_paragraph_catalog{
  483.     local($s) = @_;
  484.     #global(%State, %PgfCatalog);
  485.  
  486.     local($tag);
  487.     &do_statement($s, 'Pgf', '
  488.           $tag = &convert_string(&data_search($here, "PgfTag"));
  489.           $PgfCatalog{"Statement", $tag} = $here;'
  490.           );
  491. }
  492.  
  493. sub convert_character_catalog{
  494.     local($s) = @_;
  495.     #global(%State, %FontCatalog);
  496.  
  497.     local($tag);
  498.     &do_statement($s,'Font', '
  499.           $tag = &convert_string(&data_search($here, "FTag"));
  500.           $FontCatalog{"Statement", $tag} = $here;'
  501.           );
  502. }
  503.  
  504. sub convert_pgf_format{
  505.     local($s) = @_;
  506.     #
  507.     # Returns RTF to change from what's in %State to what's in $s
  508.     # EXCEPT TABS! use ¤t_tabs() to get them.
  509.     # 
  510.  
  511.     local($rtf, $_);
  512.  
  513.     local($lindent) = &data_search($s, 'PgfLIndent');
  514.     local($li);
  515.     if($lindent gt ''){
  516.     ($li) = &rtf_dimensions($lindent);
  517.     $State{'LIndent'}=$lindent;
  518.     }else{
  519.     ($li) = &rtf_dimensions($State{'LIndent'});
  520.     }
  521.  
  522.     local($findent) = &data_search($s, 'PgfFIndent');
  523.     local($fi);
  524.     if($findent gt ''){
  525.     ($fi) = &rtf_dimensions($findent);
  526.     $State{'FIndent'}=$findent;
  527.     }else{
  528.     ($fi) = &rtf_dimensions($State{'FIndent'});
  529.     }
  530.     $rtf .= &change_attr("fi", $fi - $li);
  531.     $rtf .= &change_attr("li", $li);
  532.     &debug("findent: $findent fi: $fi lindent: $findent li: $li");
  533.  
  534.     &do_statement
  535.     ($s,
  536.      'PgfNumberFont', '$State{"NumberFont"} = &convert_string($data)',
  537.      'PgfNumFormat', '$State{"NumFormat"} = &convert_string($data)',
  538.      'PgfNextTag',
  539.      '$rtf .= &change_attr("snext", &intern(*Tag, $data))',
  540.      'PgfNumTabs', 'undef($State{"TabStops"})',
  541.      'TabStop', '&TabStop($here)',
  542.      'PgfAlignment', '$rtf .= &select_attr($data, "Alignment",
  543.                     "Left", "ql",
  544.                     "Center", "qc",
  545.                     "Right", "qr",
  546.                     "LeftRight", "qj")',
  547.      # RTF & MIF are different about tabs and first indents
  548.      'PgfRIndent', '$rtf .= &change_dims($data, "ri")',
  549.  
  550.      'PgfTopSeparator',
  551.      '$rtf .= &change_attr("brdrt", 1) if $data ne "`\'"', #@#
  552.      'PgfBotSeparator',
  553.      '$rtf .= &change_attr("brdrb", 1) if $data ne "`\'"', #@#
  554.  
  555.      'PgfPlacement', '$rtf .= &select_attr($data, "Placement",
  556.                     "ColumnTop", "pagebb", #@#
  557.                     "PageTop", "pagebb",
  558.                     "LPageTop", "pagebb", #@#
  559.                     "RPageTop", "pagebb")', #@#
  560.      'PgfSpBefore', '$rtf .= &change_dims($data, "sb")',
  561.      'PgfSpAfter', '$rtf .= &change_dims($data, "sa")',
  562.      
  563.      #@# withprev
  564.      'PgfWithNext', '$rtf .= &select_attr($data, "WithNext",
  565.                       "Yes", "keepn", "No", "keepn0")',
  566.      'PgfBlockSize', '$rtf .= &change_attr("keep", 1) unless $data <2',
  567.      'PgfLeading', '$rtf .= &change_dims($data, "sl")',
  568.      'PgfFont', '$rtf .= &convert_char_format($here)'
  569.      );
  570.  
  571. #    &debug("converted $State{'PgfTag'} -> $rtf");
  572.     $rtf;
  573. }
  574.  
  575. sub TabStop{
  576.     local($s) = @_;
  577.  
  578.     #@# tab alignment ignored!
  579.     $State{'TabStops'} .= " " . &data_search($s, 'TSX');
  580. }
  581.  
  582. sub convert_char_format{
  583.     local($rtf);
  584.     &do_statement
  585.     ($_[0],
  586.      'FFamily', '$State{"Family"} = &convert_string($data);
  587.                      $rtf .= &change_attr("f", &intern(*Typeface, $data))',
  588. #@#     'FVar', 'warn "IGNORED: Variation $data" unless $data =~ /regular/i',
  589.      'FWeight',  '$rtf .= &select_attr(&convert_string($data),"Weight",
  590.                   "Bold", "b", "Regular", "b0")',
  591.      'FAngle', '$rtf .= &select_attr(&convert_string($data), "Angle",
  592.                  "Italic", "i", "Oblique", "i2",
  593.                  "Regular", "i0")',
  594.      'FSize', '$rtf .= &change_dims($data, "fs/10")',
  595.      'FUnderline', '$rtf .= &select_attr($data, "Underline",
  596.                      "Yes", "ul", "No", "ulnone")',
  597.      'FStrike',  '$rtf .= &select_attr($data, "Strike",
  598.                   "Yes", "strike", "No", "strike0")',
  599.      'FSupScript',  '$rtf .= &select_attr($data, "SupScript",
  600.                   "Yes", "up6", "No", "up0")',
  601.      'FSubScript',  '$rtf .= &select_attr($data, "SubScript",
  602.                   "Yes", "dn6", "No", "dn0")',
  603.      'FChangeBar',  '$rtf .= &select_attr($data, "ChangeBar",
  604.                   "Yes", "revised", "No", "revised0")',
  605.      'FOutline',  '$rtf .= &select_attr($data, "Outline",
  606.                   "Yes", "outl", "No", "outl0")',
  607.      'FShadow',  '$rtf .= &select_attr($data, "Shadow",
  608.                   "Yes", "shad", "No", "shad0")',
  609.      'FSeparation',  '$rtf .= &change_attr("cf", $data)'
  610.      );
  611. #    &debug("char format: $rtf");
  612.     $rtf;
  613. }
  614.  
  615. ########
  616.  
  617. sub convert_frame{
  618.     local($s) = @_;
  619. #@@ local(@BRect) = @BRect;
  620.     local(@ret);
  621.  
  622.     &debug("convert frame: $s");
  623.     &do_statement
  624.     ($s,
  625.      'TextRect',     'push(@ret, &convert_textrect($here))',
  626.      'Frame',        'push(@ret, &convert_frame($here))',
  627.      'ImportObject', 'push(@ret, &convert_picture($here))',
  628.      'BRect', 'push(@ret, &change_dims($data, "posx", "posy", "absw"))',
  629.      'FrameType', 'push(@ret, &select_attr($data, "FrameType",
  630.                     "Inline", "posyil",
  631.                     "Top", "posyt",
  632.                     "Bottom", "posyb",
  633.                     "Left", "posxl",
  634.                     "Right", "posxr",
  635.                     "Near", "posxi",
  636.                     "Far", "posxo"))'
  637.      );
  638.     @ret;
  639. }
  640.  
  641. sub convert_textrect{
  642.     local($tr) = @_;
  643.     local(@ret);
  644.  
  645.     &do_statement
  646.     ($tr,
  647.      'ID',
  648.      'local($_) = $TextRect{$data};
  649.      $_ && !$TextFlow{$_}++ ? push(@ret, &convert_flow($_))
  650.      : &debug("no flow or repeated flow:$data line: ",$Lines{$_});'
  651.      );
  652.     @ret;
  653. }
  654.  
  655. #
  656. # this is one alternative...
  657. #
  658. sub old_convert_textrect{
  659.     local($tr) = @_;
  660.     local($id, @ret);
  661.  
  662.     &debug("convert textrect $tr");
  663.     for($id = &data_search($tr, 'ID', 1); $id;
  664.     $id = &data_search($tr, 'TRNext', 1)){
  665.     local($s) = $TextRect{$id};
  666.     last if $TextRect[$s]++;
  667.     &debug("TextRectID = $id");
  668.     push(@ret, &convert_flow($s));
  669.     }
  670.     @ret;
  671. }
  672.  
  673. sub convert_table{
  674.     local($s) = @_;
  675.     local(@r);
  676.     local($rows) = 'push(@r, &convert_rows($here))';
  677.  
  678.     &do_statement
  679.     ($s,
  680.      'TblTitleContent', 'push(@r, &convert_flow($here))'
  681. #@@ for AVS, we need the table title content, but we captured
  682. #   all the rows as bitmaps.
  683. #@@     'TblH', $rows,
  684. #@@     'TblBody', $rows,
  685. #@@     'TblF', $rows
  686.      );
  687.  
  688.     @r;
  689. }
  690.  
  691. sub convert_rows{
  692.     local($s) = @_;
  693.     local(@r);
  694.  
  695.     &do_statement
  696.     ($s,
  697.      'Row', 'push(@r, "\\\\trowd ", &convert_cells($here), "\\\\row\n")'
  698.      );
  699.     @r;
  700. }
  701.  
  702. sub convert_cells{
  703.     local($s) = @_;
  704.     local(@r);
  705.  
  706.     &do_statement
  707.     ($s,
  708.      'Cell', 'push(@r, &convert_cell($here))'
  709.      );
  710.     @r;
  711. }
  712.  
  713. sub convert_cell{
  714.     local($s) = @_;
  715.     local(@r);
  716.  
  717.     #@@ cell formatting!
  718.     &do_statement
  719.     ($s,
  720.      'CellContent',
  721.      'push(@r, &convert_flow($here, "\\\\intbl "), "\\\\cell")'
  722.      );
  723.     @r;
  724. }
  725.  
  726. sub convert_picture{
  727.     local($s) = @_;
  728.  
  729.     local(@r, $color, $unixpath, $dipath, $epsi, $image, $brect);
  730.  
  731.     &do_statement
  732.     ($s,
  733.      'Separation', '$color = $data',
  734.      'ImportObFile', '$unixpath = $data',
  735.      'ImportObFileDI', '$dipath = $data',
  736.      'EPSI', '$epsi = $data',
  737.      'FrameImage', 'push(@r, "\\\\frameimage\n", $data)',
  738.      'BRect', '$brect = $data'
  739.      );
  740.  
  741.     &debug("picture: color($color) file($unixpath,$dipath) brect($brect)");
  742.  
  743.     if($brect){
  744.     local($l, $t, $h, $w) = &rtf_dimensions($brect);
  745.     unshift(@r, "\\picwGoal$w\\pichGoal$h\n");
  746.     }
  747.  
  748.     undef($unixpath) if $unixpath =~ /internal inset/;
  749.  
  750.     local($path);
  751.     if($dipath){
  752.     local($_) = &convert_string($dipath);
  753.     if(/<U>([^<]+)/){
  754.         $path = $1;
  755.     }else{
  756.         if($unixpath){
  757.         $path = &convert_string($unixpath);
  758.         }else { warn "no path in: $dipath"; }
  759.     }
  760.     }
  761.  
  762.     if($path){
  763.     push(@r, "\\xwdfile $path");
  764.     }
  765.     if($epsi){
  766.     $epsi =~ s/.*&%v\s*&//;
  767.     $epsi =~ s/\n&//g;
  768.     push(@r, "\\epsi\n", $epsi);
  769.     }
  770.  
  771.     @r = ("\\qc{\\pict\n", @r, "}\\par\n"); # put it in a centered paragraph @#
  772.     @r = ("{\\cf$color", @r, "}") if $color;
  773.     @r;
  774. }
  775.  
  776. sub convert_flow{
  777.     local($s, $Container) = @_;
  778.     local(@r, %Notes);
  779.  
  780.     &do_statement
  781.     ($s,
  782.      'Notes', '&save_notes($here)',
  783.      'Para', 'push(@r, &convert_paragraph($here))'
  784.      );
  785.     @r;
  786. }
  787.  
  788. sub save_notes{
  789.     local($s) = @_;
  790.     local($_, $n);
  791.  
  792.     foreach (&parts($s)){
  793.     $n = &data_search($_, 'ID', 1);
  794. #    &debug("note: $n is:", &expand_mif_statement($_));
  795.     $Notes{$n} = $_;
  796.     }
  797. }
  798.  
  799.  
  800. sub convert_paragraph{
  801.     local($s) = @_;
  802.     local(@fmt, @lines, @pre, @post, $HyperGroup);
  803.     # global($PgfTag);
  804.  
  805.     &do_statement($s,
  806.           'PgfTag',
  807.           'push(@fmt, &change_style(&convert_string($data)))',
  808.           'Pgf',
  809.           'push(@fmt, &convert_pgf_format($here))',
  810.           'PgfNumString',
  811.           'push(@lines, &convert_numstring($data))',
  812.           'ParaLine',
  813.           'push(@lines, &convert_paraline($here, *pre, *post), "\n")'
  814.           );
  815.  
  816.     &debug("convert_paragraph: ",$State{'PgfTag'});
  817.     print STDERR '.'; #@# status
  818.  
  819.     push(@lines, $HyperGroup), undef($HyperGroup) if $HyperGroup;
  820.     
  821.     local($group);
  822.     $RTFInfo{$group} .= join('', @lines)."\\par\n" #@#lines is arbitrary
  823.     if $group = $TagGroup{$State{'PgfTag'}};
  824.     &debug(%TagGroup);
  825.     &debug("tag: ", $State{'PgfTag'}, " group: ", $group);
  826.  
  827.     # $Container is, e.g. '\intbl ' (for tables)
  828.     return(@pre, @fmt, $Container, ¤t_tabs(),
  829.        @lines, "\\par ", @post, "\n");
  830. }
  831.  
  832. sub current_tabs{
  833.     local($rtf, $_);
  834.     
  835.     local($li) = &rtf_dimensions($State{'LIndent'});
  836.  
  837.     foreach (&rtf_dimensions($State{'TabStops'})){
  838.     $_ -= $li; #@# MIF to RTF mindset
  839.     $rtf .= "\\tx$_ ";
  840.     }
  841.     $rtf;
  842. }
  843.  
  844. sub convert_numstring{
  845.     local($string) = @_;
  846.     local(%State) = %State; # don't clobber font
  847.     local($numfont) = $State{'NumberFont'};
  848.     local($font) = $numfont ? &change_char_style($numfont) : '';
  849.     local($form) = $State{'NumFormat'};
  850.  
  851.     $string = &convert_string($string, $State{'Family'} ne 'Symbol');
  852.  
  853.     &debug("numstring($string) [font($numfont): $font form: $form]");
  854.     local($tabs) = ¤t_tabs();
  855.     "{\\field{\\fldinst PgfNumFormat $form}{\\fldrslt $font$tabs$string}}";
  856. }
  857.  
  858. sub change_style{
  859.     local($tag) = @_;    
  860.  
  861.     local($style, $_);
  862.  
  863.     if($PgfCatalog{"Style", $tag}){
  864.     &set_paragraph_format($tag);
  865.     $style = $PgfCatalog{"Style", $tag};
  866.     }else{
  867.     local($pgf_fmt) = $PgfCatalog{'Statement', $tag};
  868.     if($pgf_fmt){
  869.         &reset_paragraph_format();
  870.         &reset_character_format();
  871.         $style = &convert_pgf_format($pgf_fmt);
  872.         $PgfCatalog{"Style", $tag} = $style;
  873.         &save_paragraph_format($tag);
  874.     }else{
  875.         warn "No catalog entry for '$tag'";
  876.     }
  877.     }
  878.  
  879.     $State{'PgfTag'} = $tag;
  880.  
  881.     join('', "\\pard\\plain\\s", &intern(*Tag, $tag), " ", $style);
  882. }
  883.  
  884. sub change_char_style{
  885.     local($tag) = @_;    
  886.     local($style, $_);
  887.  
  888.     &reset_character_format();
  889.     $State{'FTag'} = $tag;
  890.  
  891.     local($s) = $FontCatalog{'Statement', $tag};
  892.     $s ? "\\plain" . &convert_char_format($s)
  893.     : '';
  894. }
  895.  
  896. sub convert_paraline{
  897.     local($s, *pre, *post) = @_;
  898.     #@# empty_hyper gets around the: <marker><font>hot-text<font> bug.
  899.     local(@text, $empty_hyper);
  900.  
  901.     &do_statement
  902.     ($s,
  903.      'String',
  904.      'push(@text, &convert_string($data, $State{"Family"} ne "Symbol"));
  905.           $empty_hyper=0;',
  906.      'Char',
  907.      'push(@text, &convert_character($data))',
  908.  
  909.      'ATbl',
  910.      'local(%State) = %State;
  911.           local(@tbl) = &convert_table($Tbl{$data});
  912.           $State{"TblPlacement"} =~ /Top|Left|Right|Near|Far/
  913.             ? push(@pre, "{", @tbl, "}") : push(@post, "{", @tbl, "}")',
  914.  
  915.      'AFrame',
  916.      'local(%State) = %State;
  917.           &debug("converting AFrame $data");
  918.           local(@af) = &convert_frame($AFrame{$data});
  919.           $State{"FrameType"} =~ /Top|Left|Right|Near|Far/
  920.             ? push(@pre, "{", @af, "}") : push(@post, "{", @af, "}")',
  921.  
  922.      'FNote',
  923.      'push(@text, &convert_footnote($Notes{$data}))',
  924.  
  925.      'XRefEnd',
  926.      'push(@text, &convert_xref_end($data))',
  927.  
  928.      #@@ there could be a problem with tagged fonts here:
  929.      # convert_char_format ignores tags. Catalog lookup occurs
  930.      # in its caller (e.g. convert_character_catalog).
  931.      # And this is its caller.
  932.      'Font',
  933.      'push(@text, $HyperGroup), undef($HyperGroup)
  934.         if $HyperGroup && !$empty_hyper;
  935.       push(@text, &convert_char_format($here))',
  936.  
  937.      'Marker',
  938.      'push(@text, &convert_marker($here)); $empty_hyper=1',
  939.  
  940.      'Variable',
  941.      'push(@text, &convert_definition("Variable",
  942.                        &data_search("VariableName", $here)))',
  943.      'XRef',
  944.      'push(@text, &convert_xref($here))'
  945.      );
  946.     @text;
  947. }
  948.  
  949. sub convert_string{
  950. # Change a MIF String datum (without newlines) to a rtf string
  951.   local($_, $do_hex) = @_;
  952.  
  953.   # put backslashes out of band
  954.   s/\\\\/\n\n/g;
  955.  
  956.   # undo MIFisms
  957.   s/^`//;
  958.   s/'.*//;
  959.   s/\\q/'/g;
  960.   s/\\Q/`/g;
  961.   s/\\</</g;
  962.   s/\\>/>/g;
  963.  
  964.   # convert hex stuff
  965.   $do_hex ? s/\\x(\w\w) /$FrameCode[hex($1)]/ge :
  966.       s/\\x(\w\w) /pack('C', hex($1))/ge;
  967.  
  968.   # protect RTFisms
  969.   s/\{/\n\{/;
  970.   s/\}/\n\}/;
  971.   s/\\t/\t/;
  972.   s/\\/\n\n/;
  973.   warn "@@unexpected backslash: $_" if /\\/;
  974.  
  975.   # change backslashes back
  976.   s/\n/\\/g;
  977.   $_;
  978. }
  979.  
  980. sub convert_character{
  981.     local($name) = @_;
  982.     $CharacterConversions{$name};
  983. }
  984.  
  985. sub convert_footnote{
  986.     return ("\\chftn{\\footnote\n", &convert_flow($_[0]), "}");
  987. }
  988.  
  989. sub convert_xref{
  990.     local($s) = @_;
  991.  
  992.     $XRefSrcText = &convert_string(&data_search($s, 'XRefSrcText'));
  993.     $XRefSrcFile = &convert_string(&data_search($s, 'XRefSrcFile'));
  994.  
  995.     return "{\\field{\\fldrslt ";
  996. }
  997.  
  998. sub convert_xref_end{
  999.     return "}{\\fldinst XRefSrcFile=$XRefSrcFile XRefSrcText=$XRefSrcText " .
  1000.     "XRefFormat=" . $Definition{'XRef', $XRefName} . "}}";
  1001. }
  1002.  
  1003. sub convert_definition{
  1004.     local($type, $name) = @_;
  1005.     #@# converts Frame variables literally to RTF
  1006.     return &convert_string($Definition{$type, $name});
  1007. }
  1008.  
  1009. sub convert_other{
  1010.     local($token, $text, $invisible) = @_;
  1011.     local($fldpriv) = $invisible ? '\fldpriv\v' : '';
  1012.     "{\\field$fldpriv{\\fldinst $token}{\\fldrslt $text}}";
  1013. }
  1014.  
  1015. sub convert_marker{
  1016.     local($type) = &data_search($_[0], 'MType', 1);
  1017.     local($text) = &convert_string(&data_search($_[0], 'MText', 1));
  1018.  
  1019.     if($type == 0 || $type == 1){
  1020.     #@@ these actually occur in pairs.
  1021.     return &convert_other('FrameHeaderFooter ' . ($type+1), $text, 1); #@#
  1022.     }elsif($type == 2){
  1023.     return "{\\v{\\xe $text}}"; #@# text needs to be interpreted
  1024.     }elsif($type == 3){
  1025.     $RTFInfo{'comment'} .= "$text\n";
  1026.     }elsif($type == 4){
  1027.     $RTFInfo{'subject'} .= "$text\n";
  1028.     }elsif($type == 5){
  1029.     $RTFInfo{'author'} .= "$text\n";
  1030.     }elsif($type == 6){
  1031.     $RTFInfo{'keywords'} .= "$text\n"; #@# glossary, really
  1032.     }elsif($type == 7){
  1033.     return '{\|}'; #@# equation marker->formula character
  1034.     }elsif($type == 8){
  1035.     $HyperGroup = "}{\\fldinst FrameHypertext $text}}";
  1036.     return "{\\field{\\fldrslt ";
  1037.     }elsif($type == 9){
  1038.     return &convert_other('FrameXRefMarker ', $text, 1); #@#
  1039.     }
  1040.     return &convert_other('FrameMarker ' . ($type+1), $text, 1); #@#
  1041. }
  1042.  
  1043. #
  1044. # Output routines
  1045. #
  1046.  
  1047. sub debug{
  1048.     print STDERR @_, " @$.\n" if $Debug;
  1049. }
  1050.  
  1051. ##############
  1052. #
  1053. #
  1054. sub initialize_state{
  1055.     @FrameCode = 
  1056.     ('',      '',      '',      '',      '\-',    '',      '\_',    '',
  1057.      '\tab',  '\line', "\266",  "\247",  '',      '',      '',      '',
  1058.      " ",     "\240",  " ",     " ",     " ",     "\255",  '',      '',
  1059.      '',      '',      '',      '',      '',      '',      '',      '',
  1060.      ' ',     '!',     '"',     '#',     "\$",    '%',     '&',     "\'",
  1061.      '(',     ')',     '*',     '+',     ',',     '-',     '.',     '/',
  1062.      '0',     '1',     '2',     '3',     '4',     '5',     '6',     '7',
  1063.      '8',     '9',     ':',     ';',     '<',     '=',     '>',     '?',
  1064.      '@',     'A',     'B',     'C',     'D',     'E',     'F',     'G',
  1065.      'H',     'I',     'J',     'K',     'L',     'M',     'N',     'O',
  1066.      'P',     'Q',     'R',     'S',     'T',     'U',     'V',     'W', 
  1067.      'X',     'Y',     'Z',     '[',     "\\",    ']',     '^',     '_',
  1068.      "\`",    'a',     'b',     'c',     'd',     'e',     'f',     'g',
  1069.      'h',     'i',     'j',     'k',     'l',     'm',     'n',     'o',
  1070.      'p',     'q',     'r',     's',     't',     'u',     'v',     'w',
  1071.      'x',     'y',     'z',     '{',     '|',     '}',     '~',     '',
  1072. # 0x80
  1073.      "\304",  "\305",  "\307",  "\311",  "\321",  "\326",  "\334",  "\341",
  1074. # 0x88
  1075.      "\340",  "\342",  "\344",  "\343",  "\345",  "\347",  "\351",  "\350",
  1076. # 0x90
  1077.      "\352",  "\353",  "\355",  "\354",  "\356",  "\357",  "\361",  "\363",
  1078. # 0x98
  1079.      "\362",  "\364",  "\366",  "\365",  "\372",  "\371",  "\373",  "\374",
  1080. # 0xa0
  1081.      "**",    "\260",  "\242",  "\243",  "\247",  "\267",  "\266",  "\337",
  1082. # 0xa8
  1083.      "\256",  "\251",  "(tm)",  "\264",  "\250",  "",      "\306",  "\330",
  1084. # 0xb0
  1085.      "",      "",      "",      "",      "\225",  "",      "",      "",
  1086. # 0xb8
  1087.      "",      "",      "",      "\252",  "\272",  "",      "\346",  "\370",
  1088. # 0xc0
  1089.      "\277",  "\241",  "\254",  "",      "f",     "",      "",      "\253",
  1090. # 0xc8
  1091.      "\273",  "...",   "",      "\300",  "\303",  "\325",  "OE",    "oe",
  1092. # 0xd0
  1093.      "\255",  "--",    "``",    "''",    "`",     "'",     "",      "",
  1094. # 0xd8
  1095.      "\377",  "Y",     "/",     "\244",  "<",     ">",     "fi",    "fl",
  1096. # 0xe0
  1097.      "***",   "\267",  ",",     ",,",    "%.",    "\302",  "\312",  "\301",
  1098. # 0xe8
  1099.      "\313",  "\310",  "\315",  "\316",  "\317",  "\314",  "\323",  "\324",
  1100. # 0xf0
  1101.      "",      "\322",  "\332",  "\333",  "\331",  "i",     "^",     "~",
  1102. # 0xf8
  1103.      "\256",  "\257",  ".",     "\260",  "\270",  "''",    ",");
  1104.  
  1105.     %CharacterConversions =
  1106.     ('Tab', '\tab ',
  1107.      'HardSpace', '\~ ',
  1108.      'SoftHypen', '\_ ', #@#
  1109.      'DiscHypen', '\- ',
  1110.      'Cent', "\242", # from ISO8859-1
  1111.      'Pound', "\243",
  1112.      'Yen', "\245",
  1113.      'EnDash', "\255",
  1114.      'EmDash', '-', #@#
  1115.      'Dagger', '**', #@#
  1116.      'DoubleDagger', '***', #@#
  1117.      'Bullet', "\267",
  1118.      'HardReturn', '\line ',
  1119.      'EndOfPara', "\266",
  1120.      'EndOfFlow', "\247",
  1121.      'NumberSpace', ' ', #@#
  1122.      'ThinSpace', ' ', #@#
  1123.      'EnSpace', ' ',
  1124.      'EmSpace', ' '
  1125.      );
  1126.  
  1127.     local(%doc_defaults) =
  1128.     ('paperw', 12240,
  1129.      'paperh', 15840,
  1130.      'margl', 1800,
  1131.      'margr', 1800,
  1132.      'margt', 1440,
  1133.      'margb', 1440,
  1134.      'facingp', '',
  1135.      'TwoSides', 'No',
  1136.      'gutter', 0,
  1137.      'deftab', 720,
  1138.      'widowctrl', '',
  1139.      'hyphhotz', '',
  1140.      'fntsep', '',
  1141.      'ftnsepc', '',
  1142.      'ftncn', '',
  1143.      'endnotes', 1,
  1144.      'enddoc', 0,
  1145.      'ftntj', 0,
  1146.      'ftnbj', 1,
  1147.      'ftnstart', 1,
  1148.      'pgnstart', 1,
  1149.      'linestart', 1,
  1150.      'landscape', 0,
  1151.      'fracwidth', 0,
  1152.      'nextfile', '',
  1153.      'template', '',
  1154.      'makeback', '',
  1155.      'defformat', '',
  1156.      'revisions', '',
  1157.      'margmirror', '',
  1158.      'revprop', 3,
  1159.      'revbar', 3);
  1160.  
  1161.     local(%para_defaults) =
  1162.     ('snext', '',
  1163.      'sbasedon', '',
  1164.      'pard', '',
  1165.      's', '',
  1166.      'ql', '',
  1167.      'qr', '',
  1168.      'qj', '',
  1169.      'qc', '',
  1170.      'Alignment', 'ql',
  1171.      'LIndent', '0',
  1172.      'FIndent', '',
  1173.      'NumberFont', '',
  1174.      'fi', 0,
  1175.      'li', 0,
  1176.      'ri', 0,
  1177.      'sb', 0,
  1178.      'sa', 0,
  1179.      'sl', '',
  1180.      'intbl', '',
  1181.      'keep', '',
  1182.      'keepn', '',
  1183.      'WithNext', 'keep0',
  1184.      'sbys', '',
  1185.      'pagebb', '',
  1186.      'Placement', 'Anywhere',
  1187.      'noline', '',
  1188.      'TabStops', '',
  1189.      'tx', '',
  1190.      'tqr', '',
  1191.      'tqc', '',
  1192.      'tqdec', '',
  1193.      'tb', '',
  1194.      'brdrt', '',
  1195.      'brdrl', '',
  1196.      'brdrr', '',
  1197.      'box', '',
  1198.      'brdrs', '',
  1199.      'brdrth', '',
  1200.      'brdrsh', '',
  1201.      'brdrdb', '',
  1202.      'brdrdot', '',
  1203.      'brdrhair', '',
  1204.      'brsp', '',
  1205.      'tldot', 1,
  1206.      'tlhyph', '',
  1207.      'tlul', '',
  1208.      'tlth', '');
  1209.  
  1210.     local(%char_defaults) =
  1211.     ('f', '',
  1212.      'Family', '',
  1213.      'b', '',
  1214.      'Weight', 'b0',
  1215.      'i', '',
  1216.      'Angle', 'i0',
  1217.      'strike', '',
  1218.      'Strike', 'strike0',
  1219.      'outl', '',
  1220.      'Outline', 'outl0',
  1221.      'shad', '',
  1222.      'Shadow', 'shad0',
  1223.      'scaps', '',
  1224.      'caps', '',
  1225.      'v', '',
  1226.      'fn', '',
  1227.      'fs', '24',
  1228.      'expnd', 0,
  1229.      'ul', '',
  1230.      'ulw', '',
  1231.      'uld', '',
  1232.      'uldb', '',
  1233.      'ulnone', '',
  1234.      'Underline', 'ulnone',
  1235.      'up', '',
  1236.      'SupScript', 'up0',
  1237.      'dn', '',
  1238.      'SubScript', 'dn0',
  1239.      'revised', '',
  1240.      'ChangeBar', 'revised0',
  1241.      'cf', 0
  1242.      );
  1243.  
  1244.     local($_);
  1245.     @DocumentAttrs = keys(%doc_defaults);
  1246.     foreach (@DocumentAttrs){
  1247.     push(@DocumentDefaults, $doc_defaults{$_});
  1248.     }
  1249.     @State{@DocumentAttrs} = @DocumentDefaults;
  1250.  
  1251.     @ParagraphAttrs = keys(%para_defaults);
  1252.     foreach (@ParagraphAttrs){
  1253.     push(@ParagraphDefaults, $para_defaults{$_});
  1254.     }
  1255.     @State{@ParagraphAttrs} = @ParagraphDefaults;
  1256.  
  1257.     @CharacterAttrs = keys(%char_defaults);
  1258.     foreach (@CharacterAttrs){
  1259.     push(@CharacterDefaults, $char_defaults{$_});
  1260.     }
  1261.     @State{@CharacterAttrs} = @CharacterDefaults;
  1262. }
  1263.  
  1264. sub reset_paragraph_format{
  1265.     @State{@ParagraphAttrs} = @ParagraphDefaults;
  1266.     '';
  1267. }
  1268.  
  1269. sub set_paragraph_format{
  1270.     local($tag) = @_;
  1271.     local($_);
  1272.     &reset_paragraph_format();
  1273.     &reset_character_format();
  1274.     grep($State{$_} = $PgfCatalog{$_, $tag},
  1275.      @ParagraphAttrs, @CharacterAttrs);
  1276. }
  1277.  
  1278. sub save_paragraph_format{
  1279.     local($tag) = @_;
  1280.     local($_);
  1281.     grep($PgfCatalog{$_, $tag} = $State{$_},
  1282.      @ParagraphAttrs, @CharacterAttrs);
  1283. }
  1284.  
  1285. sub reset_character_format{
  1286.     @State{@CharacterAttrs} = @CharacterDefaults;
  1287.     '';
  1288. }
  1289.     
  1290. ###############
  1291. #
  1292. #
  1293.  
  1294. sub rtf_begin_doc{
  1295.     return "{\\rtf1\\ansi\n";
  1296. }
  1297.  
  1298. sub rtf_end_doc{
  1299.     return "}\n";
  1300. }
  1301.  
  1302. sub rtf_info{
  1303.     local(%groups) = @_;
  1304.     local(@r, $_);
  1305.  
  1306.     push(@r, "{\\info\n");
  1307.     foreach (keys %groups){
  1308.     push(@r, "{\\$_ ", $groups{$_}, "}\n");
  1309.     }
  1310.     push(@r, "}\n");
  1311.     return @r;
  1312. }
  1313.  
  1314. sub intern{
  1315.     local(*arr, $_) = @_;
  1316.     s/^\`//;
  1317.     s/\'.*//;
  1318.     $arr{$_} || ($arr{$_} = ++$arr);
  1319. #    $_ = $arr{$_} || ($arr{$_} = ++$arr);
  1320. #    &debug("intern: $_[1] -> $_");
  1321. #    $_;
  1322. }
  1323.  
  1324. sub rtf_font_table{
  1325.     #
  1326.     # HEURISTIC: uses \fnil for unrecognized fonts.
  1327.     # recognizes all FrameMaker 2.1 fonts
  1328.     #
  1329.     local(%fonts) = @_;
  1330.     local(@r);
  1331.  
  1332.     local($n, $family, $_);
  1333.     foreach (keys %fonts){
  1334.     $family = 'nil';
  1335.     $n = $fonts{$_};
  1336.     $family = 'roman' if /serif/ || /times/i || /palatino/i
  1337.         || /bookman/i || /newcenturysch/;
  1338.     $family = 'swiss' if /sans/ || /helvetica/i || /avantgarde/i;
  1339.     $family = 'modern' if /courier/i;
  1340.     $family = 'script' if /cursive/i;
  1341.     $family = 'decor' if /zapfchancery/i;
  1342.     $family = 'tech' if /symbol/i;
  1343.  
  1344.     push(@r, "{\\f$n\\f$family $_;}\n");
  1345.     }
  1346.     return("{\\fonttbl\n", @r, "}\n");
  1347. }
  1348.  
  1349.  
  1350. sub rtf_style_sheet{
  1351.     local(%styles) = @_;
  1352.     local(@r);
  1353.  
  1354.     local($n, $style, $_);
  1355.     foreach (keys %styles){
  1356.     $n = &intern(*Tag, $_);
  1357.     #@# all styles mentioned in the document will appear in the
  1358.     # stylesheet, but only styles used in the document will be defined!
  1359.     $style = $PgfCatalog{'Style', $_};
  1360.     push(@r, "{\\s$n $style$_;}\n");
  1361.     }
  1362.     return("{\\stylesheet\n", @r, "}\n");
  1363. }
  1364.  
  1365.  
  1366. sub rtf_color_table{
  1367.     local(@colors) = @_;
  1368.  
  1369.     local($red, $green, $blue, $_);
  1370.     foreach (@colors){
  1371.     ($red, $green, $blue) = split(/\s+/, $_);
  1372.     $red = 255 * $red;
  1373.     $green = 255 * $green;
  1374.     $blue = 255 * $blue;
  1375.     push(@r, "\\red$red\\green$green\\blue$blue;\n");
  1376.     }
  1377.     return("{\\colortbl\n", @r, "}\n");
  1378. }
  1379.  
  1380. sub rtf_dimensions{
  1381.   local($_, $twips) = @_;
  1382.   local(@trect);
  1383. #
  1384. # convert all dimensions to twips
  1385. # didot@@ cicero@@
  1386. #
  1387.   while($_){
  1388.     if( s/\s*(-?\d+(\.\d*)?)\s*//){
  1389.       $twips = $1 * 1440;
  1390.     }else{
  1391.       warn "@@Bad dimensions: $_\n";
  1392.       return ();
  1393.     }
  1394.     s/"//;
  1395.     s/in//;
  1396.     s/pt// && ($twips = $twips/72);
  1397.     s-cm-- && ($twips = $twips/2.54);
  1398.     s-mm-- && ($twips = $twips/25.4);
  1399.     push (@trect, int($twips));
  1400.   }
  1401.   @trect;
  1402. }
  1403.  
  1404.  
  1405. ##############
  1406. #
  1407. # tchrists' assert stuff
  1408. #
  1409.  
  1410. sub assert {
  1411.     &panic("ASSERTION BOTCHED: $_[0]",$@) unless eval $_[0];
  1412. } 
  1413.  
  1414. sub panic {
  1415.  
  1416.     select(STDERR);
  1417.  
  1418.  
  1419.     print "\npanic: @_";
  1420.  
  1421.     exit 1 if $] <= 4.003;  # caller broken
  1422.  
  1423.     # stack traceback stolen from perl debugger
  1424.  
  1425.     local($i,$_);
  1426.     local($p,$f,$l,$s,$h,$a,@a,@sub);
  1427.     for ($i = 1; ($p,$f,$l,$s,$h,$w) = caller($i); $i++) {
  1428.     @a = @DB'args;
  1429.     for (@a) {
  1430.         if (/^StB\000/ && length($_) == length($_main{'_main'})) {
  1431.         $_ = sprintf("%s",$_);
  1432.         }
  1433.         else {
  1434.         s/'/\\'/g;
  1435.         s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
  1436.         s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
  1437.         s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
  1438.         }
  1439.     }
  1440.     $w = $w ? '@ = ' : '$ = ';
  1441.     $a = $h ? '(' . join(', ', @a) . ')' : '';
  1442.     push(@sub, "$w&$s$a from file $f line $l\n");
  1443.     last if $signal;
  1444.     }
  1445.     for ($i=0; $i <= $#sub; $i++) {
  1446.     last if $signal;
  1447.     print $sub[$i];
  1448.     }
  1449.     kill 'TERM', -$Start_Pid;
  1450.     exit 1;
  1451. } 
  1452. @//E*O*F mif2rtf.pl//
  1453. chmod u=rwx,g=rx,o=rx mif2rtf.pl
  1454.  
  1455. exit 0
  1456.  
  1457.