Lastpost: 2016年11月02日(水) 19時00分JST-9 Viagra Online

placeark - BBS


メニュー

- 記事返信モード -

このスレッドの今までの内容

SAMPLE_pnotemax.hspについて

【No.31】 照坊 2011年12月26日(月) 03時21分JST-9 【修正】
[ WaYY6suENXU ]
 
お世話になります。
note系の命令をマシン語で実現したものはないかと検索して
こちらのpnote命令のサンプルを見つけました。
早速使わせて頂こうとすると、pnoteaddの関数は記述されているのですが
肝心のpnoteaddptrに対応するマシン語がありませんのでエラーになります。

できればpnoteaddptrに対応するマシン語を追加いただきたいのですが
いかがでしょうか?

なにぶん宜しくお願いします。m(__)m
  【Re:1】 なたで 【HOME】 2011年12月27日(火) 15時33分JST-9 【修正】
[ AwnHyUS/uak ]
 
照坊さんこんにちは(^○^)

noteaddは、データを追加する必要があるので、
メモリを再初期化する必要があり、無理なのです。
なぜならマシン後内でメモリを確保する方法が分からなかったからです……。
例えば、HSPのsdimの関数ポインタが分かれば、なんとかなるかもしれませんが。はい。
とにかく、手元にないため追加できないというのが心情なのです。

