/***********************************************************************
*
*	LVFormat.c by D. Keletsekis (7/10/98) - dck@hol.gr
*
*	This program was made to be used with the CedBar.gc gui, a icon
*	bar for the CygnusEd editor. It can, however, be used anywhere
*	else too, if you need any of it's funtions.
*
*	It creates a port named "LVFormat" and will sit around waiting
*	for commands sent from Gui4Cli using the CALL command. It will
*	then perform whatever action is required, on the CURRENT listview.
*	
*	These are the commands you can CALL from Gui4Cli :
*
*	Indent  [string]
*	- Will indent the current listview by whatever "string"
*	  contains. (Optional - default is 3 spaces).
*	  ex: CALL LVFormat INDENT ">>>"  ; indent by 3 > thingies..
*
*	UnIndent
*	- Will find the minimum indentation and will move all text
*	  in by that much.
*
*	AGClean
*	- Will remove all AmigaGuide formating from the current LV.
*
*	WRAP [Length] [Justify] [Header]
*	- Will wrap the selected text. The wraping is intelligent
*	  in that it will try to figure out your indentations and
*	  wrap the text so that they remain as they were.
*	- The options you can give are :
*	  Length  - The length that you want the lines wraped to. The
*		    default, if you give weird values, is 60.
*	  Justify - This must be either "" (i.e. nothing) or :
*		    JUST   - meaning justify the text by adding extra 
*		    	     spaces to make up the line length.
*		    UNJUST - remove all these extra spaces.
*		    CENTER - center the text (automatically unjust)
*		    RESET  - remove all extra spacing & indentations.
*	  Header  - a string of characters that wrap should consider
*		    as part of the line header. This is usefull for
*		    wrapping email messages etc, by giving ">/" or
*		    whatever your mailer uses. Spaces are always in.
*
************************************************************************/
// define this for faster exec calls
#define __USESYSBASE

#include <exec/exec.h>
#include <exec/execbase.h>
#include <exec/memory.h>
#include <dos/dosextens.h>
#include <dos/rdargs.h>
#include <dos/dostags.h>
#include <string.h>
#include <stdio.h>
#include <ctype.h>
#include <dos.h>
#include <proto/dos.h>
#include <proto/exec.h>
#include <graphics/text.h>

// the Gui4Cli include file
#include <Gui4Cli.h>	// use "Gui4Cli.h" if you keep it in same dir

// declare a version string (if you want..)
static const char VERSION[] = "\0$VER: LVFormat 1.0 (D.Keletsekis 15/9/98)";

// the prototypes - other includes at end of file..
#include "lvformat_protos.h"

// ===============================================================
// 	MAIN() - note there is no need for a main() function
//	The program starts at the 1st function it finds, which
//	can be any name..
// ===============================================================

LONG anyname(void)
{
   struct ExecBase *SysBase = (*((struct ExecBase **) 4));
   struct DosLibrary *DOSBase=NULL;
   struct Process *myself = (struct Process *)(SysBase->ThisTask);

   struct MsgPort *myport=NULL;            // our port
   struct g4cmsg  *msg;    // Gui4Cli message pointer
   int    rc = 10;         // return code
   LONG   stayalive = 1;   // Quit counter
   BOOL   msgreplied;      // flag
   LONG   num=60;	   // default wrap length
   SHORT  just=0;	   // justify flag

   // -------------------- open the dos library or die..

   if (!(DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 36L)))
   {   myself->pr_Result2 = ERROR_INVALID_RESIDENT_LIBRARY;
       goto endprog;
   }

   // --------------------- Open message port or die..

   if (!(myport = openport ("LVFormat", SysBase, DOSBase)))
   {   PutStr ("Couldn't open LVFormat port!\n");
       goto endprog;
   }

   // ---------------------- Main wait() & process loop

   while (stayalive > 0)
   {
      WaitPort (myport);
      msg = (struct g4cmsg *)GetMsg(myport);
      msgreplied = 0;  // flag that message is outstanding

      // check that the message is like we expect it..
      if ((msg->magic != 392001) || (msg->type != GM_COMMAND) || (!msg->gcmain) || (!msg->com))
      {   msg->res = 20;  // indicate error
          goto endloop;   // skip message
      }
      
      // --------------- Parse & execute the commands..
      // The command name is in msg->com and it's already converted
      // into upper case by Gui4Cli.

      else if (!strcmp(msg->com, "INDENT"))        // Indent [IndentString]
      {
         // if they sent us an argument..
         if (msg->args[0]) 
            indentlist (msg->gcmain, msg->args[0], SysBase, DOSBase);
         else // default = indent by 3 spaces
            indentlist (msg->gcmain, "   ", SysBase, DOSBase);
      }

      else if (!strcmp(msg->com, "UNINDENT"))      // remove all leading spaces
      {
           unindentlist (msg->gcmain, SysBase, DOSBase);
      }

      else if (!strcmp(msg->com, "AGCLEAN"))       // clear amiga guide stuff
      {
           agclean (msg->gcmain, SysBase, DOSBase);
      }

      // WRAP [LineLength] [JUST/UNJUST] [HeaderCharacters]
      else if (!strcmp(msg->com, "WRAP"))
      {
           // get wrap length (default = 60)
           if (msg->args[0])
               if ((StrToLong(msg->args[0], &num)) <= 0) num = 60;

           // get justification mode (just/unjust or nothing)
           if (msg->args[1])
           {   makeupper(msg->args[1]); 
	       just=0;
               if      (!strcmp(msg->args[1], "JUST"))   just = 1;
               else if (!strcmp(msg->args[1], "UNJUST")) just = 2;
               else if (!strcmp(msg->args[1], "CENTER")) just = 3;
               else if (!strcmp(msg->args[1], "RESET"))  just = 4;
           }

	   // args[2] contains the header chars, if any.
           rewrap (msg->gcmain, num, msg->args[2], just, SysBase, DOSBase);
      }

      // Quiting :
      // A gui which wants to use us will "Register", so we ++stayalive
      // and quit only when all registered guis have told us to quit.
      else if (!strcmp(msg->com, "QUIT"))               // asked to quit
           --stayalive;
      else if (!strcmp(msg->com, "REGISTER"))           // add a life
           ++stayalive;

      endloop:
      if (!msgreplied) ReplyMsg ((struct Message *)msg);

   }  // end of main while(stayalive) loop

   rc = 0; // everything ok..

   // ---------------------- END PROG - CLEAN UP

   endprog :
   if (myport) closeport (myport, SysBase, DOSBase);
   if (DOSBase) CloseLibrary((struct Library *)DOSBase);
   return (rc);
}

