Mercurial > hg > octave-nkf
view libinterp/mkdefs @ 18946:89448a7523b2
Add some more callbacks for root properties (bug #42347).
* graphics.in.h (root prop. errormessage): set read-only and declare custom get
method
* graphics.in.h (root prop. diary, diaryfile, echo, recursionlimit): declare
custom get/set methods
* graphics.cc (root::properties::get_errormessage, set_diary, get_diary,
set_diaryfile, get_diaryfile, set_echo, get_echo, set_recursionlimit,
get_recursionlimit): new methods.
* pager.cc (F__diaryfile__, F__diarystate__): new functions to retrieve diary
info.
* pager.cc: set default value "diary" for diary_file static variable.
* input.cc (F__echostate__): new function to retrieve echo info.
author | Pantxo Diribarne <pantxo.diribarne@gmail.com> |
---|---|
date | Tue, 13 May 2014 18:51:52 +0200 |
parents | d63878346099 |
children | 446c46af4b42 |
line wrap: on
line source
#! /bin/sh # # Copyright (C) 1996-2013 John W. Eaton # # 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/>. SED=${SED:-'sed'} if [ $# -ne 2 ]; then echo "usage: mkdefs srcdir file < preprocessed-file-contents" 1>&2 exit 1 fi srcdir="$1" file="$2"; echo "// DO NOT EDIT! Generated automatically by mkdefs." case "$file" in $srcdir/*) xsrcdir=`echo "$file" | sed "s,^$srcdir,libinterp,"` ;; *) xsrcdir="libinterp/$file" ;; esac echo " XDEFUN_FILE_NAME (\"$xsrcdir\")" egrep '^(///*|/\*) *PKG_ADD:' $file $SED -n -e '/^ *BEGIN_INSTALL_BUILTIN/{ : loop s/BEGIN_INSTALL_BUILTIN// s/^#[ \t][ \t]*[0-9][0-9]*.*$// /END_INSTALL_BUILTIN/b done p n b loop : done s/END_INSTALL_BUILTIN// p }'