/* Copyright (C) 1993 by Thomas Glen Smith. All Rights Reserved. */ /* funassgo.h - APL2 V1.0.0 ******************************************** * Initializes pointers to operator tranformation routines. Included * * in funinit.c * ***********************************************************************/ #if !defined(FUNASSGO_INCL) #define FUNASSGO_INCL x44.eptok = slashtra; /* slash */ x45.eptok = slashtra; /* slash bar */ x46.eptok = slashtra; /* slope */ x47.eptok = slashtra; /* slope bar */ x48.eptok = eachtran; /* each */ x49.eptok = dottran; /* inner/outer product */ x50.eptok = NULL; /* apl null (jot) */ #endif