RasTop Code

 /**************************************************************************
 *                                                                         *
 *                                 RasTop                                  *
 *                                                                         *
 *                 Molecular Graphics Visualisation Tool                   *
 *                                                                         *
 *                                                                         *
 * This program is free software; you can redistribute it and/or modify it *
 * under the terms of the GNU General Public License as published by the   *
 * Free Software Foundation; either version 2 of the License.              *
 *                                                                         *
 * This program is distributed in the hope that it will be useful, but     *
 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTA-   *
 * BILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public  *
 * License for more details (license.txt file ).                           *
 *                                                                         *
 * You should have received a copy of the GNU General Public License along *
 * with this program; if not, write to the Free Software Foundation, Inc., *
 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA                   *
 *                                                                         *
 ***************************************************************************/

/* Authors:
 *
 * Please consult the help manual for more information about copyright 
 * holders and version history of RasTop/RasMol source. 
 *
 * Make sure to add your name to this list if you modify this file.
 *
 * Herbert J. Bernstein
 * Christian Duqué
 * Gary Grossman
 * Marco Molinaro
 * Arne Mueller
 * Naoum Salamé
 * Roger Sayle
 * Philippe Valadon
 */




#include "rasmol.h"

#ifdef IBMPC
#include <windows.h>
#include <shellapi.h>
#include <malloc.h>
#endif
#ifdef APPLEMAC
#include <Types.h>
#include <Errors.h>
#ifdef __CONDITIONALMACROS__
#include <Printing.h>
#else
#include <PrintTraps.h>
#endif
#endif
#ifndef sun386
#include <stdlib.h>
#endif

#include <string.h>
#if defined(IBMPC) || defined(VMS) || defined(APPLEMAC)
#include "string_case.h"
#else
#include <strings.h>
#endif
#include <ctype.h>
#include <stdio.h>

#if !defined(IBMPC) && !defined(VMS) && !defined(APPLEMAC)
#include <pwd.h>
#endif



#define HELP
#include "help.h"
//#include "prefer.h"
//#include "command.h"
//#include "tokens.h"
#include "molecule.h"
//#include "infile.h"
//#include "abstree.h"
//#include "transfor.h"
#include "cmndline.h"
//#include "render.h"
//#include "pixutils.h"
//#include "repres.h"
//#include "graphics.h"
//#include "outfile.h"
//#include "script.h"
//#include "multiple.h"
//#include "vector.h"
//#include "brotate.h"
#include "langsel.h"

//#include <math.h>


typedef struct _HlpEntry {
                struct _HlpEntry __far *next;
                struct _HlpEntry __far *info;
                char __far *keyword;
                Long fpos;
                } HlpEntry;

#define HelpPool   16
static char HelpFileName[256];
static char HelpFileBuf[80];
static HlpEntry __far *FreeInfo;
static HlpEntry __far *HelpInfo;


/*====================================*/
/*  Command Line On-Line Help System  */
/*====================================*/

static int PrefixString( char __far *str1, char  __far *str2 )
{
    while( *str1 )
        if( *str1++ != *str2++ )
            return False;
    return True;
}

char __far *xfgets( char __far* s, int n,  FILE __far *fp )
{
    register int i;
    register int c;
    register char __far *cs;
    cs = s;
    c = '\0';
    for (i = 0; i < n-1; i++)
    {
      if ((c = fgetc(fp)) == EOF)
      {
        *cs++ = '\0';
        return NULL;
      }
      if (c == '\r' || c == '\n' || c == '\0') break;
      *cs++ = c;
    }
    if (c == '\r') {
      c = getc(fp);
      if ( c != '\n' )
        ungetc(c,fp);
    }
    *cs++ = '\n';
    *cs++ = '\0';
    return s;             
}



static HlpEntry __far *EnterHelpInfo( char *text )
{
    register HlpEntry __far * __far *tmp;
    register HlpEntry __far *ptr;
    register int res,len,i;
    register char ch;
    char keyword[32];

    ptr = (void __far*)0;
    while( *text && (*text!='\n') )
    {   while( *text && (*text!='\n') && (*text==' ') )
            text++;

        len = 0;
        while( *text && (*text!='\n') && (*text!=' ') )
            if( len<31 )
            {   ch = *text++;
                keyword[len++] = ToUpper(ch);
            } else text++;
        keyword[len]='\0';

        if( ptr )
        {   tmp = &ptr->info;
            ptr = (void __far*)0;
        } else tmp = &HelpInfo;

        while( *tmp )
        {   res = _fstrcmp(keyword,(*tmp)->keyword);
            if( res==0 ) /* Exact Match */
            {   ptr = *tmp;
                break;
            } else if( res<0 )
                break;
            tmp = &(*tmp)->next;
        }

        if( !ptr )
        {   if( !FreeInfo )
            {   ptr = (HlpEntry __far*)_fmalloc(HelpPool*sizeof(HlpEntry));
                RegisterAlloc( ptr );
                if( !ptr ) 
                    RasMolFatalExit(MsgStrs(RfeCmdMem));
                for( i=1; i<HelpPool; i++ )
                {   ptr->next = FreeInfo;
                    FreeInfo = ptr++;
                }
            } else
            {   ptr = FreeInfo;
                FreeInfo = ptr->next;
            }

            ptr->keyword = (char __far*)_fmalloc(len+1);
            if( !(ptr->keyword) ) 
                    RasMolFatalExit(MsgStrs(RfeCmdMem));
                RegisterAlloc( (ptr->keyword) );
            for( i=0; i<=len; i++ )
                ptr->keyword[i] = keyword[i];

            ptr->info = (void __far*)0;
            ptr->next = *tmp;
            ptr->fpos = 0;
            *tmp = ptr;
        }
    }
    return ptr;
}


