516036631c
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
64 lines
1.9 KiB
C
64 lines
1.9 KiB
C
/* -----------------------------------------------------------------------------
|
|
* fragment.c
|
|
*
|
|
* This file manages named code fragments. Code fragments are typically
|
|
* used to hold helper-code that may or may not be included in the wrapper
|
|
* file (depending on what features are actually used in the interface).
|
|
*
|
|
* By using fragments, it's possible to greatly reduce the amount of
|
|
* wrapper code and to generate cleaner wrapper files.
|
|
*
|
|
* Author(s) : David Beazley (beazley@cs.uchicago.edu)
|
|
*
|
|
* Copyright (C) 1999-2000. The University of Chicago
|
|
* See the file LICENSE for information on usage and redistribution.
|
|
* ----------------------------------------------------------------------------- */
|
|
|
|
char cvsroot_fragment_c[] = "$Header$";
|
|
|
|
#include "swig.h"
|
|
|
|
static Hash *fragments = 0;
|
|
|
|
/* -----------------------------------------------------------------------------
|
|
* Swig_fragment_register()
|
|
*
|
|
* Add a fragment.
|
|
* ----------------------------------------------------------------------------- */
|
|
|
|
void
|
|
Swig_fragment_register(String *name, String *section, String *code) {
|
|
String *ccode;
|
|
if (!fragments) {
|
|
fragments = NewHash();
|
|
}
|
|
ccode = Copy(code);
|
|
Setmeta(ccode,"section",Copy(section));
|
|
Setattr(fragments,Copy(name),ccode);
|
|
}
|
|
|
|
/* -----------------------------------------------------------------------------
|
|
* Swig_fragment_emit()
|
|
*
|
|
* Emit a fragment
|
|
* ----------------------------------------------------------------------------- */
|
|
|
|
void
|
|
Swig_fragment_emit(String *name) {
|
|
String *code;
|
|
if (!fragments) return;
|
|
|
|
code = Getattr(fragments,name);
|
|
if (code) {
|
|
String *section = Getmeta(code,"section");
|
|
if (section) {
|
|
File *f = Swig_filebyname(section);
|
|
if (!f) {
|
|
Swig_error(Getfile(code),Getline(code),"Bad section '%s' for code fragment '%s'\n", section,name);
|
|
} else {
|
|
Printf(f,"%s\n",code);
|
|
}
|
|
}
|
|
Delattr(fragments,name);
|
|
}
|
|
}
|