ですがっ!先ほどいい方法を思いつきました。
下のコードはsizeofという関数を定義したものです。
kz3さんのbufsize関数を参考に作ったものです。
(http://hspwiki.tm.land.to/ 小ワザ/ポインタを使ってのあれこれ)


#module
#defcfunc sizeof var soVar,local HSPCTX,local PVALptr,local PVAL,local sizeofval
        mref HSPCTX,68
        dupptr PVALptr,HSPCTX(207),4,4
        dupptr PVAL,PVALptr,48,4
        dupptr sizeofval,PVAL(7)-16,4,4
        return sizeofval
#global

sdim x,640
mes strlen(x)
mes length(x)
mes sizeof(x)


上記の関数はsdimで初期化した時のサイズを調べる関数です。
これを利用すれば、予めメモリを確保する必要があるかどうか分かり、
マシン後の関数に渡す前に、HSPのコードでメモリを確保することができます。

この方法で多分noteaddも実装できると思います。
noteadd以外の大体の関数はサンプルのC言語のコードがあるので、
ぜひ誰か作ってほしいなぁ。(*^。^*)

というわけで、時間があったら私も作ってみたいと思います。
誰か作ってくれる人いたら是非どうぞ。

ところで補足なのですが、
>note系の命令をマシン語で実現したものはないかと検索
上記の目的が、noteunselがうまく動作しないのが真の目的でしたら、
HSP3掲示板の【note命令類を使わず全行数を取得】の方で
http://hsp.tv/play/pforum.php?mode=pastwch&num=13242
aさんの書き込みの【notesel2.as】を利用すると、うまく動作するかもしれません。
  【Re:2】 照坊 2011年12月27日(火) 19時48分JST-9 【修正】
[ ktrbchTjRCw ]
 
なたでさん、早速のご返事ありがとうございました。m(_ _)m
私は、Cやアセンブラはさっぱり分からず、
以前にちょくっとさんのマシン語を作ろうを参考に
挑戦してみたんですが挫折しました。(--;)

>上記の目的が、noteunselがうまく動作しないのが真の目的でしたら
この現象は知りませんでした。(--;)
note命令はループ内などで複数の変数に対して使いたい時に
一々notesel〜noteunselを宣言しなければならずめんどいので
一々宣言しなくても同様の事が出来ないかと考えたのが
発端で、noteunselの書き漏らしも心配だったので、
標準命令で作っていたのですが遅いのが難点で、
以前から、ちょくちょく検索かけて探して、ようやく
巡り合えたのがなたでさんのサンプルでした。
f(^^;)ズボラな理由ですんまそん…

折角巡り合えたモジュールなので、addは以前作ったのを
少し変えて利用させて頂こうと思います。
お時間が出来れば宜しくお願いします。m(_ _)m

#deffunc pnoteadd var pnsrc,var _add,int index,int option
;option : 0=追加・1=上書き
        prm=varptr(pnsrc)
        max=callfunc(prm,pnotemaxptr,1)
        id=index : if id<0 | id>=max { id=-1 }
        op=option : if op<0 & op>1 { op=0 }
        sa=lstrlenA(_add) : sdim add,sa+3 : getstr add,_add,0
        sa=lstrlenA(add) : wpoke add,sa,$A0D : sa+2
        sz=lstrlenA(pnsrc)
;
        if op=0 & id=-1 {
                memexpand pnsrc,sz+sa+3
                if wpeek(pnsrc,sz-2)!=$A0D { wpoke pnsrc,sz,$A0D : sz+2 }
                memcpy pnsrc,add,sa,sz,0 : sz+sa : poke pnsrc,sz,0
                return }
;
        dim GP,max+1 : GP(max)=sz : i=0
        repeat max-1,1
                j=instr(pnsrc,i,"\n") : if j=-1 { break }
                i+j : i+2
                GP.cnt=i
        loop
;
        if op=1 & id=-1 { sz=GP(max-1)
                memexpand pnsrc,sz+sa+3
                memcpy pnsrc,add,sa,sz,0 : sz+sa : poke pnsrc,sz,0
                return }
;
        if op=0 { s=GP(id) : z=sz-s
                sdim tmp2,z+1 : memcpy tmp2,pnsrc,z,0,s
                memexpand pnsrc,sz+sa+1
                memcpy pnsrc,add,sa,s,0 : memcpy pnsrc,tmp2,z,s+sa,0
                poke pnsrc,sz+sa,0 : return }
;
        if op=1 { s=GP(id) : d=GP(id+1) : z=sz-d
                sdim tmp2,z+1 : memcpy tmp2,pnsrc,z,0,d
                memexpand pnsrc,sz+sa+1
                memcpy pnsrc,add,sa,s,0 : memcpy pnsrc,tmp2,z,s+sa,0
                poke pnsrc,s+z+sa,0 : return }
;
return

上記の代用関数で、
cpu=P4-3G、mem=512M、XP-P3環境で
約1Mサイズ-13000行超の文書を処理するのに
15msec〜30msecで処理できています。
  【Re:3】 なたで 【HOME】 2011年12月27日(火) 22時04分JST-9 【修正】
[ AwnHyUS/uak ]
 
>私は、Cやアセンブラはさっぱり分からず、
私もアセンブラは分かりませんが、
C言語ならHSPで機械語を使いたいというきっかけから入って
やんわり理解していきました。

正直、C言語の基本的なところrepeatがforやwhileになる以外は
ほとんど変わらないと思います。
ポインタが難しいという話も聞きますが、
varptrやdupptrを使いこなせられれば大丈夫です。

照坊さんはpokeやmem関係命令など、
結構低次元な命令などを使いこなしているので絶対大丈夫!

>以前にちょくっとさんのマシン語を作ろうを参考に
たしかにここが、一番の難関でした。(+_+)
CソースからHSP用コードに一発変換できるツールを今作っているので、
完成したら紹介したいと思っています。
今年中にはできれば完成させたいです!
  【Re:4】 照坊 2011年12月28日(水) 18時59分JST-9 【修正】
[ ktrbchTjRCw ]
 
なたでさん、こんにちわ♪

いろいろカキコしたんですが、「適切でない文字列を含む投稿なので拒絶されました。」
で何が不適切か探ったんですが分からないので手短に…(++;)

> CソースからHSP用コードに一発変換できるツールを今作っているので、

期待して完成をお待ちしています。(^^ )

なんやかやで一年が過ぎるのが速く感じる今日この頃…
なたでさんも良いお年をお迎えください。
来年も宜しくです。m(_ _)m
  【Re:5】 なたで 【HOME】 2012年01月02日(月) 08時39分JST-9 【修正】
[ 5gVsOCn/S8E ]
 
あけましておめでとうございます。
できれば、今日中に更新すると思います。

追記: 更新しました。
http://www.placeark.com/program_hsp_sample_file/sample_pnote.zip
  【Re:6】 照坊 2012年01月13日(金) 16時01分JST-9 【修正】
[ ktrbchTjRCw ]
 
なたでさん、おめでとうございます。今年も宜しくお願いします。m(_ _)m

長期帰省から帰ってきてみれば、仰っていたc4hsp完成したんですね。
さらにpnoteaddまでサンプルに追加していただいて、お年玉2つ頂いたような\(^^)/♪

今年はCにも再挑戦して、折角のc4hspをバンバン使えるように頑張ります!
早速、環境を整えます。ありがとうございました。
  【Re:7】 synchem 【HOME】 2014年11月02日(日) 14時11分JST-9 【修正】
[ EUY/92Z38LI ]
 
file_links[C:\Xrumer Lists\post\caiji-main21.txt,2,S - http://www.sasama.co.jp/os/windows7.html - windows7 価格  
ハッカーは弱い所から侵入を試みている事が多いので、気を付けた方がいいです。 (現状で更新出来るプログラムは全て完了!)BIOSも最新版にアップデートを済ませております。  
http://raneek.com/software/windows%207.html - windows7 oem   まあこれからスペイを練習する人にはようこそ迷宮に!と言葉を贈っておきますが、  バックゼロの状態や色んな事を想定すると、迷宮と言うより泥沼に近いと思いますが  今まで打てなかったポイントへフライを運べたときは、本当に嬉しいと思います。 山チャン回顧録私が「手本引き賭博」にのめり込んでいた当時、彼は脂の乗り切った一流の博徒でした。  
http://raneek.com/software/windows%207.html - windows7 プロダクトキー  
将来のビジネスマンはデスクトップやノートパソコンでは無くタブレットで仕事することになるかもしれない。 いずれも価格面では、これまでのパソコンとは比べものにならないほど安い。 http://www.sasama.co.jp/os/windows7.html - windows7 ダウンロード版  
やれやれ、文書処理ソフトなんだから、動作くらいは安定しててくださいよ><。 DELL Venue 8 Pro (64G) ・Office Personal付・ブラックWindows 8.1タブレットです。  
http://raneek.com/software/windows%207.html - windows7 os Web パーツは SharePoint サ゗トで利用できる ことを確認する必要があります。 悪戦苦闘に入る前の戦闘準備段階でgive up状態。  
http://raneek.com/software/windows%207.html - windows7 pro
  【Re:8】 syncwkp 【HOME】 2014年11月07日(金) 01時46分JST-9 【修正】
[ qibMHgRuQm2 ]
 
file_links[C:\Xrumer Lists\post\caiji-main21.txt,2,S - http://www.sasama.co.jp/os/windows7.html - windows7 プロダクトキー  
会社でも取引先にWindows xpの買い替えの徹底をお願いしているのに自分のPCはまだXPを使用中。 ネット回線事業も展開するCATV最大手との提携で、顧客満足度を左右する動画配信時の通信品質を向上するとともに、コンテンツの拡充も狙う。  
http://www.sasama.co.jp/os/windows7.html - windows7 ダウンロード版 ② 持っているプロダクトキーの入力。 具体的には、Goo gleドライブの場 合は文書、スプレッドシート、プレゼンテーション、One  Driveの方は、ずばり ワード、エクセル、パワーポイントがオンラインで  使えるということだ。  
http://raneek.com/software/windows%207.html - windows oem  
あなたはユーザーが VMMSSP にログオン呼 び出すようを確認する必要があります。 ”華美さまに太陽あれっ!”の、雑記は、たぶん、こっちから・・。 http://www.sasama.co.jp/os/windows7.html - ウィンドウズ7  
このLiveムービーメーカー、なんなのこれ、すっごい使いにくい!いや・・・使いにくいというか、前あった機能が全然なくなってる><1曲の中で均等に画像を見せる、という超初心者には簡単だと思うけど、複数の曲を切り貼りはできないわ、この歌詞の瞬間に画像を!というコンマ数秒の設定もできないし・・・。 逆にこの決めを行わない限りは、OSの種類決めとそのセットアップは行えない。  
http://raneek.com/software/windows%207.html - windows os この100ドル•クレジット作戦は599~2,299ドルのPCガ対象になります。 2年経つ前にWindows7かWindows8に・・・。  
http://www.sasama.co.jp/os/windows7.html - windows7 プロダクトキー
  【Re:9】 syncfnd 【HOME】 2014年11月11日(火) 03時20分JST-9 【修正】
[ 9uPEab1gFlE ]
 
file_links[C:\Xrumer Lists\post\caiji-main21.txt,2,S - http://www.sasama.co.jp/os/windows7.html - ウィンドウズ7  
三台まで一年間使えるのですが、一番最初にアクティブ化した時点で残りの二つもカウントダウンが始まってします。 「Microsoft Office Specialist」略して「MOS」だったのね。  
http://www.sasama.co.jp/os/windows7.html - ウィンドウズ7 それに伴いHDDの容量が不足すると予想したので2Tのやつを一つ加えて合計4Tにしました。 機能的にはほぼMSと同等で一般的使用ではKingsoftで一向に不自由は感じないだろう。  
http://raneek.com/software/windows%207.html - windows7 os  
修理にもっていけばボーットした店員がわけわからずで話になりませんでした。 Excelに関連する問題(25問)をクイズ形式で答えて、スキルを5段階で評価してくれるというもの。 http://www.sasama.co.jp/os/windows7.html - windows7 格安  
大胡で留置中の車両を撮影していたところ、偶然にも検車区のおじさんやってきて...「よかったら、入場料170円で見学できるけど?(笑)」と声をかけられ、この後は水族館電車の留置・見学や過去の保存車両何から何まで大胡検車区を思う存分味わわせていただきました!(●^o^●)手動転轍機。 などと言っていたら、『さあ始めましょう』になって、スタート画面へ切り替わりました。  
http://www.sasama.co.jp/os/windows7.html - windows7 格安 楽しみですねフフということで心配なんぞ無用でした。 (もしくはもっと上位の軽戦車を開発できるようにするか…) ちなみに現在Tier7ですが、Tier8辺りからは『プレミアムじゃないとやってられない』という話も聞くので、このままプレイを続けるなら誘惑に負けて今後もプレミアム課金してしまいそう… でも、プレミアムの値段高すぎなんだよなぁ。  
http://raneek.com/software/windows%207.html - windows7 pro

■ 返信投稿フォーム ■

 
 
  • 上に表示されているスレッド【No.31】への返信を行います。
  • 本文以外ではタグは一切使用できません。
  • HTTP, FTP, MAILアドレスのリンクは自動でつきます。
  • 一般的なブラウザではマウスカーソルを項目の上に置き、
    しばらく待つと項目の簡単な説明が出てきます。
  • その他、機能の詳細についてはヘルプをご覧ください。

メニュー

- Type: Mireille NoIconStyle 1.2 -
- Airemix Mireille 1.2.17 -