aptavout

# a Tcl script to automate builds
# instructions from http://wiki.tcl.tk/11861
# using tclkit.exe and sdx.kit from Google Code
# https://code.google.com/p/tclkit/downloads/list
# *** as well as TWAPI binaries ***
#
# Copy your source files into a work directory !!
# 
# usage: tclsh this-script.tcl gui.tcl
#

aptavout

#include <stdio.h>

#define MAXLINE		81 /* MAXLINE = MAXCARD + 1 */
#define MAXCARD		80
#define NEWLINE		'\n'
#define BLANK		' '

static int getch_lastc = MAXLINE;
static char getch_buf[MAXLINE];

aptavout

#include <stdio.h>

#define MAXLINE		81 /* MAXLINE = MAXCARD + 1 */
#define MAXCARD		80
#define NEWLINE		'\n'
#define BLANK		' '

static int putch_lastc = -1;
static char putch_buf[MAXLINE];

aptavout

/* demonstrate tree data structure with multi-dimensional arrays */

/* construct a tree of this form: */
/*          1     */
/*        2     3 */
/*       4 5  6   */
/* as a table,          */
/* node         children */
/* 1            2 3             */
/* 2            4 5             */

aptavout

c
c evaluate the natural logarithm e
c 
c variables
c   123456  a
c   fln     the value of the natural logarithm
c   iterm   the current term in the summation
c   next    the next number in a factorial operation
c   fdenom  the value of the current factorial
c