Initial revision

diff --git a/testload.c b/testload.c
new file mode 100644 (file)
index 0000000..fbbfc80
--- /dev/null
+++ b/testload.c
@@ -0,0 +1,126 @@
+/*
+ * This is a test load for ctopy, the C to Python translator.
+ * It is syntactically valid C, parts taken from the source for 
+ * Super Star Trek.
+ *
+ * This boxed comment at the beginning should turn into a series of
+ * Python comments with # at the left margin.  Both comment delimiters
+ * should turn into # followed by a blank line.
+ */
+
+// Comments in C++ style beginning with // should turn into Python comments
+
+// include of string.h should disappear
+#include <string.h>
+// include of stdlib.h should disappear
+#include <stdlib.h>
+// include of stdbool.h should disappear
+#include <stdbool.h>
+// include of stdlib.h should import sys
+#include <stdio.h>
+// include of stdlib.h should import math
+#include <math.h>
+// include of time.h should import time
+#include <time.h>
+// include of regex.h should import re
+#include <regex.h>
+// include of curses.h should import curses
+#include <curses.h>
+
+// extern declarations should just disappear
+extern fubar(int);
+
+// Simple macro definitions should turn into assignments
+#define NDEVICES       14
+
+// Macros that take arguments get translated to Python defines.
+// If the expansion ends with a parenthesis, the macro is assumed to 
+// return a value and turned into Python code that does likewise.
+// 
+#define square(i)              ((i)*(i))
+#define same(c1, c2)           ((c1.x == c2.x) && (c1.y == c2.y))
+#define distance(c1, c2)       sqrt(square(c1.x - c2.x) + square(c1.y - c2.y))
+#define invalidate(w)          w.x = w.y = 0
+
+/*************************************************************************
+A different style of boxed comment. Should also turn into a series of
+Python comments with # at the left margin.  Both comment delimiter lines
+should turn into # followed by a blank line.
+**************************************************************************/
+
+// The static keyword goes away.  void as a formal list is ignored.
+
+// Test enumeration processing
+typedef enum {
+    IHR = 'R',
+    IHK = 'K',
+    IHC = 'C',
+    IHS = 'S',
+    IHSTAR = '*',
+    IHP = 'P',
+    IHW = '@',
+    IHB = 'B',
+    IHBLANK = ' ',
+    IHDOT = '.',
+    IHQUEST = '?',
+    IHE = 'E',
+    IHF = 'F',
+    IHT = 'T',
+    IHWEB = '#',
+    IHMATER0 = '-',
+    IHMATER1 = 'o',
+    IHMATER2 = '0',
+} feature;
+
+typedef enum {
+    FWON, FDEPLETE, FLIFESUP, FNRG, FBATTLE,
+    FNEG3, FNOVA, FSNOVAED, FABANDN, FDILITHIUM,
+    FMATERIALIZE, FPHASER, FLOST, FMINING, FDPLANET,
+    FPNOVA, FSSC, FSTRACTOR, FDRAY, FTRIBBLE,
+    FHOLE, FCREW
+} FINTYPE ;
+
+enum COLORS {
+   DEFAULT,
+   BLACK, BLUE, GREEN, CYAN, RED, MAGENTA, BROWN, LIGHTGRAY,
+   DARKGRAY, LIGHTBLUE, LIGHTGREEN, LIGHTCYAN, LIGHTRED, LIGHTMAGENTA, YELLOW, WHITE
+};
+
+static int randdevice(void)
+/* comment in this position should get indented to conform to Python usage */
+{
+    /*
+     * This tests our ability to handle boxed comments with an indent.
+     * The C initializer below will be translated into a tuple.
+     */
+    static int weights[NDEVICES] = {
+       105,    /* DSRSENS: short range scanners        10.5% */
+       105,    /* DLRSENS: long range scanners         10.5% */
+       120,    /* DPHASER: phasers                     12.0% */
+       120,    /* DPHOTON: photon torpedoes            12.0% */
+       25,     /* DLIFSUP: life support                 2.5% */
+       65,     /* DWARPEN: warp drive                   6.5% */
+       70,     /* DIMPULS: impulse engines              6.5% */
+       145,    /* DSHIELD: deflector shields           14.5% */
+       30,     /* DRADIO:  subspace radio               3.0% */
+       45,     /* DSHUTTL: shuttle                      4.5% */
+       15,     /* DCOMPTR: computer                     1.5% */
+       20,     /* NAVCOMP: navigation system            2.0% */
+       75,     /* DTRANSP: transporter                  7.5% */
+       20,     /* DSHCTRL: high-speed shield controller 2.0% */
+       10,     /* DDRAY: death ray                      1.0% */
+       30,     /* DDSP: deep-space probes               3.0% */
+    };
+    // ctopy strips the type away, but isn't yet smart enough 
+    // to remove the following variables that don't have initializers.
+    int sum, i, idx = Rand() * 1000.0; /* weights must sum to 1000 */
+
+    // simple C for loops are translated
+    for (i = 0; i < NDEVICES; i++) {
+       sum += weights[i];
+       if (idx < sum)
+           return i;
+    }
+    return -1; /* we should never get here, but this quiets GCC */
+}
+