// ================================================================
// 	create a new public message port
// ================================================================

struct MsgPort *openport (char *portname, struct ExecBase *SysBase, struct DosLibrary *DOSBase)
{
   struct MsgPort *port=NULL;

   Forbid ();
   if ((port = FindPort(portname)) != NULL)  
   {    // if port already exists - return NULL
        port = NULL;
   }
   else
        port = CreatePort (portname, 0);
   Permit();

   return (port);
}

// ================================================================
//	 free a public message port
// ================================================================

void closeport (struct MsgPort *port, struct ExecBase *SysBase, struct DosLibrary *DOSBase)
{
   struct Message *msg;

   Forbid ();
   // empty port
   while (msg = GetMsg (port))
          ReplyMsg (msg);
   // remove port name since it's a public msg port
   if (port->mp_Node.ln_Name)
          RemPort (port);
   // delete port
   DeleteMsgPort (port);
   Permit ();
}

// ==============================================================
// Send a message, wait for reply.. 
// -->> return 0 for OK or error code otherwise
// - portname = the name of Gui4Cli message port (usually Gui4Cli)
// - type     = GM_LOCK, GM_UNLOCK, GM_COMMAND etc..
// - command  = the command line or NULL
// ==============================================================

sendmsg (UBYTE *portname, LONG type, UBYTE *command,
	 struct ExecBase *SysBase, struct DosLibrary *DOSBase)
{
   struct Process *myself = (struct Process *)(SysBase->ThisTask);
   struct MsgPort *gcport, *myport;
   struct g4cmsg  msg;

   // our port pointer;
   myport = &myself->pr_MsgPort;
   // clear & set up the message structure
   memset ((char *)&msg, 0, sizeof(msg));
   msg.node.mn_ReplyPort = myport;
   msg.node.mn_Length = sizeof(struct g4cmsg);
   msg.magic = 392001; // so that g4c recognises us
   msg.type = type;
   msg.com  = command;

   Forbid();
   if (gcport = FindPort(portname))
   {
      PutMsg (gcport, &msg.node);
      Permit();
      // wait for reply..
      WaitPort (myport);
      GetMsg (myport);
      // return Gui4Cli's return code (probably 0 meaning OK)
      return (msg.res);
   }
   Permit();
   PutStr ("Could not find port!\n"); 
   return (10);
}

// ==============================================================
// convert string to UPPER case 
// (since stricpm doesn't work without the startup code)
// ==============================================================
void makeupper (UBYTE *str)
{
   if (!str) return;
   while (*str)
   {   if ((*str >= 'a') && (*str <= 'z')) *str -= 32;
       ++str;
   } 
}

// ==============================================================
//	check if char g occurs in str - return boolean
// ==============================================================
BOOL isin (UBYTE g, UBYTE *str)
{
   if (!str) return (0);
   while (*str)
   {   if (*str == g) return (1);
       ++str;
   }
   return (0);
}

// ================================================================
// include files here, so they are after the main function..

#include "indent.h"
#include "agclean.h"
#include "rewrap.h"
#include "lv_func.h"