(FILECREATED "20-Feb-87 01:38:16" ("compiled on " {FIREFS:CS:UNIV% ROCHESTER}LISP>DATEFORMAT-EDITOR.;7) "12-Nov-85 14:59:23" recompiled exprs: DATEFORMAT-EDITOR-PUT-STATE in "INTERLISP-D 12-Jan-87 ..." dated "12-Jan-87 21:33:13") (FILECREATED "20-Feb-87 01:37:19" {FIREFS:CS:UNIV% ROCHESTER}LISP>DATEFORMAT-EDITOR.;7 19378 changes to: (FNS DATEFORMAT-EDITOR-PUT-STATE DATEFORMAT-EDITOR-GET-STATE \DFE-OUTDATE) (VARS DATEFORMAT-EDITORCOMS $$DATEFORMAT-EDITOR-ITEMS) previous date: "12-Feb-87 17:01:38" {FIREFS:CS:UNIV% ROCHESTER}LISP>DATEFORMAT-EDITOR.;5) EDIT-DATEFORMATA0001 D1 (NAME ERRORSET F 0 DFE) P gi(13Q BLOCK 3 DATEFORMAT-EDITOR-STATUS) (6 EDIT) () EDIT-DATEFORMAT D1 (P 0 DFE I 0 DATEFORMAT) *H@ H o H H gH (47Q DATEFORMAT-EDITOR-GET-STATE 35Q DATEFORMAT-EDITOR-STATUS 31Q CLOSEW 25Q EDIT-DATEFORMATA0001 16Q OPENW 12Q DATEFORMAT-EDITOR-PUT-STATE 2 GET-DATEFORMAT-EDITOR) (40Q QUIT) ( 22Q (EDIT-DATEFORMATA0001)) GET-DATEFORMAT-EDITOR D1 (P 1 R P 0 DFE I 0 RECOMPUTE?) `1@H H ddgih5` Xgi Hgg Hgg Hgg H YH``IٺdJJ``IٻdKK Hg H(211Q DATEFORMAT-EDITOR-STATUS 202Q MOVEW 130Q WINDOWREGION 123Q PUTWINDOWPROP 110Q PUTWINDOWPROP 75Q PUTWINDOWPROP 62Q PUTWINDOWPROP 47Q FM.FORMATMENU 22Q DATEFORMAT-EDITOR-STATUS 14Q WINDOWP) (206Q EDIT 162Q SCREENHEIGHT 157Q LASTMOUSEY 140Q SCREENWIDTH 135Q LASTMOUSEX 120Q DON'T 115Q RESHAPEFN 105Q DON'T 102Q SHRINKFN 72Q DATEFORMAT-EDITOR-CLOSEFN 67Q CLOSEFN 56Q DATEFORMAT-EDITORP 53Q $$DATEFORMAT-EDITOR 44Q DATEFORMAT-EDITOR-ITEMS 30Q EDIT 2 $$DATEFORMAT-EDITOR) () DATEFORMAT-EDITOR-STATUS D1 (I 1 NEWSTATUS I 0 DFE) A@gA @g (21Q GETWINDOWUSERPROP 11Q PUTWINDOWPROP) (16Q DATEFORMAT-EDITOR-STATUS 5 DATEFORMAT-EDITOR-STATUS) () DATEFORMAT-EDITOR-GET-STATE D1 (P 1 FMT P 0 STATE I 0 DFE) .@ Hg'dg=dggIY.dggIYdggIYggIYHg'dgggIYHg'dgdggIYggIYHg'dg&dggIYggIgIYHg'dgggIYHg'dgdggIYggIYHg'dgggIYgI (453Q APPLY 443Q SHOULDNT 410Q SHOULDNT 336Q SHOULDNT 303Q SHOULDNT 222Q SHOULDNT 150Q SHOULDNT 115Q SHOULDNT 3 FM.READSTATE) (447Q DATEFORMAT 434Q TIME.ZONE 427Q yes 422Q no 415Q TIMEZONE 401Q NO.TIME 374Q none 365Q NO.SECONDS 357Q hh:mm 350Q hh:mm:ss 343Q TIME 327Q NO.LEADING.SPACES 322Q no 315Q yes 310Q LEADER 274Q DAY.SHORT 266Q DAY.OF.WEEK 261Q short 251Q DAY.OF.WEEK 243Q long 234Q none 227Q DAY 213Q NUMBER.OF.MONTH 206Q numeric 177Q MONTH.LONG 171Q alpha-long 162Q alpha-short 155Q MONTH 141Q YEAR.LONG 134Q long 127Q short 122Q YEAR 106Q NO.DATE 101Q none 72Q MONTH.LEADING 64Q mon% dd,% yy 53Q SPACES 45Q dd% mon% yy 34Q SLASHES 26Q dd/mon/yy 17Q dd-mon-yy 12Q DATE) () DATEFORMAT-EDITOR-PUT-STATE D1 (P 11Q I P 10Q FMT P 7 TIMEZONE P 6 TIME P 5 LEADER P 4 DAY P 3 MONTH P 2 YEAR P 1 DATE I 1 DATEFORMAT I 0 DFE) e AdgAgggggggH @g /_dggggOdgggg{OdgglggaOdggRggGOdgg8gg_+OdgggLggOggHX?d Od` dgI;dgJ1dgK'dgLdgMdgNgOOd` O@ h(533Q FM.CHANGESTATE 516Q \ILLEGAL.ARG 372Q \ILLEGAL.ARG 57Q GETWINDOWUSERPROP) (521Q FREEMENUITEM 511Q FREEMENUITEMTYPE# 475Q TIMEZONE 465Q TIME 453Q LEADER 441Q DAY 427Q MONTH 415Q YEAR 403Q DATE 375Q FREEMENUITEM 365Q FREEMENUITEMTYPE# 342Q short 335Q DAY.SHORT 327Q long 322Q short 314Q DAY.OF.WEEK 306Q hh:mm 300Q NO.SECONDS 265Q yes 260Q TIME.ZONE 252Q none 244Q NO.TIME 233Q no 226Q NO.LEADING.SPACES 220Q dd% mon% yy 212Q SPACES 201Q dd/mon/yy 174Q SLASHES 166Q long 160Q YEAR.LONG 147Q alpha-long 142Q MONTH.LONG 133Q mon% dd,% yy 125Q MONTH.LEADING 113Q numeric 106Q NUMBER.OF.MONTH 77Q none 71Q NO.DATE 54Q FM.ITEMS 41Q no 36Q hh:mm:ss 33Q yes 30Q none 25Q alpha-short 22Q short 17Q dd-mon-yy 7 DATEFORMAT) () DATEFORMAT-EDITOR-ABORTFN D1 (I 2 BUTTONS I 1 WINDOW I 0 ITEM) Ag (6 DATEFORMAT-EDITOR-STATUS) (3 ABORT) () DATEFORMAT-EDITOR-CLOSEFN D1 (I 0 WINDOW) @ g @g (20Q DATEFORMAT-EDITOR-STATUS 3 DATEFORMAT-EDITOR-STATUS) (15Q ABORT 6 EDIT) () DATEFORMAT-EDITOR-QUITFN D1 (I 2 BUTTONS I 1 WINDOW I 0 ITEM) Ag (6 DATEFORMAT-EDITOR-STATUS) (3 QUIT) () \DFE-OUTDATE D1 (P 27Q TOKEN P 26Q DAY.SHORT P 25Q DAY.OF.WEEK P 24Q MONTH.LEADING P 23Q MONTH.LONG P 22Q YEAR.LONG P 21Q NUMBER.OF.MONTH P 20Q NO.SECONDS P 17Q DAY.LENGTH P 16Q MONTH.LENGTH P 15Q YEAR.LENGTH P 14Q TIME.ZONE.LENGTH P 13Q TIME.ZONE P 12Q NO.LEADING.SPACES P 11Q NO.TIME P 10Q NO.DATE P 7 N P 6 S P 5 MONTH P 4 DAY P 3 SIZE P 2 YEAR P 1 SEPR P 0 TIME I 2 STRING I 1 FORMAT I 0 UD F 30Q \TimeZoneComp F 31Q TIME.ZONES) P@l-`AgoA AdO.dgi_gi_O.dgi_"gi_&wO.dgi_(hgi_$]O.dgl/Ogl EO.dgi_6gW0W2_&O.dgi_ gi_*O.gi_,IO(h_"l YOj@@kؽ@O$lJdni_$lldܺl_OO(l Lkl_O"OO(l Mk#lO&oM ] oM l_O(kjO*1oHk _*O,O*kl _*lO* _,l؀jlOj(OllO jlOj _dklk[dl ^Oj_O(YO"O NO_MO NkM O_NOk_I+NOOO(l Lkl_Lk O(RNOk_l,+ENOl Lkl_Lk NOk_I+O"NOO_MO NOkM OO_NOk_I+NOO_Jl OOk_O*NKO,kl(+NKO,O* NKl)+OyNOlHl NOll:+NOl_Hl O NOkl:+NOl_Hl O-NOlO OkNOlHoo BNkmB N(1513Q SUBSTRING 1500Q RPLSTRING 1441Q RPLSTRING 1421Q \RPLRIGHT 1362Q \RPLRIGHT 1327Q \RPLRIGHT 1277Q RPLSTRING 1233Q \RPLRIGHT 1172Q RPLSTRING 1157Q \RPLRIGHT 1123Q \RPLRIGHT 1056Q \RPLRIGHT 1004Q RPLSTRING 775Q \RPLRIGHT 761Q PROMPTPRINT 732Q ALLOCSTRING 704Q NCHARS 630Q NCHARS 615Q SUBSTRING 576Q NTH 537Q NTH 526Q NCHARS 521Q NTH 40Q LISPERROR) (322Q DAY.SHORT 306Q DAY.OF.WEEK 272Q NO.SECONDS 247Q TIME.ZONE 233Q NO.LEADING.SPACES 216Q SPACES 203Q SLASHES 165Q YEAR.LONG 151Q MONTH.LEADING 133Q MONTH.LONG 116Q NUMBER.OF.MONTH 77Q NO.TIME 62Q NO.DATE 26Q DATEFORMAT) ( 1475Q "ST" 1470Q "DT" 563Q ("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") 533Q ("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec") 515Q ("January" "February" "March" "April" "May" "June" "July" "August" "September" "October" "November" "December") 34Q "ILLEGAL ARG") (PRETTYCOMPRINT DATEFORMAT-EDITORCOMS) (RPAQQ DATEFORMAT-EDITORCOMS ((* ;;; "This system provides a facility for editing date formats as described in section 12.5 of the Interlisp-D manual, Koto version. User entry point is the function EDIT-DATEFORMAT. Editing is accomplished using a FREEMENU. Items displayed in this menu are stored on DATEFORMAT-EDITOR-ITEMS. Call (GET-DATEFORMAT-EDITOR T) after changing this variable. Input to EDIT-DATEFORMAT is either NIL or a value returned by the DATEFORMAT function. Output is either NIL -- in case editing was aborted -- or another value as returned from the DATEFORMAT function." ) (FNS EDIT-DATEFORMAT GET-DATEFORMAT-EDITOR DATEFORMAT-EDITOR-STATUS DATEFORMAT-EDITOR-GET-STATE DATEFORMAT-EDITOR-PUT-STATE DATEFORMAT-EDITOR-ABORTFN DATEFORMAT-EDITOR-CLOSEFN DATEFORMAT-EDITOR-QUITFN) (COMS (* ;; "Redefine \OUTDATE in the system file IOCHARS to add two new DATEFORMAT options: MONTH.LONG and MONTH.LEADING" ) (FNS \DFE-OUTDATE) (P (COND ((CCODEP (QUOTE \DFE-OUTDATE)) (MOVD? (QUOTE \OUTDATE) (QUOTE \DFE-SAVED-OUTDATE)) (MOVD (QUOTE \DFE-OUTDATE) (QUOTE \OUTDATE)))))) (VARS $$DATEFORMAT-EDITOR-ITEMS ($$DATEFORMAT-EDITOR)) (INITVARS (DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS))) (FILES ( SYSLOAD) FREEMENU))) (COND ((CCODEP (QUOTE \DFE-OUTDATE)) (MOVD? (QUOTE \OUTDATE) (QUOTE \DFE-SAVED-OUTDATE)) (MOVD (QUOTE \DFE-OUTDATE) (QUOTE \OUTDATE)))) (RPAQQ $$DATEFORMAT-EDITOR-ITEMS (((LABEL Quit SELECTEDFN DATEFORMAT-EDITOR-QUITFN MESSAGE "Stop editing, return current settings" FONT (GACHA 10 BOLD)) (LABEL "") (LABEL Abort SELECTEDFN DATEFORMAT-EDITOR-ABORTFN MESSAGE "Stop editing, ignore changes, return NIL" FONT (GACHA 10 BOLD))) (( TYPE TITLE LABEL "")) ((TYPE TITLE LABEL "DATE:" FONT (GACHA 10 BOLD)) (TYPE NWAY ID DATE LABEL dd-mon-yy) (LABEL "") (TYPE NWAY ID DATE LABEL none)) ((LABEL " ") (TYPE NWAY ID DATE LABEL dd/mon/yy) (LABEL "") (TYPE NWAY ID DATE LABEL dd% mon% yy) (LABEL "") (TYPE NWAY ID DATE LABEL mon% dd,% yy)) ((TYPE TITLE LABEL " Year:" FONT (GACHA 10 BOLD)) (TYPE NWAY ID YEAR LABEL short) ( TYPE NWAY ID YEAR LABEL long)) ((TYPE TITLE LABEL " Month:" FONT (GACHA 10 BOLD)) (TYPE NWAY ID MONTH LABEL alpha-short) (TYPE NWAY ID MONTH LABEL alpha-long) (TYPE NWAY ID MONTH LABEL numeric)) ((TYPE TITLE LABEL " Weekday:" FONT (GACHA 10 BOLD)) (TYPE NWAY ID DAY LABEL none) (TYPE NWAY ID DAY LABEL long) (TYPE NWAY ID DAY LABEL short)) ((TYPE TITLE LABEL " Leading spaces:" FONT (GACHA 10 BOLD)) ( TYPE NWAY ID LEADER LABEL yes) (TYPE NWAY ID LEADER LABEL no)) ((TYPE TITLE LABEL "TIME:" FONT (GACHA 10 BOLD)) (TYPE NWAY ID TIME LABEL hh:mm:ss) (TYPE NWAY ID TIME LABEL hh:mm) (TYPE NWAY ID TIME LABEL none)) ((TYPE TITLE LABEL " Time Zone:" FONT (GACHA 10 BOLD)) (TYPE NWAY ID TIMEZONE LABEL no) (TYPE NWAY ID TIMEZONE LABEL yes)) (WINDOWPROPS TITLE "Date Format Editor" LEFT 150 BOTTOM 150))) (RPAQQ $$DATEFORMAT-EDITOR NIL) (RPAQ? DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS)) (FILESLOAD (SYSLOAD) FREEMENU) (PUTPROPS DATEFORMAT-EDITOR COPYRIGHT ("Johannes A. G. M. Koomen" 1987)) NIL