#!/usr/bin/perl -w
# this has been edited to fit chromatic's suggestions below
use strict;
my $scs = shift or die "Usage: $0 <scsfile>\n";
(my $css = $scs) =~ s/\.scs\z/.css/;
open(SCSFILE, "<$scs") or die "$!: cannot read $scs";
open(CSSFILE, ">$css") or die "$!: cannot write to $css";
my @scheme = <SCSFILE>;
chomp @scheme;
close(SCSFILE);
select(CSSFILE);
print<<"EOF";
/*** Webcpp 0.6.0+ compatible StyleSheet http://webcpp.sf.net ***/
body {background-color: $scheme[0]}
a:link {color:$scheme[5]}
a:visited {color:$scheme[6]}
a:active {color:$scheme[3]}
a:hover {color:$scheme[1]}
pre {
color: $scheme[2];
font-size:100%
}
font {font-size:100%}
font.preproc { /* preprocessor */
color: $scheme[1];
font-size:100%
}
font.nortext { /* normal text */
color: $scheme[2];
font-size:100%
}
font.keyword { /* keyword */
color: $scheme[3];
font-weight: bold;
font-size:100%
}
font.numbers { /* number */
color: $scheme[4];
font-size:100%
}
font.strings { /* string */
color: $scheme[5];
font-size:100%
}
font.comment { /* comment */
color: $scheme[6];
font-style: italic;
font-size:100%
}
EOF
close(CSSFILE);
select(STDOUT);
print("woo-hooo!!\n");
In reply to SCS2CSS
by staeryatz
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|