X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Flst.h;h=901638e5b8c72411b8d26078c7dcaf903b002392;hp=beeb9a3daee69b7f14c82f049381265ca538135c;hb=9eab44408b9213d8909b7a9e525f404ad06064dd;hpb=487e5659efe401683eee0381b0d23f967ffffc3c diff --git a/ginac/lst.h b/ginac/lst.h index beeb9a3d..901638e5 100644 --- a/ginac/lst.h +++ b/ginac/lst.h @@ -1,6 +1,8 @@ /** @file lst.h * - * Definition of GiNaC's lst. + * Definition of GiNaC's lst. */ + +/* * This file was generated automatically by container.pl. * Please do not modify it directly, edit the perl script instead! * container.pl options: $CONTAINER=lst @@ -9,9 +11,8 @@ * $prepend=1 * $let_op=1 * $open_bracket=[ - * $close_bracket=] */ - -/* + * $close_bracket=] + * * GiNaC Copyright (C) 1999 Johannes Gutenberg University Mainz, Germany * * This program is free software; you can redistribute it and/or modify @@ -34,6 +35,9 @@ #include #include +#include + +namespace GiNaC { typedef list exlist; @@ -125,9 +129,13 @@ protected: extern const lst some_lst; extern type_info const & typeid_lst; -// macros +// utility functions +inline const lst &ex_to_lst(const ex &e) +{ + return static_cast(*e.bp); +} -#define ex_to_lst(X) (static_cast(*(X).bp)) +} // namespace GiNaC #endif // ndef __GINAC_LST_H__