- fprintf (stdout, "calc is a simple calculator\n\n");
- fprintf (stdout, "arithmetic op.:");
- fprintf (stdout, " + - * / %% ^\n");
- fprintf (stdout, "comparison op.:");
- fprintf (stdout, " == != >= <= > <\n");
- fprintf (stdout, "logical op.:");
- fprintf (stdout, " & | !\n");
- fprintf (stdout, "mathematic func.:");
- fprintf (stdout, " exp ln log pow sqrt\n");
- fprintf (stdout, "trigonometric func.:");
- fprintf (stdout, " acos asin atan cos sin tan\n");
- fprintf (stdout, "error functions:");
- fprintf (stdout, " erf erfc\n");
- fprintf (stdout, "miscellaneous func.:");
- fprintf (stdout, " abs ceil floor\n");
- fprintf (stdout, "storage func.:");
- fprintf (stdout, " clear dec disp inc mem rcl sto\n");
- fprintf (stdout, "control flow prim.:");
- fprintf (stdout, " cond print while {} ;\n");
- fprintf (stdout, "program management:");
- fprintf (stdout, " arg call del edit ls prog\n");
- fprintf (stdout, "stack management:");
- fprintf (stdout, " get len pop push put set show\n");
- fprintf (stdout, "stack func.:");
- fprintf (stdout, " max mean med min ord prod sum var\n");
- fprintf (stdout, "control management:");
- fprintf (stdout, " help quit\n");
- fprintf (stdout, "constants:");
- fprintf (stdout, " ans e pi\n");
+ printf ("calc is a simple calculator\n\n");
+ printf ("arithmetic op.:");
+ printf (" + - * / %% ^\n");
+ printf ("comparison op.:");
+ printf (" == != >= <= > <\n");
+ printf ("logical op.:");
+ printf (" & | !\n");
+ printf ("mathematic func.:");
+ printf (" exp ln log pow sqrt\n");
+ printf ("trigonometric func.:");
+ printf (" acos asin atan cos sin tan\n");
+ printf ("error functions:");
+ printf (" erf erfc\n");
+ printf ("miscellaneous func.:");
+ printf (" abs ceil floor\n");
+ printf ("storage func.:");
+ printf (" clear dec disp inc mem rcl sto\n");
+ printf ("control flow prim.:");
+ printf (" cond print while {} ;\n");
+ printf ("program management:");
+ printf (" arg call del edit ls prog\n");
+ printf ("stack management:");
+ printf (" get len pop push put set show\n");
+ printf ("stack func.:");
+ printf (" max mean med min ord prod sum var\n");
+ printf ("control management:");
+ printf (" base deg format grad help quit rad\n");
+ printf ("constants:");
+ printf (" ans e pi\n");
+}
+
+/* format function */
+
+int format (int precision)
+{
+ if (precision > 0) {
+ set_precision (precision);
+ set_format ();
+ } else if (precision != -1) {
+ VERBOSE (WARNING, fprintf (stdout, "error incorrect precision (%d)\n", precision));
+ return 0;
+ }
+ return get_precision ();
+}
+
+/* base function */
+
+void base (int in, int out)
+{
+ if ((in > 0) && (in < 37)) {
+ set_base (in, in);
+ if ((out > 0) && (out < 37)) {
+ set_base (in, out);
+ } else if (out != - 1) {
+ VERBOSE (WARNING, fprintf (stdout, "error incorrect output base (%d)\n", out));
+ }
+ } else if (in != -1 ) {
+ VERBOSE (WARNING, fprintf (stdout, "error incorrect input base (%d)\n", in));
+ } else {
+ printf ("base (I/O): %s\n", show_base ());
+ }