SBRKEY_CLIENT.PRG

'============================================
'   SBRKEY PiSTARTER向け公開キーシステム クライアント        
'                                            
'基本的な機能を備えたファイラ、それに統合された公開キーシステムとgit操作       
'gitからのダウンロードはgit cloneを利用(?)                
'なぜか前のやつは全編英語だったので、今回はちゃんと日本語で作るよ            
'専用サーバーへのアップロードもできるようになるはず                   
'============================================
OPTION STRICT



'--------------------------------------------
'画面の初期化                                      
'--------------------------------------------

'--- 汎用変数
VAR TITLE$ = "SBRKEY Official Client v0.2.3"
VAR I%, J%, K%, CX%, CY%
VAR FNAME$, DNAME$, ENAME$, URL$, CONTENT$
VAR DMP$

'--- クリップボードとコピー用の変数
DIM SELECT$[0]
VAR SPATH$, DPATH$
DIM FPATH$[0]
DIM CMODE% = #TRUE

'--- ファイルプレビュー用の変数
DIM PV_TEXT$[0]
VAR PV_FNAME$  = ""
VAR PV_COUNT%  = 0
VAR PV_BCOUNT% = 0

'--- 実行スロットの確認
VAR BACKUP_DIR$ = CHDIR()
VAR SLOT%       = 0
LOCATE 0,0:BACKTRACE
SLOT% = CHKCHR(0,0) - 48
IF SLOT%   == 4   THEN CHDIR DIRNAME$(PRGNAME$(0))
IF CHDIR() == "/" THEN CHDIR "/PROJECT"

'--- 初期化
ACLS
XSCREEN 640, 360
COLOR #WHITE, 0




'--------------------------------------------
'ファイラー                                       
'--------------------------------------------

'--- ファイラー関連の変数
VAR CTRL_TEXT$ = "SPACE:ファイルメニュー D:ダウンロードメニュー H:ヘルプ Q:終了"
VAR CURSOR% = 1
VAR OFFSET% = 0
DIM FLIST$[0]

'--- ファイルリストの取得とカーソル位置合わせ
RELOAD_FILELIST FLIST$, "NAME"
IF SLOT% == 4  THEN CURSOR% = FIND(FLIST$,BASENAME$(PRGNAME$(0)))
IF CURSOR% < 0 THEN CURSOR% = 1
CURSOR% = MIN(CURSOR%, LEN(FLIST$))

'--- タイトルバーとファイルリストの初期描画
DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$

'--- クライアントの更新チェック
IF CHKFILE("/.SBRKEY_OC_VER-CHECK.TXT") THEN
 '日付を記録したファイルがある場合は、日付を更新してバージョンチェック
 CONTENT$ = LOAD("TXT:/.SBRKEY_OC_VER-CHECK.TXT")
 IF CONTENT$ != DATE$ THEN CHECK_UPDATE
ELSE
 '記録がない場合は即バージョンチェック
 CHECK_UPDATE
ENDIF

