BSD 4 release

[unix-history] / usr / src / cmd / px / 35iosubs.s

diff --git a/usr/src/cmd/px/35iosubs.s b/usr/src/cmd/px/35iosubs.s
index 476677d..3ca6d49 100644 (file)
--- a/usr/src/cmd/px/35iosubs.s
+++ b/usr/src/cmd/px/35iosubs.s
@@ -1,5 +1,7 @@
 #\f
 #\f

-# 35iosubs.s
+# Copyright (c) 1979 Regents of the University of California
+#
+# char sccsid[] = "@(#)35iosubs.s 4.2 10/16/80";

 #
 # IO SUBROUTINES
 #
 #
 # IO SUBROUTINES
 #


@@ -23,7 +25,7 @@
        .globl  _fwrite
        .globl  _mktemp
        .globl  _rewind
        .globl  _fwrite
        .globl  _mktemp
        .globl  _rewind

-       .globl  _sscanf
+       .globl  _setbuf

        .globl  _ungetc
        .globl  _unlink
 #
        .globl  _ungetc
        .globl  _unlink
 #


@@ -144,22 +146,23 @@ wtopen:   .byte   'w, 0
 # is stored in the file variable.
 #
 #
 # is stored in the file variable.
 #
 #

-_getname:
-       .word   R6|R7|R8|R9|R11
-       cvtbl   (r10)+, r8      # r8 has file name length
-       moval   4(ap), r9       # r9 will point to cleared stack
-       addl2    r8, r9
-       blbc     r9,l3501
-       incl     r9
-l3501:
-       movl    ( r9)+, r11     # r11 pts to file variable
-       tstl    ( r11)          #check for existing file record
+_getname: #(datasze, maxnamlen, name, fileptr)
+#int           datasze;
+#int           maxnamlen;
+#char          *name;
+#struct file   **fileptr;
+
+       .word   R6|R7|R8|R9
+       movl    4(ap),r6        #r6 has data size
+       movl    12(ap), r8      # r8 points to file name
+       movl    16(ap), r9      # r9 pts to file variable
+       tstl    ( r9)           #check for existing file record

        bneq    gotone
 #
 # allocate and initialize a new file record
 #
        clrl     r7             # r7 has status flags
        bneq    gotone
 #
 # allocate and initialize a new file record
 #
        clrl     r7             # r7 has status flags

-       cvtwl   (r10)+,r6       #r6 has data size
+       tstl    r6              #check for size

        bneq    l3502
        movw    $FTEXT, r7      #default to text file
        movl    $1,r6           #default size
        bneq    l3502
        movw    $FTEXT, r7      #default to text file
        movl    $1,r6           #default size


@@ -167,13 +170,12 @@ l3502:
        addl3   $recsze,r6,-(sp)#size of record
        calls   $1,_palloc      #r0 points to allocated buffer
        addl2   $recsze,r0      #adjust to base of record
        addl3   $recsze,r6,-(sp)#size of record
        calls   $1,_palloc      #r0 points to allocated buffer
        addl2   $recsze,r0      #adjust to base of record

-l3503:

        clrl    LCOUNT(r0)      #set default line limits
        movl    _llimit,LLIMIT(r0)
        movw     r7,FUNIT(r0)   #set flags
        movl    r6,FSIZE(r0)    #set size
        clrl    LCOUNT(r0)      #set default line limits
        movl    _llimit,LLIMIT(r0)
        movw     r7,FUNIT(r0)   #set flags
        movl    r6,FSIZE(r0)    #set size

-       movl     r11,FLEV(r0)   #set ptr to file variable
-       movl    r0,( r11)       #set file var ptr
+       movl     r9,FLEV(r0)    #set ptr to file variable
+       movl    r0,( r9)        #set file var ptr

 #
 # link the new record into the file chain
 #
 #
 # link the new record into the file chain
 #


@@ -184,42 +186,42 @@ l3504:
        movl    r1,r6           #advance previous
        movl    FCHAIN(r1),r1   #get next
 l3505:
        movl    r1,r6           #advance previous
        movl    FCHAIN(r1),r1   #get next
 l3505:

