- Cvs-hugs - Haskell.org

Re: [Haskell] Win32 process spawning, POpen and Hugs, revisited
by Ross Paterson 17 Mar '04

17 Mar '04

On Tue, Mar 16, 2004 at 05:26:14PM +0000, Graham Klyne wrote: > Further to my previous messages: > http://www.haskell.org//pipermail/haskell/2004-February/013522.html > http://www.haskell.org//pipermail/haskell/2004-February/013679.html > > I've come back to my stripped-down test case, and recreated the C test > program SpawnEchoShiftLetters.c [1] in Haskell SpawnEchoShiftLetters.hs > [2]. I've also added some diagnostic code. To recap: the C code > demonstrates that that the Win32 API used by spawnProc.c [4] is working as > expected, so the problem appears to be in the Haskell interface to it. > > My problem seems to be occurring about here: > [[ > spawn cmd = > withCString cmd $ \ p_cmd -> > withObject 0 $ \ p_wIn -> > withObject 0 $ \ p_rOut -> > withObject 0 $ \ p_rErr -> do > rc <- spawnProc p_cmd p_wIn p_rOut p_rErr > when (rc /= 0) (ioError (userError ("runProc: unable to spawn " ++ > show cmd))) > wIn <- peek p_wIn > (-1-} trace ("wIn "++show wIn) $ return () > {- : -} > (-2-} hIn <- openFd (fromIntegral wIn) False WriteMode False > (-3-} trace ("hIn "++show hIn) $ return () > ]] > -- http://www.ninebynine.org/Software/HaskellUtils/Win32/POpen.hs > > Specifically: > + the trace at {-1-} displays the expected value (i.e. the same as a > similar trace in the C version of the code [1], namely the value 3), > + the trace at {-3-} is not displayed, indicating... > + failure of the openFd call at {-2-}, also indicated by a Hugs error > message, thus: > [[ > SpawnEchoShiftLetters> runTest > wIn 3 > > Program error: openFd: does not exist (file does not exist) > > SpawnEchoShiftLetters> > ]] > > > Thus, it would appear that I'm misunderstanding how to use the openFd > function that is part of the Hugs-supplied library code, declared as a > primitive: > [[ > -- Creating a handle from a file descriptor/socket. > -- > primitive openFd :: Int -- file descriptor > -> Bool -- True => it's a socket. > -> IOMode -- what mode to open the handle in. > -> Bool -- binary? > -> IO Handle > ]] > -- > http://cvs.haskell.org/cgi-bin/cvsweb.cgi/hugs98/libraries/Hugs/IO.hs?rev=1… > > Can anyone help me out here? It could well be Hugs. In this situation it calls fdopen(fd, "w+"), but I think it should be fdopen(fd, "w").

2 3

Feel Young Again .... .. . . . tomahawk
by Isabella 17 Mar '04

17 Mar '04

1 0

cvs commit: hugs98/src iomonad.c
by ross＠glass.cse.ogi.edu 17 Mar '04

17 Mar '04

ross 2004/03/17 02:38:55 PST Modified files: src iomonad.c Log: change f(d)open modes for append and write from a+ and w+ to a and w, plus a little related refactoring. Revision Changes Path 1.77 +16 -20 hugs98/src/iomonad.c

1 0

Worldwide Partners program
by SN World Foundation 16 Mar '04

16 Mar '04