'--- メインループ
WHILE #TRUE
 'キー入力を取得
 VAR C$ = INKEY$()
 C$     = UPL$(C$)
 IF LEN(C$) > 0 THEN PV_COUNT% = 0
 '上下キーでカーソルを移動
 IF C$ == CHR$(30) && CURSOR% > 0 THEN
  DEC CURSOR%
  DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
 ELSEIF C$ == CHR$(31) && CURSOR% < LEN(FLIST$)-1 THEN
  INC CURSOR%
  DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
 ENDIF
 'Enterでディレクトリを移動したりファイルを読み込んだりする
 IF C$ == CHR$(13) || C$ == "Z" THEN
  IF RIGHT$(FLIST$[CURSOR%],1) == "]" THEN
   'ディレクトリの場合
   DNAME$ = MID$(FLIST$[CURSOR%],1,LEN(FLIST$[CURSOR%])-2)
   FNAME$ = "[" + BASENAME$(CHDIR()) + "]"
   CHDIR DNAME$
   WHILE LEN(SELECT$) > 0
    DMP$ = POP(SELECT$)
   WEND
   RELOAD_FILELIST FLIST$, "NAME"
   CURSOR% = 1
   IF DNAME$ == ".." THEN CURSOR% = FIND(FLIST$,FNAME$)
   DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
  ELSE
   FNAME$ = FLIST$[CURSOR%]
   ENAME$ = UPL$(EXTNAME$(FNAME$))
   IF CHKEXT("TXT",ENAME$) > -1 THEN
    'テキストファイルの場合
    CX% = MIN(41,LEN(FNAME$)) + 4
    CY% = MIN(37,CURSOR%-OFFSET%+4)
    DRAW_WINDOW CX%, CY%, 10, 6
    LOCATE CX%, CY%
    PRINT "読み込み先を選択:"
    LOCATE CX%+1, CY%+1:PRINT "PRG0";
    LOCATE CX%+1, CY%+2:PRINT "PRG1";
    LOCATE CX%+1, CY%+3:PRINT "PRG2";
    LOCATE CX%+1, CY%+4:PRINT "PRG3";
    LOCATE CX%+1, CY%+5:PRINT "クリップボード";
    C$ = ""
    J% = CHOOSE(CX%,CY%+1,5)
    IF BETWEEN(J%,0,3) THEN
     LOAD "PRG"+STR$(J%)+":"+FNAME$
    ELSEIF J% == 4 THEN
     CLIPBOARD LOAD("TXT:"+FNAME$)
    ENDIF
    C$ = ""
    J% = 0
    DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
    IF PV_BCOUNT% >= 45 THEN PREVIEW FLIST$[CURSOR%]
   ENDIF
  ENDIF
 ENDIF
 'S:複数選択
 IF C$ == "S" && FLIST$[CURSOR%] != "[..]" THEN
  IF FIND(SELECT$,FLIST$[CURSOR%]) > -1 THEN
   WHILE LEN(SELECT$) > 0
    DMP$ = POP(SELECT$)
   WEND
  ELSE
   SPATH$ = CHDIR()
   IF SPATH$ == "/" THEN SPATH$ = ""
   FNAME$ = FLIST$[CURSOR%]
   IF RIGHT$(FNAME$,1) == "]" THEN FNAME$ = MID$(FNAME$,1,LEN(FNAME$)-2)
   PUSH SELECT$, FNAME$
  ENDIF
  DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
  IF PV_BCOUNT% >= 45 THEN PREVIEW FLIST$[CURSOR%]
 ENDIF
 'A:ステージ領域へファイルを追加(git add -A)
 IF C$ == "A" THEN
  IF CHKGIT() THEN
   DMP$ = SYSTEM$("sudo git add -A")
   DRAW_WINDOW 25, 11, 29, 1
   LOCATE 25, 11:PRINT "編集された全てのファイルをステージング領域に追加しました。"
   C$ = WAIT_INKEY$()
   C$ = ""
  ELSE
   DRAW_WINDOW 25, 11, 30, 4
   LOCATE 25, 11:PRINT "gitコマンドがお使いの環境にインストールされていません。"
   LOCATE 25, 12:PRINT "gitは以下のコマンドでインストールすることができます:"
   LOCATE 28, 13:PRINT "sudo apt-get install git"
   LOCATE 25, 14:PRINT "ただし、使用には初期設定も必要です。"
   C$ = WAIT_INKEY$()
   C$ = ""
  ENDIF
  DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
  IF PV_BCOUNT% >= 45 THEN PREVIEW FLIST$[CURSOR%]
 ENDIF
 'O:gitへコミットする(git commit)
 IF C$ == "O" THEN
  IF CHKGIT() THEN
   DRAW_WINDOW 15, 11, 50, 2
   LOCATE 15, 11:PRINT "コミットメッセージを入力:"
   LOCATE 15, 12:LINPUT CONTENT$
   DMP$ = SYSTEM$("sudo git commit -m "+CHR$(34)+CONTENT$+CHR$(34))
   DRAW_WINDOW 34, 16, 12, 1
   LOCATE 34, 16:PRINT "コミットが完了しました。"
   C$ = WAIT_INKEY$()
   C$ = ""
  ELSE
   DRAW_WINDOW 25, 11, 30, 4
   LOCATE 25, 11:PRINT "gitコマンドがお使いの環境にインストールされていません。"
   LOCATE 25, 12:PRINT "gitは以下のコマンドでインストールすることができます:"
   LOCATE 28, 13:PRINT "sudo apt-get install git"
   LOCATE 25, 14:PRINT "ただし、使用には初期設定も必要です。"
   C$ = WAIT_INKEY$()
   C$ = ""
  ENDIF
  DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
  IF PV_BCOUNT% >= 45 THEN PREVIEW FLIST$[CURSOR%]
 ENDIF
 'P:リモートリポジトリへ送信(git push)
 IF C$ == "P" THEN
  IF CHKGIT() THEN
   DRAW_WINDOW 36, 11, 8, 1
   LOCATE 36, 11:PRINT "送信中です..."
   DMP$ = SYSTEM$("sudo git push -u")
   DRAW_WINDOW 27, 12, 25, 1
   LOCATE 27, 12:PRINT "ローカルの作業をリモートリポジトリに反映しました。"
   C$ = WAIT_INKEY$()
   C$ = ""
  ELSE
   DRAW_WINDOW 25, 11, 30, 4
   LOCATE 25, 11:PRINT "gitコマンドがお使いの環境にインストールされていません。"
   LOCATE 25, 12:PRINT "gitは以下のコマンドでインストールすることができます:"
   LOCATE 28, 13:PRINT "sudo apt-get install git"
   LOCATE 25, 14:PRINT "ただし、使用には初期設定も必要です。"
   C$ = WAIT_INKEY$()
   C$ = ""
  ENDIF
  DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
  IF PV_BCOUNT% >= 45 THEN PREVIEW FLIST$[CURSOR%]
 ENDIF
 'SPACE:ファイルメニュー → ファイルやディレクトリに関する操作を選択肢から選んで実行
 IF C$ == " " && FLIST$[CURSOR%] != "[..]" THEN
  CX% = MIN(41,LEN(FLIST$[CURSOR%])) + 4
  CY% = MIN(37,CURSOR%-OFFSET%+4)
  DRAW_WINDOW CX%, CY%, 12, 9
  LOCATE CX%+1, CY%  :PRINT "コピー";
  LOCATE CX%+1, CY%+1:PRINT "切り取り";
  LOCATE CX%+1, CY%+2:PRINT "貼り付け";
  LOCATE CX%+1, CY%+3:PRINT "名前の変更";
  LOCATE CX%+1, CY%+4:PRINT "削除";
  LOCATE CX%+1, CY%+5:PRINT "git add";
  LOCATE CX%+1, CY%+6:PRINT "ファイルパスのコピー";
  LOCATE CX%+1, CY%+7:PRINT "ディレクトリの新規作成";
  LOCATE CX%+1, CY%+8:PRINT "圧縮／解凍";
  J% = CHOOSE(CX%,CY%,9)
  IF J% == 0 || J% == 1 THEN
   'コピー & 切り取り
   IF LEN(SELECT$) > 0 THEN
    DPATH$ = SPATH$ + ""
    WHILE LEN(FPATH$) > 0
     DMP$ = POP(FPATH$)
    WEND
    COPY FPATH$, SELECT$
    WHILE LEN(SELECT$) > 0
     DMP$ = POP(SELECT$)
    WEND
   ELSE
    DPATH$ = CHDIR()
    IF DPATH$ == "/" THEN DPATH$ = ""
    WHILE LEN(FPATH$) > 0
     DMP$ = POP(FPATH$)
    WEND
    FNAME$ = FLIST$[CURSOR%]
    IF RIGHT$(FNAME$,1) == "]" THEN FNAME$ = MID$(FNAME$,1,LEN(FNAME$)-2)
    PUSH FPATH$, FNAME$
   ENDIF
   CMODE% = (J% == 0)
  ELSEIF J% == 2 && LEN(FPATH$) > 0 THEN
   '貼り付け
   VAR WS$  = "/boot/SMILEBOOM/SMILEBASIC-R/workspace"
   FNAME$   = FPATH$[0]
   CONTENT$ = ""
   FOR I% = 0 TO LEN(FPATH$)-1
    CONTENT$ = CONTENT$ + WS$ + DPATH$ + "/" + FPATH$[I%] + " "
   NEXT
   DMP$ = CHDIR()
   IF DMP$ == "/" THEN DMP$ = ""
   IF CMODE% THEN
    DMP$ = SYSTEM$("sudo cp -f "+CONTENT$+WS$+DMP$+"/")
   ELSE
    DMP$ = SYSTEM$("sudo mv -f "+CONTENT$+WS$+DMP$+"/")
    WHILE LEN(FPATH$) > 0
     DMP$ = POP(FPATH$)
    WEND
    DPATH$ = ""
    CMODE% = #TRUE
   ENDIF
   RELOAD_FILELIST FLIST$, "NAME"
   J% = FIND(FLIST$,FNAME$)
   IF J% > -1 THEN CURSOR% = J%
   J% = FIND(FLIST$,"["+FNAME$+"]")
   IF J% > -1 THEN CURSOR% = J%
  ELSEIF J% == 3 THEN
   '名前の変更
   FNAME$ = FLIST$[CURSOR%]
   IF RIGHT$(FNAME$,1) == "]" THEN FNAME$ = MID$(FNAME$,1,LEN(FNAME$)-2)
   DRAW_WINDOW 10, 16, 60, 2
   LOCATE 10, 16:PRINT "ファイル・ディレクトリの新しい名前を入力してください:";
   LOCATE 10, 17:LINPUT DNAME$
   IF LEN(DNAME$) > 0 THEN RENAME FNAME$, DNAME$
   RELOAD_FILELIST FLIST$, "NAME"
   J% = FIND(FLIST$,FNAME$)
   IF J% > -1 THEN CURSOR% = J%
   J% = FIND(FLIST$,"["+FNAME$+"]")
   IF J% > -1 THEN CURSOR% = J%
  ELSEIF J% == 4 THEN
   '削除
   DRAW_WINDOW 35, 15, 10, 2
   LOCATE 35, 15:PRINT "本当に削除しますか?"
   LOCATE 35, 16:PRINT "  [Y/N]   "
   C$ = UPL$(WAIT_INKEY$())
   IF C$ == "Y" THEN
    IF LEN(SELECT$) == 0 THEN
     FNAME$ = FLIST$[CURSOR%]
     IF RIGHT$(FNAME$,1) == "]" THEN FNAME$ = MID$(FNAME$,1,LEN(FNAME$)-2)
     DMP$ = SYSTEM$("sudo rm -rf "+FNAME$)
    ELSE
     CONTENT$ = ""
     FOR I% = 0 TO LEN(SELECT$)-1
      CONTENT$ = CONTENT$ + " " + SELECT$[I%]
     NEXT
     DMP$ = SYSTEM$("sudo rm -rf"+CONTENT$)
    ENDIF
   ENDIF
   RELOAD_FILELIST FLIST$, "NAME"
   IF CURSOR% > LEN(FLIST$)-1 THEN CURSOR% = LEN(FLIST$) - 1
  ELSEIF J% == 5 THEN
   'git add
   IF CHKGIT() THEN
    IF LEN(SELECT$) == 0 THEN
     FNAME$ = FLIST$[CURSOR%]
     IF RIGHT$(FNAME$,1) == "]" THEN FNAME$ = MID$(FNAME$,1,LEN(FNAME$)-2)
     DMP$ = SYSTEM$("sudo git add "+FNAME$)
     DRAW_WINDOW 39, 11, 21, 1
     LOCATE 39, 11:PRINT "ファイルをステージング領域に追加しました。"
    ELSE
     CONTENT$ = ""
     FOR I% = 0 TO LEN(SELECT$)-1
      CONTENT$ = CONTENT$ + " " + SELECT$[I%]
     NEXT
     DMP$ = SYSTEM$("sudo git add"+CONTENT$)
     DRAW_WINDOW 25, 11, 29+FLOOR(LOG(LEN(SELECT$),10)), 1
     LOCATE 25, 11:? "選択された"+STR$(LEN(SELECT$))+"つのファイルをステージング領域に追加しました。"
    ENDIF
    C$ = WAIT_INKEY$()
    C$ = ""
   ELSE
    DRAW_WINDOW 25, 11, 30, 4
    LOCATE 25, 11:PRINT "gitコマンドがお使いの環境にインストールされていません。"
    LOCATE 25, 12:PRINT "gitは以下のコマンドでインストールすることができます:"
    LOCATE 28, 13:PRINT "sudo apt-get install git"
    LOCATE 25, 14:PRINT "ただし、使用には初期設定も必要です。"
    C$ = WAIT_INKEY$()
    C$ = ""
   ENDIF
  ELSEIF J% == 6 THEN
   'ファイルパスのコピー
   FNAME$ = FLIST$[CURSOR%]
   IF RIGHT$(FNAME$,1) == "]" THEN FNAME$ = MID$(FNAME$,1,LEN(FNAME$)-2)
   DNAME$ = CHDIR() + "/" + FNAME$
   IF LEFT$(DNAME$,2) == "//" THEN DNAME$ = RIGHT$(DNAME$,LEN(DNAME$)-1)
   CLIPBOARD DNAME$
   DRAW_WINDOW CX%+1, CY%+7, 23, 1
   LOCATE CX%+1, CY%+7:PRINT "ファイルパスをクリップボードにコピーしました。";
   C$ = WAIT_INKEY$()
  ELSEIF J% == 7 THEN
   'ディレクトリの新規作成
   DRAW_WINDOW 10, 16, 60, 2
   LOCATE 10, 16:PRINT "新しく作成するディレクトリの名前を入力してください:";
   LOCATE 10, 17:LINPUT FNAME$
   MKDIR FNAME$
   RELOAD_FILELIST FLIST$, "NAME"
   J% = FIND(FLIST$,"["+FNAME$+"]")
   IF J% > -1 THEN CURSOR% = J%
  ELSEIF J% == 8 THEN
   '圧縮／解凍
   IF RIGHT$(UPL$(FLIST$[CURSOR%]),4) == ".ZIP" THEN
    FNAME$ = SYSTEM$("echo "+FLIST$[CURSOR%]+" | sed 's/\.[^.]*$//'")
    FNAME$ = LEFT$(FNAME$,LEN(FNAME$)-1)
    DMP$   = SYSTEM$("sudo unzip "+FNAME$)
   ELSE
    IF LEN(SELECT$) == 0 THEN
     FNAME$ = FLIST$[CURSOR%]
     IF RIGHT$(FNAME$,1) == "]" THEN FNAME$ = MID$(FNAME$,1,LEN(FNAME$)-2)
     DMP$   = SYSTEM$("sudo zip -r "+FNAME$+".zip "+FNAME$)
     FNAME$ = FNAME$ + ".zip"
    ELSE
     CONTENT$ = ""
     FOR I% = 0 TO LEN(SELECT$)-1
      CONTENT$ = CONTENT$ + " " + SELECT$[I%]
     NEXT
     FNAME$ = BASENAME$(CHDIR())
     IF FNAME$ == "/" THEN FNAME$ = "workspace"
     DMP$   = SYSTEM$("sudo zip -r "+FNAME$+".zip"+CONTENT$)
    ENDIF
   ENDIF
   RELOAD_FILELIST FLIST$, "NAME"
   J% = FIND(FLIST$,FNAME$)
   IF J% > -1 THEN CURSOR% = J%
  ENDIF
  C$ = ""
  DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
  IF J% == -1 || J% == 3 || J% == 5 || J% == 6 THEN
   IF PV_BCOUNT% >= 45 THEN PREVIEW FLIST$[CURSOR%]
  ENDIF
 ENDIF
 'D:ダウンロードメニュー → ファイルをダウンロードするためのメニュー
 IF C$ == "D" THEN
  DRAW_WINDOW 33, 11, 14, 4
  LOCATE 33, 11:PRINT "ダウンロード方式を選択:";
  LOCATE 34, 12:PRINT "SBRKEY(公開キー)";
  LOCATE 34, 13:PRINT "URL";
  LOCATE 34, 14:PRINT "GitHubリポジトリ";
  J% = CHOOSE(33,12,3)
  IF J% == 0 THEN
   'SBRKEY(公開キー)
   DRAW_WINDOW 32, 14, 16, 2
   LOCATE 32, 14:PRINT "公開キーを入力:";
   LOCATE 32, 15:PRINT "R-";
   LOCATE 34, 15:LINPUT DNAME$
   IF LEN(DNAME$) > 0 THEN
    URL$ = SBRKEY_KEY2URL$(DNAME$)
    IF UPL$(LEFT$(URL$,4)) == "HTTP" THEN
     'DL成功時
     DL_BY_URL URL$
     FNAME$ = BASENAME$(URL$)
     RELOAD_FILELIST FLIST$, "NAME"
     I% = FIND(FLIST$,FNAME$)
     IF I% > -1 THEN CURSOR% = I%
    ELSEIF URL$ == "Not found" THEN
     DRAW_WINDOW 20, 17, 39, 1
     LOCATE 20, 17:PRINT "指定された公開キーは存在しないか、URLにアクセスできないため削除されました。";
     J% = -1
     C$ = WAIT_INKEY$()
     C$ = ""
    ELSE
     DRAW_WINDOW 30, 17, 20, 1
     LOCATE 30, 17:PRINT "データベース関連のエラーが発生しました。";
     J% = -1
     C$ = WAIT_INKEY$()
     C$ = ""
    ENDIF
   ENDIF
  ELSEIF J% == 1 THEN
   'URL
   DRAW_WINDOW 1, 14, 78, 2
   LOCATE 1, 14:PRINT "URLを入力:";
   LOCATE 1, 15:LINPUT URL$
   IF LEN(URL$) > 7 THEN
    DL_BY_URL URL$
    FNAME$ = BASENAME$(URL$)
    RELOAD_FILELIST FLIST$, "NAME"
    I% = FIND(FLIST$,FNAME$)
    IF I% > -1 THEN CURSOR% = I%
   ENDIF
  ELSEIF J% == 1 THEN
   'GitHubリポジトリ
   DRAW_WINDOW 37, 14, 6, 1
   LOCATE 37, 14:PRINT "未実装です。";
   C$ = WAIT_INKEY$()
   C$ = ""
  ENDIF
  DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
  IF PV_BCOUNT% >= 45 && J% < 0 THEN PREVIEW FLIST$[CURSOR%]
 ENDIF
 '/:コマンド入力 → Linuxのコマンドを自由入力
 IF C$ == "/" THEN
  DRAW_WINDOW 1, 14, 78, 2
  LOCATE 1, 14:PRINT "コマンドを入力(piユーザーで実行されるので、sudoなどはお忘れなく!):";
  LOCATE 1, 15:LINPUT CONTENT$
  IF LEN(CONTENT$) > 0 THEN
   COLOR #WHITE
   DMP$ = SYSTEM$(CONTENT$)
   LOCATE 0, 17:PRINT ""*80
   PRINT " "*2160;
   LOCATE 0, 18:PRINT DMP$
   C$ = WAIT_INKEY$()
   C$ = ""
   DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
   IF PV_BCOUNT% >= 45 THEN PREVIEW FLIST$[CURSOR%]
  ENDIF
 ENDIF
 'H:ヘルプ → その他の操作方法について表示
 IF C$ == "H" THEN
  DRAW_WINDOW 20, 5, 40, 30
  RESTORE @TEXT_HELP
  I% = 0
  READ CONTENT$
  WHILE CONTENT$ != "END"
   LOCATE 21, 6+I%
   PRINT CONTENT$
   READ CONTENT$
   INC I%
  WEND
  C$ = WAIT_INKEY$()
  C$ = ""
  DRAW_FILELIST FLIST$, CURSOR%, OFFSET%, SELECT$
  IF PV_BCOUNT% >= 45 THEN PREVIEW FLIST$[CURSOR%]
 ENDIF
 'Q:終了 → 画面をリフレッシュしてからツールを終了
 IF C$ == "Q" || C$ == CHR$(27) THEN
  COLOR #WHITE, 0
  CLS
  CHDIR BACKUP_DIR$
  BREAK
 ENDIF
 'ファイルプレビューの表示
 IF PV_COUNT% == 45 THEN
  PREVIEW FLIST$[CURSOR%]
 ENDIF
 PV_BCOUNT% = PV_COUNT%
 INC PV_COUNT%
 PV_COUNT% = MIN(1023,PV_COUNT%)
 '時間待ち
 VSYNC