-       cmpl    FLEV(r1), r11   #check level
+       cmpl    FLEV(r1), r9    #check level

        blssu   l3504           #continue until greater
 
        movl    r1,FCHAIN(r0)   #link in new record
        movl    r0,FCHAIN(r6)
 
        blssu   l3504           #continue until greater
 
        movl    r1,FCHAIN(r0)   #link in new record
        movl    r0,FCHAIN(r6)
 

-       movl    r0, r11         # r11 points to file record
+       movl    r0, r9          # r9 points to file record

        jbr     setname
 #
 # have a previous buffer, dispose of associated file
 #
 gotone:
        jbr     setname
 #
 # have a previous buffer, dispose of associated file
 #
 gotone:

-       addl2   $2,r10                     #discard data size
-       movl    ( r11), r11                # r11 points to file record
-       bicw2   $~(FDEF+TEMP+FTEXT),FUNIT( r11)  #clear status flags
-       bbc     $fDEF,FUNIT( r11),l3506    #check for predefined file
-       bicw2   $FDEF,FUNIT( r11)          #clear predefined flag
+       movl    ( r9), r9                  # r9 points to file record
+       bicw2   $~(FDEF+TEMP+FTEXT),FUNIT( r9)  #clear status flags
+       bbc     $fDEF,FUNIT( r9),l3506     #check for predefined file
+       bicw2   $FDEF,FUNIT( r9)           #clear predefined flag

        jbr     setname
 l3506:
        jbr     setname
 l3506:

-       pushl   FBUF( r11)                #flush and close previous file
+       pushl   FBUF( r9)                 #flush and close previous file

        calls   $1,_fclose
        calls   $1,_fclose

-       movl    FBUF( r11),r0
+       movl    FBUF( r9),r0

        bbs     $ioERR,FLAG(r0),eclose
        bbs     $ioERR,FLAG(r0),eclose

-       bbc     $fTEMP,FUNIT( r11),setname #check for temp file
+       bbc     $fTEMP,FUNIT( r9),setname #check for temp file

        tstl     r8                       #remove renamed temp files
        beql    setname
        tstl     r8                       #remove renamed temp files
        beql    setname

-       pushl   PFNAME( r11)
+       pushl   PFNAME( r9)

        calls   $1,_unlink
        tstl    r0              #check for remove error
        beql    setname
        calls   $1,_unlink
        tstl    r0              #check for remove error
        beql    setname

-       movl    PFNAME( r11),_file
+eunlink:
+       movl    PFNAME( r9),_file

        movw    $EREMOVE,_perrno
        moval   error,PC(fp)    #error return
        ret
 eclose:
        movw    $EREMOVE,_perrno
        moval   error,PC(fp)    #error return
        ret
 eclose:

-       movl    PFNAME( r11),_file
+       movl    PFNAME( r9),_file

        movw    $ECLOSE,_perrno
        moval   error,PC(fp)    #error return
        ret
        movw    $ECLOSE,_perrno
        moval   error,PC(fp)    #error return
        ret


@@ -229,45 +231,37 @@ eclose:
 setname:
        tstl     r8             #check for a given name
        bneq    l3508           #br => has a name
 setname:
        tstl     r8             #check for a given name
        bneq    l3508           #br => has a name

-       tstb    FNAME( r11)     #check for no current name
+       tstb    FNAME( r9)      #check for no current name

        bneq    l3513           #br => had a previous name so use it
 #
 # no name given and no previous name, so generate
 # a new one of the form tmp.xxxxxx
 #
        bneq    l3513           #br => had a previous name so use it
 #
 # no name given and no previous name, so generate
 # a new one of the form tmp.xxxxxx
 #

-       bisw2   $TEMP,FUNIT( r11)#set status to temporary
+       bisw2   $TEMP,FUNIT( r9)#set status to temporary

        pushal  tmpname         #get a unique temp name
        calls   $1,_mktemp
        pushal  tmpname         #get a unique temp name
        calls   $1,_mktemp

-       movl    $13, r8         #max length of temp name
-       brb     l3511
-#
-# name is given, strip trailing blanks
-#
-l3508:
-       bicw2   $TEMP,FUNIT( r11)#set permanent status
-       moval   4(ap),r0        #r0 pts to end of file name
-       addl3    r8,r0,r1       #r1 pts to end of name
-l3509:
-       cmpb    -(r1),$blank    #delete trailing blanks
-       bneq    l3511           #(note: could use "scanc" with source
-       clrb    (r1)            # and table reversed)
-       sobgtr   r8,l3509
+       movl    r0, r8          #ptr to new temp name
+       movl    $16,r2          #maximum name length
+       brb     l3512

 #
 # put the new name into the structure
 #
 #
 # put the new name into the structure
 #

