/*
 * FILE       : man.c
 * NATIVE NAME: ReactOS manual browser
 * AUTHOR     : Semyon Novikov (tappak)
 * PROJECT    : ReactOS Operating System
 * DESCRIPTION: manual file browser (Use Linux man file syntax)
 * DATE       : 2004-03-29
 * LICENSE    : GPL
 */

 /*  Known issues.
  *  1. Scroll screen
  *  2. Non ENVIRONMENT manpath varrible
  *  3. At the end of man page must be ./" tag!
  */


#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <windows.h>
#include <wincon.h>

#define MAXLINE 256
#define BOLD 7|9
#define ITALIC 3|9
#define NORMAL 7|0

/*===[functions]===*/
void SetCl(WORD cl);
int  OpenF(char* name);
int  CloseF(void);
void Usage(void);
int AnalyzeArgv(char *);
int AnalyzeFile();
/*=================*/

/*====[Globals]====*/
FILE* manfile;
char OpenFlag=0;
char manpath[MAX_PATH];
/*=================*/

void
SetCl(WORD cl)
{
 SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),cl);
}

int
OpenF(char* name)
{
    int ret = 0;
    char *cp;

    /* C:\man\\... */
    cp = getenv("SystemDrive");
    if (cp && *cp)
    {
        strcpy(manpath, cp);
        strcat(manpath, "\\man\\");
    }
    else
    {
        strcpy(manpath, "C:\\man\\");
    }
    strcat(manpath, name);

    manfile = fopen(manpath, "r");
    if (manfile != NULL)
    {
        OpenFlag = 1;
        AnalyzeFile();
    }
    else
    {
        ret = -1;
    }

    return ret;
}

int
CloseF()
{
    int retval=0;

    if(fclose(manfile))
     OpenFlag=0;
    else retval=-1;

    return retval;
}

void
Usage()
{
    puts("usage: man [command]");
    puts("see \"man man\" for details");
}

int
AnalyzeArgv(char *argument)
{
    int element;
    char HelpFlag=0;
    char *keys[]={"--help","/h","/?","-h"};
    char *sections[]={".1",".2",".3",".4",".5",".6",".7",".8",".9"};
    char *filename=(char*)malloc(sizeof(char)*MAXLINE);

    strcpy(filename,argument); //save argument value

    for(element=0;element<_countof(keys);element++)
    {
     if(!strcmp(keys[element],argument))
     {
      Usage();
      HelpFlag=1;
     }
    }

   element = 0;

   if(!HelpFlag)
   {

   if(OpenF(filename))
   {
    while(element<_countof(sections)&&OpenF(strcat(filename,sections[element])))
    {
     strcpy(filename,argument);
     element++;
    }

    if(element>=_countof(sections)) printf("No manual for %s\n",argument);
   }

   }

    return element;
}

void sh_outp(char *cur_string)
{
    int symbol;
    putchar('\n');
    putchar('\n');
    for(symbol=3;putchar(cur_string[symbol]); symbol++);
}

void th_outp(char *cur_string, char *THtag)
{
    int symbol;
    putchar('\n');
    putchar('\n');
    putchar('\t');
    putchar('\t');
    SetCl(ITALIC);
     for(symbol=3;putchar(THtag[symbol]); symbol++);
    putchar('\n');
    SetCl(NORMAL);
}

void text_outp(char *cur_string)
{
    int symbol=0;

    if(cur_string[0]=='.')
        while(cur_string[symbol]!=' ')
            symbol++;

    for(;cur_string[symbol]!='\n'; symbol++)
        putchar(cur_string[symbol]);

    putchar(' ');
}

int
AnalyzeFile()
{
    char *cur_string=(char*)malloc(sizeof(char)*MAXLINE);
    char *THtag=(char*)malloc(sizeof(char)*MAXLINE);




    while(fgets(cur_string,MAXLINE,manfile))

/* TAGs processing */
     if((cur_string[0]=='.')&&(cur_string[1]=='S')&&
       (cur_string[2]=='H')) // .SH tag
      {
       SetCl(BOLD);
       sh_outp(cur_string);
       SetCl(NORMAL);
      }
     else
     if((cur_string[0]=='.')&&(cur_string[1]=='I')&&
       (cur_string[2]==' ')) // .I tag
      {
       SetCl(ITALIC);
       text_outp(cur_string);
       SetCl(NORMAL);
      }
     else
     if((cur_string[0]=='.')&&(cur_string[1]=='/')&&
       (cur_string[2]=='\"')); // ./" tag (comment)

     else
     if((cur_string[0]=='.')&&(cur_string[1]=='T')&&
       (cur_string[2]=='H')) // .TH tag
      {
       strcpy(THtag,cur_string);
      }
     else
     if((cur_string[0]=='.')&&(cur_string[1]=='B')&&
       (cur_string[2]==' ')) // .B tag
      {
       SetCl(BOLD);
       text_outp(cur_string);
       SetCl(NORMAL);
      }
      else
      if((cur_string[0]=='.')&&(cur_string[1]=='N')&&
        (cur_string[2]=='L'))
       {
        putchar('\n');
        putchar(' ');
       }

     else
     {
       text_outp(cur_string); // print plane text
     }
    th_outp(cur_string, THtag);
    /* END of TAGs processing */

    free(cur_string);
    free(THtag);
    return 0;
}


int
main(int argc, char *argv[])
{

  switch(argc)
    {
     case 1:  Usage(); break;
     case 2:  AnalyzeArgv(argv[1]);break;
     default: Usage();break;
    }

   if(OpenFlag)CloseF();
   SetCl(NORMAL);
   return 0;
}