mieki256's diary

; notesel, noteload, notesave のテスト
; .ini を読んで、値を少し変えて、また .ini に書き戻してみる

; #uselib "kernel32"
; #func GetModuleFileName "GetModuleFileNameA" int, int, int

#define INI_FILE    "notesel_test.ini"
#packopt name       "notesel_test"  ; exe filename
#packopt type       0               ; generate ".exe"

; ----------------------------------------
; load ini file

ini_filepath = INI_FILE
mes "Load " + ini_filepath + "\n"

buf = ""
notesel buf

exist ini_filepath      ; ファイル存在チェック
if strsize = -1 {
    ; not found ini file
    dialog "Not found " + ini_filepath, 0
    end
} else {
    ; iniファイルを読み込む
    noteload ini_filepath
    mes buf

    ; 1行ずつ内容を解析して記録
    sdim ld, 512
    repeat notemax
        noteget ld, cnt     ; 1行分を取得
        
        if instr(ld, 0, "test1=") >= 0 {
            split ld, "=", kind, cmd
            test1 = int(cmd)
        }
        if instr(ld, 0, "test2=") >= 0 {
            split ld, "=", kind, cmd
            test2 = int(cmd)
        }
    loop
}

noteunsel

mes "test1=" + test1
mes "test2=" + test2

; ----------------------------------------
; change value

wait 100

test1 += 1
test2 += 1

mes "\nAdd +1"
mes "test1=" + test1
mes "test2=" + test2

wait 100

; ----------------------------------------
; save ini file

buf = ""
notesel buf
noteadd "test1=" + test1
noteadd "test2=" + test2
notesave ini_filepath

dialog "Save " + ini_filepath, 0
mes "\nSave " + ini_filepath

wait 200
end

test1=17
test2=25

• EDGE2 1.16 dev011 のパレットウインドウでは、カンマ区切りのcsv、タブ区切りテキストファイルを開ける。
• EDGE 1.29b のパレットウインドウでは、カンマ区切りのtxtを読み込むことができる。

┌─┬─┬┬─┬─┬─┬─┬┬─┬┬─┬─┐
│  │S ││D │  │  │G ││H ││J │  │
│  └┬┘└┬┘  │  └┬┘└┬┘└┬┘  │
│ Z  │ X  │ C  │ V  │ B  │ N  │ M  │
└──┴──┴──┴──┴──┴──┴──┘

sfx(id, "E-4")

$ lsb_release -a
No LSB modules are available.
Distributor ID: Raspbian
Description:    Raspbian GNU/Linux 9.1 (stretch)
Release:        9.1
Codename:       stretch

$ uname -a
Linux raspi0w 4.9.56+ #1044 Fri Oct 13 15:17:45 BST 2017 armv6l GNU/Linux

sudo apt-get install libgtk2.0-dev
sudo apt-get install libglew-dev
sudo apt-get install libsdl1.2-dev libsdl-image1.2-dev libsdl-mixer1.2-dev libsdl-ttf2.0-dev

mkdir ~/hsp
cd ~/hsp
wget http://www.onionsoft.net/hsp/file/hsplinux35.tgz
tar zxvf hsplinux35.tgz
cd hsplinux35

make -f makefile.raspbian

g++ -Wall -std=c++11 --exec-charset=UTF-8 -DHSPLINUX -DHSPDEBUG src/hspcmp/main.o src/hspcmp/token.o src/hspcmp/linux/supio_linux.o src/hspcmp/ahtmodel.o src/hspcmp/ahtobj.o src/hspcmp/codegen.o src/hspcmp/comutil.o src/hspcmp/errormsg.o src/hspcmp/hsc3.o src/hspcmp/hspcmd.o src/hspcmp/label.o src/hspcmp/localinfo.o src/hspcmp/membuf.o src/hspcmp/strnote.o src/hspcmp/tagstack.o -s -o hspcmp
/usr/bin/ld: src/hspcmp/ahtmodel.o: 一般的な ELF 内の再配置 (EM: 3)
/usr/bin/ld: src/hspcmp/ahtmodel.o: 一般的な ELF 内の再配置 (EM: 3)
/usr/bin/ld: src/hspcmp/ahtmodel.o: 一般的な ELF 内の再配置 (EM: 3)
src/hspcmp/ahtmodel.o: error adding symbols: 誤った形式のファイルです
collect2: error: ld returned 1 exit status
makefile.raspbian:108: ターゲット 'hspcmp' のレシピで失敗しました
make: *** [hspcmp] エラー 1

