Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] View of /branches/vis12-cl/src/compiler/c-target/c-names.sml
ViewVC logotype

View of /branches/vis12-cl/src/compiler/c-target/c-names.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3097 - (download) (annotate)
Wed Mar 18 13:37:31 2015 UTC (4 years, 5 months ago) by jhr
File size: 2341 byte(s)
  new file
(* c-names.sml
 *
 * COPYRIGHT (c) 2015 The Diderot Project (http://diderot-language.cs.uchicago.edu)
 * All rights reserved.
 *
 * These are names and types used in the C target code.  It includes names from
 * RuntimeNames (c-util/runtime-names.sml) and CTypeNames (c-util/c-type-names.sml),
 * plus additional names.
 *)

structure CNames =
  struct

    local
      structure CTyN = CTypeNames
      structure RN = RuntimeNames
    in

  (* names inherited from RuntimeNames *)
    val worldTyName = RN.worldTyName
    val worldPtrTy = RN.worldPtrTy
    val globalsTyName = RN.globalsTyName
    val globalsPtrTy = RN.globalsPtrTy
    val inputsPtrTy = RN.inputsPtrTy
    val strandTyName = RN.strandTyName
    val strandPtrTy = RN.strandPtrTy
    val strandInit = RN.strandInit
    val schedTyName = RN.schedTyName
    val schedPtrTy = RN.schedTyName
    val inputsTyName = RN.inputsTyName
    val inputsPtrTy = RN.inputsPtrTy
    val definedInpTyName = RN.definedInpTyName
    val definedInpPtrTy = RN.definedInpPtrTy
    val optionsTyName = RN.optionsTyName
    val optionsPtrTy = RN.optionsPtrTy
    val inputDesc = RN.inputDesc
    val inputGet = RN.inputGet
    val inputSet = RN.inputSet
    val inputSetByName = RN.inputSetByName
    val outputGet = RN.outputGet
    val snapshotGet = RN.snapshotGet
    val initGlobals = RN.initGlobals  (* not sure about this one?? *)
    val freeGlobals  = RN.freeGlobals
    val initDefaults = RN.initDefaults
    val registerOpts = RN.registerOpts
    val registerOutputOpts = RN.registerOutputOpts
    val initInputs = RN.initInputs
    val initDefined = RN.initDefined
    val checkDefined = RN.checkDefined
    val shutdown = RN.shutdown
    val initially = RN.initially
    val allocInitially = RN.allocInitially
    val strandDescTy = RN.strandDescTy
    val strandDesc = RN.strandDesc
    val strands = RN.strands
    val setImage = RN.setImage
    val loadImage = RN.loadImage
    val freeImage = RN.freeImage
    val loadDynSeq = RN.loadDynSeq
    val loadDynSeqFromFile = RN.loadDynSeqFromFile
    val inputOpt = RN.inputOpt
    val imageTyName = RN.imageTyName
    val imagePtrTy = RN.imagePtrTy
    val dynSeqTy = RN.dynSeqTy

  (* inherited from CTypeNames *)
    val initTargetSpec = CTyN.initTargetSpec
    val doublePrecision = CTyN.doublePrecision

    end (* local *)

  end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0