Quelle info.g.dynamic.c Sprache: C

/* C file produced by GAC */
#include "compiled.h"
#define FILE_CRC  "121059807"

/* global variables used in handlers */
static GVar G_Print;
static Obj  GF_Print;
static GVar G_runtest;
static GVar G_InfoLevel;
static Obj  GF_InfoLevel;
static GVar G_InfoDebug;
static Obj  GC_InfoDebug;
static GVar G_SetInfoLevel;
static Obj  GF_SetInfoLevel;

/* record names used in handlers */

/* information for the functions */
static Obj  NameFunc[3];
static Obj FileName;

/* handler for function 2 */
static Obj  HdlrFunc2 (
Obj  self )
{
Obj t_1 = 0;
Obj t_2 = 0;
Obj t_3 = 0;
Obj t_4 = 0;
Bag oldFrame;

/* allocate new stack frame */
SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);

/* Print( InfoLevel( InfoDebug ), "\n" ); */
t_1 = GF_Print;
t_3 = GF_InfoLevel;
t_4 = GC_InfoDebug;
CHECK_BOUND( t_4, "InfoDebug" );
if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
  t_2 = CALL_1ARGS( t_3, t_4 );
}
else {
  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
}
CHECK_FUNC_RESULT( t_2 );
t_3 = MakeString( "\n" );
if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
  CALL_2ARGS( t_1, t_2, t_3 );
}
else {
  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
}

/* Info( InfoDebug, 2, "Do not print" ); */
t_1 = GC_InfoDebug;
CHECK_BOUND( t_1, "InfoDebug" );
t_3 = InfoCheckLevel( t_1, INTOBJ_INT(2) );
if ( t_3 == True ) {
  t_2 = NEW_PLIST( T_PLIST, 1 );
  SET_LEN_PLIST( t_2, 1 );
  t_3 = MakeString( "Do not print" );
  SET_ELM_PLIST( t_2, 1, t_3 );
  CHANGED_BAG(t_2);
  InfoDoPrint( t_1, INTOBJ_INT(2), t_2 );
}

/* Info( InfoDebug, 1, "print this A" ); */
t_1 = GC_InfoDebug;
CHECK_BOUND( t_1, "InfoDebug" );
t_3 = InfoCheckLevel( t_1, INTOBJ_INT(1) );
if ( t_3 == True ) {
  t_2 = NEW_PLIST( T_PLIST, 1 );
  SET_LEN_PLIST( t_2, 1 );
  t_3 = MakeString( "print this A" );
  SET_ELM_PLIST( t_2, 1, t_3 );
  CHANGED_BAG(t_2);
  InfoDoPrint( t_1, INTOBJ_INT(1), t_2 );
}

/* SetInfoLevel( InfoDebug, 2 ); */
t_1 = GF_SetInfoLevel;
t_2 = GC_InfoDebug;
CHECK_BOUND( t_2, "InfoDebug" );
if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
  CALL_2ARGS( t_1, t_2, INTOBJ_INT(2) );
}
else {
  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, INTOBJ_INT(2) ) );
}

/* Print( InfoLevel( InfoDebug ), "\n" ); */
t_1 = GF_Print;
t_3 = GF_InfoLevel;
t_4 = GC_InfoDebug;
CHECK_BOUND( t_4, "InfoDebug" );
if ( TNUM_OBJ( t_3 ) == T_FUNCTION ) {
  t_2 = CALL_1ARGS( t_3, t_4 );
}
else {
  t_2 = DoOperation2Args( CallFuncListOper, t_3, NewPlistFromArgs( t_4 ) );
}
CHECK_FUNC_RESULT( t_2 );
t_3 = MakeString( "\n" );
if ( TNUM_OBJ( t_1 ) == T_FUNCTION ) {
  CALL_2ARGS( t_1, t_2, t_3 );
}
else {
  DoOperation2Args( CallFuncListOper, t_1, NewPlistFromArgs( t_2, t_3 ) );
}

/* Info( InfoDebug, 3, "Do not print" ); */
t_1 = GC_InfoDebug;
CHECK_BOUND( t_1, "InfoDebug" );
t_3 = InfoCheckLevel( t_1, INTOBJ_INT(3) );
if ( t_3 == True ) {
  t_2 = NEW_PLIST( T_PLIST, 1 );
  SET_LEN_PLIST( t_2, 1 );
  t_3 = MakeString( "Do not print" );
  SET_ELM_PLIST( t_2, 1, t_3 );
  CHANGED_BAG(t_2);
  InfoDoPrint( t_1, INTOBJ_INT(3), t_2 );
}

/* Info( InfoDebug, 2, "print this B" ); */
t_1 = GC_InfoDebug;
CHECK_BOUND( t_1, "InfoDebug" );
t_3 = InfoCheckLevel( t_1, INTOBJ_INT(2) );
if ( t_3 == True ) {
  t_2 = NEW_PLIST( T_PLIST, 1 );
  SET_LEN_PLIST( t_2, 1 );
  t_3 = MakeString( "print this B" );
  SET_ELM_PLIST( t_2, 1, t_3 );
  CHANGED_BAG(t_2);
  InfoDoPrint( t_1, INTOBJ_INT(2), t_2 );
}

