Museum

Home

Lab Overview

Retrotechnology Articles

⇒ Online Manual

Media Vault

Software Library

Restoration Projects

Artifacts Sought

NAME_$GET_WDIR_LC                 Domain/OS                  NAME_$GET_WDIR_LC


NAME
     name_$get_wdir_lc - get the working directory

SYNOPSIS (C)
     #include <apollo/base.h>
     #include <apollo/name.h>

     void name_$get_wdir_lc(
          unsigned short &max_len,
          char *working_directory,
          unsigned short *name_length,
          status_$t *status)

SYNOPSIS (Pascal)
     %include '/sys/ins/base.ins.pas';
     %include '/sys/ins/name.ins.pas';

     procedure name_$get_wdir_lc(
          in max_len: integer;
          out working_directory: univ name_$long_pname_t;
          out name_length: integer;
          out status: status_$t);

SYNOPSIS (FORTRAN)
     %include '/sys/ins/base.ins.ftn'
     %include '/sys/ins/name.ins.ftn'

           integer*4 status
           integer*2 max_len, working_directory
           character name*1023

           call name_$get_wdir_lc(max_len, working_directory,
          &                       name_length, status)

DESCRIPTION
     Name_$get_wdir_lc supplies up to max_len bytes of the full pathname of
     the current working directory in working_directory.

     max_len
          The size of the buffer allocated to receive working_directory.
          Name_$get_wdir_lc will not put more than max_len bytes in
          working_directory.

     working_directory
          The absolute pathname from the network root of the current working
          directory.

     name_length
          The number of bytes in the working directory's name.  If name_length
          is greater than the buffer size passed in max_len, then the pathname
          supplied in working_directory is truncated.

     status
          The completion status.

Typewritten Software • bear@typewritten.org • Edmonds, WA 98026