File: classes.c

package info (click to toggle)
gerris 20131206%2Bdfsg-21
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 14,252 kB
  • sloc: ansic: 66,595; sh: 15,922; f90: 1,513; makefile: 1,150; fortran: 696; python: 493; awk: 104; lisp: 89; xml: 27
file content (32 lines) | stat: -rw-r--r-- 688 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#include <string.h>
#include "init.h"

static void key_value_pair (const char * key)
{
  printf ("%s\n", key);
  /* keywords must start with Gfs */
  g_assert (strstr (key, "Gfs") == key);
  printf ("%s\n", &(key[3]));
}

int main (int argc, char * argv[])
{
  GtsObjectClass ** klass;

  klass = gfs_classes ();

  key_value_pair ("GfsDefine");
  key_value_pair ("GfsTime");
  key_value_pair ("GfsDeferredCompilation");
  key_value_pair ("GfsProjectionParams");
  key_value_pair ("GfsApproxProjectionParams");
  key_value_pair ("GfsPhysicalParams");
  key_value_pair ("GfsAdvectionParams");

  while (*klass) {
    key_value_pair ((*klass)->info.name);
    klass++;
  }
  
  return 0;
}