WEND
END

'--- ヘルプの文章
@TEXT_HELP
DATA "Ent:決定/ファイルを読み込む"
DATA "Esc:キャンセル"
DATA ""
DATA "S  :複数選択"
DATA "C  :コピー"
DATA "X  :切り取り"
DATA "V  :貼り付け"
DATA ""
DATA "A  :ステージ領域へファイルを追加(git add -A)"
DATA "O  :gitへコミットする(git commit)"
DATA "P  :リモートリポジトリへ送信(git push)"
DATA ""
DATA "/  :任意のコマンドを実行(SYSTEM$命令にそのまま入力)"
DATA ""
DATA "いずれかのキーを押してヘルプを閉じます"
DATA "END"

'--- ファイルリストを更新する命令
DEF RELOAD_FILELIST LIST$, SORT_RULE$
 'ローカル変数
 VAR I% = 0
 'まずはリストを取得
 IF SORT_RULE$ == "NAME" THEN
  FILES LIST$
 ENDIF
 'リストを処理
 IF SORT_RULE$ == "NAME" THEN
  FOR I% = 0 TO LEN(LIST$)-1
   IF LIST$[I%][0] == "+" THEN
    LIST$[I%] = RIGHT$(LIST$[I%],LEN(LIST$[I%])-1)
    LIST$[I%] = "[" + LIST$[I%] + "]"
   ELSE
    LIST$[I%] = RIGHT$(LIST$[I%],LEN(LIST$[I%])-1)
   ENDIF
  NEXT
 ENDIF
 'リストに上のディレクトリに行くための項目を追加
 IF CHDIR() != "/" THEN
  UNSHIFT LIST$, "[..]"
 ENDIF
