home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / DCLAP 4j / Drtf / DNetHTMLHandler.cpp < prev    next >
Encoding:
Text File  |  1995-12-17  |  7.6 KB  |  284 lines  |  [TEXT/R*ch]
  1. // DNetHTMLHandler.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 "DHTMLprocess.h"
  10.  
  11. #include "DGopher.h"
  12. #include "DGoList.h"
  13. #include "DGoPlus.h"
  14. #include "DGoClasses.h"
  15. #include "DGoInit.h"
  16. #include "DURL.h"
  17.  
  18. #include "DNetHTMLHandler.h"
  19.  
  20.  
  21. class DNetHTMLprocess : public DHTMLprocess
  22. {
  23. public:
  24.     DGopherList * fGolist;
  25.     
  26.     DNetHTMLprocess( DFile* itsFile, DRichView* itsDoc, Nlm_MonitorPtr progress,
  27.                                         DGopherList* itsLinks);
  28.  
  29. protected:
  30.     virtual void    handleEndControl( short attr);  
  31. };
  32.  
  33.  
  34. static unsigned long gLinkcolor = (0<<16) + (170<<8) + 0;
  35.                                                                 // red     green    blue
  36.  
  37.  
  38.  
  39. //class  DNetHTMLHandler
  40.  
  41.  
  42. DNetHTMLHandler::DNetHTMLHandler( DRichView* itsDoc, DFile* savefile, DGopherList * itsList) :
  43.     DHTMLHandler( itsDoc, savefile),
  44.     fGolist(itsList)
  45. {
  46. }
  47.     
  48.          
  49.  
  50. DRichprocess* DNetHTMLHandler::NewProcessor( DFile* itsFile, Nlm_MonitorPtr progress)
  51. {
  52.     fProcessor = new DNetHTMLprocess( itsFile, fDoc, progress, this->fGolist);
  53.     return fProcessor;
  54. }
  55.  
  56.  
  57.  
  58. // class DNetHTMLprocess
  59.  
  60. DNetHTMLprocess::DNetHTMLprocess( DFile* itsFile, DRichView* itsDoc, Nlm_MonitorPtr progress,
  61.                                         DGopherList* itsLinks) :
  62.     DHTMLprocess( itsFile,  itsDoc, progress),
  63.     fGolist(itsLinks)
  64. { 
  65. }
  66.  
  67.  
  68.  
  69.  
  70. void DNetHTMLprocess::handleEndControl(short attr)
  71. {
  72.     // e.g, > end of any control
  73.  
  74.     if (fInForm && (fCurControl == htmlForm 
  75.      || fCurControl == htmlTextarea 
  76.      || fCurControl == htmlSelect 
  77.      || fCurControl == htmlInput)) {
  78.         // if fCurControl == htmlForm) need to save fURLstore, as it is the url for the form ...
  79.         // this comes at start of form block
  80.         // need to process later EndControls as part of this form until
  81.         // fInForm is set false.
  82.         if (fCurControl == htmlForm) {
  83.             MemFree( fFormURL);
  84.             fFormURL= fURLstore;
  85.             fURLstore= NULL;
  86.             DHTMLprocess::handleEndControl( attr); // this handles image stuff !?
  87.             }
  88.         else {
  89.             //this->handleLinkAttr( fCurControl); //!! attr == -1 here !
  90.             // this is on the tricky side, but lets us trap text outside of the <control>
  91.             // for use in the form label...
  92.             fInControl= true;
  93.             fQuote = (char)234; // kInFormText
  94.             // DHTMLprocess::handleEndControl( attr); // this handles image stuff !?
  95.             }
  96.         return;
  97.         }
  98.  
  99. // !!! MUST DISTINGUISH fURLstore for LINK (anchor) && fURLstore for picture !!
  100. // picture can be inside of a link (& clickable for that link)
  101. // !!! when an image is linked it is inside htmlAnchor
  102. //     currently htmlImage inside Anchor wipes out anchor link info !
  103. //     need to push anchor link &/or tie it in to image link !
  104.  
  105.     if (true && (  // if (fURLstore && ...)
  106.      fCurControl == htmlAnchor || 
  107.      fCurControl == htmlImage || 
  108.      fCurControl == htmlForm)) {
  109.       
  110.         if (fCurControl == htmlForm) {
  111.             MemFree(fURLstore);
  112.             fURLstore= fFormURL;
  113.             fFormURL= NULL;
  114.             }
  115.             
  116.       DGopher* go= NULL;
  117.       ulong urlsize= StringLen(fURLstore);      
  118.         if (true) { // if (urlsize)
  119.             char* url = NULL;
  120.             char* ref = NULL;
  121.             Boolean haveIndexItem = false;
  122.             
  123.             ref = StringChr(fURLstore,'#');
  124.             if (ref) {
  125.                         // ref is stored as gopher fQueryGiven field -- ??
  126.                 *ref++= 0;
  127.                 ref= StrDup(ref);
  128.                 urlsize= StrLen(fURLstore);
  129.                 }
  130.                 
  131.             if ((!urlsize || fIsIndex && StringCmp(fURLstore,"?")==0) && fGolist->fParentMenu) {
  132.                 // refer to local/base url
  133.                 MemFree(fURLstore);
  134.                 fURLstore= StrDup( fGolist->fParentMenu->GetURL());
  135.                 urlsize= StrLen(fURLstore);
  136.                 haveIndexItem= true;
  137.                 }
  138.                 
  139.             else if (DURL::IsURL( fURLstore, url, urlsize) == DGopher::kUnknownProt) {
  140.                 if (StrStr(fURLstore,"://")==NULL && fGolist->fParentMenu) {
  141. #if 0
  142.                     char *cp, *ep, *path;
  143.                     
  144.                     if (*fURLstore == '"' || *fURLstore == '\'') {
  145.                         cp= fURLstore + 1;
  146.                         ep= StrChr( cp, *fURLstore);
  147.                         if (ep) *ep= 0;
  148.                         MemMove( fURLstore, cp, StrLen(cp)+1);
  149.                         }
  150.                     
  151.                     path= StrDup( fGolist->fParentMenu->GetURL());
  152.                     cp= StrRChr( path, '/');
  153.                     if (cp) { cp++; *cp= 0; }
  154.                     StrPrependCat( &fURLstore, path);
  155.                     MemFree( path);
  156. #else
  157.                     const char * baseurl= fGolist->fParentMenu->GetURL();
  158.                     char * parturl= NULL;
  159.                     char *cp, *ep;
  160.  
  161.                     parturl= DURL::GetParts(baseurl, 
  162.                             DURL::kPartProtocol +DURL::kPartHost +DURL::kPartPort);
  163.                             
  164.                         // !? need to drop " or ' from fURLstore for use with GetParts...
  165.                     if (*fURLstore == '"' || *fURLstore == '\'') {
  166.                         cp= fURLstore + 1;
  167.                         ep= StrChr( cp, *fURLstore);
  168.                         if (ep) *ep= 0;
  169.                         MemMove( fURLstore, cp, StrLen(cp)+1);
  170.                         }
  171.                         
  172.                         // if (fURLstore is relative to base path...) 
  173.                         // ?? is this bizarre mess really part of html syntax?
  174.                     if (*fURLstore != '/') { 
  175.                         char* pathname= DURL::GetParts(baseurl, DURL::kPartPath);
  176.                         char* path = pathname;
  177.                         cp= StrRChr( pathname, '/');
  178.                         if (cp) { cp++; *cp= 0; }
  179.                         else path= "";
  180.                         StrPrependCat( &fURLstore, path);
  181.                         MemFree(pathname);
  182.                         }
  183.                     else {
  184.                         long lenpart= StrLen(parturl)-1;
  185.                         if (parturl[lenpart] == '/') parturl[lenpart]= 0;
  186.                         }
  187.                     StrPrependCat(&fURLstore, parturl);
  188.                     MemFree(parturl);
  189. #endif                    
  190.                     } 
  191.                 urlsize= StrLen(fURLstore);
  192.                 }
  193.                 
  194.             char gotype;
  195.             if (fCurControl == htmlImage) gotype= kTypeImage;
  196.             else if (haveIndexItem) gotype= kTypeQuery; //??!! this also for Forms?
  197.             else gotype= 0;
  198.  
  199.           if (fGolist && urlsize) 
  200.               go= DGopherList::GopherFromURL( fURLstore, urlsize, fGolist, false, gotype); 
  201.             if (go) {
  202.             
  203.                 if (fCurControl == htmlImage) {
  204.                         // must we infer image type from path suffix ??
  205.                     go->AddView("image/gif"); // what about image/jpg & others ??
  206.                     if (fIsMap) go->fIsMap= true;
  207.                     }
  208.                     
  209.                 else if (fCurControl == htmlForm) {  
  210.                     char hasaskform= 3;  
  211.                     if (StrICmp(fMethodstore, "POST")==0) hasaskform= 5;
  212.                     go->SetPlusInfo( kGopherPlusYes, hasaskform, fGoplusStore);
  213.                     }
  214.                 // else go->AddView("text/html"); // not always !? gopher links, etc
  215.  
  216.                     // screen out duplicate links
  217.                 short linkid= kEmptyIndex;
  218. #if 1
  219.                 {
  220.                 short i, n= fGolist->GetSize();
  221.                 for (i=0; i<n; i++) {
  222.                     if ( go->Equals( fGolist->GopherAt(i)) ) {
  223.                         linkid= i;
  224.                         break;
  225.                         }
  226.                     }
  227.                 }
  228. #else
  229.                     // this isn't catching dups !
  230.                 linkid= fGolist->GetEqualItemNo( (DObject*) go);    
  231. #endif
  232.  
  233.                 if (linkid == kEmptyIndex) {
  234.                     fGolist->InsertLast(go);
  235.                     linkid= fGolist->GetSize(); // note this is +1 of real list index
  236.                     }
  237.                 else linkid++; // +1 !
  238.                 if (fNamestore) go->StoreName(fNamestore);    // THIS was BAD !!?!?!
  239.                 if (ref) go->fQueryGiven= StrDup(ref);
  240.                 
  241.                 if (fCurControl == htmlImage) {
  242.                     go->fTransferType= kTransferBinary;
  243.                     fPicLink= linkid; //1 + fGolist->GetIdentityItemNo( (DObject*) go);    
  244.                     }
  245.                 else {
  246.                         
  247.                         // !? if (fCurControl == htmlForm)  //?? add some "Click here for Form" stuff?
  248.                         
  249.                     StoreStyle(fOldStyleRec.style, FALSE);  // required !
  250.                     fStyleRec.style.color= gLinkcolor;
  251.                     fStyleRec.style.linkid= linkid; //1 + fGolist->GetIdentityItemNo( (DObject*) go);    
  252.                     PutLitChar(' '); // ?? need for link style            
  253.                     StoreStyle(fStyleRec.style, TRUE); 
  254.                     fAnchorLink= linkid; 
  255. #if 0 
  256.                         // we are missing links on case where other styles appear before </a>
  257.                         // try w/ linkid in style until popped by </a>
  258.                     fStyleRec.style.color= 0;
  259.                     fStyleRec.style.linkid= 0;                
  260. #endif
  261. #if 1
  262.                     if (fCurControl == htmlForm) {  //?? add some "Click here for Form" stuff?
  263.                         MemFree(fPushBufstore);
  264.                         fPushBufstore= StrDup("<P> Click HERE to fill out form</A><P>");
  265.                         fPushBuf= fPushBufstore;
  266.                         fPushSize= StrLen(fPushBuf);
  267.                         }
  268. #endif
  269.                     }
  270.                 
  271.                 }
  272.             MemFree( ref);
  273.             }
  274.  
  275.         fURLstore= (char*) MemFree(fURLstore);
  276.         }
  277.  
  278.      DHTMLprocess::handleEndControl( attr); // this handles image stuff !?
  279.          
  280. }
  281.  
  282.  
  283.  
  284.