';
plushome_templete[1] = ' ';
plushome_templete[2] = ' ';
plushome_templete[3] = ' ';
plusend_templete[0] = '
|
';
plushome = ArrReady(plushome, larr.length);
plusend = ArrReady(plusend, larr.length);
// do -- end do
for (i=0; i< larr.length; i++){
if ( larr[i].match(/[^A-Za-z0-9_]do\s+[a-zA-Z]/i) && !larr[i].match(/[^A-Za-z0-9_]end\s?do($|[^A-Za-z0-9_])/i) ){
counta++;
plushome[i] = plushome_templete[counta % plushome_templete.length];
}
if ( larr[i].match(/[^A-Za-z0-9_]end\s?do($|[^A-Za-z0-9_])/i) ){
plusend[i] = plusend_templete[0];
}
}
// do # -- # continue ! 端末共有Do (Fortran90廃止予定事項)にも対応
for (i=0; i< larr.length; i++){
if ( larr[i].match(/[^A-Za-z0-9_]do\s+([0-9]+)\s/i) ){
counta++;
plushome[i] = plushome_templete[counta % plushome_templete.length];
temp = RegExp.$1 + " ";
for (j= i+1; j< larr.length; j++) {
if ( ( larr[j].slice(0,6).indexOf(temp) == 0 )||( larr[j].slice(0,6).indexOf(" " + temp) != -1 ) ) {
plusend[j] += plusend_templete[0];
}
// continue 以外の端末にも対応させるため、廃止。2009/ 4/13
// if ( ( larr[j].indexOf(temp) == 0 )||( larr[j].indexOf(" " + temp) != -1 ) ) {
// if ( larr[j].match(/[^A-Za-z0-9_]continue($|[^A-Za-z0-9_])/i) ){
// plusend[j] += plusend_templete[0];
// }
// }
}
}
}
arr = AddPlus(arr, larr, plushome, plusend);
return (arr);
}
function ArrReady(arr, size) {
var i;
for (i=0; i< size; i++){
arr[i] = "";
}
return (arr);
}
function If_Enclose(arr, larr) {
var plushome = new Array;
var plusend = new Array;
var plushome_templete = new Array;
var plusend_templete = new Array;
var counta = -1;
var i;
plushome_templete[0] = '';
plushome_templete[1] = ' ';
plushome_templete[2] = ' ';
plushome_templete[3] = ' ';
plusend_templete[0] = '
|
';
plushome = ArrReady(plushome, larr.length);
plusend = ArrReady(plusend, larr.length);
for (i=0; i< larr.length; i++){
if ( !larr[i].match(/[^A-Za-z0-9_]else\s?if($|[^A-Za-z0-9_])/i) && !larr[i].match(/[^A-Za-z0-9_]end\s?if[^A-Za-z0-9_]/i) && larr[i].match(/[^A-Za-z0-9_]if[^A-Za-z0-9_]/i) && larr[i].match(/[^A-Za-z0-9_]then($|[^A-Za-z0-9_])/i) ){
counta++;
plushome[i] = plushome_templete[counta % plushome_templete.length];
}
if ( larr[i].match(/[^A-Za-z0-9_]end\s?if($|[^A-Za-z0-9_])/i) ){
plusend[i] = plusend_templete[0];
}
}
arr = AddPlus(arr, larr, plushome, plusend);
return (arr);
}
function AddPlus(arr, larr, plushome, plusend) {
var i;
for (i=0; i< larr.length; i++){
if ( larr[i].match(/^&/i) ){
plusend[i] = plusend[i-1];
plusend[i-1] = "";
}
}
for (i=0; i< arr.length; i++){
if (plushome[i] == undefined) {
plushome[i] = "";
}
if (plusend[i] == undefined) {
plusend[i] = "";
}
arr[i] = plushome[i] + arr[i] + plusend[i];
}
return (arr);
}
function setLeveledSrc() {
// Global : LevSrc
var arr = new Array;
var src = Br2Yn_IE( $('src').innerHTML );
arr = src.split(/\r?\n/);
LevSrc = Leveling( arr );
}
function getLeveledSrc() {
// Global : LevSrc
return (LevSrc);
}
function Leveling( src_in ) {
// src はコード配列
var src = new Array;
var i = 123;
src = src_in;
// 改行の削除
for (i=0; i= 1; i--){
if (src[i].search(/^( )\S( *)(.*)$/) != -1){
if (src[i-1] == "c") { // コメント行で分離された複数行コードに対応する。
src[i-1] = src[i];
} else {
src[i-1] += RegExp.$3;
}
src[i] = '&';
}
}
// /複数行にまたがるコードをまとめる
// '...' を消す ※念のため ###
for (i=0; i';
$('upper_area').innerHTML = str;
}
function writeSrcTray() {
var str ="";
str += 'ソース';
str += '';
$('upper_area').innerHTML = str;
}
function Kensaku(obj, key, color, summaryid){
// 来歴: writing/keyword.html を改。
var i;
var str = "";
var TempArr = new Array;
if (key == "") {
return (obj);
}
TempArr = HighLightKey(obj, key, color);
$(summaryid).innerHTML = '
キーワードは、' +TempArr[1] +' 回 ソース中に出現します';
str += TempArr[0];
return (str);
}
function HighLightKey(obj, key, color) {
// 来歴: writing/keyword.html を改。
var TempArr = new Array;
TempArr = allReplace_wCounta(obj, key, '' + key + '');
return TempArr;
}
function allReplace_wCounta(text, sText, rText) {
// 来歴: writing/scripts.js
// 全置換する関数。（textの、sTextをrTextに置換）
// 浅桐静人さん( http://www.asahi-net.or.jp/~rb3r-ngi/ )による
// http://www.altum.jp/js/41.txt を一部改。
var dummy1 = "";
var dummy2 = text;
var dummy3 = "";
var index;
var counta = 0;
while (true) { // 無限ループ。
index = dummy2.indexOf(sText, 0); // 検索。
if (index == -1) {
break; // 検索文字列がなければループを抜ける。
}
if ( DirectTagInOut(dummy2, index) == 0) {
counta++;
dummy3 = dummy2.replace(sText, rText); // 置換。
dummy1 += dummy3.substring(0, index + rText.length);
dummy2 = dummy3.substring(index + rText.length, text.length);
// dummy1 は置換部分以前（置換部分含む）、
// dummy2 は置換部分以降 の文字列になる。
} else {
dummy3 = dummy2; // 置換しない。
dummy1 += dummy3.substring(0, index + sText.length);
dummy2 = dummy3.substring(index + sText.length, text.length);
// dummy1 は置換部分以前（置換部分含む）、
// dummy2 は置換部分以降 の文字列になる。
}
}
return [dummy1 + dummy2, counta]; // 置換後の文字列を返して終了。
}
function DirectTagInOut (text, p) {
// タグ内 : DirectTagInOut = 1;
// タグ外 : DirectTagInOut = 0;
var str = text;
var point = p;
var p_lt = str.indexOf("<", point);
var p_gt = str.indexOf(">", point);
if ((p_lt == -1) && ( point < p_gt) ) {
return ( 1 );
} else if ((point < p_gt) && ( p_gt < p_lt) ) {
return ( 1 );
}
return ( 0 );
}
function writeSrc() {
var arr = new Array;
var str = "";
var i;
arr = Br2Yn_IE( $('src').innerHTML ).split(/\r?\n/);
arr = CovertSp2Nbsp(arr); // IE対応のため
arr = addLineNo( arr );
for (i = 0; i < arr.length; i++) {
str += arr[i] + "\n";
}
str = Yn2Br_IE(str);
$('view_src').innerHTML = str;
}
function CovertSp2Nbsp(arr){
var i;
for (i = 0; i < arr.length; i++) {
arr[i] = arr[i].replace(/^\s/ig,' ');
while ( arr[i].match(/ \s/ig) ){
arr[i] = arr[i].replace(/ \s/ig,' ');
}
}
return (arr);
}
function StrWithLineNo(str) {
var arr = new Array;
var str_out = "";
var i;
arr = str.split(/\r?\n/);
arr = addLineNo( arr );
for (i = 0; i < arr.length; i++) {
str_out += arr[i] + "\n";
}
return (str_out);
}
function writeHeader() {
var arr = new Array;
var str = "";
var i;
arr = Br2Yn_IE( $('subfuncnote').innerHTML ).split(/\r?\n/);
if ( arr[1] ) {
str += "機能: " + arr[1] + " ";
}
if ( arr[2] ) {
str += "" + arr[2] + " ";
}
$('header').innerHTML = str;
}
// ====================
function OLD_allReplace_wCounta(text, sText, rText) {
// 来歴: writing/scripts.js
// 全置換する関数。（textの、sTextをrTextに置換）
// 浅桐静人さん( http://www.asahi-net.or.jp/~rb3r-ngi/ )による
// http://www.altum.jp/js/41.txt を一部改。
var dummy1 = "";
var dummy2 = text;
var dummy3 = "";
var index;
var counta = 0;
while (true) { // 無限ループ。
index = dummy2.indexOf(sText, 0); // 検索。
if (index == -1) {
break; // 検索文字列がなければループを抜ける。
}
counta++;
dummy3 = dummy2.replace(sText, rText); // 置換。
dummy1 += dummy3.substring(0, index + rText.length);
dummy2 = dummy3.substring(index + rText.length, text.length);
// dummy1 は置換部分以前（置換部分含む）、
// dummy2 は置換部分以降 の文字列になる。
}
return [dummy1 + dummy2, counta]; // 置換後の文字列を返して終了。
}
|
|
|
|
|
|