END

'--- ファイルリストを画面に描画する命令
DEF DRAW_FILELIST LIST$, CURSOR%, OFFSET%, SEL$
 'まずは表示エリアをリフレッシュ
 VAR I%
 COLOR #WHITE, 0
 FOR I% = 1 TO 44
  LOCATE 0, I%
  PRINT "" + " "*78 + "";
 NEXT
 LOCATE 0,  1:PRINT "" + ""*78 + "";
 LOCATE 0, 44:PRINT "" + ""*78 + "";
 '現在のパスを表示するエリアを追加
 LOCATE 1, 2:PRINT " "*78
 LOCATE 0, 3:PRINT "" + ""*78 + ""
 LOCATE 1, 2:PRINT CLIP_TEXT$(CHDIR(),78)
 'プレビューエリアを準備
 VAR FL_WIDTH% = 40
 FOR I% = 4 TO 43
  LOCATE FL_WIDTH%, I%
  PRINT "";
 NEXT
 LOCATE FL_WIDTH%,  3:PRINT "┬";
 LOCATE FL_WIDTH%, 44:PRINT "┴";
 'タイトルバーを描画
 COLOR #BLACK, #AQUA
 LOCATE 0, 0
 PRINT " "*80;
 LOCATE 0, 0
 PRINT TITLE$;
 LOCATE 80-LEN(CTRL_TEXT$), 0
 PRINT CTRL_TEXT$;
 'リストの文字列を順に描画
 FOR I% = 0 TO MIN(38,LEN(LIST$)-OFFSET%-1)
  'カーソル位置の背景
  IF I%+OFFSET% == CURSOR% THEN
   COLOR #WHITE, &HFF600000
   LOCATE 1, I%+4
   PRINT " "*(FL_WIDTH%-1)
  ELSE
   COLOR #WHITE, 0
  ENDIF
  '選択範囲
  IF FIND(SEL$,LIST$[I%+OFFSET%])+FIND(SEL$,"["+LIST$[I%+OFFSET%]+"]") > -2 THEN
   LOCATE 1, I%+4
   PRINT "♦";
  ENDIF
  '描画
  LOCATE 2, I%+4
  PRINT CLIP_TEXT$(LIST$[I%+OFFSET%],FL_WIDTH%-2);
 NEXT
