; IF setconsole("hide")
; ENDIF
;
;     NT/95 create description list of KiXtart errors - Kixtart 4.00
;
; (c) scripting@wanadoo.nl - 2001
;
;     vs 1.01 - program
;
;     1.00  (20010715)       original version
;     1.01  (20011115)       - change "Error retrieving error information for"
;                                     to
;                                     "Error (317 / 13D) while retrieving error information for" (compliant Kixtart 4.00 RC1 build 61)
;                            - suppress SetConsole("hide")
;
  FUNCTION SetError($error_number) EXIT $error_number ENDFUNCTION
  ;
  $tmp_directory=ExpandEnvironmentVars("%tmp%")
  IF (substr($tmp_directory,len($tmp_directory),1) <> "\")
    $tmp_directory=$tmp_directory+"\"
  ENDIF
  ;
  $info_file=$tmp_directory+"kix-code.txt"
  IF RedirectOutput($info_file,1)
  ENDIF
  ? "KiXtart "+@kix+" - Summary Error Codes"
  ?
  FOR $i=0 TO 9999
    SetError($i)
    IF (len(@serror) <> 0) AND (Instr(@serror,"retrieving error information for") = 0) AND (Instr(@serror,", 13D)") = 0)
      $result=@serror
      $pos=Instr($result,CHR(13)+CHR(10))
      WHILE ($pos <> 0)
        IF ($pos <> 0)
          $result=substr($result,1,$pos-1)+" "+substr($result,$pos+2,len($result)-$pos-1)
        ENDIF
        $pos=Instr($result,CHR(13)+CHR(10))
      LOOP
      IF (Substr($result,len($result),1) = CHR(10)) OR (Substr($result,len($result),1) = CHR(13))
        ? Substr("       ",1,7-len("@error"))+"@error "+Substr($result,1,len($result)-1)
      ELSE
        ? Substr("       ",1,7-len("@error"))+"@error "+$result
      ENDIF
    ENDIF
  NEXT
  IF RedirectOutput("")
  ENDIF
  ? "Informative KIX: create an actual description list of KiXtart "+@kix+" errors."
  ? "                 file created '"+LCASE($info_file)+"'."
  EXIT