Displaying 3 results from an estimated 3 matches for "topen".
Did you mean:
open
2001 Oct 02
1
Graceful exit from fortran. (fwd)
...ier=0
...
if (x .gt. 42.d0) then
ier=1
return
endif
...
return
end
In R:
foo <- .Fortran("foo", ..., ier=integer(1))
if(foo$ier) stop("error: x > 42")
By the way, is the following allowed in Windows with mignw32 g77:
subroutine topen(filename)
character*255 filename
open(unit=1, file=filename, status='old')
return
end
subroutine tread(line)
character*255 line
read(1, *) line
return
end
This seems to work magically when linked to R in Linux (RH7.1, gcc
"2.96" g77), but one friend of mine told it crashes R w...
2005 Dec 01
1
Can''t add text to FXCanvas
..._FILL_X|STATUSBAR_WITH_DRAGCORNER)
#BUTTONS
@rightFrame = FXVerticalFrame.new(self,
LAYOUT_SIDE_TOP|LAYOUT_SIDE_RIGHT|LAYOUT_FILL_Y)
FXVerticalSeparator.new(self,
LAYOUT_SIDE_RIGHT|LAYOUT_FILL_Y|SEPARATOR_GROOVE)
colorButton = FXButton.new(@rightFrame,
"&Colors\tOpen Color Dialog\tOpen a dialog for selecting colors",
nil, colorDialog, FXWindow::ID_SHOW,
FRAME_RAISED|FRAME_THICK|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT, 0,0, 70,
30)
fontButton = FXButton.new(@rightFrame,
"&Axes\nFont\tChoose Axis Font\tSelect a font for the Axis Di...
2006 Jul 17
7
access to errno when using pid provider
I would like to know how to get access to errno when using pid provider to probe calls to
libc functions like fopen(). The built-in errno appears to be only for system calls. What I''d
like to be able to do is investigate where in an application I''m encountering EMFILE and
what the stack looks like at the time.
This message posted from opensolaris.org