/* Info( InfoDebug, 1, "print ", "this ", "C" ); */
t_1 = GC_InfoDebug;
CHECK_BOUND( t_1, "InfoDebug" );
t_3 = InfoCheckLevel( t_1, INTOBJ_INT(1) );
if ( t_3 == True ) {
  t_2 = NEW_PLIST( T_PLIST, 3 );
  SET_LEN_PLIST( t_2, 3 );
  t_3 = MakeString( "print " );
  SET_ELM_PLIST( t_2, 1, t_3 );
  CHANGED_BAG(t_2);
  t_3 = MakeString( "this " );
  SET_ELM_PLIST( t_2, 2, t_3 );
  CHANGED_BAG(t_2);
  t_3 = MakeString( "C" );
  SET_ELM_PLIST( t_2, 3, t_3 );
  CHANGED_BAG(t_2);
  InfoDoPrint( t_1, INTOBJ_INT(1), t_2 );
}

/* return; */
SWITCH_TO_OLD_FRAME(oldFrame);
return 0;
}

/* handler for function 1 */
static Obj  HdlrFunc1 (
Obj  self )
{
Obj t_1 = 0;
Obj t_2 = 0;
Bag oldFrame;

/* allocate new stack frame */
SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);

/* runtest := function (  )
      Print( InfoLevel( InfoDebug ), "\n" );
      Info( InfoDebug, 2, "Do not print" );
      Info( InfoDebug, 1, "print this A" );
      SetInfoLevel( InfoDebug, 2 );
      Print( InfoLevel( InfoDebug ), "\n" );
      Info( InfoDebug, 3, "Do not print" );
      Info( InfoDebug, 2, "print this B" );
      Info( InfoDebug, 1, "print ", "this ", "C" );
      return;
  end; */
t_1 = NewFunction( NameFunc[2], 0, 0, HdlrFunc2 );
SET_ENVI_FUNC( t_1, STATE(CurrLVars) );
t_2 = NewFunctionBody();
SET_STARTLINE_BODY(t_2, 1);
SET_ENDLINE_BODY(t_2, 10);
SET_FILENAME_BODY(t_2, FileName);
SET_BODY_FUNC(t_1, t_2);
AssGVar( G_runtest, t_1 );

/* return; */
SWITCH_TO_OLD_FRAME(oldFrame);
return 0;
}

/* 'PostRestore' restore gvars, rnams, functions */
static Int PostRestore ( StructInitInfo * module )
{

/* global variables used in handlers */
G_Print = GVarName( "Print" );
G_runtest = GVarName( "runtest" );
G_InfoLevel = GVarName( "InfoLevel" );
G_InfoDebug = GVarName( "InfoDebug" );
G_SetInfoLevel = GVarName( "SetInfoLevel" );

/* record names used in handlers */

/* information for the functions */
NameFunc[1] = 0;
NameFunc[2] = 0;

return 0;

}

/* 'InitKernel' sets up data structures, fopies, copies, handlers */
static Int InitKernel ( StructInitInfo * module )
{

/* global variables used in handlers */
InitFopyGVar( "Print", &GF_Print );
InitFopyGVar( "InfoLevel", &GF_InfoLevel );
InitCopyGVar( "InfoDebug", &GC_InfoDebug );
InitFopyGVar( "SetInfoLevel", &GF_SetInfoLevel );

/* information for the functions */
InitGlobalBag( &FileName, "info.g:FileName("FILE_CRC")" );
InitHandlerFunc( HdlrFunc1, "info.g:HdlrFunc1("FILE_CRC")" );
InitGlobalBag( &(NameFunc[1]), "info.g:NameFunc[1]("FILE_CRC")" );
InitHandlerFunc( HdlrFunc2, "info.g:HdlrFunc2("FILE_CRC")" );
InitGlobalBag( &(NameFunc[2]), "info.g:NameFunc[2]("FILE_CRC")" );

return 0;

}

/* 'InitLibrary' sets up gvars, rnams, functions */
static Int InitLibrary ( StructInitInfo * module )
{
Obj func1;
Obj body1;

/* Complete Copy/Fopy registration */
UpdateCopyFopyInfo();
FileName = MakeImmString( "info.g" );
PostRestore(module);

/* create all the functions defined in this module */
func1 = NewFunction(NameFunc[1],0,0,HdlrFunc1);
SET_ENVI_FUNC( func1, STATE(CurrLVars) );
body1 = NewFunctionBody();
SET_BODY_FUNC( func1, body1 );
CHANGED_BAG( func1 );
CALL_0ARGS( func1 );

return 0;

}

/* <name> returns the description of this module */
static StructInitInfo module = {
.type        = MODULE_DYNAMIC,
.name        = "info.g",
.crc         = 121059807,
.initKernel  = InitKernel,
.initLibrary = InitLibrary,
.postRestore = PostRestore,
};

StructInitInfo * Init__Dynamic ( void )
{
return &module;
}

/* compiled code ends here */

quality96%

¤ Dauer der Verarbeitung: 0.33 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.