Skip to content

Commit

Permalink
Move all sources that are not system dependent to their standard places
Browse files Browse the repository at this point in the history
Also unify all mkpkg.sf.*, since they are all equal, and become quite simple.
  • Loading branch information
olebole committed Dec 15, 2017
1 parent 54a5422 commit 61fdf17
Show file tree
Hide file tree
Showing 128 changed files with 1,650 additions and 8,794 deletions.
12 changes: 5 additions & 7 deletions sys/osb/aclrb.c
Expand Up @@ -6,13 +6,11 @@
#include <iraf.h>

/* ACLRB -- Clear a block of memory.
* [Specially optimized for Sun/IRAF].
*/
void
ACLRB (XCHAR *a, XINT *nbytes)
ACLRB (a, n)
XCHAR *a;
XINT *n;
{
register char *p;
register int n;

for (p=(char *)a, n = *nbytes; --n >= 0; )
*p++ = 0;
memset ((char *)a, 0, *n);
}
1 change: 0 additions & 1 deletion sys/osb/bytmov.c

This file was deleted.

23 changes: 23 additions & 0 deletions sys/osb/bytmov.c
@@ -0,0 +1,23 @@
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/

#define import_spp
#define import_knames
#include <iraf.h>

/* BYTMOV -- Byte move from array "a" to array "b". The move must be
* nondestructive, allowing a byte array to be shifted left or right a
* few bytes, hence comparison of the addresses of the arrays is necessary
* to determine if they overlap.
* [Specially optimized version for Sun/IRAF].
*/
BYTMOV (a, aoff, b, boff, nbytes)
XCHAR *a; /* input byte array */
XINT *aoff; /* first byte in A to be moved */
XCHAR *b; /* output byte array */
XINT *boff; /* first byte in B to be written */
XINT *nbytes; /* number of bytes to move */
{
if ((a + *aoff) != (b + *boff))
memmove ((char *)b + (*boff-1), (char *)a + (*aoff-1), *nbytes);
}
1 change: 0 additions & 1 deletion sys/osb/d1mach.f

This file was deleted.

0 comments on commit 61fdf17

Please sign in to comment.