END

'--- ファイル種別を識別して最適なプレビューを提供する命令
DEF PREVIEW FN$
 '変数の準備
 VAR EN$
 '拡張子ごとに判断してプレビューを作成
 EN$ = UPL$(EXTNAME$(FN$))
 IF FN$ != PV_FNAME$ THEN
  IF CHKEXT("TXT",EN$) > -1 THEN
   'テキストファイル
   MAKE_PV_TXT PV_TEXT$, FN$, 38, 40
  ENDIF
  PV_FNAME$ = FN$ + ""
 ENDIF
 '拡張子ごとに判断して描画
 IF CHKEXT("TXT",EN$) > -1 THEN
  'テキストファイル
  DRAW_PV_TXT PV_TEXT$, 41, 4
 ELSE
  'その他、プレビュー不可能なファイル
  COLOR #WHITE, 0
  LOCATE 41, 4:PRINT "このファイルはプレビュー可能なファイルリストにありません。";
 ENDIF
END

'--- テキストファイルのプレビュー文字列配列を作成する
DEF MAKE_PV_TXT RES$, FN$, W%, H%
 '変数の準備
 VAR TXT$   = LOAD("TXT:"+FN$)
 VAR CHAR$  = ""
 VAR I%, POS%, J% = 0
 WHILE LEN(RES$) > 0
  CHAR$ = SHIFT(RES$)
 WEND
 '文字列を一文字一文字チェックしてプレビューを作成
 FOR I% = 0 TO H%-1
  PUSH RES$, ""
  CHAR$ = SHIFT(TXT$)
  WHILE CHAR$ != CHR$(10) && J% < W% && LEN(TXT$) > 0
   RES$[I%] = RES$[I%] + CHAR$
   CHAR$ = SHIFT(TXT$)
   INC J%
  WEND
  IF J% >= W% THEN
   POS% = INSTR(TXT$,CHR$(10))
   IF POS% < 0 THEN BREAK
   TXT$ = RIGHT$(TXT$,LEN(TXT$)-POS%-1)
  ENDIF
  J% = 0
  IF LEN(TXT$) < 1 THEN BREAK
 NEXT
 RETURN RES$
