[BACK]Return to AHTURLTools.c CVS log [TXT] [DIR] Up to [Public] / Amaya / amaya

Diff for /Amaya/amaya/AHTURLTools.c between versions 1.13 and 1.14

version 1.13, 1997/01/22 10:18:19 version 1.14, 1997/01/23 08:08:12
Line 417  char               *docName; Line 417  char               *docName;
    if (ptr)     if (ptr)
       *ptr = EOS;        *ptr = EOS;
   
    /*      if (IsW3Path (tempname))
       ** the following block to take into account the BASE element.       /* the name is complete */
       ** This is not very optimized, as this procedure is repeated for       strcpy (newName, tempname);
       ** each element which is retrieved. A better way would be to  
       ** move this higher up in the function call hierarchy.  
     */  
    if (!IsW3Path (tempname) && doc)  
      {  
         length = MAX_LENGTH;  
         /* get the root element    */  
         el = TtaGetMainRoot (doc);  
   
         /* search the BASE element */  
         elType.ElSSchema = TtaGetDocumentSSchema (doc);  
         elType.ElTypeNum = HTML_EL_BASE;  
         el = TtaSearchTypedElement (elType, SearchInTree, el);  
         if (el)  
           {  
              /*   
                 ** The document has a BASE element   
                 ** Get the HREF attribute of the BASE Element   
               */  
              attrType.AttrSSchema = elType.ElSSchema;  
              attrType.AttrTypeNum = HTML_ATTR_HREF_;  
              attrHREF = TtaGetAttribute (el, attrType);  
              if (attrHREF)  
                {  
                   /*   
                      ** Use the base path of the document   
                      ** To do: verify length of the buffer  
                      ** length > TtaGetTextAttributeLength (attrHREF) + strlen (orgName)   
                    */  
                   TtaGiveTextAttributeValue (attrHREF, basename, &length);  
                   /* base and orgName have to be separated by a DIR_SEP */  
                   if (basename[strlen (basename) - 1] != DIR_SEP)  
                     {  
                       if (IsHTMLName (basename))  
                         {  
                           /* remove the document name from basename */  
                           length = strlen (basename) - 1;  
                           while (basename[length] != DIR_SEP)  
                             basename[length--] = EOS;  
                         }  
                       else if (tempname[0] != DIR_SEP)  
                         strcat (basename, DIR_STR);  
                     }  
                }  
              else  
                basename[0] = EOS;  
           }  
         else  
            basename[0] = EOS;  
      }  
    else  
       basename[0] = EOS;  
   
    if (basename[0] == EOS)  
      {  
         /*   
            ** There is no BASE element in that document.  
            ** A temporary fix as TtaExtractName does not tolerate a name  
            ** ending in /. Here, we reinsert the slash, in order to  
            ** parse the name in the following two lines. A bit  
            ** redundant and has to be reviewed.    
          */  
         if (DocumentURLs[(int) doc])  
           {  
              basename_ptr = HTParse (DocumentURLs[(int) doc], "", PARSE_ALL);  
              basename_flag = TRUE;  
           }  
         else  
           {  
              basename_ptr = "";  
              basename_flag = FALSE;  
           }  
      }  
    else     else
      {       {
         basename_ptr = HTParse (basename, "", PARSE_ALL);         if (doc)
         basename_flag = TRUE;           {
      }                          /* if-else tempname */             /* take into account the BASE element. */
              length = MAX_LENGTH;
    ptr = HTParse (tempname, basename_ptr, PARSE_ALL);             /* get the root element    */
    if (basename_flag)             el = TtaGetMainRoot (doc);
       HT_FREE (basename_ptr);             
    if (ptr)             /* search the BASE element */
      {             elType.ElSSchema = TtaGetDocumentSSchema (doc);
         ptr = HTSimplify (&ptr);             elType.ElTypeNum = HTML_EL_BASE;
         strcpy (newName, ptr);             el = TtaSearchTypedElement (elType, SearchInTree, el);
         HT_FREE (ptr);             if (el)
                {
                  /* 
                  ** The document has a BASE element 
                  ** Get the HREF attribute of the BASE Element 
                  */
                  attrType.AttrSSchema = elType.ElSSchema;
                  attrType.AttrTypeNum = HTML_ATTR_HREF_;
                  attrHREF = TtaGetAttribute (el, attrType);
                  if (attrHREF)
                    {
                      /* Use the base path of the document */
                      TtaGiveTextAttributeValue (attrHREF, basename, &length);
                      /* base and orgName have to be separated by a DIR_SEP */
                      if (basename[strlen (basename) - 1] != DIR_SEP)
                        {
                          if (IsHTMLName (basename))
                            {
                              /* remove the document name from basename */
                              length = strlen (basename) - 1;
                              while (basename[length] != DIR_SEP)
                                basename[length--] = EOS;
                            }
                          else if (tempname[0] != DIR_SEP)
                            strcat (basename, DIR_STR);
                        }
                    }
                  else
                    basename[0] = EOS;
                }
              else
                basename[0] = EOS;
            }
          else
            basename[0] = EOS;
          
          if (basename[0] == EOS)
            {
              /* there is no BASE element in that document. */
              if (DocumentURLs[(int) doc])
                {
                  basename_ptr = HTParse (DocumentURLs[(int) doc], "", PARSE_ALL);
                  basename_flag = TRUE;
                }
              else
                {
                  basename_ptr = "";
                  basename_flag = FALSE;
                }
            }
          else
            {
              basename_ptr = HTParse (basename, "", PARSE_ALL);
              basename_flag = TRUE;
            }
          
          ptr = HTParse (tempname, basename_ptr, PARSE_ALL);
          if (basename_flag)
            HT_FREE (basename_ptr);
          if (ptr)
            {
              ptr = HTSimplify (&ptr);
              strcpy (newName, ptr);
              HT_FREE (ptr);
            }
          else
            newName[0] = EOS;
      }       }
    else  
       newName[0] = EOS;  
   
    i = strlen (newName) - 1;     i = strlen (newName) - 1;
    if (i > 0)     if (i > 0)
      {       {
         /*          /* search now the document name */
            ** A temporary fix for an interfacing problem:         ptr = strrchr (newName, DIR_SEP);
            ** TtaExtractName does not tolerate url's finished on DIR_SEP         if (ptr)
          */           ptr++;
         ptr = strrchr (newName, DIR_SEP);         if (ptr && *ptr != EOS)
         if (ptr)           strcpy (docName, ptr);
            ptr++;         else
         if (ptr && *ptr != EOS)           /* the docname was not comprised inside the URL, so let's */
            strcpy (docName, ptr);           /* assign a "noname.html" name :) */
         else           strcpy (docName, "noname.html");
            /*         
               ** The docname was not comprised inside the URL, so let's           /* remove DIR_SEP at the end of complete path */
               ** assign a "noname.html" name :)  
             */  
            strcpy (docName, "noname.html");  
   
         /*   
            ** A temporary fix for an interfacing problem:  
            ** TtaExtractName does not tolerate url's finished on DIR_SEP  
          */  
         if (newName[i] == DIR_SEP)          if (newName[i] == DIR_SEP)
            newName[i] = EOS;             newName[i] = EOS;
      }       }
Removed from v.1.13  
changed lines
  Added in v.1.14

Webmaster