November 2002 - Hugs-Users

Hugs, Mac OS X 10.1.5, and pathnames
by Hamilton Richards 20 Feb '03

20 Feb '03

In OS X, pathnames have two distinct syntaxes. The GUI uses the pre-X syntax, in which a pathname begins with a volume name and the separator is `:', as in Macintosh HD:Users:ham:Documents:whatever.hs In the Darwin (i.e., unix) command-line "underworld", a pathname begins with /Volumes, spaces are escaped with `\', and the separator is `/', as in /Volumes/Macintosh\ HD/Users/ham/Documents/whatever.hs When you drag a file icon onto the command line, Terminal does the right thing-- it converts the pathname from the GUI syntax to the Darwin syntax, and utilities such as more work just as they should. Hugs, however, doesn't do so well. For example, Prelude> :l /Volumes/Macintosh\ HD/Users/ham/Documents/whatever.hs Reading file "/Volumes/Macintosh\": ERROR "/Volumes/Macintosh\" - Unable to open file "/Volumes/Macintosh\" Quoting the pathname changes the problem, but doesn't cure it: Prelude> :l "/Volumes/Macintosh\ HD/Users/ham/Documents/whatever.hs" ERROR - Missing `\' terminating string literal gap Apparently what's confusing Hugs is the `\', because removing it cures the problem: Prelude> :l "/Volumes/Macintosh HD/Users/ham/Documents/whatever.hs" Reading file "/Volumes/Macintosh HD/Users/ham/Documents/whatever.hs": Is this problem unavoidable, or is it just an oversight? Thanks, --Ham -- ------------------------------------------------------------------ Hamilton Richards Department of Computer Sciences Senior Lecturer Mail Code C0500 512-471-9525 The University of Texas at Austin Taylor Hall 5.138 Austin, Texas 78712-1188 ham(a)cs.utexas.edu hrichrds(a)swbell.net ------------------------------------------------------------------

4 4

hugs ffi - question thats been bugging me for some time
by R. Legere 30 Dec '02

30 Dec '02

In docs/ffi-notes.txt, I find the following: ------------------------------------------------------------ o foreign export static is not implemented. You can code around this by writing: foreign import dynamic foo_dynamic :: Addr -> (A -> B -> C) foreign label foo_addr :: Addr foo = foo_dynamic foo_addr instead of: foreign import foo :: A -> B -> C ------------------------------------------------------------------------- Does anyone understand what this is saying? I can't grok it. The work around presented here seems to have nothing to do with foriegn export static. It looks like a workaround to not having foreign IMPORT static. (Which we of course dont need a workaround for :)). Is something extremely tricky going on or am i just dense? Anyway, just curious, I have not had any trouble working around by passing pointers to the C-side using foreign export dynamic. I have just wondered about this for a long long time :)

3 6

A Faster whatIs
by Stephen Milborrow 09 Dec '02

09 Dec '02

