Mercurial > hg > octave-nkf
changeset 1183:8d45d63ecbc8
[project @ 1995-03-30 04:50:34 by jwe]
Initial revision
author | jwe |
---|---|
date | Thu, 30 Mar 1995 04:50:34 +0000 |
parents | 1f7cab2821b5 |
children | 1def0d0014bd |
files | scripts/time/Makefile.in scripts/time/asctime.m scripts/time/clock.m scripts/time/ctime.m scripts/time/date.m |
diffstat | 5 files changed, 196 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/scripts/time/Makefile.in @@ -0,0 +1,73 @@ +# +# Makefile for octave's scripts/time directory +# +# John W. Eaton +# jwe@che.utexas.edu +# Department of Chemical Engineering +# The University of Texas at Austin + +TOPDIR = ../.. + +script_sub_dir = time + +srcdir = @srcdir@ +top_srcdir = @top_srcdir@ +VPATH = @srcdir@ + +include $(TOPDIR)/Makeconf + +INSTALL = @INSTALL@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_DATA = @INSTALL_DATA@ + +SOURCES = *.m + +DISTFILES = Makefile.in $(SOURCES) + +FCN_FILES = $(wildcard $(srcdir)/*.m) +FCN_FILES_NO_DIR = $(notdir $(FCN_FILES)) + +all: +.PHONY: all + +install: + $(top_srcdir)/mkinstalldirs $(fcnfiledir)/$(script_sub_dir) + for f in $(FCN_FILES_NO_DIR) ; do \ + rm -f $(fcnfiledir)/$(script_sub_dir)/$$f ; \ + $(INSTALL_DATA) $(srcdir)/$$f $(fcnfiledir)/$(script_sub_dir)/$$f ; \ + done +.PHONY: install + +uninstall: + for f in $(FCN_FILES_NO_DIR) ; \ + do rm -f $(fcnfiledir)/$(script_sub_dir)/$$f ; \ + done +.PHONY: uninstall + +clean: +.PHONY: clean + +tags: $(SOURCES) + ctags $(SOURCES) + +TAGS: $(SOURCES) + etags $(SOURCES) + +mostlyclean: clean +.PHONY: mostlyclean + +distclean: clean + rm -f Makefile +.PHONY: distclean + +realclean: distclean + rm -f tags TAGS +.PHONY: realclean + +local-dist: + ln $(DISTFILES) ../../`cat ../../.fname`/scripts/time +.PHONY: local-dist + +dist: + ln $(DISTFILES) ../../`cat ../../.fname`/scripts/time +.PHONY: dist
new file mode 100644 --- /dev/null +++ b/scripts/time/asctime.m @@ -0,0 +1,29 @@ +# Copyright (C) 1995 John W. Eaton +# +# This file is part of Octave. +# +# Octave is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2, or (at your option) any +# later version. +# +# Octave is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License +# along with Octave; see the file COPYING. If not, write to the Free +# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +function retval = asctime (t) + +# usage: asctime (TMSTRUCT) + + if (nargin == 1) + retval = strftime ("%a %b %d %H:%M:%S %Y\n", t); + else + usage ("asctime (TMSTRUCT)"); + endif + +endfunction
new file mode 100644 --- /dev/null +++ b/scripts/time/clock.m @@ -0,0 +1,38 @@ +# Copyright (C) 1995 John W. Eaton +# +# This file is part of Octave. +# +# Octave is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2, or (at your option) any +# later version. +# +# Octave is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License +# along with Octave; see the file COPYING. If not, write to the Free +# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +function retval = clock () + +# usage: clock () +# +# Return current date and time in vector with elements +# +# [ year, month, day-of-month, hour, minute, second ] + + tm = localtime (time ()); + + retval = zeros (1, 6); + + retval(1) = tm.tm_year + 1900; + retval(2) = tm.tm_mon + 1; + retval(3) = tm.tm_mday; + retval(4) = tm.tm_hour; + retval(5) = tm.tm_min; + retval(6) = tm.tm_sec + tm.tm_usec / 1e6; + +endfunction
new file mode 100644 --- /dev/null +++ b/scripts/time/ctime.m @@ -0,0 +1,29 @@ +# Copyright (C) 1995 John W. Eaton +# +# This file is part of Octave. +# +# Octave is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2, or (at your option) any +# later version. +# +# Octave is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License +# along with Octave; see the file COPYING. If not, write to the Free +# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +function retval = ctime (t) + +# usage: ctime (TMSTRUCT) + + if (nargin == 1) + retval = asctime (localtime (t)); + else + usage ("ctime (TMSTRUCT)"); + endif + +endfunction
new file mode 100644 --- /dev/null +++ b/scripts/time/date.m @@ -0,0 +1,27 @@ +# Copyright (C) 1995 John W. Eaton +# +# This file is part of Octave. +# +# Octave is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2, or (at your option) any +# later version. +# +# Octave is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License +# along with Octave; see the file COPYING. If not, write to the Free +# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +function retval = date () + +# usage: date () +# +# Return current date in a string, in the form `18-Jul-94'. + + retval = strftime ("%d-%b-%y", localtime (time ())); + +endfunction