New Technology for the Third World, March 2004 Production Mini-plants in mobile containers. Worldwide Partners program SN World Foundation will supply to countries and developing regions the technology and necessary support for production in series of Mini-plants in mobile containers (40-foot). The Mini-plant system is designed in such a way that all the production machinery is fixed on the platform of the container, with all wiring, piping, and installation parts; that is, they are fully equipped... and the mini-plant is ready for production." More than 700 portable production systems: Bakeries, Water purification, Dehydrated food, Steel Nails, Fruit juice preparation, Tire Retreading, Reinforcement Bar Bending for Construction Framework, Sheeting for Roofing, Ceilings and Façades, Plated Drums, Aluminum Buckets, Injected Polypropylene Housewares, Pressed Melamine Items (Glasses, Cups, Plates, Mugs, etc.), Mufflers, Construction Electrically Welded Mesh, Plastic Bags and Packaging, Medical assistance mobile units, Sanitary Material, Hypodermic Syringes, Hemostatic Clamps, etc. SN World Foundation has started a Co-investment program for the installation of small Assembly plants to manufacture in series the Mini-plants of portable production on site, region or country where required. One of the most relevant features is the fact that these plants will be connected to the International Trade System, with access to more than 50 million raw materials, products and services and automatic transactions for world trade. Due to financial reasons, involving cost and social impact, the best solution is setting up assembly plants on the same countries and regions, using local resources (labor, some equipment, etc.) SN World Foundation participates at 50% (fifty percent) for investment of each Assembly plant. If you are interested in being a partner in your country or region, you can send your CV to: SN World Foundation (click here) <A HREF="mailto:tech@world- foundation.org?Subject=INTERESTED IN BEING A PARTNER">Worldwide Partners Program</A> By Sarah Mathews, Manager Program ------------------------------------------------------------------------- If you received this in error or would like to be removed from our list, please return us indicating: remove or un-subscribe in subject field, Thanks. <A HREF="mailto:wf@world-foundation.org?Subject=REMOVE or UN-SUBSCRIBE">Manager Program</A> © 2004 SN World Foundation. All rights reserved.

1 0

Fwd: New, just for men!
by Darryl 13 Mar '04

13 Mar '04

1 0

(no subject)
by Dr. Jeremiah Ukwanu. 11 Mar '04

11 Mar '04

FROM THE DESK OF DR. JEREMIAH UKWANU DEPARTMENT OF MINERAL AND ENERGY PRETORIA-SOUTH AFRICA. TEL: 27 731 771 278 FAX: 27 733 618 774 Dear Sir/Madam, It is my great pleasure to write you this letter on behalf of my colleagues. I got your information through careful Internet search for a reliable partner to assist in this proposal. I have decided to seek a confidential co-operation with you in execution of a deal hereunder for the benefit of all parties, and hope you will keep it confidential because of the nature of this business. Within the Department of Mining Resources where I work as the Director of Project Implementation, with co-operation of two other top officials, we have in our possession, an overdue payment in US funds. The said funds represent certain percentage of the contract value executed on behalf of my Ministry by a foreign contracting firm, which we the officials over-invoiced to the amount of US$US$26.5M. (Twenty - Six Million Five Hundred Thousand United States Dollars). Though the actual contract cost has been paid to the original contractor, leaving the excess balance unclaimed. The Government of the Republic of South Africa believe that private investment in general, and foreign direct investment in particular, are the real engines for sustainable economic development, for which reason it has continued to encouraged investment in the key growth-oriented sector of Mining with sincere determination to pay foreign contractors all debts owed to them, so as to continue to enjoy close relationship, and mutually beneficial co-operation with foreign governments and non-governmental financial agencies. As a result we included our bills for approvals with the co-operation of some officials at the Department of Finance and the Reserve Bank of South Africa (RBSA). We are seeking your assistance to be the beneficiary of the unclaimed funds, since we are not allowed to operate foreign account. The changing of beneficiary's information/ details and other forms of documentation upon application for claim to reflect the contract money and its approvals will be secured on behalf of your company or your self. I have the authority of my colleagues involved to propose that, should you be willing to assist us in this transaction your share as compensation will be 20% while my colleagues and I shall receive 70%, and the balance of 10% shall be used to reimburse all expenditures, taxes and miscellaneous expenses so incurred. It does not matter whether or not your company does contract projects of the nature described here. The assumption is that your company won the major contract and subcontracted it to other companies. More often than not, big trading companies and firms of unrelated fields win major contracts, and subcontract to more specialized firms for execution. This business itself is 100% safe, provided you treat it with utmost confidentiality. Also your specialization is not a hindrance to the successful execution of this mutual beneficiary transaction. I have reposed my confidence in you and hope that you will not disappoint us. Kindly notify me for further details, upon your acceptance of this proposal. Regards, DR. JEREMIAH UKWANU.

