Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/compsrcs/misc/volume06/count

Internet Message Format | 1991-08-27 | 6.5 KB

From decwrl!ucbvax!tut.cis.ohio-state.edu!cs.utexas.edu!uunet!allbery Mon May 15 07:39:42 PDT 1989
Article 869 of comp.sources.misc:
Path: decwrl!ucbvax!tut.cis.ohio-state.edu!cs.utexas.edu!uunet!allbery
From: [e-mail] (Brandon S. Allbery - comp.sources.misc)
Newsgroups: comp.sources.misc
Subject: v06i100: Count program
Message-ID: <[e-mail]>
Date: 15 May 89 03:30:00 GMT
Sender: [e-mail]
Reply-To: Jeff Beadles <[e-mail]>
Organization: Tektronix, Inc., Wilsonville, OR
Lines: 235
Approved: [e-mail] (Brandon S. Allbery - comp.sources.misc)

Posting-number: Volume 6, Issue 100
Submitted-by: [e-mail] (Jeff Beadles)
Archive-name: count


This is something that I wrote a while back, and decided to clean-up and
give to the world.  It's useful when you need to count in a shell script,
when your system does not support it.  It can be called like:

    for num in `count 1 100`        # Counts from 1 to 100


#--------------------------------CUT HERE-------------------------------------
#! /bin/sh
#
# This is a shell archive.  Save this into a file, edit it
# and delete all lines above this comment.  Then give this
# file to sh by executing the command "sh file".  The files
# will be extracted into the current directory owned by
# you with default permissions.
#
# The files contained herein are:
#
# -rw-------  1 jeff          447 May  9 10:39 README
# -rw-------  1 jeff          446 May  9 10:12 Makefile
# -rw-------  1 jeff          533 May  9 09:58 count.1
# -rw-------  1 jeff         2177 May  9 10:24 count.c
#
echo 'x - README'
if test -f README; then echo 'shar: not overwriting README'; else
sed 's/^X//' << '________This_Is_The_END________' > README
X    count -  By:  Jeff Beadles    [e-mail]
X
X
X    This program will count from the starting number to the stop
X    number, using the character 'fs' as the field seperator.
X
X    Note, that fs may be in several forms:
X    -A    will use the letter 'A'
X    --    will use a '-' as fs, and
X    -\011    will use a tab (Octal 011) as the fs.  (sh does the expansion.)
X
X    Bugs may be sent to me if desired.
X    Please keep your flames to yourself.  What do you expect for free?
________This_Is_The_END________
if test `wc -l < README` -ne 13; then
    echo 'shar: README was damaged during transit (should have been 13 lines)'
fi
fi        ; : end of overwriting check
echo 'x - Makefile'
if test -f Makefile; then echo 'shar: not overwriting Makefile'; else
sed 's/^X//' << '________This_Is_The_END________' > Makefile
X#
X# Makefile for count.  This is a little overkill, but what the heck.
X# (This is public domain too!)
X# Written by:  Jeff Beadles
X# [e-mail]        ...tektronix!quark.wv!jeff
X#
X
XCC = cc
XCFLAGS =
X
X#For the executable file
XBINDIR=/usr/bin
X
Xcount: count.c Makefile
X    $(CC) $(CFLAGS) count.c -o count
X
Xinstall: count
X    -strip count
X    cp count ${BINDIR}/count
X    chmod 755 ${BINDIR}/count
X
Xclean:
X    rm -f *.o core a.out
X
Xclobber: clean
X    rm -f count
X
________This_Is_The_END________
if test `wc -l < Makefile` -ne 27; then
    echo 'shar: Makefile was damaged during transit (should have been 27 lines)'