make -f makefile.raspbian clean
make -f makefile.raspbian

インストールを行なうと、以下のコマンドが生成されます。

hsed スクリプトエディタ(簡易版)
hspcmp HSP3コードコンパイラ
hsp3cl HSP3コマンドラインランタイム
hsp3dish HSP3Dishランタイム
hsp3gp HGIMG4ランタイム

HSP3 for Linux/Raspberry Pi より

• Fileメニューの Open を選ぶと、ダイアログに「save」と表示されてる。
• Save と Save As の機能が逆になってる。Save を選ぶと Save As になり、Save As を選ぶと Save になる。

# StylePix Language file check.
# output __tmp.csv (UTF-16LE + BOM)

output_file = "__tmp.csv"

# StylePix Language files
filelist = [
  'English.txt',
  'Japanese.txt',
  'Jp_m256_20161023.txt',
  'Arabic.txt',
  'ChineseSimplified.txt',
  'ChineseTraditional.txt',
  'French.txt',
  'German.txt',
  'Italian.txt',
  'Welsh.txt',
  'korean.txt', # please rename
]

# pickup language files
pickuplist = [
  'English.txt',
  'Japanese.txt',
  'Jp_m256_20161023.txt',
]

# UTF-16LE string
re_comment = Regexp.new( '^\/\/'.to_s.encode( "UTF-16LE" ))
re_blankline = Regexp.new( '^\s+$'.to_s.encode( "UTF-16LE" ))
re_word_tab_word = Regexp.new( '^(\S+)\s+\"(.+)\"$'.to_s.encode( "UTF-16LE" ))
re_start_quot = Regexp.new( '^"'.to_s.encode( "UTF-16LE" ))
re_end_quot = Regexp.new( '\"$'.to_s.encode( "UTF-16LE" ))
nullstr = "".encode("UTF-16LE")
sep = "\t".encode("UTF-16LE")

# File read
data = {}
id_lst = {}
filelist.each do |fn|
  dt = {}
  f = File.open(fn, 'rb:BOM|UTF-16LE')
  while l = f.gets
    l.chomp!
    next if l =~ re_comment # skip comment
    next if l =~ re_blankline # skip blank line
    if l =~ re_word_tab_word
      id, value = $1, $2
      dt[id] = value
      if id_lst.has_key?(id)
        id_lst[id] += 1
      else
        id_lst[id] = 1
      end
    end
  end
  f.close
  data[fn] = dt
end

# make csv
res = []
header = []
header.push("ID".encode("UTF-16LE"))
pickuplist.each do |fn|
  header.push(fn.encode("UTF-16LE"))
end
res.push(header)

id_lst.keys.each do |id|
  dt = []
  dt.push(id)
  pickuplist.each do |fn|
    v = data[fn]
    dt.push((v.has_key?(id))? v[id] : nullstr)
  end
  res.push(dt)
end

# output csv (UTF-16LE + BOM)
f = open(output_file, 'wb:UTF-16LE')
f.write "\uFEFF"  # BOM
res.each do |l|
  f.puts l.join(sep)
end
f.close

# UTF-16LE + BOM のテキストファイルにアクセス

infile = "text_utf16le_bom.txt"

File.open(infile, 'rb:BOM|UTF-16LE') {|f|
  while l = f.gets
    l.chomp!
    puts l.encoding # => UTF-16LE
  end
}

• File.open() に 'rb:BOM|UTF-16LE' を指定すれば UTF-16LE + BOM として開ける。
• さらに、gets で読み込めば、 string が UTF-16LE として扱われる。
• フツーは、ファイルを開いたら close で閉じないといけないが、File.open() にブロック({ } とか do end とか)をつけた場合は close を省略できる。

