Initial commit

1 files changed, 118 insertions, 0 deletions

diff --git a/macros/latex/contrib/fancynum/tables.c b/macros/latex/contrib/fancynum/tables.c
new file mode 100644
index 0000000000..049f092e11
--- /dev/null
+++ b/macros/latex/contrib/fancynum/tables.c
@@ -0,0 +1,118 @@
+/*
+  tables.c
+  Produce figures illustrating fancynum
+  Part of the fancynum package
+  Copyright (c) J.J.Green 1999. 
+  j.j.green@sheffield.ac.uk
+  $Id: tables.c,v 1.7 2000/03/15 18:53:47 ap1jjg Exp $
+*/
+
+
+#include <stdlib.h>
+#include <stdio.h>
+
+/*
+  static constants
+*/
+
+static const double sampledouble = 3.141592653589793238462643383;
+
+static const char table_line[] = 
+  "\\verb|\%%%s| & \\verb|%s| & $\\fnum{%s}$";
+static char texformat[100];
+
+/*
+  static prototypes
+*/
+
+static void maketable(char*,
+		      char* (*)(char*,const char*),
+		      const char**,
+		      char*,
+		      char*);
+static void tabulate(FILE*,
+		     char* (*)(char*,const char*),
+		     const char**,
+		     char*,
+		     char*);
+static char* dblsample(char*,const char*);
+
+int main(void)
+{
+  const char* dblformats[] = 
+  {"%f","%e","%g","%.9f","%.9e","%.9g",NULL}; 
+  
+  maketable(
+	    "dbltable.tex",
+	    dblsample,
+	    dblformats,
+	    "Double conversions for $\\pi$",
+	    "dbltable");
+  
+  return EXIT_SUCCESS;
+}
+
+static void maketable(
+		      char* filename, 
+		      char* (*linefn)(char*,const char*), 
+		      const char** samples,
+		      char* title,
+		      char* label)
+{
+  FILE* texfile;
+
+  texfile = fopen(filename,"w");
+  if (texfile == NULL) return;
+
+  tabulate(texfile,linefn,samples,title,label);
+  (void)fclose(texfile);;
+}
+
+
+static char* dblsample(char* buffer,const char* format)
+{
+  double a =  sampledouble;
+
+  sprintf(texformat,table_line,format,format,format);
+  sprintf(buffer,(const char*)texformat,a,a);
+
+  return buffer;
+}
+
+static void tabulate(
+		     FILE* texfile, 
+		     char* (*linefn)(char*,const char*), 
+		     const char** samples,
+		     char* title,
+		     char* label)
+{
+  char* line;
+  char buffer[500];
+
+  fprintf(texfile,"%% automatically generated by tables.c\n");
+  fprintf(texfile,"\\begin{table}[tbh]\n");
+  fprintf(texfile,"\\begin{center}\n");  
+  fprintf(texfile,"\\begin{tabular}{|c|c|c|}\n");
+  fprintf(texfile,"\\hline\n");  
+  fprintf(texfile,"Format & Output & Typeset \\\\ \\hline \n");
+  while (*samples != NULL)
+    {
+      line = linefn(buffer,*samples);
+      fprintf(texfile,"%s \\\\\n",line);
+      samples++;
+    }
+  fprintf(texfile,"\\hline\n");    
+  fprintf(texfile,"\\end{tabular}\n");
+  fprintf(texfile,"\\end{center}\n");
+  fprintf(texfile,"\\caption{%s\\label{%s}}\n",title,label);
+  fprintf(texfile,"\\end{table}\n");
+}
+
+
+
+
+
+
+
+
+