#include "assert.h"   /* must be first for use eith hc2 */
#include "rs.h"
#include "ru.h"
#include "df.h"
#include "RSreg.h"
#include "end.h"
#include "rem.h"
#include "profile.h"
#include "a1client.h"
#include "al.h"
#include "string.h"
#include "ruleeditor.h"
#include "alpop.h"
#include "text.h"

#define RS_NO_RULE_SET_STRING  "couldn't find rule set"
#define RS_NO_RULE_SET_HELP  "couldn't find rule set HELP"

/*--------------------------------------------------*/
void rs_Init(display,argc,argv)
     Display *display;
     int *argc;
     char **argv;
{
  int i;
  Bool ForceIt, AsRuleSet;
  ForceIt=Bool_FALSE;
  AsRuleSet=Bool_FALSE;  /* are we getting an anyone server rule set */

  /* check to see that there are enough args */
  if (*argc<2) {
    printf("ruleeditor: Missing rule set or anyone server client name.\n");
    ruleeditor_Usage();
    ruleeditor_Cleanup(-1);
  }
  
  /* see if this is an anyone server rule set */
  for (i=1;i<*argc;i++) {
    if (strcmp("-as",argv[i])==0) {
      if (*argc>(i+1) && argv[i+1][0]!='-')  {
	RE_debug1("As client from command line =%s\n",argv[i+1]);
	AsClient_GR=argv[i+1]; 
	AsRuleSet=Bool_TRUE;
      }
      else  {
	if (AlProfile_has_value(ALPROF_DEF_ANYONE)==Bool_TRUE) {
	  AsClient_GR=AlProfile_get_CP_val(ALPROF_DEF_ANYONE); 
	  RE_debug1("As client at profile=%s\n",AsClient_GR);
	  AsRuleSet=Bool_TRUE;
	}
	else {
	  Al_warning("ruleeditor: anyone server not specified on command line and not in profile.");
	  ruleeditor_Cleanup(-1);
	}
      }
    }
  }
  
  if (AsRuleSet==Bool_FALSE) {     /* we are doing a regular rule set stuff */
    /* see if its the first arg */
    if (argv[1][0]!='-')
      RuleSetName_GR=strcpy(Memory_allocate(strlen(argv[1])+1),argv[1]);
    
    /* else look for it */
    else 
      for (i=1;i<*argc;i++) {
	if (strcmp("-rs",argv[i])==0 && *argc>i) 
	  if (RuleSetName_GR!=NULL) {
	   Al_fatal_error("ruleeditor: only one rule set may be specified.\n");
	 }
	  else
	    RuleSetName_GR=strcpy(Memory_allocate(strlen(argv[i+1])+1),
				  argv[i+1]);
      }

    /* make sure that we have a rule set at this point */
    if (RuleSetName_GR==NULL)  {
      printf("Rule Editor: Missing rule set\n");
      ruleeditor_Usage();
      ruleeditor_Cleanup(-1);
    }
  
    /* see if there's a force flag */ 
    for (i=1;i<*argc;i++) {
      if (strcmp("-f",argv[i])==0)
	ForceIt=Bool_TRUE;
    }

    if (AlRSreg_load(RuleSetName_GR)==Bool_TRUE)
      RuleSet_GR=AlRSreg_find(RuleSetName_GR);
    else {
      int answerI;
      char answerC;
      if (ForceIt==Bool_FALSE) {
	char *message=AlText_get(RE_TEXT_FILE,RS_NO_RULE_SET_STRING);
	char *help=AlText_get(RE_TEXT_FILE,RS_NO_RULE_SET_HELP);
	char *buff=Memory_allocate(strlen(message)+strlen(RuleSetName_GR));
	sprintf(buff,message,RuleSetName_GR);
	if (AlPop_Query(ALPOP_QUESTION,
			buff,
			help,
			NULL,
			ALPOP_HANG_BELOW,
			display,
			ALPOP_OK | ALPOP_CANCEL | ALPOP_HELP)==(VOIDP)1) {
	  RuleSet_GR=AlRuleSet_create(NULL,RuleSetName_GR,
				      (time_t)0,(time_t)0,
				      (Darray)NULL);
	  if (AlRSreg_register(RuleSet_GR)==Bool_FALSE) {
	    Al_warning("ruleeditor:unable to register the new rule set.Aborting.\n");
	    ruleeditor_Cleanup(-1);
	  }
	  AlRuleSet_set_desc(RuleSet_GR,"<no description>");
	}
	else 
	  ruleeditor_Cleanup(0); 
      }
      else {
	RuleSet_GR=AlRuleSet_create(NULL,RuleSetName_GR,
				    (time_t)0,(time_t)0,
				    (Darray)NULL);
	if (AlRSreg_register(RuleSet_GR)==Bool_FALSE) {
	  Al_warning("ruleeditor: unable to register the new rule set.Aborting.\n");
	  ruleeditor_Cleanup(-1);
	}
	AlRuleSet_set_desc(RuleSet_GR,"<no description>");
      }
    }
  }

  else {   /*=== looking for an anyone server */
    RE_debug("check point1\n");
    RuleSetName_GR=AsClient_GR;
    AlA1C_init();
    RE_debug1("as client name=%s\n",AsClient_GR);
    if ((RuleSet_GR=AlA1C_read_rules(AsClient_GR))==NULL) {  
      printf("ruleeditor: unable to read your rulesets off the anyone server \
%s\n",AsClient_GR); 
      ruleeditor_Cleanup(-1);
    }
  }
}