mirror of
https://github.com/lcn2/calc.git
synced 2025-08-16 01:03:29 +03:00
convert ASCII TABs to ASCII SPACEs
Converted all ASCII tabs to ASCII spaces using a 8 character tab stop, for all files, except for all Makefiles (plus rpm.mk). The `git diff -w` reports no changes.
This commit is contained in:
Landon Curt Noll
224
custom/c_argv.c
224
custom/c_argv.c
@@ -9,7 +9,7 @@
|
||||
*
|
||||
* Calc 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 Lesser General
|
||||
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
|
||||
* Public License for more details.
|
||||
*
|
||||
* A copy of version 2.1 of the GNU Lesser General Public License is
|
||||
@@ -17,11 +17,11 @@
|
||||
* received a copy with calc; if not, write to Free Software Foundation, Inc.
|
||||
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
||||
*
|
||||
* Under source code control: 1997/03/09 20:27:37
|
||||
* File existed as early as: 1997
|
||||
* Under source code control: 1997/03/09 20:27:37
|
||||
* File existed as early as: 1997
|
||||
*
|
||||
* chongo <was here> /\oo/\ http://www.isthe.com/chongo/
|
||||
* Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/
|
||||
* chongo <was here> /\oo/\ http://www.isthe.com/chongo/
|
||||
* Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/
|
||||
*/
|
||||
|
||||
|
||||
@@ -30,9 +30,9 @@
|
||||
* so we declare a global variable whose value is based on if CUSTOM is defined.
|
||||
*/
|
||||
#if defined(CUSTOM)
|
||||
int c_argv_allowed = 1; /* CUSTOM defined */
|
||||
int c_argv_allowed = 1; /* CUSTOM defined */
|
||||
#else /* CUSTOM */
|
||||
int c_argv_allowed = 0; /* CUSTOM undefined */
|
||||
int c_argv_allowed = 0; /* CUSTOM undefined */
|
||||
#endif /* CUSTOM */
|
||||
|
||||
|
||||
@@ -50,129 +50,129 @@ int c_argv_allowed = 0; /* CUSTOM undefined */
|
||||
#include "../have_unused.h"
|
||||
|
||||
|
||||
#include "../banned.h" /* include after system header <> includes */
|
||||
#include "../banned.h" /* include after system header <> includes */
|
||||
|
||||
|
||||
/*
|
||||
* c_argv - a custom function display info about its args
|
||||
*
|
||||
* given:
|
||||
* vals[i] and arg to display information about
|
||||
* vals[i] and arg to display information about
|
||||
*
|
||||
* returns:
|
||||
* count
|
||||
* count
|
||||
*/
|
||||
/*ARGSUSED*/
|
||||
VALUE
|
||||
c_argv(char *UNUSED(name), int count, VALUE **vals)
|
||||
{
|
||||
VALUE result; /* what we will return */
|
||||
ZVALUE zfilelen; /* length of a file as a ZVALUE */
|
||||
NUMBER *filelen; /* pointer to length of a file as a NUMBER */
|
||||
char *type; /* the name of the arg type */
|
||||
int i;
|
||||
VALUE result; /* what we will return */
|
||||
ZVALUE zfilelen; /* length of a file as a ZVALUE */
|
||||
NUMBER *filelen; /* pointer to length of a file as a NUMBER */
|
||||
char *type; /* the name of the arg type */
|
||||
int i;
|
||||
|
||||
/*
|
||||
* print info on each arg
|
||||
*/
|
||||
for (i=0; i < count; ++i) {
|
||||
/*
|
||||
* print info on each arg
|
||||
*/
|
||||
for (i=0; i < count; ++i) {
|
||||
|
||||
/*
|
||||
* print arg number with leading tab as configured
|
||||
*/
|
||||
printf("%sarg[%d]", (conf->tab_ok ? "\t" : ""), i);
|
||||
/*
|
||||
* print arg number with leading tab as configured
|
||||
*/
|
||||
printf("%sarg[%d]", (conf->tab_ok ? "\t" : ""), i);
|
||||
|
||||
/*
|
||||
* print the arg type
|
||||
*/
|
||||
switch (vals[i]->v_type) {
|
||||
case V_NULL: /* null value */
|
||||
type = "null";
|
||||
break;
|
||||
case V_INT: /* normal integer */
|
||||
type = "int";
|
||||
break;
|
||||
case V_NUM: /* number */
|
||||
type = "rational_value";
|
||||
break;
|
||||
case V_COM: /* complex number */
|
||||
type = "complex_value";
|
||||
break;
|
||||
case V_ADDR: /* address of variable value */
|
||||
type = "address";
|
||||
break;
|
||||
case V_STR: /* address of string */
|
||||
type = "string";
|
||||
break;
|
||||
case V_MAT: /* address of matrix structure */
|
||||
type = "matrix";
|
||||
break;
|
||||
case V_LIST: /* address of list structure */
|
||||
type = "list";
|
||||
break;
|
||||
case V_ASSOC: /* address of association structure */
|
||||
type = "assoc";
|
||||
break;
|
||||
case V_OBJ: /* address of object structure */
|
||||
type = "object";
|
||||
break;
|
||||
case V_FILE: /* opened file id */
|
||||
type = "file";
|
||||
break;
|
||||
case V_RAND: /* subtractive 100 random state */
|
||||
type = "rand_state";
|
||||
break;
|
||||
case V_RANDOM: /* address of Blum random state */
|
||||
type = "random_state";
|
||||
break;
|
||||
case V_CONFIG: /* configuration state */
|
||||
type = "config_state";
|
||||
break;
|
||||
case V_HASH: /* hash state */
|
||||
type = "hash_state";
|
||||
break;
|
||||
case V_BLOCK: /* memory block */
|
||||
type = "octet_block";
|
||||
break;
|
||||
case V_OCTET: /* octet (unsigned char) */
|
||||
type = "octet";
|
||||
break;
|
||||
default:
|
||||
type = "unknown";
|
||||
break;
|
||||
}
|
||||
printf("\t%-16s", type);
|
||||
/*
|
||||
* print the arg type
|
||||
*/
|
||||
switch (vals[i]->v_type) {
|
||||
case V_NULL: /* null value */
|
||||
type = "null";
|
||||
break;
|
||||
case V_INT: /* normal integer */
|
||||
type = "int";
|
||||
break;
|
||||
case V_NUM: /* number */
|
||||
type = "rational_value";
|
||||
break;
|
||||
case V_COM: /* complex number */
|
||||
type = "complex_value";
|
||||
break;
|
||||
case V_ADDR: /* address of variable value */
|
||||
type = "address";
|
||||
break;
|
||||
case V_STR: /* address of string */
|
||||
type = "string";
|
||||
break;
|
||||
case V_MAT: /* address of matrix structure */
|
||||
type = "matrix";
|
||||
break;
|
||||
case V_LIST: /* address of list structure */
|
||||
type = "list";
|
||||
break;
|
||||
case V_ASSOC: /* address of association structure */
|
||||
type = "assoc";
|
||||
break;
|
||||
case V_OBJ: /* address of object structure */
|
||||
type = "object";
|
||||
break;
|
||||
case V_FILE: /* opened file id */
|
||||
type = "file";
|
||||
break;
|
||||
case V_RAND: /* subtractive 100 random state */
|
||||
type = "rand_state";
|
||||
break;
|
||||
case V_RANDOM: /* address of Blum random state */
|
||||
type = "random_state";
|
||||
break;
|
||||
case V_CONFIG: /* configuration state */
|
||||
type = "config_state";
|
||||
break;
|
||||
case V_HASH: /* hash state */
|
||||
type = "hash_state";
|
||||
break;
|
||||
case V_BLOCK: /* memory block */
|
||||
type = "octet_block";
|
||||
break;
|
||||
case V_OCTET: /* octet (unsigned char) */
|
||||
type = "octet";
|
||||
break;
|
||||
default:
|
||||
type = "unknown";
|
||||
break;
|
||||
}
|
||||
printf("\t%-16s", type);
|
||||
|
||||
/*
|
||||
* print size and sizeof information
|
||||
*
|
||||
* We have to treat files in a special way
|
||||
* because their length can be very long.
|
||||
*/
|
||||
if (vals[i]->v_type == V_FILE) {
|
||||
/* get the file length */
|
||||
if (getsize(vals[i]->v_file, &zfilelen) == 0) {
|
||||
filelen = qalloc();
|
||||
filelen->num = zfilelen;
|
||||
qprintfd(filelen, 0L);
|
||||
qfree(filelen);
|
||||
} else {
|
||||
/* getsize error */
|
||||
printf("\tsize=unknown");
|
||||
}
|
||||
printf("\tsizeof=%ld\n", (long int)lsizeof(vals[i]));
|
||||
} else {
|
||||
printf("\tsize=%ld\tsizeof=%ld\n",
|
||||
elm_count(vals[i]), (long int)lsizeof(vals[i]));
|
||||
}
|
||||
}
|
||||
/*
|
||||
* print size and sizeof information
|
||||
*
|
||||
* We have to treat files in a special way
|
||||
* because their length can be very long.
|
||||
*/
|
||||
if (vals[i]->v_type == V_FILE) {
|
||||
/* get the file length */
|
||||
if (getsize(vals[i]->v_file, &zfilelen) == 0) {
|
||||
filelen = qalloc();
|
||||
filelen->num = zfilelen;
|
||||
qprintfd(filelen, 0L);
|
||||
qfree(filelen);
|
||||
} else {
|
||||
/* getsize error */
|
||||
printf("\tsize=unknown");
|
||||
}
|
||||
printf("\tsizeof=%ld\n", (long int)lsizeof(vals[i]));
|
||||
} else {
|
||||
printf("\tsize=%ld\tsizeof=%ld\n",
|
||||
elm_count(vals[i]), (long int)lsizeof(vals[i]));
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
* return count
|
||||
*/
|
||||
result.v_type = V_NUM;
|
||||
result.v_num = itoq(count);
|
||||
return result;
|
||||
/*
|
||||
* return count
|
||||
*/
|
||||
result.v_type = V_NUM;
|
||||
result.v_num = itoq(count);
|
||||
return result;
|
||||
}
|
||||
|
||||
#endif /* CUSTOM */
|
||||
|
||||
Reference in New Issue
Block a user