static void InitHelpFile( void )
{
    register char *dst;
    register HlpEntry __far *fix;
    register HlpEntry __far *ptr;
    register FILE *fp;
    register Long pos;
    char buffer[82];

    if(!*RasMolPath)
        return;

    dst = RasMolPath;
    dst = strcpy(HelpFileName,dst);
    while( *dst++ ) {};
    dst--;
    dst = strcpy(dst,"help");
    dst += 4;
    *dst++ = DirChar;
    strcpy(dst,"rasmol.hlp");

    fp=fopen(HelpFileName,"rb");
    if( !fp )
    {   InvalidateCmndLine();
        WriteString(MsgStrs(HlpHFil));
        return;
    }


    pos = 0;
    xfgets(buffer,80,fp);
    while( !feof(fp) )
    {    fix = (void __far*)0;
         while( *buffer=='?' )
         {   ptr = EnterHelpInfo(buffer+1);
             if( ptr )
             {   ptr->info = fix;
                 fix = ptr;
             }

             pos = ftell(fp);
             if( !xfgets(buffer,80,fp) )
                 break;
         }

         while( fix )
         {   ptr = fix->info;
             fix->info = (void __far*)0;
             fix->fpos = pos;
             fix = ptr;
         }

         while( xfgets(buffer,80,fp) )
             if( *buffer=='?' )
                 break;
    }
    fclose(fp);
}


void FindHelpInfo( char *top, char *subtop )
{
    register HlpEntry __far * __far *tmp;
    register HlpEntry __far *ptr;
    register int res;
    register Long pos;
    register FILE *fp;
    char buffer[82];
    int found;

    if( !HelpInfo )
    {   InvalidateCmndLine();
        WriteString(MsgStrs(HlpHFil));
        return;
    }

    found = 0;
    if( *top )
    {   ptr = NULL;
        tmp = &HelpInfo;

        while( *tmp )
        {   res = _fstrcmp(top,(*tmp)->keyword);
            if( res<0 )
            {   if( PrefixString(top,(*tmp)->keyword) )
                {   ptr = *tmp;
                    if( ptr->next && 
                        PrefixString(top,ptr->next->keyword) )
                    {   InvalidateCmndLine();
                        WriteString(MsgStrs(HlpHTop));
                        return;
                    } else break;
                } else break;
            } else if( res==0 ) 
            {   ptr = *tmp;
                found = 1;
                break;
            }
            tmp = &(*tmp)->next;
        }

        if( !found )
        {   InvalidateCmndLine();
            WriteString(MsgStrs(HlpHNone));
            return;
        }

        tmp = &ptr->info;

        if( *subtop ) {
            ptr = (void __far*)0;
            found = 0;
            while( *tmp )
            {   res = _fstrcmp(subtop,(*tmp)->keyword);
                if( res<0 )
                {   if( PrefixString(subtop,(*tmp)->keyword) )
                    {   ptr = *tmp;
                        if( ptr->next && 
                            PrefixString(subtop,ptr->next->keyword) )
                        {   InvalidateCmndLine();
                            WriteString(MsgStrs(HlpHTop));
                            return;
                        } else break;
                    } else break;
                } else if( res==0 ) 
                {   ptr = *tmp;
                found = 1;
                    break;
                }
                tmp = &(*tmp)->next;
            }
            if( !found )
            {   InvalidateCmndLine();
                WriteString(MsgStrs(HlpHNone));
                return;
            }
        }

        if( !ptr->fpos )
        {   InvalidateCmndLine();
            WriteString(MsgStrs(HlpHNone));
            return;
        } else pos=ptr->fpos;

    } else return;


    if( !(fp=fopen(HelpFileName,"rb")) )
        RasMolFatalExit(MsgStrs(RfeHROpn));

    InvalidateCmndLine();

    fseek(fp,pos,SEEK_SET);
    while( xfgets(buffer,80,fp) )
        if( *buffer!='?' )
        {   InvalidateCmndLine();
            WriteString(buffer);
        } else break;
    fclose(fp);
}



void StartHelpHTML( void )
{
    if( !*HelpHTMLSource )
    {   InvalidateCmndLine();
		WriteString(MsgStrs(HlpHTMLHelp));
        return;
    } 

#ifdef MSWIN
	ShellExecute(NULL, NULL, HelpHTMLSource, 
			NULL,"C:\\",SW_SHOWNORMAL);
#endif
}

/* Initiate default path in rasmol/help subdiectory */
static void InitHelpHTML( void ) {
    register char *dst;
    register FILE *fp;

    if(!*RasMolPath)
        return;

    dst = RasMolPath;
    dst = strcpy(HelpHTMLSource,dst);
    while( *dst++ ) {};
    dst--;
    dst = strcpy(dst,"help");
    dst += 4;
    *dst++ = DirChar;
    strcpy(dst,"index.htm");
    if( !(fp=fopen(HelpHTMLSource,"rb")) )
        *HelpHTMLSource = '\0';
    else
        fclose(fp);
}

void InitializeHelp( void )
{
    *HelpFileName = '\0';
    *HelpHTMLSource = '\0';

    FreeInfo = (void __far*)0;
    HelpInfo = (void __far*)0;

    InitHelpFile();
    InitHelpHTML();


}