' ===========================================================================
'                   Source code: PowerBASIC for DOS
'
'           Author: Egbert Zijlema (e.zylema@castel.nl)
' Copyright status: Public Domain
'
' Reads date & time stamps from files. Writes stamps to files.
' Usage: FSTAMPS <filespec> [<date>] [<time>]

' Related article at: http://www.basicguru.com/zijlema/stamps.htm
' ===========================================================================

$INCLUDE "STAMPINC.TXT"

CLS
  Cmd$ = LTRIM$(RTRIM$(COMMAND$))

  IF Cmd$ = "" THEN
    ' missing command line, inform user
    CLS
    COLOR 7, 0
    PRINT "Utility to stamp files"
    COLOR 15
    PRINT "Usage: FSTAMPS <filespec> [<date>] [<time>]"
    COLOR 7
    PRINT "Asterix (*) in <filespec> allowed"
    PRINT "Pass <date> in its local format: "; CountryDate(DATE$)
    PRINT "Pass <time> as HH:MM[:SS]"
    SYSTEM
  END IF

  delimiter = INSTR( Cmd$, CHR$(32) )                  ' first space
  IF delimiter = 0 THEN                                ' no params
    QueryStamps UCASE$(Cmd$)                           ' Cmd$ = FileSpec
  ELSE
    StampFiles UCASE$(LEFT$(Cmd$, delimiter - 1)), _   ' FileSpec
               MID$(Cmd$, delimiter + 1)               ' date and/or time
  END IF
END

SUB CountryInfo(format, delimiter$)
  ' results depend on correct COUNTRY setting in CONFIG.SYS

  buffer$ = SPACE$(64)                ' information buffer
  REG 8, STRSEG(buffer$)              ' DS = segment of buffer
  REG 4, STRPTR(buffer$)              ' DX = offset of buffer
  REG 1, &H3800                       ' AX = service
  CALL INTERRUPT &H21                 ' fill buffer$
  format = ASC(buffer$)               ' ASCII of first char
  delimiter$ = MID$(buffer$, 12, 1)   ' 12th char
END SUB

FUNCTION CountryDate(BYVAL InDate$) AS STRING
  ' converts a date in Power Basic's default format (MM-DD-YYYY)
  ' to a country specific format, using the local delimiter

  CountryInfo format, delimiter$
  REPLACE "-" WITH delimiter$ IN InDate$

  SELECT CASE format
    ' no changes are made for case 0                             ' USA
    CASE 1
      InDate$ = MID$(InDate$, 4, 3) + LEFT$(InDate$, 3) + _
                MID$(InDate$, 7)                                 ' EUR
    CASE 2
      InDate$ = MID$(InDate$, 7) + delimiter$ + _
                LEFT$(InDate$, 3) + MID$(InDate$, 4, 2)          ' JAP
  END SELECT
  FUNCTION = InDate$
END FUNCTION

FUNCTION DefaultDate(BYVAL InDate$) AS STRING
  ' converts a country specific date to
  ' Power Basic's default format (MM-DD-YYYY)

  CountryInfo format, delimiter$
  REPLACE delimiter$ WITH "-" IN InDate$

  SELECT CASE format
    ' no changes are made for case 0                             ' USA
    CASE 1
      InDate$ = MID$(InDate$, 4, 3) + LEFT$(InDate$, 3) + _
                MID$(InDate$, 7)                                 ' EUR
    CASE 2
      InDate$ = MID$(InDate$, 6) + "-" + LEFT$(InDate$, 4)       ' JAP
  END SELECT
  FUNCTION = InDate$
END FUNCTION

