/* ** $VER: Funcs.c 1.0 ** ** Library functions for HTML export */ #define __USE_SYSBASE #include #include #include #include #include #include "ixex.h" #define e(x) data->ci_entry[x] #define ep(x) data->cie_position[x] #define el(x) data->cie_length[x] #define ed(x) data->ci_data+data->cie_position[x] /* ** Every iX Export module has two functions: ** ** STRPTR EXF_GetName(APTR future); ** - it is used to get the name of this export module which will ** be shown in the menu of iX-Guide. The return string should ** be allocated with AllocVec() ** 'future' argument should be always NULL for now. ** ** LONG EXF_Export(struct iX_ChunkInfo *data,STRPTR name, ** struct iX_Node *nodeinfo,APTR control); ** - this function is used to convert the 'data' in iX_ChunkInfo form ** into some format and save that converted data into 'name' file. ** 'nodeinfo' can be used e.g. to obtain the background filename etc. ** 'control' is the pointer to iX_Database structure. This structure ** can be used to obtain miscellaneous information about current ** document like its header or if wordwrapping is enabled etc. ** If everything was ok the function should return 0 otherwise 1. */ #define EXNAME "HTML" STRPTR __saveds __asm EXF_GetName(register __a0 APTR future) { STRPTR name; name = AllocVec(strlen(EXNAME)+1,MEMF_CLEAR|MEMF_PUBLIC); strcpy(name,EXNAME); return(name); } LONG __saveds __asm EXF_Export(register __a0 struct iX_ChunkInfo *data, register __a1 STRPTR name, register __a2 struct iX_Node *nodeinfo, register __a3 APTR control) { BPTR f; long e_c = 0L,cn; char *head = "\n" "\n" "\n" ""; char *head2 = "\n" "\n" "title) Write(f,nodeinfo->title,strlen(nodeinfo->title)); Write(f,head2,strlen(head2)); if (nodeinfo->background) { if (*nodeinfo->background=='#') Write(f," BGCOLOR=\"",10); else Write(f," BACKGROUND=\"",13); Write(f,nodeinfo->background,strlen(nodeinfo->background)); Write(f,"\"",1); } Write(f,">\n",2); // convert if (!ixd->WordWrap) Write(f,"
",5);
   while(e(e_c) != ET_END)
    {
     switch(e(e_c))
      {
        case ET_WORD:
         // check if there are any '<' or '>' chars
         bytebybyte=FALSE;
         for(cn=0;cn') ) bytebybyte=TRUE;
         if (bytebybyte)
          {
           for(cn=0;cn') Write(f,">",3);
             else Write(f,(APTR)(ed(e_c)+cn),1);
            }
          }
         else Write(f,(APTR)(ed(e_c)),el(e_c));
        break;
        case ET_RTRN:
          Write(f,"\n",1);
        break;
        case ET_SPC:
         if (ep(e_c)<0) Write(f,"\t",1); // this is tab character
         else // spaces
         for (cn=0;cn",3);
           break;
           case ET_UB:
            Write(f,"",4);
           break;
           case ET_I:
            Write(f,"",3);
           break;
           case ET_UI:
            Write(f,"",4);
           break;
           case ET_U:
            Write(f,"",3);
           break;
           case ET_UU:
            Write(f,"",4);
           break;
           case ET_A:
            e_c++;
            if (e(e_c)==ET_ATTR)
             {
              if (strnicmp((char *)(ed(e_c)),"c",1)==0) Write(f,"
",8);
              if (strnicmp((char *)(ed(e_c)),"defa",4)==0) Write(f,"
",9);
             }
           break;
           case ET_ATTR:
            if (e(e_c+1)==ET_LINK)
             {
              Write(f,"",2);
              Write(f,(APTR)(ed(e_c)),el(e_c));
              Write(f,"",4);
             }
            if ((e(e_c+1)==ET_PIC) || (e(e_c+1)==ET_PICT))
             {
              Write(f,"AliasList;
              while(al)
               {
                if (strnicmp((char *)(ed(e_c)),al->alias,el(e_c))==0) break;
                al = al->Next;
               }
              if (al) Write(f,al->realname,strlen(al->realname));
              else Write(f,(APTR)(ed(e_c)),el(e_c));
              Write(f,"\">",2);
             }
           break;
           case ET_HR:
            Write(f,"
",4);
           break;
           case ET_N:
            Write(f,"
",4);
           break;
           case ET_RR:
            Write(f,"
",5);
           break;
           case ET_URR:
            Write(f,"
",6);
           break;
           case ET_UL:
            Write(f,"
    ",4);
           break;
           case ET_LI:
            Write(f,"
  • ",4);
           break;
           case ET_UUL:
            Write(f,"
",5);
           break;
           case ET_CL:
            Write(f,"\n",12);
           break;
           case ET_UCL:
            Write(f,"\n
",14);
           break;
           case ET_BEGINML:
            Write(f,"",4);
           break;
           case ET_ENDML:
            Write(f,"",5);
           break;
           case ET_MFONT:
            e_c++;
            if (lastfont[0]!='\0') {Write(f,"",1);lastfont[0]='\0';}
            if (strnicmp((char *)(ed(e_c)),"f0",2)==0)
             {Write(f,"
",4);strcpy(lastfont,"H6");}
            if (strnicmp((char *)(ed(e_c)),"f1",2)==0)
             {Write(f,"
",4);strcpy(lastfont,"H5");}
            if (strnicmp((char *)(ed(e_c)),"f2",2)==0)
             {Write(f,"
",4);strcpy(lastfont,"H4");}
            if (strnicmp((char *)(ed(e_c)),"f3",2)==0)
             {Write(f,"
",4);strcpy(lastfont,"H3");}
            if (strnicmp((char *)(ed(e_c)),"f4",2)==0)
             {Write(f,"
",4);strcpy(lastfont,"H2");}
            if (strnicmp((char *)(ed(e_c)),"f5",2)==0)
             {Write(f,"
",4);strcpy(lastfont,"H1");}
            if (strnicmp((char *)(ed(e_c)),"f6",2)==0)
             {Write(f,"
",4);strcpy(lastfont,"H1");}
            if (strnicmp((char *)(ed(e_c)),"x0",2)==0)
             {Write(f,"",6);strcpy(lastfont,"CODE");}
            if (strnicmp((char *)(ed(e_c)),"x1",2)==0)
             {Write(f,"",6);strcpy(lastfont,"CODE");}
            if (strnicmp((char *)(ed(e_c)),"x2",2)==0)
             {Write(f,"",6);strcpy(lastfont,"CODE");}
            if (strnicmp((char *)(ed(e_c)),"x3",2)==0)
             {Write(f,"",5);strcpy(lastfont,"VAR");}
            if (strnicmp((char *)(ed(e_c)),"x4",2)==0)
             {Write(f,"",5);strcpy(lastfont,"VAR");}
            if (strnicmp((char *)(ed(e_c)),"x5",2)==0)
             {Write(f,"",5);strcpy(lastfont,"VAR");}
            if (strnicmp((char *)(ed(e_c)),"x6",2)==0)
             {Write(f,"",5);strcpy(lastfont,"KBD");}
           break;
           case ET_FG:
            e_c++;
            if (colset) {Write(f,"",7);colset=FALSE;}
            if (*(ed(e_c))=='#')
             {
              Write(f,"",1);
              colset=TRUE;
             }
           break;
          } // end switch tag
        break;
      } // end switch entry
     e_c++;
    } // end while entry != ET_END
   if (!ixd->WordWrap) Write(f,"
",6); // write the tail Write(f,tail,strlen(tail)); Close(f); } else return(1L); return(0L); }