END

'--- テキストファイルのプレビューを作成した配列から描画する
DEF DRAW_PV_TXT ARY$, X%, Y%
 '変数の用意
 VAR I%
 '順に描画
 COLOR #WHITE, 0
 FOR I% = 0 TO LEN(ARY$)-1
  LOCATE X%, Y%+I%:PRINT ARY$[I%];
 NEXT
END

'--- このクライアントのアップデートを確認し、あればそれを上書きする
DEF CHECK_UPDATE
 
END




'--------------------------------------------
'SBRKEYのためのダウンロード関連関数                        
'--------------------------------------------

'--- URLからファイルをダウンロードする命令
DEF DL_BY_URL URL$
 VAR DMP$ = SYSTEM$("sudo wget --trust-server-names --content-disposition '"+URL$+"'")
END

'--- SBRKEY(公開キー)からURLを取得する関数
DEF SBRKEY_KEY2URL$(K$)
 VAR URL$ = "https://textblog.minibird.jp/sbrkey/key2url.php?key="
 RETURN HTTPGET$(URL$+URLENCODE$(K$))
END




'--------------------------------------------
'いろいろなところで使用する自作命令                           
'--------------------------------------------

'--- コンソール上にウィンドウ枠を描画(指定座標や幅は表示エリア)
DEF DRAW_WINDOW X%, Y%, W%, H%
 '座標チェック(幅と高さはスルー)
 IF X% < 1 || Y% < 1 THEN RETURN
 'ローカル変数
 VAR I%
 '描画
 COLOR #WHITE, #BLACK
 LOCATE X%-1, Y%-1
 PRINT  "┌" + "─"*W% + "┐"
 FOR I% = Y% TO Y%-1+H%
  LOCATE X%-1, I%
  PRINT "│" + " "*W% + "│"
 NEXT
 LOCATE X%-1, Y%+H%
 PRINT  "└" + "─"*W% + "┘"