SUB QueryStamps(FileSpec$)
  SplitPath FileSpec$, directory$
  FileName$ = DIR$(FileSpec$)

  IF FileName$ = "" THEN
    PRINT "File "; FileSpec$; " not found"
    SYSTEM
  END IF

  LOCATE 1, 2 : PRINT RTRIM$(directory$, "\")
  DO WHILE LEN(FileName$)
    ShowResult directory$, FileName$
    FileName$ = DIR$
  LOOP
END SUB

SUB StampFiles(FileSpec$, Cmd$)
  DIM tStamp AS WORD
  DIM dStamp AS WORD

  SplitPath FileSpec$, directory$
  FileName$ = DIR$(FileSpec$)

  IF FileName$ = "" THEN
    PRINT "File "; FileSpec$; " not found"
    SYSTEM
  END IF

  ValidateArguments Cmd$, NewTime$, NewDate$
  IF NewTime$ = "" THEN NoTime = -1
  IF NewDate$ = "" THEN NoDate = -1
  tStamp = TimeToStamp(NewTime$)
  dStamp = DateToStamp(NewDate$)

  LOCATE 1, 2 : PRINT RTRIM$(directory$, "\")
  count = 0
  DO WHILE LEN(FileName$)
    INCR count
    MakeStampsAvailable directory$ + FileName$              ' need old stamps?
    IF NoTime THEN tStamp = REG(3)
    IF NoDate THEN dStamp = REG(4)
    AttachStamps directory$ + FileName$, tStamp, dStamp
    ShowResult directory$, FileName$
    FileName$ = DIR$
  LOOP
  PRINT count; "file";
  IF count <> 1 THEN PRINT "s";
  PRINT " stamped"
END SUB

SUB ValidateArguments(Cmd$, NewTime$, NewDate$)

  message$ = "Invalid date!"                                ' error message

  Cmd$ = Cmd$ + CHR$(32)                                    ' extra space
  delimit = INSTR(Cmd$, CHR$(32))
  NewTime$ = RTRIM$(MID$(Cmd$, delimit + 1))                ' skip extra space
  NewDate$ = MID$(Cmd$, 1, delimit - 1)
  IF INSTR(NewDate$, ":") THEN SWAP NewTime$, NewDate$

  IF LEN(NewTime$) THEN
    delimit = INSTR(NewTime$, ":")
    HH$     = RIGHT$("00" + MID$(NewTime$, 1, delimit - 1), 2) + ":"
    rest$   = MID$(NewTime$, delimit + 1) + ":"             ' extra colon
    delimit = INSTR(rest$, ":")
    MM$     = RIGHT$("00" + MID$(rest$, 1, delimit - 1), 2) + ":"
    SS$     = RTRIM$(MID$(rest$, delimit + 1), ":")         ' skip extra colon
    NewTime$  = HH$ + MM$ + RIGHT$("00" + SS$, 2)
  END IF

  IF LEN(NewDate$) THEN
    CountryInfo format, delim$
    delimit = INSTR(NewDate$, delim$)

    IF delimit = 0 THEN                      ' wrong format
      CLS
      PRINT message$
      PRINT "Pass date in local format, e.g.: "; CountryDate(DATE$)
      SYSTEM
    END IF

    lSub$   = MID$(NewDate$, 1, delimit - 1)
    rest$   = MID$(NewDate$, delimit + 1)
    delimit = INSTR(rest$, delim$)
    mSub$   = MID$(rest$, 1, delimit - 1)
    rSub$   = MID$(rest$, delimit + 1)

    SELECT CASE format
      CASE 2
        ' Japanese form: year first
        IF LEN(lSub$) = 2 THEN
          lSub$ = MID$(DATE$, 7, 2) + lSub$  ' add century
        END IF
        year = VAL(lSub$)
        lSub$ = lSub$ + delim$
        rSub$ = RIGHT$("00" + rSub$, 2)      ' day
      CASE ELSE
        ' USA or Europe: year last
        IF LEN(rSub$) = 2 THEN rSub$ = MID$(DATE$, 7, 2) + rSub$
        year = VAL(rSub$)
        lSub$ = RIGHT$("00" + lSub$, 2) + delim$  ' month or day
    END SELECT

    IF year < 1980 OR year > 2099 THEN
      CLS
      PRINT message$
      PRINT "Valid dates range from "; CountryDate("01-01-1980");
      PRINT " until "; CountryDate("12-31-2099")
      SYSTEM
    END IF

    mSub$ = RIGHT$("00" + mSub$, 2) + delim$
    NewDate$  = DefaultDate(lSub$ + mSub$ + rSub$)
  END IF
END SUB

SUB SplitPath(FileSpec$, directory$)
  ' root directory name always includes the back slash,
  ' subdirs however don't. therefore we skip and (re-)add it......

  IF INSTR(FileSpec$, "\") = 0 THEN                      ' no path
    FileSpec$ = RTRIM$(CURDIR$, "\") + "\" + FileSpec$   ' add path
  ELSEIF LEFT$(FileSpec$, 1) = "\" THEN                  ' no drive
    FileSpec$ = LEFT$(CURDIR$, 2) + FileSpec$            ' add drive
  END IF

  directory$ = FileSpec$
  WHILE RIGHT$(directory$, 1) <> "\"
    directory$ = LEFT$(directory$, LEN(directory$) - 1)  ' extract dir
  WEND
END SUB

SUB ShowResult(directory$, FileName$)
  MakeStampsAvailable directory$ + FileName$             ' get stamps
  PRINT TAB(4) LEFT$(FileName$ + SPACE$(15), 15);
  PRINT CountryDate(StampToDate); "   "; StampToTime
END SUB