tools/gst-element-maker

   1 #!/bin/sh
   2
   3
   4 prefix=gst
   5 templatedir=element-templates
   6
   7 while [ "$1" ] ; do
   8   case $1 in
   9     --help)
  10       cat <<-EOF
  11 Usage: element-maker [OPTIONS] ELEMENT_NAME BASE_CLASS
  12 Create a GStreamer element that subclasses BASE_CLASS.
  13 Options:
  14   --help             Print this information
  15   --prefix PREFIX    Use PREFIX instead of "gst"
  16 Example: 'element-maker my_element basetransform' will create the files
  17   gstmyelement.c and gstmyelement.h that implement GstMyElement, a
  18   subclass of GstBaseTransform, as an element named myelement.
  19 EOF
  20       exit 0
  21       ;;
  22     --prefix)
  23       shift
  24       prefix=$1
  25       ;;
  26     -*)
  27       echo Unknown option: $1
  28       exit 1
  29       ;;
  30     *)
  31       if [ "$name" = "" ]; then
  32         name=$1
  33       elif [ "$class" = "" ]; then
  34         class=$1
  35       else
  36         echo Ignored: $1
  37       fi
  38   esac
  39   shift
  40 done
  41
  42 if [ "$name" = "" -o "$class" = "" ] ; then
  43   echo "Usage: element-maker [OPTIONS] ELEMENT_NAME BASE_CLASS"
  44   exit 1
  45 fi
  46
  47 if [ ! -f "element-templates/$class" ] ; then
  48   echo "Template file for $class not found."
  49   exit 1
  50 fi
  51
  52
  53 PREFIX=$(echo $prefix | sed -e 's/\(.*\)/\U\1/')
  54 NAME=$(echo $name | sed -e 's/\(.*\)/\U\1/')
  55 Prefix=$(echo $prefix | sed -e 's/_\(.\)/\U\1/g' -e 's/^\(.\)/\U\1/')
  56 Name=$(echo $name | sed -e 's/_\(.\)/\U\1/g' -e 's/^\(.\)/\U\1/')
  57
  58 GST_IS_REPLACE=${PREFIX}_IS_${NAME}
  59 GST_REPLACE=${PREFIX}_${NAME}
  60 GST_TYPE_REPLACE=${PREFIX}_TYPE_${NAME}
  61 GstReplace=${Prefix}${Name}
  62 gst_replace=${prefix}_${name}
  63 gstreplace=${prefix}$(echo $name | sed -e 's/_//g')
  64 replace=$(echo $name | sed -e 's/_//g')
  65
  66 if [ "$REAL_NAME" = "" ] ; then
  67   REAL_NAME=FIXME
  68 fi
  69 if [ "$EMAIL_ADDRESS" = "" ] ; then
  70   EMAIL_ADDRESS=fixme@example.com
  71 fi
  72
  73
  74 pkg=`grep -A 10000 '^% pkg-config' $templatedir/$class | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1`
  75 GST_TYPE_BASE_REPLACE=`grep -A 10000 '^% TYPE_CLASS_NAME' $templatedir/$class | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1`
  76 GstBaseReplace=`grep -A 10000 '^% ClassName' $templatedir/$class | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1`
  77 pads=`grep -A 10000 '^% pads' $templatedir/$class | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1`
  78
  79 generate ()
  80 {
  81
  82 cat <<-EOF
  83 /* GStreamer
  84  * Copyright (C) $(date +%Y) $REAL_NAME <$EMAIL_ADDRESS>
  85  *
  86  * This library is free software; you can redistribute it and/or
  87  * modify it under the terms of the GNU Library General Public
  88  * License as published by the Free Software Foundation; either
  89  * version 2 of the License, or (at your option) any later version.
  90  *
  91  * This library is distributed in the hope that it will be useful,
  92  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  93  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  94  * Library General Public License for more details.
  95  *
  96  * You should have received a copy of the GNU Library General Public
  97  * License along with this library; if not, write to the
  98  * Free Software Foundation, Inc., 51 Franklin Street, Suite 500,
  99  * Boston, MA 02110-1335, USA.
 100  */
 101 EOF
 102
 103 cat <<-EOF
 104 /**
 105  * SECTION:element-$gstreplace
 106  *
 107  * The $replace element does FIXME stuff.
 108  *
 109  * <refsect2>
 110  * <title>Example launch line</title>
 111  * |[
 112  * gst-launch -v fakesrc ! $replace ! FIXME ! fakesink
 113  * ]|
 114  * FIXME Describe what the pipeline does.
 115  * </refsect2>
 116  */
 117 EOF
 118
 119 #grep -A 10000 '^% copyright' $templatedir/base | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 120
 121 cat <<EOF
 122
 123 #ifdef HAVE_CONFIG_H
 124 #include "config.h"
 125 #endif
 126
 127 EOF
 128
 129 grep -A 10000 '^% includes' $templatedir/base | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 130 grep -A 10000 '^% includes' $templatedir/gobject | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 131 grep -A 10000 '^% includes' $templatedir/$class | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 132
 133 cat <<EOF
 134 #include "gstreplace.h"
 135
 136 /* prototypes */
 137
 138 EOF
 139
 140 grep -A 10000 '^% prototypes' $templatedir/base | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 141 grep -A 10000 '^% prototypes' $templatedir/gobject | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 142 grep -A 10000 '^% prototypes' $templatedir/$class | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 143 for each in $pads
 144 do
 145   grep -A 10000 '^% prototypes' $templatedir/$each | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 146 done
 147
 148 cat <<EOF
 149
 150 enum
 151 {
 152   PROP_0
 153 };
 154
 155 /* pad templates */
 156
 157 EOF
 158
 159 for each in $pads
 160 do
 161   grep -A 10000 '^% pad-template' $templatedir/$each | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 162 done
 163
 164 cat <<EOF
 165
 166 /* class initialization */
 167
 168 GST_BOILERPLATE (GstReplace, gst_replace, GstBaseReplace,
 169     GST_TYPE_BASE_REPLACE);
 170
 171 static void
 172 gst_replace_base_init (gpointer g_class)
 173 {
 174   GstElementClass *element_class = GST_ELEMENT_CLASS (g_class);
 175
 176 EOF
 177
 178 for each in $pads
 179 do
 180   grep -A 10000 '^% base-init' $templatedir/$each | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 181 done
 182
 183 cat <<EOF
 184
 185   gst_element_class_set_details_simple (element_class, "FIXME Long name",
 186       "Generic", "FIXME Description", "$REAL_NAME <$EMAIL_ADDRESS>");
 187 }
 188
 189 static void
 190 gst_replace_class_init (GstReplaceClass * klass)
 191 {
 192 EOF
 193 grep -A 10000 '^% declare-class' $templatedir/base | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 194 grep -A 10000 '^% declare-class' $templatedir/gobject | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 195 grep -A 10000 '^% declare-class' $templatedir/$class | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 196
 197 echo
 198
 199 grep -A 10000 '^% set-methods' $templatedir/base | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 200 grep -A 10000 '^% set-methods' $templatedir/gobject | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 201 grep -A 10000 '^% set-methods' $templatedir/$class | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 202
 203 cat <<EOF
 204
 205 }
 206
 207 static void
 208 gst_replace_init (GstReplace * replace, GstReplaceClass * replace_class)
 209 {
 210 EOF
 211
 212 for each in $pads
 213 do
 214   grep -A 10000 '^% instance-init' $templatedir/$each | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 215 done
 216
 217
 218 cat <<EOF
 219 }
 220 EOF
 221
 222
 223 grep -A 10000 '^% methods' $templatedir/base | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 224 grep -A 10000 '^% methods' $templatedir/gobject | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 225 grep -A 10000 '^% methods' $templatedir/$class | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 226 for each in $pads
 227 do
 228   grep -A 10000 '^% methods' $templatedir/$each | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 229 done
 230
 231
 232 cat <<EOF
 233
 234 static gboolean
 235 plugin_init (GstPlugin * plugin)
 236 {
 237
 238   gst_element_register (plugin, "replace", GST_RANK_NONE,
 239       gst_replace_get_type ());
 240
 241   return TRUE;
 242 }
 243
 244 #ifndef VERSION
 245 #define VERSION "0.0.FIXME"
 246 #endif
 247 #ifndef PACKAGE
 248 #define PACKAGE "FIXME_package"
 249 #endif
 250 #ifndef PACKAGE_NAME
 251 #define PACKAGE_NAME "FIXME_package_name"
 252 #endif
 253 #ifndef GST_PACKAGE_ORIGIN
 254 #define GST_PACKAGE_ORIGIN "http://FIXME.org/"
 255 #endif
 256
 257 GST_PLUGIN_DEFINE (GST_VERSION_MAJOR,
 258     GST_VERSION_MINOR,
 259     "replace",
 260     "FIXME plugin description",
 261     plugin_init, VERSION, "LGPL", PACKAGE_NAME, GST_PACKAGE_ORIGIN)
 262
 263 EOF
 264
 265
 266 }
 267
 268 generate_header ()
 269 {
 270
 271 grep -A 10000 '^% copyright' $templatedir/base | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 272
 273 cat <<EOF
 274 #ifndef _GST_REPLACE_H_
 275 #define _GST_REPLACE_H_
 276
 277 EOF
 278
 279 grep -A 10000 '^% includes' $templatedir/base | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 280 grep -A 10000 '^% includes' $templatedir/gobject | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 281 grep -A 10000 '^% includes' $templatedir/$class | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 282
 283 cat <<EOF
 284
 285 G_BEGIN_DECLS
 286
 287 #define GST_TYPE_REPLACE \
 288   (gst_replace_get_type())
 289 #define GST_REPLACE(obj) \
 290   (G_TYPE_CHECK_INSTANCE_CAST((obj),GST_TYPE_REPLACE,GstReplace))
 291 #define GST_REPLACE_CLASS(klass) \
 292   (G_TYPE_CHECK_CLASS_CAST((klass),GST_TYPE_REPLACE,GstReplaceClass))
 293 #define GST_IS_REPLACE(obj) \
 294   (G_TYPE_CHECK_INSTANCE_TYPE((obj),GST_TYPE_REPLACE))
 295 #define GST_IS_REPLACE_CLASS(obj) \
 296   (G_TYPE_CHECK_CLASS_TYPE((klass),GST_TYPE_REPLACE))
 297
 298 typedef struct _GstReplace GstReplace;
 299 typedef struct _GstReplaceClass GstReplaceClass;
 300
 301 struct _GstReplace
 302 {
 303   GstBaseReplace base_replace;
 304
 305 EOF
 306
 307 for each in $pads
 308 do
 309   grep -A 10000 '^% instance-members' $templatedir/$each | tail -n +2|grep -m 1 -B 10000 '^%'|head -n -1
 310 done
 311
 312 cat <<EOF
 313 };
 314
 315 struct _GstReplaceClass
 316 {
 317   GstBaseReplaceClass base_replace_class;
 318 };
 319
 320 GType gst_replace_get_type (void);
 321
 322 G_END_DECLS
 323
 324 #endif
 325 EOF
 326
 327
 328 }
 329
 330
 331 generate | sed \
 332   -e "s/GST_BASE_REPLACE/$GST_BASE_REPLACE/g" \
 333   -e "s/GST_TYPE_BASE_REPLACE/$GST_TYPE_BASE_REPLACE/g" \
 334   -e "s/GstBaseReplace/$GstBaseReplace/g" \
 335   -e "s/GST_IS_REPLACE/$GST_IS_REPLACE/g" \
 336   -e "s/GST_REPLACE/$GST_REPLACE/g" \
 337   -e "s/GST_TYPE_REPLACE/$GST_TYPE_REPLACE/g" \
 338   -e "s/GstReplace/$GstReplace/g" \
 339   -e "s/gst_replace/$gst_replace/g" \
 340   -e "s/gstreplace/$gstreplace/g" \
 341   -e "s/replace/$replace/g" >$gstreplace.c
 342
 343 generate_header | sed \
 344   -e "s/GST_BASE_REPLACE/$GST_BASE_REPLACE/g" \
 345   -e "s/GST_TYPE_BASE_REPLACE/$GST_TYPE_BASE_REPLACE/g" \
 346   -e "s/GstBaseReplace/$GstBaseReplace/g" \
 347   -e "s/GST_IS_REPLACE/$GST_IS_REPLACE/g" \
 348   -e "s/GST_REPLACE/$GST_REPLACE/g" \
 349   -e "s/GST_TYPE_REPLACE/$GST_TYPE_REPLACE/g" \
 350   -e "s/GstReplace/$GstReplace/g" \
 351   -e "s/gst_replace/$gst_replace/g" \
 352   -e "s/gstreplace/$gstreplace/g" \
 353   -e "s/replace/$replace/g" >$gstreplace.h
 354
 355 gst-indent $gstreplace.c
 356
 357 echo pkg is $pkg
 358
 359 gcc -Wall $(pkg-config --cflags gstreamer-0.10 $pkg) -c -o $gstreplace.o $gstreplace.c
 360 gcc -shared -o $gstreplace.so $gstreplace.o $(pkg-config --libs gstreamer-0.10 $pkg)
 361
 362