プチコンまとめWiki (初代/mkII)

Toukou/hTML の変更点

パンくずリスト


#title(投稿プログラム : hTML)
#contents
2012年11月11日投稿
/ 投稿者 : [[hatena>http://www1.atwiki.jp/hatena71869/pages/17.html]]
/ &tag(投稿プログラム,QRコード,mkII専用,マークアップ言語,ツール);
/ &tag(投稿プログラム,QRコード,mkII専用,ツール);

* 概要 [#Summary]
hTMLです。HTMLでなくhTMLです。&br;hTMLとはhatena Text Markup Languageの略です。&br;
hTMLは、HTML記法と全く似ていなくWiki記法の方が似ています。&br;
一文字ずつタグではないかチェックしているためか非常に動作は遅いです。&br;
スクロール機能がありプチコンが許す限り何行でも表示できます。

実行すると&basic{@PUTDATA};下のデータが表示されます。&br;
データは必ず&basic{###ENDPUTDATAHERE###};で終わるようにしてください。

**記法 [#hbf78ba7]
***引数無し [#k3ce7fee]
-​&basic{&BR;}; - 改行
-​&basic{&}; - &の表示
-​&basic{&FREEMEM;}; - システム変数FREEMEMの中身を表示します。
-​&basic{&FREEVAR;}; - システム変数FREEVARの中身を表示します。
-​&basic{&DATE;}; - システム変数DATE$の中身を表示します。
-​&basic{&TIME;}; - システム変数TIME$の中身を表示します。

***引数有り [#z14144ca]
-​&basic{&CHR(};'''ASCII-code = 0~255'''​&basic{);}; - アスキーコードに対応する文字を表示します。
-​&basic{&COLOR(};'''color-number = 0~15'''​&basic{);}; - 文字色の指定。
-​&basic{&HR(};'''str = 1 letter'''​&basic{);}; - 水平線の描画。

* QR コード [#QR]
プチコンmkII 向けの QR コードです。
|~&basic{PRG:HN_HTML};|
|&ref(ver1.00_qr000.png);|

* プログラムリスト [#List]
#region(プログラムリスト,close)
#basic{{
@PUTDATA
DATA"&COLOR(5);&HR(─);&COLOR(0);"
DATA"&BR;"
DATA"&COLOR(11);  ┻┛   ┷┷┷┷┷┷┷ ┷     ┷ ┷      &BR;"
DATA"&COLOR(11);  ┻┛      ┷    ┷┷   ┷┷ ┷      &BR;"
DATA"&COLOR(11);  ┻┛      ┷    ┷ ┷ ┷ ┷ ┷      &BR;"
DATA"&COLOR(11);  ┻┯┠┠    ┷    ┷ ┷ ┷ ┷ ┷      &BR;"
DATA"&COLOR(11);  ┻┣┏┷    ┷    ┷ ┷ ┷ ┷ ┷      &BR;"
DATA"&COLOR(11);  ┻┛ ┷    ┷    ┷ ┷ ┷ ┷ ┷      &BR;"
DATA"&COLOR(11);  ┻┛ ┷    ┷    ┷ ┷ ┷ ┷ ┷      &BR;"
DATA"&COLOR(11);  ┻┛ ┷    ┷    ┷  ┷  ┷ ┷┷┷┷┷┷┷&BR;"
DATA"&COLOR(0);"
DATA"&BR;"
DATA"&COLOR(11);h&COLOR(0);atena "
DATA"&COLOR(11);T&COLOR(0);ext "
DATA"&COLOR(11);M&COLOR(0);arkup "
DATA"&COLOR(11);L&COLOR(0);anguage&BR;"
DATA" Version  1.00&BR;"
DATA" FileName PRG:HN_HTML&BR;"
DATA" Auther   hatena"
DATA"&COLOR(5);&HR(─);&COLOR(0);"
DATA"&COLOR(13);・&COLOR(0);Thanks for using &COLOR(11);hTML&COLOR(0);.&BR;"
DATA"&COLOR(13);・&COLOR(0);&COLOR(11);hTML&COLOR(0); and HTML aren't the same.&BR;"
DATA"&COLOR(13);・&COLOR(0);&COLOR(11);hTML&COLOR(0); is for only プチコンmkII.&BR;"
DATA"&COLOR(13);・&COLOR(0);If you have troubles,&BR;
DATA"            tell hatena,please.&BR;"
DATA"&COLOR(3);・&COLOR(0);When you push the ↑ button,&BR;"
DATA"              it's scroll up.&BR;"
DATA"&COLOR(3);・&COLOR(0);When you push the ↓ button,&BR;"
DATA"              it's scroll down.&BR;"
DATA"&COLOR(3);・&COLOR(0);When you push the А button,&BR;"
DATA"              it's reload.&BR;"
DATA"&COLOR(5);&HR(─);&COLOR(0);"
DATA"   &CHR(68);ate : &COLOR(9);&DATE;&COLOR(0);&BR;"
DATA"   &CHR(84);ime : &COLOR(9);&TIME;&COLOR(0);&BR;"
DATA"Freemem : &COLOR(9);&FREEMEM;&COLOR(0);&BR;"
DATA"Freevar : &COLOR(9);&FREEVAR;&COLOR(0);&BR;"
DATA"&COLOR(5);&HR(─);&COLOR(0);"
DATA"###ENDPUTDATAHERE###"

GOSUB@INI
GOSUB@SET
GOSUB@PUT
GOTO@MAINLOOP

END

@MAINLOOP
 PGET=GET-CSRXMAX-3
 IF (BUTTON() AND  2) THEN PUTST=PUTST+1: PUTST=PUTST*!(PUTST>PGET)+(PGET)*(PUTST>PGET):GOSUB@PUT
 IF (BUTTON() AND  1) THEN PUTST=PUTST-1: PUTST=PUTST*!(PUTST<0):GOSUB@PUT
 IF (BUTTON() AND 16) THEN GOSUB@PUT
 VSYNC 1
GOTO@MAINLOOP

@INI
 CLEAR
 PUTMAX=10000
  DIM PUT$(PUTMAX)
 EPDH$="###ENDPUTDATAHERE###"
 CSRXMAX=24
 CSRYMAX=32
RETURN

@SET
 ACLS
 RESTORE@PUTDATA
 FOR I=0 TO PUTMAX-1
  READ BPUT$
  IF BPUT$==EPDH$ THEN GET=I:I=PUTMAX-1 ELSE PUT$(I)=BPUT$
 NEXT
RETURN

@PUT
 CLS
 FOR I=PUTST TO PUTST+CSRXMAX+2
  FOR J=0 TO LEN(PUT$(I))-1
   CPUT$=MID$(PUT$(I),J,1)
   IF CPUT$=="&" THEN GOSUB@SPCHECK ELSE ? CPUT$;
  NEXT
 NEXT
RETURN

@SPCHECK
 IF MID$(PUT$(I),J+1,4)=="AMP;" THEN J=J+4:?"&";:RETURN
 IF MID$(PUT$(I),J+1,3)=="BR;" THEN J=J+3:?"":RETURN
 IF MID$(PUT$(I),J+1,5)=="DATE;" THEN J=J+5:? DATE$;:RETURN
 IF MID$(PUT$(I),J+1,5)=="TIME;" THEN J=J+5:? TIME$;:RETURN
 IF MID$(PUT$(I),J+1,8)=="FREEMEM;" THEN J=J+8:? FREEMEM;:RETURN
 IF MID$(PUT$(I),J+1,8)=="FREEVAR;" THEN J=J+8:? FREEVAR;:RETURN

 IF MID$(PUT$(I),J+1,5)=="COLOR" THEN GOSUB@SP_COLOR:RETURN
 IF MID$(PUT$(I),J+1,2)=="HR" THEN GOSUB@SP_HR:RETURN
 IF MID$(PUT$(I),J+1,3)=="CHR" THEN GOSUB@SP_CHR:RETURN

 ?"Error[";I+1;",&,Syntax]":END
RETURN

@SP_COLOR
 J=J+6
 IF MID$(PUT$(I),J,1)!="(" THEN ?"Error[";I+1;",&COLOR,Syntax]":END
 J=J+1
 CPUT$=MID$(PUT$(I),J,2)
 IF LEN(STR$(VAL(CPUT$)))==2 THEN J=J+1
 IF VAL(CPUT$)<0  THEN ?"Error[";I+1;",&COLOR,COLOR<0]":END
 IF VAL(CPUT$)>15 THEN ?"Error[";I+1;",&COLOR,COLOR>15]":END
 COLOR VAL(CPUT$)
 J=J+1
 CPUT$=MID$(PUT$(I),J,2)
 IF CPUT$==");" THEN J=J+1:RETURN ELSE ?"Error[";I+1;",&COLOR,Syntax]":END
RETURN

@SP_HR
 J=J+3
 IF MID$(PUT$(I),J,1)!="(" THEN ?"Error[";I+1;",&HR,Syntax]":END
 J=J+1
 IF CSRX THEN ?""
 ? MID$(PUT$(I),J,1)*(CSRYMAX-1)
 J=J+1
 CPUT$=MID$(PUT$(I),J,2)
 IF CPUT$==");" THEN J=J+1:RETURN ELSE ?"Error[";I+1;",&HR,Syntax]":END
RETURN

@SP_CHR
 J=J+4
 IF MID$(PUT$(I),J,1)!="(" THEN ?"Error[";I+1;",&CHR,Syntax]":END
 J=J+1
 CPUT$=STR$(VAL(MID$(PUT$(I),J,3)))
 IF VAL(CPUT$)<0  THEN ?"Error[";I+1;",&CHR,ASCII<0]":END
 IF VAL(CPUT$)>255  THEN ?"Error[";I+1;",&CHR,ASCII>255]":END
 J=J+(2*(LEN(CPUT$)==3))+(1*(LEN(CPUT$)==2))+1
 ? CHR$(VAL(CPUT$));
 CPUT$=MID$(PUT$(I),J,2)
 IF CPUT$==");" THEN J=J+1:RETURN ELSE ?"Error[";I+1;",&CHR,Syntax]":END
RETURN
}}
#endregion

*開発情報 [#pcb1dbb7]
2012/11/11現在の最新バージョンは1.00です。

**バグ情報 [#dc80904b]
バグを発見された方は[[CHECKER FLAG (ひとことコメント)>Toukou/hTML#Comments]]にてご報告お願いします。
-(無し)

**開発履歴 [#xbff578e]
-2012/11/11 ver1.00公開

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
//- ''はうむめ'' : ? (&new{2012/11/11 (日) 18:54:40};)
//- ''hatena(投稿者)'' : はうむめさん、どうされましたか? (&new{2012/11/11 (日) 22:57:39};)
//- ''名無しさん'' : ・・・・・・・・・・・。 (&new{2012/11/13 (火) 01:48:13};)
//- ''名無しさん'' : zzz... (&new{2012/11/13 (火) 01:48:28};)
- ''涼季遊'' : 個人的にCHR形式のhTMLを読み込むバージョンを作ってみたんですが、公開してOK? (&new{2012/11/20 (火) 08:30:14};)
-- ''hatena(投稿者)'' : はい。CHR形式のhTMLを読み込むバージョンの公開を許可致します。 (&new{2012/12/03 (月) 20:22:18};)
- ''nao112641433'' : 似たようなものでpplを出す予定w (&new{2013/01/24 (木) 16:47:15};)

#comment

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.009 秒 | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30