fi
fi        ; : end of overwriting check
echo 'x - count.1'
if test -f count.1; then echo 'shar: not overwriting count.1'; else
sed 's/^X//' << '________This_Is_The_END________' > count.1
X.\"
X.\" @(#)count        1.0    05/09/89
X.\"
X.TH COUNT 1 "09 MAY 1989"
X.UC 4
X.SH NAME
Xcount \- count numbers from a start to a stop point.
X.SH SYNOPSIS
X.B count [-c] start stop
X.SH DESCRIPTION
X.I Count
Xwill count thru an integer sequence of numbers from
X.I Start
Xto
X.I Stop
Xwith a newline after each number.
X
XOptionally,
X.I -c
Xmay be on the command line.  This may be in one of two forms.
X.I -$
Xwill put a
X.I $
Xbetween each number.
X.I -040
Xwill put a space (Octal
X.I 040
X) between each number.
X
X.SH AUTHOR
XJeff Beadles    [e-mail]
________This_Is_The_END________
if test `wc -l < count.1` -ne 31; then
    echo 'shar: count.1 was damaged during transit (should have been 31 lines)'
fi
fi        ; : end of overwriting check
echo 'x - count.c'
if test -f count.c; then echo 'shar: not overwriting count.c'; else
sed 's/^X//' << '________This_Is_The_END________' > count.c
X/*    Count.c  Released into the public domain on 05/09/89
X *    Written by:  Jeff Beadles  [e-mail]
X *      or ...!tektronix!quark.WV!jeff
X *
X *    NOTE:  This program is not supported by Tektronix, Inc.
X *
X *    This program will count from the starting number to the stop
X *    number, using the character 'fs' as the field seperator.
X *    Note, that fs may be in several forms:
X *    -A    will use the letter 'A'
X *    --    will use a '-' as fs, and
X *    -\011    will use a tab (Octal 011) as the fs.  (sh does the expansion.)
X *
X *    Bugs may be sent to me if desired.
X *    Please keep your flames to yourself.  What do you expect for free?
X *
X */
X
X
X#include <stdio.h>
X#include <ctype.h>
X
X/*
X *    Default field seperator
X */
X
X#ifndef FS
X#define FS '\n'
X#endif
X
Xint
Xmain(argc,argv)
Xint argc;
Xchar **argv;
X
X{
X    void usage();
X    int oatc();
X    int    start = 0;    /* Start count                */
X    int    stop  = 0;    /* Stop  count                */
X    int    pos   = 1;    /* Position in command line for parsing    */
X    char    fs    = FS;    /* Field Separator            */
X
X    if ( argc < 2)
X        usage(argv[0]);        /* Does not return */
X
X    if ( argv[1][0] == '-' ) {
X        if ( (isdigit(argv[1][1])) && (strlen(argv[1]) == 4) )
X            fs=oatc(argv[1] + 1);
X            else
X            fs = argv[1][1];
X        pos++;        /* On to the next arg... */
X    }
X    start = atoi(argv[pos++]);    /* Start here, and... */
X
X    if ( argc <= pos)
X        usage(argv[0]);        /* Does not return */
X
X    stop  = atoi(argv[pos]);     /* Stop here. */
X    if ( start >= stop)        /* Are they brain damaged? */
X    {
X        fprintf(stderr,"Error:  START must be less than STOP\n");
X        exit(-2);
X    }
X
X/*
X   Yes, this is it.  It even prints a '\n' when done, if the fs != '\n' (Wow)
X */
X    while ( start <= stop )
X        printf("%d%c",start++,( (start != stop) ? fs : '\n' ) );
X}
X
X/*
X   Can you figure out this function with no comments?  Sure, you can.
X*/
Xvoid usage(program)
Xchar *program;
X
X{
X    fprintf(stderr,"Usage: %s [ -c] start stop\n",program);
X    exit(-1);
X}
X
X/*
X *    octal ascii to char
X */
X
Xint oatc(str)
Xchar *str;
X    {
X    int retval=0;
X    int pos=0;
X    int tmp=0;
X    int loop;
X    static int table[] = { 1, 8, 64 };   /* Powers of 8, to avoid POW */
X
X
X    for(loop=strlen(str) - 1; loop >= 0; loop--)
X        retval += ( (str[loop] - '0') * table[pos++] );
X
X    return((char)retval);
X}
X
________This_Is_The_END________
if test `wc -l < count.c` -ne 103; then
    echo 'shar: count.c was damaged during transit (should have been 103 lines)'
fi
fi        ; : end of overwriting check
exit 0