#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>

#include <starlet.h>
#include <lib$routines.h>
#include <ssdef.h>
#include <descrip.h>
#include <rms.h>

typedef struct manl{
    struct manl *next;
    char *filename;
}man, *manPtr;

typedef struct pf_fabnam{
    struct FAB dfab;
    struct RAB drab;
    struct namldef dnam;
    char   expanded_filename[NAM$C_MAXRSS + 1];
} pfn, *pfnPtr;

/*----------------------------------------------------------*/

fpcopy( char *output, char *input, int len )
{
char    *is, *os;
int i;

if ( len ){
    for ( is = input, os = output, i = 0; i < len ; ++i, ++is, ++os){
            *os = *is;
    }
    *os = 0;
}else{
    output[0] = 0;
}
}


/*----------------------------------------------------------*/
/* give part of ilename in partname. See code for proper
   value of i ( 0 = node, 1 = dev, 2 = dir,3 = name etc.
*/

int fnamepart( char *inputfile, char *part, int whatpart )
{
pfnPtr pf;
int     status;
char    ipart[6][256], *i, *p;

pf = calloc( 1, sizeof( pfn ) );

pf->dfab = cc$rms_fab;
pf->drab = cc$rms_rab;
pf->dnam = cc$rms_naml;

pf->dfab.fab$l_naml = &pf->dnam;

pf->dfab.fab$l_fna = (char *) -1;
pf->dfab.fab$l_dna = (char *) -1;
pf->dfab.fab$b_fns = 0;
pf->dfab.fab$w_ifi = 0;

pf->dnam.naml$l_long_defname = NULL; //inputfile;
pf->dnam.naml$l_long_defname_size = 0;//strlen( inputfile );

pf->dnam.naml$l_long_filename = inputfile;
pf->dnam.naml$l_long_filename_size = strlen( inputfile );

pf->dnam.naml$l_long_expand = pf->expanded_filename;
pf->dnam.naml$l_long_expand_alloc = NAM$C_MAXRSS ;

pf->dnam.naml$b_nop |= NAML$M_SYNCHK | NAML$M_PWD;

status = sys$parse( &pf->dfab, 0, 0 );
if ( !(status&1) ){
    free( pf );
    return( status );
}

fpcopy ( ipart[0], pf->dnam.naml$l_long_node , pf->dnam.naml$l_long_node_size);
fpcopy ( ipart[1], pf->dnam.naml$l_long_dev , pf->dnam.naml$l_long_dev_size);
fpcopy ( ipart[2], pf->dnam.naml$l_long_dir , pf->dnam.naml$l_long_dir_size);
fpcopy ( ipart[3], pf->dnam.naml$l_long_name , pf->dnam.naml$l_long_name_size);
fpcopy ( ipart[4], pf->dnam.naml$l_long_type , pf->dnam.naml$l_long_type_size);
fpcopy ( ipart[5], pf->dnam.naml$l_long_ver , pf->dnam.naml$l_long_ver_size);

for( i = ipart[ whatpart ], p = part; *i; ++i, ++p){
   if ( p == part ){
      *p = toupper( *i );
   }else{
      *p = tolower( *i );
   }
}
*p = 0;

free( pf );
return(1);
}
/*----------------------------------------------------------*/

int find_file(char *filename,char *gevonden,int *findex)
{
int     status;
struct  dsc$descriptor gevondend;
struct  dsc$descriptor filespec;
char    gevonden_file[NAM$C_MAXRSS + 1];

filespec.dsc$w_length = strlen(filename);
filespec.dsc$b_dtype  = DSC$K_DTYPE_T;
filespec.dsc$b_class  = DSC$K_CLASS_S;
filespec.dsc$a_pointer = filename;

gevondend.dsc$w_length = NAM$C_MAXRSS;
gevondend.dsc$b_dtype  = DSC$K_DTYPE_T;
gevondend.dsc$b_class  = DSC$K_CLASS_S;
gevondend.dsc$a_pointer = gevonden_file;

status=lib$find_file(&filespec,&gevondend,findex,0,0,0,0);

if ( (status & 1) == 1 ){
       strcpy(gevonden,strtok(gevonden_file," "));
}else{
       gevonden[0] = 0;
}

return(status);
}


/*--------------------------------------------*/

manPtr addman( manPtr *manroot,char *filename )
{
manPtr m,f;

m = calloc( 1, sizeof( man ) );
if ( !m ) return( NULL );

m->filename = strdup( filename );

if ( *manroot == NULL ){
   *manroot = m;
}else{
   for( f = *manroot; f->next ; f = f->next );
   f->next = m;
}
return(m);
}

