| #!/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 |
| } |