@c -*- mode: Noweb; noweb-doc-mode: texinfo-mode; noweb-code-mode: c-mode -*-

@node File s_papersizes.c,,,Top
@chapter File @file{s_papersizes.c}

@section File header

@format
@anchor{s_papersizes.c - -root-}
@i{<<s_papersizes.c : *>>=}@t{
@i{<<s_papersizes.c : copyright and license -- @ref{s_papersizes.c - copyright and license}>>}

/* DO NOT read or edit this file ! Use ../noweb/s_papersizes.nw instead */

@i{<<s_papersizes.c : include directives -- @ref{s_papersizes.c - include directives}>>}
@i{<<s_papersizes.c : global variables -- @ref{s_papersizes.c - global variables}>>}
@i{<<s_papersizes.c : s_papersizes_add_entry() -- @ref{s_papersizes.c - s_papersizes_add_entry()}>>}
@i{<<s_papersizes.c : s_papersizes_print() -- @ref{s_papersizes.c - s_papersizes_print()}>>}
@i{<<s_papersizes.c : s_papersizes_uniq() -- @ref{s_papersizes.c - s_papersizes_uniq()}>>}
@i{<<s_papersizes.c : s_papersizes_free() -- @ref{s_papersizes.c - s_papersizes_free()}>>}
@i{<<s_papersizes.c : s_papersizes_init() -- @ref{s_papersizes.c - s_papersizes_init()}>>}
@i{<<s_papersizes.c : s_papersizes_get() -- @ref{s_papersizes.c - s_papersizes_get()}>>}
@i{<<s_papersizes.c : s_papersizes_get_size() -- @ref{s_papersizes.c - s_papersizes_get_size()}>>}

}
@end format




@format
@anchor{s_papersizes.c - copyright and license}
@i{<<s_papersizes.c : copyright and license>>=}@t{
/* gEDA - GPL Electronic Design Automation
 * libgeda - gEDA's library
 * Copyright (C) 1998-2000 Ales V. Hvezda
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
 */

}
@end format




@format
@anchor{s_papersizes.c - include directives}
@i{<<s_papersizes.c : include directives>>=}@t{
#include <config.h>

#include <stdio.h>
#include <sys/types.h>
#ifdef HAVE_STDLIB_H
#include <stdlib.h> 
#endif
#ifdef HAVE_STRING_H
#include <string.h>
#endif

#include <gtk/gtk.h>
#include <libguile.h>

#include "defines.h"
#include "struct.h"
#include "globals.h"

#include "../include/prototype.h"

#ifdef HAVE_LIBDMALLOC
#include <dmalloc.h>
#endif

}
@end format




@format
@anchor{s_papersizes.c - global variables}
@i{<<s_papersizes.c : global variables>>=}@t{
struct st_papersizes_names @{
        char *papersize_name;
        int width, height;
@};

static int papersizes_index=0;

#define MAX_PAGESIZES   60

/* and eventually make this unlimited */
/* hack hack */
static struct st_papersizes_names papersizes[MAX_PAGESIZES];

@display
@r{Defines :
@t{papersizes},
 -- @ref{s_papersizes.c - s_papersizes_get_size()},
 -- @ref{s_papersizes.c - s_papersizes_init()},
 -- @ref{s_papersizes.c - s_papersizes_get()},
 -- @ref{s_papersizes.c - s_papersizes_free()},
 -- @ref{s_papersizes.c - s_papersizes_print()},
 -- @ref{s_papersizes.c - s_papersizes_add_entry()},
 -- @ref{s_papersizes.c - s_papersizes_uniq()}.
@t{papersizes_index},
 -- @ref{s_papersizes.c - s_papersizes_get_size()},
 -- @ref{s_papersizes.c - s_papersizes_get()},
 -- @ref{s_papersizes.c - s_papersizes_free()},
 -- @ref{s_papersizes.c - s_papersizes_print()},
 -- @ref{s_papersizes.c - s_papersizes_add_entry()},
 -- @ref{s_papersizes.c - s_papersizes_uniq()}.
}
@end display
}
@end format



@section Function @code{s_papersizes_add_entry()}

@defun s_papersizes_add_entry new_papersize width height
@end defun

@format
@anchor{s_papersizes.c - s_papersizes_add_entry()}
@i{<<s_papersizes.c : s_papersizes_add_entry()>>=}@t{
/* width and height in portrait mode */
int
s_papersizes_add_entry(char *new_papersize, int width, int height) 
@{
  if (new_papersize == NULL) @{
    return(-1); 
  @}

  if (papersizes_index >= MAX_PAGESIZES) @{
    return(-1); 
  @}
        
  papersizes[papersizes_index].papersize_name = (char *) malloc(sizeof(char)*strlen(new_papersize)+1);

  strcpy(papersizes[papersizes_index].papersize_name, new_papersize);

  papersizes[papersizes_index].width = width;
  papersizes[papersizes_index].height = height;

  papersizes_index++;
  return(papersizes_index);
@}


@display
@r{Defines :
.
}
@end display
@display
@r{Uses :
@t{papersizes},  -- @ref{s_papersizes.c - global variables}.
@t{papersizes_index},  -- @ref{s_papersizes.c - global variables}.
}
@end display
}
@end format



