home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / DCLAP 4j / Drtf / DHTMLHandler.cpp < prev    next >
Encoding:
Text File  |  1995-12-17  |  39.6 KB  |  1,634 lines  |  [TEXT/R*ch]
  1. // DHTMLHandler.cpp
  2. // d.g.gilbert
  3.  
  4.  
  5. #include "Dvibrant.h"
  6. #include "DFile.h"
  7. #include "DRichProcess.h"
  8. #include "DRichViewNu.h"
  9. #include "DHTMLHandler.h"
  10. #include "DHTMLprocess.h"
  11. #include "rtfchars.h" 
  12.  
  13.  
  14.     
  15. class DHTMLsetup  
  16. {
  17. public:
  18.     DHTMLsetup();
  19. };
  20.  
  21. static DHTMLsetup* gHTMLsetup = NULL;
  22. #if 0
  23. static DHTMLsetup theSetup; // construct it now !
  24. #endif
  25.  
  26. DHTMLsetup::DHTMLsetup()
  27. {
  28.     DHTMLprocess::InitKeys(); 
  29.     //ReadOutputMap("gen", gGenCharMap);
  30.   //gOutMap= gGenCharMap;
  31.     ////
  32.     //DRichprocess::gGenCharMap= DRichprocess::ReadOutputMap("gen");
  33.     //DRichprocess::gSymCharMap= DRichprocess::ReadOutputMap("sym");
  34.     gHTMLsetup = this;
  35. }
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42. //class  DHTMLHandler
  43.  
  44.  
  45. char* DHTMLHandler::IsRich(char* buf, ulong buflen)
  46. {
  47. // HTML doesn't have a fixed magic string -- usage is variable
  48. // some diagnostic strings (all case-insensitive)
  49. // </a> </head>
  50. // <html>  <head>  <body>  <title> 
  51. // uncertain: </ <a
  52. //    href=
  53.  
  54.     char* cp, *atbuf= buf;
  55.     if (buflen==0) buflen= StrLen(buf);
  56.     ulong len = buflen;
  57.     while (len>3) {
  58.         cp= (char*) MemChr(atbuf,'<',len);
  59.         if (cp) {
  60.             if (cp[1] == '/' && (cp[2] == 'a' || cp[2] == 'A') && cp[3] == '>') 
  61.                 return buf;
  62.             else if (!StrNICmp( cp, "<html>", 6)) return buf;
  63.             else if (!StrNICmp( cp, "<head>", 6)) return buf;
  64.             else if (!StrNICmp( cp, "<title>", 7)) return buf;
  65.             else if (!StrNICmp( cp, "<p>", 3)) return buf;   // ?? weak test but need
  66.             else if (!StrNICmp( cp, "<a href=", 9)) return buf;
  67.             //if (!StrNICmp( cp, "<a ", 3)) {  
  68.             //  unsigned long    at;
  69.             //    if (Nlm_StrngPos( cp, "</a>", 3, false, &at)) return true;
  70.             //    }
  71.             cp++;
  72.             len -= (cp - atbuf);
  73.             atbuf = cp;
  74.             }
  75.         else 
  76.             return NULL;    
  77.         }
  78.     return NULL;
  79. }
  80.  
  81.             
  82.  
  83. DHTMLHandler::DHTMLHandler( DRichView* itsDoc, DFile* savefile) :
  84.     DRichHandler( itsDoc, savefile)
  85. {
  86.     fFormatName = "HTML";
  87.     fMinDataToProcess= 128; // no fixed min, need to look at data...
  88.     if (!gHTMLsetup) gHTMLsetup= new DHTMLsetup();
  89. }
  90.  
  91. DHTMLHandler::~DHTMLHandler()
  92. {
  93. }
  94.  
  95.     
  96. DRichprocess* DHTMLHandler::NewProcessor( DFile* itsFile, Nlm_MonitorPtr progress)
  97. {
  98.     fProcessor = new DHTMLprocess( itsFile, fDoc, progress);
  99.     return fProcessor;
  100. }
  101.  
  102.  
  103. Boolean DHTMLHandler::ProcessData( char* cbeg, char* cend, Boolean endOfData, 
  104.                                                 ulong& dataRemaining) 
  105. {
  106.     char  * cp;  
  107.  
  108.     fcsave= 0;    
  109.     fclen= cend - cbeg; // + 1;
  110.     cp= cend; 
  111.     if (!endOfData) {
  112.         if ((fclen==0) || ( fProcessStage == kAtStart && fclen<fMinDataToProcess)) 
  113.             return false;
  114.         // scan for last newline and stop there !!
  115. #if 1 //TEST w/out << NEED THIS for at least some
  116.         while (cp - cbeg > fLastScanto && !(*cp == '\n' || *cp == '\r')) cp--;
  117.         if (cp < cend && (*cp == '\n' || *cp == '\r')) cp++;
  118. #endif
  119.         }
  120.  
  121. #if 1 //TEST w/out << NEED THIS for at least some
  122.     if (cp - cbeg <= fLastScanto) {
  123.         fLastScanto= cend - cbeg;  
  124.         if (!endOfData) return false; // !??! don't process line w/o end
  125.         else cp= cend; 
  126.         }
  127. #endif
  128.  
  129. #if 0 // bad nulls ??
  130.     if (*cp) cp++;
  131.     fcsave= *cp; 
  132.     *cp= 0;
  133. #endif
  134.  
  135.     fclen= cp - cbeg; // + 1; 
  136.     
  137.     if (fclen && fDocFile) {
  138.         if (cbeg[fclen-1] == 0) fclen--;  //?? 
  139.         fDocFile->WriteData( cbeg, fclen);
  140.         }    
  141.         
  142.     return this->ProcessData2( cp, cbeg, cend, endOfData, dataRemaining);
  143. }
  144.  
  145.  
  146.  
  147.  
  148.  
  149. // class DHTMLprocess
  150.  
  151.  
  152.  
  153. //static char        gGenCharMap[rtfSC_MaxChar];
  154. //static char * gOutMap = gGenCharMap;
  155.  
  156. DHTMLprocess::DHTMLprocess( DFile* itsFile, DRichView* itsDoc, Nlm_MonitorPtr progress) :
  157.     DRichprocess( itsFile, itsDoc, progress),
  158.     fStop(0), fTokenLen(0), fListType(0), fListNum(0), fDLStyle(0), fQuote(0),
  159.     fCurControl(0), fCurField(0), fPicLink(0), fAnchorLink(0),
  160.     fURLstore(NULL), fNamestore(NULL), fFormURL(NULL), fGoplusStore(NULL),
  161.     fMethodstore(NULL), fValstore(NULL), fTypestore(NULL), fOptionstore(NULL),
  162.     fPushSize(0), fPushBuf(NULL), fPushBufstore(NULL),
  163.     fInHead(true), fInParam(false), fInForm(false), fInControl(false), fIsMap(false),
  164.     fTurnOn(true), fIsIndex(false), fPreformat(false)
  165. { 
  166.     //fOutMap= DRichprocess::gGenCharMap;
  167. }
  168.  
  169.     
  170. DHTMLprocess::~DHTMLprocess()
  171. {
  172.     MemFree(fURLstore);
  173.     MemFree(fNamestore);
  174.     MemFree(fMethodstore);
  175.     MemFree(fGoplusStore);
  176.     MemFree(fFormURL);
  177.     MemFree(fValstore);
  178.     MemFree(fTypestore);
  179.     MemFree(fOptionstore);
  180.     MemFree(fPushBufstore);
  181. }
  182.  
  183.  
  184. //static
  185. short DHTMLprocess::Hash( char    *s)
  186. {
  187.     char    c;
  188.     short    val = 0;
  189.     while ((c = *s++) != '\0') val += (int) tolower(c);
  190.     return (val);
  191. }
  192.  
  193. //static
  194. void DHTMLprocess::InitKeys()
  195. {
  196.     HTMLKey    *rp;
  197.     
  198.     for (rp = htmlKeys; rp->htmlKStr != NULL; rp++) {
  199.         rp->htmlKHash = Hash(rp->htmlKStr);
  200.         }
  201.     for (rp = htmlAmperChars; rp->htmlKStr != NULL; rp++) {
  202.         rp->htmlKHash = Hash(rp->htmlKStr);
  203.         }
  204. }
  205.  
  206.  
  207. void DHTMLprocess::Lookup( char    *s, HTMLKey* keyset)
  208. {
  209.     HTMLKey    *rp;
  210.     short    hash;
  211.     
  212. #ifdef COMP_BOR  /* ?? dgg */  
  213.     int LIBCALL (*cmp)(const char*,const char*);
  214. #else
  215. #ifdef COMP_SYMC
  216.   int (* LIBCALL cmp)(const char*, const char*);
  217. #else
  218.     int (*cmp)(const char*,const char*);
  219. #endif
  220. #endif
  221.     if (keyset == htmlAmperChars) cmp= Nlm_StringCmp;
  222.     else cmp= Nlm_StringICmp;
  223.     
  224.     fClass = tokUnknown;
  225.     if (*s == 0) return;
  226.     hash = Hash(s);
  227.     for (rp = keyset; rp->htmlKStr != NULL; rp++) {
  228.         if (hash == rp->htmlKHash && cmp(s, rp->htmlKStr) == 0) {
  229.             fClass = tokControl;
  230.             fMajor = rp->htmlKMajor;
  231.             fMinor = rp->htmlKMinor;
  232.             fStop  = rp->htmlKStop;
  233.             return;
  234.         }
  235.     }
  236. }
  237.  
  238.  
  239.  
  240.  
  241. void DHTMLprocess::Pushback(char c) // private
  242. {
  243.     if (c != EOF) {
  244.         fPushedChar = c;
  245.         }
  246. }
  247.  
  248.  
  249.  
  250. enum {
  251.     kGotNone = 0,
  252.     kGotToken,
  253.     kGotParam
  254.     };
  255.     
  256. short DHTMLprocess::GotTokenOrParam() // private
  257. {
  258.     if (fTokenLen>0) { // need to process last token ! 
  259.         fTokenBuf[fTokenLen] = '\0';
  260.         fTokenLen= 0;
  261.         if (fInParam) {
  262.             switch (fCurField) {
  263.             
  264.                 case htmlIsMap:
  265.                     fIsMap= true;
  266.                     break;
  267.                     
  268.                 case htmlAction:
  269.                 case htmlImageSrc:
  270.                 case htmlHref:
  271.                     MemFree(fURLstore);
  272.                     fURLstore= StrDup(fTokenBuf);
  273.                     break;
  274.  
  275.                 case htmlName:
  276.                     MemFree(fNamestore);
  277.                     fNamestore= StrDup(fTokenBuf);
  278.                     break;
  279.   
  280.                 case htmlMethod:
  281.                     MemFree(fMethodstore);
  282.                     fMethodstore= StrDup(fTokenBuf);
  283.                     break;
  284.                 case htmlValue:
  285.                     MemFree(fValstore);
  286.                     fValstore= StrDup(fTokenBuf);
  287.                     break;
  288.                 case htmlType:
  289.                     MemFree(fTypestore);
  290.                     fTypestore= StrDup(fTokenBuf);
  291.                     break;
  292.                 case htmlOption:
  293.                     MemFree(fOptionstore);
  294.                     fOptionstore= StrDup(fTokenBuf);
  295.                     break;
  296.  
  297.                 }
  298.             fInParam= false;
  299.             return kGotParam;
  300.             }
  301.         else {
  302.             Lookup( fTokenBuf, htmlKeys);     // sets class, major, minor 
  303.             return kGotToken;
  304.             }
  305.         }
  306.     else
  307.         return kGotNone;
  308. }
  309.  
  310.  
  311.  
  312. void DHTMLprocess::GetToken1() // private
  313. {
  314.     short    c;
  315.  
  316.     fClass = tokUnknown;   // initialize token vars  
  317.     fParam = tokNoParam;
  318.  
  319.     if (fPushedChar != EOF) {
  320.         c = fPushedChar;
  321.         fPushedChar = EOF;
  322.         }
  323.     else 
  324.         c= GetOneChar();
  325.          
  326.     switch ( c ) {
  327.     
  328.         case EOF:
  329.             fClass = tokEOF;
  330.             fMajor = tokEOF;
  331.             return;
  332.             
  333.         case tokBreakInData:
  334.             fClass= tokEOF;
  335.             fMajor= tokBreakInData;
  336.             return;
  337.                             
  338.         case '>':
  339.             {
  340.             if (!fInControl) goto cHandleText;
  341.             if (GotTokenOrParam() != kGotNone) {
  342.                 Pushback(c);
  343.                 return;
  344.                 }
  345.             fInControl= false;
  346.             fClass = tokControl;
  347.             fMajor = htmlEndControl;
  348.             fMinor = -1;
  349.             return;
  350.             }
  351.             
  352.         case '<':
  353.             if (fQuote == (char)234) { // kInFormText
  354.                 fInControl= false;
  355.                 this->handleLinkAttr( fCurControl);  
  356.                 }
  357.             fInControl= true;
  358.             fTurnOn= true;
  359.             fInParam= false;
  360.             fQuote= 0;
  361.             fCurControl= 0;
  362.             fCurField= 0;
  363.             fTokenLen= 0;
  364.             fPicLink= 0;
  365.             //fAnchorLink= 0;
  366.             fClass = tokDropchar;
  367.             return;
  368.  
  369.         default: 
  370.         
  371.             if (fInControl) {
  372.                     
  373.                 // !! need to deal with complex  options in <Control ... > syntax
  374.                 // e.g. <a href="some.string" name="some.string" etc. > text here </a>
  375.                 // e.g. < IMG SRC ="triangle.gif" ALT="Warning:"> text here...
  376.               // < A HREF="Go">< IMG SRC ="Button"> Press to start</A>
  377.                 
  378.               if ( (fQuote && c != fQuote)  
  379.                   || (fInParam && c != fQuote && c != '"' && c != '\'' && c > ' ') 
  380.                || isalnum(c) ) {
  381.                   // store in token buf until unquoted
  382.                     if (fTokenLen<kMaxTokenBuf) fTokenBuf[fTokenLen++] = c;
  383.                     if (fQuote == (char)234) { // kInFormText
  384.                         goto labelNoControl; // also stuff c into texthandler stream
  385.                         }
  386.                     else
  387.                         fClass = tokDropchar;
  388.                     return; 
  389.                   }
  390.  
  391.                 if (GotTokenOrParam() == kGotToken) {
  392.                   Pushback( c);  // ! need to handle terminator char
  393.                   return;  
  394.                     }
  395.                     
  396.                 if (fQuote && c == fQuote) {
  397.                     // must be sure we handle unquote ! after storing param
  398.                     fQuote = 0;
  399.                     fClass = tokDropchar;
  400.                     return; 
  401.                     }
  402.  
  403.                 switch ( c ) {
  404.                     case '/': fTurnOn= false; break;
  405.                     case '=': fInParam= true; break;
  406.                     case '"':  
  407.                     case '\'': 
  408.                             // ?? these may be good only if (fInParam) ???
  409.                         if (fQuote) fQuote= 0; // end of quote..
  410.                         else fQuote= c; 
  411.                         break;
  412.                     
  413.                     default:
  414.                         //if (isspace(c))  break; 
  415.                         break;
  416.                     }
  417.                     
  418.                 fClass = tokDropchar;
  419.                 return; 
  420.                  }
  421.                  
  422.              else {
  423. labelNoControl:
  424.                  switch ( c ) {
  425.  
  426.                 case '&':
  427.                     //wordat= fTokenBuf+fTokenLen;
  428.                     fTokenLen= 0;
  429.                     do { 
  430.                         c = GetOneChar(); 
  431.                         if (fTokenLen<kMaxTokenBuf) fTokenBuf[fTokenLen++] = c;
  432.                     } while (c > EOF && isalnum(c));
  433.                     fTokenBuf[fTokenLen] = '\0';
  434.                     Lookup( fTokenBuf, htmlAmperChars);     // sets class, major, minor 
  435.                     return;
  436.  
  437.                 case '\t':
  438.                     fClass = tokControl;
  439.                     fMajor = htmlSpecialChar;
  440.                     fMinor = htmlTab;
  441.                     return;
  442.                     
  443.                 case '\r': 
  444.                 case '\n': //NEWLINE:
  445.                     if (fPreformat) {
  446.                         fClass = tokControl;
  447.                         fMajor = htmlSpecialChar;
  448.                         fMinor = htmlNewline;
  449.                         }
  450.                     else if (fTextSize>0) { 
  451.                             // messy fix for that cutesy horizontal bar 
  452.                         if ( fTextSize > 15 && fText[15] == '_'
  453.                               && fText[1] == '_' && fText[fTextSize-2] == '_') {
  454.                             fTextSize= 0;
  455.                             handleSpecialChar( htmlHBar);    
  456.                             fClass = tokDropchar;
  457.                             }
  458.                         else 
  459.                             // put space in, if this isn't new parag
  460.                             goto cHandleSpace;
  461.                         }    
  462.                     else
  463.                         fClass = tokDropchar;
  464.                     return;
  465.                 
  466.                 case ' ':
  467.                 cHandleSpace:
  468.                     if (fPreformat || fLastChar != ' ') {
  469.                         fClass = tokText;
  470.                         fMajor = ' ';
  471.                         fMinor = ' '; // MapChar( c);
  472.                         }
  473.                     else
  474.                         fClass = tokDropchar;
  475.                     return;
  476.                     
  477.                 case '\0':
  478.                     fClass = tokDropchar;
  479.                     return;
  480.                     
  481.                 default:
  482.                 cHandleText:
  483.                     fClass = tokText;
  484.                     fMajor = c;
  485.                     fMinor = c; // MapChar( c);
  486.                     return;
  487.                  }
  488.              }
  489.              }
  490. }
  491.  
  492.  
  493.  
  494.  
  495.  
  496.  
  497.  
  498.  
  499.  
  500. short DHTMLprocess::GetOneChar()
  501. {
  502. #if 1
  503.     if (fPushSize && fPushBuf) {
  504.         short c= (unsigned char) *fPushBuf; // must be unsigned !!
  505.         fPushSize--;
  506.         fPushBuf++;
  507.         return c;
  508.         }
  509.     else
  510.         return DRichprocess::GetOneChar();
  511. #else
  512.     short    c;
  513.  
  514.     if (fDataBuffer) {
  515.         c= (unsigned char) *fDataBuffer; // must be unsigned !!
  516.         if (fDataSize) {    // for counted data
  517.             fDataSize--;
  518.             fDataBuffer++;
  519.             if (!fDataSize) fDataBuffer= NULL; //  so EOF next time
  520.             }
  521.         else if (c) fDataBuffer++; // for null-term data
  522.         else if (!fEndOfData) c= tokBreakInData;
  523.         else c= EOF;
  524.         }
  525.     else if (fDataFile) 
  526.         c = fgetc( fDataFile->fFile);
  527.     else {
  528.         if (!fEndOfData) c= tokBreakInData;
  529.         else c= EOF;
  530.         }
  531.     return (c);
  532. #endif
  533. }
  534.  
  535.  
  536.  
  537.  
  538.  
  539.  
  540.  
  541. void DHTMLprocess::handleTextClass()
  542. {
  543.     if (IsNewStyle()) StoreStyle(fOldStyleRec.style, FALSE);  
  544.     
  545.     if (fMinor != rtfSC_nothing)
  546.         PutStdChar(fMinor); 
  547.     else {
  548.         char    buf[128];
  549.         if (fMajor < 128)    /* in ASCII range */
  550.             sprintf (buf, "[[%c]]", fMajor);
  551.         else
  552.             sprintf (buf, "[[\\'%02x]]", fMajor);
  553.         PutLitStr (buf);
  554.         }
  555.     fLastChar= fMajor;
  556. }
  557.  
  558.  
  559. void DHTMLprocess::handleControlClass()
  560. {
  561.     switch (fMajor) {
  562.         case htmlDocAttr    : handleDocAttr(fMinor); break;
  563.         case htmlLinkAttr    : handleLinkAttr(fMinor); break;
  564.         case htmlCharAttr    : handleCharAttr(fMinor); break;
  565.         case htmlParAttr    : handleParAttr(fMinor); break;
  566.         case htmlListAttr    : handleListAttr(fMinor); break;
  567.         case htmlPictAttr    : handlePictAttr(fMinor); break;
  568.         case htmlSpecialChar: handleSpecialChar(fMinor); break;
  569.         case htmlEndControl: handleEndControl(fMinor); break;
  570.         }
  571. }
  572.  
  573.  
  574. void DHTMLprocess::handleEndControl(short attr)
  575. {
  576.     // e.g, > end of any control
  577.  
  578.     if (fCurControl == htmlForm) {
  579.         // call here AFTER DNetHTMLprocess::handleEndControl
  580.     
  581.         }
  582.     else if (fCurControl == htmlImage) {
  583.         short kind;
  584.         char * dummypict = (char*) MemNew( 1);
  585.         *dummypict= 0;
  586.         if (fAnchorLink) kind= DPictStyle::kPictNetLink;
  587.         else kind= DPictStyle::kPictNetPic;
  588.         DPictStyle* thePic= new DPictStyle( kind, dummypict, 1, true);   
  589.  
  590.         if (!fParaCount) NewParagraph();
  591.         //PutLitCharWithStyle(' ');      
  592.             
  593.         if (fPicLink) {
  594.             Nlm_RecT loc;
  595.             Nlm_LoadRect( &loc, 0, 0, 35, 22); // top is to fetch picture
  596.             thePic->AddLink( DPictStyle::kPictNetPic, fPicLink, loc);
  597.             if (fAnchorLink) {
  598.                 Nlm_LoadRect( &loc, 0, 23, 35, 35); // bottom is to fetch link info
  599.                 thePic->AddLink( DPictStyle::kPictNetLink, fAnchorLink, loc);
  600.                 }
  601.             fPicLink= 0;
  602.             }
  603.             
  604.         fStyleRec.style.ispict= TRUE;
  605.         fStyleRec.style.ismap= fIsMap;
  606.         fStyleRec.style.fPict= thePic;
  607.             // !? in html, is damn url suffix supposed indicate TYPE of data !?
  608.             // or can we assume all these are GIF pictures ?
  609.         
  610.         fStyleRec.style.pixwidth= 35;  
  611.         fStyleRec.style.pixheight= 35;  
  612.         PutLitChar(' ');  
  613.         StoreStyle(fStyleRec.style, TRUE);
  614.  
  615.         fStyleRec.style.fPict= NULL;
  616.         fStyleRec.style.ispict= FALSE;
  617.         fStyleRec.style.ismap= FALSE;
  618.         fStyleRec.style.pixwidth= 0; 
  619.         fStyleRec.style.pixheight= 0; 
  620.                     
  621.         fOldStyleRec= fStyleRec;
  622.         NewStyle(); 
  623.         //PutLitChar(' ');  
  624.         //StoreStyle(fStyleRec.style, TRUE);
  625.         }
  626.  
  627.     fCurControl= 0;
  628.     fCurField= 0;
  629.     fIsMap= false;
  630. }
  631.  
  632.  
  633.  
  634.  
  635.  
  636.  
  637. void DHTMLprocess::handleDocAttr(short attr)
  638. {
  639.     switch (attr) {
  640.     
  641.         case htmlHTML:     
  642.             if (fTurnOn) fCurControl= attr;
  643.             break;
  644.         case htmlHead:    fInHead= fTurnOn; break;
  645.         case htmlBody:  fInHead= false; break;
  646.  
  647.         case htmlTitle:      
  648.             // ! this htmlTitle can occur both in Head and Body/Anchor
  649.             if (fTurnOn) {
  650.             
  651.                 }
  652.             else {
  653.                 if (fInHead && fTextSize) {
  654.                     MemFree(fTitle);  
  655.                     fText[fTextSize]= '\0';
  656.                     fTitle= StrDup( fText); 
  657.                     }
  658.                 }
  659.             break;
  660.             
  661.         case htmlIsIndex: {
  662.             fIsIndex= true;
  663.             MemFree(fPushBufstore);
  664.             fPushBufstore= StrDup(" <A HREF=?>Click here to query</A> ");
  665.             fPushBuf= fPushBufstore;
  666.             fPushSize= StrLen(fPushBuf);
  667.             //MemFree(fURLstore);
  668.             //fURLstore= StrDup("#");
  669.             // entire doc is somehow flagged as a query document, and need
  670.             // some kind of button to send query to server from this doc !?
  671.             // go->fType= kTypeQuery;
  672.             }
  673.             break;
  674.             
  675.         case htmlBase: 
  676.             break;
  677.  
  678.         case htmlLink: 
  679.         case htmlNextID: 
  680.             break;
  681.             
  682.         //case htmlHref: // !! bug in processing tokens -- arrive here after finding Link/HREF !
  683.         }
  684. }
  685.  
  686. #if 0
  687. ///////////  html forms stuff ///////////////
  688. ///// convert to gopher ask forms ///////////
  689.  
  690. <form  action="partial-url-to-handle-data" method=get or post> 
  691.  
  692. <input name="variable_name"> // one line text input (type=text)
  693. <input type=text name="variable_name" value='default text'> // one line text input
  694.     >> Ask: variable_name:\t default text
  695.  
  696. <input type=password name="variable_name-name"> // one line password text input
  697.     >> AskP: variable_name
  698.     
  699. <input type=submit value='button title'> // button to send form
  700.     >> default ask form "okay" button
  701. <input type=reset value='button title'>  // button to clear current choices
  702.     >> no ask equivalent
  703.     
  704. <input type=checkbox name=variable_name value="box title" checked>
  705.     >> Select: box title:0 or 1
  706.     
  707. <input type=radio name=var_name value='title 1'>
  708. <input type=radio name=var_name value='title 2'>
  709.     >> Choose: var_name: \t title 1 \t title 2 ...
  710.     
  711. <textarea name=var_name cols=40 rows=2>  // text input box
  712. default text
  713. </textarea>
  714.   >> AskL: var_name \t default text
  715.   
  716. <select>
  717. <option selected> name1
  718. <option> name2
  719. </select>
  720.     >> Choose: var_name: \t name1 \t name2 ...
  721.  
  722.  
  723. </form>
  724.  
  725.     if (fCurControl==HtmlInput) {
  726.         if (!fTypeStore || StrICmp( fTypestore, "text")==0)
  727.             ;
  728.         else if (StrICmp( fTypestore, "password")==0)
  729.             ;
  730.         else if (StrICmp( fTypestore, "submit")==0)
  731.             ;
  732.         else if (StrICmp( fTypestore, "reset")==0)
  733.             ;
  734.         else if (StrICmp( fTypestore, "checkbox")==0)
  735.             ;
  736.         else if (StrICmp( fTypestore, "radio")==0)
  737.             ;
  738.         else
  739.             ;
  740.         }
  741.         
  742.         // forms tags
  743.   htmlLinkAttr,    htmlForm, "form", kSlashStop, 0,
  744.       htmlLinkAttr,    htmlInput, "input", kNoStop, 0,
  745.       htmlLinkAttr,    htmlSelect, "select", kSlashStop, 0,
  746.         htmlLinkAttr,    htmlTextarea, "textarea", kSlashStop, 0,
  747.         htmlLinkAttr,    htmlValue, "value", kNoStop, 0,
  748.         htmlLinkAttr,    htmlType, "type", kNoStop, 0,
  749.         htmlLinkAttr,    htmlOption, "option", kNoStop, 0,
  750.         htmlLinkAttr,    htmlAction, "action", kNoStop, 0,
  751.         htmlLinkAttr,    htmlMethod, "method", kNoStop, 0,
  752.  
  753.  
  754.  
  755. #endif
  756.  
  757.  
  758. void DHTMLprocess::handleLinkAttr(short attr)
  759. {
  760.     char buf[512];
  761.     
  762.     switch (attr) {
  763.     
  764.         case htmlAnchor: 
  765.             if (fTurnOn) {
  766.                 fAnchorLink= 0;
  767.                 fCurControl= attr;
  768.                 // DAMN, need to push/pop something here -- having style changes inside
  769.                 // anchor causes it to disappear now !!!
  770.                 PushStyle();
  771.                 //PutLitCharWithStyle('['); // [] for debugging
  772.                 }
  773.             else {
  774.                 fStyleRec.style.color= 0; // ?? 
  775.                 fStyleRec.style.linkid= 0;                
  776.                 //PutLitCharWithStyle(']'); // [] for debugging
  777.                 PopStyle();
  778.                 fAnchorLink= 0;
  779.                 }
  780.             break;
  781.  
  782. #if 1
  783.         case htmlForm: 
  784.             fCurControl= attr;
  785.             fCurField= attr;
  786.             fInForm= fTurnOn;
  787.             if (fInForm) {
  788.                 fFormURL= (char*) MemFree(fFormURL);
  789.                 fGoplusStore= (char*) MemFree(fGoplusStore);
  790.                 fGoplusStore= StrDup("+ASKHTML:\n");  
  791.                 PushStyle();
  792.                 }
  793.             else {
  794.                 //fStyleRec.style.color= 0; // ?? 
  795.                 //fStyleRec.style.linkid= 0;                
  796.                 //PopStyle();
  797. #if 0
  798.                 MemFree(fPushBufstore);
  799.                 fPushBufstore= StrDup("<P> Click HERE to fill out form</A><P>");
  800.                 fPushBuf= fPushBufstore;
  801.                 fPushSize= StrLen(fPushBuf);
  802. #endif
  803.                 }
  804.             break;
  805.  
  806.         case htmlInput:
  807.             if (fInControl) {
  808.               fCurControl= attr; //?? 
  809.                 fCurField= attr;
  810.                 fMethodstore= (char*) MemFree(fMethodstore);  
  811.                 fOptionstore= (char*) MemFree(fOptionstore);  
  812.                 fValstore= (char*) MemFree(fValstore);  
  813.                 }
  814.                 
  815.             else {
  816.                 char * skind = NULL, * stitle = "", * sname = "", * svalue = "", * sanswer = "";
  817.                 
  818.                 short tokenlen= MIN( fTokenLen, 80);
  819.                 fTokenBuf[tokenlen] = '\0';  // this contains non-<control> text following this control
  820.                 for (short i=0; i<tokenlen; i++) 
  821.                     if (fTokenBuf[i]<' ') {
  822.                         fTokenBuf[i]= 0; // terminate string here?
  823.                         tokenlen= 0;
  824.                         break;
  825.                         }
  826.                         
  827.                 if (fNamestore) sname= fNamestore; else sname= fTypestore;
  828.  
  829.                 if (!fTypestore || StrICmp( fTypestore, "text")==0) {
  830.                     skind= "Ask";
  831. //<input name="variable_name"> // one line text input (type=text)
  832. //<input type=text name="variable_name" value='default text'> // one line text input
  833. //    >> Ask: variable_name:\t default text
  834.                     if (tokenlen) stitle= fTokenBuf; else stitle= sname;
  835.                     if (fValstore) sanswer= fValstore; else sanswer= "";  
  836.                     }
  837.                     
  838.                 else if (StrICmp( fTypestore, "password")==0) {
  839. //<input type=password name="variable_name-name"> // one line password text input
  840. //    >> AskP: variable_name
  841.                     skind= "AskP";
  842.                     if (tokenlen) stitle= fTokenBuf; else stitle= sname;
  843.                     if (fValstore) sanswer= fValstore; else sanswer= "";  
  844.                     }
  845.                     
  846.                 else if (StrICmp( fTypestore, "submit")==0)
  847.                     ;
  848.                 else if (StrICmp( fTypestore, "reset")==0)
  849.                     ;
  850.                     
  851.                 else if (StrICmp( fTypestore, "checkbox")==0) {
  852. //<input type=checkbox name=variable_name value="box value" checked> box_title
  853. //    >> Select: box title:0 or 1
  854.                     skind= "Select";
  855.                     if (tokenlen) stitle= fTokenBuf; else stitle= sname;
  856.                     if (fValstore) svalue= fValstore; else svalue= ""; // "on" is typical value 
  857.                     //if (fChecked) sanswer= "1"; else 
  858.                     sanswer= "0"; // default value
  859.                     }
  860.                     
  861.                 else if (StrICmp( fTypestore, "radio")==0) {
  862. //<input type=radio name=var_name value='title 1'> radio title
  863. //<input type=radio name=var_name value='title 2'>
  864. //    >> Choose: var_name: \t title 1 \t title 2 ...
  865. // !! need to collect all radios with same nametag !
  866.                     skind= "Choose";
  867.                     if (tokenlen) stitle= fTokenBuf; else stitle= sname;
  868.                     if (fValstore) svalue= fValstore; else svalue= ""; // "on" is typical value 
  869.                     if (fValstore) sanswer= fValstore; else sanswer= "on\t "; // default value
  870.                     }
  871.                     
  872.                 else
  873.                     ;
  874.                     
  875.                  if (skind) {
  876.                     sprintf( buf, " %s:%s:%s:%s\t%s\n", skind, sname, svalue, stitle, sanswer); 
  877.                     StrExtendCat( &fGoplusStore, buf);
  878.                     }
  879.                 }
  880.             break;
  881.  
  882.  
  883.         case htmlSelect: 
  884.             if (fTurnOn) { // fInControl)
  885.               fCurControl= attr; //?? 
  886.                 fCurField= attr;
  887.                 //fSomething= fTurnOn;
  888.                 fOptionstore= (char*) MemFree(fOptionstore);  
  889.                 }
  890.             else {
  891.                 //<select name="myname">
  892.                 //<option selected> name1
  893.                 //<option> name2
  894.                 //</select>
  895.                 //    >> Choose: var_name: \t name1 \t name2 ...
  896.                 char * skind = NULL, * stitle = "", * sname = "", * svalue = "", * sanswer = "";
  897.                 
  898.                 short tokenlen= MIN( fTokenLen, 80);
  899.                 fTokenBuf[tokenlen] = '\0';  // this contains non-<control> text following this control
  900.                 for (short i=0; i<tokenlen; i++) 
  901.                     if (fTokenBuf[i]<' ') {
  902.                         fTokenBuf[i]= 0; // terminate string here?
  903.                         tokenlen= 0;
  904.                         break;
  905.                         }
  906.  
  907.                 if (fNamestore) sname= fNamestore; else sname= fTypestore;
  908.                 skind= "Choose";
  909.                 if (tokenlen) stitle= fTokenBuf; else stitle= sname;
  910.                 if (fCurField == htmlOption) {
  911.                 
  912.                     }
  913.                  if (skind) {
  914.                     sprintf( buf, " %s:%s:%s:%s\t%s\n", skind, sname, svalue, stitle, sanswer); 
  915.                     StrExtendCat( &fGoplusStore, buf);
  916.                     }
  917.                 }
  918.             break;
  919.  
  920.         case htmlTextarea: 
  921.             if (fTurnOn) { // fInControl)
  922.               fCurControl= attr; //?? 
  923.                 fCurField= attr;
  924.                 //fSomething= fTurnOn;
  925.                 }
  926.             else {
  927.                 //<textarea name=var_name cols=40 rows=2>  // text input box
  928.                 //default text
  929.                 //</textarea>
  930.                 //  >> AskL: var_name \t default text
  931.                 char * skind = NULL, * stitle = "", * sname = "", * svalue = "", * sanswer = "";
  932.                 
  933.                 if (fNamestore) sname= fNamestore; else sname= fTypestore;
  934.                 skind= "AskL";
  935.                 fTokenBuf[fTokenLen] = '\0';  // this contains non-<control> text following this control
  936.                 if (fTokenLen) sanswer= fTokenBuf; 
  937.                 stitle= sname; //??
  938.                  if (skind) {
  939.                     sprintf( buf, " %s:%s:%s:%s\t%s\n", skind, sname, svalue, stitle, sanswer); 
  940.                     StrExtendCat( &fGoplusStore, buf);
  941.                     }
  942.  
  943.               }
  944.             break;
  945.  
  946.  
  947.         case htmlOption: 
  948.             if (fInControl) {
  949.                 fCurField= attr;
  950.                 }
  951.             else {
  952.                 // ?!?
  953.                 short tokenlen= MIN( fTokenLen, 80);
  954.                 fTokenBuf[tokenlen] = '\0';  // this contains non-<control> text following this control
  955.                 for (short i=0; i<tokenlen; i++) 
  956.                     if (fTokenBuf[i]<' ') {
  957.                         fTokenBuf[i]= 0; // terminate string here?
  958.                         tokenlen= 0;
  959.                         break;
  960.                         }
  961.                 if (tokenlen) {
  962.                     fTokenBuf[tokenlen++]= '\t';
  963.                     fTokenBuf[tokenlen]= '\0';
  964.                     if (!fOptionstore) fOptionstore= StrDup(fTokenBuf);
  965.                     else StrExtendCat( &fOptionstore, fTokenBuf);
  966.                     }
  967.                 }
  968.             break;
  969.             
  970.         case htmlMethod:
  971.             fCurField= attr;
  972.             // this is GET or POST -- only those two?
  973.             break;
  974.             
  975.         case htmlAction:
  976.             fCurField= attr;
  977.             fURLstore= (char*) MemFree(fURLstore);  
  978.             break;
  979.             
  980.         // case htmlName: // handled
  981.         case htmlValue:
  982.             fCurField= attr;
  983.             break;
  984.             
  985.         case htmlType:
  986.              // record param
  987.             fCurField= attr;
  988.             fTypestore= (char*) MemFree(fTypestore);  
  989.             break;
  990.  
  991. #endif
  992.  
  993.  
  994.         case htmlHref: 
  995.             fCurField= attr;
  996.             // store: ="url://bob.was/here"
  997.             fURLstore= (char*) MemFree(fURLstore);  
  998.             break;
  999.  
  1000.         case htmlName: 
  1001.             fCurField= attr;
  1002.             // store: ="some name"
  1003.             fNamestore= (char*) MemFree(fNamestore);  
  1004.             break;
  1005.             
  1006.         case htmlRel: 
  1007.             fCurField= attr;
  1008.             //fNamestore= (char*) MemFree(fNamestore);  
  1009.             break;
  1010.         case htmlRev: 
  1011.             fCurField= attr;
  1012.             //fNamestore= (char*) MemFree(fNamestore);  
  1013.             break;
  1014.         case htmlUrn: 
  1015.             fCurField= attr;
  1016.             //fNamestore= (char*) MemFree(fNamestore);  
  1017.             break;
  1018.         case htmlMethods: 
  1019.             fCurField= attr;
  1020.             //fNamestore= (char*) MemFree(fNamestore);  
  1021.             break;
  1022.         //case htmlTitle: // handled in other section !! 
  1023.         }
  1024. }
  1025.  
  1026.  
  1027.  
  1028. void DHTMLprocess::handlePictAttr(short attr)
  1029. {
  1030.     switch (attr) {
  1031.         case htmlImage: {
  1032.             // main tag
  1033.             fCurControl= attr;
  1034.             fCurField= attr;
  1035.             }
  1036.             break;
  1037.             
  1038.         case htmlImageSrc: 
  1039.             // this is the URL to remote picture ??
  1040.             fCurField= attr;
  1041.             // store: ="url://bob.was/here"
  1042.             fURLstore= (char*) MemFree(fURLstore);  
  1043.             break;
  1044.             
  1045.         case htmlImageAlt: 
  1046.             // text name for non-graphic clients?
  1047.         case htmlIsMap: 
  1048.         case htmlAlign: 
  1049.             fCurField= attr;
  1050.             break;
  1051.         }
  1052. }
  1053.  
  1054. #ifdef TESTDEF
  1055. #define  DEFAULTS() { DefaultParag(); DefaultStyle(); GetNlmFont(); }
  1056. #else
  1057. #define DEFAULTS()    {}
  1058. #endif
  1059.             
  1060. void DHTMLprocess::handleParAttr(short attr)
  1061. {
  1062.     switch (attr) {
  1063.     
  1064.         case htmlH1: 
  1065.             if (fTurnOn) {
  1066.                 PushStyle();
  1067.                 handleSpecialChar(htmlPage);
  1068.                 DefaultStyle();
  1069.                 fParaFmt.just= 'c';
  1070.                 fParaFmt.spaceBefore= 20; 
  1071.                 fStyleRec.style.bold= true;
  1072.                 fStyleRec.fontsize= 2 * kDefaultFontsize;
  1073.                 }
  1074.             else {
  1075.                 fParaFmt.spaceAfter= 10; 
  1076.                 PutLitCharWithStyle('\n');
  1077.                 NewParagraph();
  1078.                 fParaFmt.just= 'l';
  1079.                 fParaFmt.spaceBefore= 0; 
  1080.                 fParaFmt.spaceAfter= 0; 
  1081.                 PopStyle();
  1082.                 DEFAULTS();
  1083.                 }
  1084.             NewStyle();
  1085.             break;
  1086.             
  1087.         case htmlH2: 
  1088.              if (fTurnOn) {
  1089.                 PushStyle();
  1090.                 PutLitCharWithStyle ('\n');
  1091.                 NewParagraph();
  1092.                 DefaultStyle();
  1093.                 fParaFmt.spaceBefore= 10; 
  1094.                 fStyleRec.style.bold= true;
  1095.                 fStyleRec.fontsize= 6 + kDefaultFontsize;
  1096.                 }
  1097.             else {
  1098.                 fParaFmt.spaceAfter= 5; 
  1099.                 PutLitCharWithStyle ('\n');
  1100.                 NewParagraph();
  1101.                 fParaFmt.spaceBefore= 0; 
  1102.                 fParaFmt.spaceAfter= 0; 
  1103.                 PopStyle();
  1104.                 DEFAULTS();
  1105.                 }
  1106.             NewStyle();
  1107.             break;
  1108.                         
  1109.         case htmlH3: 
  1110.              if (fTurnOn) {
  1111.                 PushStyle();
  1112.                 PutLitCharWithStyle ('\n');
  1113.                 NewParagraph();
  1114.                 DefaultStyle();
  1115.                 fParaFmt.spaceBefore= 6; 
  1116.                 fStyleRec.style.italic= true;
  1117.                 fStyleRec.fontsize= 6 + kDefaultFontsize;
  1118.                 }
  1119.             else {
  1120.                 fParaFmt.spaceAfter= 4; 
  1121.                 PutLitCharWithStyle ('\n');
  1122.                 NewParagraph();
  1123.                 fParaFmt.spaceBefore= 0; 
  1124.                 fParaFmt.spaceAfter= 0; 
  1125.                 PopStyle();
  1126.                 DEFAULTS();
  1127.                 }
  1128.             NewStyle();
  1129.             break;
  1130.     
  1131.         case htmlH4:                          
  1132.             if (fTurnOn) {
  1133.                 PushStyle();
  1134.                 PutLitCharWithStyle('\n');
  1135.                 NewParagraph();
  1136.                 DefaultStyle();
  1137.                 fStyleRec.style.bold= true;
  1138.                 fStyleRec.fontsize= 2 + kDefaultFontsize;
  1139.                 }
  1140.             else {
  1141.                 fParaFmt.spaceAfter= 4; 
  1142.                 PutLitCharWithStyle('\n');
  1143.                 NewParagraph();
  1144.                 fParaFmt.spaceBefore= 0; 
  1145.                 fParaFmt.spaceAfter= 0; 
  1146.                 PopStyle();
  1147.                 DEFAULTS();
  1148.                 }
  1149.             NewStyle();
  1150.             break;
  1151.  
  1152.         case htmlH5: 
  1153.             if (fTurnOn) {
  1154.                 PushStyle();
  1155.                 PutLitCharWithStyle('\n');
  1156.                 NewParagraph();
  1157.                 DefaultStyle();
  1158.                 fStyleRec.fontsize= 2 + kDefaultFontsize;
  1159.                 //fStyleRec.style.italic= true;
  1160.                 }
  1161.             else {
  1162.                 fParaFmt.spaceAfter= 2; 
  1163.                 PutLitCharWithStyle('\n');
  1164.                 fParaFmt.spaceBefore= 0; 
  1165.                 fParaFmt.spaceAfter= 0; 
  1166.                 PopStyle();
  1167.                 DEFAULTS();
  1168.                 }
  1169.             NewStyle();
  1170.             break;
  1171.             
  1172.         case htmlH6: 
  1173.             if (fTurnOn) {
  1174.                 PushStyle();
  1175.                 PutLitCharWithStyle('\n');
  1176.                 NewParagraph();
  1177.                 DefaultStyle();
  1178.                 //fStyleRec.style.bold= true;
  1179.                 }
  1180.             else {
  1181.                 fParaFmt.spaceAfter= 2; 
  1182.                 PutLitCharWithStyle('\n');
  1183.                 PopStyle();
  1184.                 fParaFmt.spaceBefore= 0; 
  1185.                 fParaFmt.spaceAfter= 0; 
  1186.                 DEFAULTS();
  1187.                 }
  1188.             NewStyle();
  1189.             break;
  1190.  
  1191.  
  1192.         case htmlAddress: 
  1193.             if (fTurnOn) {
  1194.                 PushStyle();
  1195.                 PutLitCharWithStyle('\n');
  1196.                 NewParagraph();
  1197.                 DefaultStyle();
  1198.                 fParaFmt.just= 'r';
  1199.                 fStyleRec.style.italic= true;
  1200.                 }
  1201.             else {
  1202.                 PutLitCharWithStyle('\n');
  1203.                 NewParagraph();
  1204.                 fParaFmt.just= 'l';
  1205.                 PopStyle();
  1206.                 DEFAULTS();
  1207.                 }
  1208.             NewStyle();
  1209.             break;
  1210.  
  1211.         case htmlBlockquote: 
  1212.             if (fTurnOn) {
  1213.                 PushStyle();
  1214.                 PutLitCharWithStyle('\n');
  1215.                 fParaFmt.spaceBefore= 10; 
  1216.                 //fParaFmt.borderleft= TRUE;
  1217.                 NewParagraph();
  1218.                 fParaFmt.leftInset  += 30;  
  1219.                 fParaFmt.rightInset += 50;  
  1220.                 fStyleRec.style.italic= true;
  1221.                 }
  1222.             else {
  1223.                 fParaFmt.spaceAfter= 10; 
  1224.                 PutLitCharWithStyle('\n');
  1225.                 NewParagraph();
  1226.                 fParaFmt.spaceBefore= 0; 
  1227.                 fParaFmt.spaceAfter= 0; 
  1228.                 //fParaFmt.borderleft= false;
  1229.                 fParaFmt.leftInset = MAX( 0, fParaFmt.leftInset-30);  
  1230.                 fParaFmt.rightInset= MAX( 0, fParaFmt.rightInset-50);  
  1231.                 PopStyle();
  1232.                 }
  1233.             NewStyle();
  1234.             break;
  1235.  
  1236.         case htmlPreformat: 
  1237.             fPreformat= fTurnOn;
  1238.             handleCharAttr(htmlFixedwidth);
  1239.             NewStyle();
  1240.             break;
  1241.  
  1242.         case htmlLinewidth: 
  1243.             // this is attrib of htmlPreformat
  1244.             break;
  1245.  
  1246.             // lists/tables ?
  1247.          case htmlDL:
  1248.              if (fTurnOn) {
  1249.                 fParaFmt.leftInset  += kDefTabstop;  
  1250.                 fParaFmt.firstInset -= kDefTabstop;  
  1251.                  fDLStyle= htmlDL;
  1252.                  }
  1253.              else {
  1254.                 PutLitCharWithStyle('\n');
  1255.                 NewParagraph();
  1256.                 fParaFmt.leftInset  = MAX(0, fParaFmt.leftInset - kDefTabstop);  
  1257.                 fParaFmt.firstInset = MIN(0, fParaFmt.firstInset + kDefTabstop);  
  1258.                  }
  1259.                  
  1260.              // attribs of htmlDL
  1261.          case htmlCompact:
  1262.              fDLStyle= htmlCompact;
  1263.              break;
  1264.          case htmlDT:
  1265.             PutLitCharWithStyle('\n');
  1266.             NewParagraph();
  1267.             fParaFmt.leftInset  = MAX(0, fParaFmt.leftInset - kDefTabstop);  
  1268.             fParaFmt.firstInset = MIN(0, fParaFmt.firstInset + kDefTabstop);  
  1269.             break;
  1270.          case htmlDD:
  1271.              if (true) { //fDLStyle != htmlCompact) {
  1272.                  PutLitCharWithStyle('\n');
  1273.                 NewParagraph();
  1274.                 fParaFmt.leftInset  += kDefTabstop;  
  1275.                 fParaFmt.firstInset -= kDefTabstop;  
  1276.                 }
  1277.             PutStdCharWithStyle('\t');
  1278.              break;
  1279.         }
  1280. }
  1281.  
  1282.  
  1283. void DHTMLprocess::handleListAttr(short attr)
  1284. {
  1285.     switch (attr) {
  1286.     
  1287.         case htmlNumList:
  1288.         case htmlMenu:
  1289.         case htmlDir:
  1290.         case htmlBullList:
  1291.             fListType= attr;
  1292.             fListNum= 0;
  1293.              if (fTurnOn) {
  1294.                 PutLitCharWithStyle('\n');
  1295.                 NewParagraph();
  1296.                 fParaFmt.leftInset  += kDefTabstop;  
  1297.                 fParaFmt.firstInset -= kDefTabstop - 20;  
  1298.                  }
  1299.              else {
  1300.                 PutLitCharWithStyle('\n');
  1301.                 NewParagraph();
  1302.                 fParaFmt.leftInset  = MAX(0, fParaFmt.leftInset-kDefTabstop);  
  1303.                 fParaFmt.firstInset = MIN(0, fParaFmt.firstInset+kDefTabstop+20);  
  1304.                 PutLitCharWithStyle('\n');
  1305.                 NewParagraph();
  1306.                  }        
  1307.             break;
  1308.  
  1309.     
  1310.         case htmlListItem:
  1311.             PutLitCharWithStyle('\n');
  1312.             NewParagraph();
  1313.             fListNum++; // count isn't nested, nor is fListType !!
  1314.             // !!? need push/pop for list vars !!!!!!
  1315.             if (fListType == htmlNumList) {
  1316.                 char nums[30];
  1317.                 sprintf( nums, "%d\t", fListNum);
  1318.                 PutLitStr( nums);
  1319.                 }
  1320.             else {
  1321.                 PutStdCharWithStyle( gGenCharMap[rtfSC_bullet]); //'•'
  1322.                 PutStdChar('\t');
  1323.                 }
  1324.             break;
  1325.             
  1326.         }
  1327. }
  1328.  
  1329.  
  1330.  
  1331.  
  1332. void DHTMLprocess::handleCharAttr(short attr)
  1333. {
  1334.     switch (attr) {
  1335.  
  1336.     case htmlFixedwidth: //rtfFontNum:
  1337.         if (fTurnOn) {
  1338.             PushStyle();
  1339.             fStyleRec.fontname= "courier";
  1340.             fStyleRec.fontfamily= "Modern";
  1341.             fStyleRec.fontsize= kDefaultFontsize; 
  1342.             }
  1343.         else {
  1344.             PopStyle();
  1345.             } 
  1346.         NewStyle();
  1347.         //(void) GetNlmFont();  
  1348.         break;
  1349.                 
  1350.     case htmlSampleFont:
  1351.      case htmlUserFont:
  1352.         if (fTurnOn) {
  1353.             PushStyle();
  1354.             fStyleRec.fontname= "helvetica";
  1355.             fStyleRec.fontfamily= "Swiss";
  1356.             fStyleRec.fontsize= kDefaultFontsize; 
  1357.             }
  1358.         else {
  1359.             PopStyle();
  1360.             } 
  1361.         NewStyle();
  1362.         //(void) GetNlmFont();  
  1363.         break;
  1364.  
  1365.     case htmlPlain:
  1366.         DefaultStyle();
  1367.         NewStyle();
  1368.         break;
  1369.         
  1370.     case htmlVarFont: //rtfSmallCaps:
  1371.         NewStyle();
  1372.         fStyleRec.style.smallcaps= fTurnOn;
  1373.         break;
  1374.  
  1375.     case htmlEmphasis:
  1376.     case htmlBold:
  1377.         NewStyle();
  1378.         fStyleRec.style.bold= fTurnOn;
  1379.         break;
  1380.         
  1381.     case htmlDefineFont:
  1382.     case htmlCiteFont:
  1383.         // ?? also use diff font??
  1384.     case htmlItalic:
  1385.         NewStyle();
  1386.         fStyleRec.style.italic= fTurnOn;
  1387.         break;
  1388.     case htmlMoreEmphasis: //rtfUnderline:
  1389.         NewStyle();
  1390.         fStyleRec.style.bold= fTurnOn;
  1391.         if (fTurnOn) fStyleRec.style.underline = DRichStyle::kUnderline;
  1392.         else fStyleRec.style.underline= 0;
  1393.         break;
  1394.     case htmlInvisible:
  1395.         NewStyle();
  1396.         fStyleRec.style.hidden= fTurnOn;
  1397.         break;
  1398.     }
  1399. }
  1400.  
  1401.  
  1402. void DHTMLprocess::handleSpecialChar(short code)
  1403. {
  1404.     switch (code) {
  1405.         case htmlPar: 
  1406.             fParaFmt.spaceAfter += 5; 
  1407.             PutLitCharWithStyle('\n');
  1408.             NewParagraph();
  1409.             fParaFmt.spaceAfter -= 5; 
  1410.             fLastChar= ' ';
  1411.             break;
  1412.         case htmlNewline:
  1413.             PutLitCharWithStyle('\n');
  1414.             NewParagraph();
  1415.             fLastChar= ' ';
  1416.             break;
  1417.             
  1418.         case htmlHBar:
  1419.             fParaFmt.borderstyle = DParagraph::kBorderSingle; 
  1420.             fParaFmt.borderbottom = TRUE; 
  1421.             PutLitCharWithStyle('\n');
  1422.             PutLitChar(' ');
  1423.             NewParagraph();
  1424.             fParaFmt.borderstyle = DParagraph::kNoBorder; 
  1425.             fParaFmt.borderbottom = FALSE; 
  1426.             PutLitCharWithStyle('\n');
  1427.             NewParagraph();
  1428.             fLastChar= ' ';
  1429.             break;
  1430.             
  1431.         case htmlPage: 
  1432.             PutLitCharWithStyle ('\n');
  1433.             fParaFmt.newPage= TRUE;  
  1434.             NewParagraph();
  1435.             fParaFmt.newPage= FALSE; 
  1436.             fLastChar= ' ';
  1437.             break;
  1438.         case htmlTab:
  1439.             PutLitCharWithStyle('\t'); // tab isn't defined in HTML world...
  1440.             fLastChar= ' ';
  1441.             break;
  1442.  
  1443. #if 0
  1444.         case rtfSC_less:
  1445.             PutLitCharWithStyle('<');
  1446.             break;
  1447.         case rtfSC_greater:
  1448.             PutLitCharWithStyle('>');
  1449.             break;
  1450.         case rtfSC_quotedbl:
  1451.             PutLitCharWithStyle('"');
  1452.             break;
  1453.         case rtfSC_ampersand:
  1454.             PutLitCharWithStyle('&');
  1455.             break;
  1456. #endif
  1457.         default:
  1458.             PutLitCharWithStyle( gGenCharMap[code]);
  1459.             fLastChar= gGenCharMap[code];
  1460.             break;
  1461.         }
  1462. };
  1463.  
  1464.     
  1465.  
  1466.  
  1467. HTMLKey DHTMLprocess::htmlKeys[] =
  1468. {
  1469.         // document
  1470.     htmlDocAttr, htmlHTML,    "html", kSlashStop, 0,    
  1471.     htmlDocAttr, htmlTitle,    "title", kSlashStop, 0,    
  1472.     htmlDocAttr, htmlHead,    "head", kSlashStop, 0,    
  1473.     htmlDocAttr, htmlBody,    "body", kSlashStop, 0,    
  1474.     htmlDocAttr, htmlIsIndex,    "isindex", kNoStop, 0,    
  1475.     htmlDocAttr, htmlLink,    "link", kNoStop, 0,    
  1476.     htmlDocAttr, htmlNextID,    "nextid", kNoStop, 0,    
  1477.     htmlDocAttr, htmlBase,    "base", kNoStop, 0,    
  1478.       //htmlDocAttr,    htmlHref, "href=", kNoStop, 0,
  1479.     htmlDocAttr,    htmlComment,    "!", kNoStop, 0,
  1480.  
  1481.         // anchors & links
  1482.     htmlLinkAttr,    htmlAnchor,    "a", kSlashStop, 0,
  1483.       htmlLinkAttr,    htmlHref, "href", kNoStop, 0,
  1484.       htmlLinkAttr,    htmlName, "name", kNoStop, 0,
  1485.         htmlLinkAttr,    htmlRel, "rel", kNoStop, 0,
  1486.         htmlLinkAttr,    htmlRev, "rev", kNoStop, 0,
  1487.         htmlLinkAttr,    htmlUrn, "urn", kNoStop, 0,    
  1488.         htmlLinkAttr,    htmlMethods, "methods", kNoStop, 0,    
  1489.         //htmlLinkAttr, htmlTitle,    "title", kNoStop, 0,    
  1490.     
  1491.         // forms tags
  1492.   htmlLinkAttr,    htmlForm, "form", kSlashStop, 0,
  1493.       htmlLinkAttr,    htmlInput, "input", kNoStop, 0,
  1494.       htmlLinkAttr,    htmlSelect, "select", kSlashStop, 0,
  1495.         htmlLinkAttr,    htmlTextarea, "textarea", kSlashStop, 0,
  1496.         htmlLinkAttr,    htmlValue, "value", kNoStop, 0,
  1497.         htmlLinkAttr,    htmlType, "type", kNoStop, 0,
  1498.         htmlLinkAttr,    htmlOption, "option", kNoStop, 0,
  1499.         htmlLinkAttr,    htmlAction, "action", kNoStop, 0,
  1500.         htmlLinkAttr,    htmlMethod, "method", kNoStop, 0,
  1501.         
  1502.         // font styles
  1503.     htmlCharAttr,    htmlBold,        "b",        kSlashStop, 0,
  1504.     htmlCharAttr,    htmlEmphasis,        "em",    kSlashStop,     0,
  1505.     htmlCharAttr,    htmlMoreEmphasis,        "strong",    kSlashStop,     0,
  1506.     htmlCharAttr,    htmlItalic,        "i",    kSlashStop,     0,
  1507.     htmlCharAttr,    htmlFixedwidth,        "tt",    kSlashStop,     0, // courier font !?
  1508.     htmlCharAttr,    htmlFixedwidth,        "code",    kSlashStop,     0, // courier font !?
  1509.     htmlCharAttr,    htmlSampleFont,        "samp",    kSlashStop,     0, 
  1510.     htmlCharAttr,    htmlUserFont,        "kbd",    kSlashStop,     0, 
  1511.     htmlCharAttr,    htmlVarFont,        "var",    kSlashStop,     0, 
  1512.     htmlCharAttr,    htmlDefineFont,        "dfn",    kSlashStop,     0, // bold
  1513.     htmlCharAttr,    htmlCiteFont,        "cite",    kSlashStop,     0, // italic
  1514.     htmlCharAttr,    htmlPlain,        "plaintext",    kSlashStop,     0,  
  1515.  
  1516.         // paragraph styles
  1517.     htmlParAttr,    htmlH1,    "h1", kSlashStop,     0,
  1518.     htmlParAttr,    htmlH2,    "h2", kSlashStop, 0,
  1519.     htmlParAttr,    htmlH3,    "h3", kSlashStop, 0,
  1520.     htmlParAttr,    htmlH4,    "h4", kSlashStop, 0,
  1521.     htmlParAttr,    htmlH5,    "h5", kSlashStop, 0,
  1522.     htmlParAttr,    htmlH6,    "h6", kSlashStop, 0,
  1523.     htmlParAttr,    htmlAddress,    "address", kSlashStop, 0,
  1524.     htmlParAttr,    htmlBlockquote,    "blockquote", kSlashStop, 0,
  1525.  
  1526.     htmlParAttr,    htmlPreformat,    "pre", kSlashStop, 0,
  1527.       htmlParAttr,    htmlLinewidth,    "width", kNoStop, 0,
  1528.     htmlParAttr,    htmlPreformat,        "listing",        kSlashStop, 0,  
  1529.     htmlParAttr,    htmlPreformat,        "xmp",        kSlashStop, 0,  
  1530.  
  1531.         // lists/tables ?
  1532.     htmlParAttr,    htmlDL,    "dl", kSlashStop, 0,
  1533.       htmlParAttr,    htmlCompact,    "compact",  kNoStop,0,
  1534.       htmlParAttr,    htmlDT,    "dt", kNoStop, 0,
  1535.       htmlParAttr,    htmlDD,    "dd", kNoStop, 0,
  1536.  
  1537.         // lists
  1538.     htmlListAttr,    htmlBullList,    "ul",  kSlashStop, 0,
  1539.     htmlListAttr,    htmlNumList,    "ol",  kSlashStop, 0,
  1540.     htmlListAttr,    htmlMenu,    "menu",  kSlashStop, 0,
  1541.     htmlListAttr,    htmlDir,    "dir",  kSlashStop, 0,
  1542.     htmlListAttr,    htmlListItem,    "li",  kNoStop,0,
  1543.  
  1544.         // pictures
  1545.     htmlPictAttr,    htmlImage,        "img", kNoStop,    0,
  1546.       htmlPictAttr,    htmlImageSrc,        "src", kNoStop,    0,
  1547.       htmlPictAttr,    htmlImageAlt,        "alt", kNoStop,    0,
  1548.         htmlPictAttr,    htmlAlign,        "aln", kNoStop,    0,
  1549.         htmlPictAttr,    htmlAlign,        "align", kNoStop,    0,
  1550.       htmlPictAttr,    htmlIsMap,        "ismap", kNoStop,    0,
  1551.  
  1552.         // characters
  1553.     htmlSpecialChar,    htmlPar,        "p", kNoStop,    0, // parag
  1554.     htmlSpecialChar,    htmlHBar,        "hr", kNoStop,    0, // paragraph rule
  1555.     0,        -1,            NULL,    0
  1556. };
  1557.  
  1558.     
  1559.  
  1560. HTMLKey DHTMLprocess::htmlAmperChars[] =
  1561. {
  1562.     htmlSpecialChar,    rtfSC_less, "lt;", kAmperChar,        0,
  1563.     htmlSpecialChar,    rtfSC_greater, "gt;", kAmperChar,        0,
  1564.     htmlSpecialChar,    rtfSC_ampersand, "amp;", kAmperChar,        0,
  1565.     htmlSpecialChar,    rtfSC_quotedbl, "quot;", kAmperChar,        0,
  1566.  
  1567.     htmlSpecialChar,    rtfSC_AE, "AElig;", kAmperChar,        0,
  1568.     htmlSpecialChar,    rtfSC_Aacute, "Aacute;", kAmperChar,        0,
  1569.     htmlSpecialChar,    rtfSC_Acircumflex, "Acirc;", kAmperChar,        0,
  1570.     htmlSpecialChar,    rtfSC_Agrave, "Agrave;", kAmperChar,        0,
  1571.     htmlSpecialChar,    rtfSC_Aring, "Aring;", kAmperChar,        0,
  1572.     htmlSpecialChar,    rtfSC_Atilde, "Atilde;", kAmperChar,        0,
  1573.     htmlSpecialChar,    rtfSC_Adieresis, "Auml;", kAmperChar,        0,
  1574.     htmlSpecialChar,    rtfSC_Ccedilla, "Ccedil;", kAmperChar,        0,
  1575.     htmlSpecialChar,    rtfSC_Eth, "ETH;", kAmperChar,        0,
  1576.     htmlSpecialChar,    rtfSC_Eacute, "Eacute;", kAmperChar,        0,
  1577.     htmlSpecialChar,    rtfSC_Ecircumflex, "Ecirc;", kAmperChar,        0,
  1578.     htmlSpecialChar,    rtfSC_Egrave, "Egrave;", kAmperChar,        0,
  1579.     htmlSpecialChar,    rtfSC_Edieresis, "Euml;", kAmperChar,        0,
  1580.     htmlSpecialChar,    rtfSC_Iacute, "Iacute;", kAmperChar,        0,
  1581.     htmlSpecialChar,    rtfSC_Icircumflex, "Icirc;", kAmperChar,        0,
  1582.     htmlSpecialChar,    rtfSC_Igrave, "Igrave;", kAmperChar,        0,
  1583.     htmlSpecialChar,    rtfSC_Idieresis, "Iuml;", kAmperChar,        0,
  1584.     htmlSpecialChar,    rtfSC_Ntilde, "Ntilde;", kAmperChar,        0,
  1585.     htmlSpecialChar,    rtfSC_Oacute, "Oacute;", kAmperChar,        0,
  1586.     htmlSpecialChar,    rtfSC_Ocircumflex, "Ocirc;", kAmperChar,        0,
  1587.     htmlSpecialChar,    rtfSC_Ograve, "Ograve;", kAmperChar,        0,
  1588.     htmlSpecialChar,    rtfSC_Oslash, "Oslash;", kAmperChar,        0,
  1589.     htmlSpecialChar,    rtfSC_Otilde, "Otilde;", kAmperChar,        0,
  1590.     htmlSpecialChar,    rtfSC_Odieresis, "Ouml;", kAmperChar,        0,
  1591.     htmlSpecialChar,    rtfSC_Thorn, "THORN;", kAmperChar,        0,
  1592.     htmlSpecialChar,    rtfSC_Uacute, "Uacute;", kAmperChar,        0,
  1593.     htmlSpecialChar,    rtfSC_Ucircumflex, "Ucirc;", kAmperChar,        0,
  1594.     htmlSpecialChar,    rtfSC_Ugrave, "Ugrave;", kAmperChar,        0,
  1595.     htmlSpecialChar,    rtfSC_Udieresis, "Uuml;", kAmperChar,        0,
  1596.     htmlSpecialChar,    rtfSC_Yacute, "Yacute;", kAmperChar,        0,
  1597.     htmlSpecialChar,    rtfSC_aacute, "aacute;", kAmperChar,        0,
  1598.     htmlSpecialChar,    rtfSC_acircumflex, "acirc;", kAmperChar,        0,
  1599.     htmlSpecialChar,    rtfSC_ae, "aelig;", kAmperChar,        0,
  1600.     htmlSpecialChar,    rtfSC_agrave, "agrave;", kAmperChar,        0,
  1601.     htmlSpecialChar,    rtfSC_aring, "aring;", kAmperChar,        0,
  1602.     htmlSpecialChar,    rtfSC_atilde, "atilde;", kAmperChar,        0,
  1603.     htmlSpecialChar,    rtfSC_adieresis, "auml;", kAmperChar,        0,
  1604.     htmlSpecialChar,    rtfSC_ccedilla, "ccedil;", kAmperChar,        0,
  1605.     htmlSpecialChar,    rtfSC_eacute, "eacute;", kAmperChar,        0,
  1606.     htmlSpecialChar,    rtfSC_ecircumflex, "ecirc;", kAmperChar,        0,
  1607.     htmlSpecialChar,    rtfSC_egrave, "egrave;", kAmperChar,        0,
  1608.     htmlSpecialChar,    rtfSC_eth, "eth;", kAmperChar,        0,
  1609.     htmlSpecialChar,    rtfSC_edieresis, "euml;", kAmperChar,        0,
  1610.     htmlSpecialChar,    rtfSC_iacute, "iacute;", kAmperChar,        0,
  1611.     htmlSpecialChar,    rtfSC_icircumflex, "icirc;", kAmperChar,        0,
  1612.     htmlSpecialChar,    rtfSC_igrave, "igrave;", kAmperChar,        0,
  1613.     htmlSpecialChar,    rtfSC_idieresis, "iuml;", kAmperChar,        0,
  1614.     htmlSpecialChar,    rtfSC_ntilde, "ntilde;", kAmperChar,        0,
  1615.     htmlSpecialChar,    rtfSC_oacute, "oacute;", kAmperChar,        0,
  1616.     htmlSpecialChar,    rtfSC_ocircumflex, "ocirc;", kAmperChar,        0,
  1617.     htmlSpecialChar,    rtfSC_ograve, "ograve;", kAmperChar,        0,
  1618.     htmlSpecialChar,    rtfSC_oslash, "oslash;", kAmperChar,        0,
  1619.     htmlSpecialChar,    rtfSC_otilde, "otilde;", kAmperChar,        0,
  1620.     htmlSpecialChar,    rtfSC_odieresis, "ouml;", kAmperChar,        0,
  1621.     htmlSpecialChar,    rtfSC_nothing, "szlig;", kAmperChar,        0, // ! no rtf equiv.
  1622.     htmlSpecialChar,    rtfSC_thorn, "thorn;", kAmperChar,        0,
  1623.     htmlSpecialChar,    rtfSC_uacute, "uacute;", kAmperChar,        0,
  1624.     htmlSpecialChar,    rtfSC_ucircumflex, "ucirc;", kAmperChar,        0,
  1625.     htmlSpecialChar,    rtfSC_ugrave, "ugrave;", kAmperChar,        0,
  1626.     htmlSpecialChar,    rtfSC_udieresis, "uuml;", kAmperChar,        0,
  1627.     htmlSpecialChar,    rtfSC_yacute, "yacute;", kAmperChar,        0,
  1628.     htmlSpecialChar,    rtfSC_ydieresis, "yuml;", kAmperChar,        0,
  1629.     0,        -1,            NULL,    0
  1630. };
  1631.  
  1632.  
  1633.  
  1634.