-l3511:
-       cmpl     r8,$fnamesze   #check for name too long
-       blss    l3512
-       movw    $ENAMESIZE,_perrno
-       moval   error,PC(fp)    #error return
-       ret
+l3508:
+       bicw2   $TEMP,FUNIT( r9)        #set permanent status
+       locc    $blank,8(ap),( r8)      #check for trailing blanks
+       subl3   r0,8(ap),r2             #deduct length of blanks
+       cmpl    r2,$fnamesze            #check for name too long
+       bgeq    enamsze

 l3512:
 l3512:

-       movc3    r8,(r0),FNAME( r11)    #move name into record
-       clrb    FNAME( r11)[ r8]                #place null char after name
-       moval   FNAME( r11),PFNAME( r11)        #set pointer to name
+       movc3   r2,( r8),FNAME( r9)     #move name into record
+       clrb    (r3)                    #place zero after name
+       moval   FNAME( r9),PFNAME( r9)  #set pointer to name

 l3513:
 l3513:

-       movl     r9,r1          #return ptr to updated stack
-       movl     r11,r0         #return ptr to file record
+       movl     r9,r0                  #return ptr to file record
+       ret
+enamsze:
+       movw    $ENAMESIZE,_perrno
+       moval   error,PC(fp)            #error return

        ret
 #
 # unit establishes a new active file
        ret
 #
 # unit establishes a new active file


@@ -278,13 +272,6 @@ _unit:
        beql    erefinaf
        bbs     $fDEF,FUNIT(r7),erefinaf
        movl    PFNAME(r7),_file
        beql    erefinaf
        bbs     $fDEF,FUNIT(r7),erefinaf
        movl    PFNAME(r7),_file

-       cmpl    r7,$stdin       #flush stdout if activating stdin
-       bneq    l3523
-       cmpw    _bufopt,$1      # and stdout is line buffered
-       bneq    l3523
-       pushl   stdout+FBUF
-       calls   $1,_fflush
-l3523:

        ret
 erefinaf:
        movw    $EREFINAF,_perrno
        ret
 erefinaf:
        movw    $EREFINAF,_perrno


@@ -365,25 +352,31 @@ l3518:
 # close all active files down to the specified FLEV
 #
 _pclose:
 # close all active files down to the specified FLEV
 #
 _pclose:

-       .word   R6|R7
-       movl    _fchain, r7
+       .word   R6|R9
+       movl    _fchain, r9

        beql    l3520
 l3519:
        beql    l3520
 l3519:

-       cmpl    FLEV( r7),4(ap)
+       cmpl    FLEV( r9),4(ap)

        bgtru   l3520
        bgtru   l3520

-       bbs     $fDEF,FUNIT( r7),l3525
-       movl    FBUF( r7),r6
+       bbs     $fDEF,FUNIT( r9),l3525
+       movl    FBUF( r9),r6
+       beql    l3525

        pushl   r6
        calls   $1,_fclose
        jbs     $ioERR,FLAG(r6),eclose
        pushl   r6
        calls   $1,_fclose
        jbs     $ioERR,FLAG(r6),eclose

+       bbc     $fTEMP,FUNIT( r9),l3525
+       pushl   PFNAME( r9)             #remove TEMP files
+       calls   $1,_unlink
+       tstl    r0
+       jneq    eunlink

 l3525:
 l3525:

-       subl3   $recsze, r7,-(sp)
-       movl    FCHAIN( r7), r7
+       subl3   $recsze, r9,-(sp)
+       movl    FCHAIN( r9), r9

        calls   $1,_pfree
        calls   $1,_pfree

-       tstl     r7
+       tstl     r9

        bneq    l3519
 l3520:
        bneq    l3519
 l3520:

-       movl    r7,_fchain
+       movl    r9,_fchain

        ret
 #
 # write out the pxp data
        ret
 #
 # write out the pxp data