/*--------------------------------------------*/
void freeman( manPtr *manroot )
{
manPtr m,n;

for( m = *manroot; m ; m = n ){
     free( m->filename );
     n = m->next;
     free( m );
}
*manroot = NULL;
}

/*--------------------------------------------*/

int listofmans( char *filespec, manPtr *manroot )
{
manPtr  r;
int     status;
int     ffindex=0;
char    gevonden[NAM$C_MAXRSS + 1];

while(1){
    status = find_file( filespec, gevonden, &ffindex );

    if ( (status&1) ){
        r = addman( manroot, gevonden );
        if ( r == NULL ) return(2);
    }else{
        if ( !( status&1 ) ) break;
    }
}

lib$find_file_end( &ffindex );
if ( status == RMS$_NMF) status = 1;


return( status );
}

/*--------------------------------------------*/

int convertman ( char *filespec, FILE *hlp , int base_level, int add_parentheses )
{
FILE    *man;
char    *in, *uit;
char    *m,*h;
size_t  len, thislen, maxlen= 50000;
int     bol,mode, return_status=1;
char subjectname[ NAM$C_MAXRSS + 1 ];

in  = calloc( 1, maxlen + 1 );
uit = calloc( 1, maxlen + 1 );

if ( in == NULL || uit == NULL ) return(2);

man = fopen( filespec, "r" );
if ( man == NULL ) return(vaxc$errno);

for( len = 0; !feof( man ) && len < maxlen ; len += thislen ){
    thislen = fread( in + len, 1, maxlen - len, man );
}

fclose(man);

m = in;
h = uit;

*(m + len ) = 0;

for ( mode = 0, bol = 1 ; *m; ++m ){

    switch ( mode ){
        case 0:
          switch(*m){
            case '.':
                if ( bol ){
                    mode = 1;
                }else{
                    *h = *m;
                    ++h;
                }
                break;
            case '\\':
                if ( bol ){
                   *h = ' ';++h;
                   *h = ' ';++h;
                }
                mode = 2;
                break;
            default:
                if ( bol ){
                   *h = ' ';++h;
                   *h = ' ';++h;
                }
                *h = *m;
                ++h;
                break;
          }
          break;
        case 1: /* after . at bol */

          switch(*m){
            case '\\':
                while( *m != '\n' && *m != '\r' && *m )++m;
                mode = 0;
                break;
            case 'B':
                   ++m;
                   *h = ' ';++h;
                   mode = 0;
                   break;
            case 'I':
                    /* remove preceding eol */
                    if ( *(m+1) != 'P' ){
                        --h;
                        while ( (*h == '\n' || *h == '\r') && h > uit )--h;
                        ++h;
                    }

                    /* skip .Ix */
                    for(;*m != ' ' && *m != '\n' && *m != '\r'; ++m);

                    /* copy line up to EOL */

                    for(;*m != '\n' && *m != '\r' && *m; ++m, ++h)*h = *m;

                    /* if line ends in ., this is an EOL */

                    if ( *(h-1) == '.'){
                         --h;
                         --m;
                    }else{
                        /* if line does not end in ., skip EOL in source */

                        if ( *(m+1) == '\n' || *(m+1) == '\r')++m;
                    }
                    mode = 0;
                    break;
            case 'S':
                 if ( *(m+1) == 'H' ){
                    *h = '\n';++h;
                    if ( strncmp( m+3 ,"NAME",4) == 0 ||
                         strncmp( m+3 ,"SYNOPSIS",8) == 0 ||
                         strncmp( m+3 ,"DESCRIPTION",11) == 0 ){
                        while( *m != '\n' && *m != '\r')++m;
                        mode = 0;
                    }else{
                        ++m;

                        /* write help level, and flag it */

                        *h = '0' + base_level + 1;++h;
                        return_status |= 2;

                        *h = ' ';++h;

                        /* skip H (or whatever after S) and blank */
                        ++m;++m;

                        for(;*m != '\n' && *m != '\r' && *m; ++m, ++h){

                           /* write help label in lowercase, skip quotes */
                           /* fill blanks with underscores */

                           if ( *m != '\"' ){
                                *h = tolower( *m );
                                if (*h == ' ') *h = '_';
                           }else{
                                --h;
                           }
                        }

                        /* Add a linefeed or two */

                        *h = *m;++h;
                        *h = *m;++h;

                        mode = 0;
                    }
                 }
                 break;
            case 'T':
                 if ( *(m+1) == 'H' ){
                    *h = '0' + base_level; ++h;
                    return_status |= 2;
                    *h = ' ';++h;
                    for ( m = m + 3; *m != ' ' && *m ; ++m, ++h ){
                          *h = *m;
                    }
                    if ( add_parentheses ){
                          *h = '(';++h;
                          *h = ')';++h;
                    }
                    while( *m != '\n' && *m != '\r' && *m )++m;
                    mode = 0;
                 }
                 break;
            default:
                ++m;
                mode = 0;
                break;
           }
           break;
        case 2: /* after \ skip two characters or print the backslash */
          switch(*m){
            case '\\':
                *h = *m;
                ++h;
                mode = 0;
                break;
            default:
                ++m;
                mode = 0;
                break;
           }
           break;
    } /*end switch mode */

    bol = 0;
    if ( *m == '\n' || *m == '\r') bol = 1;

}/* end for mode */

*h = 0;


if ( (return_status&2) ){
    fprintf( hlp, "%s\n\n", uit);
}else{
    fnamepart( filespec, subjectname,3);
    if ( *subjectname ){
        fprintf( hlp, "%d %s\n\n%s\n\n", base_level, subjectname, uit);
    }else{
        /* No filename (as is the case with a logical), use first word as subject name */
        char *n,*s;

        for(n = in; isspace( *n );++n);
        for(s = subjectname; !(isspace( *n )); ++n,++s)*s = *n;
        *s = 0;

        fprintf( hlp, "%d %s\n\n%s\n\n", base_level, subjectname, uit);
    }
}

/*
 printf( "read %d from %s, written %d to helpfile, return_status = %d\n",
    len, filespec, strlen(uit), return_status );
*/

free( m );
free( h );

return ( 1 );
}

