source: git/modules/modgen/proc_setup.cc @ 73d7b5

/*
 * $Id: proc_setup.cc,v 1.7 2000-05-12 12:24:44 krueger Exp $
 */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <ctype.h>
#include "modgen.h"
#include <mod2.h>
#include <tok.h>
#include "typmap.h"


#if 1
#  define logx printf
#else
#  define logx
#endif
/*#define DEBUG 1*/

static char default_do_typecheck = 1;
static char default_do_return = 1;

/*========================================================================*/
int init_proc(
  procdefv p,
  char *procname,
  paramdefv ret,
  int lineno,
  language_defs language
  )
{
  int i;
  
  if( p == NULL) return -1;
  if( p->procname != NULL ) free(p->procname);
  
  if( p->funcname != NULL ) free(p->funcname);
  if( p->c_code != NULL ) free(p->c_code);
  if( p->help_string != NULL) free(p->help_string);
  if( p->example_string != NULL) free(p->example_string);
  
  if( p->paramcnt>0 ) { 
    //free(p->param);
  }

  memset((void *)p, 0, sizeof(procdef));
  p->procname = strdup(procname);

  if( ret != NULL ) {
    char typname[32];

    decl2str(ret->typ, typname);
    ret->typname = strdup(typname);
    memcpy((void *)(&p->return_val), (void *)ret, sizeof(paramdef));
  } else {
    p->return_val.name = strdup("NONE");
    p->return_val.typname = strdup("NONE");
    p->return_val.typ = NONE;
  }
  
  p->language = language;
  p->lineno = lineno;
  p->flags.auto_header = 1;
  
  p->flags.do_declaration = 1;
  p->flags.declaration_done = 0;
  p->flags.do_typecheck = default_do_typecheck;
  p->flags.typecheck_done = 0;
  p->flags.do_return = default_do_return;
  
  return 0;
}

/*========================================================================*/
void AddParam(
  procdefv p,
  paramdefv vnew,
  char *varname
  )
{
  paramdef pnew;
  int paramcnt = 0;
  char typname[32];
  
  memset(typname, 0, sizeof(typname));
  decl2str(vnew->typ, typname);
  
#if DEBUG
  logx("AddParam(%d, %s, %s, %d)\n", p->paramcnt, p->procname,
       typname, vnew->typ);
#endif

  memset((void *)&pnew, '\0', sizeof(paramdef));
  pnew.name = (char *)malloc(strlen(vnew->name)+1);
  memset(pnew.name, '\0', strlen(vnew->name)+1);
//   pnew.next = NULL;
  memcpy(pnew.name, vnew->name, strlen(vnew->name));
  pnew.typname = (char *)malloc(strlen(typname)+1);
  memset(pnew.typname, '\0', strlen(typname)+1);
  memcpy(pnew.typname, typname, strlen(typname));
  pnew.typ = vnew->typ;

  paramcnt = p->paramcnt;
  if(varname == NULL) {
    snprintf(typname, sizeof(typname), "arg%d", paramcnt);
    pnew.varname = strdup(typname);
  } else pnew.varname = strdup(varname);

 if(p->paramcnt==0) {
    p->param = (paramdefv)malloc(sizeof(paramdef));
 }
  else {
    p->param =
      (paramdefv)realloc(p->param,
                         (paramcnt+1)*sizeof(paramdef));
  }
  
  memcpy((void *)(&p->param[paramcnt]),
         (void *)&pnew, sizeof(paramdef));
  (p->paramcnt)++;
#if DEBUG
  logx("AddParam() done\n");
#endif
}

/*========================================================================*/
void proc_set_default_var(
  var_type type,
  var_token varid,
  char *varname,
  void *varvalue
  )
{
  int *i;
  char *q;

  switch(type) {
      case VAR_NUM:
      case VAR_BOOL:
        i = (int *)varvalue;
        switch(varid) {
            case VAR_TYPECHECK: default_do_typecheck = *i; break;
            case VAR_RETURN:    default_do_return = *i; break;
            default:            break;
        }
        break;
      case VAR_STRING:
        q = (char *)varvalue;
        switch(varid) {
        }
        break;
      case VAR_FILE:
        q = (char *)varvalue;
        printf("'%s'", q);
        break;

      case VAR_FILES:
        break;
  }
  printf("\n");
  
  return;
}

/*========================================================================*/
void proc_set_var(
  procdefv p,
  var_type type,
  var_token varid,
  char *varname,
  void *varvalue
  )
{
  int *i;
  char *q;
  
  
//  printf(">>>>>>>>Test 4 %s()[%d] '%s' = ", p->procname, type, varname);
  fflush(stdout);
  switch(type) {
      case VAR_NUM:
      case VAR_BOOL:
        i = (int *)varvalue;
        switch(varid) {
            case VAR_TYPECHECK: p->flags.do_typecheck = *i; break;
            case VAR_RETURN:    p->flags.do_return = *i; break;
            default:            break;
        }
        break;

      case VAR_STRING:
        q = (char *)varvalue;
        switch(varid) {
            case VAR_HELP:
              break;
        }
        break;

      case VAR_FILE:
        q = (char *)varvalue;
        //printf("'%s'", q);
        break;

      case VAR_FILES:
        break;
  }
//  printf("\n");
  
  return;
}

/*========================================================================*/
char *ReservedVarnames[] = {
  "__v",
  "__h"
  "__res",
  "__v_save"
  "__tok",
  "__index",
  NULL 
};

int check_reseverd(
  char *name
  )
{
  int i;
  
  for(i=0; ReservedVarnames[i] != NULL; i++)
    if(strcmp(ReservedVarnames[i], name)==0) return 1;
  return 0;
}
  
/*========================================================================*/