usr/src/lib/efcode/fcdriver/fcdebug.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License, Version 1.0 only
   6  * (the "License").  You may not use this file except in compliance
   7  * with the License.
   8  *
   9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10  * or http://www.opensolaris.org/os/licensing.
  11  * See the License for the specific language governing permissions
  12  * and limitations under the License.
  13  *
  14  * When distributing Covered Code, include this CDDL HEADER in each
  15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16  * If applicable, add the following below this CDDL HEADER, with the
  17  * fields enclosed by brackets "[]" replaced with your own identifying
  18  * information: Portions Copyright [yyyy] [name of copyright owner]
  19  *
  20  * CDDL HEADER END
  21  */
  22 /*
  23  * Copyright (c) 1999 by Sun Microsystems, Inc.
  24  * All rights reserved.
  25  */
  26
  27 #pragma ident   "%Z%%M% %I%     %E% SMI"
  28
  29 #include <sys/stat.h>
  30 #include <fcntl.h>
  31 #include <unistd.h>
  32 #include <stdlib.h>
  33 #include <stdio.h>
  34 #include <strings.h>
  35
  36 #include <fcode/private.h>
  37 #include <fcode/log.h>
  38
  39 #include <fcdriver/fcdriver.h>
  40
  41 static void
  42 dump_private(fcode_env_t *env)
  43 {
  44         common_data_t *cdp;
  45         private_data_t *p;
  46
  47         if (env->current_device) {
  48                 p = env->current_device->private;
  49                 if (p) {
  50                         cdp = p->common;
  51                 } else
  52                         cdp = NULL;
  53         } else {
  54                 cdp = env->private;
  55                 p = NULL;
  56         }
  57
  58         if (cdp == NULL) {
  59                 log_message(MSG_ERROR, "dump_private: NULL private ptr!\n");
  60                 return;
  61         }
  62
  63         log_message(MSG_DEBUG, "Private Data:\n");
  64         log_message(MSG_DEBUG, "Progname:  %s\n", cdp->Progname);
  65         log_message(MSG_DEBUG, "fcode_fd:  %8p\n", cdp->fcode_fd);
  66         log_message(MSG_DEBUG, "attach:    %llx\n", cdp->attach);
  67         log_message(MSG_DEBUG, "Params:    (%8p)\n", &cdp->fc);
  68         log_message(MSG_DEBUG, "  size:    %d\n", cdp->fc.fcode_size);
  69         log_message(MSG_DEBUG, "  unit:    %s\n", cdp->fc.unit_address);
  70         if (p != NULL) {
  71                 log_message(MSG_DEBUG, "Node:      %p\n", p->node);
  72                 log_message(MSG_DEBUG, "Parent:    %p\n", p->parent);
  73                 log_message(MSG_DEBUG, "upload:    %d\n", p->upload);
  74                 log_message(MSG_DEBUG, "debug:     %8x\n", p->debug);
  75         }
  76 }
  77
  78 static void
  79 trigger(fcode_env_t *env)
  80 {
  81         common_data_t *cdp = (common_data_t *)env->private;
  82
  83         ASSERT(cdp);
  84
  85         cdp->fcode_fd = open("/dev/fcode", O_RDONLY);
  86         if (cdp->fcode_fd >= 0) {
  87                 log_message(MSG_INFO, "Trigger...");
  88                 if (!fc_get_request(cdp))
  89                         log_message(MSG_ERROR, "fc_get_request failed\n");
  90                 else
  91                         log_message(MSG_INFO, "\n");
  92         } else
  93                 forth_abort(env, "Can't open /dev/fcode\n");
  94 }
  95
  96 static void
  97 do_trigger(fcode_env_t *env)
  98 {
  99         trigger(env);
 100         build_tree(env);
 101         install_builtin_nodes(env);
 102 }
 103
 104 #pragma init(_init)
 105
 106 static void
 107 _init(void)
 108 {
 109         fcode_env_t *env = initial_env;
 110
 111         ASSERT(env);
 112         NOTICE;
 113
 114         FORTH(0,        "dump-private",         dump_private);
 115         FORTH(0,        "trigger",              do_trigger);
 116 }