irtglc.c

Go to the documentation of this file.

// author: Yuki Furuta <furushchev@jsk.imi.i.u-tokyo.ac.jp>

#pragma init (register_irtglc)

#include "eus.h"

extern pointer ___irtglc();
static register_irtglc()
{ add_module_initializer("___irtglc", ___irtglc);}

#define colsize(p) (intval(p->c.ary.dim[1]))
#define rowsize(p) (intval(p->c.ary.dim[0]))
#define isimage(p) ((isarray(p) && \
                     p->c.ary.rank==makeint(2) && \
                     (elmtypeof(p->c.ary.entity)==ELM_CHAR || \
                      elmtypeof(p->c.ary.entity)==ELM_BYTE)))

pointer CTRANSPOSE_IMAGE_ROWS(ctx,n,argv)
     register context *ctx;
     register int n;
     register pointer argv[];
/* (height step src-entity &optional dst-entity) */
{
  int h,step,y;
  char *src, *dst, *buf;
  
  ckarg2(3,4);
  h=ckintval(argv[0]); step=ckintval(argv[1]);
  if (isstring(argv[2])) src=argv[2]->c.str.chars;
  else src=(char*)bigintval(argv[2]);

  if (n==3) {
    buf=malloc(sizeof(char)*step);
    for(y = 0; y < h/2; ++y) {
      memcpy(buf, src + (h-y-1)*step, step);
      memcpy(src + (h-y-1)*step, src + y*step, step);
      memcpy(src + y*step, buf, step);
    }
    free(buf);
    return(src);
  } else {
    if (isstring(argv[3])) dst=argv[3]->c.str.chars;
    else dst=(char*)bigintval(argv[3]);
    for(y = 0; y < h; ++y) {
      memcpy(dst + y*step, src + (h-y-1)*step, step);
    }
    return(dst);}}

pointer ___irtglc(ctx,n,argv,env)
     register context *ctx;
     int n;
     pointer argv[];
     pointer env;
{
  pointer mod=argv[0];
  defun(ctx,"CTRANSPOSE-IMAGE-ROWS",mod,CTRANSPOSE_IMAGE_ROWS);
}