home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / DCLAP 4j / DNet / DURL.cpp < prev    next >
Encoding:
Text File  |  1995-12-17  |  10.5 KB  |  411 lines  |  [TEXT/R*ch]
  1. // DURL
  2. // d.g.gilbert, Sep.94
  3.  
  4. #include <ncbi.h>
  5. #include <dgg.h>
  6.  
  7. #include <DFile.h>
  8. #include "DTCP.h"
  9. #include "DGopher.h"
  10. #include "DGoClasses.h"
  11. #include "DURL.h"
  12.  
  13.  
  14.  
  15.  
  16. // DURL ------------------------------
  17.  
  18.  
  19. DURL::DURL()
  20. {
  21. }
  22.  
  23.  
  24. short DURL::IsURL( const char *line, char*& url, long maxline)
  25. {    // adapated from Lynx
  26.   char *cp, *lineend;
  27.     
  28.   // don't crash on an empty argument 
  29.   if (line == NULL || *line == '\0') return(DGopher::kUnknownProt);
  30.     if (maxline) lineend = (char*)line + maxline;
  31.     else lineend= StrChr( (char*)line,'\0');
  32.     
  33.     for (cp= (char*)line; cp < lineend && *cp!= ':'; cp++) ;
  34.     if (*cp != ':') return(DGopher::kUnknownProt);
  35.     else if (cp[1] != '/' && cp[2] != '/') {
  36.       // these are only ones that don't contain "://"  
  37.       if (!Nlm_StrNICmp( (url=cp-4),"news",4))                    return(DGopher::kNNTPprot);
  38.       else if (!Nlm_StrNICmp( (url=cp-6),"mailto",6))        return(DGopher::kSMTPprot);
  39.       else if (!Nlm_StrNICmp( (url=cp-5),"whois",5))        return(DGopher::kWhoisprot);
  40.       else if (!Nlm_StrNICmp( (url=cp-6),"finger",6))        return(DGopher::kFingerprot);
  41.       else if (!Nlm_StrNICmp( (url=cp-4),"nntp",4))            return(DGopher::kNNTPprot);
  42.       else if (!Nlm_StrNICmp( (url=cp-9),"newspost",8))    return(DGopher::kUnsupportedProt);
  43.         else     return(DGopher::kUnknownProt);
  44.         }
  45.  
  46.   else if (!Nlm_StrNICmp( (url=cp-6),"gopher",6))        return(DGopher::kGopherprot);
  47.   else if (!Nlm_StrNICmp( (url=cp-4),"http",4))            return(DGopher::kHTTPprot);
  48.   else if (!Nlm_StrNICmp( (url=cp-3),"ftp",3))             return(DGopher::kFTPprot);
  49.   else if (!Nlm_StrNICmp( (url=cp-4),"file",4))             return(DGopher::kFileprot);
  50.   else if (!Nlm_StrNICmp( (url=cp-4),"wais",4))             return(DGopher::kWAISprot);
  51.   else if (!Nlm_StrNICmp( (url=cp-6),"telnet",6))        return(DGopher::kTelnetprot);
  52.   else if (!Nlm_StrNICmp( (url=cp-6),"tn3270",6))        return(DGopher::kTN3270prot);
  53.   else if (!Nlm_StrNICmp( (url=cp-6),"rlogin",6))         return(DGopher::kUnsupportedProt);
  54.   else if (!Nlm_StrNICmp( (url=cp-3),"afs",3))             return(DGopher::kUnsupportedProt);
  55.   else if (!Nlm_StrNICmp( (url=cp-8),"prospero",8))    return(DGopher::kUnsupportedProt);
  56.         // !! Need also to support User-Added protocols via Type/Handler method !
  57.   else    return(DGopher::kUnknownProt);
  58. }
  59.  
  60.  
  61.  
  62. // from Lynx
  63.  
  64. /*        Escape undesirable characters using %        HTEscape()
  65. **        -------------------------------------
  66. **
  67. **    This function takes a pointer to a string in which
  68. **    some characters may be unacceptable unescaped.
  69. **    It returns a string which has these characters
  70. **    represented by a '%' character followed by two hex digits.
  71. **
  72. **    In the tradition of being conservative in what you do and liberal
  73. **    in what you accept, we encode some characters which in fact are
  74. **    allowed in URLs unencoded -- so DON'T use the table below for
  75. **    parsing! 
  76. **
  77. **    Unlike HTUnEscape(), this routine returns a malloced string.
  78. **
  79. */
  80.  
  81.     
  82. static unsigned char isAcceptable[96] =
  83. /* Overencodes */
  84. /*    Bit 0        alphaChars        -- see HTFile.h
  85. **    Bit 1        alphaPlusChars -- as alphaChars but with plus.
  86. **    Bit 2 ...    pathChars        -- as alphaPlusChars but with /
  87. */
  88. /* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
  89. {  0,0,0,0,0,0,0,0,0,0,7,6,0,7,7,4,    /* 2x   !"#$%&'()*+,-./     */
  90.      7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,    /* 3x  0123456789:;<=>?     */
  91.      7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,    /* 4x  @ABCDEFGHIJKLMNO  */
  92.      7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,7,    /* 5X  PQRSTUVWXYZ[\]^_     */
  93.      0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,    /* 6x  `abcdefghijklmno     */
  94.      7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0 };    /* 7X  pqrstuvwxyz{\}~    DEL */
  95.  
  96. #define OKAYCHAR(a,mask)    ( a>=32 && a<128 && ((isAcceptable[a-32]) & mask))
  97.  
  98. char* DURL::EncodeChars( const char* str, unsigned char mask)
  99. {
  100.     static char *hexchars = "0123456789ABCDEF";
  101.   const char * p;
  102.   char * q;
  103.   char * result;
  104.   int unacceptable = 0;
  105.  
  106.   for (p=str; *p; p++)
  107.          if (!OKAYCHAR( (unsigned char)*p, mask)) 
  108.             unacceptable++;
  109.   result = (char *) MemNew( p - str + unacceptable + unacceptable + 1);
  110.   if (result == NULL) return "";
  111.  
  112.   for (q=result, p=str; *p; p++) {
  113.       unsigned char a = *p;
  114.         if (!OKAYCHAR(a, mask)) {
  115.         *q++ = HEX_ESCAPE;    
  116.         *q++ = hexchars[a >> 4];
  117.         *q++ = hexchars[a & 15];
  118.             }
  119.         else *q++ = *p;
  120.       }
  121.   *q++ = 0;            
  122.   return result;
  123. }
  124.  
  125.  
  126. /*        Decode %xx escaped characters            HTUnEscape()
  127. **        -----------------------------
  128. **
  129. **    This function takes a pointer to a string in which some
  130. **    characters may have been encoded in %xy form, where xy is
  131. **    the acsii hex code for character 16x+y.
  132. **    The string is converted in place, as it will never grow.
  133. */
  134.  
  135. static char from_hex(char c)
  136. {
  137.     return  c >= '0' && c <= '9' ?  c - '0' 
  138.             : c >= 'A' && c <= 'F'? c - 'A' + 10
  139.             : c - 'a' + 10;     
  140. }
  141.  
  142. //static
  143. char* DURL::DecodeChars( char * str)
  144. {
  145.   char * p = str;
  146.   char * q = str;
  147.  
  148.   if (!str) return "";
  149.   while(*p) {
  150.        if (*p == HEX_ESCAPE) {
  151.         p++;
  152.         if (*p) *q  = from_hex(*p++) * 16;
  153.          if (*p) *q += from_hex(*p++);
  154.       q++;
  155.             } 
  156.    else 
  157.         *q++ = *p++; 
  158.      }
  159.   *q++ = 0;
  160.   return str;
  161. } 
  162.  
  163.  
  164. char* DURL::GetParts( const char* url, long whichparts, long urlsize)
  165. {
  166.     char *cp, *ep, sep, *newurl, *line, *newline;
  167.     
  168.   if (url == NULL || *url == '\0') return NULL;
  169.     if (!urlsize) urlsize= StrLen(url);
  170.     line= (char*) Nlm_MemNew(urlsize+1);
  171.     Nlm_MemCopy(line, url, urlsize);
  172.   line[urlsize]= 0;
  173.     newline= (char*) Nlm_MemNew(urlsize+1);
  174.   *newline= 0;
  175.   
  176.     long prot= IsURL( line, newurl);
  177.     cp= newurl;
  178.     ep= StrChr( newurl+3, ':');
  179.     if (ep) ep++;
  180.     if (*ep == '/') ep++;
  181.     if (*ep == '/') ep++;
  182.     if (whichparts & kPartProtocol) {
  183.         sep= *ep; *ep= 0;
  184.         StrCat( newline, cp);
  185.         *ep= sep;
  186.         }
  187.     cp= ep;
  188.     
  189.     while (isspace(*cp)) cp++;
  190.     ep= cp;
  191.     while ( *ep && (OKAYCHAR(*ep, alphaPlusChars)) ) ep++;
  192.     //while (*ep && (isalnum(*ep) || *ep == '.')) ep++;
  193.     while (isspace(*ep)) ep++;
  194.     if (whichparts & kPartHost) {
  195.         sep= *ep; *ep= 0;
  196.         StrCat( newline, cp);        
  197.         *ep= sep;
  198.         }
  199.     cp= ep;  
  200.  
  201.     if (*cp == ':') {    // port num
  202.         ep = cp + 1;
  203.         while (isspace(*ep)) ep++;
  204.         while (isdigit(*ep)) ep++;
  205.         if (whichparts & kPartPort) {
  206.             sep= *ep; *ep= 0;
  207.             StrCat( newline, cp);        
  208.             *ep= sep;
  209.             }
  210.         cp= ep;  
  211.         }        
  212.     while (isspace(*cp)) cp++;
  213.  
  214.     if (*newline && *cp == '/') {
  215.         StrCat( newline, "/");        
  216.         }
  217.         
  218.     if (whichparts & kPartPath) {
  219.         if (*cp == '/') cp++;
  220.         StrCat( newline, cp);        
  221.         }
  222.  
  223.     MemFree( line);
  224.     return newline;
  225. }
  226.  
  227.  
  228.  
  229. Boolean DURL::ParseURL( DGopher* go, const char *url, long urlsize, Boolean verbatim)
  230. {
  231.   char *cp, *ep, *qp, sep, *line, *newurl;
  232.     short prot;
  233.     Boolean isLocalhost;
  234.     
  235.   if (!go || url == NULL || *url == '\0') return false;
  236.   if (!urlsize) urlsize= StrLen(url);
  237.  
  238.       // can we do this space check safely?
  239.   newurl= (char*)url;  while (isspace(*newurl)) { newurl++; urlsize--; }
  240.   ep= newurl + urlsize - 1;  while (isspace(*ep)) { ep--; urlsize--; }
  241.   
  242.     line= (char*) Nlm_MemNew(urlsize+1);
  243.     Nlm_MemCopy(line, newurl, urlsize);
  244.   line[urlsize]= 0;
  245.     prot= IsURL( line, newurl);
  246.     if (prot <= DGopher::kUnknownProt) {
  247.         MemFree( line);
  248.         return false;
  249.         }
  250.     else {
  251.         // need to drop "", '', <> or other delimiters from url end
  252.         // also filter out newlines, controls, and spaces unless "" or ''
  253.         {
  254.             cp= newurl;
  255.             if (cp>line) do { cp--; } while (cp>line && !isgraph(*cp));
  256.             ep= cp;
  257.             switch (*cp) {
  258.                 case '"': 
  259.                     newurl= cp+1;  
  260.                     do { if (isprint(*cp)) *ep++= *cp; cp++; } while (*cp && *cp!='"');
  261.                     *ep= 0;
  262.                     break;
  263.                 case '\'':
  264.                     newurl= cp+1;  
  265.                     do { if (isprint(*cp)) *ep++= *cp; cp++; } while (*cp && *cp!='\'');
  266.                     *ep= 0;
  267.                     break;
  268.                 case '<':
  269.                     newurl= cp+1; 
  270.                     if (verbatim)
  271.                         do { if (isprint(*cp)) *ep++= *cp; cp++; } while (*cp && *cp!='>');
  272.                     else 
  273.                         do { if (isgraph(*cp)) *ep++= *cp; cp++; } while (*cp && *cp!='>');
  274.                     *ep= 0;
  275.                     break;
  276.                 default:
  277.                     newurl= cp;  
  278.                     if (verbatim)
  279.                         do { if (isprint(*cp)) *ep++= *cp; cp++; } while (*cp);
  280.                     else 
  281.                         do { if (isgraph(*cp)) *ep++= *cp; cp++; } while (*cp);
  282.                     *ep= 0;
  283.                     break;
  284.                 }
  285.             }
  286.         go->StoreProtocol( prot);
  287.          go->StoreURL(newurl);
  288.         cp= StrChr(newurl+3,':');
  289.         cp++;
  290.         if (*cp == '/') cp++;
  291.         if (*cp == '/') cp++;
  292.         while (isspace(*cp)) cp++;
  293.         if (prot == DGopher::kSMTPprot) {
  294.             DecodeChars(cp);
  295.             go->fType= kMailType; // mailto gopher kind  
  296.             go->StorePath(cp);
  297.             MemFree( line);
  298.             return true;
  299.             }
  300.             
  301.         ep= cp;
  302.         while ( *ep && (OKAYCHAR(*ep, alphaPlusChars)) ) ep++;
  303.         //while (*ep && (isalnum(*ep) || *ep == '.' || *ep == '-')) ep++;
  304.  
  305.          while (isspace(*ep)) ep++;
  306.         sep= *ep; *ep= 0;
  307.         isLocalhost = (ep - cp < 2); // || StrICmp( cp, "localhost")==0 );
  308.         go->StoreHost( cp);    
  309.         *ep= sep;
  310.         cp= ep; // NO: +1;
  311.  
  312.         if (sep == ':') {    // port num
  313.             ep= ++cp;
  314.             while (isspace(*ep)) ep++;
  315.             while (isdigit(*ep)) ep++;
  316.             sep= *ep; *ep= 0;
  317.             go->StorePort( cp);    
  318.             *ep= sep;
  319.             cp= ep; //+1;
  320.             }        
  321.         if (sep == '/') ;
  322.         while (isspace(*cp)) cp++;
  323.  
  324.         qp= StrChr(cp, '?');
  325.         if (qp) {
  326.             *qp++= 0;
  327.             go->fQueryGiven= StrDup(qp);
  328.             }
  329.             
  330.         DecodeChars(cp);    // ???
  331.  
  332.         switch (prot) {
  333.             case DGopher::kGopherprot: // gopher://host.name:70/00/path/to/data
  334.                 if (*cp) cp++;
  335.                 if (*cp == 0) {
  336.                     go->fType= kTypeFolder;  
  337.                     go->StorePath(""); 
  338.                     }
  339.                 else {
  340.                     go->fType= *cp;  
  341.                     go->StorePath( cp+1); 
  342.                     }
  343.                 break;
  344.                 
  345.             case DGopher::kFTPprot: // file:///path:to:file
  346.             case DGopher::kFileprot: // file:///path:to:file
  347.                 if (*cp == '/') {          
  348.                         // this leading slash is artifact of silly url syntax !!
  349.                         // skip for all????? but sometimes (non-local) this is valid
  350. #if 1
  351.                     if (isLocalhost) cp++;
  352. #else
  353. #ifdef OS_VMS
  354.                     cp++; // vms, skip leading /
  355. #endif
  356. #ifdef OS_MAC
  357.                     cp++; // mac, skip leading /
  358. #endif
  359. #ifdef OS_DOS
  360.                     if (StrChr(cp,':')) cp++; // have "/C:\dos\path" form
  361.                     else *cp= '\\'; // have a "/dos\path" form
  362. #endif
  363. #endif
  364.                     }
  365.                 go->fType= kTypeFile;  // !! need ftp folder handling !?
  366.                 go->StorePath( cp);  
  367.                 break;
  368.  
  369.             case DGopher::kHTTPprot:    // http://host.name:80/path/to/data
  370.                 go->fType= kTypeHtml;  
  371.                 if (*cp == 0) go->StorePath( "/");
  372.                 else go->StorePath( cp);  
  373.                 break;
  374.  
  375.             case DGopher::kTelnetprot:
  376.                 go->fType= kTypeTelnet;  
  377.                 go->StorePath( cp);  
  378.                 break;
  379.             case DGopher::kTN3270prot:
  380.                 go->fType= kTypeTn3270;  
  381.                 go->StorePath( cp);  
  382.                 break;
  383.  
  384.             case DGopher::kFingerprot:
  385.             case DGopher::kWhoisprot:
  386.                 go->fType= kTypeQuery;  
  387.                 go->StorePath( cp);  
  388.                 break;
  389.             
  390.             case DGopher::kWAISprot: // ?? or need Folder type or Waisdir & WaisDoc types?
  391.             default:
  392.                 go->fType= kTypeFile;  
  393.                 go->StorePath( cp);  
  394.                 break;
  395.             }
  396.             
  397.                 // set a usable title !?
  398.         const char *name= go->GetPath();
  399.         if ( name == NULL || *name == 0 || StrCmp(name, "/") == 0) 
  400.             name= go->GetHost();
  401.         else 
  402.             name= gFileManager->FilenameFromPath(name);
  403.         if ( name && *name != 0 ) 
  404.             go->StoreName( (char*)name);  
  405.              
  406.         }
  407.     
  408.     MemFree( line);
  409.     return true;
  410. }
  411.