",
X OD->FootNum,OD->FootNum++);
X AppendText(FootRef);
X }
X break;
X case rtfHeader:
X RTFSkipGroup ();
X break;
X case rtfHeaderLeft:
X RTFSkipGroup ();
X break;
X case rtfHeaderRight:
X RTFSkipGroup ();
X break;
X case rtfHeaderFirst:
X RTFSkipGroup ();
X break;
X case rtfFooter:
X RTFSkipGroup ();
X break;
X case rtfFooterLeft:
X RTFSkipGroup ();
X break;
X case rtfFooterRight:
X RTFSkipGroup ();
X break;
X case rtfFooterFirst:
X RTFSkipGroup ();
X break;
X case rtfFNSep:
X break;
X case rtfFNContSep:
X RTFSkipGroup ();
X break;
X case rtfFNContNotice:
X RTFSkipGroup ();
X break;
X case rtfInfo:
X break;
X case rtfStyleSheet:
X /* will never occur because of default destination reader */
X break;
X case rtfFontTbl:
X /* will never occur because of default destination reader */
X break;
X case rtfColorTbl:
X /* will never occur because of default destination reader */
X break;
X case rtfField:
X break;
X case rtfFieldInst:
X break;
X case rtfFieldResult:
X break;
X case rtfIndex:
X break;
X case rtfIndexBold:
X break;
X case rtfIndexItalic:
X break;
X case rtfIndexText:
X break;
X case rtfIndexRange:
X RTFSkipGroup ();
X break;
X case rtfTOC:
X break;
X case rtfBookmarkStart:
X break;
X case rtfBookmarkEnd:
X break;
X case rtfITitle:
X /* change the destination to the title string */
X RTFSetClassCallback (rtfText, SaveText);
X OD=&Title;
X break;
X case rtfISubject:
X RTFSkipGroup ();
X break;
X case rtfIAuthor:
X RTFSkipGroup ();
X break;
X case rtfIOperator:
X RTFSkipGroup ();
X break;
X case rtfIKeywords:
X RTFSkipGroup ();
X break;
X case rtfIComment:
X RTFSkipGroup ();
X break;
X case rtfIVersion:
X RTFSkipGroup ();
X break;
X case rtfIDoccomm:
X RTFSkipGroup ();
X break;
X case rtfObject:
X break;
X case rtfObjData:
X RTFSkipGroup ();
X break;
X case rtfObjClass:
X RTFSkipGroup ();
X break;
X case rtfObjName:
X RTFSkipGroup ();
X break;
X case rtfObjResult:
X break;
X }
X}
X
X
Xstatic void SpecialChar ()
X{
X switch (rtfMinor)
X {
X case rtfCurHeadPage:
X break;
X case rtfCurFNote:
X break;
X case rtfCurHeadPict:
X break;
X case rtfCurHeadDate:
X break;
X case rtfCurHeadTime:
X break;
X case rtfFormula:
X break;
X case rtfNoBrkSpace:
X rtfMajor=' ';
X (RTFGetClassCallback(rtfText))();
X break;
X case rtfNoReqHyphen:
X break;
X case rtfNoBrkHyphen:
X rtfMajor='-';
X (RTFGetClassCallback(rtfText))();
X case rtfRow:
X fputs("\n",File1.outfile);
X break;
X case rtfSect:
X case rtfPage:
X case rtfLine:
X case rtfPar:
X if(debug)printf("Par,t=%d,s=%d\n",HS[ParStyle].ParProcess,OD->ParState);
X if(RTFGetClassCallback(rtfText)==SaveText){
X AppendText("");
X } else {
X if(HS[ParStyle].ParProcess==ParNormal){
X PutStr (HS[ParStyle].Col1Mark);
X } else {
X if(HS[ParStyle].ParProcess==ParNoCol1&
X OD->ParState==PSInCol1){
X /* list entry with only deleted text? */
X LostText[numlost]='\0';
X fprintf(stderr,
X "Warning - A list element contained only a leader and was deleted:\n \"%s\"\n",LostText);
X }
X OD->ParState=PSAtCol1;
X numlost=0;
X }
X }
X break;
X case rtfBullet:
X rtfMajor='*';
X (RTFGetClassCallback(rtfText))();
X break;
X case rtfTab:
X case rtfCell:
X if(debug)printf("Tab,t=%d,s=%d\n",HS[ParStyle].ParProcess,OD->ParState);
X if(RTFGetClassCallback(rtfText)==SaveText){
X AppendText("\t");
X } else {
X if(HS[ParStyle].ParProcess==ParTab2Par){
X OD->ParState=PSAtCol1;
X } else if(HS[ParStyle].ParProcess==ParNormal|
X OD->ParState>PSAtCol2){
X PutStr ("\t");
X } else {
X OD->ParState=PSAtCol2;
X }
X }
X break;
X case rtfCurAnnot:
X break;
X case rtfAnnotation:
X break;
X case rtfAnnotID:
X break;
X case rtfCurAnnotRef:
X break;
X case rtfFNoteSep:
X break;
X case rtfFNoteCont:
X break;
X case rtfColumn:
X break;
X case rtfOptDest:
X RTFSkipGroup ();
X break;
X case rtfIIntVersion:
X break;
X case rtfICreateTime:
X break;
X case rtfIRevisionTime:
X break;
X case rtfIPrintTime:
X break;
X case rtfIBackupTime:
X break;
X case rtfIEditTime:
X break;
X case rtfIYear:
X break;
X case rtfIMonth:
X break;
X case rtfIDay:
X break;
X case rtfIHour:
X break;
X case rtfIMinute:
X break;
X case rtfINPages:
X break;
X case rtfINWords:
X break;
X case rtfINChars:
X break;
X case rtfIIntID:
X break;
X }
X}
X
X
Xstatic void DocAttr ()
X{
X switch (rtfMinor)
X {
X case rtfPaperWidth:
X break;
X case rtfPaperHeight:
X break;
X case rtfLeftMargin:
X break;
X case rtfRightMargin:
X break;
X case rtfTopMargin:
X break;
X case rtfBottomMargin:
X break;
X case rtfFacingPage:
X break;
X case rtfGutterWid:
X break;
X case rtfDefTab:
X break;
X case rtfWidowCtrl:
X break;
X case rtfHyphHotZone:
X break;
X case rtfFNoteEndSect:
X break;
X case rtfFNoteEndDoc:
X break;
X case rtfFNoteText:
X break;
X case rtfFNoteBottom:
X break;
X case rtfFNoteStart:
X break;
X case rtfFNoteRestart:
X break;
X case rtfPageStart:
X break;
X case rtfLineStart:
X break;
X case rtfLandscape:
X break;
X case rtfFracWidth:
X break;
X case rtfNextFile:
X break;
X case rtfTemplate:
X break;
X case rtfMakeBackup:
X break;
X case rtfRTFDefault:
X break;
X case rtfRevisions:
X break;
X case rtfMirrorMargin:
X break;
X case rtfRevDisplay:
X break;
X case rtfRevBar:
X break;
X }
X}
X
X
Xstatic void SectAttr ()
X{
X switch (rtfMinor)
X {
X case rtfSectDef:
X break;
X case rtfNoBreak:
X break;
X case rtfColBreak:
X break;
X case rtfPageBreak:
X break;
X case rtfEvenBreak:
X break;
X case rtfOddBreak:
X break;
X case rtfPageStarts:
X break;
X case rtfPageCont:
X break;
X case rtfPageRestart:
X break;
X case rtfPageDecimal:
X break;
X case rtfPageURoman:
X break;
X case rtfPageLRoman:
X break;
X case rtfPageULetter:
X break;
X case rtfPageLLetter:
X break;
X case rtfPageNumLeft:
X break;
X case rtfPageNumTop:
X break;
X case rtfHeaderY:
X break;
X case rtfFooterY:
X break;
X case rtfLineModulus:
X break;
X case rtfLineDist:
X break;
X case rtfLineStarts:
X break;
X case rtfLineRestart:
X break;
X case rtfLineRestartPg:
X break;
X case rtfLineCont:
X break;
X case rtfTopVAlign:
X break;
X case rtfBottomVAlign:
X break;
X case rtfCenterVAlign:
X break;
X case rtfJustVAlign:
X break;
X case rtfColumns:
X break;
X case rtfColumnSpace:
X break;
X case rtfColumnLine:
X break;
X case rtfENoteHere:
X break;
X case rtfTitleSpecial:
X break;
X }
X}
X
X
Xstatic void TblAttr ()
X{
X switch (rtfMinor)
X {
X case rtfCellBordBottom:
X break;
X case rtfCellBordTop:
X break;
X case rtfCellBordLeft:
X break;
X case rtfCellBordRight:
X break;
X case rtfRowDef:
X break;
X case rtfRowLeft:
X break;
X case rtfRowRight:
X break;
X case rtfRowCenter:
X break;
X case rtfRowGapH:
X break;
X case rtfRowHt:
X break;
X case rtfRowLeftEdge:
X break;
X case rtfCellPos:
X break;
X case rtfMergeRngFirst:
X break;
X case rtfMergePrevious:
X break;
X }
X}
X
Xint parnest=0;
X
Xstatic void ParAttr ()
X{
X RTFStyle *newstyle;
X int i;
X switch (rtfMinor)
X {
X case rtfParDef: /* set the input paragraph stype to null */
X ParStyle=0;
X break;
X case rtfStyleNum:
X /* When we call RTFExpandStyle, ParAttr will get recursively
X called. We only perform processing on the outermost style. */
X if(parnest==0){
X newstyle=RTFGetStyle(rtfParam);
X ParStyle=0;
X for(i=1;HS[i].Name!=NULL;i++){
X if(strcmp(newstyle->rtfSName,HS[i].Name)==0){
X ParStyle=i;
X break;
X }
X }
X parnest++;
X RTFExpandStyle(rtfParam);
X parnest--;
X }
X break;
X case rtfQuadLeft:
X break;
X case rtfQuadRight:
X break;
X case rtfQuadJust:
X break;
X case rtfQuadCenter:
X break;
X case rtfFirstIndent:
X break;
X case rtfLeftIndent:
X break;
X case rtfRightIndent:
X break;
X case rtfSpaceBefore:
X break;
X case rtfSpaceAfter:
X break;
X case rtfSpaceBetween:
X break;
X case rtfInTable:
X break;
X case rtfKeep:
X break;
X case rtfKeepNext:
X break;
X case rtfSideBySide:
X break;
X case rtfPBBefore:
X break;
X case rtfNoLineNum:
X break;
X case rtfTabPos:
X break;
X case rtfTabRight:
X break;
X case rtfTabCenter:
X break;
X case rtfTabDecimal:
X break;
X case rtfTabBar:
X break;
X case rtfBorderTop:
X break;
X case rtfBorderBottom:
X break;
X case rtfBorderLeft:
X break;
X case rtfBorderRight:
X break;
X case rtfBorderBar:
X break;
X case rtfBorderBox:
X break;
X case rtfBorderBetween:
X break;
X case rtfBorderSingle:
X break;
X case rtfBorderThick:
X break;
X case rtfBorderShadow:
X break;
X case rtfBorderDouble:
X break;
X case rtfBorderDot:
X break;
X case rtfBorderHair:
X break;
X case rtfBorderSpace:
X break;
X case rtfLeaderDot:
X break;
X case rtfLeaderHyphen:
X break;
X case rtfLeaderUnder:
X break;
X case rtfLeaderThick:
X break;
X }
X}
X
X
X/*
X Several of the attributes can be turned off with param value
X of zero (e.g., \b vs. \b0).
X*/
X
Xstatic void CharAttr ()
X{
Xint turnOn = (rtfParam != 0);
X
X switch (rtfMinor)
X {
X case rtfPlain:
X textStyle = stylePlain;
X break;
X case rtfBold:
X if(turnOn){
X textStyle |= styleBold;
X } else {
X textStyle &= ~styleBold;
X }
X break;
X case rtfItalic:
X if(turnOn){
X textStyle |= styleItalic;
X } else {
X textStyle &= ~styleItalic;
X }
X break;
X case rtfStrikeThru:
X break;
X case rtfOutline:
X break;
X case rtfShadow:
X break;
X case rtfSmallCaps:
X if(turnOn){
X textStyle |= styleSmallCaps;
X } else {
X textStyle &= ~styleSmallCaps;
X }
X break;
X case rtfAllCaps:
X if(turnOn){
X textStyle |= styleAllCaps;
X } else {
X textStyle &= ~styleAllCaps;
X }
X break;
X case rtfInvisible:
X if(turnOn){ /* Not currently used */
X textStyle |= styleInvisible;
X } else {
X textStyle &= ~styleInvisible;
X }
X break;
X case rtfFontNum:
X break;
X case rtfFontSize:
X break;
X case rtfExpand:
X break;
X case rtfUnderline:
X if(turnOn){
X textStyle |= styleUnderline;
X } else {
X textStyle &= ~styleUnderline;
X }
X break;
X case rtfWUnderline:
X if(turnOn){
X textStyle |= styleUnderline;
X } else {
X textStyle &= ~styleUnderline;
X }
X break;
X case rtfDUnderline:
X if(turnOn){
X if(HotLinks){
X RTFSetClassCallback (rtfText, SaveText);
X OD=&LinkText;
X } else{
X textStyle |= styleUnderline;
X }
X } else {
X textStyle &= ~styleUnderline;
X }
X break;
X case rtfDbUnderline:
X if(turnOn){
X textStyle |= styleUnderline;
X } else {
X textStyle &= ~styleUnderline;
X }
X break;
X case rtfSuperScript:
X break;
X case rtfNoUnderline:
X textStyle &= ~styleUnderline;
X break;
X case rtfSubScript:
X break;
X case rtfRevised:
X break;
X case rtfForeColor:
X break;
X case rtfBackColor:
X break;
X }
X}
X
Xchar zeros[512];
X
Xstatic void PictAttr ()
X{
X switch (rtfMinor)
X {
X case rtfMacQD:
X /* change the destination to a pict file */
X /* If we are already gathering a link, or the -i
X option was specified, change the
X format of the link to IMG. */
X sprintf(filename,"pic%d.pict",++outfuniq);
X if(OD==&LinkText){
X sprintf(LinkText.ptr,
X "![](\"pic%d.%s\")
",outfuniq,PFileExt);
X LinkText.used=strlen(LinkText.ptr);
X } else if(IMG){
X fprintf(OD->outfile,
X "",outfuniq,PFileExt);
X } else {
X fprintf(OD->outfile,
X "Picture %d",outfuniq,PFileExt,
X outfuniq);
X }
X PictFile.outfile=fopen(filename,"w");
X if(PictFile.outfile==NULL){
X fprintf(stderr,"Open of %s Failed\n",filename);
X exit(1);
X }
X fwrite(zeros,512,1,PictFile.outfile);
X RTFSetClassCallback (rtfText, PutHex);
X OD=&PictFile;
X break;
X case rtfWinMetafile:
X break;
X case rtfWinBitmap:
X break;
X case rtfPicWid:
X break;
X case rtfPicHt:
X break;
X case rtfPicGoalWid:
X break;
X case rtfPicGoalHt:
X break;
X case rtfPicScaleX:
X break;
X case rtfPicScaleY:
X break;
X case rtfPicScaled:
X break;
X case rtfPicCropTop:
X break;
X case rtfPicCropBottom:
X break;
X case rtfPicCropLeft:
X break;
X case rtfPicCropRight:
X break;
X case rtfPixelBits:
X break;
X case rtfBitmapPlanes:
X break;
X case rtfBitmapWid:
X break;
X case rtfPicBinary:
X break;
X }
X}
X
X
Xstatic void NeXTGrAttr ()
X{
X switch (rtfMinor)
X {
X case rtfNeXTGWidth:
X break;
X case rtfNeXTGHeight:
X break;
X }
X}
X
X
Xstatic void FieldAttr ()
X{
X switch (rtfMinor)
X {
X case rtfFieldDirty:
X break;
X case rtfFieldEdited:
X break;
X case rtfFieldLocked:
X break;
X case rtfFieldPrivate:
X break;
X }
X}
X
X
Xstatic void TOCAttr ()
X{
X switch (rtfMinor)
X {
X case rtfTOCType:
X break;
X case rtfTOCLevel:
X break;
X }
X}
X
X
Xstatic void PosAttr ()
X{
X switch (rtfMinor)
X {
X case rtfPosX:
X break;
X case rtfPosXCenter:
X break;
X case rtfPosXInside:
X break;
X case rtfPosXLeft:
X break;
X case rtfPosXOutSide:
X break;
X case rtfPosXRight:
X break;
X case rtfPosY:
X break;
X case rtfPosYInline:
X break;
X case rtfPosYTop:
X break;
X case rtfPosYCenter:
X break;
X case rtfPosYBottom:
X break;
X case rtfAbsWid:
X break;
X case rtfTextDistX:
X break;
X case rtfTextDistY:
X break;
X case rtfRPosMargV:
X break;
X case rtfRPosPageV:
X break;
X case rtfRPosMargH:
X break;
X case rtfRPosPageH:
X break;
X case rtfRPosColH:
X break;
X }
X}
X
Xchar twochar[3];
Xint charnum=0;
X
Xstatic void
XPutHex()
X{
X int xval;
X twochar[charnum]=rtfMajor;
X if(++charnum==2){
X sscanf(twochar,"%2x",&xval);
X fputc((char) xval,OD->outfile);
X charnum=0;
X }
X}
X
Xstatic void
XSaveText()
X{
X char *ptr;
X
X if(OD->alloc<=OD->used+1){
X OD->alloc+=DSALLOC;
X ptr=(char *) RTFAlloc(
X (int) sizeof(char )*OD->alloc);
X if(ptr==NULL){
X fprintf(stderr,"Memory Allocation Failed\n");
X exit(1);
X }
X if(OD->ptr!=NULL){
X (void) strcpy(ptr,OD->ptr);
X RTFFree(OD->ptr);
X }
X OD->ptr=ptr;
X }
X OD->ptr[(OD->used)++]=rtfMajor;
X OD->ptr[(OD->used)]='\0';
X}
X
Xstatic void
XAppendText(text)
Xchar * text;
X{
X int need;
X char *ptr;
X
X need=OD->used+1+strlen(text);
X if(OD->alloc<=OD->used+1+strlen(text)){
X OD->alloc+=need>DSALLOC? need : DSALLOC;
X ptr=(char *) RTFAlloc(
X (int) sizeof(char )*OD->alloc);
X if(ptr==NULL){
X fprintf(stderr,"Memory Allocation Failed\n");
X exit(1);
X }
X if(OD->ptr!=NULL){
X (void) strcpy(ptr,OD->ptr);
X RTFFree(OD->ptr);
X }
X OD->ptr=ptr;
X }
X strcpy(&(OD->ptr[(OD->used)]),text);
X OD->used+=strlen(text);
X}
X
X
Xstatic void
XTestStyle()
X{
X/*
X Change the style of the output text to the new style.
X If the style changes, force correct nesting of HTML tags.
X*/
Xint i,j;
X
X /* If we have an active text style and styles are not allowed or
X If the active style in no longer on, then turn it off */
X if(OD->OldTextStyle &&(!HS[ParStyle].TextStyleAllowed ||
X !(OD->OldTextStyle&textStyle))){
X if(OD->OldTextStyle&styleBold){
X fputs("
tag.
X
XAdded a translation that turns footnotes into hypertext links.
X If the -H option is used, the translator will assume that text
X formatted with a dotted underline is the text of a link. The
X destination of the link is expected to follow as a footnote.
X If you wanted to create a link of the form:
X now is the time for all good men
X
X you would format "good" with a dotted underline. Immediately
X following good, you would insert a footnote of:
X file:fred.html
X This provides a reasonable mechanism for inserting hypertext links
X into a document. The RTF version when viewed by Microsoft Word will
X have all of the links at the bottom of the page or end of the document
X depending on your preferences.
X
X
X
XThis distribution contains source and documentation for rtftohtml - a simple
XRTF to HTML translation tool. To build this you will also need an RTF
Xreader which is available at ftp.primate.wisc.edu/pub/RTF.
XThis tool was based on release 7 of the RTF reader.
X
XTo build this tool.
X1) Obtain the RTF reader and place the files in this directory.
X2) Look at the RTF reader distribution and set up it's makefile
X for your machine.
X3) Edit Makefile.html for your machines configuration
X4) type make -f Makefile.html
X
X
X
Xrtfhtml -RTF to HTML translator
X Initial Implementation by Chris Hector (cjh@cray.com)
X
X This translator was based on rtfskel.
X Kudos to Paul DuBois for his work in developing the
X rtf reader and skeleton code.
X
X In this translator we will capture all of the text of an RTF file
X and then use the paragraph style (heading 1, Normal,...), text
X style (Bold, Italic) and the destination (header, footnote,
X title) to choose appropriate HTML markup. In addition to
X capturing text, pictures (Macintosh PICT format) will be captured
X and each will be generated into it's own file.
X
X Most of the transformations are straightforward. The list
X transformations (