Mercurial > hg > octave-max
view liboctave/lo-macros.h @ 14327:4d917a6a858b stable
doc: Use Octave coding conventions in @example blocks of docstrings.
* accumarray.m, accumdim.m, bar.m, base2dec.m, bincoeff.m, bitcmp.m, bitset.m,
celldisp.m, chop.m, clabel.m, cloglog.m, colon.m, compass.m, computer.m,
contour3.m, contourc.m, corr.m, cstrcat.m, ctime.m, cylinder.m, date.m,
dec2base.m, demo.m, dir.m, dlmwrite.m, expm.m, ezcontourf.m, ezcontour.m,
ezmeshc.m, ezmesh.m, ezplot.m, ezsurfc.m, ezsurf.m, feather.m, findobj.m,
flipdim.m, fplot.m, genvarname.m, getfield.m, hankel.m, hilb.m, hist.m,
idivide.m, index.m, int2str.m, interp1.m, is_leap_year.m, ismember.m,
isocolors.m, isonormals.m, isosurface.m, kurtosis.m, legendre.m, linkprop.m,
logit.m, logm.m, __makeinfo__.m, __marching_cube__.m, median.m, mkoctfile.m,
moment.m, mpoles.m, orderfields.m, pcg.m, pcr.m, plot3.m, plotmatrix.m,
polyaffine.m, polygcd.m, poly.m, polyout.m, print.m, qp.m, quadgk.m, qzhess.m,
randi.m, rat.m, refreshdata.m, residue.m, rose.m, rot90.m, saveas.m, saveobj.m,
shiftdim.m, skewness.m, spaugment.m, spdiags.m, sqp.m, stem.m, str2num.m,
strcat.m, strjust.m, strread.m, strsplit.m, structfun.m, subplot.m,
subsindex.m, substruct.m, surfl.m, surfnorm.m, svds.m, uimenu.m, union.m,
voronoi.m, warning_ids.m, wblpdf.m: Use Octave coding conventions in
@example blocks of docstrings.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Sat, 04 Feb 2012 22:12:50 -0800 |
| parents | 72c96de7a403 |
| children | bb1f3a9bb122 |
line wrap: on
line source
/* Copyright (C) 2010-2012 VZLU Prague This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ #if !defined (octave_liboctave_macros_h) #define octave_liboctave_macros_h 1 // Core macros. Iteration is supported up to count 10. #define OCT_ITERATE_PARAM_MACRO0(MACRO, PARAM) #define OCT_ITERATE_PARAM_MACRO1(MACRO, PARAM) \ MACRO(0, PARAM) #define OCT_ITERATE_PARAM_MACRO2(MACRO, PARAM) \ MACRO(0, PARAM) MACRO(1, PARAM) #define OCT_ITERATE_PARAM_MACRO3(MACRO, PARAM) \ MACRO(0, PARAM) MACRO(1, PARAM) MACRO(2, PARAM) #define OCT_ITERATE_PARAM_MACRO4(MACRO, PARAM) \ MACRO(0, PARAM) MACRO(1, PARAM) MACRO(2, PARAM) MACRO(3, PARAM) #define OCT_ITERATE_PARAM_MACRO5(MACRO, PARAM) \ MACRO(0, PARAM) MACRO(1, PARAM) MACRO(2, PARAM) MACRO(3, PARAM) MACRO(4, PARAM) #define OCT_ITERATE_PARAM_MACRO6(MACRO, PARAM) \ OCT_ITERATE_PARAM_MACRO5(MACRO, PARAM) MACRO(5, PARAM) #define OCT_ITERATE_PARAM_MACRO7(MACRO, PARAM) \ OCT_ITERATE_PARAM_MACRO5(MACRO, PARAM) MACRO(5, PARAM) MACRO(6, PARAM) #define OCT_ITERATE_PARAM_MACRO8(MACRO, PARAM) \ OCT_ITERATE_PARAM_MACRO5(MACRO, PARAM) MACRO(5, PARAM) MACRO(6, PARAM) MACRO(7, PARAM) #define OCT_ITERATE_PARAM_MACRO9(MACRO, PARAM) \ OCT_ITERATE_PARAM_MACRO8(MACRO, PARAM) MACRO(8, PARAM) #define OCT_ITERATE_PARAM_MACRO10(MACRO, PARAM) \ OCT_ITERATE_PARAM_MACRO8(MACRO, PARAM) MACRO(8, PARAM) MACRO(9, PARAM) // expands to MACRO(0, PARAM) MACRO(1, PARAM) ... MACRO(NUM-1, PARAM) #define OCT_ITERATE_PARAM_MACRO(MACRO, PARAM, NUM) OCT_ITERATE_PARAM_MACRO##NUM(MACRO,PARAM) #define OCT_IF_PARAM0(MACRO, PARAM) #define OCT_IF_PARAM1(MACRO, PARAM) MACRO(PARAM) #define OCT_IF_PARAM2(MACRO, PARAM) MACRO(PARAM) #define OCT_IF_PARAM3(MACRO, PARAM) MACRO(PARAM) #define OCT_IF_PARAM4(MACRO, PARAM) MACRO(PARAM) #define OCT_IF_PARAM5(MACRO, PARAM) MACRO(PARAM) #define OCT_IF_PARAM6(MACRO, PARAM) MACRO(PARAM) #define OCT_IF_PARAM7(MACRO, PARAM) MACRO(PARAM) #define OCT_IF_PARAM8(MACRO, PARAM) MACRO(PARAM) #define OCT_IF_PARAM9(MACRO, PARAM) MACRO(PARAM) // expands to MACRO(PARAM) if NUM > 0 #define OCT_IF_PARAM(NUM, MACRO, PARAM) OCT_IF_PARAM##NUM(MACRO, PARAM) // concatenation and reverse concat #define OCT_CONCAT2(ARG1, ARG2) ARG1 ## ARG2 #define OCT_CONCAT2_REVERSE(ARG1, ARG2) ARG2 ## ARG1 #define OCT_IF_HELPER(X) X // expands to X if NUM > 0 #define OCT_IF(NUM, X) OCT_IF_PARAM(NUM, OCT_IF_HELPER, X) #define OCT_ITERATE_MACRO_HELPER(NUM, MACRO) MACRO(NUM) // expands to MACRO(0) ... MACRO(NUM-1) #define OCT_ITERATE_MACRO(MACRO, NUM) OCT_ITERATE_PARAM_MACRO(OCT_ITERATE_MACRO_HELPER, MACRO, NUM) #define OCT_MAKE_LIST_HELPER1(ARG) ARG, // expands to MACRO(0), MACRO(1), ..., MACRO(NUM-1) #define OCT_MAKE_LIST_HELPER(NUM, MACRO) OCT_IF_PARAM(NUM,OCT_MAKE_LIST_HELPER1,) MACRO(NUM) #define OCT_MAKE_LIST(MACRO, NUM) OCT_ITERATE_PARAM_MACRO(OCT_MAKE_LIST_HELPER, MACRO, NUM) #define OCT_MAKE_DECL_LIST_HELPER(NUM, PREFIX) \ OCT_IF_PARAM(NUM,OCT_MAKE_LIST_HELPER1,) OCT_CONCAT2(PREFIX, NUM) // expands to TYPE PREFIX0, TYPE PREFIX1, ..., TYPE PREFIX ## (NUM-1) #define OCT_MAKE_DECL_LIST(TYPE, PREFIX, NUM) \ OCT_ITERATE_PARAM_MACRO(OCT_MAKE_DECL_LIST_HELPER, TYPE PREFIX, NUM) #endif