#!/bin/perl | |
## Licensed to the Apache Software Foundation (ASF) under one | |
## or more contributor license agreements. See the NOTICE file | |
## distributed with this work for additional information | |
## regarding copyright ownership. The ASF licenses this file | |
## to you under the Apache License, Version 2.0 (the | |
## "License"); you may not use this file except in compliance | |
## with the License. You may obtain a copy of the License at | |
## | |
## http://www.apache.org/licenses/LICENSE-2.0 | |
## | |
## Unless required by applicable law or agreed to in writing, software | |
## distributed under the License is distributed on an "AS IS" BASIS, | |
## WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | |
## See the License for the specific language governing permissions and | |
## limitations under the License. | |
# Grammar HTML to a form of HTML suitable for cut&paste as fragments. | |
# Remove definition links. | |
# In <code class="gRuleHead"> | |
# <a id="XXX" name="XXX"> ==> <a href="#XXX"> or id="fragXXX" | |
# | |
# ?? | |
# In <code class="gRuleBody"> | |
# <a href="#XXX"> => <a href="#fragXXX"> | |
$DOC = 1 ; | |
if ( $DOC ) | |
{ | |
print <<'EOF' | |
<?xml version="1.0" encoding="utf-8"?> | |
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> | |
<html> | |
<head> | |
<title>SPARQL Grammar Fragments</title> | |
<link rel="stylesheet" type="text/css" href="http://www.w3.org/StyleSheets/TR/base.css" /> | |
<link rel="stylesheet" type="text/css" href="http://www.w3.org/2001/sw/DataAccess/rq23/local.css" /> | |
</head> | |
<body> | |
EOF | |
} | |
while(<>) | |
{ | |
s/\<a id="([^=\"]*)" name="([^=\"]*)"\>/<a href="#$1">/ ; | |
print ; | |
} | |
if ( $DOC ) | |
{ | |
print <<'EOF' | |
</body> | |
</html> | |
EOF | |
} |