System Debug Reference Manual (32650-90888)

ManualsBrandsHP ManualsSoftwareMPE/iX 6.5 Operating System

211

212

213

214

215

216

217

218

219

220

220 Chapter6

System Debug Command Speciﬁcations M-X

MACL[IST]

macro fs_ufid_str : STR/STR =

mackey = 'MXFS HP Q_FS_X_NM EL FS GUFD UFID STR'

macro fs_ufid_to_gufd : PTR/LPTR = $0.0

mackey = 'MXFS HP Q_FS_X_NM EL FS UFID TO GUFD'

List all macros, but only those that contain the keyword GUFD within the macro's keyword

string, deﬁned with the MACKEY option. List the names and the keyword string for those

macros.

$nmdat > macl fs_fname_to_gufd all

macro fs_fname_to_gufd : PTR/LPTR = $0.0

( filename : STR )

machelp = 'Returns the address of the GUFD for the specified filename'

mackey = 'MXFS HP Q_FS_X_NM EL FS GUFD GLOBAL UNIQUE FILE DESCRIPTOR

FILE'

macver = 'A.00.01'

{ loc save_error_action error_action;

loc vsod_hdr = kso_pointer (kso_number

('kso_vs_od_gu_fd_header'));

loc entry_size = symval (vsod_hdr, 'tbl_hdr.' +

'hdr_entry_size');

loc vsod_rec_size = symlen ('!vs_som:vs_od_type');

ignore quiet;

loc first_entry_ptr = first_entry (vsod_hdr);

if error <> 0

then return NMNIL;

loc max_entry_ptr = first_entry_ptr + symval (vsod_hdr, 'tbl_hdr.' +

'hdr_rs^

rc_block.body_current_size') - vsod_rec_size;

loc filename = strup(filename);

loc vsod_ptr = first_entry_ptr;

var error_action = 'pa';

while vsod_ptr < max_entry_ptr do

{ loc gufd_ptr = vsod_ptr + vsod_rec_size;

loc fname = fs_fname_nm (gufd_ptr);

if fname = filename

then { var error_action = save_error_action;

return gufd_ptr

};

loc vsod_ptr = vsod_ptr + entry_size

};

var error_action = save_error_action;

stderr (HP_FILENAME_NOT_FOUND, 'fs_fname_to_gufd', filename);

return NMNIL

}

Display macro fs_fname_to_gufd. Since the ALL option is speciﬁed, all macros attributes

are displayed, including the name, parameters, help, version, and the full formatted body.

This is a typical macro from the DAT Macros package.

Examples of the ECHO, REF, and TRACE options