@section Function @code{s_papersizes_print()}

@defun s_papersizes_print 
@end defun

@format
@anchor{s_papersizes.c - s_papersizes_print()}
@i{<<s_papersizes.c : s_papersizes_print()>>=}@t{
void
s_papersizes_print()
@{
  int i;

  for (i = 0; i < papersizes_index; i++) @{
    printf("%s\n", papersizes[i].papersize_name);
  @}
@}


@display
@r{Defines :
.
}
@end display
@display
@r{Uses :
@t{papersizes},  -- @ref{s_papersizes.c - global variables}.
@t{papersizes_index},  -- @ref{s_papersizes.c - global variables}.
}
@end display
}
@end format



@section Function @code{s_papersizes_uniq()}

@defun s_papersizes_uniq name
@end defun

@format
@anchor{s_papersizes.c - s_papersizes_uniq()}
@i{<<s_papersizes.c : s_papersizes_uniq()>>=}@t{
/* true for uniqueness, zero for duplication */
int
s_papersizes_uniq(char *name)
@{
  int i;

  for (i = 0; i < papersizes_index; i++) @{
    if (strcmp(papersizes[i].papersize_name, name) == 0) @{
      return(0);
    @}
  @}

  return(1);
@}


@display
@r{Defines :
.
}
@end display
@display
@r{Uses :
@t{papersizes},  -- @ref{s_papersizes.c - global variables}.
@t{papersizes_index},  -- @ref{s_papersizes.c - global variables}.
}
@end display
}
@end format



@section Function @code{s_papersizes_free()}

@defun s_papersizes_free 
@end defun

@format
@anchor{s_papersizes.c - s_papersizes_free()}
@i{<<s_papersizes.c : s_papersizes_free()>>=}@t{
void
s_papersizes_free()
@{
        int i;

        for (i = 0; i < papersizes_index; i++) @{
                if (papersizes[i].papersize_name)
                        free(papersizes[i].papersize_name);
        @}

        papersizes_index=0;
@}


@display
@r{Defines :
.
}
@end display
@display
@r{Uses :
@t{papersizes},  -- @ref{s_papersizes.c - global variables}.
@t{papersizes_index},  -- @ref{s_papersizes.c - global variables}.
}
@end display
}
@end format



@section Function @code{s_papersizes_init()}

@defun s_papersizes_init 
@end defun

@format
@anchor{s_papersizes.c - s_papersizes_init()}
@i{<<s_papersizes.c : s_papersizes_init()>>=}@t{
void
s_papersizes_init()
@{
  int i;
  for (i = 0; i < MAX_PAGESIZES; i++) @{
    papersizes[i].papersize_name = NULL;        
  @} 
@}


@display
@r{Defines :
.
}
@end display
@display
@r{Uses :
@t{papersizes},  -- @ref{s_papersizes.c - global variables}.
}
@end display
}
@end format



@section Function @code{s_papersizes_get()}

@defun s_papersizes_get counter
@end defun

@format
@anchor{s_papersizes.c - s_papersizes_get()}
@i{<<s_papersizes.c : s_papersizes_get()>>=}@t{
char *
s_papersizes_get(int counter)
@{
  if (counter < papersizes_index) @{
    return(papersizes[counter].papersize_name);
  @} else @{
    return(NULL);
  @}

  return(NULL);
@}


@display
@r{Defines :
.
}
@end display
@display
@r{Uses :
@t{papersizes},  -- @ref{s_papersizes.c - global variables}.
@t{papersizes_index},  -- @ref{s_papersizes.c - global variables}.
}
@end display
}
@end format



@section Function @code{s_papersizes_get_size()}

@defun s_papersizes_get_size string width height
@end defun

@format
@anchor{s_papersizes.c - s_papersizes_get_size()}
@i{<<s_papersizes.c : s_papersizes_get_size()>>=}@t{
void
s_papersizes_get_size(char *string, int *width, int *height) 
@{
  int i;

  for (i = 0; i < papersizes_index; i++) @{
    if (strcmp(papersizes[i].papersize_name, string) == 0) @{
      *width = papersizes[i].width;
      *height = papersizes[i].height;
      return;
    @}
  @}

  *width = 0;
  *height = 0;
@}


@display
@r{Defines :
.
}
@end display
@display
@r{Uses :
@t{papersizes},  -- @ref{s_papersizes.c - global variables}.
@t{papersizes_index},  -- @ref{s_papersizes.c - global variables}.
}
@end display
}
@end format