END

'--- 小さな選択肢のカーソルを一行で済ませるための関数
DEF CHOOSE(X%, Y%, NUM%)
 VAR I%, J% = 0
 LOCATE X%, Y%:PRINT "→";
 WHILE #TRUE
  'キー取得
  VAR C$ = UPL$(INKEY$())
  '上下
  IF C$ == CHR$(30) && J% > 0 THEN
   DEC J%
   FOR I% = 0 TO NUM%-1
    LOCATE X%, Y%+I%:PRINT " ";
   NEXT
   LOCATE X%, Y%+J%:PRINT "→";
  ELSEIF C$ == CHR$(31) && J% < NUM%-1 THEN
   INC J%
   FOR I% = 0 TO NUM%-1
    LOCATE X%, Y%+I%:PRINT " ";
   NEXT
   LOCATE X%, Y%+J%:PRINT "→";
  ENDIF
  '決定
  IF C$ == CHR$(13) || C$ == "Z" THEN
   RETURN J%
  ENDIF
  'キャンセル
  IF C$ == "Q" || C$ == "X" || C$ == CHR$(27) THEN
   RETURN -1
  ENDIF
  '時間待ち
  VSYNC
 WEND
END

'--- 指定されたファイルをカレントディレクトリにコピーする
DEF CP FP$
 VAR FN$  = BASENAME$(FP$)
 VAR CNT% = 0
 IF CHKFILE(FN$) THEN
  REPEAT
   INC CNT%
  UNTIL !CHKFILE("("+STR$(CNT%)+")"+FN$)
  FN$ = "("+STR$(CNT%)+")" + FN$
 ENDIF
 FCOPY FP$, FN$
