; CONVERT
;
; Programma per Proteus
;
; (C) 2003 Simone Zanella Productions
;
; Converte il file binario in ingresso in un array introducibile in un programma C.

#!proteus -z

IF LT(ARGC, 5)
  CONSOLELN "Sintassi: " ARGV(1) " " ARGV(2) " [file.bin]"
  CONSOLELN ""
  CONSOLELN "Scopo: converte il file binario in ingresso in un vettore di 'unsigned char';"
  CONSOLELN "scrive il risultato sull'uscita standard."
  ABORT 0
FI  

H = FOPEN(ARGV(5), 1)
CONSOLELN "unsigned char mappa[] = {"
WHILE NOT(FEOF(H))
  L = FREAD(H, 50)
  S = ""
  FOR X = 1 TO STRLEN(L)
    S = S IIF(GT(STRLEN(S), 0), ", ", "") " 0x" PFORMAT("X", ASC(SUBSTR(L, X, 1)))
  NEXT
  CONSOLELN S IIF(NOT(FEOF(H)), ",", "")
LOOP
CONSOLELN "};"

FCLOSE(H)
ABORT 0