Hello everyone: I made some changes to the Hugs sources which give small runtime speed gains. The results are in the table below. The gains are minor, but I thought some people in the group might be interested. WHATIS WHATIS1 FHEAP Speed Increase (percent) gamteb 8 9 5 parser 6 8 gcfail prolog 9 9 2 queens 10 13 4 Extra BSS memory (kBytes) 24 24 0 Nbr source lines changed 50 144 41 ---Notes On The Table The table headings WHATIS, WHATIS1, and FHEAP refer to three different sets of changes. WHATIS and WHATIS1 are described below. FHEAP was an experiment that simply used a fixed size heap (an array instead of a malloc) and is impractical because it rules out use of the Hugs -h flag. The (motley) collection of test programs are from nofib. I timed runhugs for each program without command line flags, except that for queens I used -h1000000. Different programs would probably give different results: the usual caveats apply. These programs were just the nofib ones I had at hand. I compiled with MSC 5.0 Service Pack 3 using modified Nov 2002 Hugs sources. I ran the timing tests on a Windows 98 machine. ---Strategy I wanted to see what speed gains could be achieved by taking a worm's eye view of the code, with no changes to fundamental algorithms. I also wanted to make changes that would be limited to just a few places in the code -- a minimal force approach. To start off, I ran the MSC profiler. This confirmed that whatIs() is a candidate for optimization, as already noted in Mark's Gopher implementation document and in comments in storage.c. But the profiler showed a few other hotspots too. (An interesting thing to do is sort the profiler results on execution line-count, which immediately tells you which are the most executed lines in the program.) ---WHATIS Change To reduce the time spent in whatIs, I created a byte array whatCode of whatIs codes. I then created a whatIs macro which replaces the whatIs function: #define whatIs(c) (isPair(c)? \ (isTag(fst(c)) ? fst(c) : AP ) : \ whatCode[c]) Negative indexing into whatCode is prevented by the isPair. To keep the size of whatCode reasonable, I had to reduce the range of unboxed ints -- the bigger the range, the bigger the whatCode array. I settled on a range of 2048 i.e. ints between -1023 and 1024 are unboxed, all others are boxed. The extra boxing will actually slow down execution of certain Haskell programs, but as far as I can tell the majority of real Hugs programs would be unaffected. Increasing this range to, say, 10 000 would increase memory usage by 10 000 bytes -- nothing really when you consider that the memory footprint of winhugs is about 10 MBytes. This change yields the speed improvements under the WHATIS column in the table. ---WHATIS1 Change IsTag is defined as #define isTag(c) (TAGMIN<=(c) && (c)<SPECMIN) I reduced the cost of IsTag slightly by changing defines in storage.h so that only box-cell-tags are in the range 1 to 0x7f. (I shifted special cell values down to start at 0x80). I then defined variants for IsTag and friends: #define isTag1(c) (((c) & TAG_MASK) == 0) #define whatIs1(c) (isPair(c)? \ (isTag1(fst(c))? fst(c) : AP ) : \ whatCode[c]) #define isAp1(c) (isPair(c) && !isTag1(fst(c))) whatIs1 is a faster version of whatIs, with the "bug" that it will return the wrong value if fst(c) is NIL. When used in several places as a replacement for whatIs, it gains us a few speed percentage points as shown in the WHATIS1 column above. WHATIS1 sits on top of WHATIS so the gains attributable to WHATIS1 alone are the differences between the percentages in the two columns. ---Another Candidate Another candidate for this kind of optimization is the line in eval(): if (!isCfun(n) && (ar=name(n).arity)<=(sp-base)) {... This is one of the most executed lines in the entire program. If the stored arity of Cfun's was offset by a largish number, say 10000, then the above test against isCfun wouldn't be needed. This change would introduce inefficiencies elsewhere (we would have to un-offset the stored arity before using it elsewhere) but the net effect would probably be a speed gain. I shied away from this change because it would require ubiquitous (though easy) code changes. ---Final Comments Optimizing code written by Mark Jones is a challenge. It becomes a little less daunting if we change the rules by allowing ourselves to waste some memory in the pursuit of speed, and to introduce some ugliness into the code. Even so, the speed improvements I got were small. If anyone is interested, I would be happy to send the sources. They are modified Nov 2002 sources with all the changes demarcated by #define's. Six files changed. I would be interested to know what results these changes give on other machines. --- Stephen Milborrow

3 6

Discount Smokes
by Sales Department 28 Nov '02

28 Nov '02

Dear Sir or Madam In the past you have requested information on discounted products. If you are not a smoker, and find this email offensive, then we sincerely apologise. We will be only too happy to take you off our database. If you are a smoker, however, you are probably fed up with paying high prices for your cigarettes and tobacco. Take a look at what we can do for you at http://www.britishsmokers.com/?S=20&ID=2&E=4030047 We can send you, legally, by registered air mail, direct to your door, 4 cartons of cigarettes or 40 pouches of rolling tobacco (all brands are available) from only 170 Euros - about 105 pounds - fully inclusive of postage and packing. Why pay more? If you would rather not hear from us any more, this link will ensure that you are not bothered again. http://www.britishsmokers.com/off/index.php Yours faithfully. British Smokers http://www.britishsmokers.com/?S=20&ID=2&E=4030047 w2y14030047563

1 0

Your message to Hugs-Bugs awaits moderator approval
by hugs-bugs-admin＠haskell.org 24 Nov '02