END

'--- 指定されたファイルをカレントディレクトリに移動する
DEF MV FP$
 CP FP$
 DELETE FP$
END

'--- 文字列を範囲内に収める関数(収まらない部分は省略)
DEF CLIP_TEXT$(TXT$, MAXNUM%)
 IF LEN(TXT$) <= MAXNUM% THEN RETURN TXT$
 RETURN LEFT$(TXT$,MAXNUM%-1)+"…"
END

'--- ファイル名に使用できない文字を除去して返す関数
DEF CHKFILENAME$(FN$)
 VAR CHKTEXT$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789$%'-_@~`!(){}^#&+,;=[]."
 VAR OUTPUT$  = ""
 FN$          = FN$ + ""
 WHILE LEN(FN$) > 0
  VAR CHAR$ = SHIFT(FN$)
  IF INSTR(CHKTEXT$,CHAR$) > -1 THEN OUTPUT$ = OUTPUT$ + CHAR$
 WEND
 RETURN OUTPUT$
END

'--- 文字列配列内で指定された要素を検索する(返り値は添え字)
DEF FIND(ARRAY$,TARGET$)
 VAR I%, RES% = -1
 FOR I% = 0 TO LEN(ARRAY$)-1
  IF ARRAY$[I%] == TARGET$ THEN
   RES% = I%
   BREAK
  ENDIF
 NEXT
 RETURN RES%
END

'--- 定義リストの拡張子から指定拡張子を検索する
DEF CHKEXT(LABEL$,TARGET$)
 VAR ELEMENT$
 DIM ELEMENTS$[0]
 RESTORE "@"+LABEL$
 READ ELEMENT$
 WHILE ELEMENT$ != ""
  PUSH ELEMENTS$, ELEMENT$
  READ ELEMENT$
 WEND
 RETURN FIND(ELEMENTS$,TARGET$)
 @TXT
 DATA "PRG"
 DATA "DATA"
 DATA "TXT"
 DATA "LOG"
 DATA "SH"
 DATA "MD"
 DATA "GITIGNORE"
 DATA "LICENSE"
 DATA ""
END

'--- キー入力を同期的に取得する
DEF WAIT_INKEY$()
 'キー入力待ちループ
 VAR IN$ = INKEY$()
 WHILE IN$ == ""
  VSYNC
  IN$ = INKEY$()
 WEND
 RETURN IN$
END

'--- ファイルパスからファイル名だけを抜き出す関数
DEF BASENAME$(PATH$)
 VAR NAME$ = SYSTEM$("basename "+PATH$)
 RETURN LEFT$(NAME$,LEN(NAME$)-1)
END

'--- ファイルパスからディレクトリ部分を抜き出す関数
DEF DIRNAME$(PATH$)
 VAR DIR$ = SYSTEM$("dirname "+PATH$)
 RETURN LEFT$(DIR$,LEN(DIR$)-1)
END

'--- ファイルパスから拡張子だけを抜き出す関数
DEF EXTNAME$(PATH$)
 VAR DMP$ = SYSTEM$("SBRKEY_fpath="+CHR$(34)+PATH$+CHR$(34)+" && SBRKEY_fext="+CHR$(34)+"${SBRKEY_fpath##*.}"+CHR$(34)+" && echo $SBRKEY_fext")
 RETURN LEFT$(DMP$,LEN(DMP$)-1)
END

'--- gitがインストールされているか確認する関数
DEF CHKGIT()
 VAR DMP$ = SYSTEM$("sudo git")
 IF RESULT == 127 THEN RETURN #FALSE
 RETURN #TRUE
END

'--- 文字列の小文字を大文字に置換する関数
DEF UPL$(TXT$)
 VAR DI%, BYTE%
 TXT$ = TXT$+""
 FOR DI% = 0 TO LEN(TXT$)-1
  BYTE% = ASC(TXT$[DI%])
  IF BETWEEN(BYTE%,97,122) THEN TXT$[DI%] = CHR$(BYTE%-32)
 NEXT
 RETURN TXT$
END

'--- 値の範囲をチェックする関数
DEF BETWEEN(X, MIN_X, MAX_X)
 IF X >= MIN_X && X <= MAX_X THEN RETURN #TRUE
 RETURN #FALSE
END
DEF AREA(X, Y, MIN_X, MIN_Y, MAX_X, MAX_Y)
 IF BETWEEN(X,MIN_X,MAX_X) && BETWEEN(Y,MIN_Y,MAX_Y) THEN RETURN #TRUE
 RETURN #FALSE
END