usr/src/cmd/px/33iofile.s

#\f
# 33iofile.s
#
# FILE HOUSEKEEPING OPERATIONS
#
_DEFNAME:
        calls   $0,_getname
        movl    r1,sp
        bisw2   $FDEF,FUNIT(r0)
        jmp     (r8)
_BUFF:
        cvtbw   (r10)+,_bufopt
        jmp     (r8)
_RESET:
        cvtbl   (r10),r3                #attempt to rewind only if stdin
        bneq    l3301           # and no name is given
        cmpl    *(sp),$stdin
        bneq    l3301
        tstb    stdin+FNAME
        bneq    l3301
        pushl   stdin+FBUF
        calls   $1,_rewind
        tstl    r0              # -1 => error
        blss    eseek
        addl2   $3,r10
        addl2   $4,sp           #clear stack
        bicw2   $EOF+EOLN,stdin+FUNIT
        bisw2   $SYNC,stdin+FUNIT
        jmp     (r8)
l3301:
        calls   $0,_getname
        movl    r1,sp
        movl    r0,r6
        pushal  rdopen
        pushal  FNAME(r6)
        calls   $2,_fopen
        tstl    r0
        beql    eopen
        movl    r0,FBUF(r6)
        bisw2   $SYNC+FREAD,FUNIT(r6)
        jmp     (r8)
eseek:
        movl    stdin+PFNAME,_file
        movw    $ESEEK,_perrno
        jbr     error
eopen:
        movl    PFNAME(r6),_file
        movw    $EOPEN,_perrno
        jbr     error
_REWRITE:
        calls   $0,_getname
        movl    r1,sp
        movl    r0,r6
        movl    PFNAME(r6),_file
        pushal  wtopen
        pushal  FNAME(r6)
        calls   $2,_fopen
        tstl    r0
        beql    ecreat
        movl    r0,FBUF(r6)
        bisw2   $EOF+FWRITE,FUNIT(r6)
        jmp     (r8)
ecreat:
        movw    $ECREATE,_perrno
        jbr     error
_FLUSH:
        incl    r10
        calls   $1,_unit
        bbc     $fWRITE,FUNIT(r7),l3302
        pushl   FBUF(r7)
        calls   $1,_fflush
l3302:
        jmp     (r8)
_REMOVE:
        cvtbl   (r10)+,r3       #r3 has filename length
        bneq    l3303
        cvtwl   (r10)+,r3
l3303:
        movl    r3,r6           #r6 has stack length
        blbc    r6,l3304
        incl    r6
l3304:
        addl3   r3,sp,r1        #r1 pts to end of name
l3305:
        cmpb    -(r1),$blank    #delete trailing blanks
        bneq    l3306           #(note: could use "spanc" here)
        clrb    (r1)
        sobgtr  r3,l3305
l3306:
        movl    sp,_file        #remove file
        pushl   sp
        calls   $1,_unlink
        tstl    r0
        bneq    eremove
        addl2   r6,sp
        jmp     (r8)
eremove:
        movl    _file,sp        #recover filename
        movw    $EREMOVE,_perrno
        jbr     error
_MESSAGE:
        incl    r10
        calls   $0,_pflush
        pushal  stderr
        calls   $1,_unit
        jmp     (r8)