hoehrmann

#!perl -w
use strict;
use warnings;
use DBI;
use Data::Dumper;
use Storable qw(retrieve nstore);
use IO::File;

# Look up the canonical combining class as in the UCD
our %CCC;

hoehrmann

#!perl -w
use strict;
use warnings;
use DBI;
use IO::File;
use XML::Parser;

my %fields;
my @fields;

hoehrmann

////////////////////////////////////////////////////////////////////
//
// Copyright (C) 2007 Bjoern Hoehrmann <[email protected]>
//
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,

hoehrmann

/*
  cssanno.c -- annotate XML documents with CSS declarations

  Usage:

    cssanno file.xml file.css

  cssanno takes an XML document and a CSS style sheet and
  annotates the elements with new attributes representing
  the style declarations for the current element. Example:

hoehrmann

  package RFC3986;
  use strict;
  use warnings;
  
  sub parse {
    $_[0] =~ m|^(([^:/?\#]+):)?(//([^/?\#]*))?
                ([^?\#]*)(\?([^\#]*))?(\#(.*))?$|x;
  
  #  $_[0] =~ m|^(([a-zA-Z0-9+.-]+):)?(//([^/?\#]*))?
  #              ([^?\#]*)(\?([^\#]*))?(\#(.*))?$|x;

hoehrmann

#undef UNICODE
#include <Windows.h>
#include <WinInet.h>
#include <stdio.h>

#pragma comment(lib, "wininet.lib")

int
main(int argc, char *argv[]) {

hoehrmann

// This is the main DLL file.
#include "stdafx.h"
#include "Tidydotnet.h"

#include "t:/tidylib2/include/tidy.h"
#include "t:/tidylib2/include/buffio.h"

using namespace System;
using namespace System::Xml;
using namespace System::Text;

hoehrmann

<?xml version="1.0"?>
<c2x:stylesheet xmlns:c2x="http://xmlns.bjoern.hoehrmann.de/css2xml/0.1/">
  <c2x:ruleset>
    <c2x:selectors>
      <c2x:selector byte_offset="283" line="11" column="1">
        <c2x:simple byte_offset="283" line="11" column="1" combinator="0" type_mask="2"/>
      </c2x:selector>
    </c2x:selectors>
    <c2x:property name="padding" important="false" byte_offset="292" line="12" column="3">
      <c2x:terms>

hoehrmann

#!perl -w
use strict;
use warnings;
use URI::Escape 'uri_escape';

sub tool
{
  my $req = shift;
  return unless defined $req;

hoehrmann

#!perl -w

BEGIN
{
    $ENV{SP_CHARSET_FIXED} = 1;      
    $ENV{SP_ENCODING}      = "UTF-8";
    $ENV{SP_BCTF}          = "UTF-8";
}

sub ErrorHandler::new {bless {p=>$_[1]}, shift}