cco/cybertools
3
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

work in progress: Python scripts with special R support

Browse source 
git-svn-id: svn://svn.cy55.de/Zope3/src/cybertools/trunk@2028 fd906abe-77d9-0310-91a1-e0d9ade77398
This commit is contained in:
helmutm 2007-09-12 08:07:50 +00:00
parent 3a894ab4e5
commit c5de793e2c
3 changed files with 67 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
pyscript/browser.py
View file

@ -1,16 +1,21 @@
##############################################################################
#
# Copyright (c) 2004 Zope Corporation and Contributors.
# All Rights Reserved.
# Copyright (c) 2007 Helmut Merz helmutm@cy55.de
#
# This software is subject to the provisions of the Zope Public License,
# Version 2.1 (ZPL). A copy of the ZPL should accompany this distribution.
# THIS SOFTWARE IS PROVIDED "AS IS" AND ANY AND ALL EXPRESS OR IMPLIED
# WARRANTIES ARE DISCLAIMED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
# WARRANTIES OF TITLE, MERCHANTABILITY, AGAINST INFRINGEMENT, AND FITNESS
# FOR A PARTICULAR PURPOSE.
# This program 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 2 of the License, or
# (at your option) any later version.
#
##############################################################################
# This program 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 this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
"""Python Script Browser Views
$Id$

51
pyscript/rstat.py Normal file
View file

@ -0,0 +1,51 @@
#
# Copyright (c) 2007 Helmut Merz helmutm@cy55.de
#
# This program 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 2 of the License, or
# (at your option) any later version.
#
# This program 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 this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
"""
Working transparently with the R statistics package.
$Id$
"""
import rpy
from rpy import r
from zope.proxy import removeAllProxies
class RWrapper(object):
def __init__(self, context):
self.context = context
def __getattr__(self, attr):
value = getattr(self.context, attr)
# TODO (Zope 2): return aq_base(value)
return removeAllProxies(value)
def __call__(self, *args, **kw):
value = self.context.__call__(*args, **kw)
value = removeAllProxies(value)
return RWrapper(value)
# TODO (subclass for Zope 2): return aq_base(value)
r = RWrapper(r)
with_mode = RWrapper(rpy.with_mode)
as_py = RWrapper(rpy.as_py)

2
pyscript/script.py
View file

@ -159,7 +159,7 @@ class Function(object):
lines.append(' ' + line)
lines.append('script_result = dummy()')
source = '\n'.join(lines)
#print source
#print '*** source:', source
self.code = compile(source, filename, 'exec')
def __call__(self, globals):