From 0203aa18aa87106fb5463e408f9dd0656f1b2216 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Dejean?= <bdejean@gmail.com>
Date: Thu, 31 Aug 2017 17:37:37 +0200
Subject: Drop dead files.

---
 lib/structures.pl | 104 ------------------------------------------------------
 1 file changed, 104 deletions(-)
 delete mode 100644 lib/structures.pl

(limited to 'lib')

diff --git a/lib/structures.pl b/lib/structures.pl
deleted file mode 100644
index 976dc560..00000000
--- a/lib/structures.pl
+++ /dev/null
@@ -1,104 +0,0 @@
-#!/usr/bin/perl
-
-die "Usage: $0 features.def structures.def" unless $#ARGV == 2;
-
-$[ = 1;			# set array base to 1
-$, = ' ';		# set output field separator
-$\ = "\n";		# set output record separator
-
-sub toupper {
-    local($_) = @_;
-    tr/a-z/A-Z/;
-    return $_;
-}
-
-sub tolower {
-    local($_) = @_;
-    tr/A-Z/a-z/;
-    return $_;
-}
-
-$structures{$structure_count++} = 'glibtop';
-
-open FEATURESDEF, $ARGV[1] or
-  die "open ($ARGV[1]): $!";
-
-while (<FEATURESDEF>) {
-  chop;				# strip record separator
-  
-  if (/^[^\#]/) {
-    &parse_features_def ($_);
-  }
-}
-
-close FEATURESDEF;
-
-open STRUCTDEF, $ARGV[2] or
-  die "open ($ARGV[2]): $!";
-
-while (<STRUCTDEF>) {
-  chop;				# strip record separator
-  
-  if (/^[^\#]/) {
-    &parse_structure_def ($_);
-  }
-}
-
-close STRUCTDEF;
-
-$init_structures_code = sprintf
-  (qq[\tscm_glibtop_structure_tags [GLIBTOP_STRUCTURE_GLIBTOP] = scm_make_structure_type\n\t\t("glibtop", sizeof (glibtop));\n]);
-
-for ($nr = 0; $nr < $structure_count; $nr++) {
-  $structure = $structures{$nr};
-
-  $init_structures_code .= sprintf
-    (qq[\tscm_glibtop_structure_tags [GLIBTOP_STRUCTURE_%s] = scm_make_structure_type\n\t\t("%s", sizeof (%s));\n],
-     toupper($structure), $structure, $structure);
-}
-
-print qq[/* structures.h */];
-print qq[/* This is a generated file.  Please modify \`guile.pl\' */];
-print '';
-print qq[\#ifndef __GLIBTOP_STRUCTURES_H__];
-print qq[\#define __GLIBTOP_STRUCTURES_H__];
-print '';
-print qq[\#include <glibtop.h>];
-print '';
-print qq[G_BEGIN_DECLS];
-print '';
-
-for ($nr = 0; $nr < $structure_count; $nr++) {
-  $structure = $structures{$nr};
-
-  printf (qq[\#define %-40s\t%d\n], 'GLIBTOP_STRUCTURE_'.&toupper($structure), $nr);
-}
-
-print '';
-printf (qq[\#define %-40s\t%d\n], 'GLIBTOP_MAX_STRUCTURES', $structure_count);
-print '';
-print qq[G_END_DECLS];
-print '';
-print qq[\#endif /* __GLIBTOP_STRUCTURES_H__ */];
-
-sub parse_features_def {
-  local($line) = @_;
-  @line_fields = split(/\|/, $line, 9999);
-  $retval = $line_fields[1];
-  $element_def = $line_fields[3];
-  $feature = $line_fields[2];
-  $param_def = $line_fields[4];
-  
-  $feature =~ s/^@//;
-  $features{$feature} = $feature;
-
-  $structures{$structure_count++} = 'glibtop_'.$feature;
-}
-
-sub parse_structure_def {
-  local($line) = @_;
-  @line_fields = split(/\|/, $line, 9999);
-  $name = $line_fields[1];
-
-  $structures{$structure_count++} = $name;
-}
-- 
cgit v1.2.1