/*--------------------------------------------*/

int convertmans( char *filespec, char *hlpfilename, int base_level, int append, int add_parentheses )
{
int status=1;
manPtr  manroot=NULL, m;
FILE    *hlp;

if ( append ){
    hlp = fopen( hlpfilename,"a+");
}else{
    hlp = fopen( hlpfilename,"w");
}

if ( hlp == NULL ) return( vaxc$errno );

status = listofmans( filespec, &manroot );
if ( !(status&1) ) return( status );

for ( m = manroot ; m ; m = m->next ){
    status = convertman( m->filename, hlp , base_level, add_parentheses );
    if ( !(status&1) ){
        fprintf(stderr,"Convertman of %s went wrong\n", m->filename);
        break;
    }
}
freeman( &manroot );
return( status );
}

/*--------------------------------------------*/
void print_help()
{
   fprintf( stderr, "Usage: [-a] [-b x] convertman <manfilespec> <helptextfile>\n" );
   fprintf( stderr, "       -a append <manfilespec> to <helptextfile>\n" );
   fprintf( stderr, "       -b <baselevel> if no headers found create one with level <baselevel>\n" );
   fprintf( stderr, "          and the filename as title.\n" );
   fprintf( stderr, "       -p add parentheses() to baselevel help items.\n" );

}
/*--------------------------------------------*/

main ( int argc, char **argv )
{
int     status;
int     i,j;
int     append, base_level, basechange, add_parentheses;
char    *manfile=NULL;
char    *helpfile=NULL;

if ( argc < 3 ){
   print_help();
   return( 1 ) ;
}

append     = 0;
base_level = 1;
basechange = 0;
add_parentheses = 0;

for ( i = 1; i < argc; ++i){
    if ( argv[i][0] == '-' ){
        for( j = 1; argv[i][j] ; ++j ){
            switch( argv[i][j] ){
                case 'a':
                    append = 1;
                    break;
                case 'b':
                    if ( (i+1) < argc ){
                        base_level = atoi( argv[ i + 1 ] );
                        basechange = 1;
                    }
                    break;
                case 'p':
                    add_parentheses = 1;
                    break;
            }
        }
        if ( basechange){
            basechange = 0;
            i = i + 1;
        }
    }else{
        if ( manfile == NULL ){
            manfile = strdup( argv[i]);
        } else if ( helpfile == NULL ){
            helpfile = strdup( argv[i]);
        } else {
            fprintf( stderr, "Unrecognized parameter : %s\n", argv[i]);
        }
    }
}


/* fprintf( stderr,"manfile: %s, helpfile: %s, append: %d, base_level : %d\n",
        manfile, helpfile, append, base_level);
*/

status = convertmans( manfile, helpfile, base_level, append, add_parentheses );

free( manfile );
free( helpfile );

return( status );
}