chiark - git - mdw - ssr/blob - StraySrc/SapphToys/!SWIlist/Format

   1 ;
   2 ; SWIList format file
   3 ;
   4 ; Defines output styles for SWIList
   5 ;
   6
   7 [Assembler...]
   8 ;
   9 ; swis.sh
  10 ;
  11 ; SWI names from numbers [generated %d[%zdy %mo %ce%yr] by SWIList]
  12 ; You may freely distribute and modify this file.
  13 ;
  14
  15                 [       :LNOT::DEF:swis__dfn
  16                 GBLL    swis__dfn
  17
  18                 MACRO
  19                 SWIDEF  $name,$number
  20 $name           EQU     $number
  21 X$name          EQU     $number :OR: &20000
  22                 MEND
  23 %%
  24
  25                 ; --- %m SWIs ---
  26
  27 %%
  28                 SWIDEF  %s,&%n
  29 %%
  30
  31                 ]
  32
  33                 END
  34 [C...]
  35 /*
  36  * swis.h
  37  *
  38  * SWI names from numbers [generated %d[%zdy %mo %ce%yr] by SWIList]
  39  * You may freely distribute and modify this file.
  40  */
  41
  42 #pragma force_top_level
  43 #pragma include_only_once
  44
  45 #ifndef SWIS_H
  46 #define SWIS_H
  47 %%
  48
  49 /* --- %m SWIs --- */
  50
  51 %%
  52 #define %s 0x%n
  53 #define X%s 0x%x
  54 %%
  55
  56 #endif
  57 [C++...]
  58 //
  59 // swis.h
  60 //
  61 // SWI names from numbers [generated %d[%zdy %mo %ce%yr] by SWIList]
  62 // You may freely distribute and modify this file.
  63 //
  64
  65 #ifndef SWIS_H
  66 #define SWIS_H
  67 %%
  68
  69 // --- %m SWIs ---
  70
  71 %%
  72 #define %s 0x%n
  73 #define X%s 0x%x
  74 %%
  75
  76 #endif