24 Nov '02

Your mail to 'Hugs-Bugs' with the subject Electronics Is being held until the list moderator can review it for approval. The reason it is being held: Message body is too big: 154705 bytes but there's a limit of 40 KB Either the message will get posted to the list, or you will receive notification of the moderator's decision.

1 0

RE: ANNOUNCE: Hugs98 November 2002 release
by i 20 Nov '02

20 Nov '02

[mybox] gunzip hugs98-Nov2002.tar.gz [mybox] tar xvf hugs98-Nov2002.tar ................................... x hugs98-Nov2002/fptools/libraries/base/Text/ParserCombinators/Parsec/examples/Mondrian/Pretty.hs, 2918 bytes, 6 tape blocks tar: directory checksum error [mybox] :( -- http://www.kuro5hin.org/users/i --- On Wed 11/20, Sigbjorn Finne wrote: > We are pleased to announce a new release of Hugs98, an interpreter > and programming environment for developing Haskell programs. _______________________________________________ No banners. No pop-ups. No kidding. Introducing My Way - http://www.myway.com

1 0

ANNOUNCE: Hugs98 November 2002 release
by Sigbjorn Finne 20 Nov '02

20 Nov '02

We are pleased to announce a new release of Hugs98, an interpreter and programming environment for developing Haskell programs. Sources and binaries are freely available on the World-Wide Web. Feature highlights of this new release are: - Much improved FFI support (contributed by Alastair Reid), bringing Hugs really very close to the Haskell FFI specification. - Adoption of a significant subset of GHC's hierarchical libraries (contributed by Ross Paterson). - An (allegedly) complete implementation of the Haskell98 module system (Sigbjorn Finne). - Numerous bug fixes since the previous major release in Dec 2001. The home page for Hugs is at http://haskell.org/hugs. Send email to hugs-users-request(a)haskell.org to join the hugs-users mailing list. Bug reports should be sent to hugs-bugs(a)haskell.org. Send email to hugs-bugs-request(a)haskell.org to subscribe to the hugs-bugs list. Enjoy! ---------------------------------------------------------------------------- -- The Hugs 98 system is Copyright (c) Mark P Jones, Alastair Reid, the Yale Haskell Group, and the OGI School of Science & Engineering at OHSU, 1994-2002, All rights reserved. It is distributed as free software under the license in the file "License", which is included in the distribution. ---------------------------------------------------------------------------- --

2 1

special request for fund
by lawrence lawl 17 Nov '02

17 Nov '02

Dear sir/Madam, I am lawrence Lawal the public relation officer for the association for muslim students University of Lagos, Nigria. Sir/Madam, i am writting you this mail in order to solisidiate for fund from you and your reputable oragnisation. We Muslims association of the above named school decided to comence a project of building a musque in our campus. We came to realise that Allah teachings is fading out of our school as the opposite religion has really bombaded our campus with many churches in which many programmes is beeing held. In due course we realised that some of the muslim brothers and sisters have been gradually converted to their religion and we are not really happy about the situation.We the muslim student association held a meeting on the 7th of November. The meeting wes tagged"THE POSSIBLE WAYS TO STOP AND SOLVE THE BROBLEMS FACING THE MUSLIM BROTHERS AND SISTERS ON OUR CAMPUS.Afer the meeting we concluded on building a 2,000 sitters hall/mosque in our campus in which the school authourity has approved and has given us a piece of land on campus to build the musque, without any financial support We are now faced with the financial problems and we have set to complete the project less than three(3) months. I therefore write on behalf of the muslim student association of Lagos State University to solicidiate for your financial support towards this project. We pray that as you help the Almighty Allah will continue to bless you. Thanks for your co-operation We look forward to hearing from you. Yours sincerely, Lawrence Lawal P.R.O.(muslim students association of Lagos State University Nigeria) NB: this E-mail is signed by all the executives. --------------------------------- Do you Yahoo!? Yahoo! Web Hosting - Let the expert host your site

1 0

A la vez.
by hugs-bugs 02 Nov '02

02 Nov '02

This is a multi-part message in MIME format.

1 0