├── .cvsignore ├── Credits ├── License ├── Makefile ├── MkDefs.in ├── RPM.mk ├── Readme ├── ac_macros ├── acx_pthread.m4 └── ice_prog_cpp_traditional.m4 ├── aclocal.m4 ├── config.guess ├── config.sub ├── configure ├── configure.ac ├── cpphs ├── CHANGELOG ├── CpphsTest.hs ├── LICENCE-LGPL ├── Language │ └── Preprocessor │ │ ├── Cpphs.hs │ │ ├── Cpphs │ │ ├── CppIfdef.hs │ │ ├── HashDefine.hs │ │ ├── MacroPass.hs │ │ ├── Options.hs │ │ ├── Position.hs │ │ ├── ReadFirst.hs │ │ ├── RunCpphs.hs │ │ ├── SymTab.hs │ │ └── Tokenise.hs │ │ └── Unlit.hs ├── Makefile ├── Makefile.inc ├── Makefile.nhc98 ├── README ├── Setup.hs ├── Text │ └── ParserCombinators │ │ └── HuttonMeijer.hs ├── cpphs.cabal ├── cpphs.compat ├── cpphs.hs ├── cpphs.hugs ├── cpphs.spec ├── docs │ ├── cpphs.1 │ ├── design │ └── index.html └── tests │ ├── Arr.lhs │ ├── HsOpenGLExt.h │ ├── MachDeps.h │ ├── Storable.hs │ ├── Test.hsc │ ├── chains │ ├── config.h │ ├── cpp │ ├── elif │ ├── expect1 │ ├── expect10 │ ├── expect11 │ ├── expect12 │ ├── expect13 │ ├── expect14 │ ├── expect15 │ ├── expect16 │ ├── expect17 │ ├── expect18 │ ├── expect19 │ ├── expect2 │ ├── expect20 │ ├── expect21 │ ├── expect22 │ ├── expect23 │ ├── expect24 │ ├── expect25 │ ├── expect26 │ ├── expect27 │ ├── expect28 │ ├── expect29 │ ├── expect3 │ ├── expect30 │ ├── expect31 │ ├── expect4 │ ├── expect5 │ ├── expect6 │ ├── expect7 │ ├── expect8 │ ├── expect9 │ ├── inclusion │ ├── incomplete │ ├── indirect │ ├── multiline │ ├── nastyhack │ ├── numbers │ ├── parens │ ├── pragma │ ├── precedence │ ├── recursive │ ├── ross │ ├── runtests │ ├── specialinclude │ ├── specials │ ├── stringise │ ├── symbolvalue │ ├── testfile │ └── text ├── debian ├── changelog ├── compat ├── control ├── control.in ├── hugs.README.Debian ├── hugs.copyright ├── hugs.doc-base ├── hugs.docs ├── hugs.examples ├── hugs.install ├── hugs.links ├── hugs.manpages ├── hugs.menu ├── hugs.postinst ├── hugs.postrm ├── hugs.preinst ├── hugs.prerm ├── libhugs-base-bundled.README.Debian ├── libhugs-base-bundled.copyright ├── libhugs-base-bundled.install ├── libhugs-cabal-bundled.README.Debian ├── libhugs-cabal-bundled.copyright ├── libhugs-cabal-bundled.examples ├── libhugs-cabal-bundled.install ├── libhugs-haskell98-bundled.README.Debian ├── libhugs-haskell98-bundled.copyright ├── libhugs-haskell98-bundled.install ├── make-control.hs └── rules ├── demos ├── AnsiDemo.hs ├── ArrayEx.hs ├── Calendar.hs ├── CommaInt.lhs ├── Demos.hs ├── Eliza.hs ├── EvalRed.hs ├── Examples.hs ├── Expr.hs ├── FastSort.hs ├── Gofer.hs ├── Lattice.hs ├── Ldfs.hs ├── Literate.lhs ├── Makefile.in ├── Matrix.hs ├── Mersenne.hs ├── Minsrand.hs ├── Queens.hs ├── Say.hs ├── Stack.hs ├── Tree.hs └── prolog │ ├── AndorraEngine.hs │ ├── CombParse.hs │ ├── Main.hs │ ├── Prolog.hs │ ├── PureEngine.hs │ ├── StackEngine.hs │ ├── Subst.hs │ ├── readme │ └── stdlib ├── docs ├── .cvsignore ├── Makefile.in ├── building │ ├── config.txt │ ├── unix.txt │ └── win32.txt ├── ffi-notes.txt ├── hugs.1.in ├── libraries-notes.txt ├── machugs-notes.txt ├── server.html ├── server.tex ├── users-guide-windows.bat ├── users_guide │ ├── .cvsignore │ ├── Makefile.in │ ├── faq.xml │ ├── haskell98.xml │ ├── htmlhelp.xsl │ ├── hugs-ug.css │ ├── hugs-ug.dsl │ ├── hugs-ug.xsl │ ├── hugs_ghc.xml │ ├── hugs_only.xml │ ├── introduction.xml │ ├── license.xml │ ├── miscellaneous.xml │ ├── options.xml │ ├── others.xml │ ├── users_guide.xml │ ├── using_hugs.xml │ ├── winhugs.png │ └── xml2sgml.sed └── winhugs-notes.txt ├── dotnet ├── ANNOUNCE ├── License.net ├── doc │ ├── dotnet-ffi.html │ ├── dotnet-lib.html │ ├── dotnet.html │ ├── examples.html │ └── style.css ├── examples │ ├── basic │ │ ├── Env.hs │ │ ├── Http.hs │ │ ├── HttpOld.hs │ │ └── Mail.hs │ ├── callin │ │ ├── CallIn.hs │ │ ├── print.cs │ │ └── print.dll │ ├── class │ │ └── NewObj.hs │ ├── delegate │ │ ├── Delegate.hs │ │ ├── ui.cs │ │ └── ui.dll │ ├── forms │ │ └── Forms.hs │ └── xml │ │ ├── XMLSyn.hs │ │ ├── Xml.hs │ │ └── books.xml ├── lib │ ├── Dotnet.hs │ └── Dotnet │ │ └── System │ │ ├── Array.hs │ │ ├── Byte.hs │ │ ├── Char.hs │ │ ├── Collections │ │ ├── DictionaryEntry.hs │ │ ├── ICollection.hs │ │ ├── IComparer.hs │ │ ├── IDictionary.hs │ │ ├── IDictionaryEnumerator.hs │ │ ├── IEnumerator.hs │ │ └── IList.hs │ │ ├── Console.hs │ │ ├── DateTime.hs │ │ ├── Decimal.hs │ │ ├── Double.hs │ │ ├── Enum.hs │ │ ├── IAsyncResult.hs │ │ ├── IFormatProvider.hs │ │ ├── IO │ │ ├── Directory.hs │ │ ├── DirectoryInfo.hs │ │ ├── SeekOrigin.hs │ │ ├── Stream.hs │ │ ├── TextReader.hs │ │ └── TextWriter.hs │ │ ├── Int32.hs │ │ ├── Int64.hs │ │ ├── MarshalByRefObject.hs │ │ ├── Math.hs │ │ ├── Object.hs │ │ ├── ObjectTy.hs │ │ ├── Single.hs │ │ ├── String.hs │ │ ├── StringTy.hs │ │ ├── Text │ │ ├── Decoder.hs │ │ ├── Encoder.hs │ │ └── Encoding.hs │ │ ├── Type.hs │ │ ├── TypeCode.hs │ │ ├── TypeTy.hs │ │ ├── UInt32.hs │ │ ├── UInt64.hs │ │ ├── Uri.hs │ │ ├── UriHostNameType.hs │ │ ├── UriPartial.hs │ │ ├── ValueType.hs │ │ ├── Web │ │ └── Mail │ │ │ ├── MailAttachment.hs │ │ │ ├── MailEncoding.hs │ │ │ ├── MailFormat.hs │ │ │ ├── MailMessage.hs │ │ │ ├── MailPriority.hs │ │ │ └── SmtpMail.hs │ │ ├── Xml.hs │ │ └── Xml │ │ ├── WriteState.hs │ │ ├── XPath │ │ ├── IXPathNavigable.hs │ │ ├── XPathDocument.hs │ │ ├── XPathExpression.hs │ │ ├── XPathNamespaceScope.hs │ │ ├── XPathNavigator.hs │ │ ├── XPathNavigatorTy.hs │ │ ├── XPathNodeIterator.hs │ │ ├── XPathNodeType.hs │ │ ├── XPathResultType.hs │ │ ├── XmlCaseOrder.hs │ │ ├── XmlDataType.hs │ │ └── XmlSortOrder.hs │ │ ├── XmlAttribute.hs │ │ ├── XmlAttributeCollection.hs │ │ ├── XmlAttributeCollectionTy.hs │ │ ├── XmlAttributeTy.hs │ │ ├── XmlCDataSection.hs │ │ ├── XmlCharacterData.hs │ │ ├── XmlComment.hs │ │ ├── XmlDeclaration.hs │ │ ├── XmlDocument.hs │ │ ├── XmlDocumentFragment.hs │ │ ├── XmlDocumentTy.hs │ │ ├── XmlDocumentType.hs │ │ ├── XmlElement.hs │ │ ├── XmlElementTy.hs │ │ ├── XmlEntityReference.hs │ │ ├── XmlImplementation.hs │ │ ├── XmlLinkedNode.hs │ │ ├── XmlNameTable.hs │ │ ├── XmlNamedNodeMap.hs │ │ ├── XmlNamespaceManager.hs │ │ ├── XmlNode.hs │ │ ├── XmlNodeList.hs │ │ ├── XmlNodeOrder.hs │ │ ├── XmlNodeTy.hs │ │ ├── XmlNodeType.hs │ │ ├── XmlProcessingInstruction.hs │ │ ├── XmlReader.hs │ │ ├── XmlResolver.hs │ │ ├── XmlSignificantWhitespace.hs │ │ ├── XmlSpace.hs │ │ ├── XmlText.hs │ │ ├── XmlWhitespace.hs │ │ └── XmlWriter.hs └── tools │ ├── App.cs │ ├── AssemblyInfo.cs │ ├── HsOutput.cs │ ├── Makefile │ ├── README.txt │ └── TypeInfo.cs ├── fp-platform ├── fptools └── hslibs │ ├── concurrent │ ├── CVar.lhs │ ├── Chan.lhs │ ├── Channel.lhs │ ├── ChannelVar.lhs │ ├── Concurrent.lhs │ ├── MVar.lhs │ ├── Makefile │ ├── Merge.lhs │ ├── Parallel.lhs │ ├── QSem.lhs │ ├── QSemN.lhs │ ├── SampleVar.lhs │ ├── Semaphore.lhs │ ├── Strategies.lhs │ ├── doc │ │ └── concurrent.xml │ └── package.conf.in │ ├── data │ ├── FiniteMap.lhs │ ├── Makefile │ ├── Set.lhs │ ├── doc │ │ ├── Edison.xml │ │ ├── FiniteMap.xml │ │ ├── Set.xml │ │ └── data.xml │ ├── edison │ │ ├── Assoc │ │ │ ├── Assoc.hs │ │ │ ├── AssocDefaults.hs │ │ │ ├── AssocList.hs │ │ │ ├── COPYRIGHT │ │ │ └── PatriciaLoMap.hs │ │ ├── COPYRIGHT │ │ ├── COPYRIGHT.short │ │ ├── Coll │ │ │ ├── COPYRIGHT │ │ │ ├── Collection.hs │ │ │ ├── CollectionDefaults.hs │ │ │ ├── CollectionUtils.hs │ │ │ ├── LazyPairingHeap.hs │ │ │ ├── LeftistHeap.hs │ │ │ ├── MinHeap.hs │ │ │ ├── SkewHeap.hs │ │ │ ├── SplayHeap.hs │ │ │ ├── TestOrdBag.hs │ │ │ ├── TestOrdSet.hs │ │ │ └── UnbalancedSet.hs │ │ ├── EdisonPrelude.hs │ │ ├── Import │ │ │ └── DUMMY │ │ ├── Lib │ │ │ └── DUMMY │ │ ├── Makefile │ │ ├── README │ │ ├── Seq │ │ │ ├── BankersQueue.hs │ │ │ ├── BinaryRandList.hs │ │ │ ├── BraunSeq.hs │ │ │ ├── COPYRIGHT │ │ │ ├── JoinList.hs │ │ │ ├── ListSeq.hs │ │ │ ├── MyersStack.hs │ │ │ ├── RandList.hs │ │ │ ├── RevSeq.hs │ │ │ ├── Sequence.hs │ │ │ ├── SequenceDefaults.hs │ │ │ ├── SimpleQueue.hs │ │ │ ├── SizedSeq.hs │ │ │ └── TestSeq.hs │ │ └── doc │ │ │ ├── changes.html │ │ │ ├── users.hva │ │ │ └── users.tex │ └── package.conf.in │ ├── hssource │ ├── HsLexer.hs │ ├── HsParseMonad.hs │ ├── HsParseUtils.hs │ ├── HsParser.hs │ ├── HsPretty.hs │ ├── HsSyn.hs │ ├── Makefile │ └── package.conf.in │ ├── lang │ ├── Addr.lhs │ ├── ArrayBase.hs │ ├── Arrow.hs │ ├── ByteArray.lhs │ ├── CTypesISO.hs │ ├── DiffArray.hs │ ├── DirectoryExts.hs │ ├── Dynamic.hs │ ├── Exception.hs │ ├── Generics.hs │ ├── GlaExts.lhs │ ├── IArray.hs │ ├── IOExts.hs │ ├── IORef.hs │ ├── LazyST.hs │ ├── MArray.hs │ ├── Makefile │ ├── MutableArray.lhs │ ├── NativeInfo.hs │ ├── NumExts.lhs │ ├── PackedString.lhs │ ├── PrelByteArr.lhs │ ├── ST.hs │ ├── ShowFunctions.hs │ ├── Stable.hs │ ├── StableName.hs │ ├── StorableArray.hs │ ├── SystemExts.lhs │ ├── TimeExts.lhs │ ├── Weak.hs │ ├── cbits │ │ ├── HsLang.h │ │ ├── Makefile │ │ ├── PackedString.c │ │ └── envHelper.c │ ├── doc │ │ ├── Bits.xml │ │ ├── CError.xml │ │ ├── CForeign.xml │ │ ├── CString.xml │ │ ├── CTypes.xml │ │ ├── CTypesISO.xml │ │ ├── DiffArray.xml │ │ ├── DirectoryExts.xml │ │ ├── Dynamic.xml │ │ ├── Exception.xml │ │ ├── Foreign.xml │ │ ├── ForeignPtr.xml │ │ ├── GlaExts.xml │ │ ├── IArray.xml │ │ ├── IOExts.xml │ │ ├── Int.xml │ │ ├── LazyST.xml │ │ ├── MArray.xml │ │ ├── MarshalAlloc.xml │ │ ├── MarshalArray.xml │ │ ├── MarshalError.xml │ │ ├── MarshalUtils.xml │ │ ├── NumExts.xml │ │ ├── PackedString.xml │ │ ├── Ptr.xml │ │ ├── ST.xml │ │ ├── ShowFunctions.xml │ │ ├── StableName.xml │ │ ├── StablePtr.xml │ │ ├── Storable.xml │ │ ├── StorableArray.xml │ │ ├── SystemExts.xml │ │ ├── Weak.xml │ │ ├── Word.xml │ │ ├── lang.xml │ │ └── refs.bib │ ├── monads │ │ ├── MonadCont.lhs │ │ ├── MonadEither.lhs │ │ ├── MonadError.lhs │ │ ├── MonadFix.lhs │ │ ├── MonadIdentity.lhs │ │ ├── MonadList.lhs │ │ ├── MonadRWS.lhs │ │ ├── MonadReader.lhs │ │ ├── MonadState.lhs │ │ ├── MonadTrans.lhs │ │ ├── MonadWriter.lhs │ │ └── Monoid.lhs │ └── package.conf.in │ ├── net │ ├── BSD.hs │ ├── CGI.lhs │ ├── Makefile │ ├── Socket.lhs │ ├── SocketPrim.hs │ ├── URI.hs │ ├── doc │ │ ├── BSD.xml │ │ ├── Socket.xml │ │ ├── SocketPrim.xml │ │ ├── URI.xml │ │ └── net.xml │ └── package.conf.in │ ├── posix │ ├── .cvsignore │ ├── DL.hs │ ├── DLPrim.hs │ ├── Makefile │ ├── POpen.hs │ ├── Posix.lhs │ ├── PosixDB.lhs │ ├── PosixErr.lhs │ ├── PosixFiles.lhs │ ├── PosixIO.lhs │ ├── PosixProcEnv.lhs │ ├── PosixProcPrim.lhs │ ├── PosixTTY.lhs │ ├── PosixUtil.lhs │ ├── cbits │ │ ├── HsPosix.h │ │ ├── Makefile │ │ ├── env.c │ │ └── signal.c │ ├── doc │ │ └── posix.xml │ └── package.conf.in │ ├── text │ ├── Makefile │ ├── Pretty.lhs │ ├── RegexString.lhs │ ├── doc │ │ ├── MatchPS.xml │ │ ├── Parsec.xml │ │ ├── Pretty.xml │ │ ├── Regex.xml │ │ ├── RegexString.xml │ │ └── text.xml │ ├── html │ │ ├── Html.lhs │ │ ├── HtmlBlockTable.lhs │ │ ├── doc │ │ │ ├── Html.htm │ │ │ ├── HtmlBlockTable.htm │ │ │ ├── HtmlExample.htm │ │ │ ├── doc.htm │ │ │ ├── intro.htm │ │ │ └── lambda.gif │ │ └── example │ │ │ └── HtmlExample.lhs │ ├── package.conf.in │ └── parsec │ │ ├── Parsec.hs │ │ ├── ParsecChar.hs │ │ ├── ParsecCombinator.hs │ │ ├── ParsecError.hs │ │ ├── ParsecExpr.hs │ │ ├── ParsecLanguage.hs │ │ ├── ParsecPerm.hs │ │ ├── ParsecPos.hs │ │ ├── ParsecPrim.hs │ │ └── ParsecToken.hs │ └── util │ ├── GetOpt.lhs │ ├── Makefile │ ├── Memo.lhs │ ├── Observe.lhs │ ├── Readline.hs │ ├── Select.lhs │ ├── Unique.lhs │ ├── cbits │ ├── HsUtil.h │ ├── Makefile │ └── selectFrom.c │ ├── check │ ├── QuickCheck.hs │ ├── QuickCheckBatch.hs │ ├── QuickCheckPoly.hs │ └── QuickCheckUtils.hs │ ├── doc │ ├── GetOpt.xml │ ├── Memo.xml │ ├── QuickCheck.xml │ ├── Readline.xml │ ├── Select.xml │ ├── Unique.xml │ └── util.xml │ └── package.conf.in ├── hsc2hs ├── LICENSE ├── Main.hs ├── Makefile.inc ├── Makefile.nhc98 ├── Setup.hs ├── hsc2hs.cabal ├── hsc2hs.sh └── template-hsc.h ├── hugs98.nsi ├── hugs98.spec ├── icons ├── hsicon.gif ├── hsicon.ico ├── hsxicon.gif ├── hsxicon.ico ├── hugsicon.gif ├── hugsicon.ico ├── hugsicon1.ico └── hugsicon2.ico ├── include └── GreenCard.h ├── install-sh ├── lib ├── exts │ ├── Addr.hs │ └── ForeignObj.hs └── hugs │ ├── AnsiInteract.hs │ ├── AnsiScreen.hs │ ├── HugsLibs.hs │ ├── Interact.hs │ ├── ListUtils.hs │ ├── Number.hs │ ├── ParseLib.hs │ └── StdLibs.hs ├── libraries ├── Makefile.in ├── aclocal.m4 ├── configure ├── configure.ac ├── hugsbase │ ├── Hugs.hs │ ├── Hugs │ │ ├── Array.hs │ │ ├── Base.hs │ │ ├── Bits.hs │ │ ├── ByteArray.hs │ │ ├── CVHAssert.hs │ │ ├── Char.hs │ │ ├── ConcBase.hs │ │ ├── Directory.hs │ │ ├── Dynamic.hs │ │ ├── Exception.hs │ │ ├── ForeignPtr.hs │ │ ├── GenericPrint.hs │ │ ├── IO.hs │ │ ├── IOArray.hs │ │ ├── IOExts.hs │ │ ├── IORef.hs │ │ ├── Int.hs │ │ ├── Internals.hs │ │ ├── LazyST.hs │ │ ├── Memo.hs │ │ ├── Numeric.hs │ │ ├── Observe.hs │ │ ├── Prelude.hs │ │ ├── Ptr.hs │ │ ├── Quote.hs │ │ ├── ST.hs │ │ ├── Stable.hs │ │ ├── StablePtr.hs │ │ ├── Storable.hs │ │ ├── Storable_aux.c │ │ ├── Storable_aux.h │ │ ├── System.hs │ │ ├── Time.hs │ │ ├── Trex.hs │ │ ├── Weak.hs │ │ └── Word.hs │ └── hugsbase.cabal ├── include │ ├── MachDeps.h │ └── ghcconfig.h.in ├── pwd.hs └── tools │ ├── .cvsignore │ ├── config.in │ ├── convert_libraries │ ├── make_bootlib │ ├── make_oldlib │ └── test_libraries ├── packages ├── Cabal │ ├── Cabal.cabal │ ├── DefaultSetup.lhs │ ├── Distribution │ │ ├── Compat │ │ │ ├── Directory.hs │ │ │ ├── Exception.hs │ │ │ ├── FilePath.hs │ │ │ ├── Map.hs │ │ │ ├── RawSystem.hs │ │ │ └── ReadP.hs │ │ ├── Compiler.hs │ │ ├── Extension.hs │ │ ├── GetOpt.hs │ │ ├── InstalledPackageInfo.hs │ │ ├── License.hs │ │ ├── Make.hs │ │ ├── Package.hs │ │ ├── PackageDescription.hs │ │ ├── ParseUtils.hs │ │ ├── PreProcess.hs │ │ ├── PreProcess │ │ │ └── Unlit.hs │ │ ├── Program.hs │ │ ├── Setup.hs │ │ ├── Simple.hs │ │ ├── Simple │ │ │ ├── Build.hs │ │ │ ├── Configure.hs │ │ │ ├── GHC.hs │ │ │ ├── GHCPackageConfig.hs │ │ │ ├── Hugs.hs │ │ │ ├── Install.hs │ │ │ ├── JHC.hs │ │ │ ├── LocalBuildInfo.hs │ │ │ ├── NHC.hs │ │ │ ├── Register.hs │ │ │ ├── SrcDist.hs │ │ │ └── Utils.hs │ │ ├── Version.hs │ │ └── attic │ ├── LICENSE │ ├── Language │ │ └── Haskell │ │ │ └── Extension.hs │ ├── Makefile │ ├── Makefile.inc │ ├── Makefile.nhc98 │ ├── Network │ │ └── Hackage │ │ │ ├── CabalInstall │ │ │ ├── BuildDep.hs │ │ │ ├── Clean.hs │ │ │ ├── Config.hs │ │ │ ├── Configure.hs │ │ │ ├── Dependency.hs │ │ │ ├── Fetch.hs │ │ │ ├── Info.hs │ │ │ ├── Install.hs │ │ │ ├── List.hs │ │ │ ├── Main.hs │ │ │ ├── Setup.hs │ │ │ ├── TarUtils.hs │ │ │ ├── Types.hs │ │ │ └── Update.hs │ │ │ ├── Client.hs │ │ │ ├── Interface.hs │ │ │ └── Version.hs │ ├── README │ ├── TODO │ ├── cabal-install │ │ ├── CabalInstall.hs │ │ ├── INSTALL │ │ ├── README │ │ ├── Setup.lhs │ │ ├── cabal-install.cabal │ │ └── etc-cabal-install │ │ │ └── serv.list │ ├── cabal-setup │ │ ├── CabalSetup.hs │ │ ├── Makefile │ │ ├── Setup.hs │ │ └── cabal-setup.cabal │ ├── changelog │ ├── copyright │ ├── debian │ │ ├── README.Debian │ │ ├── changelog │ │ ├── compat │ │ ├── control │ │ ├── copyright │ │ ├── dirs │ │ ├── docs │ │ ├── haskell-cabal-dev.dirs │ │ ├── haskell-cabal-dev.files │ │ ├── haskell-cabal1.dirs │ │ ├── haskell-cabal1.files │ │ ├── libghc6-cabal-dev.postinst │ │ ├── libghc6-cabal-dev.prerm │ │ └── rules │ ├── debianTemplate │ │ ├── changelog │ │ ├── compat │ │ ├── control │ │ ├── libghc6-package-dev.docs │ │ ├── libghc6-package-dev.postinst │ │ ├── libghc6-package-dev.prerm │ │ └── rules │ ├── doc │ │ ├── Cabal.xml │ │ └── Makefile │ ├── examples │ │ ├── DefaultSetup.lhs │ │ ├── Makefile │ │ └── hapax.hs │ ├── package.conf.in │ ├── prologue.txt │ ├── releaseNotes │ ├── runTests.sh │ └── tests │ │ ├── A │ │ ├── A.cabal │ │ ├── A.hs │ │ ├── B │ │ │ ├── A.lhs │ │ │ └── MainB.hs │ │ ├── MainA.hs │ │ ├── Makefile │ │ ├── Setup.lhs │ │ ├── c_src │ │ │ └── hello.c │ │ └── hello.c │ │ ├── HSQL │ │ ├── HSQL.cabal │ │ ├── LICENSE │ │ ├── Makefile │ │ ├── NSIS │ │ │ └── hsql_installer.nsi │ │ ├── RPM │ │ │ └── HSQL.spec │ │ ├── Setup.lhs │ │ ├── config.guess │ │ ├── config.mk │ │ ├── config.mk.in │ │ ├── config.sub │ │ ├── configure │ │ ├── configure.ac │ │ ├── doc │ │ │ ├── Database.HSQL.MySQL.html │ │ │ ├── Database.HSQL.ODBC.html │ │ │ ├── Database.HSQL.PostgreSQL.html │ │ │ ├── Database.HSQL.SQLite.html │ │ │ ├── Database.HSQL.html │ │ │ ├── doc-index-B.html │ │ │ ├── doc-index-C.html │ │ │ ├── doc-index-D.html │ │ │ ├── doc-index-E.html │ │ │ ├── doc-index-F.html │ │ │ ├── doc-index-G.html │ │ │ ├── doc-index-H.html │ │ │ ├── doc-index-I.html │ │ │ ├── doc-index-L.html │ │ │ ├── doc-index-O.html │ │ │ ├── doc-index-P.html │ │ │ ├── doc-index-Q.html │ │ │ ├── doc-index-S.html │ │ │ ├── doc-index-T.html │ │ │ ├── doc-index.html │ │ │ ├── haddock.css │ │ │ ├── haskell_icon.gif │ │ │ └── index.html │ │ ├── examples │ │ │ ├── Main.hs │ │ │ └── Queries.hs │ │ ├── hsql.pkg.in │ │ ├── install-sh │ │ ├── mingw32lib │ │ │ ├── Makefile │ │ │ ├── libmysql.def │ │ │ ├── libpqdll.def │ │ │ └── sqlite.def │ │ └── src │ │ │ ├── HSQL.hsc │ │ │ └── HSQL │ │ │ ├── HsMySQL.h │ │ │ ├── HsODBC.c │ │ │ ├── HsODBC.h │ │ │ ├── MySQL.hsc │ │ │ ├── ODBC.hsc │ │ │ ├── PostgreSQL.hsc │ │ │ ├── SQLite.hsc │ │ │ └── Types.hs │ │ ├── HUnit-1.0 │ │ ├── Guide.html │ │ ├── HUnit.cabal │ │ ├── HUnitTester.hs │ │ ├── License │ │ ├── Makefile │ │ ├── README │ │ ├── Setup.lhs │ │ └── src │ │ │ ├── Example.hs │ │ │ ├── HUnit.lhs │ │ │ ├── HUnitBase.lhs │ │ │ ├── HUnitLang.lhs │ │ │ ├── HUnitLang98.lhs │ │ │ ├── HUnitLangExc.lhs │ │ │ ├── HUnitTest98.lhs │ │ │ ├── HUnitTestBase.lhs │ │ │ ├── HUnitTestExc.lhs │ │ │ ├── HUnitText.lhs │ │ │ ├── Terminal.lhs │ │ │ └── TerminalTest.lhs │ │ ├── ModuleTest.hs │ │ ├── Tests.mk │ │ ├── buildInfo │ │ ├── Makefile │ │ ├── Setup.lhs │ │ ├── buildinfo2.buildinfo │ │ ├── buildinfo2.cabal │ │ └── src │ │ │ ├── exe1.hs │ │ │ └── exe2.hs │ │ ├── depOnLib │ │ ├── Makefile │ │ ├── Setup.lhs │ │ ├── libs │ │ │ └── A.hs │ │ ├── mains │ │ │ └── Main.hs │ │ └── test.cabal │ │ ├── exeWithC │ │ ├── Makefile │ │ ├── Setup.lhs │ │ ├── a.c │ │ ├── test.hs │ │ └── tt.cabal │ │ ├── ffi-bin │ │ ├── Main.hs │ │ ├── Makefile │ │ ├── Setup.lhs │ │ └── main.cabal │ │ ├── ffi-package │ │ ├── Makefile │ │ ├── Setup.lhs │ │ ├── TestFFIExe.hs │ │ ├── src │ │ │ └── TestFFI.hs │ │ └── testffi.cabal │ │ ├── recursive │ │ ├── A.hi-boot │ │ ├── A.hs │ │ ├── A.hs-boot │ │ ├── B.hs │ │ ├── C.hs │ │ ├── Makefile │ │ ├── Setup.lhs │ │ └── recursive.cabal │ │ ├── twoMains │ │ ├── MainA.hs │ │ ├── MainB.hs │ │ ├── Makefile │ │ ├── Setup.lhs │ │ └── test.cabal │ │ ├── wash2hs │ │ ├── CHANGES │ │ ├── LICENSE │ │ ├── Makefile │ │ ├── Setup.lhs │ │ ├── hs │ │ │ ├── WASHClean.hs │ │ │ ├── WASHData.hs │ │ │ ├── WASHExpression.hs │ │ │ ├── WASHFlags.hs │ │ │ ├── WASHGenerator.hs │ │ │ ├── WASHMain.hs │ │ │ ├── WASHOut.hs │ │ │ ├── WASHParser.hs │ │ │ └── WASHUtil.hs │ │ ├── test │ │ │ ├── Counter.wash │ │ │ ├── ManuelsTable.wash │ │ │ └── Tutorial.wash │ │ └── wash2hs.cabal │ │ └── withHooks │ │ ├── C.testSuffix │ │ ├── D.gc │ │ ├── Main.hs │ │ ├── Makefile │ │ ├── Setup.buildinfo.in │ │ ├── Setup.lhs │ │ ├── WithHooks.hs │ │ └── withHooks.cabal ├── base │ ├── Control │ │ ├── Applicative.hs │ │ ├── Arrow.hs │ │ ├── Concurrent.hs │ │ ├── Concurrent │ │ │ ├── Chan.hs │ │ │ ├── MVar.hs │ │ │ ├── QSem.hs │ │ │ ├── QSemN.hs │ │ │ └── SampleVar.hs │ │ ├── Exception.hs │ │ ├── Monad.hs │ │ ├── Monad │ │ │ ├── Fix.hs │ │ │ ├── Instances.hs │ │ │ ├── ST.hs │ │ │ └── ST │ │ │ │ ├── Lazy.hs │ │ │ │ └── Strict.hs │ │ ├── Parallel.hs │ │ └── Parallel │ │ │ └── Strategies.hs │ ├── Data │ │ ├── Array.hs │ │ ├── Array │ │ │ ├── Base.hs │ │ │ ├── Diff.hs │ │ │ ├── IArray.hs │ │ │ ├── IO.hs │ │ │ ├── IO │ │ │ │ └── Internals.hs │ │ │ ├── MArray.hs │ │ │ ├── ST.hs │ │ │ ├── Storable.hs │ │ │ └── Unboxed.hs │ │ ├── Bits.hs │ │ ├── Bool.hs │ │ ├── ByteString.hs │ │ ├── ByteString │ │ │ ├── Base.hs │ │ │ ├── Char8.hs │ │ │ ├── Fusion.hs │ │ │ ├── Lazy.hs │ │ │ └── Lazy │ │ │ │ └── Char8.hs │ │ ├── Char.hs │ │ ├── Complex.hs │ │ ├── Dynamic.hs │ │ ├── Dynamic.hs-boot │ │ ├── Either.hs │ │ ├── Eq.hs │ │ ├── Fixed.hs │ │ ├── Foldable.hs │ │ ├── FunctorM.hs │ │ ├── Generics.hs │ │ ├── Generics │ │ │ ├── Aliases.hs │ │ │ ├── Basics.hs │ │ │ ├── Instances.hs │ │ │ ├── Schemes.hs │ │ │ ├── Text.hs │ │ │ └── Twins.hs │ │ ├── Graph.hs │ │ ├── HashTable.hs │ │ ├── IORef.hs │ │ ├── Int.hs │ │ ├── IntMap.hs │ │ ├── IntSet.hs │ │ ├── Ix.hs │ │ ├── List.hs │ │ ├── Map.hs │ │ ├── Maybe.hs │ │ ├── Monoid.hs │ │ ├── Ord.hs │ │ ├── PackedString.hs │ │ ├── Queue.hs │ │ ├── Ratio.hs │ │ ├── STRef.hs │ │ ├── STRef │ │ │ ├── Lazy.hs │ │ │ └── Strict.hs │ │ ├── Sequence.hs │ │ ├── Set.hs │ │ ├── Traversable.hs │ │ ├── Tree.hs │ │ ├── Tuple.hs │ │ ├── Typeable.hs │ │ ├── Typeable.hs-boot │ │ ├── Unique.hs │ │ ├── Version.hs │ │ └── Word.hs │ ├── Debug │ │ └── Trace.hs │ ├── Foreign.hs │ ├── Foreign │ │ ├── C.hs │ │ ├── C │ │ │ ├── Error.hs │ │ │ ├── String.hs │ │ │ └── Types.hs │ │ ├── Concurrent.hs │ │ ├── ForeignPtr.hs │ │ ├── Marshal.hs │ │ ├── Marshal │ │ │ ├── Alloc.hs │ │ │ ├── Array.hs │ │ │ ├── Error.hs │ │ │ ├── Pool.hs │ │ │ └── Utils.hs │ │ ├── Ptr.hs │ │ ├── StablePtr.hs │ │ └── Storable.hs │ ├── GHC │ │ ├── Arr.lhs │ │ ├── Base.lhs │ │ ├── Conc.lhs │ │ ├── ConsoleHandler.hs │ │ ├── Dotnet.hs │ │ ├── Dynamic.hs │ │ ├── Dynamic.hs-boot │ │ ├── Enum.lhs │ │ ├── Err.lhs │ │ ├── Err.lhs-boot │ │ ├── Exception.lhs │ │ ├── Exts.hs │ │ ├── Float.lhs │ │ ├── ForeignPtr.hs │ │ ├── Handle.hs │ │ ├── IO.hs │ │ ├── IOBase.lhs │ │ ├── Int.hs │ │ ├── List.lhs │ │ ├── Num.lhs │ │ ├── PArr.hs │ │ ├── Pack.lhs │ │ ├── Ptr.lhs │ │ ├── Read.lhs │ │ ├── Real.lhs │ │ ├── ST.lhs │ │ ├── STRef.lhs │ │ ├── Show.lhs │ │ ├── Stable.lhs │ │ ├── Storable.lhs │ │ ├── TopHandler.lhs │ │ ├── TopHandler.lhs-boot │ │ ├── Unicode.hs │ │ ├── Unicode.hs-boot │ │ ├── Weak.lhs │ │ └── Word.hs │ ├── LICENSE │ ├── Makefile │ ├── Makefile.inc │ ├── Makefile.nhc98 │ ├── NHC │ │ ├── Makefile │ │ └── SizedTypes.hs │ ├── Numeric.hs │ ├── Prelude.hs │ ├── System │ │ ├── CPUTime.hsc │ │ ├── Cmd.hs │ │ ├── Console │ │ │ └── GetOpt.hs │ │ ├── Directory.hs │ │ ├── Directory │ │ │ └── Internals.hs │ │ ├── Environment.hs │ │ ├── Exit.hs │ │ ├── IO.hs │ │ ├── IO │ │ │ ├── Error.hs │ │ │ └── Unsafe.hs │ │ ├── Info.hs │ │ ├── Locale.hs │ │ ├── Mem.hs │ │ ├── Mem │ │ │ ├── StableName.hs │ │ │ └── Weak.hs │ │ ├── Posix │ │ │ ├── Internals.hs │ │ │ ├── Signals.hs │ │ │ └── Types.hs │ │ ├── Process.hs │ │ ├── Process │ │ │ └── Internals.hs │ │ ├── Random.hs │ │ └── Time.hsc │ ├── Text │ │ ├── ParserCombinators │ │ │ ├── ReadP.hs │ │ │ └── ReadPrec.hs │ │ ├── PrettyPrint.hs │ │ ├── PrettyPrint │ │ │ └── HughesPJ.hs │ │ ├── Printf.hs │ │ ├── Read.hs │ │ ├── Read │ │ │ └── Lex.hs │ │ ├── Show.hs │ │ └── Show │ │ │ └── Functions.hs │ ├── aclocal.m4 │ ├── base.cabal │ ├── cbits │ │ ├── Makefile │ │ ├── PrelIOUtils.c │ │ ├── WCsubst.c │ │ ├── consUtils.c │ │ ├── dirUtils.c │ │ ├── execvpe.c │ │ ├── fpstring.c │ │ ├── inputReady.c │ │ ├── lockFile.c │ │ ├── longlong.c │ │ ├── runProcess.c │ │ ├── selectUtils.c │ │ ├── timeUtils.c │ │ └── ubconfc │ ├── configure │ ├── configure.ac │ ├── include │ │ ├── CTypes.h │ │ ├── HsBase.h │ │ ├── HsBaseConfig.h.in │ │ ├── Makefile │ │ ├── Typeable.h │ │ ├── WCsubst.h │ │ ├── consUtils.h │ │ ├── dirUtils.h │ │ ├── fpstring.h │ │ ├── lockFile.h │ │ ├── runProcess.h │ │ └── timeUtils.h │ ├── package.conf.in │ └── prologue.txt └── haskell98 │ ├── Array.hs │ ├── Bits.hs │ ├── CError.hs │ ├── CForeign.hs │ ├── CPUTime.hs │ ├── CString.hs │ ├── CTypes.hs │ ├── Char.hs │ ├── Complex.hs │ ├── Directory.hs │ ├── ForeignPtr.hs │ ├── IO.hs │ ├── Int.hs │ ├── Ix.hs │ ├── LICENSE │ ├── List.hs │ ├── Locale.hs │ ├── Makefile │ ├── MarshalAlloc.hs │ ├── MarshalArray.hs │ ├── MarshalError.hs │ ├── MarshalUtils.hs │ ├── Maybe.hs │ ├── Monad.hs │ ├── Ptr.hs │ ├── Random.hs │ ├── Ratio.hs │ ├── StablePtr.hs │ ├── Storable.hs │ ├── System.hs │ ├── Time.hs │ ├── Word.hs │ ├── haskell98.cabal │ ├── package.conf.in │ └── prologue.txt ├── src ├── .cvsignore ├── .gdbinit ├── HsFFI.h ├── HugsAPI.h ├── Makefile.in ├── MkDepend.in ├── MkInstal.in ├── MkNull.in ├── array.c ├── bcc32 │ ├── Makefile │ ├── config.bat │ ├── config.h │ ├── config.sh │ ├── iobjects.rsp │ ├── options.h │ └── sobjects.rsp ├── bignums.c ├── builtin.c ├── builtin.h ├── char.c ├── char.h ├── command.h ├── compiler.c ├── config.h.in ├── connect.h ├── dirprim.c ├── djgpp2 │ ├── Makefile │ ├── config.bat │ ├── config.h │ ├── config.sh │ └── options.h ├── dotnet │ ├── .cvsignore │ ├── HugsServ.cpp │ ├── HugsServ.h │ ├── HugsWrapper.cpp │ ├── HugsWrapper.cs │ ├── HugsWrapper.h │ ├── Invoker.cpp │ ├── Invoker.h │ ├── Makefile │ ├── config.h │ ├── hugs.rc │ ├── options.h │ ├── platform.h │ ├── prim.cpp │ ├── prim.h │ └── runhugs.rc ├── edit.c ├── epoc │ ├── README │ ├── config.h │ ├── demos_readme │ ├── epoc.c │ ├── epoc.h │ ├── epoc_input.c │ ├── epoc_input.h │ ├── eshell_readme │ ├── hugs.mmp │ ├── hugs.pkg │ └── options.h ├── errors.c ├── errors.h ├── evaluator.c ├── evaluator.h ├── ffi.c ├── goal.c ├── goal.h ├── hugs.c ├── hugsscript.c ├── input.c ├── interns.c ├── iomonad.c ├── machdep.c ├── machdep.h ├── machine.c ├── machugs │ ├── MoreFilesExtras.c │ ├── MoreFilesExtras.h │ ├── Optimization.h │ ├── OptimizationEnd.h │ ├── config.h │ ├── hugs.mcp.xml │ ├── hugs.r │ └── options.h ├── module.c ├── module.h ├── msc │ ├── Makefile │ ├── README │ ├── config.bat │ ├── config.h │ ├── config.sh │ ├── echodate.c │ ├── ffihugs.bat │ ├── ffihugs.vcproj │ ├── hugs.dsp │ ├── hugs.dsw │ ├── hugs.rc │ ├── hugs.sln │ ├── hugs.vcproj │ ├── options.h │ ├── platform.h │ ├── runhugs.dsp │ ├── runhugs.rc │ └── runhugs.vcproj ├── observe.c ├── observe.h ├── options.h.in ├── opts.c ├── opts.h ├── output.c ├── output.h ├── parser.c ├── parser.y ├── platform.h.in ├── plugin.c ├── preds.c ├── prelude.h ├── printer.c ├── runhugs.c ├── scc.c ├── script.c ├── script.h ├── server.c ├── server.h ├── static.c ├── storage.c ├── storage.h ├── strutil.c ├── strutil.h ├── subst.c ├── subst.h ├── timeprim.c ├── timer.c ├── type.c ├── unitable.c ├── unix │ ├── .cvsignore │ ├── README │ ├── linking_notes │ ├── mkconfigs │ └── mkunitable ├── version.c └── winhugs │ ├── DlgAbout.c │ ├── DlgMain.c │ ├── DlgOptions.c │ ├── Editors.c │ ├── General.c │ ├── Header.h │ ├── History.c │ ├── IORemap.c │ ├── Legacy.c │ ├── Makefile │ ├── MruFiles.c │ ├── Registry.c │ ├── Registry.h │ ├── RtfWindow.c │ ├── RtfWindow.h │ ├── StartCode.c │ ├── Winhugs.h │ ├── Winmenu.h │ ├── config.h │ ├── installer │ ├── BlueZip │ │ ├── BlueHead.h │ │ ├── BlueZip.cpp │ │ ├── BlueZip.h │ │ ├── CRC.cpp │ │ ├── CompHead.h │ │ ├── DefTree.cpp │ │ ├── Deflate.cpp │ │ ├── Errors.h │ │ ├── FileIO.cpp │ │ ├── FileIO.h │ │ ├── General.cpp │ │ ├── General.h │ │ ├── Inflate.cpp │ │ ├── Inflate.h │ │ ├── License.txt │ │ ├── ReadZip.cpp │ │ ├── Store.cpp │ │ ├── Structs.cpp │ │ ├── Structs.h │ │ ├── Trees.cpp │ │ ├── WriteZip.cpp │ │ ├── fList.cpp │ │ ├── fList.h │ │ ├── zList.cpp │ │ └── zList.h │ ├── FileCode.cpp │ ├── FileCode.h │ ├── Header.h │ ├── InstallLog.cpp │ ├── InstallLog.h │ ├── Installer.rc │ ├── Installer.sln │ ├── Installer.vcproj │ ├── Parameters.h │ ├── Readme.txt │ ├── Setup.ico │ ├── ShellCode.cpp │ ├── ShellCode.h │ ├── StartCode.cpp │ ├── WinHugs-Installer.manifest │ ├── installer.bmp │ └── resource.h │ ├── options.h │ ├── platform.h │ ├── register │ ├── make.bat │ └── register.c │ ├── resource.h │ ├── resource │ ├── button.bmp │ ├── classbmp.bmp │ ├── classesd.bmp │ ├── copybutt.bmp │ ├── cutbutto.bmp │ ├── datacons.bmp │ ├── datatype.bmp │ ├── deletebu.bmp │ ├── disabled.bmp │ ├── editbutt.bmp │ ├── exitbutt.bmp │ ├── gc.cur │ ├── hand.cur │ ├── helpbutt.bmp │ ├── hierarch.bmp │ ├── hierbutt.bmp │ ├── hugs1.ico │ ├── hugs2.ico │ ├── hugs32bm.bmp │ ├── hugsdoc.ico │ ├── instance.bmp │ ├── lambda.ico │ ├── logo.bmp │ ├── makebutt.bmp │ ├── memberbm.bmp │ ├── move.cur │ ├── namebmp.bmp │ ├── namesdlg.bmp │ ├── newtypeb.bmp │ ├── noassign.ico │ ├── openfile.bmp │ ├── openproj.bmp │ ├── optionsb.bmp │ ├── optionsd.bmp │ ├── pastebut.bmp │ ├── primbmp.bmp │ ├── pushedbu.bmp │ ├── relobutt.bmp │ ├── resizeco.bmp │ ├── rt_manif.bin │ ├── runbutto.bmp │ ├── selector.bmp │ ├── smanbutt.bmp │ ├── smand.bmp │ ├── stopbutt.bmp │ ├── synonym.bmp │ ├── toolbar.bmp │ ├── tyconsdl.bmp │ ├── typecons.bmp │ ├── typesinb.bmp │ ├── winhugs.manifest │ └── world.ico │ ├── resrc1.h │ ├── uninstaller │ ├── CRC.cpp │ ├── DeleteOnReboot.cpp │ ├── Header.h │ ├── LinkedList.cpp │ ├── LinkedList.h │ ├── LogReader.cpp │ ├── LogReader.h │ ├── Parameters.h │ ├── ShellCode.cpp │ ├── StartCode.cpp │ ├── Uninstaller.rc │ ├── Uninstaller.sln │ ├── Uninstaller.vcproj │ ├── WinHugs-Uninstaller.manifest │ ├── logo.bmp │ └── resource.h │ ├── winhugs.rc │ ├── winhugs.sln │ └── winhugs.vcproj ├── tools ├── ConvertLibs.hs ├── hugs-hc └── prelude.patch └── winmake.bat /.cvsignore: -------------------------------------------------------------------------------- 1 | *.rpm 2 | Defs.mk 3 | hugsdir 4 | -------------------------------------------------------------------------------- /cpphs/Makefile.inc: -------------------------------------------------------------------------------- 1 | ifeq "" "${MKDIR}" 2 | MKDIR:=$(shell pwd) 3 | #MKDIR:=$(PWD) 4 | else 5 | MKDIR:=$(patsubst %/$(notdir ${MKDIR}),%, ${MKDIR}) 6 | endif 7 | include ${MKDIR}/Makefile.inc 8 | -------------------------------------------------------------------------------- /cpphs/Setup.hs: -------------------------------------------------------------------------------- 1 | import Distribution.Simple 2 | main = defaultMain 3 | -------------------------------------------------------------------------------- /cpphs/cpphs.hugs: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | runhugs cpphs.hs --noline -D__HASKELL98__ -D__HUGS__ "$@" 3 | -------------------------------------------------------------------------------- /cpphs/tests/MachDeps.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/cpphs/tests/MachDeps.h -------------------------------------------------------------------------------- /cpphs/tests/Test.hsc: -------------------------------------------------------------------------------- 1 | module Test where 2 | 3 | main :: IO () 4 | main = putStrLn "shows a cpphs+hsc2hs bug with comments" 5 | 6 | #def inline int that_one_will_work(void) {return 42;} 7 | 8 | {- 9 | #def inline int cpphs_will_stumble(void) {return 42;} 10 | -} 11 | 12 | -------------------------------------------------------------------------------- /cpphs/tests/chains: -------------------------------------------------------------------------------- 1 | For this test, assume that all of e,f,g,h are defined. 2 | Also that c,d are defined, a,b are not. 3 | If cpphs does operator precedence wrongly in infix chains, the final 4 | conditional will be interpreted wrongly. 5 | 6 | #if defined(a) || defined(b) || defined(c) || defined(d) 7 | chained || OK 8 | #endif 9 | #if defined(e) && defined(f) && defined(g) && defined(h) 10 | chained && OK 11 | #endif 12 | #if defined(a) && defined(b) || defined(c) && defined(d) 13 | mixed chain of || and && OK 14 | #else 15 | mixed chain of || and && BROKEN 16 | #endif 17 | -------------------------------------------------------------------------------- /cpphs/tests/config.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/cpphs/tests/config.h -------------------------------------------------------------------------------- /cpphs/tests/cpp: -------------------------------------------------------------------------------- 1 | #define /**/ ++ `mplus` // not expected to work 2 | #define 0 mzero // not expected to work 3 | #define x0 X' // should work 4 | #define x' Xprime // should work 5 | #define `foo` .(foo)/**/, // bizarreness 6 | 7 | x ++ y = x0 * 0 * y `foo` x' 8 | 9 | // /* 10 | -------------------------------------------------------------------------------- /cpphs/tests/elif: -------------------------------------------------------------------------------- 1 | #if ( defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ > 502 ) || \ 2 | ( defined(__NHC__) && __NHC__ > 114 ) || defined(__HUGS__) 3 | import System.IO.Unsafe (unsafePerformIO) 4 | #elif defined(__GLASGOW_HASKELL__) 5 | import IOExts (unsafePerformIO) 6 | #elif defined(__NHC__) 7 | import IOExtras (unsafePerformIO) 8 | #elif defined(__HBC__) 9 | import UnsafePerformIO 10 | #endif 11 | -------------------------------------------------------------------------------- /cpphs/tests/expect1: -------------------------------------------------------------------------------- 1 | #line 1 "testfile" 2 | 1 top of file 3 | 4 | 3 5 | 6 | 5 X is defined 7 | 8 | 7 9 | 10 | 11 | 12 | 11 13 | 14 | 15 | 16 | 15 17 | 18 | 19 | 20 | 19 21 | 22 | 23 | 24 | 23 no inclusion, this is an else clause 25 | 26 | 25 27 | 28 | 29 | 30 | 31 | 32 | 31 third branch of elif 33 | 34 | 33 35 | 34 end of file 36 | 37 | -------------------------------------------------------------------------------- /cpphs/tests/expect10: -------------------------------------------------------------------------------- 1 | #line 1 "multiline" 2 | 3 | 4 | 5 | 6 | 5 back to ordinary text. 7 | #line 1 "./inclusion" 8 | hello world, this is an inclusion 9 | 10 | #line 6 "multiline" 11 | 12 | 7 hello again 13 | 8 some more 14 | 9 aLongMacroDefinition(a,b) 15 | 10 end 16 | 17 | -------------------------------------------------------------------------------- /cpphs/tests/expect11: -------------------------------------------------------------------------------- 1 | #line 1 "stringise" 2 | 3 | This is "abcd ef" foo abcd ef 4 | -------------------------------------------------------------------------------- /cpphs/tests/expect12: -------------------------------------------------------------------------------- 1 | #line 1 "recursive" 2 | 3 | 4 | 5 | D D D D D D D D 6 | -------------------------------------------------------------------------------- /cpphs/tests/expect13: -------------------------------------------------------------------------------- 1 | #line 1 "ross" 2 | 3 | 4 | 5 | 6 | 7 | 8 | f = 4 9 | 10 | 11 | 12 | 13 | 14 | 15 | g = do { putStr "Hello "; putStrLn "World" } 16 | 17 | 18 | 19 | 20 | h = 4 21 | -------------------------------------------------------------------------------- /cpphs/tests/expect14: -------------------------------------------------------------------------------- 1 | #line 1 "precedence" 2 | 3 | 4 | 5 | -------------------------------------------------------------------------------- /cpphs/tests/expect15: -------------------------------------------------------------------------------- 1 | #line 1 "indirect" 2 | 3 | #line 1 "./inclusion" 4 | hello world, this is an inclusion 5 | 6 | #line 2 "indirect" 7 | 8 | -------------------------------------------------------------------------------- /cpphs/tests/expect16: -------------------------------------------------------------------------------- 1 | #line 1 "numbers" 2 | 3 | number (1) in if 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | number (0) in if 12 | 13 | 14 | 15 | 16 | 17 | rejected false hex number in if 18 | 19 | 20 | 21 | real hex number (0x1) in if 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | hex number (0x00) in if 30 | 31 | -------------------------------------------------------------------------------- /cpphs/tests/expect17: -------------------------------------------------------------------------------- 1 | #line 1 "pragma" 2 | 3 | -------------------------------------------------------------------------------- /cpphs/tests/expect18: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /cpphs/tests/expect19: -------------------------------------------------------------------------------- 1 | #line 1 "parens" 2 | 3 | 4 | 5 | yes 6 | -------------------------------------------------------------------------------- /cpphs/tests/expect2: -------------------------------------------------------------------------------- 1 | #line 1 "testfile" 2 | 1 top of file 3 | 4 | 3 5 | 6 | 5 X is defined 7 | 8 | 7 9 | 10 | 11 | 12 | 11 13 | 14 | 15 | 16 | 15 17 | 18 | 19 | 20 | 19 21 | 22 | 23 | 24 | 23 no inclusion, this is an else clause 25 | 26 | 25 27 | 28 | 27 no elif 29 | 30 | 31 | 32 | 33 | 34 | 33 35 | 34 end of file 36 | 37 | -------------------------------------------------------------------------------- /cpphs/tests/expect20: -------------------------------------------------------------------------------- 1 | #line 1 "chains" 2 | For this test, assume that all of 1,1,1,1 are defined. 3 | Also that 1,1 are defined, a,b are not. 4 | If cpphs does operator precedence wrongly in infix chains, the final 5 | conditional will be interpreted wrongly. 6 | 7 | 8 | chained || OK 9 | 10 | 11 | chained && OK 12 | 13 | 14 | mixed chain of || and && OK 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /cpphs/tests/expect21: -------------------------------------------------------------------------------- 1 | #line 1 "specials" 2 | 3 | line 2 4 | line 3 5 | line 4 Error "horrible" at line 4 of file "specials" 6 | line 5 7 | -------------------------------------------------------------------------------- /cpphs/tests/expect22: -------------------------------------------------------------------------------- 1 | #line 1 "specialinclude" 2 | 1 3 | 2 4 | #line 1 "./specials" 5 | 6 | line 2 7 | line 3 8 | line 4 Error "horrible" at line 4 of file "./specials" 9 | line 5 10 | 11 | #line 3 "specialinclude" 12 | 13 | 4 14 | 5 15 | -------------------------------------------------------------------------------- /cpphs/tests/expect23: -------------------------------------------------------------------------------- 1 | #line 1 "incomplete" 2 | incomplete -------------------------------------------------------------------------------- /cpphs/tests/expect24: -------------------------------------------------------------------------------- 1 | #line 1 "text" 2 | Here is some ordinary text with embedded Haskell-ish constructs, 3 | that should however /not/ be interpreted as Haskell if the --text 4 | option is given to cpphs. For instance, here is a Haskell comment 5 | including a cpp definition: {- 6 | # define FOO bar 7 | and now we end the comment: -} and try out the definition: FOO 8 | Likewise, double and single quotes no longer delimit strings or chars: " 9 | # define BAZ FOO 10 | and what do we have here?: " ' BAZ ' 11 | 12 | 13 | Also, in text-mode, macros should be expanded inside Haskell comments: 14 | -- expand(this,other,that) 15 | and strings "expand(this,other,that)". 16 | -------------------------------------------------------------------------------- /cpphs/tests/expect26: -------------------------------------------------------------------------------- 1 | #line 1 "nastyhack" 2 | 3 | -- hackery to convice cpp to splice 6.2.2 into a string 4 | version :: String 5 | version = tail "\ 6 | \ 6.2.2" 7 | 8 | version2 = "6.2.2" 9 | 10 | 11 | version3 = "6.2.2" 12 | 13 | 14 | version4 = #6.2.2 15 | 16 | 17 | version5 = "6.2.2" 18 | -------------------------------------------------------------------------------- /cpphs/tests/expect27: -------------------------------------------------------------------------------- 1 | #line 1 "nastyhack" 2 | 3 | -- hackery to convice cpp to splice GHC_PKG_VERSION into a string 4 | version :: String 5 | version = tail "\ 6 | \ GHC_PKG_VERSION" 7 | 8 | version2 = "GHC_PKG_VERSION" 9 | 10 | 11 | version3 = "GHC_PKG_VERSION" 12 | 13 | 14 | version4 = #6.2.2 15 | 16 | 17 | version5 = "GHC_PKG_VERSION" 18 | -------------------------------------------------------------------------------- /cpphs/tests/expect28: -------------------------------------------------------------------------------- 1 | #line 1 "symbolvalue" 2 | 3 | the symbol is defined as 1 4 | 5 | -------------------------------------------------------------------------------- /cpphs/tests/expect29: -------------------------------------------------------------------------------- 1 | #line 1 "Test.hsc" 2 | module Test where 3 | 4 | main :: IO () 5 | main = putStrLn "shows a cpphs+hsc2hs bug with comments" 6 | 7 | 8 | 9 | {- 10 | #def inline int cpphs_will_stumble(void) {return 42;} 11 | -} 12 | 13 | -------------------------------------------------------------------------------- /cpphs/tests/expect3: -------------------------------------------------------------------------------- 1 | #line 1 "testfile" 2 | 1 top of file 3 | 4 | 3 5 | 6 | 5 X is defined 7 | 8 | 7 9 | 10 | 11 | 12 | 11 13 | 14 | 15 | 16 | 15 17 | 18 | 19 | 20 | 19 21 | 22 | 23 | 24 | 23 no inclusion, this is an else clause 25 | 26 | 25 27 | 28 | 29 | 30 | 29 this is an elif 31 | 32 | 33 | 34 | 33 35 | 34 end of file 36 | 37 | -------------------------------------------------------------------------------- /cpphs/tests/expect31: -------------------------------------------------------------------------------- 1 | #line 1 "elif" 2 | 3 | import System.IO.Unsafe (unsafePerformIO) 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | -------------------------------------------------------------------------------- /cpphs/tests/expect4: -------------------------------------------------------------------------------- 1 | #line 1 "testfile" 2 | 1 top of file 3 | 4 | 3 5 | 6 | 5 X is defined 7 | 8 | 7 9 | 10 | 11 | 12 | 11 13 | 14 | 15 | 16 | 15 17 | 18 | 19 | 20 | 19 21 | 22 | #line 1 "./inclusion" 23 | hello world, this is an inclusion 24 | 25 | #line 21 "testfile" 26 | 27 | 28 | 29 | 30 | 25 31 | 32 | 33 | 34 | 35 | 36 | 31 third branch of elif 37 | 38 | 33 39 | 34 end of file 40 | 41 | -------------------------------------------------------------------------------- /cpphs/tests/expect5: -------------------------------------------------------------------------------- 1 | 1 top of file 2 | 3 | 3 4 | 5 | 5 0 is defined 6 | 7 | 7 8 | 9 | 10 | 11 | 11 12 | 13 | 14 | 15 | 15 16 | 17 | 18 | 19 | 19 20 | 21 | hello world, this is an inclusion 22 | 23 | 24 | 25 | 26 | 27 | 25 28 | 29 | 30 | 31 | 32 | 33 | 31 third branch of elif 34 | 35 | 33 36 | 34 end of file 37 | -------------------------------------------------------------------------------- /cpphs/tests/expect6: -------------------------------------------------------------------------------- 1 | #line 1 "cpp" 2 | 3 | 4 | 5 | 6 | 7 | 8 | x ++ y = X' * 0 * y .(foo), Xprime 9 | 10 | // /* 11 | -------------------------------------------------------------------------------- /cpphs/tests/expect9: -------------------------------------------------------------------------------- 1 | #line 1 "multiline" 2 | 3 | 4 | 5 | 6 | 5 back to ordinary text. 7 | #line 1 "./inclusion" 8 | hello world, this is an inclusion 9 | 10 | #line 6 "multiline" 11 | 12 | 7 hello again 13 | 8 some more 14 | 9 some line here; 15 | and some more; 16 | finish now 17 | 10 end 18 | -------------------------------------------------------------------------------- /cpphs/tests/inclusion: -------------------------------------------------------------------------------- 1 | hello world, this is an inclusion 2 | -------------------------------------------------------------------------------- /cpphs/tests/incomplete: -------------------------------------------------------------------------------- 1 | incomplete -------------------------------------------------------------------------------- /cpphs/tests/indirect: -------------------------------------------------------------------------------- 1 | #define F "inclusion" 2 | #include F 3 | -------------------------------------------------------------------------------- /cpphs/tests/multiline: -------------------------------------------------------------------------------- 1 | #define aLongMacroDefinition(x,y) \ 2 | some line here; \ 3 | and some more; \ 4 | finish now 5 | 5 back to ordinary text. 6 | #include "inclusion" 7 | 7 hello again 8 | 8 some more 9 | 9 aLongMacroDefinition(a,b) 10 | 10 end 11 | -------------------------------------------------------------------------------- /cpphs/tests/nastyhack: -------------------------------------------------------------------------------- 1 | #define GHC_PKG_VERSION 6.2.2 2 | -- hackery to convice cpp to splice GHC_PKG_VERSION into a string 3 | version :: String 4 | version = tail "\ 5 | \ GHC_PKG_VERSION" 6 | 7 | version2 = "GHC_PKG_VERSION" 8 | 9 | #define v3 "GHC_PKG_VERSION" 10 | version3 = v3 11 | 12 | #define stringify(s) #s 13 | version4 = stringify(GHC_PKG_VERSION) 14 | 15 | #define stringify2(s) "s" 16 | version5 = stringify2(GHC_PKG_VERSION) 17 | -------------------------------------------------------------------------------- /cpphs/tests/numbers: -------------------------------------------------------------------------------- 1 | #if 1 2 | number (1) in if 3 | #else 4 | rejected number (1) in if 5 | #endif 6 | 7 | #if 0 8 | wrongly accepted number (0) in if 9 | #else 10 | number (0) in if 11 | #endif 12 | 13 | #if eaf 14 | false hex number in if 15 | #else 16 | rejected false hex number in if 17 | #endif 18 | 19 | #if 0x1 20 | real hex number (0x1) in if 21 | #else 22 | rejected real hex number (0x1) in if 23 | #endif 24 | 25 | #if 0x00 26 | wrongly accepted real hex number (0x00) in if 27 | #else 28 | hex number (0x00) in if 29 | #endif 30 | -------------------------------------------------------------------------------- /cpphs/tests/parens: -------------------------------------------------------------------------------- 1 | #if ( defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ >= 600 ) \ 2 | || ( defined(__NHC__) && __NHC__ >= 117 ) 3 | #define FINALIZERPTR yes 4 | #endif 5 | FINALIZERPTR 6 | -------------------------------------------------------------------------------- /cpphs/tests/pragma: -------------------------------------------------------------------------------- 1 | #pragma ident "@(#)time.h 1.39 99/08/10 SMI" /* SVr4.0 1.18 */ 2 | -------------------------------------------------------------------------------- /cpphs/tests/precedence: -------------------------------------------------------------------------------- 1 | #if !0 && 0 2 | boolean operator precedence is wrong 3 | #endif 4 | -------------------------------------------------------------------------------- /cpphs/tests/recursive: -------------------------------------------------------------------------------- 1 | #define C D D 2 | #define B C C 3 | #define A B B 4 | A 5 | -------------------------------------------------------------------------------- /cpphs/tests/ross: -------------------------------------------------------------------------------- 1 | /* 1. C comments should be deleted by the preprocessor */ 2 | 3 | /* 2. repeated expansion */ 4 | #define FOO 4 5 | #define BAR FOO 6 | 7 | f = BAR 8 | 9 | /* 3. continuation lines in macros shouldn't give newlines */ 10 | #define LONG_MACRO \ 11 | { putStr "Hello "; \ 12 | putStrLn "World" } 13 | 14 | g = do LONG_MACRO 15 | 16 | /* 4. projection macros */ 17 | #define MACRO(x) x 18 | 19 | h = MACRO(FOO) 20 | -------------------------------------------------------------------------------- /cpphs/tests/specialinclude: -------------------------------------------------------------------------------- 1 | 1 2 | 2 3 | #include "specials" 4 | 4 5 | 5 6 | -------------------------------------------------------------------------------- /cpphs/tests/specials: -------------------------------------------------------------------------------- 1 | #define error(s) Error #s at line __LINE__ of file __FILE__ 2 | line 2 3 | line 3 4 | line 4 error(horrible) 5 | line 5 6 | -------------------------------------------------------------------------------- /cpphs/tests/stringise: -------------------------------------------------------------------------------- 1 | #define foo(x) This is #x foo x 2 | foo(abcd ef) 3 | -------------------------------------------------------------------------------- /cpphs/tests/symbolvalue: -------------------------------------------------------------------------------- 1 | #if XXX 2 | the symbol is defined as XXX 3 | #endif 4 | -------------------------------------------------------------------------------- /cpphs/tests/testfile: -------------------------------------------------------------------------------- 1 | 1 top of file 2 | #define X 0 3 | 3 4 | #ifdef X 5 | 5 X is defined 6 | #endif 7 | 7 8 | #if X 9 | 9 X is non-zero 10 | #endif 11 | 11 12 | #if error 13 | #error "error message goes here" 14 | #endif 15 | 15 16 | #if warning 17 | #warning "warning message goes here" 18 | #endif 19 | 19 20 | #if include 21 | #include "inclusion" 22 | #else 23 | 23 no inclusion, this is an else clause 24 | #endif 25 | 25 26 | #if noelif 27 | 27 no elif 28 | #elif elif 29 | 29 this is an elif 30 | #else 31 | 31 third branch of elif 32 | #endif 33 | 33 34 | 34 end of file 35 | -------------------------------------------------------------------------------- /debian/compat: -------------------------------------------------------------------------------- 1 | 4 2 | -------------------------------------------------------------------------------- /debian/hugs.README.Debian: -------------------------------------------------------------------------------- 1 | Hugs98 for Debian 2 | ----------------- 3 | 4 | This version of Hugs is compiled with GNU readline support. 5 | 6 | For information on how to release libraries which work with Hugs, see 7 | the Haskell Cabal: http://www.haskell.org/cabal and also the Haskell 8 | Policy: http://urchin.earth.li/~ian/haskell-policy/haskell-policy.html/ 9 | 10 | -- Isaac Jones , Sat Sep 3 13:13:43 2005 11 | -------------------------------------------------------------------------------- /debian/hugs.doc-base: -------------------------------------------------------------------------------- 1 | Document: hugs-users-guide 2 | Title: Hugs User's Guide 3 | Author: The Hugs Team 4 | Abstract: 5 | Hugs is an interpreter for the non-strict, purely functional programming 6 | language Haskell. This version of Hugs, Hugs 98, supports nearly all of 7 | the Haskell 98 specification, as well as a number of extensions. 8 |
9 | The Haskell language is described by documents in the haskell-doc 10 | package. Many Haskell libraries are documented in the ghc6-doc 11 | package. 12 | Section: interpreters 13 | 14 | Format: HTML 15 | Index: /usr/share/doc/hugs/users_guide/index.html 16 | Files: /usr/share/doc/hugs/users_guide/*.html 17 | -------------------------------------------------------------------------------- /debian/hugs.docs: -------------------------------------------------------------------------------- 1 | Credits 2 | Readme 3 | docs/*.html 4 | docs/*.tex 5 | docs/*.txt 6 | docs/users_guide/users_guide 7 | -------------------------------------------------------------------------------- /debian/hugs.examples: -------------------------------------------------------------------------------- 1 | demos/*.* 2 | demos/prolog 3 | -------------------------------------------------------------------------------- /debian/hugs.install: -------------------------------------------------------------------------------- 1 | usr/bin/cpphs-hugs 2 | usr/bin/ffihugs 3 | usr/bin/hsc2hs-hugs 4 | usr/bin/hugs 5 | usr/bin/runhugs 6 | usr/lib/hugs/include 7 | usr/lib/hugs/oldlib 8 | usr/lib/hugs/packages/hugsbase 9 | usr/lib/hugs/programs 10 | -------------------------------------------------------------------------------- /debian/hugs.links: -------------------------------------------------------------------------------- 1 | usr/share/man/man1/hugs.1 usr/share/man/man1/runhugs.1 2 | usr/share/man/man1/hugs.1 usr/share/man/man1/ffihugs.1 3 | -------------------------------------------------------------------------------- /debian/hugs.manpages: -------------------------------------------------------------------------------- 1 | docs/hugs.1 2 | -------------------------------------------------------------------------------- /debian/hugs.menu: -------------------------------------------------------------------------------- 1 | ?package(hugs):needs="text" section="Apps/Programming"\ 2 | title="Hugs" command="/usr/bin/hugs" 3 | -------------------------------------------------------------------------------- /debian/hugs.postinst: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | 3 | set -e 4 | 5 | case "$1" in 6 | configure) 7 | ;; 8 | 9 | abort-upgrade|abort-remove|abort-deconfigure) 10 | ;; 11 | 12 | *) 13 | echo "postinst called with unknown argument \`$1'" >&2 14 | exit 1 15 | ;; 16 | esac 17 | 18 | #DEBHELPER# 19 | 20 | exit 0 21 | -------------------------------------------------------------------------------- /debian/hugs.postrm: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | 3 | set -e 4 | 5 | case "$1" in 6 | purge|remove|upgrade|failed-upgrade|abort-install|abort-upgrade|disappear) 7 | ;; 8 | 9 | *) 10 | echo "postrm called with unknown argument \`$1'" >&2 11 | exit 1 12 | 13 | esac 14 | 15 | #DEBHELPER# 16 | 17 | exit 0 18 | -------------------------------------------------------------------------------- /debian/hugs.preinst: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | 3 | set -e 4 | 5 | case "$1" in 6 | install|upgrade) 7 | ;; 8 | 9 | abort-upgrade) 10 | ;; 11 | 12 | *) 13 | echo "preinst called with unknown argument \`$1'" >&2 14 | exit 1 15 | ;; 16 | esac 17 | 18 | if test "$1" = "upgrade" && dpkg --compare-versions "$2" ge '1.4.199806-4' \ 19 | && dpkg --compare-versions "$2" lt '98.199905-1' 20 | then 21 | update-alternatives --remove hugs /usr/bin/hugs1.4 22 | update-alternatives --remove runhugs /usr/bin/runhugs1.4 23 | fi 24 | 25 | #DEBHELPER# 26 | 27 | exit 0 28 | -------------------------------------------------------------------------------- /debian/hugs.prerm: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | 3 | set -e 4 | 5 | case "$1" in 6 | remove|upgrade|deconfigure) 7 | ;; 8 | 9 | failed-upgrade) 10 | ;; 11 | 12 | *) 13 | echo "prerm called with unknown argument \`$1'" >&2 14 | exit 1 15 | ;; 16 | esac 17 | 18 | package=hugs 19 | 20 | # FHS transition 21 | if [ -L /usr/doc/$package ]; then 22 | rm -f /usr/doc/$package 23 | fi 24 | 25 | #DEBHELPER# 26 | 27 | exit 0 28 | -------------------------------------------------------------------------------- /debian/libhugs-base-bundled.README.Debian: -------------------------------------------------------------------------------- 1 | Version of the base library package bundled with Hugs. 2 | 3 | Documentation for this package can be found in the ghc6-doc package. 4 | -------------------------------------------------------------------------------- /debian/libhugs-base-bundled.install: -------------------------------------------------------------------------------- 1 | usr/lib/hugs/packages/base 2 | -------------------------------------------------------------------------------- /debian/libhugs-cabal-bundled.README.Debian: -------------------------------------------------------------------------------- 1 | Version of the Cabal library package bundled with Hugs. 2 | 3 | Documentation for this package can be found in the ghc6-doc package. 4 | -------------------------------------------------------------------------------- /debian/libhugs-cabal-bundled.examples: -------------------------------------------------------------------------------- 1 | debian/tmp/usr/lib/hugs/demos/Cabal 2 | -------------------------------------------------------------------------------- /debian/libhugs-cabal-bundled.install: -------------------------------------------------------------------------------- 1 | usr/lib/hugs/packages/Cabal 2 | -------------------------------------------------------------------------------- /debian/libhugs-haskell98-bundled.README.Debian: -------------------------------------------------------------------------------- 1 | Version of the haskell98 library package bundled with Hugs. 2 | 3 | Documentation for this package can be found in the ghc6-doc package. 4 | -------------------------------------------------------------------------------- /debian/libhugs-haskell98-bundled.install: -------------------------------------------------------------------------------- 1 | usr/lib/hugs/packages/haskell98 2 | -------------------------------------------------------------------------------- /demos/Demos.hs: -------------------------------------------------------------------------------- 1 | -- With import chasing enabled, this module can be used to 2 | -- load the majority of the demos into a Hugs session. 3 | 4 | module Demos where 5 | 6 | import AnsiDemo 7 | import Examples 8 | import Say 9 | import Calendar 10 | import CommaInt 11 | import Tree 12 | import Queens 13 | import Mersenne 14 | import Gofer 15 | import Stack 16 | import Lattice 17 | import EvalRed 18 | import ArrayEx 19 | import FastSort 20 | import Expr 21 | import Literate 22 | import Eliza 23 | import Minsrand 24 | import Ldfs 25 | import Matrix 26 | -------------------------------------------------------------------------------- /demos/prolog/stdlib: -------------------------------------------------------------------------------- 1 | This file contains a list of predicate definitions that will automatically 2 | be read into Mini Prolog at the beginning of a session. Each clause in this 3 | file must be entered on a single line and lines containing syntax errors are 4 | always ignored. This includes the first few lines of this file and provides 5 | a simple way to include comments. 6 | 7 | append(nil,X,X). 8 | append(cons(X,Y),Z,cons(X,W)):-append(Y,Z,W). 9 | 10 | equals(X,X). 11 | 12 | not(X):-X,!,false. 13 | not(X). 14 | 15 | or(X,Y):-X. 16 | or(X,Y):-Y. 17 | 18 | true. 19 | 20 | End of stdlib 21 | -------------------------------------------------------------------------------- /docs/.cvsignore: -------------------------------------------------------------------------------- 1 | Makefile 2 | hugs.1 3 | -------------------------------------------------------------------------------- /docs/machugs-notes.txt: -------------------------------------------------------------------------------- 1 | Hugs 98 for MacOS 2 | ================= 3 | 4 | The MacOS version of Hugs 98 can be configured by placing a file named 5 | "Hugs Preferences" in the same same folder as the Hugs 98 application. 6 | This file may contain an arbitrary sequence of options and filenames, 7 | as they would have appeared on a Unix shell command line. 8 | 9 | Remember to adjust the overall memory allocation to Hugs 98 in the 10 | Finder if the heap size assignment is increased extensively. 11 | 12 | The following interpreter commands are not yet implemented: 13 | 14 | :! (shell escape) 15 | :e (editor escape) 16 | 17 | Please reports bugs to hugs-bugs@haskell.org. 18 | 19 | -------------------------------------------------------------------------------- /docs/users_guide/.cvsignore: -------------------------------------------------------------------------------- 1 | users_guide 2 | users_guide.pdf 3 | users_guide.ps 4 | -------------------------------------------------------------------------------- /docs/users_guide/winhugs.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/docs/users_guide/winhugs.png -------------------------------------------------------------------------------- /docs/users_guide/xml2sgml.sed: -------------------------------------------------------------------------------- 1 | //d 3 | /^%/d 4 | /^:>:g 11 | -------------------------------------------------------------------------------- /docs/winhugs-notes.txt: -------------------------------------------------------------------------------- 1 | Hugs 98 for Windows 2 | =================== 3 | 4 | Winhugs saves its configuration in Windows registry under the key 5 | 6 | HKEY_CURRENT_USER\Software\Haskell\Hugs\Winhugs 7 | 8 | Most of the options can be configured through the options dialog. 9 | 10 | Documentation for Haskell and hugs can be accessed from the Help menu. 11 | 12 | Please report bugs to hugs-bugs@haskell.org. 13 | 14 | 15 | -------------------------------------------------------------------------------- /dotnet/doc/dotnet.html: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/dotnet/doc/dotnet.html -------------------------------------------------------------------------------- /dotnet/examples/basic/Env.hs: -------------------------------------------------------------------------------- 1 | -- 2 | -- Calling a static method 3 | -- 4 | module Env where 5 | 6 | import Dotnet 7 | 8 | foreign import dotnet 9 | "static System.Environment.GetEnvironmentVariable" 10 | getEnv :: String -> IO String 11 | 12 | test :: IO () 13 | test = do 14 | let var = "COMSPEC" 15 | s <- getEnv var 16 | putStrLn (var ++ " = " ++ s) 17 | -------------------------------------------------------------------------------- /dotnet/examples/basic/Mail.hs: -------------------------------------------------------------------------------- 1 | -- 2 | -- SmtpMail.Send example 3 | -- 4 | module Mail where 5 | 6 | import Dotnet 7 | 8 | foreign import dotnet 9 | "static System.Web.Mail.SmtpMail.Send" 10 | sendMail :: String -- fromAddr 11 | -> String -- toAddr 12 | -> String -- subject 13 | -> String -- body 14 | -> IO () 15 | 16 | test from toA = do 17 | sendMail from toA 18 | "Hugs98.net test" 19 | "Greetings from Hugs98.NET" 20 | -------------------------------------------------------------------------------- /dotnet/examples/callin/print.cs: -------------------------------------------------------------------------------- 1 | /* 2 | * Test harness for Hugs.NET - compile with 3 | * 4 | * csc /t:library print.cs /r:hugs.exe 5 | */ 6 | using System; 7 | using Hugs; 8 | 9 | public class Print { 10 | public static void p(Server o) { 11 | Console.WriteLine("In C#: Being passed a {0}", o); 12 | /* Looks odd; the entire Server interface is static */ 13 | Server.LookupName("CallIn", "greeting"); 14 | Server.doIO(); 15 | Console.WriteLine("Finished in C#-land;returning."); 16 | } 17 | } 18 | -------------------------------------------------------------------------------- /dotnet/examples/callin/print.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/dotnet/examples/callin/print.dll -------------------------------------------------------------------------------- /dotnet/examples/delegate/ui.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/dotnet/examples/delegate/ui.dll -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Byte.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Byte where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Object 5 | 6 | data Byte_ a 7 | type Byte a = Dotnet.System.Object.Object (Byte_ a) 8 | 9 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Char.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Char where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Object 5 | 6 | data Char_ a 7 | type Char a = Dotnet.System.Object.Object (Char_ a) 8 | 9 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Collections/IComparer.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Collections.IComparer where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Object 5 | 6 | data IComparer_ a 7 | type IComparer a = Dotnet.System.Object.Object (IComparer_ a) 8 | 9 | foreign import dotnet 10 | "method System.Collections.IComparer.Compare" 11 | compare :: Dotnet.System.Object.Object a0 -> Dotnet.System.Object.Object a1 -> IComparer obj -> IO (Int) 12 | 13 | 14 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Collections/IEnumerator.hs: -------------------------------------------------------------------------------- 1 | -- 2 | -- The IEnumerator interface 3 | -- 4 | module Dotnet.System.Collections.IEnumerator where 5 | 6 | import Dotnet 7 | import qualified Dotnet.System.Object 8 | 9 | data IEnumerator_ a 10 | type IEnumerator a = Object (IEnumerator_ a) 11 | 12 | -- ToDo: make this type-safe. 13 | 14 | current :: Dotnet.System.Object.Object a -> IO (Dotnet.System.Object.Object b) 15 | current = invoke "get_Current" () 16 | 17 | moveNext :: Dotnet.System.Object.Object a -> IO Bool 18 | moveNext = invoke "MoveNext" () 19 | 20 | reset :: Dotnet.System.Object.Object a -> IO () 21 | reset = invoke "Reset" () 22 | 23 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Console.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Console where 2 | 3 | import Dotnet.System.ObjectTy 4 | import Char 5 | 6 | data Console_ a 7 | type Console a = Object (Console_ a) 8 | 9 | foreign import dotnet 10 | "static Dotnet.System.Console.Read" 11 | readChar :: IO Int 12 | 13 | foreign import dotnet 14 | "static Dotnet.System.Console.ReadLine" 15 | readLine :: IO String 16 | 17 | foreign import dotnet 18 | "static Dotnet.System.Console.Write" 19 | writeChar :: Char -> IO () 20 | 21 | foreign import dotnet 22 | "static Dotnet.System.Console.WriteLine" 23 | writeLine :: String -> IO () 24 | 25 | 26 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/DateTime.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.DateTime where 2 | 3 | import Dotnet 4 | import Dotnet.System.ValueType 5 | 6 | data DateTime_ a 7 | type DateTime a = ValueType (DateTime_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Decimal.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Decimal where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.ValueType 5 | 6 | data Decimal_ a 7 | type Decimal a = Dotnet.System.ValueType.ValueType (Decimal_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Double.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Double where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.ValueType 5 | 6 | data Double_ a 7 | type Double a = Dotnet.System.ValueType.ValueType (Double_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Enum.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Enum where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.ValueType 5 | import qualified Dotnet.System.TypeTy 6 | 7 | data Enum_ a 8 | type Enum a = Dotnet.System.ValueType.ValueType (Enum_ a) 9 | 10 | foreign import dotnet 11 | "static Dotnet.System.Enum.Parse" 12 | parse :: Dotnet.System.TypeTy.Type a -> String -> IO (Enum b) 13 | 14 | 15 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/IAsyncResult.hs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/dotnet/lib/Dotnet/System/IAsyncResult.hs -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/IFormatProvider.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.IFormatProvider where 2 | 3 | import Dotnet 4 | import Dotnet.System.Object 5 | 6 | data IFormatProvider_ a 7 | type IFormatProvider a = Dotnet.System.Object.Object (IFormatProvider_ a) 8 | 9 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/IO/DirectoryInfo.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.IO.DirectoryInfo 2 | ( module Dotnet.System.IO.DirectoryInfo ) where 3 | 4 | import qualified Dotnet.System.Object 5 | 6 | data DirectoryInfo_ a 7 | type DirectoryInfo a = Dotnet.System.Object.Object (DirectoryInfo_ a) 8 | 9 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/IO/SeekOrigin.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.IO.SeekOrigin where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Enum 5 | 6 | data SeekOrigin_ a 7 | type SeekOrigin a = Dotnet.System.Enum.Enum (SeekOrigin_ a) 8 | 9 | 10 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Int32.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Int32 where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.ValueType 5 | 6 | data Int32_ a 7 | type Int32 a = Dotnet.System.ValueType.ValueType (Int32_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Int64.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Int64 where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.ValueType 5 | 6 | data Int64_ a 7 | type Int64 a = Dotnet.System.ValueType.ValueType (Int64_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/MarshalByRefObject.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.MarshalByRefObject where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Object 5 | 6 | data MarshalByRefObject_ a 7 | type MarshalByRefObject a = Dotnet.System.Object.Object (MarshalByRefObject_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/ObjectTy.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.ObjectTy (Dotnet.Object(..)) where 2 | 3 | import qualified Dotnet 4 | 5 | --data Object_ a 6 | --type Object a = Dotnet.Object (Object_ a) 7 | 8 | 9 | 10 | 11 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Single.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Single where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.ValueType 5 | 6 | data Single_ a 7 | type Single a = Dotnet.System.ValueType.ValueType (Single_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/StringTy.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.StringTy where 2 | 3 | import qualified Dotnet ( Object ) 4 | import Dotnet.System.ObjectTy 5 | 6 | data String_ a 7 | type StringTy a = Object (String_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Type.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Type 2 | ( module Dotnet.System.Type, 3 | module Dotnet.System.TypeTy 4 | ) where 5 | 6 | import Dotnet.System.TypeTy 7 | 8 | foreign import dotnet 9 | "static Dotnet.System.Type.GetType" 10 | getType :: String -> IO (Type ()) 11 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/TypeCode.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.TypeCode where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Enum 5 | 6 | data TypeCode_ a 7 | type TypeCode a = Dotnet.System.Enum.Enum (TypeCode_ a) 8 | 9 | 10 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/TypeTy.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.TypeTy where 2 | 3 | import qualified Dotnet ( Object ) 4 | import Dotnet.System.ObjectTy 5 | 6 | data Type_ a 7 | type Type a = Object (Type_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/UInt32.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.UInt32 where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.ValueType 5 | 6 | data UInt32_ a 7 | type UInt32 a = Dotnet.System.ValueType.ValueType (UInt32_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/UInt64.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.UInt64 where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.ValueType 5 | 6 | data UInt64_ a 7 | type UInt64 a = Dotnet.System.ValueType.ValueType (UInt64_ a) 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/UriHostNameType.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.UriHostNameType where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Enum 5 | 6 | data UriHostNameType_ a 7 | type UriHostNameType a = Dotnet.System.Enum.Enum (UriHostNameType_ a) 8 | 9 | 10 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/UriPartial.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.UriPartial where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Enum 5 | 6 | data UriPartial_ a 7 | type UriPartial a = Dotnet.System.Enum.Enum (UriPartial_ a) 8 | 9 | 10 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/ValueType.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.ValueType where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Object 5 | 6 | data ValueType_ a 7 | type ValueType a = Dotnet.System.Object.Object (ValueType_ a) 8 | 9 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Web/Mail/MailAttachment.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Web.Mail.MailAttachment where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Object 5 | import qualified Dotnet.System.Web.Mail.MailEncoding 6 | 7 | data MailAttachment_ a 8 | type MailAttachment a = Dotnet.System.Object.Object (MailAttachment_ a) 9 | 10 | foreign import dotnet 11 | "method System.Web.Mail.MailAttachment.get_Filename" 12 | get_Filename :: MailAttachment obj -> IO (String) 13 | 14 | foreign import dotnet 15 | "method System.Web.Mail.MailAttachment.get_Encoding" 16 | get_Encoding :: MailAttachment obj -> IO (Dotnet.System.Web.Mail.MailEncoding.MailEncoding a0) 17 | 18 | 19 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml where 2 | 3 | data XmlNodeType 4 | = Attribute 5 | | CDATA 6 | | Comment 7 | | Document 8 | | DocumentFragment 9 | | Element 10 | | EndElement 11 | | EndEntity 12 | | Entity 13 | | EntityReference 14 | | None 15 | | Notation 16 | | ProcessingInstruction 17 | | SignificantWhitespace 18 | | Text 19 | | Whitespace 20 | | XmlDeclaration 21 | deriving ( Eq, Enum ) 22 | 23 | data ReadState 24 | = Closed 25 | | EndOfFile 26 | | Error 27 | | Initial 28 | | Interactive 29 | deriving ( Eq, Enum ) 30 | 31 | data XmlSpace 32 | = DefaultSpace | NoSpace | PreserveSpace 33 | deriving ( Eq, Enum ) 34 | 35 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/WriteState.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.WriteState where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Enum 5 | 6 | data WriteState_ a 7 | type WriteState a = Dotnet.System.Enum.Enum (WriteState_ a) 8 | 9 | 10 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/XPath/IXPathNavigable.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.XPath.IXPathNavigable where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Xml.XPath.XPathNavigator 5 | import qualified Dotnet.System.Object 6 | 7 | data IXPathNavigable_ a 8 | type IXPathNavigable a = Dotnet.System.Object.Object (IXPathNavigable_ a) 9 | 10 | foreign import dotnet 11 | "method System.Xml.XPath.IXPathNavigable.CreateNavigator" 12 | createNavigator :: IXPathNavigable obj -> IO (Dotnet.System.Xml.XPath.XPathNavigator.XPathNavigator a0) 13 | 14 | 15 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/XPath/XPathDocument.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.XPath.XPathDocument where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Xml.XPath.XPathNavigator 5 | import qualified Dotnet.System.Object 6 | 7 | data XPathDocument_ a 8 | type XPathDocument a = Dotnet.System.Object.Object (XPathDocument_ a) 9 | 10 | foreign import dotnet 11 | "method System.Xml.XPath.XPathDocument.CreateNavigator" 12 | createNavigator :: XPathDocument obj -> IO (Dotnet.System.Xml.XPath.XPathNavigator.XPathNavigator a0) 13 | 14 | 15 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/XPath/XPathNavigatorTy.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.XPath.XPathNavigatorTy where 2 | 3 | import qualified Dotnet.System.Object 4 | 5 | data XPathNavigator_ a 6 | type XPathNavigator a = Dotnet.System.Object.Object (XPathNavigator_ a) 7 | 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/XmlAttributeCollectionTy.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.XmlAttributeCollectionTy where 2 | 3 | import Dotnet.System.Xml.XmlNamedNodeMap 4 | 5 | data XmlAttributeCollection_ a 6 | type XmlAttributeCollection a = Dotnet.System.Xml.XmlNamedNodeMap.XmlNamedNodeMap (XmlAttributeCollection_ a) 7 | 8 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/XmlAttributeTy.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.XmlAttributeTy where 2 | 3 | import Dotnet 4 | import Dotnet.System.Xml.XmlNodeTy 5 | 6 | data XmlAttribute_ a 7 | type XmlAttribute a = Dotnet.System.Xml.XmlNodeTy.XmlNode (XmlAttribute_ a) 8 | 9 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/XmlDocumentTy.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.XmlDocumentTy where 2 | 3 | import Dotnet 4 | import Dotnet.System.Xml.XmlNodeTy 5 | 6 | data XmlDocument_ a 7 | type XmlDocument a = Dotnet.System.Xml.XmlNodeTy.XmlNode (XmlDocument_ a) 8 | 9 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/XmlElementTy.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.XmlElementTy where 2 | 3 | import Dotnet 4 | import Dotnet.System.Xml.XmlLinkedNode 5 | 6 | data XmlElement_ a 7 | type XmlElement a = Dotnet.System.Xml.XmlLinkedNode.XmlLinkedNode (XmlElement_ a) 8 | 9 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/XmlNameTable.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.XmlNameTable where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Object 5 | 6 | data XmlNameTable_ a 7 | type XmlNameTable a = Dotnet.System.Object.Object (XmlNameTable_ a) 8 | 9 | add :: String -> XmlNameTable a -> IO String 10 | add str = invoke "Add" str 11 | 12 | get :: String -> XmlNameTable a -> IO String 13 | get str = invoke "Get" str 14 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/XmlNodeTy.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.XmlNodeTy where 2 | 3 | import qualified Dotnet.System.Object 4 | 5 | data XmlNode_ a 6 | type XmlNode a = Dotnet.System.Object.Object (XmlNode_ a) 7 | -------------------------------------------------------------------------------- /dotnet/lib/Dotnet/System/Xml/XmlSpace.hs: -------------------------------------------------------------------------------- 1 | module Dotnet.System.Xml.XmlSpace where 2 | 3 | import Dotnet 4 | import qualified Dotnet.System.Enum 5 | 6 | data XmlSpace_ a 7 | type XmlSpace a = Dotnet.System.Enum.Enum (XmlSpace_ a) 8 | 9 | 10 | -------------------------------------------------------------------------------- /dotnet/tools/Makefile: -------------------------------------------------------------------------------- 1 | # 2 | # Makefile for hswrapgen, basic tool for generating 3 | # Haskell .NET declarations from a .NET type. 4 | # 5 | 6 | CSC=csc 7 | CSC_OPTS= 8 | SRCS=App.cs AssemblyInfo.cs HsOutput.cs TypeInfo.cs 9 | 10 | all : hswrapgen.exe 11 | 12 | hswrapgen.exe : $(SRCS) 13 | $(CSC) $(CSC_OPTS) /out:hswrapgen.exe $(SRCS) 14 | -------------------------------------------------------------------------------- /dotnet/tools/README.txt: -------------------------------------------------------------------------------- 1 | To build: 2 | 3 | csc /out:hswrapgen.exe *.cs 4 | 5 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/Chan.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Chan 3 | {-# DEPRECATED "Chan has moved to Control.Concurrent.Chan" #-} 4 | (module Control.Concurrent.Chan) where 5 | import Control.Concurrent.Chan 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/Channel.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Channel 3 | {-# DEPRECATED "Channel has moved to Control.Concurrent.Chan" #-} 4 | (module Control.Concurrent.Chan) where 5 | import Control.Concurrent.Chan 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/ChannelVar.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module ChannelVar 3 | {-# DEPRECATED "MVar now provides the functionality of CVar" #-} 4 | (module CVar) where 5 | import CVar 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/Concurrent.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Concurrent 3 | {-# DEPRECATED "Concurrent has moved to Control.Concurrent" #-} 4 | (module Control.Concurrent) where 5 | import Control.Concurrent 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/MVar.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MVar 3 | {-# DEPRECATED "MVar has moved to Control.Concurrent.MVar" #-} 4 | (module Control.Concurrent.MVar) where 5 | import Control.Concurrent.MVar 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/Makefile: -------------------------------------------------------------------------------- 1 | # $Id: Makefile,v 1.11 2004/11/26 16:21:58 simonmar Exp $ 2 | 3 | TOP = .. 4 | include $(TOP)/mk/boilerplate.mk 5 | 6 | PACKAGE = concurrent 7 | VERSION = 1.0 8 | 9 | SRC_HC_OPTS += -fglasgow-exts -cpp 10 | 11 | include $(TOP)/mk/target.mk 12 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/Merge.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Merge 3 | {-# DEPRECATED "mergeIO and nmergeIO have moved to Control.Concurrent" #-} 4 | (module Control.Concurrent) where 5 | import Control.Concurrent (mergeIO, nmergeIO) 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/Parallel.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Parallel 3 | {-# DEPRECATED "Parallel has moved to Control.Parallel" #-} 4 | (module Control.Parallel) where 5 | import Control.Parallel 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/QSem.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module QSem 3 | {-# DEPRECATED "QSem has moved to Control.Concurrent.QSem" #-} 4 | (module Control.Concurrent.QSem) where 5 | import Control.Concurrent.QSem 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/QSemN.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module QSemN 3 | {-# DEPRECATED "QSemN has moved to Control.Concurrent.QSemN" #-} 4 | (module Control.Concurrent.QSemN) where 5 | import Control.Concurrent.QSemN 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/SampleVar.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module SampleVar 3 | {-# DEPRECATED "SampleVar has moved to Control.Concurrent.SampleVar" #-} 4 | (module Control.Concurrent.SampleVar) where 5 | import Control.Concurrent.SampleVar 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/concurrent/Semaphore.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Semaphore 3 | {-# DEPRECATED "See Control.Concurrent.QSem, Control.Concurrent.QSemN" #-} 4 | ( module Control.Concurrent.QSem, 5 | module Control.Concurrent.QSemN ) where 6 | import Control.Concurrent.QSem 7 | import Control.Concurrent.QSemN 8 | \end{code} 9 | -------------------------------------------------------------------------------- /fptools/hslibs/data/FiniteMap.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module FiniteMap 3 | {-# DEPRECATED "This module has moved to Data.FiniteMap" #-} 4 | (module Data.FiniteMap) where 5 | import Data.FiniteMap 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/data/Makefile: -------------------------------------------------------------------------------- 1 | # $Id: Makefile,v 1.11 2004/11/26 16:21:59 simonmar Exp $ 2 | 3 | TOP = .. 4 | include $(TOP)/mk/boilerplate.mk 5 | 6 | PACKAGE = data 7 | VERSION = 1.0 8 | PACKAGE_DEPS = lang util 9 | 10 | ALL_DIRS = edison edison/Assoc edison/Coll edison/Seq 11 | 12 | SRC_HC_OPTS += -cpp -fglasgow-exts 13 | SRC_HC_OPTS += -fallow-undecidable-instances -funbox-strict-fields 14 | 15 | include $(TOP)/mk/target.mk 16 | -------------------------------------------------------------------------------- /fptools/hslibs/data/Set.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Set 3 | {-# DEPRECATED "This module has moved to Data.Set" #-} 4 | (module Data.Set) where 5 | import Data.Set 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/data/doc/Edison.xml: -------------------------------------------------------------------------------- 1 | 2 | Edison 3 | Edison 4 | 5 | Edison is a complete package of data structures for Haskell. 6 | Documentation is available online. 8 | 9 | 10 | 11 | 17 | -------------------------------------------------------------------------------- /fptools/hslibs/data/doc/FiniteMap.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | The <literal>FiniteMap</literal> type 4 | 5 | 6 | This module has moved to Data.FiniteMap in the 7 | hierarchical libraries. 8 | 9 | -------------------------------------------------------------------------------- /fptools/hslibs/data/doc/Set.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | <literal>Set</literal> 4 | Setmodule 5 | 6 | This module has moved to Data.Set in the 7 | hierarchical libraries. 8 | 9 | 10 | 16 | -------------------------------------------------------------------------------- /fptools/hslibs/data/doc/data.xml: -------------------------------------------------------------------------------- 1 | The <literal>data</literal> package: datatypes 2 | 3 | &edison; 4 | &finitemap; 5 | &setlib; 6 | 7 | 8 | -------------------------------------------------------------------------------- /fptools/hslibs/data/edison/COPYRIGHT.short: -------------------------------------------------------------------------------- 1 | -- Copyright (c) 1998-1999 Chris Okasaki. 2 | -- See COPYRIGHT file for terms and conditions. 3 | 4 | -------------------------------------------------------------------------------- /fptools/hslibs/data/edison/Import/DUMMY: -------------------------------------------------------------------------------- 1 | This file is here only to force CVS to create the Import directory in 2 | the distribution. 3 | -------------------------------------------------------------------------------- /fptools/hslibs/data/edison/Lib/DUMMY: -------------------------------------------------------------------------------- 1 | This file is here only to force CVS to create the Lib directory in 2 | the distribution. 3 | -------------------------------------------------------------------------------- /fptools/hslibs/data/edison/doc/changes.html: -------------------------------------------------------------------------------- 1 | 2 | Edison Change Log 3 | 4 | 5 | 6 |

Recent Changes to Edison

7 |

(Haskell Version)

8 | 9 |

5/26/99 Fixed CVS problem that prevented the empty Lib and 10 | Import directories from appearing in the release. Added AssocList, 11 | an implementation of finite maps as association lists. 12 | 13 |

5/21/99 Initial release. 14 | 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /fptools/hslibs/data/edison/doc/users.hva: -------------------------------------------------------------------------------- 1 | \newcommand{\hrule}{\rule{1ex}{1ex}} 2 | \newcommand{\xspace}{ } 3 | \newcommand{\is}{:: } 4 | \newcommand{\spec}[1]{\item[\cd{#1}]\nl} 5 | \newcommand{\Longrightarrow}{--\>} 6 | -------------------------------------------------------------------------------- /fptools/hslibs/hssource/HsLexer.hs: -------------------------------------------------------------------------------- 1 | module HsLexer 2 | {-# DEPRECATED "This module has moved to Language.Haskell.Lexer" #-} 3 | (module Language.Haskell.Lexer) where 4 | import Language.Haskell.Lexer 5 | -------------------------------------------------------------------------------- /fptools/hslibs/hssource/HsParseMonad.hs: -------------------------------------------------------------------------------- 1 | module HsParseMonad 2 | {-# DEPRECATED "This module has moved to Language.Haskell.ParseMonad" #-} 3 | (module Language.Haskell.ParseMonad) where 4 | import Language.Haskell.ParseMonad 5 | -------------------------------------------------------------------------------- /fptools/hslibs/hssource/HsParseUtils.hs: -------------------------------------------------------------------------------- 1 | module HsParseUtils 2 | {-# DEPRECATED "This module has moved to Language.Haskell.ParseUtils" #-} 3 | (module Language.Haskell.ParseUtils) where 4 | import Language.Haskell.ParseUtils 5 | -------------------------------------------------------------------------------- /fptools/hslibs/hssource/HsParser.hs: -------------------------------------------------------------------------------- 1 | module HsParser 2 | {-# DEPRECATED "This module has moved to Language.Haskell.Parser" #-} 3 | (module Language.Haskell.Parser) where 4 | import Language.Haskell.Parser 5 | -------------------------------------------------------------------------------- /fptools/hslibs/hssource/HsPretty.hs: -------------------------------------------------------------------------------- 1 | module HsPretty 2 | {-# DEPRECATED "This module has moved to Language.Haskell.Pretty" #-} 3 | (module Language.Haskell.Pretty) where 4 | import Language.Haskell.Pretty 5 | -------------------------------------------------------------------------------- /fptools/hslibs/hssource/HsSyn.hs: -------------------------------------------------------------------------------- 1 | module HsSyn 2 | {-# DEPRECATED "This module has moved to Language.Haskell.Syntax" #-} 3 | (module Language.Haskell.Syntax) where 4 | import Language.Haskell.Syntax 5 | -------------------------------------------------------------------------------- /fptools/hslibs/hssource/Makefile: -------------------------------------------------------------------------------- 1 | # $Id: Makefile,v 1.13 2004/11/26 16:21:59 simonmar Exp $ 2 | 3 | TOP = .. 4 | include $(TOP)/mk/boilerplate.mk 5 | 6 | PACKAGE = hssource 7 | VERSION = 1.0 8 | PACKAGE_DEPS = haskell-src 9 | 10 | include $(TOP)/mk/target.mk 11 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/ArrayBase.hs: -------------------------------------------------------------------------------- 1 | module ArrayBase 2 | {-# DEPRECATED "This module has moved to Data.Array.Base" #-} 3 | (module Data.Array.Base) where 4 | import Data.Array.Base 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/Arrow.hs: -------------------------------------------------------------------------------- 1 | module Arrow 2 | {-# DEPRECATED "This library will go away soon; use Control.Arrow instead" #-} 3 | (module Control.Arrow) where 4 | import Control.Arrow 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/CTypesISO.hs: -------------------------------------------------------------------------------- 1 | module CTypesISO 2 | {-# DEPRECATED "This library will go away soon; use Foreign.C.Types instead" #-} 3 | (module Foreign.C.Types) where 4 | import Foreign.C.Types 5 | #ifndef __NHC__ 6 | ( CPtrdiff, CSize, CWchar, CSigAtomic , CClock, CTime ) 7 | #else 8 | -- For nhc98, these are exported non-abstractly to work around 9 | -- an interface-file problem. 10 | ( CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..), CClock(..), CTime(..) 11 | #endif 12 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/DiffArray.hs: -------------------------------------------------------------------------------- 1 | module DiffArray 2 | {-# DEPRECATED "This module has moved to Data.Array.Diff" #-} 3 | (module Data.Array.Diff) where 4 | import Data.Array.Diff 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/DirectoryExts.hs: -------------------------------------------------------------------------------- 1 | module DirectoryExts 2 | {-# DEPRECATED "Use System.Directory instead" #-} 3 | ( copyFile -- :: FilePath -> FilePath -> IO () 4 | ) where 5 | 6 | import System.Directory 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/Dynamic.hs: -------------------------------------------------------------------------------- 1 | module Dynamic 2 | {-# DEPRECATED "This library has moved to Data.Dynamic" #-} 3 | (module Data.Dynamic) where 4 | import Data.Dynamic 5 | 6 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/Exception.hs: -------------------------------------------------------------------------------- 1 | module Exception 2 | {-# DEPRECATED "This library has moved to Control.Exception" #-} 3 | (module Control.Exception) where 4 | import Control.Exception 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/Generics.hs: -------------------------------------------------------------------------------- 1 | module Generics 2 | {-# DEPRECATED "This library has moved to Data.Generics" #-} 3 | (module Data.Generics) where 4 | import Data.Generics 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/IArray.hs: -------------------------------------------------------------------------------- 1 | module IArray 2 | {-# DEPRECATED "This module has moved to Data.Array.IArray" #-} 3 | (module Data.Array.IArray) where 4 | import Data.Array.IArray 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/IORef.hs: -------------------------------------------------------------------------------- 1 | module IORef 2 | {-# DEPRECATED "This module has moved to Data.IORef" #-} 3 | (module Data.IORef) where 4 | import Data.IORef 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/Makefile: -------------------------------------------------------------------------------- 1 | # -----------------------------------------------------------------------------= 2 | # $Id: Makefile,v 1.22 2004/11/26 16:22:00 simonmar Exp $ 3 | # 4 | # (c) The University of Glasgow 2002 5 | # 6 | 7 | TOP=.. 8 | include $(TOP)/mk/boilerplate.mk 9 | 10 | PACKAGE = lang 11 | VERSION = 1.0 12 | PACKAGE_DEPS = mtl 13 | SUBDIRS = cbits 14 | ALL_DIRS = monads 15 | 16 | SRC_HC_OPTS += -cpp -fglasgow-exts -Icbits 17 | 18 | include $(TOP)/mk/target.mk 19 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/NativeInfo.hs: -------------------------------------------------------------------------------- 1 | module NativeInfo 2 | {-# DEPRECATED "This module has moved to System.Info" #-} 3 | (module System.Info) where 4 | import System.Info 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/PackedString.lhs: -------------------------------------------------------------------------------- 1 | % 2 | % (c) The GRASP/AQUA Project, Glasgow University, 1993-1998 3 | % 4 | \section{Packed strings} 5 | 6 | This sits on top of the sequencing/arrays world, notably @ByteArray#@s. 7 | 8 | Glorious hacking (all the hard work) by Bryan O'Sullivan. 9 | \begin{code} 10 | module PackedString 11 | {-# DEPRECATED "This module has moved to Data.PackedString" #-} 12 | ( module Data.PackedString ) where 13 | import Data.PackedString 14 | \end{code} 15 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/ST.hs: -------------------------------------------------------------------------------- 1 | module ST 2 | {-# DEPRECATED "This functionality is now available from Control.Monad.ST, Data.STRef, and Data.Array.ST" #-} 3 | ( 4 | module Control.Monad.ST, 5 | module Data.STRef, 6 | STArray, 7 | newSTArray, 8 | readSTArray, 9 | writeSTArray, 10 | boundsSTArray, 11 | thawSTArray, 12 | freezeSTArray, 13 | unsafeFreezeSTArray, 14 | unsafeThawSTArray, 15 | ) where 16 | 17 | import Control.Monad.ST 18 | import Data.Array.ST 19 | import Data.STRef 20 | import GHC.Arr 21 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/ShowFunctions.hs: -------------------------------------------------------------------------------- 1 | module ShowFunctions 2 | {-# DEPRECATED "See Text.Show.Functions" #-} 3 | (module Text.Show.Functions) where 4 | import Text.Show.Functions 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/Stable.hs: -------------------------------------------------------------------------------- 1 | module Stable 2 | {-# DEPRECATED "This functionality is now available from Foreign.StablePtr and System.Mem.StableName" #-} 3 | (module Foreign.StablePtr, module System.Mem.StableName) where 4 | import Foreign.StablePtr 5 | import System.Mem.StableName 6 | 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/StableName.hs: -------------------------------------------------------------------------------- 1 | module StableName 2 | {-# DEPRECATED "This module has moved to System.Mem.StableName" #-} 3 | (module System.Mem.StableName) where 4 | import System.Mem.StableName 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/StorableArray.hs: -------------------------------------------------------------------------------- 1 | module StorableArray 2 | {-# DEPRECATED "This module has moved to Data.Array.Storable" #-} 3 | (module Data.Array.Storable) where 4 | import Data.Array.Storable 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/Weak.hs: -------------------------------------------------------------------------------- 1 | module Weak 2 | {-# DEPRECATED "This module has moved to System.Mem.Weak" #-} 3 | (module System.Mem.Weak) where 4 | import System.Mem.Weak 5 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/cbits/Makefile: -------------------------------------------------------------------------------- 1 | # $Id: Makefile,v 1.14 2004/11/12 14:05:57 simonmar Exp $ 2 | 3 | TOP = ../.. 4 | include $(TOP)/mk/boilerplate.mk 5 | 6 | SRC_CC_OPTS += -Wall -DCOMPILING_STDLIB 7 | SRC_CC_OPTS += -I$(GHC_INCLUDE_DIR) -I$(GHC_RUNTIME_DIR) \ 8 | -I$(FPTOOLS_TOP)/libraries/base/include 9 | 10 | LIBRARY = libHSlang_cbits.a 11 | LIBOBJS = $(C_OBJS) 12 | 13 | includedir = $(libdir)/include 14 | INSTALL_INCLUDES = HsLang.h 15 | 16 | include $(TOP)/mk/target.mk 17 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/cbits/PackedString.c: -------------------------------------------------------------------------------- 1 | /* ----------------------------------------------------------------------------- 2 | * $Id: PackedString.c,v 1.3 2002/12/11 16:39:00 simonmar Exp $ 3 | * 4 | * PackedString C bits 5 | * 6 | * (c) The GHC Team 1998 7 | * -------------------------------------------------------------------------- */ 8 | 9 | #include "HsFFI.h" 10 | #include "HsLang.h" 11 | 12 | HsInt 13 | byteArrayHasNUL__ (char *ba, HsInt len) 14 | { 15 | HsInt i; 16 | 17 | for (i = 0; i < len; i++) { 18 | if (*(ba + i) == '\0') { 19 | return(1); /* true */ 20 | } 21 | } 22 | 23 | return(0); /* false */ 24 | } 25 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/cbits/envHelper.c: -------------------------------------------------------------------------------- 1 | /* 2 | * (c) The University of Glasgow 2002 3 | * 4 | * environment operations 5 | */ 6 | 7 | #include "HsBase.h" 8 | #include "HsLang.h" 9 | #include 10 | 11 | /* ToDo: write a feature test that doesn't assume 'environ' to 12 | be in scope at link-time. */ 13 | extern char** environ; 14 | 15 | HsAddr 16 | getEnvBlock() 17 | { 18 | return (HsAddr)environ; 19 | } 20 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/Bits.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | <literal>Bits</literal> 4 | Bits 5 | 6 | This module has moved to Data.Bits in the 7 | hierarchical libraries. 8 | 9 | 10 | 11 | 17 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/CError.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>CError</literal> 3 | CError 4 | 5 | This module has moved to Foreign.C.Error in the 6 | hierarchical libraries. 7 | 8 | 9 | 15 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/CForeign.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>CForeign</literal><indexterm><primary>CForeign</primary></indexterm> 3 | 4 | 5 | This module has moved to Foreign.C in the 6 | hierarchical libraries. 7 | 8 | 9 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/CString.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>CString</literal> 3 | CString 4 | 5 | This module has moved to Foreign.C.String in the 6 | hierarchical libraries. 7 | 8 | 9 | 15 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/CTypes.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>CTypes</literal><indexterm><primary>CTypes</primary></indexterm> 3 | 4 | 5 | This module has moved to Foreign.C.Types in the 6 | hierarchical libraries. 7 | 8 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/CTypesISO.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>CTypesISO</literal><indexterm><primary>CTypesISO</primary></indexterm> 3 | 4 | 5 | This module has been merged into Foreign.C.Types in the 6 | hierarchical libraries. 7 | 8 | 9 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/DiffArray.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>DiffArray</literal> 3 | DiffArraymodule 4 | 5 | This module has moved to Data.Array.Diff in the 6 | hierarchical libraries. 7 | 8 | 9 | 15 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/Dynamic.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | <literal>Dynamic</literal><indexterm><primary>Dynamic</primary></indexterm> 4 | 5 | This module has moved to Data.Dynamic in the 6 | hierarchical libraries. 7 | 8 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/Exception.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | <literal>Exception</literal><indexterm><primary>Exception</primary></indexterm> 4 | 5 | This module has moved to Control.Exception in the 6 | hierarchical libraries. 7 | 8 | 9 | 15 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/Foreign.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | <literal>Foreign</literal><indexterm><primary>Foreign</primary></indexterm> 4 | 5 | 6 | This module has moved to Foreign in the 7 | hierarchical libraries. 8 | 9 | 10 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/ForeignPtr.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>ForeignPtr</literal> 3 | ForeignPtrmodule 4 | 5 | This module has moved to Foreign.ForeignPtr in the 6 | hierarchical libraries. 7 | 8 | 9 | 10 | 16 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/GlaExts.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>GlaExts</literal> 3 | 4 | This module has moved to GHC.Exts in the 5 | hierarchical libraries. 6 | 7 | 8 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/IArray.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>IArray</literal> 3 | IArraymodule 4 | 5 | This module has moved to Data.Array.IArray in the 6 | hierarchical libraries. 7 | 8 | 9 | 10 | 16 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/Int.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | <literal>Int</literal> 4 | <indexterm><primary>Int</primary><secondary>module</secondary></indexterm> 5 | 6 | 7 | This module has moved to Data.Int in the 8 | hierarchical libraries. 9 | 10 | 11 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/LazyST.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | <literal>LazyST</literal><indexterm><primary>LazyST</primary></indexterm> 4 | 5 | The contents of this module can now be found in 6 | Control.Monad.ST.Lazy, and 7 | Data.STRef.Lazy. 8 | 9 | 10 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/MArray.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>MArray</literal> 3 | MArraymodule 4 | 5 | This module has moved to Data.Array.MArray in the 6 | hierarchical libraries. 7 | 8 | 9 | 10 | 16 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/MarshalAlloc.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>MarshalAlloc</literal> 3 | MarshalAlloc 4 | 5 | This module has moved to 6 | Foreign.Marshal.Alloc in the hierarchical 7 | libraries. 8 | 9 | 10 | 16 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/MarshalArray.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>MarshalArray</literal> 3 | MarshalArray 4 | 5 | This module has moved to Foreign.Marshal.Array in the 6 | hierarchical libraries. 7 | 8 | 9 | 12 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/MarshalError.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>MarshalError</literal> 3 | MarshalError 4 | 5 | This module has moved to Foreign.Marshal.Error in the 6 | hierarchical libraries. 7 | 8 | 9 | 10 | 16 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/MarshalUtils.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>MarshalUtils</literal> 3 | MarshalUtils 4 | 5 | This module has moved to Foreign.Marshal.Utils in the 6 | hierarchical libraries. 7 | 8 | 9 | 10 | 16 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/PackedString.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>PackedString</literal> 3 | 4 | This module has moved to Data.PackedString in the 5 | hierarchical libraries. 6 | 7 | 8 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/Ptr.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>Ptr</literal> 3 | Ptr 4 | 5 | This module has moved to Foreign.Ptr in the 6 | hierarchical libraries. 7 | 8 | 9 | 15 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/ST.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>ST</literal><indexterm><primary>ST</primary></indexterm> 3 | 4 | The contents of this module can now be found in 5 | Control.Monad.ST, 7 | Data.STRef, 8 | and Data.Array.ST in the hierarchical 9 | libraries. 10 | 11 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/ShowFunctions.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>ShowFunctions</literal> 3 | <indexterm> 4 | <primary>ShowFunctions</primary> 5 | <secondary>library</secondary> 6 | </indexterm> 7 | 8 | 9 | This module has moved to Text.Show.Functions in the 10 | hierarchical libraries. 11 | 12 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/StableName.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | <literal>StableName</literal><indexterm><primary>StableName</primary></indexterm> 4 | 5 | 6 | This module has moved to System.Mem.StableName in the 7 | hierarchical libraries. 8 | 9 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/StablePtr.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | <literal>StablePtr</literal><indexterm><primary>Stable Pointers</primary></indexterm> 4 | 5 | 6 | This module has moved to Foreign.StablePtr in the 7 | hierarchical libraries. 8 | 9 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/Storable.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>Storable</literal> 3 | Storable 4 | 5 | This module has moved to Foreign.Storable in the 6 | hierarchical libraries. 7 | 8 | 9 | 15 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/StorableArray.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>StorableArray</literal> 3 | StorableArraymodule 4 | 5 | This module has moved to Data.Array.Storable in the 6 | hierarchical libraries. 7 | 8 | 9 | 15 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/Weak.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | <literal>Weak</literal><indexterm><primary>Weak</primary></indexterm> 4 | 5 | 6 | This module has moved to System.Mem.Weak in the 7 | hierarchical libraries. 8 | 9 | 15 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/Word.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>Word</literal><indexterm><primary>Word</primary></indexterm> 3 | 4 | 5 | This module has moved to Data.Word in the 6 | hierarchical libraries. 7 | 8 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/doc/lang.xml: -------------------------------------------------------------------------------- 1 | The <literal>lang</literal> package: language support 2 | 3 | &bits; 4 | &cerror; 5 | &cforeign; 6 | &ctypes; 7 | &ctypesiso; 8 | &cstring; 9 | &diffarray; 10 | &directoryexts; 11 | &dynamic; 12 | &exception; 13 | &foreign; 14 | &foreignptr; 15 | &glaexts; 16 | &iarray; 17 | &xint; 18 | &ioexts; 19 | &lazyst; 20 | &marray; 21 | &marshalalloc; 22 | &marshalarray; 23 | &marshalerror; 24 | &marshalutils; 25 | &numexts; 26 | &packed; 27 | &ptr; 28 | &showfunctions; 29 | &st; 30 | &stablename; 31 | &stableptr; 32 | &storable; 33 | &storablearray; 34 | &systemexts; 35 | &weak; 36 | &word; 37 | 38 | 39 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadCont.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadCont 3 | {-# DEPRECATED "This module has moved to Control.Monad.Cont" #-} 4 | (module Control.Monad.Cont) where 5 | import Control.Monad.Cont 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadEither.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadEither 3 | {-# DEPRECATED "This module has moved to Control.Monad.Error" #-} 4 | (module Control.Monad.Error) where 5 | import Control.Monad.Error 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadError.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadError 3 | {-# DEPRECATED "This module has moved to Control.Monad.Error" #-} 4 | (module Control.Monad.Error) where 5 | import Control.Monad.Error 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadFix.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadFix 3 | {-# DEPRECATED "This module has moved to Control.Monad.Fix" #-} 4 | (module Control.Monad.Fix) where 5 | import Control.Monad.Fix 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadIdentity.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadIdentity 3 | {-# DEPRECATED "This module has moved to Control.Monad.Identity" #-} 4 | (module Control.Monad.Identity) where 5 | import Control.Monad.Identity 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadList.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadList 3 | {-# DEPRECATED "This module has moved to Control.Monad.List" #-} 4 | (module Control.Monad.List) where 5 | import Control.Monad.List 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadRWS.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadRWS 3 | {-# DEPRECATED "This module has moved to Control.Monad.RWS" #-} 4 | (module Control.Monad.RWS) where 5 | import Control.Monad.RWS 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadReader.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadReader 3 | {-# DEPRECATED "This module has moved to Control.Monad.Reader" #-} 4 | (module Control.Monad.Reader) where 5 | import Control.Monad.Reader 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadState.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadState 3 | {-# DEPRECATED "This module has moved to Control.Monad.State" #-} 4 | (module Control.Monad.State) where 5 | import Control.Monad.State 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadTrans.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadTrans 3 | {-# DEPRECATED "This module has moved to Control.Monad.Trans" #-} 4 | (module Control.Monad.Trans) where 5 | import Control.Monad.Trans 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/MonadWriter.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module MonadWriter 3 | {-# DEPRECATED "This module has moved to Control.Monad.Writer" #-} 4 | (module Control.Monad.Writer) where 5 | import Control.Monad.Writer 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/lang/monads/Monoid.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Monoid 3 | {-# DEPRECATED "This module has moved to Data.Monoid" #-} 4 | (module Data.Monoid) where 5 | import Data.Monoid 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/net/BSD.hs: -------------------------------------------------------------------------------- 1 | module BSD 2 | {-# DEPRECATED "This module has moved to Network.BSD" #-} 3 | (module Network.BSD) where 4 | import Network.BSD 5 | -------------------------------------------------------------------------------- /fptools/hslibs/net/CGI.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module CGI 3 | {-# DEPRECATED "This module has moved to Network.CGI" #-} 4 | (module Network.CGI) where 5 | import Network.CGI 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/net/Makefile: -------------------------------------------------------------------------------- 1 | # $Id: Makefile,v 1.27 2004/11/26 16:22:01 simonmar Exp $ 2 | 3 | TOP = .. 4 | include $(TOP)/mk/boilerplate.mk 5 | 6 | PACKAGE = net 7 | VERSION = 1.0 8 | PACKAGE_DEPS = network 9 | 10 | include $(TOP)/mk/target.mk 11 | -------------------------------------------------------------------------------- /fptools/hslibs/net/Socket.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Socket 3 | {-# DEPRECATED "This module has moved to Network.Socket" #-} 4 | (module Network) where 5 | import Network 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/net/SocketPrim.hs: -------------------------------------------------------------------------------- 1 | module SocketPrim 2 | {-# DEPRECATED "This module has moved to Network.Socket" #-} 3 | (module Network.Socket) where 4 | import Network.Socket 5 | -------------------------------------------------------------------------------- /fptools/hslibs/net/URI.hs: -------------------------------------------------------------------------------- 1 | module URI 2 | {-# DEPRECATED "This module has moved to Network.URI" #-} 3 | (module Network.URI) where 4 | import Network.URI 5 | -------------------------------------------------------------------------------- /fptools/hslibs/net/doc/BSD.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>BSD</literal>: System database info 3 | <indexterm><primary>BSD</primary></indexterm> 4 | 5 | 6 | This module has moved to Network.BSD 7 | (package network) in the hierarchical 8 | libraries. 9 | 10 | -------------------------------------------------------------------------------- /fptools/hslibs/net/doc/Socket.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>Socket</literal>: The high-level networking interface 3 | Socket 4 | 5 | This module has moved to Network 6 | (package network) in the hierarchical 7 | libraries. 8 | 9 | 10 | 11 | 16 | -------------------------------------------------------------------------------- /fptools/hslibs/net/doc/SocketPrim.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>SocketPrim</literal>: The low-level socket binding 3 | <indexterm><primary>SocketPrim</primary></indexterm> 4 | 5 | 6 | This module has moved to Network.Socket 7 | (package network) in the hierarchical 8 | libraries. 9 | 10 | -------------------------------------------------------------------------------- /fptools/hslibs/net/doc/URI.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>URI</literal> 3 | 4 | 5 | URI 6 | library 7 | 8 | 9 | This module has moved to Network.URI 10 | (package network) in the hierarchical 11 | libraries. 12 | 13 | 14 | -------------------------------------------------------------------------------- /fptools/hslibs/net/doc/net.xml: -------------------------------------------------------------------------------- 1 | The <literal>net</literal> package: networking support 2 | 3 | 4 | (Darren Moffat supplied the initial version of this library.) 5 | 6 | 7 | &bsd; 8 | &socket; 9 | &socketprim; 10 | &uri; 11 | 12 | 13 | -------------------------------------------------------------------------------- /fptools/hslibs/posix/.cvsignore: -------------------------------------------------------------------------------- 1 | DLPrim.hs 2 | DLPrim_hsc.c 3 | DLPrim_hsc.h 4 | -------------------------------------------------------------------------------- /fptools/hslibs/posix/Makefile: -------------------------------------------------------------------------------- 1 | # $Id: Makefile,v 1.34 2005/09/20 16:29:09 ross Exp $ 2 | 3 | TOP=.. 4 | include $(TOP)/mk/boilerplate.mk 5 | 6 | PACKAGE = posix 7 | VERSION = 1.0 8 | PACKAGE_DEPS = lang unix 9 | 10 | SUBDIRS = cbits 11 | 12 | SRC_HC_OPTS += -cpp -fglasgow-exts -fvia-C -Icbits 13 | 14 | SRC_CC_OPTS += -I../../ghc/includes 15 | 16 | include $(TOP)/mk/target.mk 17 | -------------------------------------------------------------------------------- /fptools/hslibs/posix/PosixDB.lhs: -------------------------------------------------------------------------------- 1 | % 2 | % (c) The GRASP/AQUA Project, Glasgow University, 1995-1997 3 | % 4 | \section[PosixDB]{Haskell 1.4 POSIX System Databases} 5 | 6 | \begin{code} 7 | module PosixDB 8 | {-# DEPRECATED "This module has been superseded by System.Posix.User" #-} 9 | ( 10 | GroupEntry(..), 11 | UserEntry(..), 12 | 13 | getUserEntryForID, -- :: UserID -> IO UserEntry 14 | getUserEntryForName, -- :: String -> IO UserEntry 15 | 16 | getGroupEntryForID, -- :: GroupID -> IO GroupEntry 17 | getGroupEntryForName -- :: String -> IO GroupEntry 18 | 19 | ) where 20 | 21 | import System.Posix 22 | \end{code} 23 | -------------------------------------------------------------------------------- /fptools/hslibs/posix/cbits/Makefile: -------------------------------------------------------------------------------- 1 | # $Id: Makefile,v 1.18 2005/08/10 07:57:33 simonmar Exp $ 2 | 3 | TOP = ../.. 4 | include $(TOP)/mk/boilerplate.mk 5 | 6 | SRC_CC_OPTS += -Wall 7 | SRC_CC_OPTS += -I$(GHC_INCLUDE_DIR) -I$(GHC_RUNTIME_DIR) 8 | 9 | LIBRARY = libHSposix_cbits.a 10 | LIBOBJS = $(C_OBJS) 11 | 12 | includedir = $(libdir)/include 13 | INSTALL_INCLUDES = HsPosix.h 14 | 15 | include $(TOP)/mk/target.mk 16 | -------------------------------------------------------------------------------- /fptools/hslibs/text/Makefile: -------------------------------------------------------------------------------- 1 | # $Id: Makefile,v 1.23 2004/11/26 16:22:02 simonmar Exp $ 2 | 3 | TOP = .. 4 | include $(TOP)/mk/boilerplate.mk 5 | 6 | PACKAGE = text 7 | VERSION = 1.0 8 | PACKAGE_DEPS = lang data 9 | 10 | ALL_DIRS = html parsec 11 | 12 | SRC_HC_OPTS += -cpp -fvia-C 13 | 14 | parsec/ParsecToken_HC_OPTS += -fglasgow-exts 15 | parsec/ParsecPerm_HC_OPTS += -fglasgow-exts 16 | 17 | include $(TOP)/mk/target.mk 18 | -------------------------------------------------------------------------------- /fptools/hslibs/text/Pretty.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Pretty 3 | {-# DEPRECATED "This module has moved to Text.PrettyPrint.HughesPJ" #-} 4 | (module Text.PrettyPrint.HughesPJ) where 5 | import Text.PrettyPrint.HughesPJ 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/text/doc/MatchPS.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>MatchPS</literal>: The Perl-like matching interface 3 | <indexterm><primary>MatchPS library (misc syslib)</primary></indexterm> 4 | 5 | 6 | The MatchPS library is no longer available, 7 | please use Text.Regex 9 | instead. 10 | 11 | 12 | -------------------------------------------------------------------------------- /fptools/hslibs/text/doc/Pretty.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>Pretty</literal>: Pretty printing combimators 3 | <indexterm><primary>Pretty</primary></indexterm> 4 | 5 | 6 | The Pretty library has been moved to the 7 | hierarchical libraries; it can be found in 8 | Text.PrettyPrint.HughesPJ in the 9 | base package. 10 | 11 | 12 | -------------------------------------------------------------------------------- /fptools/hslibs/text/doc/Regex.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>Regex</literal>: The low-level regex matching interface 3 | 4 | 5 | The Regex library has been removed. Please 6 | use Text.Regex 8 | in the base package. 9 | 10 | -------------------------------------------------------------------------------- /fptools/hslibs/text/doc/RegexString.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>RegexString</literal>: Regex matching made simple 3 | 4 | The RegexString library has been moved to 5 | the hierarchical libraries; it can be found in 6 | Text.Regex in the base 7 | package. 8 | 9 | 10 | 11 | 17 | -------------------------------------------------------------------------------- /fptools/hslibs/text/doc/text.xml: -------------------------------------------------------------------------------- 1 | The <literal>text</literal> package: text manipulation 2 | 3 | &matchps; 4 | &parsec; 5 | &pretty; 6 | ®ex; 7 | ®exstring; 8 | 9 | 10 | -------------------------------------------------------------------------------- /fptools/hslibs/text/html/Html.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Html 3 | {-# DEPRECATED "This module has moved to Text.Html" #-} 4 | (module Text.Html) where 5 | import Text.Html 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/text/html/HtmlBlockTable.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module HtmlBlockTable 3 | {-# DEPRECATED "This module has moved to Text.Html.BlockTable" #-} 4 | (module Text.Html.BlockTable) where 5 | import Text.Html.BlockTable 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/text/html/doc/lambda.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/fptools/hslibs/text/html/doc/lambda.gif -------------------------------------------------------------------------------- /fptools/hslibs/text/parsec/Parsec.hs: -------------------------------------------------------------------------------- 1 | module Parsec 2 | {-# DEPRECATED "This module has moved to Text.ParserCombinators.Parsec" #-} 3 | (module Text.ParserCombinators.Parsec) where 4 | import Text.ParserCombinators.Parsec 5 | -------------------------------------------------------------------------------- /fptools/hslibs/text/parsec/ParsecChar.hs: -------------------------------------------------------------------------------- 1 | module ParsecChar 2 | {-# DEPRECATED "This module has moved to Text.ParserCombinators.Parsec.Char" #-} 3 | (module Text.ParserCombinators.Parsec.Char) where 4 | import Text.ParserCombinators.Parsec.Char 5 | -------------------------------------------------------------------------------- /fptools/hslibs/text/parsec/ParsecCombinator.hs: -------------------------------------------------------------------------------- 1 | module ParsecCombinator 2 | {-# DEPRECATED "This module has moved to Text.ParserCombinators.Parsec.Combinator" #-} 3 | (module Text.ParserCombinators.Parsec.Combinator) where 4 | import Text.ParserCombinators.Parsec.Combinator 5 | -------------------------------------------------------------------------------- /fptools/hslibs/text/parsec/ParsecError.hs: -------------------------------------------------------------------------------- 1 | module ParsecError 2 | {-# DEPRECATED "This module has moved to Text.ParserCombinators.Parsec.Error" #-} 3 | (module Text.ParserCombinators.Parsec.Error) where 4 | import Text.ParserCombinators.Parsec.Error 5 | -------------------------------------------------------------------------------- /fptools/hslibs/text/parsec/ParsecExpr.hs: -------------------------------------------------------------------------------- 1 | module ParsecExpr 2 | {-# DEPRECATED "This module has moved to Text.ParserCombinators.Parsec.Expr" #-} 3 | (module Text.ParserCombinators.Parsec.Expr) where 4 | import Text.ParserCombinators.Parsec.Expr 5 | -------------------------------------------------------------------------------- /fptools/hslibs/text/parsec/ParsecLanguage.hs: -------------------------------------------------------------------------------- 1 | module ParsecLanguage 2 | {-# DEPRECATED "This module has moved to Text.ParserCombinators.Parsec.Language" #-} 3 | (module Text.ParserCombinators.Parsec.Language) where 4 | import Text.ParserCombinators.Parsec.Language 5 | -------------------------------------------------------------------------------- /fptools/hslibs/text/parsec/ParsecPerm.hs: -------------------------------------------------------------------------------- 1 | module ParsecPerm 2 | {-# DEPRECATED "This module has moved to Text.ParserCombinators.Parsec.Perm" #-} 3 | (module Text.ParserCombinators.Parsec.Perm) where 4 | import Text.ParserCombinators.Parsec.Perm 5 | -------------------------------------------------------------------------------- /fptools/hslibs/text/parsec/ParsecPos.hs: -------------------------------------------------------------------------------- 1 | module ParsecPos 2 | {-# DEPRECATED "This module has moved to Text.ParserCombinators.Parsec.Pos" #-} 3 | (module Text.ParserCombinators.Parsec.Pos) where 4 | import Text.ParserCombinators.Parsec.Pos 5 | -------------------------------------------------------------------------------- /fptools/hslibs/text/parsec/ParsecPrim.hs: -------------------------------------------------------------------------------- 1 | module ParsecPrim 2 | {-# DEPRECATED "This module has moved to Text.ParserCombinators.Parsec.Prim" #-} 3 | (module Text.ParserCombinators.Parsec.Prim) where 4 | import Text.ParserCombinators.Parsec.Prim 5 | -------------------------------------------------------------------------------- /fptools/hslibs/text/parsec/ParsecToken.hs: -------------------------------------------------------------------------------- 1 | module ParsecToken 2 | {-# DEPRECATED "This module has moved to Text.ParserCombinators.Parsec.Token" #-} 3 | (module Text.ParserCombinators.Parsec.Token) where 4 | import Text.ParserCombinators.Parsec.Token 5 | -------------------------------------------------------------------------------- /fptools/hslibs/util/GetOpt.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module GetOpt 3 | {-# DEPRECATED "This module has moved to System.Console.GetOpt" #-} 4 | (module System.Console.GetOpt) where 5 | import System.Console.GetOpt 6 | \end{code} 7 | -------------------------------------------------------------------------------- /fptools/hslibs/util/Readline.hs: -------------------------------------------------------------------------------- 1 | module Readline 2 | {-# DEPRECATED "This module has moved to System.Console.Readline" #-} 3 | ( module System.Console.Readline ) where 4 | import System.Console.Readline 5 | -------------------------------------------------------------------------------- /fptools/hslibs/util/Unique.lhs: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | module Unique 3 | {-# DEPRECATED "This module has moved to Data.Unique" #-} 4 | (module Data.Unique) where 5 | import Data.Unique 6 | \end{code} 7 | 8 | -------------------------------------------------------------------------------- /fptools/hslibs/util/check/QuickCheck.hs: -------------------------------------------------------------------------------- 1 | module QuickCheck 2 | {-# DEPRECATED "This module has moved to Debug.QuickCheck" #-} 3 | (module Debug.QuickCheck) where 4 | import Debug.QuickCheck 5 | -------------------------------------------------------------------------------- /fptools/hslibs/util/check/QuickCheckBatch.hs: -------------------------------------------------------------------------------- 1 | module QuickCheckBatch 2 | {-# DEPRECATED "This module has moved to Debug.QuickCheck.Batch" #-} 3 | (module Debug.QuickCheck.Batch) where 4 | import Debug.QuickCheck.Batch 5 | -------------------------------------------------------------------------------- /fptools/hslibs/util/check/QuickCheckPoly.hs: -------------------------------------------------------------------------------- 1 | module QuickCheckPoly 2 | {-# DEPRECATED "This module has moved to Debug.QuickCheck.Poly" #-} 3 | (module Debug.QuickCheck.Poly) where 4 | import Debug.QuickCheck.Poly 5 | -------------------------------------------------------------------------------- /fptools/hslibs/util/check/QuickCheckUtils.hs: -------------------------------------------------------------------------------- 1 | module QuickCheckUtils 2 | {-# DEPRECATED "This module has moved to Debug.QuickCheck.Utils" #-} 3 | (module Debug.QuickCheck.Utils) where 4 | import Debug.QuickCheck.Utils 5 | -------------------------------------------------------------------------------- /fptools/hslibs/util/doc/GetOpt.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>GetOpt</literal>: Command line parsing 3 | <indexterm><primary>GetOpt</primary></indexterm> 4 | 5 | 6 | The GetOpt library has been moved to the 7 | hierarchical libraries; it can be found in 8 | System.Console.GetOpt in the 9 | base package. 10 | 11 | 12 | -------------------------------------------------------------------------------- /fptools/hslibs/util/doc/QuickCheck.xml: -------------------------------------------------------------------------------- 1 | 2 | <literal>QuickCheck</literal> 3 | 4 | 5 | The QuickCheck library has been moved to the 6 | hierarchical libraries; it can be found in 7 | Test.QuickCheck in the 8 | QuickCheck package. 9 | 10 | 11 | -------------------------------------------------------------------------------- /fptools/hslibs/util/doc/util.xml: -------------------------------------------------------------------------------- 1 | The <literal>util</literal> package: miscellaneous utilities 2 | 3 | &getopt; 4 | &memo; 5 | &quickcheck; 6 | &readline; 7 | &select; 8 | 9 | 10 | -------------------------------------------------------------------------------- /hsc2hs/Makefile.inc: -------------------------------------------------------------------------------- 1 | ifeq "" "${MKDIR}" 2 | MKDIR:=$(shell pwd) 3 | #MKDIR:=$(PWD) 4 | else 5 | MKDIR:=$(patsubst %/$(notdir ${MKDIR}),%, ${MKDIR}) 6 | endif 7 | include ${MKDIR}/Makefile.inc 8 | -------------------------------------------------------------------------------- /hsc2hs/Setup.hs: -------------------------------------------------------------------------------- 1 | import Distribution.Simple 2 | main = defaultMain 3 | -------------------------------------------------------------------------------- /hsc2hs/hsc2hs.sh: -------------------------------------------------------------------------------- 1 | 2 | tflag="--template=$HSC2HS_DIR/template-hsc.h" 3 | for arg do 4 | case "$arg" in 5 | -c*) HSC2HS_EXTRA=;; 6 | --cc=*) HSC2HS_EXTRA=;; 7 | -t*) tflag=;; 8 | --template=*) tflag=;; 9 | --) break;; 10 | esac 11 | done 12 | 13 | $HSC2HS_BINDIR/$HS_PROG $tflag $HSC2HS_EXTRA "$@" 14 | -------------------------------------------------------------------------------- /icons/hsicon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/icons/hsicon.gif -------------------------------------------------------------------------------- /icons/hsicon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/icons/hsicon.ico -------------------------------------------------------------------------------- /icons/hsxicon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/icons/hsxicon.gif -------------------------------------------------------------------------------- /icons/hsxicon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/icons/hsxicon.ico -------------------------------------------------------------------------------- /icons/hugsicon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/icons/hugsicon.gif -------------------------------------------------------------------------------- /icons/hugsicon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/icons/hugsicon.ico -------------------------------------------------------------------------------- /icons/hugsicon1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/icons/hugsicon1.ico -------------------------------------------------------------------------------- /icons/hugsicon2.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/icons/hugsicon2.ico -------------------------------------------------------------------------------- /lib/exts/ForeignObj.hs: -------------------------------------------------------------------------------- 1 | module ForeignObj( ForeignObj, module ForeignObj ) where 2 | 3 | import Prelude 4 | -- data ForeignObj -- in Prelude 5 | 6 | -- recently renamed 7 | newForeignObj = makeForeignObj 8 | 9 | primitive newForeignPtr_ :: Addr{-free-} -> IO ForeignObj 10 | primitive addForeignPtrFinalizer :: ForeignObj -> Addr{-free-} -> IO () 11 | primitive writeForeignObj :: ForeignObj -> Addr -> IO () 12 | primitive eqForeignObj :: ForeignObj -> ForeignObj -> Bool 13 | 14 | makeForeignObj addr finalizer = do 15 | fo <- newForeignPtr_ addr 16 | addForeignPtrFinalizer fo finalizer 17 | return fo 18 | 19 | instance Eq ForeignObj where (==) = eqForeignObj 20 | -------------------------------------------------------------------------------- /libraries/hugsbase/Hugs.hs: -------------------------------------------------------------------------------- 1 | -- Empty module to serve as the default current module. 2 | module Hugs where 3 | -------------------------------------------------------------------------------- /libraries/hugsbase/Hugs/Base.hs: -------------------------------------------------------------------------------- 1 | -- Empty module to serve as the default current module. 2 | module Hugs.Base where 3 | -------------------------------------------------------------------------------- /libraries/hugsbase/Hugs/Bits.hs: -------------------------------------------------------------------------------- 1 | module Hugs.Bits where 2 | 3 | primitive primAndInt :: Int -> Int -> Int 4 | primitive primOrInt :: Int -> Int -> Int 5 | primitive primXorInt :: Int -> Int -> Int 6 | primitive primComplementInt :: Int -> Int 7 | primitive primShiftInt :: Int -> Int -> Int 8 | primitive primBitInt :: Int -> Int 9 | primitive primTestInt :: Int -> Int -> Bool 10 | -------------------------------------------------------------------------------- /libraries/hugsbase/Hugs/Dynamic.hs: -------------------------------------------------------------------------------- 1 | module Hugs.Dynamic(module Data.Dynamic, coerceDynamic, runDyn) where 2 | 3 | import Data.Dynamic 4 | 5 | coerceDynamic :: Typeable a => Dynamic -> a 6 | coerceDynamic d = fromDyn d def 7 | where def = error ("coerceDynamic: expecting " ++ show (toDyn def) ++ 8 | " found " ++ show d) 9 | 10 | runDyn :: Dynamic -> IO () 11 | runDyn = coerceDynamic 12 | -------------------------------------------------------------------------------- /libraries/hugsbase/Hugs/IORef.hs: -------------------------------------------------------------------------------- 1 | module Hugs.IORef 2 | ( IORef -- abstract, instance of: Eq 3 | , newIORef -- :: a -> IO (IORef a) 4 | , readIORef -- :: IORef a -> IO a 5 | , writeIORef -- :: IORef a -> a -> IO () 6 | ) where 7 | 8 | data IORef a -- mutable variables containing values of type a 9 | 10 | primitive newIORef "newRef" :: a -> IO (IORef a) 11 | primitive readIORef "getRef" :: IORef a -> IO a 12 | primitive writeIORef "setRef" :: IORef a -> a -> IO () 13 | primitive eqIORef "eqRef" :: IORef a -> IORef a -> Bool 14 | 15 | instance Eq (IORef a) where 16 | (==) = eqIORef 17 | -------------------------------------------------------------------------------- /libraries/hugsbase/Hugs/Observe.hs: -------------------------------------------------------------------------------- 1 | module Hugs.Observe (observe, bkpt, setBkpt) where 2 | 3 | primitive observe :: String -> a -> a 4 | primitive bkpt :: String -> a -> a 5 | primitive setBkpt :: String -> Bool -> IO () 6 | -------------------------------------------------------------------------------- /libraries/hugsbase/Hugs/Stable.hs: -------------------------------------------------------------------------------- 1 | module Hugs.Stable where 2 | 3 | data StableName a -- abstract 4 | 5 | primitive makeStableName :: a -> IO (StableName a) 6 | primitive deRefStableName :: StableName a -> a 7 | primitive hashStableName :: StableName a -> Int 8 | primitive eqStableName :: StableName a -> StableName a -> Bool 9 | 10 | instance Eq (StableName a) where 11 | (==) = eqStableName 12 | -------------------------------------------------------------------------------- /libraries/hugsbase/Hugs/StablePtr.hs: -------------------------------------------------------------------------------- 1 | module Hugs.StablePtr( StablePtr, module Hugs.StablePtr ) where 2 | 3 | import Hugs.Prelude( StablePtr, Ptr ) 4 | 5 | -- recently renamed 6 | newStablePtr = makeStablePtr 7 | 8 | primitive makeStablePtr :: a -> IO (StablePtr a) 9 | primitive deRefStablePtr :: StablePtr a -> IO a 10 | primitive freeStablePtr :: StablePtr a -> IO () 11 | primitive castStablePtrToPtr :: StablePtr a -> Ptr () 12 | primitive castPtrToStablePtr :: Ptr () -> StablePtr a 13 | 14 | -------------------------------------------------------------------------------- /libraries/hugsbase/Hugs/Storable_aux.c: -------------------------------------------------------------------------------- 1 | #include "Storable_aux.h" 2 | 3 | #define DEFINE(T) \ 4 | void write##T##OffPtr(Hs##T *arg1, HsInt arg2, Hs##T arg3) { arg1[arg2] = arg3; } \ 5 | Hs##T read##T##OffPtr(Hs##T *arg1, HsInt arg2) { return arg1[arg2]; } 6 | 7 | DEFINE(Int ) 8 | DEFINE(Char ) 9 | DEFINE(Ptr ) 10 | DEFINE(FunPtr ) 11 | DEFINE(Float ) 12 | DEFINE(Double ) 13 | DEFINE(StablePtr ) 14 | DEFINE(Int8 ) 15 | DEFINE(Int16 ) 16 | DEFINE(Int32 ) 17 | DEFINE(Int64 ) 18 | DEFINE(Word8 ) 19 | DEFINE(Word16 ) 20 | DEFINE(Word32 ) 21 | DEFINE(Word64 ) 22 | 23 | #undef DEFINE 24 | -------------------------------------------------------------------------------- /libraries/pwd.hs: -------------------------------------------------------------------------------- 1 | -- print the current directory 2 | module Main where 3 | 4 | import System.Directory 5 | 6 | main = getCurrentDirectory >>= putStrLn 7 | -------------------------------------------------------------------------------- /libraries/tools/.cvsignore: -------------------------------------------------------------------------------- 1 | config 2 | -------------------------------------------------------------------------------- /libraries/tools/config.in: -------------------------------------------------------------------------------- 1 | # @configure_input@ 2 | # Shell variable definitions for make_bootlib and convert_libraries 3 | 4 | : ${cpp='@CPP_TRADITIONAL@'} 5 | : ${SORT=@SortCmd@} 6 | : ${FIND=@FindCmd@} 7 | -------------------------------------------------------------------------------- /packages/Cabal/DefaultSetup.lhs: -------------------------------------------------------------------------------- 1 | #!/usr/bin/runhaskell 2 | > module Main where 3 | > import Distribution.Simple 4 | > main :: IO () 5 | > main = defaultMain 6 | -------------------------------------------------------------------------------- /packages/Cabal/Distribution/Compat/Exception.hs: -------------------------------------------------------------------------------- 1 | {-# OPTIONS_GHC -cpp #-} 2 | -- #hide 3 | module Distribution.Compat.Exception (bracket,finally) where 4 | 5 | #ifdef __NHC__ 6 | import System.IO.Error (catch, ioError) 7 | import IO (bracket) 8 | #else 9 | import Control.Exception (bracket,finally) 10 | #endif 11 | 12 | #ifdef __NHC__ 13 | finally :: IO a -> IO b -> IO a 14 | finally thing after = bracket (return ()) (const after) (const thing) 15 | #endif 16 | -------------------------------------------------------------------------------- /packages/Cabal/Distribution/Compat/RawSystem.hs: -------------------------------------------------------------------------------- 1 | {-# OPTIONS_GHC -cpp #-} 2 | -- #hide 3 | module Distribution.Compat.RawSystem (rawSystem) where 4 | 5 | #if __GLASGOW_HASKELL__ && __GLASGOW_HASKELL__ < 602 6 | import Data.List (intersperse) 7 | import System.Cmd (system) 8 | import System.Exit (ExitCode) 9 | #else 10 | import System.Cmd (rawSystem) 11 | #endif 12 | 13 | #if __GLASGOW_HASKELL__ && __GLASGOW_HASKELL__ < 602 14 | rawSystem :: String -> [String] -> IO ExitCode 15 | rawSystem p args = system $ concat $ intersperse " " (p : map esc args) 16 | where esc arg = "'" ++ arg ++ "'" -- this is hideously broken, actually 17 | #endif 18 | -------------------------------------------------------------------------------- /packages/Cabal/Makefile.inc: -------------------------------------------------------------------------------- 1 | ifeq "" "${MKDIR}" 2 | MKDIR:=$(shell pwd) 3 | #MKDIR:=$(PWD) 4 | else 5 | MKDIR:=$(patsubst %/$(notdir ${MKDIR}),%, ${MKDIR}) 6 | endif 7 | include ${MKDIR}/Makefile.inc 8 | -------------------------------------------------------------------------------- /packages/Cabal/Network/Hackage/Version.hs: -------------------------------------------------------------------------------- 1 | module Network.Hackage.Version where 2 | 3 | import Data.Version 4 | 5 | 6 | clientVersion :: Version 7 | clientVersion = Version [0,1,0] [] 8 | -------------------------------------------------------------------------------- /packages/Cabal/cabal-install/CabalInstall.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | 3 | import qualified Network.Hackage.CabalInstall.Main as CabalInstall 4 | 5 | main :: IO () 6 | main = CabalInstall.main 7 | -------------------------------------------------------------------------------- /packages/Cabal/cabal-install/INSTALL: -------------------------------------------------------------------------------- 1 | After building and installing with cabal, copy etc-cabal-install to 2 | /etc/cabal-install. 3 | -------------------------------------------------------------------------------- /packages/Cabal/cabal-install/Setup.lhs: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/runghc 2 | 3 | > module Main where 4 | 5 | > import Distribution.Simple 6 | 7 | > main :: IO () 8 | > main = defaultMain 9 | -------------------------------------------------------------------------------- /packages/Cabal/cabal-install/etc-cabal-install/serv.list: -------------------------------------------------------------------------------- 1 | ["http://hackage.haskell.org/ModHackage/Hackage.hs?action=xmlrpc"] 2 | -------------------------------------------------------------------------------- /packages/Cabal/cabal-setup/Makefile: -------------------------------------------------------------------------------- 1 | TOP=../.. 2 | 3 | ifneq "$(findstring boilerplate.mk, $(wildcard $(TOP)/mk/*))" "" 4 | 5 | # ---------------------------------------------------------------------------- 6 | # GHC build tree Makefile: 7 | 8 | include $(TOP)/mk/boilerplate.mk 9 | 10 | HC = $(GHC_INPLACE) 11 | MKDEPENDHS = $(GHC_INPLACE) 12 | HS_PROG = cabal-setup 13 | 14 | EXCLUDED_SRCS = Setup.hs 15 | SRC_HC_OPTS += -package Cabal 16 | 17 | INSTALL_PROGS += $(HS_PROG) 18 | 19 | include $(TOP)/mk/target.mk 20 | 21 | endif 22 | -------------------------------------------------------------------------------- /packages/Cabal/cabal-setup/Setup.hs: -------------------------------------------------------------------------------- 1 | import Distribution.Simple; main=defaultMain 2 | -------------------------------------------------------------------------------- /packages/Cabal/cabal-setup/cabal-setup.cabal: -------------------------------------------------------------------------------- 1 | Name: cabal-setup 2 | Version: 1.1.4 3 | Copyright: 2005, Simon Marlow 4 | Build-depends: Cabal >= 1.1.4, base 5 | License: BSD3 6 | License-File: ../LICENSE 7 | Author: Simon Marlow 8 | Maintainer: http://hackage.haskell.org/trac/hackage/ 9 | Homepage: http://www.haskell.org/cabal/ 10 | Category: Distribution 11 | Synopsis: The user interface for building and installing Cabal packages 12 | Description: 13 | cabal-setup is the user interface to Cabal. It provides the 14 | basic commands for configuring, building, and installing 15 | Cabal packages. 16 | 17 | Executable: cabal-setup 18 | Main-is: CabalSetup.hs 19 | -------------------------------------------------------------------------------- /packages/Cabal/debian/README.Debian: -------------------------------------------------------------------------------- 1 | haskell-cabal for Debian 2 | ------------------------ 3 | 4 | This is just a test package. 5 | 6 | -- Isaac Jones , Wed Jul 28 23:39:48 2004 7 | -------------------------------------------------------------------------------- /packages/Cabal/debian/compat: -------------------------------------------------------------------------------- 1 | 4 2 | -------------------------------------------------------------------------------- /packages/Cabal/debian/dirs: -------------------------------------------------------------------------------- 1 | usr/bin 2 | usr/share/doc/libghc6-cabal-dev 3 | -------------------------------------------------------------------------------- /packages/Cabal/debian/docs: -------------------------------------------------------------------------------- 1 | README 2 | releaseNotes 3 | -------------------------------------------------------------------------------- /packages/Cabal/debian/haskell-cabal-dev.dirs: -------------------------------------------------------------------------------- 1 | usr/lib 2 | usr/include 3 | -------------------------------------------------------------------------------- /packages/Cabal/debian/haskell-cabal-dev.files: -------------------------------------------------------------------------------- 1 | usr/include/* 2 | usr/lib/lib*.a 3 | usr/lib/lib*.so 4 | usr/lib/pkgconfig/* 5 | /usr/lib/*.la 6 | -------------------------------------------------------------------------------- /packages/Cabal/debian/haskell-cabal1.dirs: -------------------------------------------------------------------------------- 1 | usr/lib 2 | -------------------------------------------------------------------------------- /packages/Cabal/debian/haskell-cabal1.files: -------------------------------------------------------------------------------- 1 | usr/lib/lib*.so.* 2 | -------------------------------------------------------------------------------- /packages/Cabal/debianTemplate/changelog: -------------------------------------------------------------------------------- 1 | #PACKAGE# (#VERSION#-1) unstable; urgency=low 2 | 3 | * Initial Release. 4 | 5 | -- #USERNAME# <#EMAIL#> #DATE# 6 | 7 | -------------------------------------------------------------------------------- /packages/Cabal/debianTemplate/compat: -------------------------------------------------------------------------------- 1 | 4 -------------------------------------------------------------------------------- /packages/Cabal/debianTemplate/libghc6-package-dev.docs: -------------------------------------------------------------------------------- 1 | installed-pkg-config 2 | -------------------------------------------------------------------------------- /packages/Cabal/debianTemplate/libghc6-package-dev.postinst: -------------------------------------------------------------------------------- 1 | #!/bin/sh -e 2 | 3 | ghc-pkg -g --add-package \ 4 | < /usr/share/doc/libghc6-#PACKAGE#-dev/installed-pkg-config 5 | 6 | #DEBHELPER# 7 | -------------------------------------------------------------------------------- /packages/Cabal/debianTemplate/libghc6-package-dev.prerm: -------------------------------------------------------------------------------- 1 | #!/bin/sh -e 2 | 3 | ghc-pkg -r #PACKAGE# 4 | # ditch that ghci library: 5 | rm /usr/lib/#PACKAGE#-#VERSION#/HS#PACKAGE#-#VERSION#.o 6 | 7 | #DEBHELPER# 8 | -------------------------------------------------------------------------------- /packages/Cabal/doc/Makefile: -------------------------------------------------------------------------------- 1 | TOP = ../.. 2 | 3 | ifeq "$(findstring boilerplate.mk, $(wildcard $(TOP)/mk/*))" "" 4 | # ---------------------------------------------------------------------------- 5 | # Standalone Makefile: 6 | 7 | all: Cabal.xml 8 | docbook2pdf Cabal.xml 9 | 10 | clean: 11 | rm -fr *~ API users-guide Cabal.pdf Cabal.dvi semantic.cache 12 | 13 | else # boilerplate.mk exists 14 | # ---------------------------------------------------------------------------- 15 | # GHC build tree Makefile: 16 | 17 | include $(TOP)/mk/boilerplate.mk 18 | 19 | XML_DOC = Cabal 20 | INSTALL_XML_DOC = $(XML_DOC) 21 | 22 | include $(TOP)/mk/target.mk 23 | 24 | endif 25 | -------------------------------------------------------------------------------- /packages/Cabal/examples/DefaultSetup.lhs: -------------------------------------------------------------------------------- 1 | #!/usr/bin/runhaskell 2 | > module Main where 3 | > import Distribution.Simple 4 | > main :: IO () 5 | > main = defaultMain 6 | -------------------------------------------------------------------------------- /packages/Cabal/examples/hapax.hs: -------------------------------------------------------------------------------- 1 | -- Simple general-purpose Cabal setup script 2 | 3 | module Main (main) where 4 | 5 | import Distribution.Simple (defaultMainWithHooks, defaultUserHooks) 6 | 7 | main :: IO () 8 | main = defaultMainWithHooks defaultUserHooks 9 | -------------------------------------------------------------------------------- /packages/Cabal/prologue.txt: -------------------------------------------------------------------------------- 1 | The Haskell Cabal is the Common Architecture for Building Applications 2 | and Libraries. It is a framework which defines a common interface for 3 | authors to more easily build their applications in a portable way. The 4 | Haskell Cabal is meant to be a part of a larger infrastructure for 5 | distributing, organizing, and cataloging Haskell Libraries and 6 | Tools. For more information, please see: 7 | . 8 | -------------------------------------------------------------------------------- /packages/Cabal/runTests.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | HCBASE=/usr/bin/ 4 | HC=$HCBASE/ghc 5 | GHCFLAGS='--make -Wall -fno-warn-unused-matches -cpp' 6 | ISPOSIX=-DHAVE_UNIX_PACKAGE 7 | 8 | rm moduleTest 9 | mkdir -p dist/debug 10 | $HC $GHCFLAGS $ISPOSIX -DDEBUG -odir dist/debug -hidir dist/debug -idist/debug/:.:tests/HUnit-1.0/src tests/ModuleTest.hs -o moduleTest 11 | ./moduleTest 12 | -------------------------------------------------------------------------------- /packages/Cabal/tests/A/A.cabal: -------------------------------------------------------------------------------- 1 | Name: test 2 | cabal-version: > 1.1 3 | Version: 1.0 4 | copyright: filler for test suite 5 | maintainer: Isaac Jones 6 | synopsis: this package is really awesome. 7 | Build-Depends: base 8 | Other-Modules: B.A 9 | Exposed-Modules: A 10 | C-Sources: hello.c, c_src/hello.c 11 | Extensions: ForeignFunctionInterface 12 | x-darcs-repo: http://darcs.haskell.org/tmp 13 | unknown-field: Filler. 14 | 15 | Executable: testA 16 | Other-Modules: A 17 | Main-is: MainA.hs 18 | C-Sources: c_src/hello.c 19 | Extensions: OverlappingInstances 20 | 21 | Executable: testB 22 | Other-Modules: B.A 23 | Main-is: B/MainB.hs 24 | -------------------------------------------------------------------------------- /packages/Cabal/tests/A/A.hs: -------------------------------------------------------------------------------- 1 | module A where 2 | a = 42 :: Int 3 | 4 | main2 = print a 5 | -------------------------------------------------------------------------------- /packages/Cabal/tests/A/B/A.lhs: -------------------------------------------------------------------------------- 1 | > module B.A where 2 | > a = 42 :: Int 3 | 4 | > main = print a 5 | -------------------------------------------------------------------------------- /packages/Cabal/tests/A/B/MainB.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | 3 | import A 4 | 5 | main = print a 6 | -------------------------------------------------------------------------------- /packages/Cabal/tests/A/MainA.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | 3 | import A 4 | 5 | main = print a 6 | -------------------------------------------------------------------------------- /packages/Cabal/tests/A/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/A/Setup.lhs: -------------------------------------------------------------------------------- 1 | #!/usr/bin/env runhaskell 2 | 3 | > module Main where 4 | 5 | > import Distribution.Simple 6 | 7 | > main :: IO () 8 | > main = defaultMain 9 | -------------------------------------------------------------------------------- /packages/Cabal/tests/A/c_src/hello.c: -------------------------------------------------------------------------------- 1 | int foo () {return 9;} 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/A/hello.c: -------------------------------------------------------------------------------- 1 | int main () {return 9;} 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HSQL/HSQL.cabal: -------------------------------------------------------------------------------- 1 | name: hsql 2 | license: BSD3 3 | version: 1.4 4 | copyright: filler for test suite 5 | maintainer: filler for test suite 6 | synopsis: interface to databases 7 | description: a simple library, which provides an interface to multiple databases. MySQL, PostgreSQL, ODBC and SQLite (new) are currently supported. 8 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HSQL/Setup.lhs: -------------------------------------------------------------------------------- 1 | #!/usr/bin/runhugs 2 | 3 | > module Main where 4 | 5 | > import Distribution.Make 6 | 7 | > main :: IO () 8 | > main = defaultMain 9 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HSQL/config.mk: -------------------------------------------------------------------------------- 1 | WithODBC=NO 2 | WithPostgreSQL=NO 3 | WithMySQL=NO 4 | WithSQLite=NO 5 | 6 | SO_EXT = so 7 | 8 | WIN32=NO 9 | 10 | AR = /usr/bin/ar 11 | LD = /usr/bin/ld 12 | INSTALL = /usr/bin/install -c 13 | 14 | CPPFLAGS = 15 | LDFLAGS = 16 | 17 | HSC2HS = /usr/bin/hsc2hs 18 | 19 | HADDOCK = /usr/bin/haddock 20 | DOC_DIR = /tmp/doc/HSQL 21 | 22 | GHC = /usr/bin/ghc 23 | GHC_DIR = /tmp/lib/HSQL/GHC 24 | GHC_PKG = /usr/bin/ghc-pkg 25 | 26 | HUGS = /usr/bin/hugs 27 | HUGS_DIR = /tmp/lib/HSQL/Hugs 28 | FFIHUGS = /usr/bin/ffihugs 29 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HSQL/config.mk.in: -------------------------------------------------------------------------------- 1 | WithODBC=@WithODBC@ 2 | WithPostgreSQL=@WithPostgreSQL@ 3 | WithMySQL=@WithMySQL@ 4 | WithSQLite=@WithSQLite@ 5 | 6 | SO_EXT = @SO_EXT@ 7 | 8 | WIN32=@WIN32@ 9 | 10 | AR = @AR@ 11 | LD = @LD@ 12 | INSTALL = @INSTALL@ 13 | 14 | CPPFLAGS = @CPPFLAGS@ 15 | LDFLAGS = @LDFLAGS@ 16 | 17 | HSC2HS = @HSC2HS@ 18 | 19 | HADDOCK = @HADDOCK@ 20 | DOC_DIR = @DOC_DIR@ 21 | 22 | GHC = @GHC@ 23 | GHC_DIR = @GHC_DIR@ 24 | GHC_PKG = @GHC_PKG@ 25 | 26 | HUGS = @HUGS@ 27 | HUGS_DIR = @HUGS_DIR@ 28 | FFIHUGS = @FFIHUGS@ 29 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HSQL/doc/haskell_icon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/packages/Cabal/tests/HSQL/doc/haskell_icon.gif -------------------------------------------------------------------------------- /packages/Cabal/tests/HSQL/hsql.pkg.in: -------------------------------------------------------------------------------- 1 | Package 2 | {name = "hsql", 3 | auto=True, 4 | import_dirs = ["@GHC_DIR@/imports"], 5 | source_dirs = [], 6 | library_dirs = [@LIB_DIRS@], 7 | hs_libraries = ["HSsql"], 8 | extra_libraries = [@DEP_LIBS@], 9 | include_dirs = [], 10 | c_includes = [], 11 | package_deps = ["base"], 12 | extra_ghc_opts = [], 13 | extra_cc_opts = [], 14 | extra_ld_opts = [], 15 | framework_dirs = [], 16 | extra_frameworks = [] 17 | } -------------------------------------------------------------------------------- /packages/Cabal/tests/HSQL/mingw32lib/Makefile: -------------------------------------------------------------------------------- 1 | all: liblibmysql.a liblibpq.a libsqlite.a 2 | 3 | liblibmysql.a: libmysql.def 4 | dlltool --input-def libmysql.def --dllname libmysql.dll --output-lib liblibmysql.a -k 5 | 6 | liblibpq.a: libpqdll.def 7 | dlltool --input-def libpqdll.def --dllname libpq.dll --output-lib liblibpq.a -k 8 | 9 | libsqlite.a: sqlite.def 10 | dlltool --input-def sqlite.def --dllname sqlite.dll --output-lib libsqlite.a -k 11 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HSQL/src/HSQL/HsMySQL.h: -------------------------------------------------------------------------------- 1 | #ifndef HsMySQL 2 | #define HsMySQL 3 | 4 | #if defined(_WIN32_) 5 | #include 6 | #endif 7 | 8 | #include 9 | 10 | #endif 11 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HSQL/src/HSQL/HsODBC.c: -------------------------------------------------------------------------------- 1 | #include "HsODBC.h" 2 | 3 | #if defined(_WIN32_) 4 | // Under Windows SQLFreeEnv function has stdcall calling convention 5 | // while in Haskell functions represented with FunPtr must be always 6 | // with ccall convention. For that reason we need to redirect calling 7 | // to this function. 8 | 9 | void my_sqlFreeEnv(HENV hEnv) 10 | { 11 | SQLFreeEnv(hEnv); 12 | } 13 | #endif 14 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HSQL/src/HSQL/HsODBC.h: -------------------------------------------------------------------------------- 1 | #ifndef HsODBC 2 | #define HsODBC 3 | 4 | #if defined(_WIN32_) 5 | #include 6 | #endif 7 | 8 | #include 9 | #include 10 | 11 | #define FIELD_NAME_LENGTH 255 12 | 13 | typedef struct 14 | { 15 | HSTMT hSTMT; 16 | SQLUSMALLINT fieldsCount; 17 | SQLCHAR fieldName[FIELD_NAME_LENGTH]; 18 | SQLSMALLINT NameLength; 19 | SQLSMALLINT DataType; 20 | SQLULEN ColumnSize; 21 | SQLSMALLINT DecimalDigits; 22 | SQLSMALLINT Nullable; 23 | } FIELD; 24 | 25 | #if defined(_WIN32_) 26 | void my_sqlFreeEnv(HENV hEnv); 27 | #endif 28 | 29 | #endif 30 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HUnit-1.0/HUnit.cabal: -------------------------------------------------------------------------------- 1 | Name: HUnitTest 2 | Version: 1.0 3 | copyright: filler for test suite 4 | maintainer: filler for test suite 5 | synopsis: filler for test suite 6 | License: AllRightsReserved 7 | Build-Depends: haskell-src, haskell98, base 8 | Other-Modules: HUnitText, HUnitLang, HUnitTestBase, Terminal, HUnitBase 9 | Exposed-Modules: HUnit 10 | HS-Source-Dir: src 11 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HUnit-1.0/HUnitTester.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | 3 | import HUnit 4 | 5 | main :: IO () 6 | main = do runTestTT $ TestCase $ assertBool "foo!" True 7 | putStrLn "Works :)" 8 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HUnit-1.0/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HUnit-1.0/README: -------------------------------------------------------------------------------- 1 | HUnit is a unit testing framework for Haskell, inspired by the JUnit 2 | tool for Java. HUnit is free software; see its "License" file for 3 | details. HUnit is available at . 4 | 5 | HUnit 1.0 consists of a number of files. Besides Haskell source files 6 | (whose names end in ".hs" or ".lhs"), these files include: 7 | 8 | * README -- this file 9 | * Guide.html -- user's guide, in HTML format 10 | * License -- license for use of HUnit 11 | 12 | See the user's guide for more information. 13 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HUnit-1.0/Setup.lhs: -------------------------------------------------------------------------------- 1 | #!/usr/bin/runhugs 2 | 3 | > module Main where 4 | 5 | > import Distribution.Simple 6 | 7 | > main :: IO () 8 | > main = defaultMain 9 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HUnit-1.0/src/HUnit.lhs: -------------------------------------------------------------------------------- 1 | HUnit.lhs -- interface module for HUnit 2 | 3 | $Id: HUnit.lhs,v 1.3 2002/02/09 04:25:12 heringto Exp $ 4 | 5 | > module HUnit 6 | > ( 7 | > module HUnitBase, 8 | > module HUnitText 9 | > ) 10 | > where 11 | 12 | > import HUnitBase 13 | > import HUnitText 14 | -------------------------------------------------------------------------------- /packages/Cabal/tests/HUnit-1.0/src/HUnitTest98.lhs: -------------------------------------------------------------------------------- 1 | HUnitTest98.lhs -- test for HUnit, using Haskell language system "98" 2 | 3 | $Id: HUnitTest98.lhs,v 1.1 2002/02/19 17:12:14 heringto Exp $ 4 | 5 | > module Main (main) where 6 | 7 | > import HUnit 8 | > import HUnitTestBase 9 | 10 | 11 | > main = runTestTT (test [baseTests]) 12 | -------------------------------------------------------------------------------- /packages/Cabal/tests/Tests.mk: -------------------------------------------------------------------------------- 1 | #HC=/tmp/ghc/bin/ghc 2 | HC=ghc 3 | setup: Setup.lhs 4 | $(HC) -cpp --make -i../.. Setup.lhs -o setup 2>out.build 5 | clean: 6 | rm -f setup a.out .setup-config register.sh unregister.sh out.build 7 | rm -rf ,tmp* dist 8 | find . -name "*.o" |xargs rm -f 9 | find . -name "*.hi" |xargs rm -f 10 | find . -name "*~" | xargs rm -f 11 | check: setup 12 | ./setup configure --user --prefix=/tmp/foo 13 | ./setup build 14 | ./setup install --install-prefix=/tmp/bar 15 | ls /tmp/bar* 16 | # install w/ register! 17 | ./setup install 18 | # ls /tmp/foo* 19 | ./setup sdist 20 | ls dist 21 | -------------------------------------------------------------------------------- /packages/Cabal/tests/buildInfo/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/buildInfo/Setup.lhs: -------------------------------------------------------------------------------- 1 | #!/usr/bin/runhaskell 2 | 3 | > import Distribution.Simple 4 | > main = defaultMainWithHooks defaultUserHooks 5 | 6 | -------------------------------------------------------------------------------- /packages/Cabal/tests/buildInfo/buildinfo2.buildinfo: -------------------------------------------------------------------------------- 1 | Executable: exe1 2 | Buildable: True 3 | 4 | Executable: exe2 5 | Buildable: True 6 | -------------------------------------------------------------------------------- /packages/Cabal/tests/buildInfo/buildinfo2.cabal: -------------------------------------------------------------------------------- 1 | Name: buildinfo2 2 | Version: 0.0 3 | License: GPL 4 | License-file: COPYING 5 | Build-Depends: base 6 | Author: Evgeny Chukreev 7 | Copyright: Evgeny Chukreev (C) 2005 8 | Maintainer: Evgeny Chukreev 9 | Synopsis: Buildinfo testcase 10 | Description: 11 | Buildinfo testcase 12 | 13 | Executable: exe1 14 | Main-is: exe1.hs 15 | HS-source-dirs: src 16 | 17 | Executable: exe2 18 | Main-is: exe2.hs 19 | HS-source-dirs: src 20 | -------------------------------------------------------------------------------- /packages/Cabal/tests/buildInfo/src/exe1.hs: -------------------------------------------------------------------------------- 1 | module Main () where 2 | 3 | main :: IO () 4 | main = return () 5 | -------------------------------------------------------------------------------- /packages/Cabal/tests/buildInfo/src/exe2.hs: -------------------------------------------------------------------------------- 1 | module Main () where 2 | 3 | main :: IO () 4 | main = return () 5 | -------------------------------------------------------------------------------- /packages/Cabal/tests/depOnLib/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/depOnLib/Setup.lhs: -------------------------------------------------------------------------------- 1 | #!/usr/bin/runhugs 2 | 3 | > module Main where 4 | 5 | > import Distribution.Simple 6 | 7 | > main :: IO () 8 | > main = defaultMain 9 | -------------------------------------------------------------------------------- /packages/Cabal/tests/depOnLib/libs/A.hs: -------------------------------------------------------------------------------- 1 | module A where 2 | 3 | a :: Char 4 | a = 'a' 5 | -------------------------------------------------------------------------------- /packages/Cabal/tests/depOnLib/mains/Main.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | import A 3 | 4 | main = putStrLn "Hello, cabal." -------------------------------------------------------------------------------- /packages/Cabal/tests/depOnLib/test.cabal: -------------------------------------------------------------------------------- 1 | Name: test 2 | Version: 1.0 3 | hs-source-dir: libs 4 | copyright: filler for test suite 5 | maintainer: filler for test suite 6 | synopsis: filler for test suite 7 | build-depends: base 8 | exposed-modules: A 9 | 10 | Executable: mainForA 11 | Other-Modules: Main, A 12 | hs-source-dirs: mains, libs 13 | Main-is: Main.hs 14 | -------------------------------------------------------------------------------- /packages/Cabal/tests/exeWithC/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/exeWithC/Setup.lhs: -------------------------------------------------------------------------------- 1 | > import Distribution.Simple 2 | > main = defaultMainWithHooks defaultUserHooks 3 | -------------------------------------------------------------------------------- /packages/Cabal/tests/exeWithC/a.c: -------------------------------------------------------------------------------- 1 | int foo(int v) { return 2*v; } 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/exeWithC/test.hs: -------------------------------------------------------------------------------- 1 | {-# CFILES a.c #-} 2 | foreign import ccall unsafe "foo" foo :: Int -> Int 3 | 4 | main = print $ foo 6 5 | -------------------------------------------------------------------------------- /packages/Cabal/tests/exeWithC/tt.cabal: -------------------------------------------------------------------------------- 1 | Name: tt 2 | Version: 0.0 3 | Copyright: Einar Karttunen 4 | Maintainer: Isaac Jones 5 | Synopsis: Provided as a test. 6 | License: BSD3 7 | Author: This Test Case Contributed by: Einar Karttunen Thanks! 8 | Build-Depends: base 9 | 10 | Executable: tt 11 | Main-Is: test.hs 12 | C-Sources: a.c 13 | Extensions: ForeignFunctionInterface 14 | -------------------------------------------------------------------------------- /packages/Cabal/tests/ffi-bin/Main.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | 3 | import TestFFI 4 | 5 | main :: IO () 6 | main = putStrLn "test" 7 | 8 | -------------------------------------------------------------------------------- /packages/Cabal/tests/ffi-bin/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/ffi-bin/Setup.lhs: -------------------------------------------------------------------------------- 1 | #! /usr/bin/env runhaskell 2 | 3 | > import Distribution.Simple 4 | > main = defaultMain 5 | -------------------------------------------------------------------------------- /packages/Cabal/tests/ffi-bin/main.cabal: -------------------------------------------------------------------------------- 1 | Name: test-bin 2 | Build-Depends: base, testffi 3 | Version: 0.0 4 | 5 | Executable: test 6 | Main-Is: Main.hs 7 | -------------------------------------------------------------------------------- /packages/Cabal/tests/ffi-package/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/ffi-package/Setup.lhs: -------------------------------------------------------------------------------- 1 | #! /usr/bin/env runhugs 2 | 3 | > import Distribution.Simple 4 | > main = defaultMain 5 | -------------------------------------------------------------------------------- /packages/Cabal/tests/ffi-package/TestFFIExe.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | 3 | import Foreign 4 | 5 | type Action = IO () 6 | 7 | foreign import ccall "wrapper" 8 | mkAction :: Action -> IO (FunPtr Action) 9 | 10 | main :: IO () 11 | main = return () 12 | -------------------------------------------------------------------------------- /packages/Cabal/tests/ffi-package/src/TestFFI.hs: -------------------------------------------------------------------------------- 1 | module TestFFI where 2 | 3 | import Foreign 4 | 5 | type Action = IO () 6 | 7 | foreign import ccall "wrapper" 8 | mkAction :: Action -> IO (FunPtr Action) 9 | -------------------------------------------------------------------------------- /packages/Cabal/tests/ffi-package/testffi.cabal: -------------------------------------------------------------------------------- 1 | Name: testffi 2 | Version: 0.0 3 | Build-Depends: base 4 | hs-source-dir: src 5 | Exposed-modules: TestFFI 6 | Extensions: ForeignFunctionInterface 7 | 8 | executable: foo 9 | main-is: TestFFIExe.hs 10 | Extensions: ForeignFunctionInterface 11 | -------------------------------------------------------------------------------- /packages/Cabal/tests/recursive/A.hi-boot: -------------------------------------------------------------------------------- 1 | module A where 2 | newtype TA = MkTA GHC.Base.Int 3 | -------------------------------------------------------------------------------- /packages/Cabal/tests/recursive/A.hs: -------------------------------------------------------------------------------- 1 | module A where 2 | 3 | import B( TB(..) ) 4 | 5 | newtype TA = MkTA Int 6 | 7 | f :: TB -> TA 8 | f (MkTB x) = MkTA x 9 | -------------------------------------------------------------------------------- /packages/Cabal/tests/recursive/A.hs-boot: -------------------------------------------------------------------------------- 1 | module A where 2 | newtype TA = MkTA Int 3 | -------------------------------------------------------------------------------- /packages/Cabal/tests/recursive/B.hs: -------------------------------------------------------------------------------- 1 | module B where 2 | import {-# SOURCE #-} A( TA(..) ) 3 | 4 | data TB = MkTB !Int 5 | 6 | g :: TA -> TB 7 | g (MkTA x) = MkTB x 8 | 9 | -------------------------------------------------------------------------------- /packages/Cabal/tests/recursive/C.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | import B 3 | import A -- FIX: GHC doesn't seem to figure out this dependency?! 4 | 5 | main :: IO () 6 | main = let f = g in putStrLn "C" 7 | -------------------------------------------------------------------------------- /packages/Cabal/tests/recursive/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/recursive/Setup.lhs: -------------------------------------------------------------------------------- 1 | #!/usr/bin/env runhaskell 2 | 3 | > module Main where 4 | 5 | > import Distribution.Simple 6 | 7 | > main :: IO () 8 | > main = defaultMain 9 | -------------------------------------------------------------------------------- /packages/Cabal/tests/recursive/recursive.cabal: -------------------------------------------------------------------------------- 1 | name: recursive 2 | build-depends: base 3 | version: 1.0 4 | copyright: filler for test suite 5 | maintainer: Isaac Jones 6 | synopsis: this package is really awesome. 7 | Exposed-Modules: A, B 8 | 9 | Executable: testExe 10 | Main-is: C.hs 11 | other-modules: A, B 12 | -------------------------------------------------------------------------------- /packages/Cabal/tests/twoMains/MainA.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | import System 3 | import Control.Monad(when) 4 | main = do print 'a' 5 | args <- getArgs 6 | let isB = head args 7 | when (isB /= "isA") (error "A is not A!") 8 | -------------------------------------------------------------------------------- /packages/Cabal/tests/twoMains/MainB.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | import System 3 | import Control.Monad (when) 4 | main = do print 'b' 5 | args <- getArgs 6 | let isB = head args 7 | when (isB /= "isB") (error "B is not B!") 8 | -------------------------------------------------------------------------------- /packages/Cabal/tests/twoMains/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/twoMains/Setup.lhs: -------------------------------------------------------------------------------- 1 | #!/usr/bin/runhugs 2 | 3 | > module Main where 4 | 5 | > import Distribution.Simple 6 | 7 | > main :: IO () 8 | > main = defaultMain 9 | -------------------------------------------------------------------------------- /packages/Cabal/tests/twoMains/test.cabal: -------------------------------------------------------------------------------- 1 | Name: test 2 | Version: 1.0 3 | copyright: filler for test suite 4 | maintainer: filler for test suite 5 | build-depends: base, haskell98 6 | synopsis: filler for test suite 7 | 8 | Executable: testA 9 | Other-Modules: MainA 10 | Main-is: MainA.hs 11 | 12 | Executable: testB 13 | Other-Modules: MainB 14 | Main-is: MainB.hs 15 | -------------------------------------------------------------------------------- /packages/Cabal/tests/wash2hs/CHANGES: -------------------------------------------------------------------------------- 1 | * 20031112 2 | added JSP-style string escape: 3 | <%= my nice haskell code %> 4 | is mapped to 5 | text (my nice haskell code) 6 | -------------------------------------------------------------------------------- /packages/Cabal/tests/wash2hs/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/wash2hs/Setup.lhs: -------------------------------------------------------------------------------- 1 | > module Main where 2 | 3 | > import Distribution.Simple 4 | 5 | > main :: IO () 6 | > main = defaultMain 7 | 8 | to compile: 9 | ghc -package Cabal -package parsec Setup.lhs -o setup 10 | -------------------------------------------------------------------------------- /packages/Cabal/tests/wash2hs/hs/WASHFlags.hs: -------------------------------------------------------------------------------- 1 | module WASHFlags where 2 | -- 3 | flags0 = FLAGS { generateBT = False } 4 | 5 | data FLAGS = FLAGS { generateBT :: Bool } 6 | 7 | 8 | -------------------------------------------------------------------------------- /packages/Cabal/tests/wash2hs/test/Counter.wash: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/packages/Cabal/tests/wash2hs/test/Counter.wash -------------------------------------------------------------------------------- /packages/Cabal/tests/wash2hs/test/Tutorial.wash: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/packages/Cabal/tests/wash2hs/test/Tutorial.wash -------------------------------------------------------------------------------- /packages/Cabal/tests/wash2hs/wash2hs.cabal: -------------------------------------------------------------------------------- 1 | Name: Wash-2hs 2 | Version: 1.4.34 3 | License: BSD3 4 | Build-Depends: base, text, lang, haskell98 5 | copyright: filler for test suite 6 | maintainer: filler for test suite 7 | synopsis: filler for test suite 8 | 9 | executable: wash2hs 10 | hs-source-dir: hs 11 | Other-Modules: WASHClean, WASHExpression, WASHGenerator, WASHOut, 12 | WASHData, WASHFlags, WASHMain, WASHParser, 13 | WASHUtil 14 | main-is: WASHMain.hs 15 | -------------------------------------------------------------------------------- /packages/Cabal/tests/withHooks/C.testSuffix: -------------------------------------------------------------------------------- 1 | module C where 2 | a = 42 :: Int 3 | 4 | main2 = print a 5 | -------------------------------------------------------------------------------- /packages/Cabal/tests/withHooks/D.gc: -------------------------------------------------------------------------------- 1 | module D where 2 | a = 42 :: Int 3 | 4 | main2 = print a 5 | -------------------------------------------------------------------------------- /packages/Cabal/tests/withHooks/Main.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | 3 | main = putStrLn "Happy New Year!" 4 | -------------------------------------------------------------------------------- /packages/Cabal/tests/withHooks/Makefile: -------------------------------------------------------------------------------- 1 | include ../Tests.mk 2 | -------------------------------------------------------------------------------- /packages/Cabal/tests/withHooks/Setup.buildinfo.in: -------------------------------------------------------------------------------- 1 | include-dirs: /tmp, /etc 2 | extensions: CPP 3 | 4 | executable: withHooks 5 | extensions: TemplateHaskell 6 | -------------------------------------------------------------------------------- /packages/Cabal/tests/withHooks/WithHooks.hs: -------------------------------------------------------------------------------- 1 | module WithHooks where 2 | 3 | f = 34 4 | -------------------------------------------------------------------------------- /packages/Cabal/tests/withHooks/withHooks.cabal: -------------------------------------------------------------------------------- 1 | Name: withHooks 2 | Version: 1.0 3 | copyright: filler for test suite 4 | maintainer: filler for test suite 5 | synopsis: filler for test suite 6 | build-depends: base 7 | exposed-modules: Main, C, D 8 | 9 | Executable: withHooks 10 | Other-Modules: Main 11 | Main-is: Main.hs 12 | -------------------------------------------------------------------------------- /packages/base/Data/Dynamic.hs-boot: -------------------------------------------------------------------------------- 1 | {-# OPTIONS -fno-implicit-prelude #-} 2 | module Data.Dynamic where 3 | import {-# SOURCE #-} Data.Typeable (TypeRep) 4 | data Dynamic 5 | dynTypeRep :: Dynamic -> TypeRep 6 | -------------------------------------------------------------------------------- /packages/base/Data/Eq.hs: -------------------------------------------------------------------------------- 1 | {-# OPTIONS_GHC -fno-implicit-prelude #-} 2 | ----------------------------------------------------------------------------- 3 | -- | 4 | -- Module : Data.Eq 5 | -- Copyright : (c) The University of Glasgow 2005 6 | -- License : BSD-style (see the file libraries/base/LICENSE) 7 | -- 8 | -- Maintainer : libraries@haskell.org 9 | -- Stability : stable 10 | -- Portability : portable 11 | -- 12 | -- Equality 13 | -- 14 | ----------------------------------------------------------------------------- 15 | 16 | module Data.Eq ( 17 | Eq(..), 18 | ) where 19 | 20 | #if __GLASGOW_HASKELL__ 21 | import GHC.Base 22 | #endif 23 | -------------------------------------------------------------------------------- /packages/base/Data/Typeable.hs-boot: -------------------------------------------------------------------------------- 1 | {-# OPTIONS -fno-implicit-prelude #-} 2 | module Data.Typeable where 3 | data TypeRep 4 | -------------------------------------------------------------------------------- /packages/base/GHC/Dynamic.hs: -------------------------------------------------------------------------------- 1 | {-# OPTIONS -fno-implicit-prelude #-} 2 | module GHC.Dynamic ( 3 | Dynamic, TypeRep, dynTypeRep, showsTypeRep 4 | ) where 5 | 6 | import Data.Dynamic ( Dynamic, dynTypeRep ) 7 | import Data.Typeable ( TypeRep ) 8 | import GHC.Show ( ShowS, shows ) 9 | 10 | showsTypeRep :: TypeRep -> ShowS 11 | showsTypeRep = shows 12 | -------------------------------------------------------------------------------- /packages/base/GHC/Dynamic.hs-boot: -------------------------------------------------------------------------------- 1 | {-# OPTIONS -fno-implicit-prelude #-} 2 | module GHC.Dynamic ( 3 | Dynamic, TypeRep, dynTypeRep, showsTypeRep 4 | ) where 5 | 6 | import {-# SOURCE #-} Data.Dynamic ( Dynamic, dynTypeRep ) 7 | import {-# SOURCE #-} Data.Typeable ( TypeRep ) 8 | import GHC.Show ( ShowS ) 9 | 10 | showsTypeRep :: TypeRep -> ShowS 11 | -------------------------------------------------------------------------------- /packages/base/GHC/TopHandler.lhs-boot: -------------------------------------------------------------------------------- 1 | \begin{code} 2 | {-# OPTIONS -fno-implicit-prelude #-} 3 | module GHC.TopHandler ( reportError, reportStackOverflow ) where 4 | 5 | import GHC.Exception ( Exception ) 6 | import GHC.IOBase ( IO ) 7 | 8 | reportError :: Exception -> IO a 9 | reportStackOverflow :: IO a 10 | \end{code} 11 | -------------------------------------------------------------------------------- /packages/base/GHC/Unicode.hs-boot: -------------------------------------------------------------------------------- 1 | {-# OPTIONS -fno-implicit-prelude #-} 2 | 3 | module GHC.Unicode where 4 | import GHC.Base( Char, Bool ) 5 | 6 | isAscii :: Char -> Bool 7 | isLatin1 :: Char -> Bool 8 | isControl :: Char -> Bool 9 | isPrint :: Char -> Bool 10 | isSpace :: Char -> Bool 11 | isUpper :: Char -> Bool 12 | isLower :: Char -> Bool 13 | isAlpha :: Char -> Bool 14 | isDigit :: Char -> Bool 15 | isOctDigit :: Char -> Bool 16 | isHexDigit :: Char -> Bool 17 | isAlphaNum :: Char -> Bool 18 | -------------------------------------------------------------------------------- /packages/base/Makefile.inc: -------------------------------------------------------------------------------- 1 | ifeq "" "${MKDIR}" 2 | MKDIR:=$(shell pwd) 3 | #MKDIR:=$(PWD) 4 | else 5 | MKDIR:=$(patsubst %/$(notdir ${MKDIR}),%, ${MKDIR}) 6 | endif 7 | include ${MKDIR}/Makefile.inc 8 | -------------------------------------------------------------------------------- /packages/base/NHC/Makefile: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/packages/base/NHC/Makefile -------------------------------------------------------------------------------- /packages/base/cbits/Makefile: -------------------------------------------------------------------------------- 1 | # $Id: Makefile,v 1.14 2005/02/01 00:52:22 ross Exp $ 2 | 3 | TOP = ../.. 4 | include $(TOP)/mk/boilerplate.mk 5 | 6 | HC = $(GHC_INPLACE) 7 | 8 | UseGhcForCc = YES 9 | 10 | ifneq "$(TARGETPLATFORM)" "i386-unknown-mingw32" 11 | EXCLUDED_SRCS += consUtils.c 12 | endif 13 | 14 | SRC_CC_OPTS += -Wall -DCOMPILING_STDLIB 15 | SRC_CC_OPTS += -I$(GHC_INCLUDE_DIR) -I$(GHC_RTS_DIR) -I../include 16 | 17 | LIBRARY = libHSbase_cbits.a 18 | LIBOBJS = $(C_OBJS) 19 | 20 | include $(TOP)/mk/target.mk 21 | -------------------------------------------------------------------------------- /packages/base/cbits/PrelIOUtils.c: -------------------------------------------------------------------------------- 1 | /* 2 | * (c) The University of Glasgow 2002 3 | * 4 | * static versions of the inline functions in HsCore.h 5 | */ 6 | 7 | #define INLINE 8 | #include "HsBase.h" 9 | 10 | -------------------------------------------------------------------------------- /packages/base/cbits/selectUtils.c: -------------------------------------------------------------------------------- 1 | 2 | #include "HsBase.h" 3 | void hsFD_ZERO(fd_set *fds) { FD_ZERO(fds); } 4 | -------------------------------------------------------------------------------- /packages/base/cbits/timeUtils.c: -------------------------------------------------------------------------------- 1 | /* 2 | * (c) The University of Glasgow 2002 3 | * 4 | * Time Runtime Support 5 | */ 6 | #include "HsBase.h" 7 | 8 | #if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) /* to the end */ 9 | 10 | HsAddr __hscore_timezone( void ) 11 | { return (HsAddr)&_timezone; } 12 | 13 | HsAddr __hscore_tzname( void ) 14 | { return (HsAddr)_tzname; } 15 | #endif 16 | -------------------------------------------------------------------------------- /packages/base/include/Makefile: -------------------------------------------------------------------------------- 1 | # ----------------------------------------------------------------------------- 2 | # $Id: Makefile,v 1.6 2005/03/02 16:39:57 ross Exp $ 3 | 4 | TOP=../.. 5 | include $(TOP)/mk/boilerplate.mk 6 | 7 | H_FILES = $(wildcard *.h) 8 | 9 | includedir = $(libdir)/include 10 | INSTALL_INCLUDES = $(H_FILES) 11 | 12 | DIST_CLEAN_FILES += HsBaseConfig.h 13 | 14 | include $(TOP)/mk/target.mk 15 | -------------------------------------------------------------------------------- /packages/base/include/WCsubst.h: -------------------------------------------------------------------------------- 1 | #ifndef WCSUBST_INCL 2 | 3 | #define WCSUBST_INCL 4 | 5 | #include 6 | 7 | int u_iswupper(int wc); 8 | int u_iswdigit(int wc); 9 | int u_iswalpha(int wc); 10 | int u_iswcntrl(int wc); 11 | int u_iswspace(int wc); 12 | int u_iswprint(int wc); 13 | int u_iswlower(int wc); 14 | 15 | int u_iswalnum(int wc); 16 | 17 | int u_towlower(int wc); 18 | int u_towupper(int wc); 19 | int u_towtitle(int wc); 20 | 21 | int u_gencat(int wc); 22 | 23 | #endif 24 | 25 | -------------------------------------------------------------------------------- /packages/base/include/consUtils.h: -------------------------------------------------------------------------------- 1 | /* 2 | * (c) The University of Glasgow, 2000-2002 3 | * 4 | * Win32 Console API helpers. 5 | */ 6 | #ifndef __CONSUTILS_H__ 7 | #define __CONSUTILS_H__ 8 | extern int set_console_buffering__(int fd, int cooked); 9 | extern int set_console_echo__(int fd, int on); 10 | extern int get_console_echo__(int fd); 11 | extern int flush_input_console__ (int fd); 12 | #endif 13 | -------------------------------------------------------------------------------- /packages/base/include/dirUtils.h: -------------------------------------------------------------------------------- 1 | /* 2 | * (c) The University of Glasgow 2002 3 | * 4 | * Directory Runtime Support 5 | */ 6 | #ifndef __DIRUTILS_H__ 7 | #define __DIRUTILS_H__ 8 | 9 | extern HsInt __hscore_readdir(HsAddr dirPtr, HsAddr pDirEnt); 10 | extern HsInt __hscore_renameFile(HsAddr src, HsAddr dest); 11 | 12 | #if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) 13 | extern int __hscore_getFolderPath(HWND hwndOwner, 14 | int nFolder, 15 | HANDLE hToken, 16 | DWORD dwFlags, 17 | char* pszPath); 18 | #endif 19 | 20 | #endif /* __DIRUTILS_H__ */ 21 | -------------------------------------------------------------------------------- /packages/base/include/fpstring.h: -------------------------------------------------------------------------------- 1 | 2 | void fps_reverse(unsigned char *dest, unsigned char *from, unsigned long len); 3 | void fps_intersperse(unsigned char *dest, unsigned char *from, unsigned long len, unsigned char c); 4 | unsigned char fps_maximum(unsigned char *p, unsigned long len); 5 | unsigned char fps_minimum(unsigned char *p, unsigned long len); 6 | unsigned long fps_count(unsigned char *p, unsigned long len, unsigned char w); 7 | -------------------------------------------------------------------------------- /packages/base/include/lockFile.h: -------------------------------------------------------------------------------- 1 | /* 2 | * (c) The University of Glasgow 2001 3 | * 4 | * $Id: lockFile.h,v 1.3 2005/01/28 13:36:34 simonmar Exp $ 5 | * 6 | * lockFile header 7 | */ 8 | 9 | #if !(defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)) 10 | 11 | int lockFile(int fd, int for_writing, int exclusive); 12 | int unlockFile(int fd); 13 | 14 | #endif 15 | -------------------------------------------------------------------------------- /packages/base/include/timeUtils.h: -------------------------------------------------------------------------------- 1 | /* 2 | * (c) The University of Glasgow 2002 3 | * 4 | * Time Runtime Support 5 | */ 6 | #ifndef __TIMEUTILS_H__ 7 | #define __TIMEUTILS_H__ 8 | 9 | extern HsAddr __hscore_timezone( void ); 10 | extern HsAddr __hscore_tzname( void ); 11 | 12 | #endif /* __DIRUTILS_H__ */ 13 | -------------------------------------------------------------------------------- /packages/base/prologue.txt: -------------------------------------------------------------------------------- 1 | This package contains the @Prelude@ and its support libraries, and a large 2 | collection of useful libraries ranging from data structures to parsing 3 | combinators and debugging utilities. 4 | -------------------------------------------------------------------------------- /packages/haskell98/Array.hs: -------------------------------------------------------------------------------- 1 | module Array ( 2 | module Ix, -- export all of Ix for convenience 3 | Array, array, listArray, (!), bounds, indices, elems, assocs, 4 | accumArray, (//), accum, ixmap 5 | ) where 6 | 7 | import Ix 8 | import Data.Array 9 | -------------------------------------------------------------------------------- /packages/haskell98/Bits.hs: -------------------------------------------------------------------------------- 1 | module Bits (module Data.Bits) where 2 | import Data.Bits 3 | 4 | -------------------------------------------------------------------------------- /packages/haskell98/CError.hs: -------------------------------------------------------------------------------- 1 | module CError (module Foreign.C.Error) where 2 | import Foreign.C.Error 3 | -------------------------------------------------------------------------------- /packages/haskell98/CForeign.hs: -------------------------------------------------------------------------------- 1 | module CForeign ( module Foreign.C ) where 2 | import Foreign.C 3 | -------------------------------------------------------------------------------- /packages/haskell98/CPUTime.hs: -------------------------------------------------------------------------------- 1 | module CPUTime ( 2 | getCPUTime, cpuTimePrecision 3 | ) where 4 | 5 | import System.CPUTime 6 | -------------------------------------------------------------------------------- /packages/haskell98/CString.hs: -------------------------------------------------------------------------------- 1 | module CString (module Foreign.C.String) where 2 | import Foreign.C.String 3 | -------------------------------------------------------------------------------- /packages/haskell98/CTypes.hs: -------------------------------------------------------------------------------- 1 | module CTypes (module Foreign.C.Types) where 2 | import Foreign.C.Types 3 | -------------------------------------------------------------------------------- /packages/haskell98/Char.hs: -------------------------------------------------------------------------------- 1 | module Char ( 2 | isAscii, isLatin1, isControl, isPrint, isSpace, isUpper, isLower, 3 | isAlpha, isDigit, isOctDigit, isHexDigit, isAlphaNum, 4 | digitToInt, intToDigit, 5 | toUpper, toLower, 6 | ord, chr, 7 | readLitChar, showLitChar, lexLitChar, 8 | 9 | -- ...and what the Prelude exports 10 | Char, String 11 | ) where 12 | 13 | import Data.Char 14 | -------------------------------------------------------------------------------- /packages/haskell98/Complex.hs: -------------------------------------------------------------------------------- 1 | module Complex ( 2 | Complex((:+)), realPart, imagPart, conjugate, 3 | mkPolar, cis, polar, magnitude, phase 4 | ) where 5 | 6 | import Data.Complex 7 | -------------------------------------------------------------------------------- /packages/haskell98/Directory.hs: -------------------------------------------------------------------------------- 1 | module Directory ( 2 | Permissions( Permissions, readable, writable, executable, searchable ), 3 | createDirectory, removeDirectory, removeFile, 4 | renameDirectory, renameFile, getDirectoryContents, 5 | getCurrentDirectory, setCurrentDirectory, 6 | doesFileExist, doesDirectoryExist, 7 | getPermissions, setPermissions, 8 | getModificationTime 9 | ) where 10 | 11 | import System.Directory 12 | -------------------------------------------------------------------------------- /packages/haskell98/ForeignPtr.hs: -------------------------------------------------------------------------------- 1 | module ForeignPtr (module Foreign.ForeignPtr) where 2 | import Foreign.ForeignPtr 3 | -------------------------------------------------------------------------------- /packages/haskell98/Int.hs: -------------------------------------------------------------------------------- 1 | module Int ( module Data.Int ) where 2 | import Data.Int 3 | -------------------------------------------------------------------------------- /packages/haskell98/Ix.hs: -------------------------------------------------------------------------------- 1 | module Ix ( 2 | Ix(range, index, inRange), rangeSize 3 | ) where 4 | 5 | import Data.Ix 6 | -------------------------------------------------------------------------------- /packages/haskell98/Locale.hs: -------------------------------------------------------------------------------- 1 | module Locale ( 2 | TimeLocale(..), defaultTimeLocale 3 | ) where 4 | 5 | import System.Locale ( 6 | -- just the bits that are specified by Haskell 98 7 | TimeLocale(TimeLocale,wDays,months,amPm,dateTimeFmt, 8 | dateFmt,timeFmt,time12Fmt), 9 | defaultTimeLocale 10 | ) 11 | -------------------------------------------------------------------------------- /packages/haskell98/Makefile: -------------------------------------------------------------------------------- 1 | # ----------------------------------------------------------------------------- 2 | # $Id: Makefile,v 1.8 2004/11/26 16:22:11 simonmar Exp $ 3 | 4 | TOP=.. 5 | include $(TOP)/mk/boilerplate.mk 6 | 7 | ALL_DIRS = 8 | PACKAGE = haskell98 9 | VERSION = 1.0 10 | PACKAGE_DEPS = base 11 | 12 | SRC_HADDOCK_OPTS += -t "Haskell Hierarchical Libraries ($(PACKAGE) package)" 13 | 14 | include $(TOP)/mk/target.mk 15 | -------------------------------------------------------------------------------- /packages/haskell98/MarshalAlloc.hs: -------------------------------------------------------------------------------- 1 | module MarshalAlloc (module Foreign.Marshal.Alloc) where 2 | import Foreign.Marshal.Alloc 3 | -------------------------------------------------------------------------------- /packages/haskell98/MarshalArray.hs: -------------------------------------------------------------------------------- 1 | module MarshalArray (module Foreign.Marshal.Array) where 2 | import Foreign.Marshal.Array 3 | -------------------------------------------------------------------------------- /packages/haskell98/MarshalError.hs: -------------------------------------------------------------------------------- 1 | module MarshalError ( 2 | module Foreign.Marshal.Error, 3 | IOErrorType, 4 | mkIOError, 5 | alreadyExistsErrorType, 6 | doesNotExistErrorType, 7 | alreadyInUseErrorType, 8 | fullErrorType, 9 | eofErrorType, 10 | illegalOperationErrorType, 11 | permissionErrorType, 12 | userErrorType, 13 | annotateIOError 14 | ) where 15 | 16 | import System.IO.Error 17 | import Foreign.Marshal.Error 18 | -------------------------------------------------------------------------------- /packages/haskell98/MarshalUtils.hs: -------------------------------------------------------------------------------- 1 | module MarshalUtils (module Foreign.Marshal.Utils) where 2 | import Foreign.Marshal.Utils 3 | -------------------------------------------------------------------------------- /packages/haskell98/Maybe.hs: -------------------------------------------------------------------------------- 1 | module Maybe ( 2 | isJust, isNothing, 3 | fromJust, fromMaybe, listToMaybe, maybeToList, 4 | catMaybes, mapMaybe, 5 | 6 | -- ...and what the Prelude exports 7 | Maybe(Nothing, Just), 8 | maybe 9 | ) where 10 | 11 | import Data.Maybe 12 | -------------------------------------------------------------------------------- /packages/haskell98/Monad.hs: -------------------------------------------------------------------------------- 1 | module Monad ( 2 | MonadPlus(mzero, mplus), 3 | join, guard, when, unless, ap, 4 | msum, 5 | filterM, mapAndUnzipM, zipWithM, zipWithM_, foldM, 6 | liftM, liftM2, liftM3, liftM4, liftM5, 7 | 8 | -- ...and what the Prelude exports 9 | Monad((>>=), (>>), return, fail), 10 | Functor(fmap), 11 | mapM, mapM_, sequence, sequence_, (=<<), 12 | ) where 13 | 14 | import Control.Monad 15 | -------------------------------------------------------------------------------- /packages/haskell98/Ptr.hs: -------------------------------------------------------------------------------- 1 | module Ptr (module Foreign.Ptr) where 2 | import Foreign.Ptr 3 | -------------------------------------------------------------------------------- /packages/haskell98/Random.hs: -------------------------------------------------------------------------------- 1 | module Random ( 2 | RandomGen(next, split, genRange), 3 | StdGen, mkStdGen, 4 | Random( random, randomR, randoms, randomRs, randomIO, randomRIO ), 5 | getStdRandom, getStdGen, setStdGen, newStdGen 6 | ) where 7 | 8 | import System.Random 9 | -------------------------------------------------------------------------------- /packages/haskell98/Ratio.hs: -------------------------------------------------------------------------------- 1 | module Ratio ( 2 | Ratio, Rational, (%), numerator, denominator, approxRational 3 | ) where 4 | 5 | import Data.Ratio 6 | -------------------------------------------------------------------------------- /packages/haskell98/StablePtr.hs: -------------------------------------------------------------------------------- 1 | module StablePtr (module Foreign.StablePtr) where 2 | import Foreign.StablePtr 3 | -------------------------------------------------------------------------------- /packages/haskell98/Storable.hs: -------------------------------------------------------------------------------- 1 | module Storable (module Foreign.Storable) where 2 | import Foreign.Storable 3 | -------------------------------------------------------------------------------- /packages/haskell98/System.hs: -------------------------------------------------------------------------------- 1 | module System ( 2 | ExitCode(ExitSuccess,ExitFailure), 3 | getArgs, getProgName, getEnv, system, exitWith, exitFailure 4 | ) where 5 | 6 | import System.Exit 7 | import System.Environment 8 | import System.Cmd 9 | -------------------------------------------------------------------------------- /packages/haskell98/Time.hs: -------------------------------------------------------------------------------- 1 | module Time ( 2 | ClockTime, 3 | Month(January,February,March,April,May,June, 4 | July,August,September,October,November,December), 5 | Day(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday), 6 | CalendarTime(CalendarTime, ctYear, ctMonth, ctDay, ctHour, ctMin, 7 | ctSec, ctPicosec, ctWDay, ctYDay, ctTZName, ctTZ, ctIsDST), 8 | TimeDiff(TimeDiff, tdYear, tdMonth, tdDay, tdHour, 9 | tdMin, tdSec, tdPicosec), 10 | getClockTime, addToClockTime, diffClockTimes, 11 | toCalendarTime, toUTCTime, toClockTime, 12 | calendarTimeToString, formatCalendarTime 13 | ) where 14 | 15 | import System.Time 16 | -------------------------------------------------------------------------------- /packages/haskell98/Word.hs: -------------------------------------------------------------------------------- 1 | module Word ( module Data.Word ) where 2 | import Data.Word 3 | -------------------------------------------------------------------------------- /packages/haskell98/prologue.txt: -------------------------------------------------------------------------------- 1 | This package provides compatibility with the modules of Haskell 98 and 2 | the FFI addendum, by means of wrappers around modules from the @base@ package 3 | (which in many cases have additional features). 4 | However @Prelude@, @Numeric@ and @Foreign@ are provided directly 5 | by the @base@ package. 6 | The modules of this package are documented in the /Revised Haskell 98 Report/, 7 | at , 8 | and the /Haskell 98 Foreign Function Interface/ addendum, 9 | at . 10 | -------------------------------------------------------------------------------- /src/.cvsignore: -------------------------------------------------------------------------------- 1 | *.exp 2 | *.lib 3 | Makefile 4 | config.h 5 | config.h.in 6 | ffihugs 7 | hugs 8 | options.h 9 | parser.c 10 | platform.h 11 | runhugs 12 | -------------------------------------------------------------------------------- /src/.gdbinit: -------------------------------------------------------------------------------- 1 | break internal 2 | break evalFails 3 | break errHead 4 | # break garbageCollect -------------------------------------------------------------------------------- /src/MkInstal.in: -------------------------------------------------------------------------------- 1 | ################################################################ 2 | # Installation (Unix only) 3 | ################################################################ 4 | 5 | INSTALL = ../install-sh 6 | 7 | install :: hugs$(EXEEXT) runhugs$(EXEEXT) ffihugs$(EXEEXT) 8 | $(INSTALL) -d $(DESTDIR)$(bindir) 9 | $(INSTALL) -c hugs$(EXEEXT) $(DESTDIR)$(bindir) 10 | $(INSTALL) -c runhugs$(EXEEXT) $(DESTDIR)$(bindir) 11 | $(INSTALL) -c ffihugs$(EXEEXT) $(DESTDIR)$(bindir) 12 | -------------------------------------------------------------------------------- /src/MkNull.in: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /src/bcc32/config.bat: -------------------------------------------------------------------------------- 1 | rem Copy saved copies of .\Makefile, .\config.h and .\options.h to .. 2 | 3 | copy .\Makefile .. 4 | copy .\config.h .. 5 | copy .\options.h .. 6 | copy .\iobjects.rsp .. 7 | copy .\sobjects.rsp .. 8 | 9 | -------------------------------------------------------------------------------- /src/bcc32/iobjects.rsp: -------------------------------------------------------------------------------- 1 | hugs.obj 2 | storage.obj 3 | input.obj 4 | static.obj 5 | type.obj 6 | compiler.obj 7 | subst.obj 8 | plugin.obj 9 | builtin.obj 10 | machine.obj 11 | output.obj 12 | -------------------------------------------------------------------------------- /src/bcc32/sobjects.rsp: -------------------------------------------------------------------------------- 1 | server.obj 2 | storage.obj 3 | input.obj 4 | static.obj 5 | type.obj 6 | compiler.obj 7 | subst.obj 8 | plugin.obj 9 | builtin.obj 10 | machine.obj 11 | output.obj 12 | -------------------------------------------------------------------------------- /src/djgpp2/config.bat: -------------------------------------------------------------------------------- 1 | @echo off 2 | 3 | rem A simple configure script for people who don't have /bin/sh and related 4 | rem tools. 5 | 6 | echo Copying .\Makefile, .\options.h and .\config.h to .. 7 | copy .\Makefile .. 8 | copy .\options.h .. 9 | copy .\config.h .. 10 | 11 | echo You may need to edit ..\Makefile and ..\config.h to suit the 12 | echo peculiarities of your machine. 13 | 14 | echo You may also choose to edit ..\options.h to suit your personal preferences. 15 | -------------------------------------------------------------------------------- /src/dotnet/.cvsignore: -------------------------------------------------------------------------------- 1 | HugsWrapper.dll 2 | 3 | -------------------------------------------------------------------------------- /src/dotnet/HugsWrapper.cpp: -------------------------------------------------------------------------------- 1 | #include "HugsWrapper.h" 2 | -------------------------------------------------------------------------------- /src/dotnet/hugs.rc: -------------------------------------------------------------------------------- 1 | 0 ICON "hugsicon.ico" 2 | -------------------------------------------------------------------------------- /src/dotnet/prim.h: -------------------------------------------------------------------------------- 1 | #pragma once 2 | 3 | extern "C" { 4 | extern System::Object __gc* getNP(Cell c); 5 | Cell mkDotNetPtr (System::Object *, Void (*)(System::Object *)); 6 | Void incDotNetPtrRefCnt(Int, Int); 7 | Void freeNetPtr (System::Object* x); 8 | }; 9 | -------------------------------------------------------------------------------- /src/dotnet/runhugs.rc: -------------------------------------------------------------------------------- 1 | 0 ICON "hsxicon.ico" 2 | -------------------------------------------------------------------------------- /src/epoc/demos_readme: -------------------------------------------------------------------------------- 1 | Do you wish to install a set of 2 | sample hugs programs (about 100k)? 3 | -------------------------------------------------------------------------------- /src/epoc/epoc.h: -------------------------------------------------------------------------------- 1 | /* 2 | * Definitions for Epoc specific support functions 3 | * kept here to try to minimise impact on main source 4 | * files (hah!) 5 | * 6 | * Glenn Strong 7 | */ 8 | #include 9 | 10 | /* signal() is declared in the Epoc libc, but apparently 11 | * not defined. Figure that one out if you can. */ 12 | extern _sig_func_ptr signal (int,_sig_func_ptr); 13 | extern void strlwr(char *); 14 | 15 | -------------------------------------------------------------------------------- /src/epoc/epoc_input.h: -------------------------------------------------------------------------------- 1 | /* 2 | * Prototypes for simplistic implementation of readline 3 | * by Glenn Strong 4 | * 5 | */ 6 | extern void add_history(char *); 7 | extern char *readline(char *); 8 | 9 | -------------------------------------------------------------------------------- /src/epoc/eshell_readme: -------------------------------------------------------------------------------- 1 | Do you wish to install ESHELL 2 | (the Epoc command line shell) 3 | -------------------------------------------------------------------------------- /src/goal.h: -------------------------------------------------------------------------------- 1 | /* 2 | * Keeping track of progress towards a goal. 3 | */ 4 | #ifndef __GOAL_H__ 5 | #define __GOAL_H__ 6 | 7 | typedef long Target; 8 | extern Void setGoal Args((String,Target)); 9 | extern Void soFar Args((Target)); 10 | extern Void done Args((Void)); 11 | extern Void failed Args((Void)); 12 | 13 | #endif /* __GOAL_H__ */ 14 | -------------------------------------------------------------------------------- /src/machugs/MoreFilesExtras.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/machugs/MoreFilesExtras.c -------------------------------------------------------------------------------- /src/machugs/MoreFilesExtras.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/machugs/MoreFilesExtras.h -------------------------------------------------------------------------------- /src/machugs/Optimization.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/machugs/Optimization.h -------------------------------------------------------------------------------- /src/machugs/OptimizationEnd.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/machugs/OptimizationEnd.h -------------------------------------------------------------------------------- /src/machugs/hugs.mcp.xml: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/machugs/hugs.mcp.xml -------------------------------------------------------------------------------- /src/machugs/hugs.r: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/machugs/hugs.r -------------------------------------------------------------------------------- /src/msc/config.bat: -------------------------------------------------------------------------------- 1 | rem Copy saved copies of .\Makefile, .\config.h and .\options.h to .. 2 | 3 | copy .\Makefile .. 4 | copy .\config.h .. 5 | copy .\options.h .. 6 | 7 | -------------------------------------------------------------------------------- /src/msc/ffihugs.bat: -------------------------------------------------------------------------------- 1 | @echo off 2 | 3 | REM First build up the command line to pass on in %s% 4 | set s= 5 | :begin 6 | if '%1' == '' goto done 7 | set s=%s% %1 8 | shift 9 | goto begin 10 | :done 11 | 12 | 13 | REM Now figure out what to do 14 | if not "%VS71COMNTOOLS%" == "" call "%VS71COMNTOOLS%vsvars32.bat" > nul 15 | 16 | 17 | cl %s% 18 | -------------------------------------------------------------------------------- /src/msc/hugs.rc: -------------------------------------------------------------------------------- 1 | 0 ICON "hugsicon.ico" 2 | -------------------------------------------------------------------------------- /src/msc/runhugs.rc: -------------------------------------------------------------------------------- 1 | 0 ICON "hsxicon.ico" 2 | -------------------------------------------------------------------------------- /src/unix/.cvsignore: -------------------------------------------------------------------------------- 1 | BuildFFI 2 | config 3 | -------------------------------------------------------------------------------- /src/winhugs/DlgAbout.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/DlgAbout.c -------------------------------------------------------------------------------- /src/winhugs/DlgMain.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/DlgMain.c -------------------------------------------------------------------------------- /src/winhugs/Legacy.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/Legacy.c -------------------------------------------------------------------------------- /src/winhugs/Registry.h: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /src/winhugs/RtfWindow.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | void RtfWindowInit(HWND hNewRTF); 4 | void RtfWindowUpdateFont(); 5 | void RtfWindowTextColor(int Color); 6 | void RtfWindowPutChar(char c); 7 | void RtfWindowPutChars(char* s); 8 | BOOL RtfNotify(HWND hDlg, NMHDR* nmhdr); 9 | int RtfWindowCanCutCopy(); 10 | void RtfWindowClipboard(UINT Msg); 11 | 12 | void RtfWindowClear(); 13 | void RtfWindowDelete(); 14 | void RtfWindowHistory(int Delta); 15 | void RtfWindowSelectAll(); 16 | void RtfWindowStartOutput(); 17 | void RtfWindowStartInput(); 18 | -------------------------------------------------------------------------------- /src/winhugs/Winmenu.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/Winmenu.h -------------------------------------------------------------------------------- /src/winhugs/installer/BlueZip/Errors.h: -------------------------------------------------------------------------------- 1 | //Error messages, with descriptive text 2 | //Can be turned off with the command 3 | //Can either send the text, or 0xffffffff 4 | 5 | -------------------------------------------------------------------------------- /src/winhugs/installer/BlueZip/General.cpp: -------------------------------------------------------------------------------- 1 | #include "BlueHead.h" 2 | 3 | LPTSTR CopyString(LPCTSTR s) 4 | { 5 | const int i = strlen(s); 6 | LPTSTR res = new char[i+1]; 7 | memcpy(res, s, i+1); 8 | return res; 9 | } 10 | -------------------------------------------------------------------------------- /src/winhugs/installer/BlueZip/General.h: -------------------------------------------------------------------------------- 1 | 2 | LPTSTR CopyString(LPCTSTR s); 3 | -------------------------------------------------------------------------------- /src/winhugs/installer/BlueZip/fList.h: -------------------------------------------------------------------------------- 1 | 2 | #ifndef NO_COMPRESSION 3 | 4 | class fList 5 | { 6 | public: 7 | char* FileName; 8 | fList* next; 9 | 10 | fList(LPCTSTR FileName, fList* prev); 11 | ~fList(); 12 | zList* ZipUp(File f, bool Store); 13 | }; 14 | 15 | #endif //!NO_COMPRESSION 16 | 17 | -------------------------------------------------------------------------------- /src/winhugs/installer/BlueZip/zList.h: -------------------------------------------------------------------------------- 1 | // Structures for in-memory file information 2 | 3 | class __declspec(dllexport) zList 4 | { 5 | public: 6 | datCentral data; 7 | 8 | char* FileName; //File name in zip file 9 | char* Extra; //Extra in central 10 | char* Comment; //Comment (set only if com != 0) 11 | 12 | bool Delete; //Should the file be removed on execute 13 | zList* next; 14 | 15 | zList(); 16 | ~zList(); 17 | 18 | void WriteCentral(File f); 19 | void ReadCentral(File f); 20 | 21 | void WriteLocal(File f); 22 | 23 | int OriginalSize(){return data.OrigSize;} 24 | int CompressedSize(){return data.CompSize;} 25 | long CRC(){return data.CRC;} 26 | }; 27 | -------------------------------------------------------------------------------- /src/winhugs/installer/FileCode.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | bool Exists(char* File); 4 | bool ExistsDir(char* File); 5 | bool CanReadWrite(char* File); 6 | void NormalPath(char* File); 7 | bool EnsureFolder(char* File); 8 | void DeleteFolders(); 9 | void FileSize(__int64 Size, char* Buffer); 10 | 11 | const int MaxFileSizeBuf = 10; 12 | -------------------------------------------------------------------------------- /src/winhugs/installer/Header.h: -------------------------------------------------------------------------------- 1 | #define WIN32_MEAN_AND_LEAN 2 | #include 3 | 4 | const int MyMaxPath = MAX_PATH * 2; 5 | -------------------------------------------------------------------------------- /src/winhugs/installer/InstallLog.h: -------------------------------------------------------------------------------- 1 | 2 | void StartInstallLog(char* File); 3 | void StopInstallLog(bool Delete); 4 | void WriteInstallLog(char* Format, ...); 5 | 6 | -------------------------------------------------------------------------------- /src/winhugs/installer/Installer.rc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/installer/Installer.rc -------------------------------------------------------------------------------- /src/winhugs/installer/Readme.txt: -------------------------------------------------------------------------------- 1 | Windows installer, slightly modified from the one for Pingus 2 | . Original and modifications by Neil Mitchell. 3 | 4 | Please avoid reformatting the source, as Neil wishes to coordinate 5 | the two versions. Hopefully the common bits will be split off into a 6 | separate package some time. 7 | -------------------------------------------------------------------------------- /src/winhugs/installer/Setup.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/installer/Setup.ico -------------------------------------------------------------------------------- /src/winhugs/installer/ShellCode.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | void ShellInit(); 4 | void ShellDest(); 5 | 6 | bool CreateDesktopShortcut(HWND hDlg, char* Folder); 7 | bool CreateStartMenuShortcut(HWND hDlg, char* Folder); 8 | void Browse(HWND hDlg, HWND hText); 9 | void GetProgramFiles(HWND hDlg, char* Buffer); 10 | bool RegisterFiletypes(HWND hDlg, char* Folder); 11 | void RegisterUninstall(HWND hDlg, char* Folder, DWORD Size); 12 | -------------------------------------------------------------------------------- /src/winhugs/installer/StartCode.cpp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/installer/StartCode.cpp -------------------------------------------------------------------------------- /src/winhugs/installer/WinHugs-Installer.manifest: -------------------------------------------------------------------------------- 1 | 2 | 3 | -------------------------------------------------------------------------------- /src/winhugs/installer/installer.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/installer/installer.bmp -------------------------------------------------------------------------------- /src/winhugs/options.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/options.h -------------------------------------------------------------------------------- /src/winhugs/register/make.bat: -------------------------------------------------------------------------------- 1 | cl register.c advapi32.lib shell32.lib ole32.lib uuid.lib 2 | -------------------------------------------------------------------------------- /src/winhugs/resource.h: -------------------------------------------------------------------------------- 1 | //{{NO_DEPENDENCIES}} 2 | // Microsoft Developer Studio generated include file. 3 | // Used by winhugs.rc 4 | // 5 | 6 | // Next default values for new objects 7 | // 8 | #ifdef APSTUDIO_INVOKED 9 | #ifndef APSTUDIO_READONLY_SYMBOLS 10 | #define _APS_NO_MFC 1 11 | #define _APS_NEXT_RESOURCE_VALUE 102 12 | #define _APS_NEXT_COMMAND_VALUE 40001 13 | #define _APS_NEXT_CONTROL_VALUE 1005 14 | #define _APS_NEXT_SYMED_VALUE 101 15 | #endif 16 | #endif 17 | -------------------------------------------------------------------------------- /src/winhugs/resource/button.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/button.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/classbmp.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/classbmp.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/classesd.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/classesd.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/copybutt.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/copybutt.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/cutbutto.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/cutbutto.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/datacons.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/datacons.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/datatype.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/datatype.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/deletebu.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/deletebu.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/disabled.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/disabled.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/editbutt.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/editbutt.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/exitbutt.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/exitbutt.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/gc.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/gc.cur -------------------------------------------------------------------------------- /src/winhugs/resource/hand.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/hand.cur -------------------------------------------------------------------------------- /src/winhugs/resource/helpbutt.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/helpbutt.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/hierarch.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/hierarch.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/hierbutt.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/hierbutt.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/hugs1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/hugs1.ico -------------------------------------------------------------------------------- /src/winhugs/resource/hugs2.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/hugs2.ico -------------------------------------------------------------------------------- /src/winhugs/resource/hugs32bm.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/hugs32bm.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/hugsdoc.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/hugsdoc.ico -------------------------------------------------------------------------------- /src/winhugs/resource/instance.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/instance.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/lambda.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/lambda.ico -------------------------------------------------------------------------------- /src/winhugs/resource/logo.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/logo.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/makebutt.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/makebutt.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/memberbm.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/memberbm.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/move.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/move.cur -------------------------------------------------------------------------------- /src/winhugs/resource/namebmp.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/namebmp.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/namesdlg.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/namesdlg.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/newtypeb.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/newtypeb.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/noassign.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/noassign.ico -------------------------------------------------------------------------------- /src/winhugs/resource/openfile.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/openfile.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/openproj.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/openproj.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/optionsb.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/optionsb.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/optionsd.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/optionsd.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/pastebut.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/pastebut.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/primbmp.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/primbmp.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/pushedbu.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/pushedbu.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/relobutt.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/relobutt.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/resizeco.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/resizeco.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/rt_manif.bin: -------------------------------------------------------------------------------- 1 | 2 | 3 | -------------------------------------------------------------------------------- /src/winhugs/resource/runbutto.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/runbutto.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/selector.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/selector.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/smanbutt.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/smanbutt.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/smand.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/smand.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/stopbutt.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/stopbutt.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/synonym.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/synonym.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/toolbar.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/toolbar.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/tyconsdl.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/tyconsdl.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/typecons.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/typecons.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/typesinb.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/typesinb.bmp -------------------------------------------------------------------------------- /src/winhugs/resource/winhugs.manifest: -------------------------------------------------------------------------------- 1 | 2 | 3 | -------------------------------------------------------------------------------- /src/winhugs/resource/world.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/resource/world.ico -------------------------------------------------------------------------------- /src/winhugs/uninstaller/Header.h: -------------------------------------------------------------------------------- 1 | #define WIN32_MEAN_AND_LEAN 2 | #include 3 | 4 | const int MyMaxPath = MAX_PATH * 2; 5 | 6 | typedef DWORD u32; 7 | typedef BYTE u8; 8 | typedef UINT uint; 9 | 10 | 11 | void InitCRC(); 12 | u32 GetCRC(); 13 | void CRC(const u8* buf, uint len); 14 | 15 | void DeleteOnReboot(LPCTSTR File); 16 | BOOL RegDelnode (HKEY hKeyRoot, LPTSTR lpSubKey); 17 | -------------------------------------------------------------------------------- /src/winhugs/uninstaller/LinkedList.cpp: -------------------------------------------------------------------------------- 1 | 2 | #include "header.h" 3 | #include "LinkedList.h" 4 | 5 | LinkedList* NewLinkedList(void* Data, LinkedList* Next) 6 | { 7 | LinkedList* l = new LinkedList; 8 | l->Data = Data; 9 | l->Next = Next; 10 | return l; 11 | } 12 | 13 | void** LinkedListToArray(LinkedList* Data, int* Size) 14 | { 15 | //first count them up 16 | int n = 0; 17 | for (LinkedList* i = Data; i != NULL; i = i->Next) 18 | n++; 19 | *Size = n; 20 | void** Res = new void*[n]; 21 | int j = 0; 22 | for (LinkedList* i = Data; i != NULL; i = i->Next) 23 | Res[j++] = i->Data; 24 | return Res; 25 | } 26 | 27 | -------------------------------------------------------------------------------- /src/winhugs/uninstaller/LinkedList.h: -------------------------------------------------------------------------------- 1 | 2 | 3 | struct LinkedList 4 | { 5 | void* Data; 6 | LinkedList* Next; 7 | }; 8 | 9 | LinkedList* NewLinkedList(void* Data, LinkedList* Next); 10 | void** LinkedListToArray(LinkedList* Data, int* Size); 11 | -------------------------------------------------------------------------------- /src/winhugs/uninstaller/LogReader.h: -------------------------------------------------------------------------------- 1 | 2 | // all the data in these structures is intentionally leaked 3 | 4 | struct Registry 5 | { 6 | HKEY Root; 7 | char* Path; 8 | }; 9 | 10 | struct File 11 | { 12 | char* FileName; 13 | u32 CRC; //0 means no CRC 14 | int Size; //-1 means no size 15 | 16 | //flags for the program 17 | bool Modified; 18 | }; 19 | 20 | struct Log 21 | { 22 | int nRegistry; 23 | int nFile; 24 | Registry** Registrys; 25 | File** Files; 26 | }; 27 | 28 | Log* ReadLog(char* Directory, char* FileName); 29 | -------------------------------------------------------------------------------- /src/winhugs/uninstaller/StartCode.cpp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/uninstaller/StartCode.cpp -------------------------------------------------------------------------------- /src/winhugs/uninstaller/Uninstaller.rc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/uninstaller/Uninstaller.rc -------------------------------------------------------------------------------- /src/winhugs/uninstaller/WinHugs-Uninstaller.manifest: -------------------------------------------------------------------------------- 1 | 2 | 3 | -------------------------------------------------------------------------------- /src/winhugs/uninstaller/logo.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/haskell-implementations/hugs/9e04492b2d9abfb9af2f600cd236b3b7561711e1/src/winhugs/uninstaller/logo.bmp --------------------------------------------------------------------------------