>source

CM과 ML-Lex를 사용하여 어휘 분석기를 컴파일하고 있습니다. CM.make "sources.cm"을 사용하여 컴파일하려고하면 오류가 발생합니다.

errormsg.sml:7.24-7.39 Error: unbound structure: TextIO in path TextIO.instream
errormsg.sml:21.26-21.38 Error: unbound structure: TextIO in path TextIO.stdIn
errormsg.sml:27.18-27.30 Error: unbound structure: TextIO in path TextIO.stdIn
errormsg.sml:36.12-36.24 Error: unbound structure: Int in path Int.toString

그리고 이전과 비슷합니다. "errormsg.sml"을 사용하려고하면 모든 것이 완벽하게 작동합니다. sources.cm에서 errormsg.sml을 움직여 보았습니다.

sources.cm :

Group is
$/smlnj-lib.cm
driver.sml
tokens.sig
tokens.sml
errormsg.sml
tiger.lex

errormsg.sml :

signature ERRORMSG =
sig
    val anyErrors : bool ref
    val fileName : string ref
    val lineNum : int ref
    val linePos : int list ref
    val sourceStream : TextIO.instream ref
    val error : int -> string -> unit
    exception Error
    val impossible : string -> 'a   (* raises Error *)
    val reset : unit -> unit
end
structure ErrorMsg : ERRORMSG =
struct
  val anyErrors = ref false
  val fileName = ref ""
  val lineNum = ref 1
  val linePos = ref [1]
  val sourceStream = ref TextIO.stdIn
  fun reset() = (anyErrors:=false;
                 fileName:="";
                 lineNum:=1;
                 linePos:=[1];
                 sourceStream:=TextIO.stdIn)
  exception Error
  fun error pos (msg:string) =
      let fun look(a::rest,n) =
            if a<pos then app print [":",
                               Int.toString n,
                                       ".",
                                       Int.toString (pos-a)]
               else look(rest,n-1)
            | look _ = print "0.0"
       in anyErrors := true;
          print (!fileName);
          look(!linePos,!lineNum);
          print ":";
          print msg;
          print "\n"
      end
  fun impossible msg =
      (app print ["Error: Compiler bug: ",msg,"\n"];
       TextIO.flushOut TextIO.stdOut;
       raise Error)
end

  • 답변 # 1

    $/basis.cm 를 추가해야합니다  당신의 sources.cm 에 . 표준 ML 기본 라이브러리를 가져옵니다.

    Group is
    $/basis.cm
    $/smlnj-lib.cm
    driver.sml
    tokens.sig
    tokens.sml
    errormsg.sml
    tiger.lex
    
    

  • 이전 excel - 루프가없는 특정 열의 검색 "문자열"과 일치하는 셀의 행 번호를 가져옵니다열에 여러 개의 일치 항목이 있습니다
  • 다음 ReactJS - reactjs - 같은 버튼을 사용하여 좋아요와 달리 :페이지를 새로 고치지 않고 업데이트