95 lines
12 KiB
Plaintext
95 lines
12 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED " 3-May-2026 10:45:00" ("compiled on " {MEDLEY}<lispusers>DATEFORMAT-EDITOR.;2)
|
||
" 1-May-2026 13:20:42" brecompiled changes%: nothing in "APPS 1-May-2026 ..." dated
|
||
" 1-May-2026 13:20:50")
|
||
(FILECREATED " 3-May-2026 10:44:14" {MEDLEY}<lispusers>DATEFORMAT-EDITOR.;2 14047 :EDIT-BY "lmm"
|
||
:CHANGES-TO (VARS DATEFORMAT-EDITORCOMS) :PREVIOUS-DATE "19-May-89 17:52:44"
|
||
{MEDLEY}<lispusers>DATEFORMAT-EDITOR.;1)
|
||
EDIT-DATEFORMATA0001 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 DFE F 3 SI::NLSETQ-VALUE) & i@R g ðªhdcg ¿°â (33 BLOCK 10 DATEFORMAT-EDITOR-STATUS)
|
||
(27 :NORMAL 15 EDIT)
|
||
()
|
||
EDIT-DATEFORMAT :D8
|
||
(P 4 *CONDITION-HANDLER-BINDINGS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 DFE I 0 DATEFORMAT F 5 EDIT-DATEFORMAT-DEFAULT F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) o H@µU
|
||
H H Hg
|
||
` Vio WJ H H g ð–H Hg
|
||
h (107 DATEFORMAT-EDITOR-STATUS 95 DATEFORMAT-EDITOR-GET-STATE 82 DATEFORMAT-EDITOR-STATUS 76 CLOSEW 68 EDIT-DATEFORMATA0001 40 DATEFORMAT-EDITOR-STATUS 29 DATEFORMAT-EDITOR-SHOW-STATE 23 OPENW 17 DATEFORMAT-EDITOR-PUT-STATE 4 GET-DATEFORMAT-EDITOR)
|
||
(102 ABORT 87 QUIT 48 SI::NLSETQ-PROCEED-CASE 35 EDIT)
|
||
( 56 (CL:ERROR . SI::NLSETQHANDLER))
|
||
GET-DATEFORMAT-EDITOR :D8
|
||
(P 0 DFE I 0 RECOMPUTE?) Ó ` A@³'H ² H dg ð§dg ð’¿i<C2BF>¿h³U` o
|
||
X g g ¿Hg g ¿Hg g ¿Hg
|
||
¿H` ` H Ù¹dIñ‘¿IºjJñ¡J€j` ` H Ù»dKñ‘¿K¼jLñ¡L€j H (207 MOVEW 182 WINDOWREGION 147 WINDOWREGION 129 DATEFORMAT-EDITOR-STATUS 117 PUTWINDOWPROP 100 PUTWINDOWPROP 83 PUTWINDOWPROP 62 FREEMENU 24 DATEFORMAT-EDITOR-STATUS 16 WINDOWP)
|
||
(176 SCREENHEIGHT 171 LASTMOUSEY 141 SCREENWIDTH 136 LASTMOUSEX 124 QUIT 112 DON'T 107 RESHAPEFN 95 DON'T 90 SHRINKFN 78 DATEFORMAT-EDITOR-CLOSEFN 73 CLOSEFN 68 $$DATEFORMAT-EDITOR 52 DATEFORMAT-EDITOR-ITEMS 38 ABORT 30 QUIT 4 $$DATEFORMAT-EDITOR)
|
||
( 57 "Date Format Editor")
|
||
DATEFORMAT-EDITOR-STATUS :D8
|
||
(I 1 NEWSTATUS I 0 DFE) Aœ@g A @g
|
||
(25 GETWINDOWUSERPROP 13 PUTWINDOWPROP)
|
||
(20 DATEFORMAT-EDITOR-STATUS 7 DATEFORMAT-EDITOR-STATUS)
|
||
()
|
||
DATEFORMAT-EDITOR-GET-STATE :D8
|
||
(P 2 ITEM P 1 FMT P 0 STATE I 0 DFE) @ !Hg 'Zµ‚± ‚Ig 'Hg 'Zµ‚± ÆHg 'ZµTIg '³:Hg 'Zµ‚±‰Hg 'Zµ‚±qHg 'Zµ‚±VHg 'Zµ‚±;g I
|
||
à ¢± §J± ®Ã ‘JŠo J
|
||
Édg ð“¿±ÿ^dg ð›¿g IY±ÿKg ðšg IY±ÿ9o ¿±ÿ*à ‘JŠo J
|
||
Édg ð“¿±ÿg ðšg I¹±ÿo ¿±þúo J
|
||
Édg ð›¿g IY±þßdg ð“¿±þÒdg ð›¿g IY±þ¿dg ð›¿g IY±þ«g ðšg IY±þ™o ¿±þŠÃ ¢±J±Ã ¢± ÆJ± Íà ²hJ°pà ‘JŠo J
|
||
Édg ð“¿±þWdg ð›¿g I¹±þCg ð²g I¹g I¹±þ(o ¿±þo J
|
||
Édg ð›¿g I¹±þdg ð“¿±ýög ðšg I¹±ýäo ¿±ýÖo J
|
||
Édg ð›¿g I¹±ý¾g ð’±ý´o ¿±ý¦o J
|
||
Édg ð›¿g I¹±ýŽg ð’±ý„o ¿±ýv (768 SHOULDNT 721 ERROR 706 SHOULDNT 659 ERROR 644 SHOULDNT 577 ERROR 562 SHOULDNT 486 ERROR 427 SHOULDNT 320 ERROR 305 SHOULDNT 258 ERROR 235 SHOULDNT 168 ERROR 135 APPLY 130 DREVERSE 5 FM.GETSTATE)
|
||
(753 LEADER-YES 742 NO.LEADING.SPACES 734 LEADER-NO 726 FREEMENUITEM 691 YEAR-SHORT 680 YEAR.LONG 672 YEAR-LONG 664 FREEMENUITEM 628 NUMBER.OF.MONTH 621 MONTH-NUMERIC 610 MONTH-SHORT 598 MONTH.LONG 590 MONTH-LONG 582 FREEMENUITEM 546 DAY.SHORT 538 DAY.OF.WEEK 530 DAY-SHORT 519 DAY.OF.WEEK 511 DAY-LONG 499 DAY-NONE 491 FREEMENUITEM 472 FREEMENUITEM 462 FREEMENUITEM 449 FREEMENUITEM 436 FREEMENUITEM 411 MONTH.LEADING 404 DATE-LEADING 393 SLASHES 385 DATE-SLASHES 373 SPACES 365 DATE-SPACES 353 DATE-NORMAL 341 NO.DATE 333 DATE-NONE 325 FREEMENUITEM 289 TIME.ZONE 282 TIMEZONE-YES 271 TIMEZONE-NO 263 FREEMENUITEM 244 FREEMENUITEM 219 NO.SECONDS 212 TIME-MINS 201 NO.TIME 193 TIME-NONE 181 TIME-SECS 173 FREEMENUITEM 154 FREEMENUITEM 141 FREEMENUITEM 124 DATEFORMAT 111 LEADER 97 YEAR 83 MONTH 69 DAY 60 NO.DATE 50 DATE 36 TIMEZONE 28 NO.TIME 14 TIME)
|
||
( 763 "Bad LEADER" 715 "Arg must be FreeMenuItem" 701 "Bad YEAR" 653 "Arg must be FreeMenuItem" 639 "Bad MONTH"
|
||
571 "Arg must be FreeMenuItem" 557 "Bad DAY" 480 "Arg must be FreeMenuItem" 422 "Bad DATE" 314 "Arg must be FreeMenuItem"
|
||
300 "Bad TIMEZONE" 252 "Arg must be FreeMenuItem" 230 "Bad TIME" 162 "Arg must be FreeMenuItem")
|
||
DATEFORMAT-EDITOR-PUT-STATE :D8
|
||
(P 8 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) @ Ad›g ð´Ag g g g g g g Hµ‚± ÙIµ‚± ¶Jµ‚± “KµuLµYMµ=Nµ!Od²h@ _´g O@ hh@ ^²Ùg N@ ¿°Êh@ ]²½g M@ ¿°®h@ \²¡g L@ ¿°’h@ [²…g K@ ¿±ÿvh@ Z¢±ÿgg J@ ¿±ÿWh@ Y¢±ÿDg I@ ¿±ÿ4_dg ð™¿g ¹± Ùg ð˜g »± ÉOdg ð™¿g ¹± µg ð˜g »± ¥Odg ð™¿g º± ‘g ð˜g ¹± <00>Odg ð˜¿g ¹°mg ð—g ½°^Odg ð˜¿g ¾°Kg ð™g _¿°:Odg ð˜¿g ¾°'g ðžLg ð³g <00>Og ð•g ¼HX±þ5 (276 FM.CHANGESTATE 259 FM.GETITEM 248 FM.CHANGESTATE 231 FM.GETITEM 220 FM.CHANGESTATE 205 FM.GETITEM 195 FM.CHANGESTATE 180 FM.GETITEM 170 FM.CHANGESTATE 155 FM.GETITEM 145 FM.CHANGESTATE 130 FM.GETITEM 121 FM.CHANGESTATE 104 FM.GETITEM 5 FM.RESETMENU)
|
||
(514 DAY-SHORT 507 DAY.SHORT 499 DAY-LONG 491 DAY-SHORT 483 DAY.OF.WEEK 475 TIME-MINS 467 NO.SECONDS 454 TIMEZONE-YES 447 TIME.ZONE 439 TIME-NONE 431 NO.TIME 420 LEADER-NO 413 NO.LEADING.SPACES 405 DATE-SPACES 397 SPACES 385 DATE-SLASHES 378 SLASHES 369 YEAR-LONG 361 YEAR.LONG 349 MONTH-LONG 342 MONTH.LONG 333 DATE-LEADING 325 MONTH.LEADING 313 MONTH-NUMERIC 306 NUMBER.OF.MONTH 297 DATE-NONE 289 NO.DATE 269 DATE 241 YEAR 213 MONTH 188 DAY 163 LEADER 138 TIME 113 TIMEZONE 55 TIMEZONE-NO 50 TIME-SECS 45 LEADER-YES 40 DAY-NONE 35 MONTH-SHORT 30 YEAR-SHORT 25 DATE-NORMAL 15 DATEFORMAT)
|
||
()
|
||
DATEFORMAT-EDITOR-SHOW-STATE :D8
|
||
(P 1 FORMAT P 0 PROMPTW I 0 DFE F 2 $$DATEFORMAT-EDITOR-IDATE) $ @ @ H RI
|
||
H
|
||
(33 PRIN1 27 GDATE 20 CLEARW 11 DATEFORMAT-EDITOR-GET-STATE 5 GETPROMPTWINDOW)
|
||
NIL
|
||
()
|
||
DATEFORMAT-EDITOR-ABORTFN :D8
|
||
(I 2 BUTTONS I 1 WINDOW I 0 ITEM)
|
||
Ag
|
||
(10 DATEFORMAT-EDITOR-STATUS)
|
||
(5 ABORT)
|
||
()
|
||
DATEFORMAT-EDITOR-CLOSEFN :D8
|
||
(I 0 WINDOW) @ g ð´
|
||
@g
|
||
(24 DATEFORMAT-EDITOR-STATUS 5 DATEFORMAT-EDITOR-STATUS)
|
||
(19 ABORT 10 EDIT)
|
||
()
|
||
DATEFORMAT-EDITOR-GETDFLTFN :D8
|
||
(I 2 BUTTONS I 1 WINDOW I 0 ITEM F 0 EDIT-DATEFORMAT-DEFAULT) A g ð´AP
|
||
A (26 DATEFORMAT-EDITOR-SHOW-STATE 20 DATEFORMAT-EDITOR-PUT-STATE 5 DATEFORMAT-EDITOR-STATUS)
|
||
(10 EDIT)
|
||
()
|
||
DATEFORMAT-EDITOR-PUTDFLTFN :D8
|
||
(I 2 BUTTONS I 1 WINDOW I 0 ITEM F 0 EDIT-DATEFORMAT-DEFAULT) A g ð´
|
||
A c (19 DATEFORMAT-EDITOR-GET-STATE 5 DATEFORMAT-EDITOR-STATUS)
|
||
(10 EDIT)
|
||
()
|
||
DATEFORMAT-EDITOR-QUITFN :D8
|
||
(I 2 BUTTONS I 1 WINDOW I 0 ITEM)
|
||
Ag
|
||
(10 DATEFORMAT-EDITOR-STATUS)
|
||
(5 QUIT)
|
||
()
|
||
DATEFORMAT-EDITOR-SHOWFN :D8
|
||
(I 2 BUTTONS I 1 WINDOW I 0 ITEM) A g ð´A (19 DATEFORMAT-EDITOR-SHOW-STATE 5 DATEFORMAT-EDITOR-STATUS)
|
||
(10 EDIT)
|
||
()
|
||
(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."
|
||
) (* ;;; "Interface") (FNS EDIT-DATEFORMAT GET-DATEFORMAT-EDITOR) (INITVARS (EDIT-DATEFORMAT-DEFAULT (
|
||
DATEFORMAT))) (* ;;; "Support") (FILES FREEMENU) (FNS DATEFORMAT-EDITOR-STATUS
|
||
DATEFORMAT-EDITOR-GET-STATE DATEFORMAT-EDITOR-PUT-STATE DATEFORMAT-EDITOR-SHOW-STATE
|
||
DATEFORMAT-EDITOR-ABORTFN DATEFORMAT-EDITOR-CLOSEFN DATEFORMAT-EDITOR-GETDFLTFN
|
||
DATEFORMAT-EDITOR-PUTDFLTFN DATEFORMAT-EDITOR-QUITFN DATEFORMAT-EDITOR-SHOWFN) (VARS
|
||
$$DATEFORMAT-EDITOR-ITEMS) (INITVARS (DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS))) (
|
||
DECLARE%: DONTEVAL@LOAD DOCOPY (VARS ($$DATEFORMAT-EDITOR (GET-DATEFORMAT-EDITOR)) (
|
||
$$DATEFORMAT-EDITOR-IDATE (IDATE " 1-Jan-1988 23:56:41")))) (PROP MAKEFILE-ENVIRONMENT
|
||
DATEFORMAT-EDITOR)))
|
||
(RPAQ? EDIT-DATEFORMAT-DEFAULT (DATEFORMAT))
|
||
(FILESLOAD FREEMENU)
|
||
(RPAQQ $$DATEFORMAT-EDITOR-ITEMS (((TYPE MOMENTARY LABEL "Quit" FONT (GACHA 10 BOLD) SELECTEDFN
|
||
DATEFORMAT-EDITOR-QUITFN MESSAGE "Stop editing, return current settings") (TYPE DISPLAY LABEL "") (
|
||
TYPE MOMENTARY LABEL "Abort" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-ABORTFN MESSAGE
|
||
"Stop editing, ignore changes, return NIL") (TYPE DISPLAY LABEL " Default:") (TYPE MOMENTARY
|
||
LABEL "Get" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-GETDFLTFN MESSAGE "Use default settings"
|
||
) (TYPE MOMENTARY LABEL "Put" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-PUTDFLTFN MESSAGE
|
||
"Save settings as default") (TYPE DISPLAY LABEL "")) ((TYPE DISPLAY LABEL "")) ((TYPE DISPLAY LABEL
|
||
"DATE: " FONT (GACHA 10 BOLD))) ((TYPE DISPLAY LABEL " Format: " FONT (GACHA 10 BOLD)) (TYPE NWAY
|
||
COLLECTION DATE ID DATE-NORMAL LABEL "dd-mon-yyyy" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY
|
||
COLLECTION DATE ID DATE-SLASHES LABEL "dd/mon/yyyy" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY
|
||
COLLECTION DATE ID DATE-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL
|
||
" ") (TYPE NWAY COLLECTION DATE ID DATE-SPACES LABEL "dd mon yyyy" SELECTEDFN
|
||
DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DATE ID DATE-LEADING LABEL "mon dd, yyyy??" SELECTEDFN
|
||
DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL " Year: " FONT (GACHA 10 BOLD)) (TYPE NWAY
|
||
COLLECTION YEAR ID YEAR-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION
|
||
YEAR ID YEAR-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL
|
||
" Month: " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION MONTH ID MONTH-LONG LABEL "long" SELECTEDFN
|
||
DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION MONTH ID MONTH-SHORT LABEL "short" SELECTEDFN
|
||
DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION MONTH ID MONTH-NUMERIC LABEL "numeric" SELECTEDFN
|
||
DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL " Weekday:" FONT (GACHA 10 BOLD)) (TYPE NWAY
|
||
COLLECTION DAY ID DAY-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DAY
|
||
ID DAY-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DAY ID DAY-NONE
|
||
LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL " Spaces: " FONT (GACHA 10
|
||
BOLD)) (TYPE NWAY COLLECTION LEADER ID LEADER-YES LABEL "yes" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (
|
||
TYPE NWAY COLLECTION LEADER ID LEADER-NO LABEL "no" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE
|
||
DISPLAY LABEL "")) ((TYPE DISPLAY LABEL "TIME:" FONT (GACHA 10 BOLD))) ((TYPE DISPLAY LABEL
|
||
" Format: " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION TIME ID TIME-SECS LABEL "hh:mm:ss"
|
||
SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION TIME ID TIME-MINS LABEL "hh:mm" SELECTEDFN
|
||
DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION TIME ID TIME-NONE LABEL "none" SELECTEDFN
|
||
DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL " Time Zone:" FONT (GACHA 10 BOLD)) (TYPE NWAY
|
||
COLLECTION TIMEZONE ID TIMEZONE-YES LABEL "yes" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY
|
||
COLLECTION TIMEZONE ID TIMEZONE-NO LABEL "no" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))))
|
||
(RPAQ? DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS))
|
||
(RPAQ $$DATEFORMAT-EDITOR (GET-DATEFORMAT-EDITOR))
|
||
(RPAQ $$DATEFORMAT-EDITOR-IDATE (IDATE " 1-Jan-1988 23:56:41"))
|
||
(PUTPROPS DATEFORMAT-EDITOR MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10
|
||
))
|
||
NIL
|