1 0

(no subject)
by Dr. Jeremiah Ukwanu. 11 Mar '04

11 Mar '04

FROM THE DESK OF DR. JEREMIAH UKWANU DEPARTMENT OF MINERAL AND ENERGY PRETORIA-SOUTH AFRICA. TEL: 27 731 771 278 FAX: 27 733 618 774 Dear Sir/Madam, It is my great pleasure to write you this letter on behalf of my colleagues. I got your information through careful Internet search for a reliable partner to assist in this proposal. I have decided to seek a confidential co-operation with you in execution of a deal hereunder for the benefit of all parties, and hope you will keep it confidential because of the nature of this business. Within the Department of Mining Resources where I work as the Director of Project Implementation, with co-operation of two other top officials, we have in our possession, an overdue payment in US funds. The said funds represent certain percentage of the contract value executed on behalf of my Ministry by a foreign contracting firm, which we the officials over-invoiced to the amount of US$US$26.5M. (Twenty - Six Million Five Hundred Thousand United States Dollars). Though the actual contract cost has been paid to the original contractor, leaving the excess balance unclaimed. The Government of the Republic of South Africa believe that private investment in general, and foreign direct investment in particular, are the real engines for sustainable economic development, for which reason it has continued to encouraged investment in the key growth-oriented sector of Mining with sincere determination to pay foreign contractors all debts owed to them, so as to continue to enjoy close relationship, and mutually beneficial co-operation with foreign governments and non-governmental financial agencies. As a result we included our bills for approvals with the co-operation of some officials at the Department of Finance and the Reserve Bank of South Africa (RBSA). We are seeking your assistance to be the beneficiary of the unclaimed funds, since we are not allowed to operate foreign account. The changing of beneficiary's information/ details and other forms of documentation upon application for claim to reflect the contract money and its approvals will be secured on behalf of your company or your self. I have the authority of my colleagues involved to propose that, should you be willing to assist us in this transaction your share as compensation will be 20% while my colleagues and I shall receive 70%, and the balance of 10% shall be used to reimburse all expenditures, taxes and miscellaneous expenses so incurred. It does not matter whether or not your company does contract projects of the nature described here. The assumption is that your company won the major contract and subcontracted it to other companies. More often than not, big trading companies and firms of unrelated fields win major contracts, and subcontract to more specialized firms for execution. This business itself is 100% safe, provided you treat it with utmost confidentiality. Also your specialization is not a hindrance to the successful execution of this mutual beneficiary transaction. I have reposed my confidence in you and hope that you will not disappoint us. Kindly notify me for further details, upon your acceptance of this proposal. Regards, DR. JEREMIAH UKWANU.

1 0

building Hugs on Windows
by Ross Paterson 05 Mar '04

05 Mar '04

What's the current story on this? docs/building/win32.txt describes a build under cygwin+mingw, but I have the impression that plain cygwin or mingw+msys also work (or nearly so), at least from a source dist.

1 0

cvs commit: hugs98 Makefile RPM.mk
by ross＠glass.cse.ogi.edu 04 Mar '04

04 Mar '04

ross 2004/03/04 12:32:49 PST Modified files: . Makefile RPM.mk Log: stampify config.h.in Revision Changes Path 1.37 +3 -1 hugs98/Makefile 1.22 +2 -1 hugs98/RPM.mk

1 0

cvs commit: hugs98 Makefile hugs98/src/unix convert_libraries
by ross＠glass.cse.ogi.edu 04 Mar '04

04 Mar '04

ross 2004/03/03 15:22:26 PST Modified files: . Makefile src/unix convert_libraries Log: add HaXml (with kludges to cope with its unusual structure). also copy licen[cs]es, which we should have done before (and make parsec an extra package, because it's licence is slightly different) Revision Changes Path 1.36 +1 -1 hugs98/Makefile 1.98 +13 -3 hugs98/src/unix/convert_libraries

1 0