> open_utf16le.rb
UTF-16LE
UTF-16LE
UTF-16LE
UTF-16LE
UTF-16LE
UTF-16LE
UTF-16LE
UTF-16LE

# UTF-16LE + BOM の文字列に対して正規表現を使う

infile = "text_utf16le_bom.txt"

re0 = Regexp.new( '^\/\/'.to_s.encode("UTF-16LE") )
re1 = Regexp.new( '^(.+)\t(.+)$'.to_s.encode("UTF-16LE") )

f = File.open(infile, 'rb:BOM|UTF-16LE')
while l = f.gets
  if l =~ re0
    puts "comment"
  elsif l =~ re1
    puts "data"
  end
end
f.close

> open_utf16le_regexp.rb
comment
comment
data
data
comment
comment
data
data

# UTF-16LE + BOM の文字列をテキストファイルとして出力

outfile = "_tmp.txt"

File.open(outfile, 'wb:UTF-16LE') { |f|
  f.write "\uFEFF"  # BOMを出力
  DATA.each do |l|
    f.puts l.encode("UTF-16LE")
  end
}

__END__
ABCDEFG
0123456
日本語を記述

• f = open(outfile, 'wb:UTF-16LE') で、UTF-16LE で出力できる。
• f.write "\uFEFF" で、BOMを出力。
• DATA.each {|l| puts l } を使えば、__END__ 以降に書かれた文字列を1行ずつ読み込める。

apt-get install smartmontools

smartctl -i /dev/hda

 SMART support is: Available - device has SMART capability.
 SMART support is: Enabled

smartctl -t short /dev/hda

smartctl -l selftest /dev/hda

 smartctl version 5.36 [i686-pc-linux-gnu] Copyright (C) 2002-6 Bruce Allen
 Home page is http://smartmontools.sourceforge.net/

 === START OF READ SMART DATA SECTION ===
 SMART Self-test log structure revision number 1
 Num  Test_Description    Status                  Remaining  LifeTime(hours)  LBA_of_first_error
 # 1  Short offline       Completed without error       00%     10358         -

外国に滞在する場合、そこの国のあらゆる法律に従わなければならない。

小生が世界各国の法律をつぶさに把握している訳ではないが、日本の事情を考えればおのずと類推は可能である。たとえば「電話線に所轄機関の認定機器以外は接続してはならない」とか「電話線を通じて交換機などに被害を与えた場合は何らかの罰則規定が用意されていて、最悪の場合、逮捕ということもありうる」などは法律論としては常識の部類だろう。

この論法に従うなら、海外ローミングにおいて使用可能な「インターフェース」としては「音響カプラー」しか存在しないことになり、モデムですら「違法」である。

PIPELINE より

ところで、勝手に電話回線でコンピュータ通信をするのは法律違反であった。理由は、 コンピュータ通信の、あのピーピーガーガーという耳障りな音は、人間には理解できない 「暗号」である。そして、電話回線では暗号は送ってはならないことになっている。故に、 電話を使ってコンピュータ通信をするのは法律違反ということである。

それなら、あのファックスは何だ、と思うのは私だけだろうか。あれもコンピュータ通 信と同様に、ピーピーガーガーの筈である。こちらのファックスに絵を入れると、絵が電 話線の中を通って相手のファックスから出てくる訳ではない。ピーピーガーガーという信 号になって相手に伝わり、相手のファックスがそれを解釈して紙に白黒の点で表示する。 だから、ファックスが良くて、コンピュータ通信が駄目というのは、役所の嫌がらせか、 国会議員の無知かが原因であろう。それとも利権だろうか。

コンピュータ通信の禁止は、全世界から馬鹿にされた。そして、日本のコンピュータ、 とくにソフトウェアの発展に大きな障害となり、その影響は今でも甚だしい。

インターネットとモラル／(コ)の業界のオキテ より

この時、Eclipseでは2通りの設定方法がある。ひとつは参照だけにとどめておき、デプロイ時にはライブラリを含めない方法。もうひとつは、プロジェクトにライブラリをインポートし、デプロイ時にJARファイルも含める方法である。