Exemple #1
0
def testRepl3Sub(): # test zur ueberleitung auf ar_codeListParameters
 
 te.checkComplainAndAdjustExpected( 0)
 
 codeList= codeListMake( codeListConfigMake(), codeListParametersMake( nil))

 te.test( codeListCheck( codeList))

 te.test( codeListConfigCheck( codeListGetConfig( codeList)))

 te.test( codeListParametersCheck( codeListGetParameters( codeList)))
 

 codeList= codeListMake( codeListConfigMake(), codeListParametersMake( ConsSimple( true, nil)))

 te.test( codeListCheck( codeList))

 te.test( codeListConfigCheck( codeListGetConfig( codeList)))

 codeListParameters= codeListGetParameters( codeList)

 te.test( codeListParametersCheck( codeListParameters))
 
 te.test( id( true) == id( codeListGetParameterValues( codeList).car()))

 te.test( id( true) == id( codeListGetParameterValuesCdrContainer( codeList).cdr().car()))

 te.test( id( true) == id( codeListParametersGetParameterValues( codeListParameters).car()))

 te.test( id( true) == id( codeListGetParameterValuesCdrContainer2( codeList).cdr().cdr().car()))

 te.checkComplainAndAdjustExpected( 10)
Exemple #2
0
 def __init__( self):

  self.debug= False

  selfInterpreter= self

  self.readbuf= ConsSimple( nil, nil)
  self.macroBuf= nil
  self.env_globals= Environment()
  env_locals= self.env_globals.newChild()
  self.env_quotationMode_globals= Environment()
  env_quotationMode_locals= self.env_quotationMode_globals.newChild()

  codeListConfig= codeListConfigMake( env_locals, False, env_quotationMode_locals) # 27f019a4b85c45ec9dbab2a59306eccc
  self.codeList= codeListMake( codeListConfig, codeListParametersMake( nil)) # ehemals 76ff812ddb0f47f5be9ca34925a4a3b6
  del codeListConfig

  codeListGetParameters( self.codeList).cdr( ConsSimple( Symbol( 'progn-root'), nil))
  self.codeListCurrentEvalTokenList= codeListGetParameterValuesCdrContainer2( self.codeList).cdr()

  self.codeListParent2EvalToken= nil

  self.codeCurrentLeafList= ConsSimple( self.codeList, nil) # 2bb546ca3ffd48bc851d17494f5c286f

  codeListEnsure( self.codeList)

  assert( ar_codeListConfig==self.getCurrentCodeListConfig().car())
  self.codeLeafBackTree= ConsSimple( self.codeCurrentLeafList, nil) # 2bb546ca3ffd48bc851d17494f5c286f

  self.codeLevel= 0

  self.essentials_macro_function= Essentials()
  
  #for i in ( pl_q1, pl_q2, pl_ql, pl_pyprint, pl_pyprintconses, pl_pyprintconsesRest, pl_pyprintStack, pl_eval, pl_qswap2):
  # i.setEssentials( self.essentials_macro_function)

 
  self.interpreterSymbolTable= InterpreterSymbolTable( self)
  ist= self.interpreterSymbolTable

  for k in 'pyprint pyprintconses pyprintconsesRest pyprintStack pyprintStack2 pyprintStackShort'.split():
   ist.htInterpreterSymbolTableNames[ k].setEssentials( self.essentials_macro_function)
  del k

  for k in ist.htInterpreterSymbolTable:
   v= ist.htInterpreterSymbolTable[ k]
   self.env_globals.set( k, v)
  del k, v
  
  del ist
Exemple #3
0
 def tmp0( rest): # c3ee5239baaf4484a61bd525f589ef76
  return codeListMake( codeListConfigMake( env_locals), codeListParametersMake( rest))
Exemple #4
0
 def tmp0( self, rest): # c3ee5239baaf4484a61bd525f589ef76
  return codeListMake( codeListConfigMake( self.env), codeListParametersMake( rest))