module Main where

import IO
--import Text.XML.HaXml.Haskell2Xml (readXml)
import Text.XML.HaXml.Haskell2Xml (writeXml, readXml)
import CNCTypes

cnc = Cncprog(Machine_id "DYNA 4M") 
              (Body  Nothing --(Just (Remark_p  "3 BARRENOS"))
                    [      Block 
                           (Just (Remark "3 barrenos"))
                           Nothing
                           (Instruction (Preparatory_word "G90")
                                        x x x x x x x x x x x x x x x x x x x x
                           ), Block
                           Nothing Nothing
                           (Instruction (Preparatory_word "G71")
                                        x x x x x x x x x x x x x x x x x x x x
                           ), Block 
                           Nothing Nothing
                           (Instruction (Preparatory_word "G17")
                                        x x x x x x x x x x x x x x x x x x x x
                           )
                    ]                          
              )
  where x = Nothing

main :: IO ()
main =
    writeXml "pcnc3.xml" cnc 
--    readXml "subjdb.xml"