data/menuqc/util/string.qc

   1 // NG Menu
   2 // util/string.qc
   3
   4 /*
   5 ===================
   6 String_Create
   7 ===================
   8 */
   9 string() String_Create =
  10 {
  11         //return strzone( strcat( "Static, ", self.name ) );
  12         return strzone( "" );
  13 };
  14
  15 /*
  16 ===================
  17 String_Make
  18 ===================
  19 */
  20 string( string pStr ) String_Zone =
  21 {
  22         return strzone( pStr );
  23 };
  24
  25 /*
  26 ===================
  27 String_Normal
  28 ===================
  29 */
  30 string( string pStr ) String_Normal =
  31 {
  32         local string lResult;
  33
  34         lResult = strcat( pStr );
  35         strunzone( pStr );
  36
  37         return lResult;
  38 };
  39
  40 /*
  41 ===================
  42 String_Free
  43 ===================
  44 */
  45 string( string pStr ) String_Free =
  46 {
  47         strunzone( pStr );
  48         return "";
  49 };
  50
  51 /*
  52 ===================
  53 String_EntityCreate
  54 ===================
  55 */
  56 void( entity pEntity, .string pField ) String_EntityCreate =
  57 {
  58         //pEntity.pField = strzone( strcat( "Field, ", pEntity.name ) );
  59         pEntity.pField = strzone( "" );
  60 };
  61
  62 /*
  63 ===================
  64 String_EntityZone
  65 ===================
  66 */
  67 void( entity pEntity, .string pField ) String_EntityZone =
  68 {
  69         pEntity.pField = strzone( pEntity.pField );
  70 };
  71
  72 /*
  73 ===================
  74 String_EntitySet
  75 ===================
  76 */
  77 void( entity pEntity, .string pField, string pSet ) String_EntitySet =
  78 {
  79 #ifdef AVOIDSTRZONES
  80         if( pEntity.pField == pSet ) {
  81                 return;
  82         }
  83 #endif
  84
  85         strunzone( pEntity.pField );
  86         pEntity.pField = strzone( pSet );
  87 };
  88
  89 /*
  90 ===================
  91 String_EntityFree
  92 ===================
  93 */
  94 void( entity pEntity, .string pField ) String_EntityFree =
  95 {
  96         strunzone( pEntity.pField );
  97         pEntity.pField = "";
  98 };
  99
 100 /*
 101 ===================
 102 String_Append
 103 ===================
 104 */
 105 string( string pStr, string pApp ) String_Append =
 106 {
 107         return String_Set( pStr, strcat( pStr, pApp ) );
 108 };
 109
 110 /*
 111 ===================
 112 String_Substring
 113 ===================
 114 */
 115 string( string pStr, float pStart, float pLength ) String_Substring =
 116 {
 117         return strzone( substring( pStr, pStart, pLength ) );
 118 };
 119
 120 /*
 121 ===================
 122 String_Set
 123 ===================
 124 */
 125 string( string pStr, string pSet ) String_Set =
 126 {
 127 #ifdef AVOIDSTRZONES
 128         if( pStr == pSet ) {
 129                 return pStr;
 130         }
 131 #endif
 132         strunzone( pStr );
 133         return strzone( pSet );
 134 };