Changeset 7579
- Timestamp:
- 10/12/05 17:11:11 (3 years ago)
- Files:
-
- 29 modified
-
Makefile.PL (modified) (1 diff)
-
Pugs.cabal.in (modified) (1 diff)
-
inc/Module/Install/Pugs.pm (modified) (2 diffs)
-
src/Data/Yaml/Syck.hsc (modified) (1 diff)
-
src/Pugs/AST.hs (modified) (1 diff)
-
src/Pugs/AST/Internals.hs (modified) (1 diff)
-
src/Pugs/CodeGen/Binary.hs (modified) (1 diff)
-
src/Pugs/CodeGen/JSON.hs (modified) (1 diff)
-
src/Pugs/CodeGen/PIL.hs (modified) (1 diff)
-
src/Pugs/CodeGen/PIR.hs (modified) (1 diff)
-
src/Pugs/CodeGen/Perl5.hs (modified) (1 diff)
-
src/Pugs/Compile.hs (modified) (1 diff)
-
src/Pugs/Embed/Perl5.hs (modified) (2 diffs)
-
src/Pugs/Eval.hs (modified) (1 diff)
-
src/Pugs/Eval/Var.hs (modified) (1 diff)
-
src/Pugs/Lexer.hs (modified) (1 diff)
-
src/Pugs/Parser.hs (modified) (1 diff)
-
src/Pugs/Parser/Number.hs (modified) (1 diff)
-
src/Pugs/Pretty.hs (modified) (1 diff)
-
src/Pugs/Prim.hs (modified) (1 diff)
-
src/Pugs/Prim/Match.hs (modified) (1 diff)
-
src/Pugs/Prim/Numeric.hs (modified) (1 diff)
-
src/Pugs/Prim/Yaml.hs (modified) (1 diff)
-
src/Pugs/Rule/Char.hs (modified) (1 diff)
-
src/Pugs/Rule/Token.hs (modified) (1 diff)
-
src/perl5/p5embed.c (modified) (1 diff)
-
src/perl5/pugsembed.c (modified) (1 diff)
-
src/syck/yaml2byte.c (modified) (1 diff)
-
util/yaml_harness.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
Makefile.PL
r7572 r7579 366 366 367 367 .hsc.hs : 368 $hsc2hs $hsc2hs_flags \$<368 \$(PERL) -MFile::Spec -e'my (undef, \$\$dir, \$\$file) = File::Spec->splitpath("\$<"); chdir("\$\$dir"); system("$hsc2hs $hsc2hs_flags \$\$file");' 369 369 370 370 .SUFFIXES: .hs-drift .hs -
Pugs.cabal.in
r7476 r7579 21 21 extra-lib-dirs: __LIB_DIRS__ 22 22 extensions: ForeignFunctionInterface 23 includes: syck.h pcre.h 24 include-dirs: . src/pcre src/cbits src/perl5 src/syck src/cbits src __INCLUDE_DIRS__ 23 include-dirs: __INCLUDE_DIRS__ 25 24 hs-source-dir: src 26 25 other-modules: Data.Yaml.Syck DrIFT.Binary DrIFT.JSON DrIFT.Perl5 RRegex RRegex.PCRE RRegex.Syntax System.FilePath UTF8 Unicode -
inc/Module/Install/Pugs.pm
r7449 r7579 163 163 . 164 164 } 165 my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/syck -Lsrc/pcre -I. -Isrc -Isrc/pcre -Isrc/syck "; 165 # my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/syck -Lsrc/pcre -I. -Isrc -Isrc/pcre -Isrc/syck "; 166 my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/syck -Lsrc/pcre "; 166 167 $ghc_flags .= " -i. -isrc -isrc/pcre -isrc/syck -static "; 167 168 $ghc_flags .= " -Wall " # -package-name Pugs -odir dist/build/src -hidir dist/build/src " … … 171 172 if $self->is_extension_build; 172 173 if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /perl5/i) { 173 $ghc_flags .= " -isrc/perl5 -Isrc/perl5 "; 174 # $ghc_flags .= " -isrc/perl5 -Isrc/perl5 "; 175 $ghc_flags .= " -isrc/perl5 "; 174 176 $ghc_flags .= join(' ', grep { m{^/} or m{^-[DILl]} or m{^-Wl,-R} } 175 177 split (' ', `$^X -MExtUtils::Embed -e ccopts,ldopts`)); -
src/Data/Yaml/Syck.hsc
r2808 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -fvia-C #-} 2 #include <syck.h>2 #include "../../syck/syck.h" 3 3 4 4 module Data.Yaml.Syck ( -
src/Pugs/AST.hs
r7035 r7579 1 1 {-# OPTIONS_GHC -cpp -fglasgow-exts -fno-warn-orphans -funbox-strict-fields #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../UnicodeC.h" #-} 3 3 4 4 {-| -
src/Pugs/AST/Internals.hs
r7544 r7579 1 1 {-# OPTIONS_GHC -cpp -fglasgow-exts -fno-warn-orphans -funbox-strict-fields #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 module Pugs.AST.Internals ( -
src/Pugs/CodeGen/Binary.hs
r6257 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 module Pugs.CodeGen.Binary (genBinary) where -
src/Pugs/CodeGen/JSON.hs
r6257 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 module Pugs.CodeGen.JSON (genJSON) where -
src/Pugs/CodeGen/PIL.hs
r6248 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 module Pugs.CodeGen.PIL (genPIL) where -
src/Pugs/CodeGen/PIR.hs
r7281 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 {-| -
src/Pugs/CodeGen/Perl5.hs
r6257 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 module Pugs.CodeGen.Perl5 (genPerl5) where -
src/Pugs/Compile.hs
r6801 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../UnicodeC.h" #-} 3 3 4 4 {-| -
src/Pugs/Embed/Perl5.hs
r7553 r7579 65 65 #else 66 66 67 {-# INCLUDE <p5embed.h>#-}68 {-# INCLUDE <pugsembed.h>#-}67 {-# INCLUDE "../../perl5/p5embed.h" #-} 68 {-# INCLUDE "../../perl5/pugsembed.h" #-} 69 69 70 70 module Pugs.Embed.Perl5 where … … 91 91 foreign import ccall "perl.h boot_DynaLoader" 92 92 boot_DynaLoader :: Ptr () -> IO () 93 foreign import ccall " p5embed.h perl5_finalize"93 foreign import ccall "../../perl5/p5embed.h perl5_finalize" 94 94 perl5_finalize :: PerlSV -> IO () 95 foreign import ccall " p5embed.h perl5_SvPV"95 foreign import ccall "../../perl5/p5embed.h perl5_SvPV" 96 96 perl5_SvPV :: PerlSV -> IO CString 97 foreign import ccall " p5embed.h perl5_SvIV"97 foreign import ccall "../../perl5/p5embed.h perl5_SvIV" 98 98 perl5_SvIV :: PerlSV -> IO CInt 99 foreign import ccall " p5embed.h perl5_SvNV"99 foreign import ccall "../../perl5/p5embed.h perl5_SvNV" 100 100 perl5_SvNV :: PerlSV -> IO CDouble 101 foreign import ccall " p5embed.h perl5_SvTRUE"101 foreign import ccall "../../perl5/p5embed.h perl5_SvTRUE" 102 102 perl5_SvTRUE :: PerlSV -> IO Bool 103 foreign import ccall " p5embed.h perl5_newSVpv"103 foreign import ccall "../../perl5/p5embed.h perl5_newSVpv" 104 104 perl5_newSVpv :: CString -> IO PerlSV 105 foreign import ccall " p5embed.h perl5_newSViv"105 foreign import ccall "../../perl5/p5embed.h perl5_newSViv" 106 106 perl5_newSViv :: CInt -> IO PerlSV 107 foreign import ccall " p5embed.h perl5_newSVnv"107 foreign import ccall "../../perl5/p5embed.h perl5_newSVnv" 108 108 perl5_newSVnv :: CDouble -> IO PerlSV 109 foreign import ccall " p5embed.h perl5_get_sv"109 foreign import ccall "../../perl5/p5embed.h perl5_get_sv" 110 110 perl5_get_sv :: CString -> IO PerlSV 111 foreign import ccall " p5embed.h perl5_apply"111 foreign import ccall "../../perl5/p5embed.h perl5_apply" 112 112 perl5_apply :: PerlSV -> PerlSV -> Ptr PerlSV -> PugsVal -> CInt -> IO (Ptr PerlSV) 113 foreign import ccall " p5embed.h perl5_can"113 foreign import ccall "../../perl5/p5embed.h perl5_can" 114 114 perl5_can :: PerlSV -> CString -> IO Bool 115 foreign import ccall " p5embed.h perl5_eval"115 foreign import ccall "../../perl5/p5embed.h perl5_eval" 116 116 perl5_eval :: CString -> PugsVal -> CInt -> IO PerlSV 117 foreign import ccall " p5embed.h perl5_init"117 foreign import ccall "../../perl5/p5embed.h perl5_init" 118 118 perl5_init :: CInt -> Ptr CString -> IO PerlInterpreter 119 119 120 foreign import ccall " pugsembed.h pugs_getenv"120 foreign import ccall "../../perl5/pugsembed.h pugs_getenv" 121 121 pugs_getenv :: IO PugsVal 122 foreign import ccall " pugsembed.h pugs_setenv"122 foreign import ccall "../../perl5/pugsembed.h pugs_setenv" 123 123 pugs_setenv :: PugsVal -> IO () 124 124 125 foreign import ccall " pugsembed.h pugs_SvToVal"125 foreign import ccall "../../perl5/pugsembed.h pugs_SvToVal" 126 126 pugs_SvToVal :: PerlSV -> IO PugsVal 127 foreign import ccall " pugsembed.h pugs_MkValRef"127 foreign import ccall "../../perl5/pugsembed.h pugs_MkValRef" 128 128 pugs_MkValRef :: PugsVal -> IO PerlSV 129 129 -
src/Pugs/Eval.hs
r7565 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -cpp #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../UnicodeC.h" #-} 3 3 4 4 {-| -
src/Pugs/Eval/Var.hs
r7337 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -cpp #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 module Pugs.Eval.Var ( -
src/Pugs/Lexer.hs
r6432 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../UnicodeC.h" #-} 3 3 4 4 {-| -
src/Pugs/Parser.hs
r7575 r7579 1 1 {-# OPTIONS_GHC -cpp -fglasgow-exts -funbox-strict-fields -fno-full-laziness -fno-cse #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../UnicodeC.h" #-} 3 3 4 4 {-| -
src/Pugs/Parser/Number.hs
r6290 r7579 1 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}1 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 2 2 3 3 module Pugs.Parser.Number ( -
src/Pugs/Pretty.hs
r7541 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../UnicodeC.h" #-} 3 3 4 4 {-| -
src/Pugs/Prim.hs
r7552 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -fno-warn-orphans -fno-full-laziness -fno-cse #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../UnicodeC.h" #-} 3 3 4 4 {-| -
src/Pugs/Prim/Match.hs
r7551 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -fno-warn-orphans #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 module Pugs.Prim.Match ( -
src/Pugs/Prim/Numeric.hs
r5388 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -fno-warn-orphans #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 module Pugs.Prim.Numeric ( -
src/Pugs/Prim/Yaml.hs
r2961 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts -fno-warn-orphans #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 module Pugs.Prim.Yaml ( -
src/Pugs/Rule/Char.hs
r2009 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 ----------------------------------------------------------------------------- -
src/Pugs/Rule/Token.hs
r2610 r7579 1 1 {-# OPTIONS_GHC -fglasgow-exts #-} 2 {-# OPTIONS_GHC -#include " UnicodeC.h" #-}2 {-# OPTIONS_GHC -#include "../../UnicodeC.h" #-} 3 3 4 4 ----------------------------------------------------------------------------- -
src/perl5/p5embed.c
r7413 r7579 1 #include <p5embed.h>1 #include "p5embed.h" 2 2 #include <XSUB.h> 3 3 #include "perlxsi.c" -
src/perl5/pugsembed.c
r6793 r7579 1 #include <pugsembed.h>1 #include "pugsembed.h" 2 2 extern int __init; 3 3 -
src/syck/yaml2byte.c
r2786 r7579 10 10 * ANYMORE! -- WHY HAS EMBRACED THIS AS THE REAL THING! 11 11 */ 12 #include <syck.h>12 #include "syck.h" 13 13 #include <assert.h> 14 14 #define YAMLBYTE_UTF8 -
util/yaml_harness.pl
r7474 r7579 23 23 use File::Spec; 24 24 our @ISA = qw(Test::TAP::Model); 25 our $SMOKERFILE = " .smoker.yml";25 our $SMOKERFILE = "debian/smoker.yml"; 26 26 27 27 $| = 1;
