external/cde
1
0
Fork 0
mirror of git://git.code.sf.net/p/cdesktopenv/code synced 2025-02-15 04:32:24 +00:00
Code Issues Releases Wiki Activity

dtcalc: Convert functions from K&R to ansi declarations.

Browse source
This commit is contained in:
Peter Howkins 2012-11-16 17:03:10 +00:00
parent b556633eca
commit f4339cd58e
8 changed files with 225 additions and 456 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

148
cde/programs/dtcalc/calctool.c
View file

@ -312,8 +312,7 @@ struct button mode_buttons[MAXMODES * MODEKEYS] = {
int int
char_val(chr) char_val(char chr)
char chr ;
{ {
if (chr >= '0' && chr <= '9') return(chr - '0') ; if (chr >= '0' && chr <= '9') return(chr - '0') ;
else if (chr >= 'a' && chr <= 'f') return(chr - 'a' + 10) ; else if (chr >= 'a' && chr <= 'f') return(chr - 'a' + 10) ;
@ -323,7 +322,7 @@ char chr ;
void void
clear_display() clear_display(void)
{ {
int i ; int i ;
@ -344,10 +343,10 @@ clear_display()
set_item(INVITEM, " ") ; set_item(INVITEM, " ") ;
} }
/* Convert .dtcalcrc line to ascii values. */
/* line Input line to be converted. */
char * char *
convert(line) /* Convert .dtcalcrc line to ascii values. */ convert(char *line)
char *line ; /* Input line to be converted. */
{ {
static char output[MAXLINE] ; /* Converted output record. */ static char output[MAXLINE] ; /* Converted output record. */
int ctrl = 0 ; /* Set if we are processing a control character. */ int ctrl = 0 ; /* Set if we are processing a control character. */
@ -373,9 +372,7 @@ char *line ; /* Input line to be converted. */
void void
do_dtcalc(argc, argv) do_dtcalc(int argc, char **argv)
int argc ;
char **argv ;
{ {
char *ptr ; char *ptr ;
@ -432,8 +429,7 @@ char **argv ;
/* Dtcalc's customised math library error-handling routine. */ /* Dtcalc's customised math library error-handling routine. */
void void
doerr(errmes) doerr(char *errmes)
char *errmes ;
{ {
if (!v->started) return ; if (!v->started) return ;
STRCPY(v->display, errmes) ; STRCPY(v->display, errmes) ;
@ -443,11 +439,9 @@ char *errmes ;
set_item(OPITEM, vstrs[(int) V_CLR]) ; set_item(OPITEM, vstrs[(int) V_CLR]) ;
} }
/* Get boolean resource from database. */
int int
get_bool_resource(rtype, boolval) /* Get boolean resource from database. */ get_bool_resource(enum res_type rtype, int *boolval)
enum res_type rtype ;
int *boolval ;
{ {
char *val, tempstr[MAXLINE] ; char *val, tempstr[MAXLINE] ;
int len, n ; int len, n ;
@ -472,8 +466,7 @@ int *boolval ;
*/ */
int int
get_index(ch) get_index(char ch)
char ch ;
{ {
int n ; int n ;
@ -492,11 +485,9 @@ char ch ;
return(n) ; return(n) ;
} }
/* Get integer resource from database. */
int int
get_int_resource(rtype, intval) /* Get integer resource from database. */ get_int_resource(enum res_type rtype, int *intval)
enum res_type rtype ;
int *intval ;
{ {
char *val ; char *val ;
@ -509,16 +500,14 @@ int *intval ;
/* Get keyboard equivalent from first character of localised string. */ /* Get keyboard equivalent from first character of localised string. */
void void
get_key_val(val, str) get_key_val(char *val, char *str)
char *val, *str ;
{ {
*val = str[0] ; *val = str[0] ;
} }
void void
get_label(n) get_label(int n)
int n ;
{ {
int val ; int val ;
char *temp; char *temp;
@ -535,11 +524,9 @@ int n ;
STRCPY(v->pstr, ""); STRCPY(v->pstr, "");
} }
/* Extract command line options. */
void void
get_options(argc, argv) /* Extract command line options. */ get_options(int argc, char *argv[])
int argc ;
char *argv[] ;
{ {
char next[MAXLINE] ; /* The next command line parameter. */ char next[MAXLINE] ; /* The next command line parameter. */
char strval[MAXLINE] ; char strval[MAXLINE] ;
@ -720,8 +707,7 @@ char *argv[] ;
void void
getparam(s, argv, errmes) getparam(char *s, char *argv[], char *errmes)
char *s, *argv[], *errmes ;
{ {
char *msg; char *msg;
@ -738,9 +724,9 @@ char *s, *argv[], *errmes ;
} }
/* Read .dtcalcrc file. */
void void
get_rcfile(name) /* Read .dtcalcrc file. */ get_rcfile(char *name)
char *name ;
{ {
char line[MAXLINE] ; /* Current line from the .dtcalcrc file. */ char line[MAXLINE] ; /* Current line from the .dtcalcrc file. */
char tmp[MAXLINE] ; /* Used to extract definitions. */ char tmp[MAXLINE] ; /* Used to extract definitions. */
@ -844,11 +830,9 @@ char *name ;
FCLOSE(rcfd) ; FCLOSE(rcfd) ;
} }
/* Get a string resource from database. */
int int
get_str_resource(rtype, strval) /* Get a string resource from database. */ get_str_resource(enum res_type rtype, char *strval)
enum res_type rtype ;
char *strval ;
{ {
char *val ; char *val ;
int i, len ; int i, len ;
@ -864,10 +848,9 @@ char *strval ;
return(1) ; return(1) ;
} }
/* Grey out numeric buttons depending upon base. */
void void
grey_buttons(base) /* Grey out numeric buttons depending upon base. */ grey_buttons(enum base_type base)
enum base_type base ;
{ {
char val ; char val ;
int column, dim, i, n, row ; int column, dim, i, n, row ;
@ -887,10 +870,9 @@ enum base_type base ;
} }
} }
/* Process right button menu selection. */
void void
handle_menu_selection(n, item) /* Process right button menu selection. */ handle_menu_selection(int n, int item)
int n, item ;
{ {
if (item != -1) if (item != -1)
{ {
@ -912,9 +894,9 @@ int n, item ;
} }
} }
/* Setup default values for various variables. */
void void
init_vars() /* Setup default values for various variables. */ init_vars(void)
{ {
int acc, i, n, size ; int acc, i, n, size ;
@ -970,7 +952,7 @@ init_vars() /* Setup default values for various variables. */
void void
initialise() initialise(void)
{ {
int i ; int i ;
@ -983,9 +965,9 @@ initialise()
} }
/* Convert engineering or scientific number. */
char * char *
make_eng_sci(MPnumber) /* Convert engineering or scientific number. */ make_eng_sci(int *MPnumber)
int *MPnumber ;
{ {
char fixed[MAX_DIGITS+1], *optr ; char fixed[MAX_DIGITS+1], *optr ;
int MP1[MP_SIZE], MPatmp[MP_SIZE], MPval[MP_SIZE] ; int MP1[MP_SIZE], MPatmp[MP_SIZE], MPval[MP_SIZE] ;
@ -1083,11 +1065,10 @@ int *MPnumber ;
return(v->snum) ; return(v->snum) ;
} }
/* Convert MP number to fixed number string. */
/* cmax Maximum characters to generate. */
char * char *
make_fixed(MPnumber, cmax) /* Convert MP number to fixed number string. */ make_fixed(int *MPnumber, int cmax)
int *MPnumber ;
int cmax ; /* Maximum characters to generate. */
{ {
char *optr ; char *optr ;
int MP1base[MP_SIZE], MP1[MP_SIZE], MP2[MP_SIZE], MPval[MP_SIZE] ; int MP1base[MP_SIZE], MP1[MP_SIZE], MP2[MP_SIZE], MPval[MP_SIZE] ;
@ -1139,7 +1120,7 @@ int cmax ; /* Maximum characters to generate. */
void void
make_items() make_items(void)
{ {
set_item(DISPLAYITEM, v->display) ; set_item(DISPLAYITEM, v->display) ;
set_item(OPITEM, " ") ; set_item(OPITEM, " ") ;
@ -1147,11 +1128,9 @@ make_items()
set_item(INVITEM, " ") ; set_item(INVITEM, " ") ;
} }
/* Convert MP number to character string. */
char * char *
make_number(MPnumber, mkFix) /* Convert MP number to character string. */ make_number(int *MPnumber, BOOLEAN mkFix)
int *MPnumber ;
BOOLEAN mkFix ;
{ {
double number, val ; double number, val ;
@ -1248,9 +1227,9 @@ BOOLEAN mkFix ;
/*ARGSUSED*/ /*ARGSUSED*/
/* Default math library exception handling routine. */
int int
matherr(exc) /* Default math library exception handling routine. */ matherr(struct exception *exc)
struct exception *exc ;
{ {
#if 0 #if 0
char msg[100]; char msg[100];
@ -1281,12 +1260,9 @@ struct exception *exc ;
return(1) ; /* Value ignored. */ return(1) ; /* Value ignored. */
} }
/* Convert string into an MP number. */
void void
MPstr_to_num(str, base, MPval) /* Convert string into an MP number. */ MPstr_to_num(char *str, enum base_type base, int *MPval)
char *str ;
enum base_type base ;
int *MPval ;
{ {
char *optr ; char *optr ;
int MP1[MP_SIZE], MP2[MP_SIZE], MPbase[MP_SIZE] ; int MP1[MP_SIZE], MP2[MP_SIZE], MPbase[MP_SIZE] ;
@ -1346,10 +1322,9 @@ int *MPval ;
} }
} }
/* Append the latest parenthesis char to the display item. */
void void
paren_disp(c) /* Append the latest parenthesis char to the display item. */ paren_disp(char c)
char c ;
{ {
int i, n ; int i, n ;
@ -1423,10 +1398,9 @@ char c ;
v->show_paren = 0 ; v->show_paren = 0 ;
} }
/* Process this event. */
void void
process_event(type) /* Process this event. */ process_event(int type)
int type ;
{ {
int ival ; int ival ;
@ -1479,8 +1453,7 @@ int type ;
void void
process_item(n) process_item(int n)
int n ;
{ {
int i,isvalid ; int i,isvalid ;
@ -1538,13 +1511,14 @@ int n ;
} }
/* Process a portion of the parentheses stack. */ /* Process a portion of the parentheses stack.
startop Initial position in the operand stack.
startnum Initial position in the numeric stack.
n Number of items to process.
*/
void void
process_stack(startop, startnum, n) process_stack(int startop, int startnum, int n)
int startop ; /* Initial position in the operand stack. */
int startnum ; /* Initial position in the numeric stack. */
int n ; /* Number of items to process. */
{ {
char sdisp[MAXLINE] ; /* Used to save display contents. */ char sdisp[MAXLINE] ; /* Used to save display contents. */
int i ; int i ;
@ -1586,9 +1560,7 @@ int n ; /* Number of items to process. */
void void
process_str(str, mtype) process_str(char *str, enum menu_type mtype)
char *str ;
enum menu_type mtype ;
{ {
int i, len ; int i, len ;
char save[80]; char save[80];
@ -1639,7 +1611,7 @@ enum menu_type mtype ;
void void
read_rcfiles() /* Read .dtcalcrc's from home and current directories. */ read_rcfiles(void) /* Read .dtcalcrc's from home and current directories. */
{ {
char *home ; /* Pathname for users home directory. */ char *home ; /* Pathname for users home directory. */
char name[MAXPATHLEN + 50] ; /* Full name of users .dtcalcrc file. */ char name[MAXPATHLEN + 50] ; /* Full name of users .dtcalcrc file. */
@ -1671,8 +1643,7 @@ read_rcfiles() /* Read .dtcalcrc's from home and current directories. */
void void
show_display(MPval) show_display(int *MPval)
int *MPval ;
{ {
if (!v->error) if (!v->error)
{ {
@ -1683,8 +1654,7 @@ int *MPval ;
void void
usage(progname) usage(char *progname)
char *progname ;
{ {
FPRINTF(stderr, ustrs[(int) USAGE1], PATCHLEVEL) ; FPRINTF(stderr, ustrs[(int) USAGE1], PATCHLEVEL) ;
FPRINTF(stderr, "%s", ustrs[(int) USAGE2]) ; FPRINTF(stderr, "%s", ustrs[(int) USAGE2]) ;
@ -1693,10 +1663,7 @@ char *progname ;
} }
void void
write_rcfile(mtype, exists, cfno, val, comment) write_rcfile(enum menu_type mtype, int exists, int cfno, char *val, char *comment)
enum menu_type mtype ;
int exists, cfno ;
char *val, *comment ;
{ {
char *home ; /* Pathname for users home directory. */ char *home ; /* Pathname for users home directory. */
char pathname[MAXPATHLEN] ; /* Current working directory. */ char pathname[MAXPATHLEN] ; /* Current working directory. */
@ -1771,8 +1738,7 @@ char *val, *comment ;
void void
write_resources(filename) write_resources(char *filename)
char *filename;
{ {
char intval[5] ; char intval[5] ;
int MPtemp[MP_SIZE]; int MPtemp[MP_SIZE];

6
cde/programs/dtcalc/calctool.h
View file

@ -604,9 +604,9 @@ double mppow_di P((double *, int *)) ;
double mppow_ri P((float *, int *)) ; double mppow_ri P((float *, int *)) ;
double setbool P((BOOLEAN)) ; double setbool P((BOOLEAN)) ;
int char_val P((int)) ; int char_val P((char)) ;
int get_bool_resource P((enum res_type, int *)) ; int get_bool_resource P((enum res_type, int *)) ;
int get_index P((int)) ; int get_index P((char)) ;
int get_int_resource P((enum res_type, int *)) ; int get_int_resource P((enum res_type, int *)) ;
int get_str_resource P((enum res_type, char *)) ; int get_str_resource P((enum res_type, char *)) ;
int main P((int, char **)) ; int main P((int, char **)) ;
@ -671,7 +671,7 @@ void make_modewin P(()) ;
void make_fin_registers P(()) ; void make_fin_registers P(()) ;
void make_registers P((int)) ; void make_registers P((int)) ;
void MPstr_to_num P((char *, enum base_type, int *)) ; void MPstr_to_num P((char *, enum base_type, int *)) ;
void paren_disp P((int)) ; void paren_disp P((char)) ;
void process_event P((int)) ; void process_event P((int)) ;
void process_item P((int)) ; void process_item P((int)) ;
void process_parens P((int)) ; void process_parens P((int)) ;

6
cde/programs/dtcalc/ds_common.c
View file

@ -41,8 +41,7 @@
void void
read_str(str, value) read_str(char **str, char *value)
char **str, *value ;
{ {
if (*str != NULL) FREE(*str) ; if (*str != NULL) FREE(*str) ;
if (value != NULL && strlen(value)) if (value != NULL && strlen(value))
@ -55,8 +54,7 @@ char **str, *value ;
char * char *
set_bool(value) set_bool(int value)
int value ;
{ {
return((value) ? "true" : "false") ; return((value) ? "true" : "false") ;
} }

9
cde/programs/dtcalc/ds_widget.c
View file

@ -45,9 +45,7 @@
#endif /*LINT_CAST*/ #endif /*LINT_CAST*/
struct tW_struct * struct tW_struct *
make_textW(owner, label) make_textW(Widget owner, char *label)
Widget owner ;
char *label ;
{ {
struct tW_struct *w ; struct tW_struct *w ;
@ -73,10 +71,7 @@ char *label ;
} }
void void
set_text_str(w, ttype, str) set_text_str(struct tW_struct *w, enum text_type ttype, char *str)
struct tW_struct *w ;
enum text_type ttype ;
char *str ;
{ {
XmString cstr ; XmString cstr ;

25
cde/programs/dtcalc/ds_xlib.c
View file

@ -63,8 +63,7 @@
*/ */
void void
ds_beep(display) ds_beep(Display *display)
Display *display ;
{ {
XBell(display, 0) ; XBell(display, 0) ;
} }
@ -88,10 +87,7 @@ Display *display ;
*/ */
char * char *
ds_get_resource(rDB, appname, resource) ds_get_resource(XrmDatabase rDB, char *appname, char *resource)
XrmDatabase rDB ; /* Resources database. */
char *appname ; /* Application name. */
char *resource ; /* X resource to search for. */
{ {
char app[MAXLINE], res[MAXLINE] ; char app[MAXLINE], res[MAXLINE] ;
char cstr[MAXLINE], nstr[MAXLINE] ; char cstr[MAXLINE], nstr[MAXLINE] ;
@ -140,8 +136,7 @@ char *resource ; /* X resource to search for. */
*/ */
XrmDatabase XrmDatabase
ds_load_resources(display) ds_load_resources(Display *display)
Display *display ;
{ {
XrmDatabase db, rDB ; XrmDatabase db, rDB ;
char *home, name[MAXPATHLEN], *ptr ; char *home, name[MAXPATHLEN], *ptr ;
@ -211,9 +206,7 @@ Display *display ;
*/ */
void void
ds_put_resource(rDB, appname, rstr, rval) ds_put_resource(XrmDatabase *rDB, char *appname, char *rstr, char *rval)
XrmDatabase *rDB ;
char *appname, *rstr, *rval ;
{ {
char app[MAXLINE], resource[MAXLINE] ; char app[MAXLINE], resource[MAXLINE] ;
@ -242,11 +235,7 @@ char *appname, *rstr, *rval ;
*/ */
void void
ds_save_cmdline(display, w, argc, argv) ds_save_cmdline(Display *display, Window w, int argc, char **argv)
Display *display ;
Window w ;
int argc ;
char **argv ;
{ {
XSetCommand(display, w, argv, argc) ; XSetCommand(display, w, argv, argc) ;
} }
@ -266,9 +255,7 @@ char **argv ;
int int
ds_save_resources(rDB, filename) ds_save_resources(XrmDatabase rDB, char *filename)
XrmDatabase rDB ;
char *filename;
{ {
char *home; char *home;
struct stat statbuf ; struct stat statbuf ;

39
cde/programs/dtcalc/help.c
View file

@ -67,9 +67,7 @@ static Widget GetHelpDialog P(()) ;
static void UnmanageCB P(()) ; static void UnmanageCB P(()) ;
void void
Help(helpVolume, locationId) Help(char *helpVolume, char *locationId)
char *helpVolume;
char *locationId;
{ {
Arg args[10]; Arg args[10];
Position newX, newY; Position newX, newY;
@ -119,10 +117,7 @@ Help(helpVolume, locationId)
} }
void void
HelpCloseCB(widget, client_data, call_data) HelpCloseCB(Widget widget, caddr_t client_data, caddr_t call_data)
Widget widget;
caddr_t client_data, call_data;
{ {
HelpStruct *pHelpCache = (HelpStruct *)client_data; HelpStruct *pHelpCache = (HelpStruct *)client_data;
@ -139,9 +134,7 @@ caddr_t client_data, call_data;
} }
void void
HelpHyperlinkCB(widget, client_data, call_data) HelpHyperlinkCB(Widget widget, caddr_t client_data, caddr_t call_data)
Widget widget;
caddr_t client_data, call_data;
{ {
DtHelpDialogCallbackStruct *pHyper = (DtHelpDialogCallbackStruct *) call_data; DtHelpDialogCallbackStruct *pHyper = (DtHelpDialogCallbackStruct *) call_data;
@ -157,9 +150,7 @@ caddr_t client_data, call_data;
void void
HelpRequestCB(widget, client_data, call_data) HelpRequestCB(Widget widget, caddr_t client_data, caddr_t call_data)
Widget widget;
caddr_t client_data, call_data;
{ {
char *helpVolume, *locationId; char *helpVolume, *locationId;
int topic; int topic;
@ -382,9 +373,7 @@ caddr_t client_data, call_data;
} }
void void
HelpModeCB(w, client_data, call_data) HelpModeCB(Widget w, caddr_t client_data, caddr_t call_data)
Widget w;
caddr_t client_data, call_data;
{ {
Widget widget; Widget widget;
char *errorMsg, *tmp; char *errorMsg, *tmp;
@ -414,9 +403,7 @@ caddr_t client_data, call_data;
} }
void void
DisplayHelp( helpVolume, locationId) DisplayHelp(char *helpVolume, char *locationId)
char *helpVolume;
char *locationId;
{ {
Arg args[10]; Arg args[10];
int n; int n;
@ -436,7 +423,7 @@ char *locationId;
static Widget static Widget
GetHelpDialog() GetHelpDialog(void)
{ {
static HelpStruct *pHelpCache; static HelpStruct *pHelpCache;
@ -493,9 +480,7 @@ GetHelpDialog()
} }
void void
ErrDialog( errString, visualParent ) ErrDialog(char *errString, Widget visualParent)
char *errString ;
Widget visualParent ;
{ {
int n; int n;
Arg args[10]; Arg args[10];
@ -542,17 +527,13 @@ Widget visualParent ;
} }
static void static void
UnmanageCB(widget, client_data, call_data) UnmanageCB(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget;
XtPointer client_data, call_data;
{ {
XtUnmanageChild(widget); XtUnmanageChild(widget);
} }
void void
CenterMsgCB (widget, client_data, call_data) CenterMsgCB (Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget;
XtPointer client_data, call_data;
{ {
int n; int n;
Position newX, newY; Position newX, newY;

253
cde/programs/dtcalc/motif.c
View file

@ -244,6 +244,10 @@ static void setCalcHints P(()) ;
static char * _DtcalcStripSpaces P(( char * )) ; static char * _DtcalcStripSpaces P(( char * )) ;
static void ProcessMotifSelection(Widget); static void ProcessMotifSelection(Widget);
static void create_menu_bar(Widget parent);
static void init_colors(void);
static void create_popup(Widget parent);
extern char **environ ; extern char **environ ;
@ -274,9 +278,7 @@ extern XtPointer _XmStringUngenerate (
XmTextType output_type); XmTextType output_type);
int int
main(argc, argv) main(int argc, char **argv)
int argc ;
char **argv ;
{ {
Pixmap pixmap; Pixmap pixmap;
@ -389,16 +391,14 @@ char **argv ;
} }
void void
beep() beep(void)
{ {
ds_beep(X->dpy) ; ds_beep(X->dpy) ;
} }
static Widget static Widget
button_create(owner, row, column, maxrows, maxcols) button_create(Widget owner, int row, int column, int maxrows, int maxcols)
Widget owner ;
int row, column, maxrows, maxcols ;
{ {
int n = row * maxcols + column ; int n = row * maxcols + column ;
int val ; int val ;
@ -493,9 +493,7 @@ int row, column, maxrows, maxcols ;
static void static void
dtcalc_initialize_rframe(owner, type) dtcalc_initialize_rframe(Widget owner, int type)
Widget owner ;
int type ;
{ {
char str[MAXLINE] ; char str[MAXLINE] ;
int i ; int i ;
@ -708,8 +706,7 @@ int type ;
static void static void
dtcalc_kkeyboard_create(owner) dtcalc_kkeyboard_create(Widget owner)
Widget owner ;
{ {
int column, row ; int column, row ;
Widget buttonFrame; Widget buttonFrame;
@ -747,8 +744,7 @@ Widget owner ;
static void static void
dtcalc_kpanel_create(owner) dtcalc_kpanel_create(Widget owner)
Widget owner ;
{ {
static char *mnames[] = { "base", "ttype", "num", "hyp", static char *mnames[] = { "base", "ttype", "num", "hyp",
"inv", "op", "mode" } ; "inv", "op", "mode" } ;
@ -1181,16 +1177,14 @@ Widget owner ;
/*ARGSUSED*/ /*ARGSUSED*/
static void static void
confirm_callback(widget, client_data, call_data) confirm_callback(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
update_cf_value(); update_cf_value();
} }
static void static void
create_cfframe() /* Create auxiliary frame for CON/FUN key. */ create_cfframe(void) /* Create auxiliary frame for CON/FUN key. */
{ {
int j; int j;
XmString tstr ; XmString tstr ;
@ -1341,11 +1335,9 @@ create_cfframe() /* Create auxiliary frame for CON/FUN key. */
} }
/* Create popup menu for dtcalc button. */
static void static void
create_menu(mtype, button, n) /* Create popup menu for dtcalc button. */ create_menu(enum menu_type mtype, Widget button, int n)
enum menu_type mtype ;
Widget button ;
int n ;
{ {
char *mstr, *tmpStr, *ptr ; char *mstr, *tmpStr, *ptr ;
int i, invalid, val ; int i, invalid, val ;
@ -1412,9 +1404,7 @@ int n ;
/*ARGSUSED*/ /*ARGSUSED*/
static void static void
do_button(widget, client_data, call_data) do_button(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
char *str; char *str;
XmString cstr ; XmString cstr ;
@ -1449,9 +1439,7 @@ XtPointer client_data, call_data ;
/*ARGSUSED*/ /*ARGSUSED*/
static void static void
do_continue_notice(parent, str) do_continue_notice(Widget parent, char *str)
Widget parent ;
char *str ;
{ {
XmString contstr, message, cstr ; XmString contstr, message, cstr ;
char *tmpStr; char *tmpStr;
@ -1484,9 +1472,7 @@ char *str ;
/*ARGSUSED*/ /*ARGSUSED*/
static void static void
do_confirm_notice(parent, str) do_confirm_notice(Widget parent, char *str)
Widget parent ;
char *str ;
{ {
XmString confirm, cancel, message, cstr ; XmString confirm, cancel, message, cstr ;
char *tmpStr; char *tmpStr;
@ -1523,9 +1509,7 @@ char *str ;
/*ARGSUSED*/ /*ARGSUSED*/
static void static void
close_reg(widget, client_data, call_data) close_reg(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
int type = (int)client_data; int type = (int)client_data;
@ -1581,10 +1565,7 @@ XtPointer client_data, call_data ;
* *
*/ */
void void
draw_button(n, fcptype, row, column, inverted) draw_button(int n, enum fcp_type fcptype, int row, int column, int inverted)
int n;
enum fcp_type fcptype ;
int row, column, inverted ;
{ {
char str[10] ; char str[10] ;
Widget widget ; Widget widget ;
@ -1628,8 +1609,7 @@ int row, column, inverted ;
static int static int
event_is_keypad(xevent) event_is_keypad(XEvent *xevent)
XEvent *xevent ;
{ {
if (xevent->type != KeyPress && xevent->type != KeyRelease) return(0) ; if (xevent->type != KeyPress && xevent->type != KeyRelease) return(0) ;
return(X->kparray[xevent->xkey.keycode - X->kcmin] > 0) ; return(X->kparray[xevent->xkey.keycode - X->kcmin] > 0) ;
@ -1645,11 +1625,7 @@ XEvent *xevent ;
*/ */
/*ARGSUSED*/ /*ARGSUSED*/
static void static void
event_proc(widget, client_data, event, continue_to_dispatch) event_proc(Widget widget, XtPointer client_data, XEvent *event, Boolean *continue_to_dispatch)
Widget widget ;
XtPointer client_data ;
XEvent *event ;
Boolean *continue_to_dispatch ;
{ {
Widget w; Widget w;
Arg args[3]; Arg args[3];
@ -1875,11 +1851,7 @@ ProcessMotifSelection(Widget W)
/*ARGSUSED*/ /*ARGSUSED*/
static void static void
frame_interpose(widget, clientData, event, continue_to_dispatch) frame_interpose(Widget widget, XtPointer clientData, XEvent *event, Boolean *continue_to_dispatch)
Widget widget ;
XtPointer clientData ;
XEvent *event ;
Boolean *continue_to_dispatch ;
{ {
if (!v->started) return ; if (!v->started) return ;
if (event->type == MapNotify) if (event->type == MapNotify)
@ -1894,10 +1866,7 @@ Boolean *continue_to_dispatch ;
/*ARGSUSED*/ /*ARGSUSED*/
static int static int
get_next_event(widget, ev_action, xevent) get_next_event(Widget widget, int ev_action, XEvent *xevent)
Widget widget ;
int ev_action ;
XEvent *xevent ;
{ {
char *tmpStr, chs[2] ; char *tmpStr, chs[2] ;
int cval, down, nextc, up ; int cval, down, nextc, up ;
@ -2102,9 +2071,9 @@ XEvent *xevent ;
} }
/* Get dtcalc resource from merged database. */
char * char *
get_resource(rtype) /* Get dtcalc resource from merged database. */ get_resource(enum res_type rtype)
enum res_type rtype ;
{ {
char str[MAXLINE] ; char str[MAXLINE] ;
@ -2114,15 +2083,14 @@ enum res_type rtype ;
void void
grey_button(row, column, state) grey_button(int row, int column, int state)
int row, column, state ;
{ {
XtSetSensitive(X->kbuttons[row][column], !state) ; XtSetSensitive(X->kbuttons[row][column], !state) ;
} }
void void
init_graphics() init_graphics(void)
{ {
char *tmpStr, *tmpStr1; char *tmpStr, *tmpStr1;
@ -2151,15 +2119,14 @@ init_graphics()
static int static int
is_window_showing(widget) is_window_showing(Widget widget)
Widget widget ;
{ {
return(XtIsManaged(widget)) ; return(XtIsManaged(widget)) ;
} }
void void
key_init() key_init(void)
{ {
int i, j ; int i, j ;
KeySym *tmp ; KeySym *tmp ;
@ -2193,8 +2160,7 @@ key_init()
static KeySym static KeySym
keypad_keysym(xevent) keypad_keysym(XEvent *xevent)
XEvent *xevent ;
{ {
int i ; int i ;
int keycode = xevent->xkey.keycode ; int keycode = xevent->xkey.keycode ;
@ -2215,14 +2181,14 @@ XEvent *xevent ;
} }
void void
load_resources() load_resources(void)
{ {
X->rDB = ds_load_resources(X->dpy) ; X->rDB = ds_load_resources(X->dpy) ;
} }
void void
make_frames() make_frames(void)
{ {
char *tool_label = NULL ; char *tool_label = NULL ;
int depth ; int depth ;
@ -2252,14 +2218,14 @@ make_frames()
} }
void void
make_modewin() /* Draw special mode frame plus buttons. */ make_modewin(void) /* Draw special mode frame plus buttons. */
{ {
switch_mode(v->modetype) ; switch_mode(v->modetype) ;
} }
/* Calculate memory register frame values. */
void void
make_registers(type) /* Calculate memory register frame values. */ make_registers(int type)
int type;
{ {
char line[MAXLINE] ; /* Current memory register line. */ char line[MAXLINE] ; /* Current memory register line. */
char *ptr, *tmp, *tmpStr; char *ptr, *tmp, *tmpStr;
@ -2356,11 +2322,7 @@ int type;
/*ARGSUSED*/ /*ARGSUSED*/
static void static void
menu_handler(widget, client_data, event, continue_to_dispatch) menu_handler(Widget widget, XtPointer client_data, XEvent *event, Boolean *continue_to_dispatch)
Widget widget ;
XtPointer client_data ;
XEvent *event ;
Boolean *continue_to_dispatch ;
{ {
int button ; int button ;
Widget menu ; Widget menu ;
@ -2378,9 +2340,7 @@ Boolean *continue_to_dispatch ;
/*ARGSUSED*/ /*ARGSUSED*/
void void
menu_proc(widget, client_data, call_data) menu_proc(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
int choice = ((int) client_data) & 0xFFFF ; int choice = ((int) client_data) & 0xFFFF ;
@ -2391,9 +2351,7 @@ XtPointer client_data, call_data ;
/*ARGSUSED*/ /*ARGSUSED*/
static void static void
new_cf_value(widget, client_data, call_data) new_cf_value(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
/* /*
for hard testing when there is no Input Method available for hard testing when there is no Input Method available
@ -2459,17 +2417,16 @@ XtPointer client_data, call_data ;
} }
/* Put calc resource into database. */
void void
put_resource(rtype, value) /* Put calc resource into database. */ put_resource(enum res_type rtype, char *value)
enum res_type rtype ;
char *value ;
{ {
ds_put_resource(&(X->dtcalcDB), v->appname, calc_res[(int) rtype], value) ; ds_put_resource(&(X->dtcalcDB), v->appname, calc_res[(int) rtype], value) ;
} }
void void
redraw_buttons() redraw_buttons(void)
{ {
enum fcp_type scurwin ; enum fcp_type scurwin ;
int column, n, row ; int column, n, row ;
@ -2491,17 +2448,14 @@ redraw_buttons()
void void
save_cmdline(argc, argv) save_cmdline(int argc, char *argv[])
int argc ;
char *argv[] ;
{ {
ds_save_cmdline(X->dpy, XtWindow(X->kframe), argc, argv) ; ds_save_cmdline(X->dpy, XtWindow(X->kframe), argc, argv) ;
} }
void void
save_resources(filename) save_resources(char *filename)
char *filename;
{ {
int reply = ds_save_resources(X->dtcalcDB, filename) ; int reply = ds_save_resources(X->dtcalcDB, filename) ;
@ -2509,16 +2463,13 @@ char *filename;
} }
void void
ErrorDialog(string) ErrorDialog(char *string)
char *string;
{ {
ErrDialog(string, X->mainWin); ErrDialog(string, X->mainWin);
} }
void void
set_item(itemno, str) set_item(enum item_type itemno, char *str)
enum item_type itemno ;
char *str ;
{ {
Widget w ; Widget w ;
XmString cstr ; XmString cstr ;
@ -2559,10 +2510,9 @@ char *str ;
} }
} }
/* Set new title for a window. */
void void
set_title(fcptype, str) /* Set new title for a window. */ set_title(enum fcp_type fcptype, char *str)
enum fcp_type fcptype ;
char *str ;
{ {
Widget w ; Widget w ;
XmString cstr ; XmString cstr ;
@ -2590,9 +2540,7 @@ char *str ;
/*ARGSUSED*/ /*ARGSUSED*/
void void
show_ascii(widget, client_data, call_data) show_ascii(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
char *str ; char *str ;
int val ; int val ;
@ -2606,7 +2554,7 @@ XtPointer client_data, call_data ;
void void
show_ascii_frame() /* Display ASCII popup. */ show_ascii_frame(void) /* Display ASCII popup. */
{ {
int j; int j;
XmString tstr ; XmString tstr ;
@ -2726,7 +2674,7 @@ show_ascii_frame() /* Display ASCII popup. */
void void
start_tool() start_tool(void)
{ {
saveatom = XmInternAtom(X->dpy, "WM_SAVE_YOURSELF", FALSE) ; saveatom = XmInternAtom(X->dpy, "WM_SAVE_YOURSELF", FALSE) ;
command_atom = XA_WM_COMMAND; command_atom = XA_WM_COMMAND;
@ -2747,8 +2695,7 @@ start_tool()
} }
void void
clear_buttons( start ) clear_buttons(int start)
int start;
{ {
int i, n; int i, n;
int row, column; int row, column;
@ -2824,7 +2771,7 @@ int start;
} }
void void
make_buttons_fin() make_buttons_fin(void)
{ {
int i, n; int i, n;
int row, column; int row, column;
@ -2877,7 +2824,7 @@ make_buttons_fin()
} }
void void
make_buttons_log() make_buttons_log(void)
{ {
int i, n; int i, n;
int row, column; int row, column;
@ -2930,7 +2877,7 @@ make_buttons_log()
} }
void void
make_buttons_sci() make_buttons_sci(void)
{ {
int i, n; int i, n;
int row, column; int row, column;
@ -2984,8 +2931,7 @@ make_buttons_sci()
static void static void
switch_mode(curmode) switch_mode(enum mode_type curmode)
enum mode_type curmode ;
{ {
Arg args[2]; Arg args[2];
@ -3019,7 +2965,7 @@ enum mode_type curmode ;
static void static void
update_cf_value() update_cf_value(void)
{ {
char message[MAXLINE] ; char message[MAXLINE] ;
char str[MAXLINE] ; /* Temporary buffer for various strings. */ char str[MAXLINE] ; /* Temporary buffer for various strings. */
@ -3206,9 +3152,7 @@ update_cf_value()
void void
win_display(fcptype, state) win_display(enum fcp_type fcptype, int state)
enum fcp_type fcptype ;
int state ;
{ {
Widget widget ; Widget widget ;
Position newX, newY; Position newX, newY;
@ -3250,9 +3194,7 @@ int state ;
/*ARGSUSED*/ /*ARGSUSED*/
void void
write_cf_value(widget, client_data, call_data) write_cf_value(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
char message[MAXLINE] ; char message[MAXLINE] ;
char str[MAXLINE] ; /* Temporary buffer for various strings. */ char str[MAXLINE] ; /* Temporary buffer for various strings. */
@ -3324,9 +3266,7 @@ XtPointer client_data, call_data ;
static void static void
xerror_interpose(display, error) xerror_interpose(Display *display, XErrorEvent *error)
Display *display ;
XErrorEvent *error ;
{ {
char msg1[80]; char msg1[80];
char msg[1024]; char msg[1024];
@ -3338,9 +3278,7 @@ XErrorEvent *error ;
} }
static void static void
modelineValueChanged(widget, client_data, call_data) modelineValueChanged(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
Arg args[1]; Arg args[1];
int val, choice; int val, choice;
@ -3361,8 +3299,8 @@ XtPointer client_data, call_data ;
handle_menu_selection(59, choice) ; handle_menu_selection(59, choice) ;
} }
create_menu_bar(parent) static void
Widget parent; create_menu_bar(Widget parent)
{ {
register int n; register int n;
int count; int count;
@ -3612,8 +3550,8 @@ Widget parent;
} }
static void
init_colors() init_colors(void)
{ {
int colorUse; int colorUse;
short act, inact, prim, second; short act, inact, prim, second;
@ -3632,10 +3570,7 @@ init_colors()
} }
static void static void
do_memory( w, client_data, call_data ) do_memory(Widget w, XtPointer client_data, XtPointer call_data)
Widget w ;
XtPointer client_data ;
XtPointer call_data ;
{ {
int type = (int)client_data; int type = (int)client_data;
@ -3663,7 +3598,7 @@ XtPointer call_data ;
} }
void void
read_resources() /* Read all possible resources from the database. */ read_resources(void) /* Read all possible resources from the database. */
{ {
char str[MAXLINE] ; char str[MAXLINE] ;
char *msg; char *msg;
@ -3754,9 +3689,7 @@ read_resources() /* Read all possible resources from the database. */
} }
void void
close_cf(widget, client_data, call_data) close_cf(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
Arg args[1]; Arg args[1];
@ -3770,9 +3703,7 @@ XtPointer client_data, call_data ;
} }
void void
close_ascii(widget, client_data, call_data) close_ascii(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
XtUnmanageChild(X->Aframe) ; XtUnmanageChild(X->Aframe) ;
ignore_event = True; ignore_event = True;
@ -3781,9 +3712,7 @@ XtPointer client_data, call_data ;
} }
void void
FocusInCB(widget, client_data, call_data) FocusInCB(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
Arg args[1]; Arg args[1];
@ -3795,9 +3724,7 @@ XtPointer client_data, call_data ;
} }
void void
move_cf(widget, client_data, call_data) move_cf(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
char *input; char *input;
int value; int value;
@ -3836,8 +3763,8 @@ XtPointer client_data, call_data ;
TimerEvent, (XtPointer) value); TimerEvent, (XtPointer) value);
} }
create_popup(parent) static void
Widget parent; create_popup(Widget parent)
{ {
char *mnemonic; char *mnemonic;
XmString label; XmString label;
@ -4070,11 +3997,7 @@ Widget parent;
} }
static void static void
popupHandler(widget, client_data, event, continue_to_dispatch) popupHandler(Widget widget, XtPointer client_data, XEvent *event, Boolean *continue_to_dispatch)
Widget widget ;
XtPointer client_data ;
XEvent *event ;
Boolean *continue_to_dispatch ;
{ {
XButtonPressedEvent *bevent; XButtonPressedEvent *bevent;
@ -4145,9 +4068,7 @@ Boolean *continue_to_dispatch ;
} }
void void
set_option_menu(type, base) set_option_menu(int type, int base)
int type;
int base;
{ {
Arg args[1]; Arg args[1];
@ -4161,9 +4082,7 @@ int base;
} }
void void
map_popup(widget, client_data, call_data) map_popup(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data, call_data ;
{ {
XmAnyCallbackStruct * callback; XmAnyCallbackStruct * callback;
XEvent * event; XEvent * event;
@ -4182,10 +4101,7 @@ XtPointer client_data, call_data ;
/*ARGSUSED*/ /*ARGSUSED*/
static void static void
save_state(widget, client_data, call_data) save_state(Widget widget, XtPointer client_data, XtPointer call_data)
Widget widget ;
XtPointer client_data ;
XtPointer call_data ;
{ {
char *full_path = NULL; char *full_path = NULL;
char *file_name = NULL; char *file_name = NULL;
@ -4256,9 +4172,7 @@ XtPointer call_data ;
} }
static void static void
SaveSession( path, file_name ) SaveSession(char *path, char *file_name)
char *path ;
char *file_name ;
{ {
int fd; int fd;
Atom * ws_presence = NULL; Atom * ws_presence = NULL;
@ -4377,7 +4291,7 @@ SaveSession( path, file_name )
} }
void void
RestoreSession() RestoreSession(void)
{ {
Boolean status=False; Boolean status=False;
char *path, *msg; char *path, *msg;
@ -4561,7 +4475,7 @@ RestoreSession()
} }
static void static void
setCalcHints() setCalcHints(void)
{ {
char *ptr; char *ptr;
Atom * workspace_atoms = NULL; Atom * workspace_atoms = NULL;
@ -4627,9 +4541,7 @@ setCalcHints()
} }
void void
TimerEvent( client_data, id ) TimerEvent( XtPointer client_data, XtIntervalId *id)
XtPointer client_data;
XtIntervalId *id;
{ {
Arg args[1]; Arg args[1];
@ -4645,7 +4557,7 @@ TimerEvent( client_data, id )
/* #ifdef hpux */ /* #ifdef hpux */
#ifdef HP_EXTENSIONS #ifdef HP_EXTENSIONS
static int static int
GetKeyboardID() GetKeyboardID(void)
{ {
XHPDeviceList *list, *slist; XHPDeviceList *list, *slist;
int ndevices = 0, i, kbd = 0; int ndevices = 0, i, kbd = 0;
@ -4700,8 +4612,7 @@ GetKeyboardID()
#endif #endif
static char * static char *
_DtcalcStripSpaces(file) _DtcalcStripSpaces(char *file)
char *file;
{ {
int i, j; int i, j;

195
cde/programs/dtcalc/mp.c
View file

@ -85,8 +85,7 @@ extern Vars v ; /* Calctool variables and options. */
void void
mpabs(x, y) mpabs(int *x, int *y)
int *x, *y ;
{ {
/* SETS Y = ABS(X) FOR MP NUMBERS X AND Y */ /* SETS Y = ABS(X) FOR MP NUMBERS X AND Y */
@ -101,8 +100,7 @@ int *x, *y ;
void void
mpadd(x, y, z) mpadd(int *x, int *y, int *z)
int *x, *y, *z ;
{ {
/* ADDS X AND Y, FORMING RESULT IN Z, WHERE X, Y AND Z ARE MP /* ADDS X AND Y, FORMING RESULT IN Z, WHERE X, Y AND Z ARE MP
@ -119,8 +117,7 @@ int *x, *y, *z ;
void void
mpadd2(x, y, z, y1, trunc) mpadd2(int *x, int *y, int *z, int *y1, int *trunc)
int *x, *y, *z, *y1, *trunc ;
{ {
int i__1, i__2 ; int i__1, i__2 ;
@ -235,8 +232,7 @@ L130:
void void
mpadd3(x, y, s, med, re) mpadd3(int *x, int *y, int *s, int *med, int *re)
int *x, *y, *s, *med, *re ;
{ {
int i__1 ; int i__1 ;
@ -391,8 +387,7 @@ L160:
void void
mpaddi(x, iy, z) mpaddi(int *x, int *iy, int *z)
int *x, *iy, *z ;
{ {
/* ADDS MULTIPLE-PRECISION X TO INTEGER IY /* ADDS MULTIPLE-PRECISION X TO INTEGER IY
@ -415,8 +410,7 @@ int *x, *iy, *z ;
void void
mpaddq(x, i, j, y) mpaddq(int *x, int *i, int *j, int *y)
int *x, *i, *j, *y ;
{ {
/* ADDS THE RATIONAL NUMBER I/J TO MP NUMBER X, MP RESULT IN Y /* ADDS THE RATIONAL NUMBER I/J TO MP NUMBER X, MP RESULT IN Y
@ -435,8 +429,7 @@ int *x, *i, *j, *y ;
void void
mpart1(n, y) mpart1(int *n, int *y)
int *n, *y ;
{ {
int i__1, i__2 ; int i__1, i__2 ;
@ -524,8 +517,7 @@ L60:
void void
mpasin(x, y) mpasin(int *x, int *y)
int *x, *y ;
{ {
int i__1 ; int i__1 ;
@ -586,8 +578,7 @@ L40:
void void
mpatan(x, y) mpatan(int *x, int *y)
int *x, *y ;
{ {
int i__1, i__2 ; int i__1, i__2 ;
float r__1 ; float r__1 ;
@ -691,9 +682,7 @@ L50:
void void
mpcdm(dx, z) mpcdm(double *dx, int *z)
double *dx ;
int *z ;
{ {
int i__1 ; int i__1 ;
@ -822,8 +811,7 @@ L130:
void void
mpchk(i, j) mpchk(int *i, int *j)
int *i, *j ;
{ {
static int ib, mx ; static int ib, mx ;
@ -904,8 +892,7 @@ L100:
void void
mpcim(ix, z) mpcim(int *ix, int *z)
int *ix, *z ;
{ {
int i__1 ; int i__1 ;
@ -957,9 +944,7 @@ L40:
void void
mpcmd(x, dz) mpcmd(int *x, double *dz)
int *x ;
double *dz ;
{ {
int i__1 ; int i__1 ;
double d__1 ; double d__1 ;
@ -1031,8 +1016,7 @@ L30:
void void
mpcmf(x, y) mpcmf(int *x, int *y)
int *x, *y ;
{ {
int i__1 ; int i__1 ;
@ -1096,8 +1080,7 @@ L30:
void void
mpcmi(x, iz) mpcmi(int *x, int *iz)
int *x, *iz ;
{ {
int i__1 ; int i__1 ;
@ -1167,8 +1150,7 @@ L30:
void void
mpcmim(x, y) mpcmim(int *x, int *y)
int *x, *y ;
{ {
int i__1 ; int i__1 ;
@ -1210,8 +1192,7 @@ L10:
int int
mpcmpi(x, i) mpcmpi(int *x, int *i)
int *x, *i ;
{ {
int ret_val ; int ret_val ;
@ -1236,9 +1217,7 @@ int *x, *i ;
int int
mpcmpr(x, ri) mpcmpr(int *x, float *ri)
int *x ;
float *ri ;
{ {
int ret_val ; int ret_val ;
@ -1263,9 +1242,7 @@ float *ri ;
void void
mpcmr(x, rz) mpcmr(int *x, float *rz)
int *x ;
float *rz ;
{ {
int i__1 ; int i__1 ;
float r__1 ; float r__1 ;
@ -1330,8 +1307,7 @@ L30:
int int
mpcomp(x, y) mpcomp(int *x, int *y)
int *x, *y ;
{ {
int ret_val, i__1, i__2 ; int ret_val, i__1, i__2 ;
@ -1404,8 +1380,7 @@ L70:
void void
mpcos(x, y) mpcos(int *x, int *y)
int *x, *y ;
{ {
static int i2 ; static int i2 ;
@ -1455,8 +1430,7 @@ L20:
void void
mpcosh(x, y) mpcosh(int *x, int *y)
int *x, *y ;
{ {
static int i2 ; static int i2 ;
@ -1501,8 +1475,7 @@ L10:
void void
mpcqm(i, j, q) mpcqm(int *i, int *j, int *q)
int *i, *j, *q ;
{ {
static int i1, j1 ; static int i1, j1 ;
@ -1536,9 +1509,7 @@ L40:
void void
mpcrm(rx, z) mpcrm(float *rx, int *z)
float *rx ;
int *z ;
{ {
int i__1 ; int i__1 ;
@ -1746,8 +1717,7 @@ L40:
void void
mpdivi(x, iy, z) mpdivi(int *x, int *iy, int*z)
int *x, *iy, *z ;
{ {
int i__1, i__2 ; int i__1, i__2 ;
@ -1952,8 +1922,7 @@ L240:
int int
mpeq(x, y) mpeq(int *x, int *y)
int *x, *y ;
{ {
int ret_val ; int ret_val ;
@ -1968,7 +1937,7 @@ int *x, *y ;
void void
mperr() mperr(void)
{ {
/* THIS ROUTINE IS CALLED WHEN AN ERROR CONDITION IS ENCOUNTERED, AND /* THIS ROUTINE IS CALLED WHEN AN ERROR CONDITION IS ENCOUNTERED, AND
@ -1980,8 +1949,7 @@ mperr()
void void
mpexp(x, y) mpexp(int *x, int *y)
int *x, *y ;
{ {
int i__1, i__2 ; int i__1, i__2 ;
float r__1 ; float r__1 ;
@ -2166,8 +2134,7 @@ L110:
void void
mpexp1(x, y) mpexp1(int *x, int *y)
int *x, *y ;
{ {
int i__1 ; int i__1 ;
@ -2271,8 +2238,7 @@ L80:
void void
mpext(i, j, x) mpext(int *i, int *j, int *x)
int *i, *j, *x ;
{ {
static int q, s ; static int q, s ;
@ -2313,8 +2279,7 @@ L10:
void void
mpgcd(k, l) mpgcd(int *k, int *l)
int *k, *l ;
{ {
static int i, j, is, js ; static int i, j, is, js ;
@ -2356,8 +2321,7 @@ L30:
int int
mpge(x, y) mpge(int *x, int *y)
int *x, *y ;
{ {
int ret_val ; int ret_val ;
@ -2372,8 +2336,7 @@ int *x, *y ;
int int
mpgt(x, y) mpgt(int *x, int *y)
int *x, *y ;
{ {
int ret_val ; int ret_val ;
@ -2388,8 +2351,7 @@ int *x, *y ;
int int
mple(x, y) mple(int *x, int *y)
int *x, *y ;
{ {
int ret_val ; int ret_val ;
@ -2404,8 +2366,7 @@ int *x, *y ;
void void
mpln(x, y) mpln(int *x, int *y)
int *x, *y ;
{ {
float r__1 ; float r__1 ;
@ -2496,8 +2457,7 @@ L50:
void void
mplns(x, y) mplns(int *x, int *y)
int *x, *y ;
{ {
int i__1, i__2 ; int i__1, i__2 ;
@ -2608,8 +2568,7 @@ L80:
int int
mplt(x, y) mplt(int *x, int *y)
int *x, *y ;
{ {
int ret_val ; int ret_val ;
@ -2624,8 +2583,7 @@ int *x, *y ;
void void
mpmaxr(x) mpmaxr(int *x)
int *x ;
{ {
int i__1 ; int i__1 ;
@ -2654,8 +2612,7 @@ int *x ;
void void
mpmlp(u, v, w, j) mpmlp(int *u, int *v, int *w, int *j)
int *u, *v, *w, *j ;
{ {
int i__1 ; int i__1 ;
@ -2676,8 +2633,7 @@ int *u, *v, *w, *j ;
void void
mpmul(x, y, z) mpmul(int *x, int *y, int *z)
int *x, *y, *z ;
{ {
int i__1, i__2, i__3, i__4 ; int i__1, i__2, i__3, i__4 ;
@ -2806,8 +2762,7 @@ L110:
void void
mpmul2(x, iy, z, trunc) mpmul2(int *x, int *iy, int *z, int *trunc)
int *x, *iy, *z, *trunc ;
{ {
int i__1, i__2 ; int i__1, i__2 ;
@ -2965,8 +2920,7 @@ L130:
void void
mpmuli(x, iy, z) mpmuli(int *x, int *iy, int *z)
int *x, *iy, *z ;
{ {
/* MULTIPLIES MP X BY SINGLE-PRECISION INTEGER IY GIVING MP Z. /* MULTIPLIES MP X BY SINGLE-PRECISION INTEGER IY GIVING MP Z.
@ -2984,8 +2938,7 @@ int *x, *iy, *z ;
void void
mpmulq(x, i, j, y) mpmulq(int *x, int *i, int *j, int *y)
int *x, *i, *j, *y ;
{ {
int i__1 ; int i__1 ;
@ -3033,8 +2986,7 @@ L50:
void void
mpneg(x, y) mpneg(int *x, int *y)
int *x, *y ;
{ {
/* SETS Y = -X FOR MP NUMBERS X AND Y */ /* SETS Y = -X FOR MP NUMBERS X AND Y */
@ -3049,8 +3001,7 @@ int *x, *y ;
void void
mpnzr(rs, re, z, trunc) mpnzr(int *rs, int *re, int *z, int *trunc)
int *rs, *re, *z, *trunc ;
{ {
int i__1 ; int i__1 ;
@ -3206,8 +3157,7 @@ L190:
void void
mpovfl(x) mpovfl(int *x)
int *x ;
{ {
/* CALLED ON MULTIPLE-PRECISION OVERFLOW, IE WHEN THE /* CALLED ON MULTIPLE-PRECISION OVERFLOW, IE WHEN THE
@ -3238,8 +3188,7 @@ int *x ;
void void
mppi(x) mppi(int *x)
int *x ;
{ {
float r__1 ; float r__1 ;
@ -3281,8 +3230,7 @@ int *x ;
void void
mppwr(x, n, y) mppwr(int *x, int *n, int *y)
int *x, *n, *y ;
{ {
static int i2, n2, ns ; static int i2, n2, ns ;
@ -3362,8 +3310,7 @@ L70:
void void
mppwr2(x, y, z) mppwr2(int *x, int *y, int *z)
int *x, *y, *z ;
{ {
static int i2 ; static int i2 ;
@ -3421,8 +3368,7 @@ L70:
void void
mprec(x, y) mprec(int *x, int *y)
int *x, *y ;
{ {
/* Initialized data */ /* Initialized data */
@ -3567,8 +3513,7 @@ L70:
void void
mproot(x, n, y) mproot(int *x, int *n, int *y)
int *x, *n, *y ;
{ {
/* Initialized data */ /* Initialized data */
@ -3766,8 +3711,7 @@ L170:
void void
mpset(idecpl, itmax2, maxdr) mpset(int *idecpl, int *itmax2, int *maxdr)
int *idecpl, *itmax2, *maxdr ;
{ {
int i__1 ; int i__1 ;
@ -3881,8 +3825,7 @@ L80:
void void
mpsin(x, y) mpsin(int *x, int *y)
int *x, *y ;
{ {
float r__1 ; float r__1 ;
@ -3995,8 +3938,7 @@ L50:
void void
mpsin1(x, y, is) mpsin1(int *x, int *y, int *is)
int *x, *y, *is ;
{ {
int i__1 ; int i__1 ;
@ -4093,8 +4035,7 @@ L80:
void void
mpsinh(x, y) mpsinh(int *x, int *y)
int *x, *y ;
{ {
int i__1 ; int i__1 ;
@ -4161,8 +4102,7 @@ L30:
void void
mpsqrt(x, y) mpsqrt(int *x, int *y)
int *x, *y ;
{ {
static int i, i2, iy3 ; static int i, i2, iy3 ;
@ -4204,8 +4144,7 @@ L40:
void void
mpstr(x, y) mpstr(int *x, int *y)
int *x, *y ;
{ {
int i__1 ; int i__1 ;
@ -4244,8 +4183,7 @@ L10:
void void
mpsub(x, y, z) mpsub(int *x, int *y, int *z)
int *x, *y, *z ;
{ {
static int y1[1] ; static int y1[1] ;
@ -4264,8 +4202,7 @@ int *x, *y, *z ;
void void
mptanh(x, y) mptanh(int *x, int *y)
int *x, *y ;
{ {
float r__1 ; float r__1 ;
@ -4337,8 +4274,7 @@ L40:
void void
mpunfl(x) mpunfl(int *x)
int *x ;
{ {
/* CALLED ON MULTIPLE-PRECISION UNDERFLOW, IE WHEN THE /* CALLED ON MULTIPLE-PRECISION UNDERFLOW, IE WHEN THE
@ -4363,9 +4299,7 @@ int *x ;
double double
mppow_di(ap, bp) mppow_di(double *ap, int *bp)
double *ap ;
int *bp ;
{ {
double pow, x ; double pow, x ;
int n ; int n ;
@ -4394,8 +4328,7 @@ int *bp ;
int int
pow_ii(ap, bp) pow_ii(int *ap, int *bp)
int *ap, *bp ;
{ {
int pow, x, n ; int pow, x, n ;
@ -4415,9 +4348,7 @@ int *ap, *bp ;
double double
mppow_ri(ap, bp) mppow_ri(float *ap, int *bp)
float *ap ;
int *bp ;
{ {
double pow, x ; double pow, x ;
int n ; int n ;